Например, так:Class App.Test [ Abstract ]
{

Parameter count = 2;

Parameter string = "Hello World!";

ClassMethod Test()
{
  d ..WriteNTimes1(),..WriteNTimes2(),..WriteNTimes3(),..UnrequiredArgs()
}

/// управление через параметры класса
ClassMethod WriteNTimes1() [ CodeMode = objectgenerator ]
{
  For i = 1:1:$G(%parameter("count"),0) {
    Do %code.WriteLine($$$FormatText(" Write %1,!",$$$quote($G(%parameter("string")))))
  }
}

/// управление непосредственно
ClassMethod WriteNTimes2() [ CodeMode = objectgenerator ]
{
  For i = 1:1:4 {
    Do %code.WriteLine($$$FormatText(" Write %1,!",$$$quote(i_" : "_i)))
  }
}

/// управление через глобалы
ClassMethod WriteNTimes3() [ CodeMode = objectgenerator ]
{
  #Execute s ^count=5,^string="test"
  /*
  до компиляции ^count и ^string должны уже содержать нужные значения
  */
  For i = 1:1:$G(^count,0) {
    Do %code.WriteLine($$$FormatText(" Write %1,!",$$$quote($G(^string))))
  }
}

ClassMethod UnrequiredArgs() [ PlaceAfter = WriteNTimes3 ]
{
  #def1arg Log(%args) ##safeexpression("w "_##Quote("Level: ")_","_$li(%literalargs,1)_",!,"_##Quote("Message: ")_","_$s($ll(%literalargs)>1:$li(%literalargs,2),1:##Quote(""))_",!")
  #def1arg Log1(%args) ##safeexpression(##class(App.Test).Log(%literalargs))
  
  $$$Log(0,"It's a message!")
  $$$Log(0)
  $$$Log1(,,,"asd")
  $$$Log1("","",,,,,"asd")
}

ClassMethod Log(list As %List) As %String [ PlaceAfter = UnrequiredArgs ]
{
  s lvl=$li(list,1)
  s msg=$s($ll(list)>1:$li(list,2),1:"")
  s:lvl="" lvl=$$$quote(lvl)
  s:msg="" msg=$$$quote(msg)

  q "w "_##Quote("Level: ")_","_lvl_",!,"_##Quote("Message: ")_","_msg_",!"
}

}Результат компиляции:zTest() public {
  d ..WriteNTimes1(),..WriteNTimes2(),..WriteNTimes3(),..UnrequiredArgs() }
zWriteNTimes1() public {
 Write "Hello World!",!
 Write "Hello World!",! }
zWriteNTimes2() public {
 Write "1 : 1",!
 Write "2 : 2",!
 Write "3 : 3",!
 Write "4 : 4",! }
zWriteNTimes3() public {
 Write "test",!
 Write "test",!
 Write "test",!
 Write "test",!
 Write "test",! }
zUnrequiredArgs() public {
  w "Level: ",0,!,"Message: ","It's a message!",!
  w "Level: ",0,!,"Message: ","",!
  w "Level: ","",!,"Message: ","",!
  w "Level: ","",!,"Message: ","",! }

Например:test.MAC  n a,b,c
  
#Define MyAdd(%a,%b) $$%mmmuMyAdd(%a,%b) ##continue
#IfNDef 0 ##continue
#Define 0 ##continue
  g ##Unique(new) ##continue
%mmmuMyAdd(a,b) {##continue
  q a+b ##continue
} ##continue
##Unique(old) ##continue
#EndIf ##continue
##Lit()

  s a=$$$MyAdd(1,2) w a,!
  s b=$$$MyAdd(2,3) w b,!
  s c=$$$MyAdd(3,4) w c,!

ПримерClass my.a Extends %RegisteredObject
{

/// w ##class(my.a).MyAdd1(1,2)
ClassMethod MyAdd1(
  a,
  b) As %Integer [ CodeMode = generator, PlaceAfter = MyAdd2 ]
{
  $$$GENERATE(" #Define c1 11")
  $$$GENERATE(" Quit a+b+$$$c1+$$$c2")
}

/// w ##class(my.a).MyAdd2(1,2)
ClassMethod MyAdd2(
  a,
  b) As %Integer [ CodeMode = objectgenerator ]
{
  Do %code.WriteLine(" #Define c2 22")
  Do %code.WriteLine(" Quit a+b+$$$c2")
}

}

- Папа, сделай мне iPhone.
По прошествии времени ...
- На, сынок.
- В чём полезность сего деяния? Чем это лучше стандартного iPhone?
- ?!

Вывод: папе раньше нужно было спрашивать: "А тебе это зачем, сынок?"