SSN (8)    EMBOSSING DATA (39.2)

Name Value
NAME SSN
MUMPS CODE S Y="" I $D(^DPT(DFN,0)) S Y=$P(^(0),"^",9) I Y'="" S Y=$E(Y,1,3)_" "_$E(Y,4,5)_" "_$E(Y,6,9)