| Name | Value |
|---|---|
| NAME | GET PATIENT |
| EXECUTE CODE | S U="^" X:$D(LRDPF) ^LAB("X","PT1") S:'$D(LRDPF) X=$S($D(^DPT(DFN,0))#2:^(0),$D(^LAB(62.3,DFN,0)):^(0),1:"") S PNM=$P(X,U,1),SEX=$P(X,U,2),SEX=$S(SEX="":"M",1:SEX),DOB=$P(X,U,3),X=$P(X,U,9) X ^LAB("X","PT2") |
| TYPE | XECUTE |
| SUBSCRIPT NAME | PT |