Index: WS/Transsmart/impl/LoggingTboxServicePort.cls.xml
===================================================================
diff -u -r59489 -r59578
--- WS/Transsmart/impl/LoggingTboxServicePort.cls.xml	(.../LoggingTboxServicePort.cls.xml)	(revision 59489)
+++ WS/Transsmart/impl/LoggingTboxServicePort.cls.xml	(.../LoggingTboxServicePort.cls.xml)	(revision 59578)
@@ -16,11 +16,18 @@
 <Type>%String</Type>
 </Property>
 
+<Method name="ZetLocationVoorOmgeving">
+<FormalSpec>Omgeving:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..Logger.Info(..%ClassName(),"Webservice location zetten voor omgeving " _ Omgeving)
+]]></Implementation>
+</Method>
+
 <Method name="doBooking">
 <FormalSpec>doBooking:WS.Transsmart.tns.doBooking</FormalSpec>
 <ReturnType>WS.Transsmart.tns.getStatusResponse</ReturnType>
 <ReturnTypeParams>XMLNAME="getStatusResponse"</ReturnTypeParams>
 <Implementation><![CDATA[
+	Do ..LogHeaders("Transsmart doBooking headers")	
 	Do ..LogXmlAsStream("Transsmart doBooking request",doBooking)
 	#dim Response as WS.Transsmart.tns.getStatusResponse = ##class(WS.Transsmart.tns.getStatusResponse).%New()
 	Do ..LogXmlAsStream("Transsmart doBooking response",Response)
@@ -64,6 +71,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="LogHeaders">
+<FormalSpec>Actie:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	do ..Logger.Info(Actie _ " url " , ..Location _ $$$CRLF _ "SSLConfiguration :" _ $Select($Length(..SSLConfiguration):..SSLConfiguration,1:"Geen"))
+	
+	Set it = ##class(TECH.ListIterator).%New(..HeadersOut)
+	#dim Header As WS.Transsmart.tns.authentication
+	While(it.HasNext()){
+		Set Header = it.Next()
+		Do ..LogXmlAsStream("Transsmart doBooking headers",Header)	
+	}
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 /*