VPR PATIENT ECON ADDRESS (75) ENTITY (1.5)

Name	Value
NAME	VPR PATIENT ECON ADDRESS
DEFAULT FILE NUMBER	2
DATA MODEL	SDA
DISPLAY NAME	Address
ITEM	Street SEQUENCE: 4 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 FIELD NUMBER: .333 GET ACTION: S VALUE=$G(VAOA(1)) I $L(VALUE) N I F I=2,3 S:$L($G(VAOA(I))) VALUE=VALUE_";"_VAOA(I) City SEQUENCE: 5 ITEM TYPE: ENTITY FILE NUMBER: 2 FIELD NUMBER: .336 ENTITY: VPR CODE ONLY OUTPUT TRANSFORM: S VALUE=$E(VALUE,1,50) GET ACTION: S VALUE=$G(VAOA(4)) State SEQUENCE: 6 ITEM TYPE: ENTITY FILE NUMBER: 2 FIELD NUMBER: .337 RETURN INTERNAL VALUE: YES ENTITY: VPR STATE GET ACTION: S VALUE=$S(VAOA("HasCountry")=1:VAOA("Province"),1:$P($G(VAOA(5)),U)) Zip SEQUENCE: 7 ITEM TYPE: ENTITY FILE NUMBER: 2 FIELD NUMBER: .338 ENTITY: VPR CODE ONLY GET ACTION: S VALUE=$S(VAOA("HasCountry")=1:VAOA("PostalCode"),$P($G(VAOA(11)),U,2)'="":$P(VAOA(11),U,2),1:$G(VAOA(6))) Country SEQUENCE: 8 ITEM TYPE: ENTITY FILE NUMBER: 2 FIELD NUMBER: .3306 RETURN INTERNAL VALUE: YES ENTITY: VPR COUNTRY
DESCRIPTION	This entity supports VPR PATIENT, and expects the Patient file #2 ien as the ID. It returns the address of the patient's Emergency Contact.
GET EXIT ACTION	K VPR("ForeignCountryFlag")
GET ID ACTION	D ECON^VPRSDAD(DFN)