VPR VACCINATION (59)    ENTITY (1.5)

• FillerId
  SEQUENCE:   3
  ITEM TYPE:   ID
  FILE NUMBER:   9000010.11
• Administrations
  SEQUENCE:   53
  ITEM TYPE:   LIST
  ENTITY:   VPR IMM ADMINISTRATION
  LIST TYPE:   ARRAY
  XML NAME:   Administration
  GET ACTION:   S DLIST(1)=DIEN
• EncounterNumber
  SEQUENCE:   61
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   9000010.11
  FIELD NUMBER:   .03
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S:'$D(^AUPNVSIT(VALUE,0)) VALUE=""
  GET ACTION:   S VALUE=$G(VPRM("VISIT"))
• ToTime
  SEQUENCE:   34
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   9000010.11
  FIELD NUMBER:   1201
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$G(VPRDT) S:VALUE<1 DDEOUT=1
• Extension
  SEQUENCE:   62
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000010.11
  ENTITY:   VPR IMM EXTENSION
  GET ACTION:   S VALUE=DIEN
• ExternalId
  SEQUENCE:   60
  ITEM TYPE:   ID
• MaxDoseQuantity
  SEQUENCE:   43
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   9000010.11
  FIELD NUMBER:   .01
  EXTENDED POINTER LKUP:   .05
  RETURN INTERNAL VALUE:   YES
  GET ACTION:   S VALUE=$P($G(VPRM("MAX # IN SERIES")),U)
• OrderedBy
  SEQUENCE:   8
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000010.11
  FIELD NUMBER:   1202
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR PROVIDER
  GET ACTION:   S VALUE=$P($G(VPRM("ORDERING PROVIDER")),U)
• Comments
  SEQUENCE:   21
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   9000010.11
  FIELD NUMBER:   81101
  GET ACTION:   S VALUE=$G(VPRM("COMMENTS"))
• EnteredBy
  SEQUENCE:   30
  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)
• EnteredAt
  SEQUENCE:   31
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000010.11
  FIELD NUMBER:   .03
  EXTENDED POINTER LKUP:   .06
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR FACILITY
  GET ACTION:   S VALUE=$P($G(VPRM("FACILITY")),U) S:VALUE<1 VALUE=$$SITE^VPRSDA
• EnteredOn
  SEQUENCE:   32
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   9000010.11
  FIELD NUMBER:   1205
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$G(VPRM("DATE RECORDED"))
• FromTime
  SEQUENCE:   33
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   9000010.11
  FIELD NUMBER:   1201
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$G(VPRM("EVENT DATE AND TIME")) S:VALUE<1 VALUE=$G(VPRM("VISIT DATE TIME")) S VPRDT=$G(VALUE)
• OrderItem
  SEQUENCE:   35
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000010.11
  FIELD NUMBER:   .01
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR IMMUNIZATION
  GET ACTION:   S DATA=$G(VPRM("IMMUNIZATION")),VALUE=$P(DATA,U)
• Route
  SEQUENCE:   46
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000010.11
  FIELD NUMBER:   1302
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR IMM ROUTE
  GET ACTION:   S DATA=$G(VPRM("ADMIN ROUTE")),VALUE=$P(DATA,U)

This entity populates the Vaccination container in HealthShare from the V 
IMMUNIZATION (#9000010.11) file; it expects the record IEN as the ID 
(DIEN).
 
This entity is supported by code in routine VPRSDAVF, which uses the
^PXRMINDX reminder index and VIMM^PXPXRM call to extract V IMMUNIZATION
data. Data in SDA is maintained by monitoring the PXK VISIT DATA EVENT
protocol event.