VPR MED FILL (123) ENTITY (1.5)

Name	Value
NAME	VPR MED FILL
DEFAULT FILE NUMBER	52
DATA MODEL	SDA
DISPLAY NAME	Fill
ITEM	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)
DESCRIPTION	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.
GET EXIT ACTION	K VPREF
GET ID ACTION	S VPREF=$P(DIEN,U,2,99),DIEN=$P(DIEN,U)