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)