VPR FACILITY ADDRESS (140)    ENTITY (1.5)

• Street
  SEQUENCE:   4
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   4
  FIELD NUMBER:   1.01
  GET ACTION:   S VALUE=$P($G(VAPA),U)
• City
  SEQUENCE:   5
  ITEM TYPE:   ENTITY
  FILE NUMBER:   4
  FIELD NUMBER:   1.03
  ENTITY:   VPR CODE ONLY
  OUTPUT TRANSFORM:   S VALUE=$E(VALUE,1,50)
  GET ACTION:   S VALUE=$P($G(VAPA),U,2)
• State
  SEQUENCE:   6
  ITEM TYPE:   ENTITY
  FILE NUMBER:   4
  FIELD NUMBER:   .02
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR STATE
  GET ACTION:   Q ;S VALUE=$P($G(VAPA),U,3)
• Zip
  SEQUENCE:   7
  ITEM TYPE:   ENTITY
  FILE NUMBER:   4
  FIELD NUMBER:   1.04
  ENTITY:   VPR CODE ONLY
  GET ACTION:   S VALUE=$P($G(VAPA),U,4)

This entity supports VPR FAMILY DOCTOR, and expects the Institution file #4
ien as the ID.