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:"#dim "_Method.Name_" As "_Method.ReturnType_" = ",1:"do") set Line = $char(9)_$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 Line = $char(9) _"} catch {" do AMFMethod.Implementation.WriteLine(Line) set Line = $char(9)_$char(9) _"#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()" do AMFMethod.Implementation.WriteLine(Line) set Line = $char(9)_$char(9) _"Do ##class(vhLib.Logger).LogExceptie(Exceptie)" do AMFMethod.Implementation.WriteLine(Line) set Line = $char(9)_$char(9) _"Do ##class(TECH.ExceptionHandler).Rethrow(Exceptie)" do AMFMethod.Implementation.WriteLine(Line) set Line = $C(9)_"}" do AMFMethod.Implementation.WriteLine(Line) if $length(Method.ReturnType)>0 { set Line = $char(9)_"quit "_Method.Name do AMFMethod.Implementation.WriteLine(Line) } set AMFMethod.SequenceNumber = 999 write !,AMFMethod.%Save() quit ]]> 1 %String ClassName:%String 1 AMFClassName:%String,ClassName:%String 1 AMFClassName:%String 1 %Dictionary.ClassDefinition SourceCode:%String 1