VPR IMM ADMINISTRATION (63)    ENTITY (1.5)

• AdministrationSite
  SEQUENCE:   14
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000010.11
  FIELD NUMBER:   1303
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR IMM SITE
  GET ACTION:   S DATA=$G(VPRM("ADMIN SITE")),VALUE=$P(DATA,U)
• EnteredBy
  SEQUENCE:   1
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000010.11
  FIELD NUMBER:   1206
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR USER
  GET ACTION:   S VALUE=$P($G(VPRM("DOCUMENTER")),U)
• AdministeredAtLocation
  SEQUENCE:   6.1
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000010.11
  FIELD NUMBER:   .03
  EXTENDED POINTER LKUP:   2101
  ENTITY:   VPR TEXT ONLY
  GET ACTION:   S:$G(VPRM("LOCATION")) DDEOUT=1 I '$G(VPRM("LOCATION")),$G(VPRVST) S VALUE=$P($G(^AUPNVSIT(VPRVST,21)),U)
• AdministrationNotes
  SEQUENCE:   4
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   9000010.11
  FIELD NUMBER:   1101
  GET ACTION:   N VPRMKS M VPRMKS=VPRM("REMARKS") S VALUE=$$STRING^VPRD(.VPRMKS) S:VALUE="" DDEOUT=1
• AdministeringProvider
  SEQUENCE:   5
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000010.11
  FIELD NUMBER:   1204
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR PROVIDER
  GET ACTION:   S VALUE=$P($G(VPRM("ENCOUNTER PROVIDER")),U)
• AdministeredAtLocation
  SEQUENCE:   6
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000010.11
  FIELD NUMBER:   .03
  EXTENDED POINTER LKUP:   .22
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR LOCATION
  GET ACTION:   S VALUE=$P($G(VPRM("LOCATION")),U) S:VALUE<1 DDEOUT=1
• AdministrationStatus
  SEQUENCE:   7
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000010.11
  FIELD NUMBER:   .04
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR CODE TABLE
  GET ACTION:   S VALUE=$G(VPRM("SERIES"))
• AdministeredAmount
  SEQUENCE:   8
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   9000010.11
  FIELD NUMBER:   1312
  GET ACTION:   S VALUE=$G(VPRM("DOSE"))
• AdministeredUnits
  SEQUENCE:   9
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   9000010.11
  FIELD NUMBER:   1313
  GET ACTION:   S VALUE=$G(VPRM("DOSE UNITS"))
• LotNumber
  SEQUENCE:   10
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   9000010.11
  FIELD NUMBER:   1207
  EXTENDED POINTER LKUP:   .01
  GET ACTION:   S VALUE=$P($G(VPRM("LOT NUMBER")),U,2)
• ManufacturerName
  SEQUENCE:   12
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   9000010.11
  FIELD NUMBER:   1207
  EXTENDED POINTER LKUP:   .02
  GET ACTION:   S VALUE=$P($G(VPRM("MANUFACTURER")),U,2)
• ExpiryDate
  SEQUENCE:   11
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   9000010.11
  FIELD NUMBER:   1207
  EXTENDED POINTER LKUP:   .09
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$G(VPRM("EXPIRATION DATE"))

This entity supports VPR VACCINATION, populating the Administrations 
property.