ToPhone(x)
 n (x)
 s a="abcdefghijklmnopqrstuvwxyz "
 s d=$tr(x,a,"222333444555666777788899990")
 s n=$tr(x,a,"123123123123123123412312341")
 s (y,o)=""
 f i=1:1:$l(d)  s c=$e(d,i)  s:c=o y=y_" "  s o=c  f j=1:1:$e(n,i)  s y=y_c
 q y

ToPhone(x)
 n (x) s (y,o)="" f i=1:1:$l(x) s c=$e(x,i),a=$a(c)-97,z=c]" ",d=a\3+2-("svyz"[c)*z s:d=o y=y_" " s o=d f j=1:1:a-(c]"s")#3+("sz"[c*3)*z+1 s y=y_d
 q y

ClassMethod gluconatV2(x) As %String [ ProcedureBlock = 1 ]
{
 s y="" f i=1:1:$l(x){s c=$e(x,i),a=$a(c)-97-(c]"r")-(c]"y"),z=c]" ",d=a\3+2*z s:d=$e(y,*) y=y_" " f j=1:1:a#3+("sz"[c)*z+1 s y=y_d} q y
}

ClassMethod gluconatV2(x) As %String [ ProcedureBlock = 1 ]
{
 s y="" f i=1:1:$l(x){s c=$e(x,i),a=$a(c)-97-(c]"r")-(c]"y"),z=c]" ",d=a\3+2*z s:d=$e(y,*) y=y_" " f j=0:1:a#3+("sz"[c)*z s y=y_d} q y
}

ClassMethod am(t) As %String [ ProcedureBlock = 1 ]
{
 s s="",a="!""#123ABCQRSabcqrstЃ‚ѓ‘’“”•" f i=1:1:$l(t){s p=$a(a,$a(t,i)-96),j=p\16 s:$e(s,*)=j s=s_" " s s=s_$s(j:$tr($j("",p#16)," ",j),1:0)} q s
}

f i=1:1:$l(t){s p=$a(a,$a(t,i)-96),j=p\16 s:$e(s,*)=j s=s_" " s s=s_$s('j:0,1:$tr($j("",p#16)," ",j))} q s
на
f i=1:1:$l(t){s p=$a(a,$a(t,i)-96),j=p\16#10 s:$e(s,*)=j s=s_" " s s=s_$tr($j("",p#16)," ",j)} q s
или
f i=1:1:$l(t){s p=$a(a,$a(t,i)-96),j=p\16#10 s:$e(s,*)=j s=s_" " f n=1:1:p#16 s s=s_j} q s