Index: BL/Sys/FOP/SchedulerAbstract.cls.xml
===================================================================
diff -u -r29059 -r66530
--- BL/Sys/FOP/SchedulerAbstract.cls.xml	(.../SchedulerAbstract.cls.xml)	(revision 29059)
+++ BL/Sys/FOP/SchedulerAbstract.cls.xml	(.../SchedulerAbstract.cls.xml)	(revision 66530)
@@ -176,7 +176,7 @@
 	Lock -@("^"_..#ClassNm)                ; unlock
 	Job ClassMethod^vhLib.Thread(..#ClassNm,"Schedule")
 	Set NewPID=$ZCHILD
-	d WLIP^vhDBG(97,"Scheduler started (from $J="_$J_") in New PID "_NewPID)
+	;d WLIP^vhDBG(97,"Scheduler started (from $J="_$J_") in New PID "_NewPID)
 	Hang 1   ; 1 seconde wachten
 	Quit
 ]]></Implementation>
@@ -202,7 +202,7 @@
 cbtHandleBusyTask()
 	; Possible actions:   Send mail / Increase MaxBusyTime / Set Status to $$$qsError / Kill process / Restart Task (?) / Ignore / ...
 	Set msg="Max. Busy Time overschreden: QItem "_QItem.%Id()_" started on "_QItem.Started_" and is running for "_DeltaT_" seconds ("_$$cbtFormatTime(DeltaT)_")"
-	 d WL^vhDBG(msg)
+	 ;d WL^vhDBG(msg)
 	; TO DO:  other actions ...
 	;  *** Kill the running process.  Else, it might run until eternity   :-P
 	If 0 && QItem.ThreadedPID Do
