anchor.diff:  function TCountryCodeServices.prepare(prep : TCodeSystemProviderFilterPreparationContext) : boolean;
   begin
     // nothing
  -  result := true;
  +  result := false;
   end;
   
   function TCountryCodeServices.searchFilter(filter : TSearchFilterText; prep : TCodeSystemProviderFilterPreparationContext; sort : boolean) : TCodeSystemProviderFilterContext;
  
positive.code: 
  procedure TCountryCodeServices.Close(ctxt: TCodeSystemProviderFilterPreparationContext);
  begin
    raise ETerminologyTodo.create('TCountryCodeServices.Close');
  end;
  
  
  
negative.code: 
  function TCountryCodeServices.filterLocate(ctxt : TCodeSystemProviderFilterContext; code : String; var message : String) : TCodeSystemProviderContext;
  begin
    result := FMap[code];
  end;
  
  function TCountryCodeServices.FilterMore(ctxt : TCodeSystemProviderFilterContext) : boolean;
  