anchor.diff:  end;
   
   function TLoincServices.ChildCount(context: TCodeSystemProviderContext): integer;
  -begin
  +var
  +  ctxt : TLoincProviderContext;
  +begin
  +  ctxt := context as TLoincProviderContext;
     // no children in loinc
  +
     if context = nil then
       result := TotalCount
  +  else if ctxt.kind = lpckPart then
  +    result := 0
     else
       result := 0;
   end;
   
   procedure TLOINCServices.Close(ctxt: TCodeSystemProviderContext);
   begin
  -  // nothing, because it's actually a pointer to an integer
  +  ctxt.Free;
   end;
   
   function TLoincServices.getcontext(context: TCodeSystemProviderContext; ndx: integer): TCodeSystemProviderContext;
  
positive.code:   iEntry : Cardinal;
    sCode1 : String;
    iComponent, iProperty, iTimeAspect, iSystem, iScale, iMethod, iClass, iCode, iAnswers : cardinal;
    iFlags : Byte;
    names : TCardinalArray;
    name : Cardinal;
  
negative.code:   end;
  end;
  
  { TLoincProviderContext }
  
  constructor TLoincProviderContext.create(kind: TLoincProviderContextKind; index: cardinal);
  begin
    inherited Create;
    FKind := kind;
    FIndex := index;
  end;
  
  End.
  
  