ZIP (7) EMBOSSING DATA (39.2)
Name
Value
NAME
ZIP
MUMPS CODE
S Y="" S:$D(^DPT(DFN,.11)) Y=$P(^(.11),"^",6)
