anchor.diff:        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
  
positive.code:     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;
      Procedure ReturnJavaStatus(request : TIdHTTPRequestInfo; response: TIdHTTPResponseInfo); overload;
      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);
  
  
negative.code:   finally
      vars.Free;
    end;
  end;
  
  {$IFNDEF FHIR2}
  procedure TFhirWebServer.ReturnJavaStatus(request: TIdHTTPRequestInfo; response: TIdHTTPResponseInfo);
  var
    s : String;
  