RELIGION (2) EMBOSSING DATA (39.2)
Name
Value
NAME
RELIGION
MUMPS CODE
S Y="" I $D(^DPT(DFN,0)) S X=$P(^(0),"^",8) I X,$D(^DIC(13,X,0)) S Y=$P(^(0),"^",4) S:Y<10 Y="0"_Y
