anchor.diff:      Procedure Stop;
       Procedure Transaction(stream: TStream; init : boolean; name, base: String; ini: TFHIRServerIniFile; callback: TInstallerCallback);
       Procedure ReturnProcessedFile(request : TIdHTTPRequestInfo; response: TIdHTTPResponseInfo; Session: TFHIRSession; path: String; secure: boolean; variables: TDictionary<String, String> = nil); overload;
  +    {$IFNDEF FHIR2}
       Procedure ReturnJavaStatus(request : TIdHTTPRequestInfo; response: TIdHTTPResponseInfo); overload;
  +    {$ENDIF}
       Procedure ReturnProcessedFile(request : TIdHTTPRequestInfo; response: TIdHTTPResponseInfo; Session: TFHIRSession; claimed, actual: String; secure: boolean; variables: TDictionary<String, String> = nil); overload;
       Procedure RunPostHandler(request : TIdHTTPRequestInfo; response: TIdHTTPResponseInfo; Session: TFHIRSession; claimed, actual: String; secure: boolean);
   
  
positive.code:   response.FreeContentStream := true;
    response.contentType := 'application/json';
  end;
  
  procedure TFhirWebServer.ReturnProcessedFile(request : TIdHTTPRequestInfo; response: TIdHTTPResponseInfo; Session: TFHIRSession; path: String; secure: boolean; variables: TDictionary<String, String> = nil);
  begin
  
negative.code:       ReturnDiagnostics(AContext, request, response, false, false, FSecurePath)
      else if request.Document = '/' then
        ReturnProcessedFile(request, response, Session, '/' + FHomePage, FSourceProvider.AltFile('/' + FHomePage, FBasePath), false)
      {$IFNDEF FHIR2}
      else if request.Document = '/java-status' then
        ReturnJavaStatus(request, response)
      {$ENDIF}
      else if (FTerminologyWebServer <> nil) and FTerminologyWebServer.handlesRequest(request.Document) then
        FTerminologyWebServer.Process(AContext, request, Session, response, false)
      else
  