VPR PATIENT EMPLOYER (76) ENTITY (1.5)

Name	Value
NAME	VPR PATIENT EMPLOYER
DEFAULT FILE NUMBER	2
DATA MODEL	SDA
DISPLAY NAME	SupportContact
ITEM	Name SEQUENCE: 2 ITEM TYPE: ENTITY FILE NUMBER: 2 FIELD NUMBER: .3111 ENTITY: VPR NAME GET ACTION: S VALUE=$G(VAOA(9)) Address SEQUENCE: 6 ITEM TYPE: ENTITY FILE NUMBER: 2 ENTITY: VPR PATIENT EMPLOYER ADDRESS GET ACTION: S VALUE=DIEN ContactInfo SEQUENCE: 7 ITEM TYPE: COMPLEX GROUP COMPLEX TYPE: COMPLEX ITEM SEQUENCE: 3 COMPLEX ITEM NAME: WorkPhoneNumber WorkPhoneNumber ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 FIELD NUMBER: .3119 GET ACTION: S VALUE=$G(VAOA(8)) Relationship SEQUENCE: 8 ITEM TYPE: ENTITY FILE NUMBER: 2 ENTITY: VPR CODE ONLY GET ACTION: S VALUE="EMPLOYER" ContactType SEQUENCE: 9 ITEM TYPE: ENTITY FILE NUMBER: 2 ENTITY: VPR CODE TABLE GET ACTION: S VALUE="EMP^Employer" 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 employer.
GET ENTRY ACTION	S VAOA("A")=5,DFN=DIEN D OAD^VADPT
GET EXIT ACTION	K VAOA