Index: vhLib/Logger.cls.xml
===================================================================
diff -u -r421 -r503
--- vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 421)
+++ vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 503)
@@ -33,7 +33,16 @@
 <FormalSpec>Exceptie:TECH.Exceptions.Exception</FormalSpec>
 <Implementation><![CDATA[
 	Set Logger = ..%New("Exceptie")
-	Do Logger.ErrorMail(Exceptie.GeefOmschrijving(),Exceptie.ToString())
+	
+	#dim Info As %String = "TrapHandler: "_$ETrap_$C(13,10)
+	Set Info = Info_"Device: "_$I_"  Job: "_$J_$C(13,10)
+	Set Info = Info_"Server: "_##class(TECH.Context.RuntimeContext).Instance().GeefServerNaam()_"  NameSpace: "_$ZU(5)_$C(13,10)
+	Set Info = Info_"GebruikerID: "_##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerID()_$C(13,10)
+	Set Info = Info_"GebruikerInitialen: "_##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen()_$C(13,10)
+	Set Info = Info_"ComputerNaam: "_##class(TECH.Context.RuntimeContext).Instance().GeefComputerNaam()_$C(13,10)
+	Set Info = Info_Exceptie.ToString()
+	
+	Do Logger.ErrorMail(Exceptie.GeefOmschrijving(),Info)
 ]]></Implementation>
 </Method>
 
@@ -114,7 +123,7 @@
 </Method>
 
 <Method name="LogIncomming">
-<FormalSpec>ClassName,Method</FormalSpec>
+<FormalSpec>ClassName:%String,Method:%String</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	quit:$$$Not(##class(%Dictionary.CompiledMethod).%ExistsId(ClassName_"||"_Method))
@@ -130,15 +139,22 @@
 </Method>
 
 <Method name="LogOutgoing">
-<FormalSpec>ClassName,Method,Result</FormalSpec>
+<FormalSpec>ClassName:%String,Method:%String,Result:%RegisteredObject</FormalSpec>
 <Implementation><![CDATA[
 	set Values(Method) = Result
 	do ..LogInfo(Method _ " OUT ",.Values)
 ]]></Implementation>
 </Method>
 
+<UDLText name="T">
+<Content><![CDATA[
+// Values is een Array
+
+]]></Content>
+</UDLText>
+
 <Method name="LogInfo">
-<FormalSpec><![CDATA[Label,&Values]]></FormalSpec>
+<FormalSpec><![CDATA[Label:%String,&Values:%String]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	set Info = ""