VPR PATIENT IR (194)    ENTITY (1.5)

• IsIndicated
  SEQUENCE:   1
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   2
  FIELD NUMBER:   .32103
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"true",VALUE="Y":"true",1:"false")
  GET ACTION:   S VALUE=+$G(VASV(3))
• RegistrationDate
  SEQUENCE:   2
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   2
  FIELD NUMBER:   .32111
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(VASV(3,1)),U) I VALUE="",'$G(VASV(3)) S DDEOUT=1
• Method
  SEQUENCE:   4
  ITEM TYPE:   ENTITY
  FILE NUMBER:   2
  FIELD NUMBER:   .3212
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR CODE TABLE
  GET ACTION:   S VALUE=$G(VASV(3,2)) I VALUE="",'$G(VASV(3)) S DDEOUT=1

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