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