Index: APPS/VisiDot/zTryout.cls.xml
===================================================================
diff -u -r1717 -r1753
--- APPS/VisiDot/zTryout.cls.xml	(.../zTryout.cls.xml)	(revision 1717)
+++ APPS/VisiDot/zTryout.cls.xml	(.../zTryout.cls.xml)	(revision 1753)
@@ -8,25 +8,20 @@
 <Super>%RegisteredObject,TECH.Error.ErrorAdaptor</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Method name="it">
+<Method name="Try">
 <Description>
-D ##class(APPS.VisiDot.zTryout).%New().it()</Description>
+D ##class(APPS.VisiDot.zTryout).%New().Try()</Description>
 <Implementation><![CDATA[
-	Set Data=..Import("c:\","Stage_3_After_DUAL_Before_ERP.xml")
-		Set VRRead=Data.VRRead.GetAt(1) 
-		Set Reader=VRRead.Reader.GetAt(1)
-		Set Sequence=Reader.Sequence.GetAt(1)
-		Set Camera=Sequence.Camera.GetAt(2)
-		Set Photo=Camera.Photo.GetAt(1)
-		Set Photo.Detection=""
-	Set it=##class(APPS.VisiDot.impl.VHossLadeIterator).%New(Data)
-		
-	While it.HasNext()
-	{
-		Set Detection=it.Next()
-		;Do Detection.XMLExport()
-		Write !
-	}
+	Set QueueBuilder = ##class(vhUnitTest.APPS.VisiDot.impl.BuildQueue).%New()
+	Do QueueBuilder.Initialize()
+	Set BatchID=QueueBuilder.BuildBatch()
+	Set Capture = ..Import("C:\","VisiDotRead.xml")
+	Quit:Capture=""
+	Set WebService = ##class(WS.VisiDot.OperatorServer).%New()
+	Do WebService.UpdateData(##class(APPS.VisiDot.enu.ActionCodes).VHossRead(), Capture, .ResultDesc, .ProcessedData)
+	
+	w ResultDesc,!
+	Do ProcessedData.XMLExport(,"literal,indent")
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -44,13 +39,13 @@
 	// Begin processing of the XML input
 	Set sc=reader.OpenFile(Dir_FileName)
 	
-	If $$$ISERR(sc)	do ParseStatus^vhLib(sc) Do WEIP^vhDBG(15,sc,"Openfile: "_Dir_FileName) ;AddErrorToLog^BL.EC.Common("VISIDOT", "Diverse", sc,"Openfile: "_Dir_FileName) Quit ""
+	If $$$ISERR(sc)	w $$ParseStatus^vhLib(sc),!  q ""  ;Do WEIP^vhDBG(15,sc,"Openfile: "_Dir_FileName) Quit "" ;AddErrorToLog^BL.EC.Common("VISIDOT", "Diverse", sc,"Openfile: "_Dir_FileName) Quit ""
 
 	Do reader.Correlate("Capture_Info","APPS.VisiDot.dto.CaptureInfo") ;Associate a class name with the XML element name
 	
-	Quit:'reader.Next(.CaptureInfo,.sc)
+	Set result=reader.Next(.CaptureInfo,.sc)
 
-	Quit:$$$ISERR(sc) ""
+	If $$$ISERR(sc) w $$ParseStatus^vhLib(sc),!  q ""
 	Quit $G(CaptureInfo)
 ]]></Implementation>
 </Method>