Index: vhLib/WebService.cls.xml
===================================================================
diff -u -r321 -r360
--- vhLib/WebService.cls.xml	(.../WebService.cls.xml)	(revision 321)
+++ vhLib/WebService.cls.xml	(.../WebService.cls.xml)	(revision 360)
@@ -105,8 +105,8 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set IO = ##class(TECH.IO).%New()
-	Do IO.Redirect()
+	Set WebServiceHelper = ##class(vhLib.WebServiceHelper).%New()
+	Do WebServiceHelper.OnBeforeWriteSOAPMessage()
 	
 	Do body.GetSoapParameters(.bindingStyle,.bodyUse,.namespace,.xmlimportnamespace,.typeNamespace,.oneWay,.xmlelement,.bare)
 	Set headers=..HeadersOut
@@ -172,15 +172,8 @@
 
 	Do ..EndSOAPEnvelope()
 	
-	Do IO.Reset()
-	Set Stream = IO.GeefStream()
-	while 'Stream.AtEnd {
-		write Stream.Read()
-	}	
+	Do WebServiceHelper.OnAfterWriteSOAPMessage(..%ClassName(1))
 	
-	Set ClassName = ..%ClassName(1)
-	Do ##class(vhLib.WebServiceLogger.LogService).LogStream(Stream,"OUT",ClassName)
-	
 	Quit $$$OK
 ]]></Implementation>
 </Method>