anchor.diff:                  end;
                   if noErrCode then
                     response.ResponseNo := 200;
  -                response.WriteContent;
                   RecordExchange(oRequest, oResponse);
                 except
                   on e: exception do
  
positive.code:   FName := Name;
    FIni := ini;
  
    FClients := TAdvList<TFHIRWebServerClientInfo>.Create;
    FPatientViewServers := TDictionary<String, String>.Create;
  {$IFDEF MSWINDOWS}
  
negative.code: 
  procedure TAsyncTaskThread.details;
  begin
    if FBundle <> nil then
      FServer.serverContext.Storage.setAsyncTaskDetails(key, {$IFDEF FHIR4}Fbundle.timestamp{$ELSE}TDateTimeEx.makeUTC{$ENDIF}, Fbundle.Links['self']);
  end;
  
  procedure TAsyncTaskThread.doGetBundleBuilder(request : TFHIRRequest; context: TFHIRResponse; aType: TFhirBundleTypeEnum; out builder: TFhirBundleBuilder);
  