anchor.diff:    inherited;
   end;
   
  +function TFhirCodeSystemProvider.allCodes(concept: TFhirCodeSystemConceptW): boolean;
  +begin
  +  result := true;
  +end;
  +
   function TFhirCodeSystemProvider.ChildCount(context: TCodeSystemProviderContext): integer;
   begin
     if context = nil then
  
positive.code:         result := TFhirCodeSystemProviderFilterContext.create;
          try
            for cc in FCs.FCodeSystem.conceptList do
              iterateCodes(cc, result as TFhirCodeSystemProviderFilterContext, code.context);
            result.link;
          finally
            result.Free;
  
negative.code:       finally
          ts.Free;
        end;
        result.link;
      finally
        result.Free;
      end;
    end
    else if (op = foExists) and (prop = 'child') then
    begin
      result := TFhirCodeSystemProviderFilterContext.create;
      try
        for cc in FCs.FCodeSystem.conceptList do
          if value = 'true' then
            iterateCodes(cc, result as TFhirCodeSystemProviderFilterContext, nonLeafCodes)
          else
            iterateCodes(cc, result as TFhirCodeSystemProviderFilterContext, leafCodes);
        result.link;
      finally
        result.Free;
  