VPR PATIENT ECON (74) ENTITY (1.5)

Name	Value
NAME	VPR PATIENT ECON
DEFAULT FILE NUMBER	2
DATA MODEL	SDA
DISPLAY NAME	SupportContact
ITEM	Name SEQUENCE: 2 ITEM TYPE: ENTITY FILE NUMBER: 2 FIELD NUMBER: .331 ENTITY: VPR NAME GET ACTION: S VALUE=$G(VAOA(9)) Address SEQUENCE: 6 ITEM TYPE: ENTITY FILE NUMBER: 2 ENTITY: VPR PATIENT ECON 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: .339 GET ACTION: S VALUE=$G(VAOA(8)) WorkPhoneNumber ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 FIELD NUMBER: .33011 Relationship SEQUENCE: 8 ITEM TYPE: ENTITY FILE NUMBER: 2 FIELD NUMBER: .332 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: true 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 Emergency Contact.
GET ENTRY ACTION	S VAOA("A")=1,DFN=DIEN D OAD^VADPT
GET EXIT ACTION	K VAOA
GET ID ACTION	S:$G(VAOA(9))="" DDEOUT=1