Index: WS/VisiDot/OperatorServer.cls.xml
===================================================================
diff -u -r1808 -r1839
--- WS/VisiDot/OperatorServer.cls.xml	(.../OperatorServer.cls.xml)	(revision 1808)
+++ WS/VisiDot/OperatorServer.cls.xml	(.../OperatorServer.cls.xml)	(revision 1839)
@@ -34,6 +34,9 @@
 </UDLText>
 
 <Property name="Controleur">
+<Description>
+Parameter XMLTYPE = "Action";
+Parameter WSADDRESSING = "AUTO";</Description>
 <Type>APPS.VisiDot.Controleur</Type>
 <Private>1</Private>
 </Property>
@@ -54,7 +57,12 @@
 <FormalSpec/>
 <ReturnType>%Integer</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[	Quit 1
+<Implementation><![CDATA[
+	$$$TECHErrorTrapOn
+	Set ComputerNaam = ##class(TECH.Context.RuntimeContext).Instance().GeefComputerNaam()
+	Do ##class(vhLib.Logger).%New("WS.VisiDot").Info("Ping IN", "["_ComputerNaam_"]")
+	$$$TECHErrorTrapOff
+	Quit 1
 ]]></Implementation>
 </Method>
 
@@ -64,8 +72,15 @@
 <FormalSpec><![CDATA[ActionType:APPS.VisiDot.enu.ActionCodes,CaptureInfo:APPS.VisiDot.dto.CaptureInfo(XMLNAME="Capture_Info"),&ResultDesc:%String,&ProcessedData:APPS.VisiDot.dto.CaptureInfo]]></FormalSpec>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
+	$$$TECHErrorTrapOn
+	Set ComputerNaam = ##class(TECH.Context.RuntimeContext).Instance().GeefComputerNaam()
+	Set XML = ""
+	Do CaptureInfo.XMLExportToString(.XML,,"literal")
+	Do ##class(vhLib.Logger).%New("WS.VisiDot").Info("CaptureInfo IN", "["_ComputerNaam_"] "_ActionType_" -> "_XML)
+	
 	Do ..GeefControleur(ActionType,CaptureInfo)
 	Do ..Controleur.UpdateData(.ResultDesc,.ProcessedData)
+	$$$TECHErrorTrapOff
 ]]></Implementation>
 </Method>