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