Index: vhLib/WebServiceHelper.cls.xml
===================================================================
diff -u
--- vhLib/WebServiceHelper.cls.xml	(revision 0)
+++ vhLib/WebServiceHelper.cls.xml	(revision 360)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhLib.WebServiceHelper">
+<Super>%RegisteredObject</Super>
+
+<Property name="IO">
+<Type>TECH.IO</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeWriteSOAPMessage">
+<Implementation><![CDATA[
+		Set ..IO = ##class(TECH.IO).%New()
+		Do ..IO.Redirect()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterWriteSOAPMessage">
+<FormalSpec>ClassName:%String</FormalSpec>
+<Implementation><![CDATA[
+		Do ..IO.Reset()
+		#dim Stream As %FileCharacterStream = ..IO.GeefStream()
+		while 'Stream.AtEnd {
+			write Stream.Read()
+		}
+		Do ##class(vhLib.WebServiceLogger.LogService).LogStream(Stream,"OUT",ClassName)
+		Do ..IO.KuisOp()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
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>