VPR PATIENT NUMBER (70) ENTITY (1.5)

Name	Value
NAME	VPR PATIENT NUMBER
DATA MODEL	SDA
DISPLAY NAME	PatientNumber
ITEM	Number SEQUENCE: 7 ITEM TYPE: FIXED STRING GET ACTION: S VALUE=$P(VPRNMBR,U) NumberType SEQUENCE: 9 ITEM TYPE: FIXED STRING GET ACTION: S VALUE=$P(VPRNMBR,U,2) Organization SEQUENCE: 8 ITEM TYPE: ENTITY ENTITY: VPR CODE ONLY GET ACTION: S VALUE=$P(VPRNMBR,U,3) ISOAssigningAuthority SEQUENCE: 10 ITEM TYPE: FIXED STRING GET ACTION: S VALUE=$P(VPRNMBR,U,4)
DESCRIPTION	This entity supports VPR PATIENT, and expects the Patient file #2 ien as the ID. It expects a string as the ID in the form: number ^ type ^ organization ^ ISO assigning authority
GET EXIT ACTION	K VPRNMBR
GET ID ACTION	S VPRNMBR=$G(DIEN) S:VPRNMBR="" DDEOUT=1