go to post Christian Berger · Jan 26 207... 😒 197 if we can get rid of phrase and change return to short quit ClassMethod ToKeyPad(phrase) As %String { S t=$ZCVT(phrase,"U") F i=2:1:9 {F j=1:1:$S("79"[i:4,1:3) S b($C($I(s)+64))=i_j,b(i)=i_j+1} S r="" F i=1:1:$L(t) {S a=$E(t,i) S:a=" " r=r_0 S:"01"[a r=r_a_a F j=1:1:$E($G(b(a)),*) S r=r_$E(b(a))} return r } Certifications & Credly badges:Christian has no Certifications & Credly badges yet.Global Masters badges:Christian has no Global Masters badges yet.Followers:Christian has no followers yet.Following:show all 2Muehleder H.Jochen R.
207... 😒
197 if we can get rid of phrase and change return to short quit
ClassMethod ToKeyPad(phrase) As %String { S t=$ZCVT(phrase,"U") F i=2:1:9 {F j=1:1:$S("79"[i:4,1:3) S b($C($I(s)+64))=i_j,b(i)=i_j+1} S r="" F i=1:1:$L(t) {S a=$E(t,i) S:a=" " r=r_0 S:"01"[a r=r_a_a F j=1:1:$E($G(b(a)),*) S r=r_$E(b(a))} return r }