Index: TECH/impl/BackgroundProcessStarter.cls.xml
===================================================================
diff -u -r1130 -r1171
--- TECH/impl/BackgroundProcessStarter.cls.xml	(.../BackgroundProcessStarter.cls.xml)	(revision 1130)
+++ TECH/impl/BackgroundProcessStarter.cls.xml	(.../BackgroundProcessStarter.cls.xml)	(revision 1171)
@@ -9,56 +9,20 @@
 </Property>
 
 <Method name="StartProcess">
-<Final>1</Final>
-<FormalSpec>ClassName:%String,Parameters...:%CacheString</FormalSpec>
+<FormalSpec>ParameterData:TECH.BackgroundProcess.Data</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 ParameterData.SetRuntimeInfo(..BuildRuntimeInfo())
+	Do ParameterData.Save()
 	
-	do ..VoerUit(ClassName,ProcessParameters.GeefParametersList())
+	Job ##class(TECH.BackgroundProcess).VoerUit(ParameterData.GeefID())
 ]]></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()