CLAIM (13) EMBOSSING DATA (39.2)
Name
Value
NAME
CLAIM
MUMPS CODE
S Y="" I $D(^DPT(DFN,.31)) S Y=$P(^(.31),"^",3) I Y'="" S:$L(Y)>8 Y="-SSN" S:$L(Y)<9 Y="C"_Y
