anchor.diff:          if not result then
           begin
             checker := TValueSetChecker(FOthers.matches[s]);
  -          result := checker.check(system, version, code, abstractOk, implySystem, displays, message, cause);
  +          result := checker.check(system, version, code, abstractOk, implySystem, displays, message, ver, cause);
           end;
         end;
         for cc in FValueSet.includes.forEnum do
  
positive.code:         begin
            checker := TValueSetChecker(FOthers.matches[s]);
            if checker <> nil then
              result := result and checker.check(system, version, code, abstractOk, implySystem, displays, message, cause)
            else
              raise ETerminologyError.Create('No Match for '+s);
          end;
  
negative.code:     FId: String;
  
      function determineSystem(code : String) : String;
      function check(system, version, code : String; abstractOk, implySystem : boolean; displays : TCodeDisplays; var message, ver : String; var cause : TFhirIssueType) : boolean; overload;
      function findCode(cs : TFhirCodeSystemW; code: String; list : TFhirCodeSystemConceptListW; displays : TCodeDisplays; out isabstract : boolean): boolean;
      function checkConceptSet(cs: TCodeSystemProvider; cset : TFhirValueSetComposeIncludeW; code : String; abstractOk : boolean; displays : TCodeDisplays; var message : String) : boolean;
      procedure prepareConceptSet(desc: string; cc: TFhirValueSetComposeIncludeW);
  