VistA Analysis » VistA Reference » RPCs » ORWPT16 ID INFO

ORWPT16 ID INFO

Properties

Property Value
Label IDINFO
MUMPS Implementation ORWPT16
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method IDINFO^ORWPT16
Method Comment Return identifying information for a patient
Input Parameters DFN
First Comment
 PID^DOB^AGE^SEX^SC%^TYPE^WARD^RM-BED^NAME
Code
 N OR0,OR36,OR1,OR101,VAEL,VAERR
S OR0=$G(^DPT(DFN,0)),OR36=$G(^(.36)),OR1=$G(^(.1)),OR101=$G(^(.101))
D ELIG^VADPT
S ORY=$P(OR36,U,3)_U_$P(OR0,U,3)_U_U_$P(OR0,U,2)
S ORY=ORY_U_$P(VAEL(3),U,2)_U_$P(VAEL(6),U,2)_U_$P(OR1,U)_U_$P(OR101,U)
I $P(OR0,U,3) S $P(ORY,U,3)=DT-$P(OR0,U,3)\10000
I '$L($P(ORY,U,1)) D
. S X=$P(OR0,U,9),$P(ORY,U,1)=$E(X,1,3)_"-"_$E(X,4,5)_"-"_$E(X,6,99)
S $P(ORY,U,9)=$P(OR0,U,1)

CPRS

File Type Description
NOT OSEHRA CPRS  


Document generated on August 31st 2022, 2:55:43 pm