Index: zTryout/JBA/ErrorMail.cls.xml
===================================================================
diff -u -r63376 -r63846
--- zTryout/JBA/ErrorMail.cls.xml	(.../ErrorMail.cls.xml)	(revision 63376)
+++ zTryout/JBA/ErrorMail.cls.xml	(.../ErrorMail.cls.xml)	(revision 63846)
@@ -23,6 +23,66 @@
 	Do ..Logger.ErrorMail("Test", "Error = "_ErrorInfo)
 ]]></Implementation>
 </Method>
+
+<Method name="RaiseError">
+<Implementation><![CDATA[
+	try {
+		#dim Data
+		
+		//do ##class(vhLib.Logger).%New().Info("BackgroundProcessUitvoerder","Execute : "_Data.ClassName_" "_Data.MethodName)
+		
+		#dim Class As %Base = $classmethod(Data.ClassName,"%New")
+
+		//do ..ExecuteMethod(Class,Data.MethodName,..Params)
+		
+		//Do ##class(TECH.BackgroundProcess.impl.Data).DeleteId(DataID)
+		
+	} catch {
+		#dim Exception As TECH.Exceptions.GeneralErrorException = ##class(TECH.ExceptionHandler).Catch()
+		
+		Do Exception.VoegToeExtraInfo(..GeefBackGroundProcessInfo())
+		do ##class(vhLib.Logger).LogEnMailExceptie(Exception, "voor background process data met ID=")	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefBackGroundProcessInfo">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Info As %String 
+	Set Info = "Inhoud backgroundprocess: "_$C(9)
+	Set Info = Info_"ID: '"_"123"_"'"_$C(9)
+	Set Info = Info_"Klassenaam: '"_"Niet Van Toepassing"_"'"_$C(9)
+	Set Info = Info_"Method: '"_"Niet Van Toepassing"_"'"_$C(9)
+	
+	//#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()
+		
+		Set Info = Info_Parameter.GetValue()
+		
+		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: "_$C(9)
+	Set Info = Info_"ApplicatieID: '"_$C(9)
+	Set Info = Info_"GebruikerID: '"_$C(9)
+	Set Info = Info_"PersonalityID: '"_"Niet Van Toepassing"_"'"_$C(9)
+	Set Info = Info_"Taal: '"_"Niet Van Toepassing"_"'"_$C(9)
+	Set Info = Info_"SignalID: '"_"Niet Van Toepassing"_"'"
+	
+	Quit Info
+]]></Implementation>
+</Method>
 </Class>