Index: VHSys/Scheduler/QueueItem.cls.xml
===================================================================
diff -u -r29059 -r66130
--- VHSys/Scheduler/QueueItem.cls.xml	(.../QueueItem.cls.xml)	(revision 29059)
+++ VHSys/Scheduler/QueueItem.cls.xml	(.../QueueItem.cls.xml)	(revision 66130)
@@ -103,15 +103,23 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
  	Set:($L(Priority)) sc=..SetPriority($$$qptAuto,Priority)
-	Set InitialStatus=$G(^Sys.FOP.Settings("InitialStatus"),$$$qsWait)
-	 ;d WLIP^vhDBG(97,"InitialStatus:"_InitialStatus)
+	#dim InitialStatus As %String = ..GeefInitialStatus()
 	Set sc=..UpdateStatus(InitialStatus,0)
  	Set ..LogType="B" 	; Basis logging
  	Set ..Created=$H
 	Quit sc
 ]]></Implementation>
 </Method>
 
+<Method name="GeefInitialStatus">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim InitialStatus As %String = $G(^Sys.FOP.Settings("InitialStatus"),$$$qsWait)   ; Global is specifiek voor FOP  :-O 
+	Quit InitialStatus
+]]></Implementation>
+</Method>
+
 <Method name="PostProcessTask">
 <FormalSpec><![CDATA[&Status:%Status]]></FormalSpec>
 <ReturnType>%Status</ReturnType>
@@ -194,11 +202,20 @@
 <FormalSpec>NewStatus:%String,blnSaveObj:%Boolean=1</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-#define StatusBegin(%v)   (%v?1(1$$$qsWait,1$$$qsStarted,1$$$qsBusy))
+	#define StatusBegin(%v)   (%v?1(1$$$qsWait,1$$$qsStarted,1$$$qsBusy))
+	
 	Quit:(..Status=$$$qsSync)&&($$$StatusBegin(NewStatus)) $$$OK   ; Sync : don't set status to Wait, Started or Busy 
-	Set ..Status=NewStatus
+	
+	#dim sc As %Status = ..StatusIsValid(NewStatus)
+	If $$$ISERR(sc) {
+		Do ##class(vhLib.Logger).LogExceptie(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).InvalidEnumerationValue(),"QueueItem error: ongeldige waarde voor QStatus '"_NewStatus_"'.",sc))
+		Set ..Status = ""   ; Dit komt overeen met een fout, want "" (leeg) is een onverwachte status, maar de Obj.%Save() zal dan niet crashen op Status. 
+	}
+	Else {
+		Set ..Status = NewStatus
+	}
+	
 	Set sc=$S((blnSaveObj)&&($L(..%Id())):..%Save(), 1:$$$OK)
-	  d WLIP^vhDBG(..#DebugIP,"QItem.UpdateStatus ($J="_$J_") : "_NewStatus_"  "_$$ParseStatus^vhLib(sc))
 	Quit sc
 ]]></Implementation>
 </Method>