Index: TECH/BackgroundProcess/impl/Parameter/DataTransferObject.cls.xml
===================================================================
diff -u
--- TECH/BackgroundProcess/impl/Parameter/DataTransferObject.cls.xml	(revision 0)
+++ TECH/BackgroundProcess/impl/Parameter/DataTransferObject.cls.xml	(revision 1171)
@@ -0,0 +1,80 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.BackgroundProcess.impl.Parameter.DataTransferObject">
+<Super>%Persistent</Super>
+
+<Property name="Value">
+<Type>%GlobalCharacterStream</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ClassName">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Object:TECH.DataTransferObject=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	if $isObject(Object) do ..SetValue(Object)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GetType">
+<ReturnType>TECH.BackgroundProcess.enu.ParameterType</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.BackgroundProcess.enu.ParameterType).DataTransferObject()
+]]></Implementation>
+</Method>
+
+<Method name="GetValue">
+<ReturnType>TECH.DataTransferObject</ReturnType>
+<Implementation><![CDATA[
+	#dim Object As TECH.DataTransferObject
+	
+	Set XMLReader = ##class(%XML.Reader).%New()
+	Do XMLReader.OpenStream(..Value)
+	Do XMLReader.Correlate("DATA",..ClassName) 
+	Do XMLReader.Next(.Object)
+
+	quit Object
+]]></Implementation>
+</Method>
+
+<Method name="SetValue">
+<FormalSpec>Object:TECH.DataTransferObject</FormalSpec>
+<Implementation><![CDATA[
+	set ..ClassName = Object.%ClassName(1)
+	set Stream = ##class(%GlobalCharacterStream).%New()
+	do Object.XMLExportToStream(.Stream,"DATA")
+	set ..Value = Stream
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^TECH.Backg2E35.DataTransfe59C6D</DataLocation>
+<DefaultData>DataTransferObjectDefaultData</DefaultData>
+<IdLocation>^TECH.Backg2E35.DataTransfe59C6D</IdLocation>
+<IndexLocation>^TECH.Backg2E35.DataTransfe59C6I</IndexLocation>
+<StreamLocation>^TECH.Backg2E35.DataTransfe59C6S</StreamLocation>
+<Data name="DataTransferObjectDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Value</Value>
+</Value>
+<Value name="3">
+<Value>ClassName</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: TECH/BackgroundProcess/impl/Parameter/DataType.cls.xml
===================================================================
diff -u
--- TECH/BackgroundProcess/impl/Parameter/DataType.cls.xml	(revision 0)
+++ TECH/BackgroundProcess/impl/Parameter/DataType.cls.xml	(revision 1171)
@@ -0,0 +1,64 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.BackgroundProcess.impl.Parameter.DataType">
+<Super>TECH.BackgroundProcess.impl.Parameter</Super>
+
+<Property name="Value">
+<Type>%DataType</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Value:%DataType=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	do ..SetValue(Value)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GetType">
+<ReturnType>TECH.BackgroundProcess.enu.ParameterType</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.BackgroundProcess.enu.ParameterType).DataType()
+]]></Implementation>
+</Method>
+
+<Method name="GetValue">
+<ReturnType>%DataType</ReturnType>
+<Implementation><![CDATA[	quit ..Value
+]]></Implementation>
+</Method>
+
+<Method name="SetValue">
+<FormalSpec>Value:%DataType</FormalSpec>
+<Implementation><![CDATA[	set ..Value = Value
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<DataLocation>^TECH.BackgroundPr2E35.DataTypeD</DataLocation>
+<DefaultData>DataTypeDefaultData</DefaultData>
+<IdLocation>^TECH.BackgroundPr2E35.DataTypeD</IdLocation>
+<IndexLocation>^TECH.BackgroundPr2E35.DataTypeI</IndexLocation>
+<State>DataTypeState</State>
+<StreamLocation>^TECH.BackgroundPr2E35.DataTypeS</StreamLocation>
+<Data name="DataTypeDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+</Data>
+<Data name="DataTypeState">
+<Subscript>"DataType"</Subscript>
+<Value name="1">
+<Value>Value</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
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()
Index: TECH/BackgroundProcess/impl/Parameter/ArrayOfDataTypes.cls.xml
===================================================================
diff -u
--- TECH/BackgroundProcess/impl/Parameter/ArrayOfDataTypes.cls.xml	(revision 0)
+++ TECH/BackgroundProcess/impl/Parameter/ArrayOfDataTypes.cls.xml	(revision 1171)
@@ -0,0 +1,70 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.BackgroundProcess.impl.Parameter.ArrayOfDataTypes">
+<Super>TECH.BackgroundProcess.impl.Parameter</Super>
+
+<Property name="Value">
+<Type>%List</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Array:%ArrayOfDataTypes=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	if $isObject(Array) do ..SetValue(Array)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GetType">
+<ReturnType>TECH.BackgroundProcess.enu.ParameterType</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.BackgroundProcess.enu.ParameterType).ArrayOfDataTypes()
+]]></Implementation>
+</Method>
+
+<Method name="GetValue">
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set Array = ##class(%ArrayOfDataTypes).%New()
+	
+	set ValueIterator = ##class(TECH.ListbuildIterator).%New(..Value)
+	while ValueIterator.HasNext() {
+		#dim Value As %List = ValueIterator.Next()
+		do Array.SetAt($listget(Value,2),$listget(Value,1))
+		
+	}
+	
+	quit Array
+]]></Implementation>
+</Method>
+
+<Method name="SetValue">
+<FormalSpec>Array:%ArrayOfDataTypes</FormalSpec>
+<Implementation><![CDATA[
+	set ArrayIterator = ##class(TECH.ListIterator).%New(Array)
+	while ArrayIterator.HasNext() {
+		#dim Next As %String = ArrayIterator.Next()
+		#dim Key As %String = ArrayIterator.Key()
+		set ..Value = ..Value_$listbuild($listbuild(Key,Next))
+	}
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>ArrayOfDataTypesState</State>
+<Data name="ArrayOfDataTypesState">
+<Subscript>"ArrayOfDataTypes"</Subscript>
+<Value name="1">
+<Value>Value</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: TECH/BackgroundProcess.cls.xml
===================================================================
diff -u -r1152 -r1171
--- TECH/BackgroundProcess.cls.xml	(.../BackgroundProcess.cls.xml)	(revision 1152)
+++ TECH/BackgroundProcess.cls.xml	(.../BackgroundProcess.cls.xml)	(revision 1171)
@@ -7,30 +7,50 @@
 <Method name="VoerUit">
 <Final>1</Final>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>RuntimeInfo:%List,Parameters:%List</FormalSpec>
+<FormalSpec>DataID:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim SignalID As %String = $listget(RuntimeInfo,1)
+	#dim Data As TECH.BackgroundProcess.Data = ##class(TECH.BackgroundProcess.impl.Data).OpenId(DataID)
+	#dim SignalID As %String = Data.GetSignalID()
 	
-	set ProcessParameters = ##class(TECH.BackgroundProcess.ProcessParameters).%New()
-	do ProcessParameters.ZetParameterList(Parameters)
-
 	try {
-		do ..LoadRuntimeInfo(RuntimeInfo)
-		do ..Verwerk(ProcessParameters.Parameters)
+		#dim ClassName As %String = Data.GetClassName()
+		#dim MethodName As %String = Data.GetMethod()
+	
+		set ParameterIterator = ##class(TECH.ListIterator).%New(Data.GetParameters())
+		#dim ParameterCount As Integer = 0
+		while ParameterIterator.HasNext() {
+			set ParameterCount = ParameterCount + 1
+			#dim Parameter As TECH.BackgroundProcess.Parameter = ParameterIterator.Next()
+			set @("Param"_ParameterCount) = Parameter.GetValue()
+		}
+		
+		#dim Code As %String = ..BuildCode(Data.GetClassName(),Data.GetMethod(),ParameterCount)
+		
+		Do ..LoadRuntimeInfo(Data.GetRuntimeInfo())
+		XECUTE Code
+		
 	} 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>
+<Method name="BuildCode">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Parameters:%ListOfDataTypes</FormalSpec>
-<Private>1</Private>
+<FormalSpec>ClassName:%String,MethodName:%String,ParameterCount:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	#dim Counter As %Integer
+	#dim Code = "do ##class("_ClassName_")."_MethodName_"("
+		
+	for Counter = 1 : 1 : ParameterCount {
+		set Code = Code _ "Param"_Counter
+		set:(Counter'=ParameterCount) Code = Code _ ","
+	}
+	set Code = Code_")"
+	quit Code
+]]></Implementation>
 </Method>
 
 <Method name="LoadRuntimeInfo">
Index: TECH/BackgroundProcess/Data.cls.xml
===================================================================
diff -u
--- TECH/BackgroundProcess/Data.cls.xml	(revision 0)
+++ TECH/BackgroundProcess/Data.cls.xml	(revision 1171)
@@ -0,0 +1,84 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.BackgroundProcess.Data">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="SetClassName">
+<Abstract>1</Abstract>
+<FormalSpec>ClassName:%String</FormalSpec>
+</Method>
+
+<Method name="GetClassName">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="GetParameters">
+<Abstract>1</Abstract>
+<ReturnType>%ListOfObjects</ReturnType>
+</Method>
+
+<Method name="SetMethod">
+<Abstract>1</Abstract>
+<FormalSpec>Method:%String</FormalSpec>
+</Method>
+
+<Method name="GetMethod">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="GetRuntimeInfo">
+<Abstract>1</Abstract>
+<ReturnType>%List</ReturnType>
+</Method>
+
+<Method name="SetRuntimeInfo">
+<Abstract>1</Abstract>
+<FormalSpec>RunTimeInfo:%List</FormalSpec>
+</Method>
+
+<Method name="GeefID">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="VoegToeDataType">
+<Abstract>1</Abstract>
+<FormalSpec>Value:%String</FormalSpec>
+</Method>
+
+<Method name="VoegToeListOfObjects">
+<Abstract>1</Abstract>
+<FormalSpec>List:%ListOfObjects</FormalSpec>
+</Method>
+
+<Method name="VoegToeArrayOfObjects">
+<Abstract>1</Abstract>
+<FormalSpec>Array:%ArrayOfObjects</FormalSpec>
+</Method>
+
+<Method name="VoegToeDataTranferObject">
+<Abstract>1</Abstract>
+<FormalSpec>Object:TECH.DataTransferObject</FormalSpec>
+</Method>
+
+<Method name="VoegToeListOfDataTypes">
+<Abstract>1</Abstract>
+<FormalSpec>List:%ListOfDataTypes</FormalSpec>
+</Method>
+
+<Method name="VoegToeArrayOfDataTypes">
+<Abstract>1</Abstract>
+<FormalSpec>Array:%ArrayOfDataTypes</FormalSpec>
+</Method>
+
+<Method name="VoegToeStream">
+<Abstract>1</Abstract>
+<FormalSpec>Stream:%Stream</FormalSpec>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/BackgroundProcess/enuVerwerker/ParameterType.cls.xml
===================================================================
diff -u
--- TECH/BackgroundProcess/enuVerwerker/ParameterType.cls.xml	(revision 0)
+++ TECH/BackgroundProcess/enuVerwerker/ParameterType.cls.xml	(revision 1171)
@@ -0,0 +1,81 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.BackgroundProcess.enuVerwerker.ParameterType">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Interface</Super>
+
+<Method name="Verwerk">
+<Final>1</Final>
+<FormalSpec>ParameterType:TECH.BackgroundProcess.enu.ParameterType</FormalSpec>
+<Implementation><![CDATA[
+	If ParameterType = "ArrayOfDataTypes" {
+		Do ..VerwerkArrayOfDataTypes()
+	} ElseIf ParameterType = "ArrayOfObjects" {
+		Do ..VerwerkArrayOfObjects()
+	} ElseIf ParameterType = "DataTransferObject" {
+		Do ..VerwerkDataTransferObject()
+	} ElseIf ParameterType = "DataType" {
+		Do ..VerwerkDataType()
+	} ElseIf ParameterType = "ListOfDataTypes" {
+		Do ..VerwerkListOfDataTypes()
+	} ElseIf ParameterType = "ListOfObjects" {
+		Do ..VerwerkListOfObjects()
+	} ElseIf ParameterType = "Stream" {
+		Do ..VerwerkStream()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(ParameterType)
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkArrayOfDataTypes">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkArrayOfObjects">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkDataTransferObject">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkDataType">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkListOfDataTypes">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkListOfObjects">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkStream">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/BackgroundProcess/Parameter.cls.xml
===================================================================
diff -u
--- TECH/BackgroundProcess/Parameter.cls.xml	(revision 0)
+++ TECH/BackgroundProcess/Parameter.cls.xml	(revision 1171)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.BackgroundProcess.Parameter">
+<Super>TECH.Interface</Super>
+
+<Method name="GetType">
+<Abstract>1</Abstract>
+<ReturnType>TECH.BackgroundProcess.enu.ParameterType</ReturnType>
+</Method>
+
+<Method name="GetValue">
+<Abstract>1</Abstract>
+<ReturnType>%CacheString</ReturnType>
+</Method>
+
+<Method name="ZetValue">
+<Abstract>1</Abstract>
+<FormalSpec>Value:%CacheString</FormalSpec>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/BackgroundProcessStarter.cls.xml
===================================================================
diff -u -r1130 -r1171
--- TECH/BackgroundProcessStarter.cls.xml	(.../BackgroundProcessStarter.cls.xml)	(revision 1130)
+++ TECH/BackgroundProcessStarter.cls.xml	(.../BackgroundProcessStarter.cls.xml)	(revision 1171)
@@ -6,7 +6,7 @@
 
 <Method name="StartProcess">
 <Abstract>1</Abstract>
-<FormalSpec>ClassName:%String,Parameters...:%CacheString</FormalSpec>
+<FormalSpec>Data:TECH.BackgroundProcess.Data</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>
Index: TECH/BackgroundProcess/impl/Data.cls.xml
===================================================================
diff -u
--- TECH/BackgroundProcess/impl/Data.cls.xml	(revision 0)
+++ TECH/BackgroundProcess/impl/Data.cls.xml	(revision 1171)
@@ -0,0 +1,182 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.BackgroundProcess.impl.Data">
+<ClassType>persistent</ClassType>
+<Super>TECH.BackgroundProcess.Data,TECH.Persistent</Super>
+
+<Property name="ClassName">
+<Type>%String</Type>
+<Private>1</Private>
+<Parameter name="MAXLEN" value="255"/>
+</Property>
+
+<Property name="Method">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Parameters">
+<Type>TECH.BackgroundProcess.Parameter</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="RuntimeInfo">
+<Type>%List</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Parameters = ##class(%ListOfObjects).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GetParameters">
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ..Parameters
+]]></Implementation>
+</Method>
+
+<Method name="GetClassName">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..ClassName
+]]></Implementation>
+</Method>
+
+<Method name="GetMethod">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Method
+]]></Implementation>
+</Method>
+
+<Method name="GetRuntimeInfo">
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[	Quit ..RuntimeInfo
+]]></Implementation>
+</Method>
+
+<Method name="SetClassName">
+<FormalSpec>ClassName:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..ClassName = ClassName
+]]></Implementation>
+</Method>
+
+<Method name="SetMethod">
+<FormalSpec>Method:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..Method = Method
+]]></Implementation>
+</Method>
+
+<Method name="SetRuntimeInfo">
+<FormalSpec>RunTimeInfo:%List</FormalSpec>
+<Implementation><![CDATA[	Set ..RuntimeInfo = RunTimeInfo
+]]></Implementation>
+</Method>
+
+<Method name="GetSignalID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit "BackgroundProcess"_..GeefID()
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeArrayOfDataTypes">
+<FormalSpec>Array:%ArrayOfDataTypes</FormalSpec>
+<Implementation><![CDATA[
+	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.ArrayOfDataTypes).%New(Array)
+	do ..InsertParameter(Parameter)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeArrayOfObjects">
+<FormalSpec>Array:%ArrayOfObjects</FormalSpec>
+<Implementation><![CDATA[
+	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.ArrayOfObjects).%New(Array)
+	do ..InsertParameter(Parameter)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeDataTranferObject">
+<FormalSpec>Object:TECH.DataTransferObject</FormalSpec>
+<Implementation><![CDATA[
+	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.DataTransferObject).%New(Object)
+	do ..InsertParameter(Parameter)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeDataType">
+<FormalSpec>Waarde:%String</FormalSpec>
+<Implementation><![CDATA[
+	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.DataType).%New(Waarde)
+	do ..InsertParameter(Parameter)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeListOfDataTypes">
+<FormalSpec>List:%ListOfDataTypes</FormalSpec>
+<Implementation><![CDATA[
+	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.ListOfDataTypes).%New(List)
+	do ..InsertParameter(Parameter)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeListOfObjects">
+<FormalSpec>List:%ListOfObjects</FormalSpec>
+<Implementation><![CDATA[
+	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.ListOfObjects).%New(List)
+	do ..InsertParameter(Parameter)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeStream">
+<FormalSpec>Stream:%Stream</FormalSpec>
+<Implementation><![CDATA[
+	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.Stream).%New()
+	do ..InsertParameter(Parameter)
+]]></Implementation>
+</Method>
+
+<Method name="InsertParameter">
+<FormalSpec>Parameter:TECH.BackgroundProcess.impl.Parameter</FormalSpec>
+<Implementation><![CDATA[	do ..Parameters.Insert(Parameter)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^TECH.BackgroundProces42C4.DataD</DataLocation>
+<DefaultData>DataDefaultData</DefaultData>
+<IdLocation>^TECH.BackgroundProces42C4.DataD</IdLocation>
+<IndexLocation>^TECH.BackgroundProces42C4.DataI</IndexLocation>
+<StreamLocation>^TECH.BackgroundProces42C4.DataS</StreamLocation>
+<Data name="DataDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>ClassName</Value>
+</Value>
+<Value name="3">
+<Value>Method</Value>
+</Value>
+<Value name="4">
+<Value>Parameters</Value>
+</Value>
+<Value name="5">
+<Value>RunTimeInfo</Value>
+</Value>
+<Value name="6">
+<Value>RuntimeInfo</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: TECH/BackgroundProcess/enu/ParameterType.cls.xml
===================================================================
diff -u
--- TECH/BackgroundProcess/enu/ParameterType.cls.xml	(revision 0)
+++ TECH/BackgroundProcess/enu/ParameterType.cls.xml	(revision 1171)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.BackgroundProcess.enu.ParameterType">
+<ClassType>datatype</ClassType>
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="VALUELIST">
+<Type>%String</Type>
+<Default>,DataType,ListOfDataTypes,ArrayOfDataTypes,Stream,DataTransferObject,ArrayOfObjects,ListOfObjects</Default>
+</Parameter>
+
+<Method name="DataType">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.BackgroundProcess.enu.ParameterType</ReturnType>
+<Implementation><![CDATA[	quit "DataType"
+]]></Implementation>
+</Method>
+
+<Method name="ListOfDataTypes">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.BackgroundProcess.enu.ParameterType</ReturnType>
+<Implementation><![CDATA[	quit "ListOfDataTypes"
+]]></Implementation>
+</Method>
+
+<Method name="ArrayOfDataTypes">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.BackgroundProcess.enu.ParameterType</ReturnType>
+<Implementation><![CDATA[	quit "ArrayOfDataTypes"
+]]></Implementation>
+</Method>
+
+<Method name="ListOfObjects">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.BackgroundProcess.enu.ParameterType</ReturnType>
+<Implementation><![CDATA[	quit "ListOfObjects"
+]]></Implementation>
+</Method>
+
+<Method name="ArrayOfObjects">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.BackgroundProcess.enu.ParameterType</ReturnType>
+<Implementation><![CDATA[	quit "ArrayOfObjects"
+]]></Implementation>
+</Method>
+
+<Method name="Stream">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.BackgroundProcess.enu.ParameterType</ReturnType>
+<Implementation><![CDATA[	quit "Stream"
+]]></Implementation>
+</Method>
+
+<Method name="DataTransferObject">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.BackgroundProcess.enu.ParameterType</ReturnType>
+<Implementation><![CDATA[	quit "DataTransferObject"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/BackgroundProcess/impl/Parameter/ListOfDataTypes.cls.xml
===================================================================
diff -u
--- TECH/BackgroundProcess/impl/Parameter/ListOfDataTypes.cls.xml	(revision 0)
+++ TECH/BackgroundProcess/impl/Parameter/ListOfDataTypes.cls.xml	(revision 1171)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.BackgroundProcess.impl.Parameter.ListOfDataTypes">
+<Super>TECH.BackgroundProcess.impl.Parameter</Super>
+
+<Property name="Value">
+<Type>%List</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Array:%ArrayOfDataTypes=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	if $isObject(Array) do ..SetValue(Array)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GetType">
+<ReturnType>TECH.BackgroundProcess.enu.ParameterType</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.BackgroundProcess.enu.ParameterType).ListOfDataTypes()
+]]></Implementation>
+</Method>
+
+<Method name="GetValue">
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.ListUtils).ListbuildToList(..Value)
+]]></Implementation>
+</Method>
+
+<Method name="SetValue">
+<FormalSpec>List:%ListOfDataTypes</FormalSpec>
+<Implementation><![CDATA[	set ..Value = ##class(TECH.ListUtils).ListToListbuild(List)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>ListOfDataTypesState</State>
+<Data name="ListOfDataTypesState">
+<Structure>listnode</Structure>
+<Subscript>"ListOfDataTypes"</Subscript>
+<Value name="1">
+<Value>Value</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: TECH/BackgroundProcess/impl/Parameter.cls.xml
===================================================================
diff -u
--- TECH/BackgroundProcess/impl/Parameter.cls.xml	(revision 0)
+++ TECH/BackgroundProcess/impl/Parameter.cls.xml	(revision 1171)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.BackgroundProcess.impl.Parameter">
+<Super>%Library.SerialObject,TECH.BackgroundProcess.Parameter</Super>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<StreamLocation>^TECH.BackgroundP42C4.ParameterS</StreamLocation>
+</Storage>
+</Class>
+
+
+</Export>
Index: TECH/BackgroundProcess/impl/Parameter/Stream.cls.xml
===================================================================
diff -u
--- TECH/BackgroundProcess/impl/Parameter/Stream.cls.xml	(revision 0)
+++ TECH/BackgroundProcess/impl/Parameter/Stream.cls.xml	(revision 1171)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.BackgroundProcess.impl.Parameter.Stream">
+<Super>TECH.BackgroundProcess.impl.Parameter</Super>
+
+<Property name="Value">
+<Type>%GlobalCharacterStream</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Stream:%Stream=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	if $isObject(Stream) do ..SetValue(Stream)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GetType">
+<ReturnType>TECH.BackgroundProcess.enu.ParameterType</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.BackgroundProcess.enu.ParameterType).Stream()
+]]></Implementation>
+</Method>
+
+<Method name="GetValue">
+<ReturnType>%Stream</ReturnType>
+<Implementation><![CDATA[	quit ..Value
+]]></Implementation>
+</Method>
+
+<Method name="SetValue">
+<FormalSpec>Stream:%Stream</FormalSpec>
+<Implementation><![CDATA[	set ..Value = Stream
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>StreamState</State>
+<Data name="StreamState">
+<Subscript>"Stream"</Subscript>
+<Value name="1">
+<Value>Value</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>