Index: APPS/VisiDot/impl/VHossProductionHelper.cls.xml
===================================================================
diff -u -r1717 -r1749
--- APPS/VisiDot/impl/VHossProductionHelper.cls.xml	(.../VHossProductionHelper.cls.xml)	(revision 1717)
+++ APPS/VisiDot/impl/VHossProductionHelper.cls.xml	(.../VHossProductionHelper.cls.xml)	(revision 1749)
@@ -109,7 +109,7 @@
 <Method name="InitCache">
 <FormalSpec>BatchID,VHossSeqNr,VHossZijkant</FormalSpec>
 <Implementation><![CDATA[
-	Set it=..BatchService.GeefQueueIterator(BatchID)
+	Set it=..GeefBatchIterator(BatchID)
 	
 	Set ..QueueLijst=##class(%ListOfObjects).%New()
 	While it.HasNext()
@@ -130,6 +130,7 @@
 		Set QueueHelper=it.Next()
 		Continue:('QueueHelper.IsModified())
 		Set sc=QueueHelper.Save()
+
 		If $$$ISERR(sc) $$$ThrowErrorStatus($$$errSaveFailed,"Queue:"_QueueHelper.GeefID(),sc)
 	}
 ]]></Implementation>
@@ -145,5 +146,11 @@
 <Implementation><![CDATA[	Quit ##class(QueueHelper).%New(QueueElement)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBatchIterator">
+<FormalSpec>BatchID</FormalSpec>
+<Implementation><![CDATA[	Quit ..BatchService.GeefQueueIterator(BatchID)
+]]></Implementation>
+</Method>
 </Class>
 </Export>