anchor.diff:    result := nil;
     for p in FCs.CodeSystem.properties.forEnum do
       if (p.code = code) then
  -      exit(p);
  +      exit(p.link);
     for cs in FCs.Supplements do
       for p in cs.properties.forEnum do
         if (p.code = code) then
  -        exit(p);
  +        exit(p.link);
   end;
   
   
  
positive.code:       for cc in concepts do
        begin
          ok := false;
          for cp in cc.properties.forEnum do
            if not ok and (cp.code = pp.code) then
              case pp.type_ of
                cptCode, cptString, cptInteger, cptBoolean, cptDateTime, cptDecimal:
                  ok := cp.value.primitiveValue = value;
  
negative.code:   concepts : TFslList<TFhirCodeSystemConceptW>;
    css : TFhirCodeSystemW;
    cp : TFhirCodeSystemConceptPropertyW;
    ok, val : boolean;
    coding : TFHIRCodingW;
  begin
    concepts := TFslList<TFhirCodeSystemConceptW>.create;
  