VPR PATIENT EMPLOYER (76)    ENTITY (1.5)

• 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

This entity supports VPR PATIENT, and expects the Patient file #2 ien
as the ID. It returns the patient's employer.