VPR ICR OBSERVATION (220)    ENTITY (1.5)

• ExternalId
  SEQUENCE:   4
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   9000010.707
  FIELD NUMBER:   .01
  RETURN INTERNAL VALUE:   YES
  GET ACTION:   S VALUE=$G(VPRICR)
• ObservationTime
  SEQUENCE:   8
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   9000010.707
  FIELD NUMBER:   1201
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$G(VPRDT)
• ObservationCode
  SEQUENCE:   9
  ITEM TYPE:   ENTITY
  FILE NUMBER:   920.4
  FIELD NUMBER:   .06
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR CODE TABLE
  OUTPUT TRANSFORM:   S VALUE=VALUE_U_$S(VALUE="C":"CONTRAINDICATION",VALUE="P":"PRECAUTION",VALUE="R":"REFUSAL",1:"UNKNOWN")
  GET ACTION:   S:$G(VPRICR)["920.4" IEN=+$G(VPRICR) I $G(VPRICR)'["920.4" S VALUE="R"
• ObservationValue
  SEQUENCE:   10
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   9000010.707
  FIELD NUMBER:   .01
  GET ACTION:   S VALUE=$P($G(VPRM("CONTRA/REFUSAL")),U,2)
• ObservationCodedValue
  SEQUENCE:   13
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000010.707
  FIELD NUMBER:   .01
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR ICR CONTRAINDICATION
  OUTPUT TRANSFORM:   S:VALUE["920.5" ENTITY=+$O(^DDE("B","VPR ICR REFUSAL",0)) S VALUE=+VALUE
  GET ACTION:   S VALUE=$G(VPRICR)

This entity supports VPR ICR EVENT, populating the VXUObservations
property. It expects VPRICR and the VPRM array defined by VICR^PXPXRM,
called by the GET ID ACTION for each immunization event.