%RegisteredObject 0 #UNDEF# 1 code P1:%String,P2:%String,P3:%String,P4:%String,P5:%String %String wordt <"Param1","Param2"> New Loop,Stop Set Stop=0 For Loop=$L(ParamStr):-1:0 Do Quit:(Stop) . If $E(ParamStr,Loop)'="," Do .. Set Stop=1 Set ParamStr=$E(ParamStr,1,Loop) Quit ParamStr ]]> 1 code ClassName:%String,MethodName:%String,P1:%String,P2:%String,P3:%String,P4:%String,P5:%String %String ",1)_">",1:Result) ClassMethod(ClassName,Method,P1,P2,P3,P4,P5) Set NrOfParam=0 For i=1:1:5 Do . If @("P"_i)=..#UNDEFINEDSTR Kill @("P"_i) . Else Set NrOfParam=i w NrOfParam,! Quit:(NrOfParam=0) $zobjclassmethod(ClassName,Method) Quit:(NrOfParam=1) $zobjclassmethod(ClassName,Method,.P1) Quit:(NrOfParam=2) $zobjclassmethod(ClassName,Method,.P1,.P2) Quit:(NrOfParam=3) $zobjclassmethod(ClassName,Method,.P1,.P2,.P3) Quit:(NrOfParam=4) $zobjclassmethod(ClassName,Method,.P1,.P2,.P3,.P4) Quit:(NrOfParam=5) $zobjclassmethod(ClassName,Method,.P1,.P2,.P3,.P4,.P5) Quit "NrOfParams out of bounds" ]]> 1 code Routine:%String,P1:%String,P2:%String,P3:%String,P4:%String,P5:%String %String 1 code CodeStr:%String %String