VPR PATIENT ECON ADDRESS (75)    ENTITY (1.5)

• 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

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.