Index: TECH/BackgroundProcess/Uitvoerder.cls.xml
===================================================================
diff -u -r2940 -r2941
--- TECH/BackgroundProcess/Uitvoerder.cls.xml (.../Uitvoerder.cls.xml) (revision 2940)
+++ TECH/BackgroundProcess/Uitvoerder.cls.xml (.../Uitvoerder.cls.xml) (revision 2941)
@@ -37,22 +37,11 @@
do ..LoadRuntimeInfo(Data.GetRuntimeInfo())
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)
- if ..Params.Count() = 0 {
- do $method(Class,Data.MethodName)
- } elseif ..Params.Count() = 1 {
- do $method(Class,Data.MethodName,..Params.GetAt(1))
- } elseif ..Params.Count() = 2 {
- do $method(Class,Data.MethodName,..Params.GetAt(1),..Params.GetAt(2))
- } elseif ..Params.Count() = 3 {
- do $method(Class,Data.MethodName,..Params.GetAt(1),..Params.GetAt(2),..Params.GetAt(3))
- } elseif ..Params.Count() = 4 {
- do $method(Class,Data.MethodName,..Params.GetAt(1),..Params.GetAt(2),..Params.GetAt(3),..Params.GetAt(4))
- } elseif ..Params.Count() = 5 {
- do $method(Class,Data.MethodName,..Params.GetAt(1),..Params.GetAt(2),..Params.GetAt(3),..Params.GetAt(4),..Params.GetAt(5))
- }
-
Do ##class(TECH.BackgroundProcess.impl.Data).DeleteId(DataID)
} catch {
@@ -65,6 +54,26 @@
]]>
+
+Class:%Base,MethodName:%String,Params:%ListOfDataTypes
+1
+
+
+
Data:TECH.BackgroundProcess.Data
1