@@ -247,24 +247,24 @@
 <Implementation><![CDATA[
 #define TimeOutWaitNext   30
 	Set $ZTRAP="shdError"
-	  d WLIP^vhDBG(97,"Schedule started. Current process "_$J)
+	  ;d WLIP^vhDBG(97,"Schedule started. Current process "_$J)
 	Quit:('..InitJob())
-	  d WL^vhDBG("InitJob done.")
+	  ;d WL^vhDBG("InitJob done.")
 	Do ..Trigger()   ; bij herstart, controleren wat er in de queue zit.   TO DO !!!
 	Set EndLoop=0
-	  d WL^vhDBG("Going into Loop-mode.")
+	  ;d WL^vhDBG("Going into Loop-mode.")
 	For  Do  Quit:EndLoop
 	. Set Ok=$SYSTEM.Event.Wait($$$ClassEvent("NEXT"),$$$TimeOutWaitNext)
 	. If $$shdCheckSignalledSTOP()  Set EndLoop=1 Quit
 	. Set QItem=..GetNextTask(1)   ; check for free process is included in this method call
-	.   d WL^vhDBG("Next QItem to process: "_$S('$IsObject(QItem):"[NONE]", 1:QItem.%Id()))
+	.   ;d WL^vhDBG("Next QItem to process: "_$S('$IsObject(QItem):"[NONE]", 1:QItem.%Id()))
 	. Quit:('$isObject(QItem))
 	. Do ..ProcessTask(QItem)
 	. Set QItem=""   ; Close Task object
 	. Do ..Trigger() ; Belangrijk om onmiddellijk de volgende op te halen
 	; After loop, clean up objects, resources, ...
 	Do ..TerminateJob()
-	d WL^vhDBG("Scheduler stopped. Current PID process "_$J)
+	;d WL^vhDBG("Scheduler stopped. Current PID process "_$J)
 	Do:($SYSTEM.Event.Defined($$$ClassEvent("STOPPED"))) $SYSTEM.Event.Signal($$$ClassEvent("STOPPED"))
 	Set $ZTRAP=""
 	Quit
@@ -355,10 +355,10 @@
 <Implementation><![CDATA[
 	If (QItem.RunMode=$$$rmInLine)&&($L(QItem.SignalPID))&&(QItem.SignalPID'=$J) Do  Quit
 	. Do:(1) ..PreProcessTask(QItem)
-	.  d WL^vhDBG("InLine task: Signal PID "_QItem.SignalPID_" to start processing (from process "_$J_") .")
+	.  ;d WL^vhDBG("InLine task: Signal PID "_QItem.SignalPID_" to start processing (from process "_$J_") .")
 	. Set Ok=$SYSTEM.Event.Signal(QItem.SignalPID)
 	; Else 
-	  d WL^vhDBG("Start processing Task in current Job "_$J)
+	  ;d WL^vhDBG("Start processing Task in current Job "_$J)
 	Do:(QItem.RunMode'=$$$rmInLine) ..PreProcessTask(QItem)
 	Set blnJobbed=..StartProcessTask(QItem)
 	Do:('blnJobbed) ..PostProcessTask(QItem)   ; (QItem.%Id())
Index: BL/Sys/FOP/DataMgr.cls.xml
===================================================================
diff -u -r55181 -r66530
--- BL/Sys/FOP/DataMgr.cls.xml	(.../DataMgr.cls.xml)	(revision 55181)
+++ BL/Sys/FOP/DataMgr.cls.xml	(.../DataMgr.cls.xml)	(revision 66530)
@@ -102,7 +102,7 @@
 	If $IsObject($G(Doc)) Do
 	. Set:(..OutputAction="")&&(Doc.TransformType="PS") ..OutputAction="PRINT"
 
-	  d WLIP^vhDBG(97,"Init BL.Sys.FOP.DataMgr:  OutputAction="_..OutputAction)
+	  ;d WLIP^vhDBG(97,"Init BL.Sys.FOP.DataMgr:  OutputAction="_..OutputAction)
 	;Set ..Doc=$G(Doc)
 	Quit
 ]]></Implementation>
@@ -258,7 +258,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=""
@@ -277,7 +277,7 @@
 	Else  Do  Quit
 	. Set ..ErrorStatus=$$$ERROR($$$GeneralError,"Foutief type voor BuildProxyFromDoc")
 
-	  d WL^vhDBG("BuildProxyFromDoc  class="_BLClassName_"  method="_BLMethod)
+	  ;d WL^vhDBG("BuildProxyFromDoc  class="_BLClassName_"  method="_BLMethod)
 	Set blProxy=$zobjclassmethod(BLClassName,"Instantiate")   ; ,%this)
 	Do blProxy.InitProxy($$bpdGetProxySettings())   ; Init(...)
 	  ;d WL^vhDBG("Proxy Settings "_$$$LCVT($$ObjectArrayToLB^vhLib(blProxy.ProxySettings)))
Index: BL/Sys/FOP/Test.cls.xml
===================================================================
diff -u -r29059 -r66530
--- BL/Sys/FOP/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ BL/Sys/FOP/Test.cls.xml	(.../Test.cls.xml)	(revision 66530)
@@ -128,7 +128,7 @@
 <ClassMethod>1</ClassMethod>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	  d WLIP^vhDBG(97,"Begin TestDocMultiMail.")
+	  ;d WLIP^vhDBG(97,"Begin TestDocMultiMail.")
 	Set OverrideMailAdres="wv@vanhoecke.be"
 	set OverrideSubject="Subject Override"
 	
@@ -375,13 +375,13 @@
 	;New locIndx
 	set blnPeek=$G(blnPeek,0)   ; ..#UsePeekServer)
 	Set locIndx=$S(blnPeek:cl.PeekSOAPServer("",0,"-DFL-"), 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))
 	If $G(%blnProxy,0) Do
-	. d WL^vhDBG("Set Proxy")
+	. ;d WL^vhDBG("Set Proxy")
 	. Set cl.HttpProxyServer="192.168.1.97"
 	. Set cl.HttpProxyPort=8888	
 	;If $G(%blnProxy,..#UseProxy) Do
@@ -871,8 +871,8 @@
 	Set sc=$$ProxyToXMLStream^vhLib(pxDoc,.DataStream, "DOCS", 0)   ; blnIndentTags=0
 	Quit:($$$ISERR(sc)) sc
 
-	d WL^vhDBG("pxDoc")
-	d WL^vhDBG($$ObjToText^vhLib(pxDoc))
+	;d WL^vhDBG("pxDoc")
+	;d WL^vhDBG($$ObjToText^vhLib(pxDoc))
 
 	;Set scDebug=$$rppStreamToFile()
 
@@ -911,7 +911,7 @@
 <ClassMethod>1</ClassMethod>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	d WLIP^vhDBG(97,"TestSaveStream() ... ")
+	;d WLIP^vhDBG(97,"TestSaveStream() ... ")
 	; Create Test px-object 
 	Set pxDoc=##class(BL.PPS.TBX.sub.pxVHossSlot).%New()
 	Set pxDoc.VolgNr=1
@@ -920,8 +920,8 @@
 	Set pxDoc.PRNr="99999"
 	Set pxDoc.KlantOrdRef="KlantOrdRef"
 	Set pxDoc.KlantProdRef="KlantProdRef"
-	d WL^vhDBG("pxDoc")
-	d WL^vhDBG($$ObjToText^vhLib(pxDoc))
+	;d WL^vhDBG("pxDoc")
+	;d WL^vhDBG($$ObjToText^vhLib(pxDoc))
 
 	; Build XML-stream from pxDoc
 	Set DataStream=##class(%GlobalBinaryStream).%New()   ; %GlobalBinaryStream   ; %GlobalCharacterStream   ;  %FileBinaryStream 
@@ -945,7 +945,7 @@
 	 ;d WL^vhDBG("StreamID="_$$$LCVT(DataStream.GetStreamId()))
 	
 	Set sc=Task.%Save()
-	 d WL^vhDBG("Save Task result="_$$ParseStatus^vhLib(sc))
+	 ;d WL^vhDBG("Save Task result="_$$ParseStatus^vhLib(sc))
 	 ;d WL^vhDBG("StreamID="_$$$LCVT(DataStream.GetStreamId()))
 	 
 	;Set Doc=Task.Docs.GetNext("")
@@ -980,8 +980,6 @@
 <IndexLocation>^BL.Sys.FOP.TestI</IndexLocation>
 <StreamLocation>^BL.Sys.FOP.TestS</StreamLocation>
 <Data name="TestDefaultData">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>%%CLASSNAME</Value>
 </Value>
Index: BL/Sys/FOP/Data.cls.xml
===================================================================
diff -u -r29059 -r66530
--- BL/Sys/FOP/Data.cls.xml	(.../Data.cls.xml)	(revision 29059)
+++ BL/Sys/FOP/Data.cls.xml	(.../Data.cls.xml)	(revision 66530)
@@ -39,7 +39,7 @@
 <Implementation><![CDATA[
 	Set Task.Status=NewStatus
 	Set sc=$S((blnSaveObj)&&($L(Task.%Id())):Task.%Save(), 1:$$$OK)
-	  d WLIP^vhDBG(97,"TaskUpdateStatus : "_NewStatus_"  "_$$ParseStatus^vhLib(sc))
+	  ;d WLIP^vhDBG(97,"TaskUpdateStatus : "_NewStatus_"  "_$$ParseStatus^vhLib(sc))
 	Quit sc
 ]]></Implementation>
 </Method>
@@ -208,7 +208,7 @@
 <Implementation><![CDATA[
 	New (Doc,Type,Data,StreamObj)
 	Set FetchType=$$$UCase(Doc.DataFetchType)
-	  d WL^vhDBG($$ObjToText^vhLib(Doc))
+	  ;d WL^vhDBG($$ObjToText^vhLib(Doc))
 	Set Data=""
 	Set StreamObj=""
 	Set sc=$$$OK
@@ -311,7 +311,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=""
Index: BL/Sys/FOP/WSRequestInfo2.cls.xml
===================================================================
diff -u -r29059 -r66530
--- BL/Sys/FOP/WSRequestInfo2.cls.xml	(.../WSRequestInfo2.cls.xml)	(revision 29059)
+++ BL/Sys/FOP/WSRequestInfo2.cls.xml	(.../WSRequestInfo2.cls.xml)	(revision 66530)
@@ -104,7 +104,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=""
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.
Index: BL/Sys/FOP/Interface.cls.xml
===================================================================
diff -u -r45322 -r66530
--- BL/Sys/FOP/Interface.cls.xml	(.../Interface.cls.xml)	(revision 45322)
+++ BL/Sys/FOP/Interface.cls.xml	(.../Interface.cls.xml)	(revision 66530)
@@ -109,19 +109,19 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set sc=##class(Scheduler).AddTaskToQueue(.Task,.QItemID,.Priority,$$$rmInLine)
-	 d WLIP^vhDBG(97,"InLine : Added task to queue (ID="_Task.%Id()_")")              ;w "InLine: Added task to queue (ID="_Task.%Id()_")",!
-	 d WL^vhDBG($$ParseStatus^vhLib(sc))
+	 ;d WLIP^vhDBG(97,"InLine : Added task to queue (ID="_Task.%Id()_")")              ;w "InLine: Added task to queue (ID="_Task.%Id()_")",!
+	 ;d WL^vhDBG($$ParseStatus^vhLib(sc))
 	Quit:($$$ISERR(sc)) sc
 	Do ##class(Scheduler).Trigger()
-	 d WL^vhDBG("Waiting for Signal from Scheduler to run Task "_Task.%Id())          ;w "Waiting for Signal from Scheduler to run Task "_Task.%Id(),!
+	 ;d WL^vhDBG("Waiting for Signal from Scheduler to run Task "_Task.%Id())          ;w "Waiting for Signal from Scheduler to run Task "_Task.%Id(),!
 	Set Ok=##class(Scheduler).WaitForSignal(TimeOut)
 	If Ok'=1 Do  Quit sc
 	. Set sc=$$$ERROR($$$GeneralError,"Error waiting for signal to start the processing of Task "_Task.%Id()_" OK="_Ok)
 	; Else  Do
-	 d WL^vhDBG("Scheduler triggered QItem "_QItemID_" to run Task "_Task.%Id())      ;w "Scheduler triggered QItem "_QItemID_" to run Task "_Task.%Id(),!
+	 ;d WL^vhDBG("Scheduler triggered QItem "_QItemID_" to run Task "_Task.%Id())      ;w "Scheduler triggered QItem "_QItemID_" to run Task "_Task.%Id(),!
 	Set sc=##class(Scheduler).ProcessTaskViaID(QItemID)
 	;Set sc=##class(Verwerker).GetResult()
-	 d WL^vhDBG("Finished processing Task "_Task.%Id())                               ;w "Finished processing Task "_Task.%Id(),!
+	 ;d WL^vhDBG("Finished processing Task "_Task.%Id())                               ;w "Finished processing Task "_Task.%Id(),!
 	Quit sc
 ]]></Implementation>
 </Method>
@@ -138,17 +138,17 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set sc=##class(Scheduler).AddTaskToQueue(.Task,.QItemID,.Priority,$$$rmThreaded)
-	 d WLIP^vhDBG(97,"Threaded : Added task to queue (ID="_$G(QItemID)_")")           ;w "Threaded: Added task to queue (ID="_$G(QItemID)_")",!
-	 d WL^vhDBG($$ParseStatus^vhLib(sc))
+	 ;d WLIP^vhDBG(97,"Threaded : Added task to queue (ID="_$G(QItemID)_")")           ;w "Threaded: Added task to queue (ID="_$G(QItemID)_")",!
+	 ;d WL^vhDBG($$ParseStatus^vhLib(sc))
 	Quit:($$$ISERR(sc)) sc
 	Do ##class(Scheduler).Trigger()
-	 d WL^vhDBG("Scheduler triggered to run Task "_$G(QItemID)_" in new thread")      ;w "Scheduler triggered to run Task "_$G(QItemID)_" in new thread",!
-	 d WL^vhDBG("Waiting for Signal from Scheduler --> finish Task "_$G(QItemID))     ;w "Waiting for Signal from Scheduler --> finish Task "_$G(QItemID),!
+	 ;d WL^vhDBG("Scheduler triggered to run Task "_$G(QItemID)_" in new thread")      ;w "Scheduler triggered to run Task "_$G(QItemID)_" in new thread",!
+	 ;d WL^vhDBG("Waiting for Signal from Scheduler --> finish Task "_$G(QItemID))     ;w "Waiting for Signal from Scheduler --> finish Task "_$G(QItemID),!
 	Set Ok=##class(Scheduler).WaitForSignal(TimeOut)
 	If Ok'=1 Do  Quit sc
 	. Set sc=$$$ERROR($$$GeneralError,"Error waiting for signal for Finish of Task "_Task.%Id()_" QItem:"_$G(QItemID))
 	; Else  Do
-	 d WL^vhDBG("Finished processing Task "_$G(QItemID))                              ;w "Finished processing Task "_$G(QItemID),!
+	 ;d WL^vhDBG("Finished processing Task "_$G(QItemID))                              ;w "Finished processing Task "_$G(QItemID),!
 	;Set sc=##class(Verwerker).GetResult()
 	Quit sc
 ]]></Implementation>
@@ -183,13 +183,13 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set sc=##class(Scheduler).AddTaskToQueue(.Task,.QItemID,.Priority,$$$rmSync)
-	 d WLIP^vhDBG(97,"Sync: Added task to queue (ID="_$G(QItemID)_")")                w "Sync: Added task to queue (ID="_$G(QItemID)_")",!
-	 d WL^vhDBG($$ParseStatus^vhLib(sc))
+	 ;d WLIP^vhDBG(97,"Sync: Added task to queue (ID="_$G(QItemID)_")")                w "Sync: Added task to queue (ID="_$G(QItemID)_")",!
+	 ;d WL^vhDBG($$ParseStatus^vhLib(sc))
 	Quit:($$$ISERR(sc)) sc
-	 d WL^vhDBG("Start processing Task "_$G(QItemID))                                 w "Start processing Task "_$G(QItemID),!
+	 ;d WL^vhDBG("Start processing Task "_$G(QItemID))                                 w "Start processing Task "_$G(QItemID),!
 	Set sc=##class(Scheduler).ProcessTaskViaID(QItemID)
 	;Set sc=##class(Verwerker).GetResult()
-	 d WL^vhDBG("Finished processing Task "_$G(QItemID))                              w "Finished processing Task "_$G(QItemID),!
+	 ;d WL^vhDBG("Finished processing Task "_$G(QItemID))                              w "Finished processing Task "_$G(QItemID),!
 	Quit sc
 ]]></Implementation>
 </Method>
@@ -207,7 +207,7 @@
 	Set sc=..AddToQueue(Task)
 	If $$$ISERR(sc)&&(sc=$$$ErrorNextOnQueue) Do
 	. ; Could not run task from Queue. Start task immediatly.  [for development stages ONLY ]
-	.  d WL^vhDBG("added to queue, but will need to run directly (sync)")
+	.  ;d WL^vhDBG("added to queue, but will need to run directly (sync)")
 	. Set:($G(%objlasterror)=$$$ErrorNextOnQueue) %objlasterror=""
 	. Set sc=..RunTask(Task)
 	Else  If $$$ISERR(sc) Do