SSN (NO SPACES) (30) EMBOSSING DATA (39.2)
Name
Value
NAME
SSN (NO SPACES)
MUMPS CODE
S Y="" I $D(^DPT(DFN,0)) S Y=$P(^(0),"^",9)