GET PATIENT2 (56) EXECUTE CODE (62.07)
Name
Value
NAME
GET PATIENT2
EXECUTE CODE
S:'$D(LRDPF) LRDPF=2 S SSN=$S(+LRDPF=2:$E(X,1,3)_"-"_$E(X,4,5)_"-"_$E(X,6,9),1:X),AGE=$S($D(DT)&(DOB?7N):DT-DOB\10000,1:"??")
TYPE
XECUTE
SUBSCRIPT NAME
PT2
