TECH.RegisteredObject %Dictionary.ClassDefinition 1 %Dictionary.ClassDefinition 1 svn.Helper 1 1 1 %Status 1 ClassName:%String 1 %Boolean ClassName:%String 1 %Boolean %String Method:%Dictionary.MethodDefinition 1 0:"quit",1:"do") set MethodInfo = ##class(TECH.ClassInfo.MethodDefinition).%New(Method,..Class) #dim itParameters As TECH.Iterator = MethodInfo.GeefParameters() set Parameters = ##class(%ListOfDataTypes).%New() while itParameters.HasNext() { #dim Parameter As TECH.ClassInfo.ParameterDefinition = itParameters.Next() do Parameters.Insert(Parameter.GeefNaam()) } #define TussenQuotes(%v) """"_%v_"""" #dim Line As %String ;set Line = $char(9)_"do ##class(AMF.OmgevingInitieerder).InitieerOmgeving(..SessieID)" ;do AMFMethod.Implementation.WriteLine(Line) #dim ServiceName As %String = ..GeefServiceNaam() set Line = $char(9)_"#dim "_ServiceName _" As "_..Class.Name_"= ..Geef"_ServiceName_"()" do AMFMethod.Implementation.WriteLine(Line) set Line = $char(9)_CacheCommando_" "_ServiceName_"."_Method.Name_"(" #dim ParametersAsString As %String = ##class(TECH.ListUtils).ListToPieces(Parameters,",") if $length(ParametersAsString)>0 set Line = Line _##class(TECH.StringUtils).Replace(ParametersAsString,"&",".") set Line = Line _ ")" do AMFMethod.Implementation.WriteLine(Line) set AMFMethod.SequenceNumber = 999 write !,AMFMethod.%Save() quit ]]> 1 %String ClassName:%String 1 MockClassName:%String,ClassName:%String 1 MockClassName:%String 1 %Dictionary.ClassDefinition SourceCode:%String 1