| Name | Value |
|---|---|
| NAME | GET PATIENT3 |
| EXECUTE CODE | I LRDPF=2 S SSN=$E(X,10,11)_"-"_$E(X,1,9) S:$T(+0)["LRRP"!($T(+0)["LRMIPSZ") AGE=AGE_" PH #: "_$S($D(^DPT($P(^LR(LRDFN,0),U,3),.13)):$S($P(^DPT($P(^LR(LRDFN,0),U,3),.13),U)'="":$P(^DPT($P(^LR(LRDFN,0),U,3),.13),U),1:"Un |
| TYPE | XECUTE |
| SUBSCRIPT NAME | PT3 |