PRIMER
 n 
 s all="^tmp,^tmp1,^tmp2"
 for i= 1 : 1 :$l(all,",") {
	 d GLB
 }
 q
GLB ; Очередной глобал
 n glb
 s glb=$p(all,",",i)
 if $d(@glb)# 10  {
	 zw @glb
 }
 s glb=$q(@glb)
 while glb'="" {
	 zw @glb
	 s glb=$q(@glb)
 }
 q

PRIMER
 n 
 s name=$o(^$g(""))
 while name'="" {
	 d GLB
	 s name=$o(^$g(name))
 }
 q
GLB ; Очередной глобал
 n glb
 q:$$NoGlb
 s glb=name
 if $d(@glb)#10 {
	 zw @glb
 }
 s glb=$q(@glb)
 while glb'="" {
	 zw @glb
	 s glb=$q(@glb)
 }
 q
NoGlb() ; Эти глобали нафик не нужны...
 ; Тут нужно разместить условия проверки имен глобалов
 q  0