DOB (11) EMBOSSING DATA (39.2)
Name
Value
NAME
DOB
MUMPS CODE
S (X,Y)="" S:$D(^DPT(DFN,0)) X=$P(^(0),"^",3) F I=4,6,2 S Z=$E(X,I,I+1) S:'Z Z="00" S Y=Y_Z
