Index: WS/TBX/DataIOWWWSoap.cls.xml
===================================================================
diff -u -r40580 -r43298
--- WS/TBX/DataIOWWWSoap.cls.xml	(.../DataIOWWWSoap.cls.xml)	(revision 40580)
+++ WS/TBX/DataIOWWWSoap.cls.xml	(.../DataIOWWWSoap.cls.xml)	(revision 43298)
@@ -22,14 +22,25 @@
 <Default>TBX.DataIOWWW</Default>
 </Parameter>
 
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim WebServiceRoot As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("SOAPlib_WebServiceLocationDMZ")
+	set ..Location = ##class(TECH.Files).AppendFile(WebServiceRoot,"WS.TBX.DataIOWWW.cls")
+	quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="PeekServer">
 <Final>1</Final>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
 <SoapBindingStyle>document</SoapBindingStyle>
 <SoapBodyUse>literal</SoapBodyUse>
-<Implementation><![CDATA[ Quit ..WebMethod("PeekServer").Invoke(##this,"http://vhsie.vanhoecke.be/WS.TBX.DataIOWWW.PeekServer")
+<Implementation><![CDATA[ 	Quit ..WebMethod("PeekServer").Invoke(##this,"http://vhsie.vanhoecke.be/WS.TBX.DataIOWWW.PeekServer")
 ]]></Implementation>
 </Method>
 
@@ -42,11 +53,11 @@
 <SoapBindingStyle>document</SoapBindingStyle>
 <SoapBodyUse>literal</SoapBodyUse>
 <Implementation><![CDATA[
- Do ##class(vhLib.Logger).%New().Info("WSOrdToWWW - Out", $$ObjToXML^vhLib(WSOrd)_$$$CRLF_$Get(Opties))
- Set lbResult=..WebMethod("WSOrdToWWW").Invoke(##this,"http://vhsie.vanhoecke.be/WS.TBX.DataIOWWW.WSOrdToWWW",.WSOrd,.SecureKey,.Opties)
- Set $LI(lbResult,4)=$System.Encryption.Base64Decode($LG(lbResult,4))
- Do ##class(vhLib.Logger).%New().Info("WSOrdToWWW - In", $$$LCVT(lbResult))
- Quit lbResult
+	 Do ##class(vhLib.Logger).%New().Info("WSOrdToWWW - Out", $$ObjToXML^vhLib(WSOrd)_$$$CRLF_$Get(Opties))
+	 #dim lbResult As %List = ..WebMethod("WSOrdToWWW").Invoke(##this,"http://vhsie.vanhoecke.be/WS.TBX.DataIOWWW.WSOrdToWWW",.WSOrd,.SecureKey,.Opties)
+	 Set $LI(lbResult,4)=$System.Encryption.Base64Decode($LG(lbResult,4))
+	 Do ##class(vhLib.Logger).%New().Info("WSOrdToWWW - In", $$$LCVT(lbResult))
+	 Quit lbResult
 ]]></Implementation>
 </Method>
 
@@ -59,10 +70,10 @@
 <SoapBindingStyle>document</SoapBindingStyle>
 <SoapBodyUse>literal</SoapBodyUse>
 <Implementation><![CDATA[
- Do ##class(vhLib.Logger).%New().Info("GetWSOrdFromWWW - Out", "WSOrderID="_WSOrderID)
- #dim WSOrd As WS.TBX.Order = ..WebMethod("GetWSOrdFromWWW").Invoke(##this,"http://vhsie.vanhoecke.be/WS.TBX.DataIOWWW.GetWSOrdFromWWW",.WSOrderID,.SecureKey)
- Do ##class(vhLib.Logger).%New().Info("GetWSOrdFromWWW - In ", $$ObjToXML^vhLib(WSOrd))
- Quit WSOrd
+	 Do ##class(vhLib.Logger).%New().Info("GetWSOrdFromWWW - Out", "WSOrderID="_WSOrderID)
+	 #dim WSOrd As WS.TBX.Order = ..WebMethod("GetWSOrdFromWWW").Invoke(##this,"http://vhsie.vanhoecke.be/WS.TBX.DataIOWWW.GetWSOrdFromWWW",.WSOrderID,.SecureKey)
+	 Do ##class(vhLib.Logger).%New().Info("GetWSOrdFromWWW - In ", $$ObjToXML^vhLib(WSOrd))
+	 Quit WSOrd
 ]]></Implementation>
 </Method>
 
@@ -74,7 +85,7 @@
 <WebMethod>1</WebMethod>
 <SoapBindingStyle>document</SoapBindingStyle>
 <SoapBodyUse>literal</SoapBodyUse>
-<Implementation><![CDATA[ Quit ..WebMethod("UpdateWSOrdPropts").Invoke(##this,"http://vhsie.vanhoecke.be/WS.TBX.DataIOWWW.UpdateWSOrdPropts",.WSOrderID,.SecureKey, .ProptName, .ProptValue)
+<Implementation><![CDATA[	 Quit ..WebMethod("UpdateWSOrdPropts").Invoke(##this,"http://vhsie.vanhoecke.be/WS.TBX.DataIOWWW.UpdateWSOrdPropts",.WSOrderID,.SecureKey, .ProptName, .ProptValue)
 ]]></Implementation>
 </Method>
 
@@ -86,20 +97,9 @@
 <WebMethod>1</WebMethod>
 <SoapBindingStyle>document</SoapBindingStyle>
 <SoapBodyUse>literal</SoapBodyUse>
-<Implementation><![CDATA[ Quit ..WebMethod("DeleteWSOrdOnWWW").Invoke(##this,"http://vhsie.vanhoecke.be/WS.TBX.DataIOWWW.DeleteWSOrdOnWWW",.WSOrderID,.SecureKey)
+<Implementation><![CDATA[	 Quit ..WebMethod("DeleteWSOrdOnWWW").Invoke(##this,"http://vhsie.vanhoecke.be/WS.TBX.DataIOWWW.DeleteWSOrdOnWWW",.WSOrderID,.SecureKey)
 ]]></Implementation>
 </Method>
-
-<Method name="%OnNew">
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	set WebServiceRoot = ##class(TECH.Config.ConfigMgr).Instance().GetString("SOAPlib_WebServiceLocationDMZ")
-	set ..Location = ##class(TECH.Files).AppendFile(WebServiceRoot,"WS.TBX.DataIOWWW.cls")
-	quit $$$OK
-]]></Implementation>
-</Method>
 </Class>