Great Article David. 

This will be helpful for the system administrator and application implementors to automate their workflow.

Sundara

My try was this :

ClassMethod ToKeyPad(= "E") As %String
{
t=$ZCVT($TR($g(p),"`~!@#$%^&*()_+{}][:;'.,<>/?",""),"U"),s=" 0^1^ABC2^DEF3^GHI4^JKL5^MNO6^PQRS7^TUV8^WXYZ9" i=1:1:$l(t){a=$e(t,i),b=$f(s,a)-1,c=$l($E(s,1,b),"^"),d="",$p(d,c-1,$f($p(s,"^",c),a))="",r=$g(r)_dr
}

The new UI have all the existing features included and easy to handle than the older one. The new UI summaries all in one page for the CCR user.