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
