VPR PATIENT AO (193)    ENTITY (1.5)

• IsIndicated
  SEQUENCE:   1
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   2
  FIELD NUMBER:   .32102
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"true",VALUE="Y":"true",1:"false")
  GET ACTION:   S VALUE=+$G(VASV(2))
• RegistrationDate
  SEQUENCE:   2
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   2
  FIELD NUMBER:   .32107
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(VASV(2,1)),U) I VALUE="",'$G(VASV(2)) S DDEOUT=1
• ExamDate
  SEQUENCE:   3
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   2
  FIELD NUMBER:   .32109
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(VASV(2,2)),U) I VALUE="",'$G(VASV(2)) S DDEOUT=1

This entity supports VPR PATIENT EXTENSION, adding information about the 
patient's exposure to Agent Orange. It expects the VASV array.