PID (28) EMBOSSING DATA (39.2)
Name
Value
NAME
PID
MUMPS CODE
S Y="" I $D(^DPT(DFN,0)),$D(^DPT(DFN,.36)) S Y=$P(^DPT(DFN,.36),"^",3) I Y'="" S Y=$E(Y,1,3)_" "_$E(Y,5,6)_" "_$E(Y,8,$L(Y))
