Index: TECH/BackgroundProcess/ProcessParameters.cls.xml
===================================================================
diff -u
--- TECH/BackgroundProcess/ProcessParameters.cls.xml	(revision 0)
+++ TECH/BackgroundProcess/ProcessParameters.cls.xml	(revision 1130)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.BackgroundProcess.ProcessParameters">
+<Super>TECH.RegisteredObject,vhLib.XMLAdaptor</Super>
+
+<Property name="Parameters">
+<Type>%String</Type>
+<Collection>list</Collection>
+</Property>
+
+<Method name="GeefParametersList">
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.ListUtils).ListToListbuild(..Parameters)
+]]></Implementation>
+</Method>
+
+<Method name="ZetParameterList">
+<FormalSpec>ParametersList:%List</FormalSpec>
+<Implementation><![CDATA[
+	set ..Parameters = ##class(TECH.ListUtils).ListbuildToList(ParametersList)
+	quit
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Background/impl/BackgroundJobAPI.cls.xml
===================================================================
diff -u -r1090 -r1130
--- TECH/Background/impl/BackgroundJobAPI.cls.xml	(.../BackgroundJobAPI.cls.xml)	(revision 1090)
+++ TECH/Background/impl/BackgroundJobAPI.cls.xml	(.../BackgroundJobAPI.cls.xml)	(revision 1130)
@@ -25,9 +25,9 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..BackgroundJobMgr = $get(BackgroundJobMgr, ##class(TECH.Background.impl.BackgroundJobMgr).%New()) 
-	set ..BackgroundJobStarter = $get(BackgroundJobStarter, ##class(TECH.Background.impl.BackgroundJobStarter).%New()) 
-	set ..BackgroundJobStopper = $get(BackgroundJobStopper, ##class(TECH.Background.impl.BackgroundJobStopper).%New()) 
+	set ..BackgroundJobMgr = $$$Implementation(BackgroundJobMgr, ##class(TECH.Background.impl.BackgroundJobMgr).%New()) 
+	set ..BackgroundJobStarter = $$$Implementation(BackgroundJobStarter, ##class(TECH.Background.impl.BackgroundJobStarter).%New()) 
+	set ..BackgroundJobStopper = $$$Implementation(BackgroundJobStopper, ##class(TECH.Background.impl.BackgroundJobStopper).%New()) 
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -57,6 +57,12 @@
 <Implementation><![CDATA[	do ..BackgroundJobStopper.StopBackgroundJob(BackgroundJobID)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBackgroundProcessStarter">
+<ReturnType>TECH.BackgroundProcessStarter</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.impl.BackgroundProcessStarter).%New()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: TECH/impl/BackgroundProcessStarter.cls.xml
===================================================================
diff -u
--- TECH/impl/BackgroundProcessStarter.cls.xml	(revision 0)
+++ TECH/impl/BackgroundProcessStarter.cls.xml	(revision 1130)
@@ -0,0 +1,71 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.impl.BackgroundProcessStarter">
+<Super>TECH.RegisteredObject,TECH.BackgroundProcessStarter</Super>
+
+<Property name="SignalID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="StartProcess">
+<Final>1</Final>
+<FormalSpec>ClassName:%String,Parameters...:%CacheString</FormalSpec>
+<Implementation><![CDATA[
+	do ..ValideerParameters(.Parameters)
+
+	set ..SignalID = "S"_$random(15000000)
+		
+	set ProcessParameters = ##class(TECH.BackgroundProcess.ProcessParameters).%New()
+	set ProcessParameters.Parameters = ##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes(.Parameters)
+	
+	do ..VoerUit(ClassName,ProcessParameters.GeefParametersList())
+]]></Implementation>
+</Method>
+
+<Method name="ValideerParameters">
+<FormalSpec><![CDATA[&Parameters:%CacheString]]></FormalSpec>
+<Implementation><![CDATA[
+	set ParameterIterator = ##class(TECH.ArrayOneDimIterator).%New(.Parameters)
+	while ParameterIterator.HasNext() {
+		if $isObject(ParameterIterator.Next()) {
+			set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Objecten zijn niet ondersteund")
+			do Exception.VoegToeExtraInfo("Enkel datatypes worden ondersteund ( String , Integer , Listbuilds , etc..")
+			do Exception.VoegToeExtraInfo("Geen ListOf...")
+			do ##class(TECH.ExceptionHandler).Throw(Exception)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoerUit">
+<FormalSpec>ClassName:%String,Parameters:%List</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	try {
+		job $classmethod(ClassName,"VoerUit",..BuildRuntimeInfo(),Parameters)
+	} catch {
+		set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("Failed to start background job")
+		do Exception.VoegToeExtraInfo("ClassName : "_ClassName)
+		do Exception.VoegToeExtraInfo("Parameters : "_Parameters)
+		do ##class(TECH.ExceptionHandler).Throw(Exception)	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BuildRuntimeInfo">
+<Private>1</Private>
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[
+	#dim RuntimeInfo As %List = ""
+	set $List(RuntimeInfo,1) = ..SignalID
+	set $List(RuntimeInfo,2) = ##class(TECH.Context.RuntimeContext).Instance().GeefPersonalityID()
+	set $List(RuntimeInfo,3) = ##class(TECH.Context.RuntimeContext).Instance().GeefApplicatie()
+	set $List(RuntimeInfo,4) = ##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerID()
+	quit RuntimeInfo
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r1110 -r1130
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1110)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1130)
@@ -54,7 +54,7 @@
 <FormalSpec>KlasseNaam:%String,Filter:TECH.ClassUtils.PropertyFilter</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	set Filter = $get(Filter,##class(TECH.ClassUtils.PropertyFilter).%New())
+	set Filter = $$$Implementation(Filter,##class(TECH.ClassUtils.PropertyFilter).%New())
 	
 	set List = ##class(%ListOfDataTypes).%New()
 	
Index: TECH/Template.cls.xml
===================================================================
diff -u -r628 -r1130
--- TECH/Template.cls.xml	(.../Template.cls.xml)	(revision 628)
+++ TECH/Template.cls.xml	(.../Template.cls.xml)	(revision 1130)
@@ -2,6 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="TECH.Template">
 <Abstract>1</Abstract>
+<Super>TECH.RegisteredObject</Super>
 </Class>
 
 
Index: TECH/BackgroundProcessStarter.cls.xml
===================================================================
diff -u
--- TECH/BackgroundProcessStarter.cls.xml	(revision 0)
+++ TECH/BackgroundProcessStarter.cls.xml	(revision 1130)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.BackgroundProcessStarter">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="StartProcess">
+<Abstract>1</Abstract>
+<FormalSpec>ClassName:%String,Parameters...:%CacheString</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/BackgroundProcess.cls.xml
===================================================================
diff -u
--- TECH/BackgroundProcess.cls.xml	(revision 0)
+++ TECH/BackgroundProcess.cls.xml	(revision 1130)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.BackgroundProcess">
+<Abstract>1</Abstract>
+<Super>TECH.Template</Super>
+
+<Method name="VoerUit">
+<Final>1</Final>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>RuntimeInfo:%List,Parameters:%List</FormalSpec>
+<Implementation><![CDATA[
+	#dim SignalID As %String = $listget(RuntimeInfo,1)
+	
+	do WLIP^vhDBG(195,"IN : Parameters : "_Parameters)
+	set ProcessParameters = ##class(TECH.BackgroundProcess.ProcessParameters).%New()
+	do ProcessParameters.ZetParameterList(Parameters)
+	
+	do WLIP^vhDBG(195,"IN : "_##class(TECH.ListUtils).ListToPieces(ProcessParameters.Parameters,$$$CRLF))
+
+	try {
+		do ..LoadRuntimeInfo(RuntimeInfo)
+		do ..Verwerk(ProcessParameters.Parameters)
+	} catch {
+		#dim Exception As TECH.Exceptions = ##class(TECH.ExceptionHandler).Catch()
+		do ##class(vhLib.Logger).LogEnMailExceptie(Exception)	
+	}
+	
+	do:##class(%SYSTEM.Event).Defined(SignalID) ##class(%SYSTEM.Event).Signal(SignalID)
+]]></Implementation>
+</Method>
+
+<Method name="Verwerk">
+<Abstract>1</Abstract>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Parameters:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
+</Method>
+
+<Method name="LoadRuntimeInfo">
+<Final>1</Final>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>RuntimeInfo:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID($listget(RuntimeInfo,2))
+	do ##class(TECH.Context.RuntimeContext).Instance().ZetApplicatie($listget(RuntimeInfo,3))
+	do ##class(TECH.Context.RuntimeContext).Instance().ZetGebruikerID($listget(RuntimeInfo,4))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Background/BackgroundJobAPI.cls.xml
===================================================================
diff -u -r1090 -r1130
--- TECH/Background/BackgroundJobAPI.cls.xml	(.../BackgroundJobAPI.cls.xml)	(revision 1090)
+++ TECH/Background/BackgroundJobAPI.cls.xml	(.../BackgroundJobAPI.cls.xml)	(revision 1130)
@@ -25,6 +25,11 @@
 <Abstract>1</Abstract>
 <FormalSpec>BackgroundJobID:%String</FormalSpec>
 </Method>
+
+<Method name="GeefBackgroundProcessStarter">
+<Abstract>1</Abstract>
+<ReturnType>TECH.BackgroundProcessStarter</ReturnType>
+</Method>
 </Class>
 
 
Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r1094 -r1130
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 1094)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 1130)
@@ -17,6 +17,7 @@
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	set List = ##class(%ListOfDataTypes).%New()
+	#dim ctr As %Integer
 	for ctr=1:1:$listlength(Listbuild) do List.Insert($listget(Listbuild,ctr))
 	quit List
 ]]></Implementation>
@@ -40,14 +41,32 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ListToStream">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>List:%ListOfDataTypes</FormalSpec>
+<ReturnType>%Stream</ReturnType>
+<Implementation><![CDATA[
+	set Stream = ##class(%GlobalCharacterStream).%New()
+	
+	set ListIterator = ##class(TECH.ListIterator).%New(List)
+	while ListIterator.HasNext() {
+		#dim Item As %String = ListIterator.Next()
+		#dim Key As %String = ListIterator.Key()
+		do Stream.WriteLine("["_Key_"]")
+		do Stream.WriteLine(Item)
+	}
+	quit Stream
+]]></Implementation>
+</Method>
+
 <Method name="IteratorToPieces">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Iterator:TECH.Iterator,Delim:%String="\"</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Pieces As %String = ""
 	while (Iterator.HasNext() && ($L(Pieces) < 15000)) {
-		set Item = Iterator.Next()
+		#dim Item As %String = Iterator.Next()
 		set Pieces = Pieces _ Item 
 		If Iterator.HasNext() {
 			Set Pieces = Pieces_Delim
Index: TECH/Background/impl/BackgroundJobStarter.cls.xml
===================================================================
diff -u -r1124 -r1130
--- TECH/Background/impl/BackgroundJobStarter.cls.xml	(.../BackgroundJobStarter.cls.xml)	(revision 1124)
+++ TECH/Background/impl/BackgroundJobStarter.cls.xml	(.../BackgroundJobStarter.cls.xml)	(revision 1130)
@@ -54,7 +54,7 @@
 <FormalSpec>BackgroundJobID:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit $$$BackgroundJobGlobal(BackgroundJobID)= $$$BackgroundJobStarted
+<Implementation><![CDATA[	quit $get($$$BackgroundJobGlobal(BackgroundJobID))= $$$BackgroundJobStarted
 ]]></Implementation>
 </Method>
 </Class>