GET PATIENT1 (47)    EXECUTE CODE (62.07)

Name Value
NAME GET PATIENT1
EXECUTE CODE Q:LRDPF<1 S X=^DIC(+LRDPF,0,"GL")_DFN_",0)",X=$S($D(@X):@X,1:""),LRWRD=$S($D(^(.1)):$P(^(.1),U,1),1:"")
TYPE XECUTE
SUBSCRIPT NAME PT1