Index: APPS/VisiDot/impl/VHossControleurEnd.cls.xml
===================================================================
diff -u -r2047 -r2494
--- APPS/VisiDot/impl/VHossControleurEnd.cls.xml	(.../VHossControleurEnd.cls.xml)	(revision 2047)
+++ APPS/VisiDot/impl/VHossControleurEnd.cls.xml	(.../VHossControleurEnd.cls.xml)	(revision 2494)
@@ -100,6 +100,7 @@
 </Method>
 
 <Method name="BepaalVolledigOntbrekend">
+<Private>1</Private>
 <Implementation><![CDATA[
 	Kill All Merge All=..All
 	Set it=##class(TECH.ArrayIterator).%New(.All)
@@ -131,26 +132,22 @@
 
 <Method name="ControleOntbrekend">
 <FormalSpec>BatchID</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	;w "ControleOntbrekend",!
-
 	Set it=..ProductionHelper.GeefBatchIterator(..BatchID)
 	While it.HasNext()
 	{
 		Set QueueElement=it.Next()
 		Set QueueHelper=..ProductionHelper.GeefQueueHelper(QueueElement)
 		
 		Set VHossSeqEnZijkant=QueueHelper.GeefVHossSeqEnZijkant()
-		;w "VHossSeqEnZijkant ",VHossSeqEnZijkant,!
 		Set ..All(VHossSeqEnZijkant)=QueueHelper.GeefAndereVHossSeqEnZijkant(VHossSeqEnZijkant)
 		If QueueHelper.GeefFrameID()=""
 		{
-			;w QueueElement.%Id()," NOTcaptured ",VHossSeqEnZijkant,!
 			Set ..NotCaptured(VHossSeqEnZijkant,QueueHelper.GeefVHossSlotNr())=""
 		}
 		Else
 		{
-			;w QueueElement.%Id(),"    captured ",VHossSeqEnZijkant,!
 			Set ..Captured(VHossSeqEnZijkant)=""
 		}
 	}