VPR MED FILL (123)    ENTITY (1.5)

• FillDate
  SEQUENCE:   1
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   52
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE,1)
  GET ACTION:   S VALUE=$P(VPREF,U)
• FillRouting
  SEQUENCE:   2
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   52
  OUTPUT TRANSFORM:   S VALUE=$S(VALUE="M":"MAIL",VALUE="W":"WINDOW",VALUE="C":"ADMINISTERED IN CLINIC",1:"")
  GET ACTION:   S VALUE=$P(VPREF,U,5)
• ReleaseDate
  SEQUENCE:   3
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   52
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P(VPREF,U,4)
• FillQuantity
  SEQUENCE:   4
  ITEM TYPE:   FIXED STRING
  GET ACTION:   S VALUE=$P(VPREF,U,3)
• FillDaysSupply
  SEQUENCE:   5
  ITEM TYPE:   FIXED STRING
  GET ACTION:   S VALUE=$P(VPREF,U,2)
• IsPartial
  SEQUENCE:   6
  ITEM TYPE:   FIXED STRING
  GET ACTION:   S VALUE=$S(DIEN["P":"true",1:"false")
• ReturnedToStock
  SEQUENCE:   7
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   52
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P(VPREF,U,7)
• Remarks
  SEQUENCE:   8
  ITEM TYPE:   FIXED STRING
  GET ACTION:   S VALUE=$P(VPREF,U,6)

This entity returns a refill of a medication; it is intended to be used
with VPR MEDICATION, and the VPRPS array from OEL^PSOORRL. It expects:
  ID = fill date ^ days supply ^ qty ^ release date ^ routing
to support the original fill, refills, and partial fills.