ZIP (7)    EMBOSSING DATA (39.2)

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