anchor.diff:    iEntry : Cardinal;
     sCode1 : String;
     iComponent, iProperty, iTimeAspect, iSystem, iScale, iMethod, iClass, iCode, iAnswers : cardinal;
  +  parent, children, descendants, descendentConcepts, text, concepts, stems : cardinal;
     iFlags : Byte;
     names : TCardinalArray;
     name : Cardinal;
  
positive.code: end;
  
  function TLoincServices.ChildCount(context: TCodeSystemProviderContext): integer;
  begin
    // no children in loinc
    if context = nil then
      result := TotalCount
    else
      result := 0;
  end;
  
  procedure TLOINCServices.Close(ctxt: TCodeSystemProviderContext);
  begin
    // nothing, because it's actually a pointer to an integer
  end;
  
  function TLoincServices.getcontext(context: TCodeSystemProviderContext; ndx: integer): TCodeSystemProviderContext;
  
negative.code:     lsiTypeSurvey, lsiInternal, lsi3rdParty, lsiActive, lsiDeprecated, lsiDiscouraged, lsiTrial);
    TLoincSubsets = Array [TLoincSubsetId] of Cardinal;
    TLoincPropertyIds = Array [TLoincPropertyType] of Cardinal;
  
    TLoincProviderContextKind = (lpckCode, lpckPart, lpckAnswer);
  
    TLoincProviderContext = class (TCodeSystemProviderContext)
    private
      FIndex: cardinal;
      FKind: TLoincProviderContextKind;
    public
      constructor create(kind : TLoincProviderContextKind; index : cardinal);
      property kind : TLoincProviderContextKind read FKind write FKind;
      property index : cardinal read FIndex write FIndex;
    end;
  
    TLoincFilterHolderKind = (lfkConcept, lfkAnswer);
  
  