RORPTSTATUS (206) FUNCTION (.5)
Name
Value
NAME
RORPTSTATUS
MUMPS CODE
S X=$S(X>0:+$P($G(^RORDATA(798,+X,0)),U),1:0),X=$S(X'>0:9,$P($G(^RORDATA(798.4,X,1)),U,4)>0:2,1:1)
EXPLANATION
Returns patient's status (1-Alive, 2-Dead, 9-Unknown)
