VPR ICR ADMINISTRATION (219)    ENTITY (1.5)

• AdministeringProvider
  SEQUENCE:   5
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000010.707
  FIELD NUMBER:   1204
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR PROVIDER
  GET ACTION:   S VALUE=$P($G(VPRM("ENC PROVIDER")),U)
• AdministeredAtLocation
  SEQUENCE:   6
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000010.707
  FIELD NUMBER:   .03
  EXTENDED POINTER LKUP:   .22
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR LOCATION
  GET ACTION:   S VALUE=$P($G(VPRVST0),U,22)
• AdministrationStatus
  SEQUENCE:   7
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000010.707
  FIELD NUMBER:   .01
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR CODE TABLE
  OUTPUT TRANSFORM:   S VALUE=$S(VALUE["920.4":"N^NOT ADMINISTERED",VALUE["920.5":"R^REFUSED",1:"")
  GET ACTION:   S VALUE=$P($G(VPRM("CONTRA/REFUSAL")),U)
• RefusalReason
  SEQUENCE:   13
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000010.707
  FIELD NUMBER:   .01
  ENTITY:   VPR TEXT ONLY
  GET ACTION:   N X S X=$G(VPRM("CONTRA/REFUSAL")) S:X["920.5" VALUE=$P(X,U,2) I X["920.4" S DDEOUT=1

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