Index: TECH/BackgroundProcess/Helper.cls.xml
===================================================================
diff -u
--- TECH/BackgroundProcess/Helper.cls.xml	(revision 0)
+++ TECH/BackgroundProcess/Helper.cls.xml	(revision 3802)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.BackgroundProcess.Helper">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefBackGroundProcessInfo">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Data:TECH.BackgroundProcess.impl.Data</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Info As %String 
+	Set Info = "Inhoud backgroundprocess: "_$$$CRLF_$$$TAB
+	Set Info = Info_"ID: '"_Data.GeefID()_"'"_$$$CRLF_$$$TAB
+	Set Info = Info_"Klassenaam: '"_Data.GetClassName()_"'"_$$$CRLF_$$$TAB
+	Set Info = Info_"Method: '"_Data.GetMethodName()_"'"_$$$CRLF_$$$TAB
+	
+	#dim ParameterList As TECH.BackgroundProcess.impl.ParameterList = Data.GetParameters()
+	#dim i As %Integer = 0
+	
+	While (i < ParameterList.Count()) {
+		#dim Parameter As TECH.BackgroundProcess.impl.Parameter = ParameterList.Next()
+		
+		if ($IsObject(Parameter)) {
+			Set Info = Info_"Parameter "_i_": "_$$$CRLF_$$$TAB_$$$TAB
+			Set Info = Info_"Type: '"_Parameter.GetType()_"'"_$$$CRLF_$$$TAB_$$$TAB
+			Set Info = Info_"Value: '"_Parameter.GetValue()_"'"_$$$CRLF_$$$TAB
+		}
+		
+		Set i = i + 1
+	}
+	
+	Set Info = Info_"Runtime info: "_$$$CRLF_$$$TAB_$$$TAB
+	Set Info = Info_"ApplicatieID: '"_Data.GetRuntimeInfo().ApplicatieID_"'"_$$$CRLF_$$$TAB_$$$TAB
+	Set Info = Info_"GebruikerID: '"_Data.GetRuntimeInfo().GebruikerID_"'"_$$$CRLF_$$$TAB_$$$TAB
+	Set Info = Info_"PersonalityID: '"_Data.GetRuntimeInfo().PersonalityID_"'"_$$$CRLF_$$$TAB_$$$TAB
+	Set Info = Info_"Taal: '"_Data.GetRuntimeInfo().Taal_"'"_$$$CRLF_$$$TAB
+	Set Info = Info_"SignalID: '"_Data.GetSignalID()_"'"_$$$CRLF_$$$CRLF
+	
+	Quit Info
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/BackgroundProcess/Uitvoerder.cls.xml
===================================================================
diff -u -r3801 -r3802
--- TECH/BackgroundProcess/Uitvoerder.cls.xml	(.../Uitvoerder.cls.xml)	(revision 3801)
+++ TECH/BackgroundProcess/Uitvoerder.cls.xml	(.../Uitvoerder.cls.xml)	(revision 3802)
@@ -45,7 +45,10 @@
 		Do ##class(TECH.BackgroundProcess.impl.Data).DeleteId(DataID)
 		
 	} Catch {
-		#dim Exception As TECH.Exceptions = ##class(TECH.ExceptionHandler).Catch()
+		#dim Exception As TECH.Exceptions.GeneralErrorException = ##class(TECH.ExceptionHandler).Catch()
+		#dim ExtraInfoBackgroundProcess As %String = ##class(TECH.BackgroundProcess.Helper).GeefBackGroundProcessInfo(Data)
+		
+		Do Exception.VoegToeExtraInfo(ExtraInfoBackgroundProcess)
 		Do ##class(vhLib.Logger).LogEnMailExceptie(Exception, "voor background process data met ID="_DataID)	
 	}
 	
Index: TECH/impl/BackgroundProcessStarter.cls.xml
===================================================================
diff -u -r3800 -r3802
--- TECH/impl/BackgroundProcessStarter.cls.xml	(.../BackgroundProcessStarter.cls.xml)	(revision 3800)
+++ TECH/impl/BackgroundProcessStarter.cls.xml	(.../BackgroundProcessStarter.cls.xml)	(revision 3802)
@@ -20,7 +20,8 @@
 	Do Data.SetRuntimeInfo(..BuildRuntimeInfo())
 	Do Data.Save()
 	
-	Do ##class(vhLib.Logger).%New().Info("BackgroundProcessStarter", Data.GeefID())
+	#dim BackGroundProcessInfo As %String = ##class(TECH.BackgroundProcess.Helper).GeefBackGroundProcessInfo(Data)
+	Do ##class(vhLib.Logger).%New().Info("BackgroundProcessStarter", BackGroundProcessInfo)
 	
 	Job ##class(TECH.BackgroundProcess).VoerUit(Data.GeefID(), ##class(TECH.Context.RuntimeContext).Instance().GeefSessieID())
 ]]></Implementation>