Index: BL/Sys/FOP/DocBase.cls.xml
===================================================================
diff -u -r66156 -r66530
--- BL/Sys/FOP/DocBase.cls.xml	(.../DocBase.cls.xml)	(revision 66156)
+++ BL/Sys/FOP/DocBase.cls.xml	(.../DocBase.cls.xml)	(revision 66530)
@@ -240,7 +240,7 @@
 	Set sc=tmpStream.LinkToFile(FilePath)
 	If $$$ISOK(sc) Do
 	. Do FStream.CopyFrom(tmpStream)
-	.  d WL^vhDBG("Stream from file "_FilePath_"  Size: "_tmpStream.Size)
+	.  ;d WL^vhDBG("Stream from file "_FilePath_"  Size: "_tmpStream.Size)
 	Else  Do
 	. d WL^vhDBG("Fout bij openen van de FileStream: LinkToFile="_$$ParseStatus^vhLib(sc))
 	. Set FStream=""
@@ -735,15 +735,15 @@
 
 	set blnPeek=$G(blnPeek,..#UsePeekServer)
 	Set locIndx=$S(blnPeek:cl.PeekSOAPServer("",0,"FOP_ADB_ERR"), 1:0)
-	  d:(locIndx'=0) WL^vhDBG($G(%PrefixWL)_"XML="_locIndx_$S(locIndx<0:"  PeekServer Failed!!!",1:""))
+	  ;d:(locIndx'=0) WL^vhDBG($G(%PrefixWL)_"XML="_locIndx_$S(locIndx<0:"  PeekServer Failed!!!",1:""))
 	Quit:(locIndx<0) $$$ERROR($$$GeneralError,$$$msgSOAPTRAP_" - PeekServer failed on "_cl.%ClassName(1))   ; PeekServer geeft NEGATIEVE response --> SOAPService niet actief/bereikbaar
-	  d:(blnPeek) WL^vhDBG($G(%PrefixWL)_"PeekServer OK")
+	  ;d:(blnPeek) WL^vhDBG($G(%PrefixWL)_"PeekServer OK")
 	;Do cl.SetLocation($S(locIndx>0:$LG(lbLocs,locIndx),1:""))   ; Only one location, i.e. the default is already set
 	Do cl.SetTimeOut($G(TimeOut,60))
 	Set cl.HttpUsername="uta"
 	Set cl.HttpPassword="uta"
 	If $G(%blnProxy,..#UseProxy)||($G($$$globSettingUseProxy,..#UseProxy)) Do
-	. d WL^vhDBG("Set Proxy")
+	. ;d WL^vhDBG("Set Proxy")
 	. Set cl.HttpProxyServer=$G($$$globSettingUseProxySub("ProxyServer"),..#ProxyServer)
 	. Set cl.HttpProxyPort=$G($$$globSettingUseProxySub("ProxyPort"),..#ProxyPort)
 	Quit $$$OK
@@ -767,9 +767,9 @@
 	Set sc=..PrepareWSClient(ProcSvc,.TimeOut,.blnPeek)
 	Quit:($$$ISERR(sc)) sc
 	  ;d WL^vhDBG("SOAP Client class: "_ProcSvc_$$$CRLF_$$ObjToText^vhLib(ProcSvc))
-	  d WL^vhDBG($G(%PrefixWL)_"Invoke DocBase WS ""fopRes=ProcSvc.doSeededTasks(fopReq)"" ... ")
+	  ;d WL^vhDBG($G(%PrefixWL)_"Invoke DocBase WS ""fopRes=ProcSvc.doSeededTasks(fopReq)"" ... ")
 	Do cwpFopProcessSub()
-	  d WL^vhDBG($G(%PrefixWL)_"Finished DocBase CallWSProcess(); Result: "_$G(fopRes))
+	  ;d WL^vhDBG($G(%PrefixWL)_"Finished DocBase CallWSProcess(); Result: "_$G(fopRes))
 	Quit sc
 cwpFopProcessSub()
 	Set fopRes=""
@@ -942,7 +942,7 @@
 	;New sLog,ResourceID
 	Set $ZTRAP="sfsErrorFeedback"
 	Set blnStatusFailed=($G(Status)=$$$adbResultFAILED)||($G(Status)=$$$adbResultFAILEDlong)
-	Do WLIP^vhDBG(97,$G(%PrefixWL)_"OnSendFOPStatus triggered for "_$G(DocBaseID)_$$$CRLF_"SFS Status="_$S(blnStatusFailed:"F(ailed)", 1:$G(Status)))
+	;Do WLIP^vhDBG(97,$G(%PrefixWL)_"OnSendFOPStatus triggered for "_$G(DocBaseID)_$$$CRLF_"SFS Status="_$S(blnStatusFailed:"F(ailed)", 1:$G(Status)))
 	Set ResourceID=..ResourceNameFromJobID($G(DocBaseID))
 	ZTRAP:(ResourceID="") "NoID"   ; this triggers the error trapping
 	;Quit:(ResourceID="")          ; ZTrap:() causes to quit this method
@@ -959,7 +959,7 @@
 		; Nothing to signal:
 		;  - Async without wait   --> Resource not defined
 		;  - Async wait timed out --> Resource already deleted
-		  Do WL^vhDBG("Resource=UNDEF : "_ResourceID)
+		  ;Do WL^vhDBG("Resource=UNDEF : "_ResourceID)
 		Do sfsAddToTempLog("Resource=UNDEF")
 		; Retry after about 1,5,10 sec, in case of a delayed resource creation.
 		; This should be done in a separate Job/thread.