Index: BL/Sys/FOP/DocBase.cls.xml
===================================================================
diff -u -r1074 -r1680
--- BL/Sys/FOP/DocBase.cls.xml	(.../DocBase.cls.xml)	(revision 1074)
+++ BL/Sys/FOP/DocBase.cls.xml	(.../DocBase.cls.xml)	(revision 1680)
@@ -578,6 +578,15 @@
 	Set ResourceID=..ResourceNameFromJobID(JobID)
 	Set sc=$$wufInitResource()
 	Quit:($$$ISERR(sc)) sc
+	
+	// Volgende settings toegevoegd door WimV op 12/07/2011 
+	// Doel: webservice tussen lokale CacheServers en FOP DocBase vlotter te laten verlopen. 
+	// Het configitem "IgnoreWarning..." = 1 op alle lokale CacheServers, want deze ontvangen de FopStatusNotification van de DocBase applicatie niet. 
+	// Om de wachttijden na afhandeling te verkorten, wordt aan de IgnoreWarning de "SnellereFopStatusCheck" gekoppeld.
+	Set IgnoreWarningStatusCompleted=##class(TECH.Config.ConfigMgr).Instance().GetString("BL.Sys.FOP.DocBase_IgnoreWarningStatusCompleted")
+	Set SnellereFopStatusCheck=(''IgnoreWarningStatusCompleted)
+	Set:(SnellereFopStatusCheck)&&(WaitEventTimeOut=10) WaitEventTimeOut=1
+	
 	Do wufAddToTempLog("WaitForSignal")
 	Set Rslt=$$wufRepeatWait(.WaitEventTimeOut)
 	If Rslt=1 Do  Quit sc
@@ -600,7 +609,7 @@
 	. Else  If $$$FopResStatus($$$adbResultCOMPLETED) Do
 	. . Set msg=""
 	. . Set sc=$$$OK
-	. . Do wufSendWarningMail()
+	. . Do:($$$Not(IgnoreWarningStatusCompleted)) wufSendWarningMail()
 	. Else  Do
 	. . Set msg=""
 	. . Set sc=$$$ERROR($$$GeneralError,"No Wakeup signal before the wait event timed out (ResID="""_$G(ResourceID)_""")")
@@ -677,7 +686,7 @@
 	Quit
 wufIncrementTimeOut(evtWaitTimeOut)
 #define TimeOutIsMax(%v)   (evtWaitTimeOut'>%v)
-	Quit:(..#PseudoAsync) $S($$$TimeOutIsMax(1):1.1, evtWaitTimeOut=1.1:2, $$$TimeOutIsMax(2):2.1, evtWaitTimeOut=2.1:3, $$$TimeOutIsMax(3):3.1, $$$TimeOutIsMax(4):5, 1:10)
+	Quit:(..#PseudoAsync)||($G(SnellereFopStatusCheck)=1) $S($$$TimeOutIsMax(1):1.1, evtWaitTimeOut=1.1:2, $$$TimeOutIsMax(2):2.1, evtWaitTimeOut=2.1:3, $$$TimeOutIsMax(3):3.1, $$$TimeOutIsMax(4):5, 1:10)
 	Quit $S($$$TimeOutIsMax(5):10, $$$TimeOutIsMax(10):30, $$$TimeOutIsMax(30):60, 1:120)   ; $$$TimeOutIsMax(60):300, 1:900)
 	;Quit $S($$$TimeOutIsMax(1):5, $$$TimeOutIsMax(10):11, $$$TimeOutIsMax(12):13, $$$TimeOutIsMax(14):15, 1:16)
 	; // Om het verhogen van de timer te testen, moet de flag "AsyncWS-Wait" in de global ^Sys.FOP.Setting() tijdelijk op 1 gezet worden