SVC% (15) EMBOSSING DATA (39.2)
Name
Value
NAME
SVC%
MUMPS CODE
S Y="" S:$D(^DPT(DFN,.3)) Y=$P(^(.3),"^",2) S:Y'="" Y=$E(Y+1000,2,4)
