VPR PATIENT EMPLOYER ADDRESS (77) ENTITY (1.5)

Name	Value
NAME	VPR PATIENT EMPLOYER ADDRESS
DEFAULT FILE NUMBER	2
DATA MODEL	SDA
DISPLAY NAME	Address
ITEM	Street SEQUENCE: 4 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2 FIELD NUMBER: .3113 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: .3116 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: .3117 RETURN INTERNAL VALUE: YES ENTITY: VPR STATE GET ACTION: S VALUE=$P($G(VAOA(5)),U) Zip SEQUENCE: 7 ITEM TYPE: ENTITY FILE NUMBER: 2 FIELD NUMBER: .3118 ENTITY: VPR CODE ONLY GET ACTION: S VALUE=$G(VAOA(6))
DESCRIPTION	This entity supports VPR PATIENT, and expects the Patient file #2 ien as the ID. It returns the address of the patient's employer.