VPR PATIENT ECON2 (181) ENTITY (1.5)

Name	Value
NAME	VPR PATIENT ECON2
DEFAULT FILE NUMBER	2
DATA MODEL	SDA
DISPLAY NAME	SupportContact
ITEM	Name SEQUENCE: 2 ITEM TYPE: ENTITY FILE NUMBER: 2 FIELD NUMBER: .3311 ENTITY: VPR NAME GET ACTION: S VALUE=$G(VAOA(9)) Address SEQUENCE: 6 ITEM TYPE: ENTITY FILE NUMBER: 2 ENTITY: VPR PATIENT ECON2 ADDRESS GET ACTION: S VALUE=DIEN ContactInfo SEQUENCE: 7 ITEM TYPE: COMPLEX GROUP COMPLEX TYPE: COMPLEX ITEM SEQUENCE: 2 COMPLEX ITEM NAME: HomePhoneNumber COMPLEX ITEM SEQUENCE: 3 COMPLEX ITEM NAME: WorkPhoneNumber HomePhoneNumber ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 FIELD NUMBER: .3319 GET ACTION: S VALUE=$G(VAOA(8)) WorkPhoneNumber ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 FIELD NUMBER: .331011 Relationship SEQUENCE: 8 ITEM TYPE: ENTITY FILE NUMBER: 2 FIELD NUMBER: .3312 ENTITY: VPR TEXT ONLY GET ACTION: S VALUE=$G(VAOA(10)) S:VALUE="" VALUE=$G(VAOA(12)) ContactType SEQUENCE: 9 ITEM TYPE: ENTITY FILE NUMBER: 2 ENTITY: VPR CODE TABLE GET ACTION: S VALUE="ECON^Emergency Contact" PrimaryContact SEQUENCE: 10 ITEM TYPE: FIXED STRING FIXED RESPONSE: false EnteredAt SEQUENCE: 13 ITEM TYPE: ENTITY FILE NUMBER: 2 ENTITY: VPR FACILITY GET ACTION: S VALUE=$G(VASITE) ;default #4 ien
DESCRIPTION	This entity supports VPR PATIENT, and expects the Patient file #2 ien as the ID. It returns the patient's secondary Emergency Contact.
GET ENTRY ACTION	S VAOA("A")=4,DFN=ID D OAD^VADPT
GET EXIT ACTION	K VAOA
GET ID ACTION	S:$G(VAOA(9))="" DDEOUT=1