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.

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
}

Great Article David. 

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

Sundara