VPR MEDICATION (56)    ENTITY (1.5)

• EnteredAt
  SEQUENCE:   30
  ITEM TYPE:   ENTITY
  FILE NUMBER:   100
  FIELD NUMBER:   6
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR FACILITY
  OUTPUT TRANSFORM:   S VALUE=$$FAC^VPRSDA(VALUE) ;#4 ien
  GET ACTION:   S VALUE=$P($G(OR0),U,10)
• Status
  SEQUENCE:   15
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   100
  FIELD NUMBER:   5
  EXTENDED POINTER LKUP:   .02
  OUTPUT TRANSFORM:   N X S X=VALUE,VALUE=$S(X="dc":"D",X="canc":"C",X="laps":"C",X="dc/e":"R",X="comp":"E",X="exp":"E",X="hold":"H",X="part":"A",1:"IP")
• PlacerId
  SEQUENCE:   1
  ITEM TYPE:   ID
• EnteringOrganization
  SEQUENCE:   9
  ITEM TYPE:   ENTITY
  FILE NUMBER:   100
  FIELD NUMBER:   6
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR LOCATION
  OUTPUT TRANSFORM:   S VALUE=+VALUE
  GET ACTION:   S VALUE=$P($G(OR0),U,10) S:VALUE<1 VALUE=$$LOC^VPRSDAP(DFN,ORPK) S:VALUE<1 DDEOUT=1
• FromTime
  SEQUENCE:   32
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   100
  FIELD NUMBER:   21
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(OR0),U,8)
• ToTime
  SEQUENCE:   33
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   100
  FIELD NUMBER:   22
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(OR0),U,9)
• UpdatedOn
  SEQUENCE:   58
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   100
  FIELD NUMBER:   31
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(OR3),U)
• EnteredBy
  SEQUENCE:   29
  ITEM TYPE:   ENTITY
  FILE NUMBER:   100
  FIELD NUMBER:   3
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR USER
  GET ACTION:   S VALUE=$P($G(OR0),U,6)
• AuthorizationTime
  SEQUENCE:   23
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   100.008
  FIELD NUMBER:   6
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(ORSIG),U,3),IEN="1,"_DIEN
• VerifiedBy
  SEQUENCE:   10
  ITEM TYPE:   ENTITY
  FILE NUMBER:   100
  ENTITY:   VPR PROVIDER
  GET ACTION:   S VALUE=$P($G(@VPRPS@("RXN",0)),U,5) ;pharmacist
• TextInstruction
  SEQUENCE:   19
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   100.045
  FIELD NUMBER:   1
  GET ACTION:   S VPRPI=$$WP^VPRSDAOR(DIEN,"PI"),VALUE=VPRPI S:VALUE="" DDEOUT=1 ;save for Sig
• DrugProduct
  SEQUENCE:   34
  ITEM TYPE:   ENTITY
  FILE NUMBER:   100.045
  FIELD NUMBER:   1
  ENTITY:   VPR DRUG PRODUCT
  GET ACTION:   S:$G(PSTYPE)'="V" VALUE=$$VALUE^ORX8(DIEN,"DRUG",1) S:'VALUE DDEOUT=1
• DosageForm
  SEQUENCE:   44
  ITEM TYPE:   ENTITY
  FILE NUMBER:   50.7
  FIELD NUMBER:   .02
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR CODE TABLE
  GET ACTION:   S VALUE=$$DOSEFORM^VPRSDAP(DIEN),IEN=+$G(PSOI) S:VALUE="" DDEOUT=1
• DosageSteps
  SEQUENCE:   51
  ITEM TYPE:   LIST
  ENTITY:   VPR DOSAGE STEP
  LIST TYPE:   ARRAY
  XML NAME:   DosageStep
  GET ACTION:   D DOSES^VPRSDAP(DIEN)
• Route
  SEQUENCE:   45
  ITEM TYPE:   ENTITY
  FILE NUMBER:   100.045
  FIELD NUMBER:   1
  ENTITY:   VPR MED ROUTE
  GET ACTION:   S VALUE=$$VALUE^ORX8(DIEN,"ROUTE") S:VALUE="" DDEOUT=1
• OrderQuantity
  SEQUENCE:   7
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   100.045
  FIELD NUMBER:   1
  GET ACTION:   S VALUE=$$VALUE^ORX8(DIEN,"QTY") S:VALUE="" DDEOUT=1
• EnteredOn
  SEQUENCE:   31
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   100
  FIELD NUMBER:   4
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(OR0),U,7)
• NumberOfRefills
  SEQUENCE:   43
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   100.045
  FIELD NUMBER:   1
  GET ACTION:   S:$G(PSTYPE)="O" VALUE=$$VALUE^ORX8(DIEN,"REFILLS") S:VALUE="" DDEOUT=1
• PrescriptionNumber
  SEQUENCE:   48
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   52
  FIELD NUMBER:   .01
  GET ACTION:   S:$G(PSTYPE)="O" VALUE=$P($G(@VPRPS@("RXN",0)),U),IEN=+$G(ORPK) S:VALUE="" DDEOUT=1
• RefillNumber
  SEQUENCE:   49
  ITEM TYPE:   FIXED STRING
  GET ACTION:   S:$G(PSTYPE)="O" VALUE=$O(@VPRPS@("REF",""),-1) ;last#
• ComponentMeds
  SEQUENCE:   53
  ITEM TYPE:   LIST
  ENTITY:   VPR IV PRODUCT
  LIST TYPE:   ARRAY
  XML NAME:   DrugProduct
  GET ACTION:   I $G(PSTYPE)="V" D IVMEDS^VPRSDAP(ORIFN)
• RateAmount
  SEQUENCE:   37
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   100.045
  FIELD NUMBER:   1
  GET ACTION:   S:$G(PSTYPE)="V" VALUE=$$IVRATE^VPRSDAP(ORIFN) S:VALUE="" DDEOUT=1
• RateUnits
  SEQUENCE:   38
  ITEM TYPE:   ENTITY
  ENTITY:   VPR CODE ONLY
  GET ACTION:   S:$G(PSTYPE)="V"&$G(VPRATE) VALUE="ml"
• RateTimeUnit
  SEQUENCE:   39
  ITEM TYPE:   FIXED STRING
  GET ACTION:   S:$G(PSTYPE)="V"&$G(VPRATE) VALUE="per hour"
• Frequency
  SEQUENCE:   13
  ITEM TYPE:   ENTITY
  FILE NUMBER:   100.045
  FIELD NUMBER:   1
  ENTITY:   VPR CODE ONLY
  GET ACTION:   S:$G(PSTYPE)="V" VALUE=$$VALUE^ORX8(DIEN,"SCHEDULE") S:VALUE="" DDEOUT=1
• Duration
  SEQUENCE:   14
  ITEM TYPE:   ENTITY
  FILE NUMBER:   100.045
  FIELD NUMBER:   1
  ENTITY:   VPR TEXT ONLY
  GET ACTION:   S:$G(PSTYPE)="V" VALUE=$$VALUE^ORX8(DIEN,"DAYS") S:VALUE="" DDEOUT=1
• StrengthVolume
  SEQUENCE:   35
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   100.045
  FIELD NUMBER:   1
  GET ACTION:   S:$G(PSTYPE)="V" VALUE=$$VALUE^ORX8(DIEN,"VOLUME"),VPRUNTS=$S(VALUE:"ML",1:"") S:VALUE="" DDEOUT=1
• FillerId
  SEQUENCE:   3
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   100
  FIELD NUMBER:   33
  GET ACTION:   S VALUE=$$PKGID^ORX8(DIEN)
• StrengthVolumeUnits
  SEQUENCE:   36
  ITEM TYPE:   FIXED STRING
  FILE NUMBER:   100
  GET ACTION:   I $G(PSTYPE)="V" S VALUE=$G(VPRUNTS) K VPRUNTS
• Extension
  SEQUENCE:   62
  ITEM TYPE:   ENTITY
  FILE NUMBER:   100
  ENTITY:   VPR MED EXTENSION
  GET ACTION:   S VALUE=DIEN
• PharmacyStatus
  SEQUENCE:   47
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   52
  FIELD NUMBER:   100
  GET ACTION:   S IEN=+ORPK I +ORPK'=ORPK,$E(ORPK,$L(ORPK))'="R" S VALUE=$P($G(@VPRPS@(0)),U,6) S:VALUE="" DDEOUT=1 ;use API value for non-Rx
• Comments
  SEQUENCE:   21
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   100.045
  FIELD NUMBER:   1
  GET ACTION:   S VALUE=$$WP^VPRSDAOR(DIEN,"COMMENT") S:VALUE="" DDEOUT=1
• GroupId
  SEQUENCE:   26
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   100
  FIELD NUMBER:   36
  RETURN INTERNAL VALUE:   YES
  GET ACTION:   S VALUE=$G(ORDAD)
• Administrations
  SEQUENCE:   52
  ITEM TYPE:   LIST
  ENTITY:   VPR MED ADMINISTRATION
  LIST TYPE:   ARRAY
  XML NAME:   Administration
  GET ACTION:   D BCMA^VPRSDAP(DIEN)
• ExternalId
  SEQUENCE:   59
  ITEM TYPE:   ID
• Indication
  SEQUENCE:   46
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   100.045
  FIELD NUMBER:   1
  GET ACTION:   S VALUE=$$VALUE^ORX8(DIEN,"INDICATION") S:VALUE="" DDEOUT=1
• OrderCategory
  SEQUENCE:   6
  ITEM TYPE:   ENTITY
  FILE NUMBER:   100
  FIELD NUMBER:   23
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR DISPLAY GROUP
  GET ACTION:   S VALUE=$P($G(OR0),U,11),DATA=$S($G(PSTYPE)="N":"OTC",$G(PSTYPE)="O":"Prescription",1:"") ;HITSP category
• OrderItem
  SEQUENCE:   5
  ITEM TYPE:   ENTITY
  FILE NUMBER:   100.001
  FIELD NUMBER:   .01
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR ORDERABLE ITEM
  GET ACTION:   N OI S OI=$$OI^VPRSDAP(DIEN),VALUE=+OI,PSOI=+$P(OI,U,3),IEN="1,"_DIEN S:VALUE<1 DDEOUT=1 ;first/only
• OrderedBy
  SEQUENCE:   8
  ITEM TYPE:   ENTITY
  FILE NUMBER:   100
  FIELD NUMBER:   1
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR PROVIDER
  GET ACTION:   S VALUE=$P($G(OR0),U,4)
• Priority
  SEQUENCE:   16
  ITEM TYPE:   ENTITY
  FILE NUMBER:   100.045
  FIELD NUMBER:   1
  ENTITY:   VPR ORDER URGENCY
  GET ACTION:   S VALUE=$$VALUE^ORX8(DIEN,"URGENCY") S:VALUE="" DDEOUT=1

This entity populates the Medication container in HealthShare from the
ORDER (#100) file; it expects the record ien as its ID (DIEN).
Additional data is pulled from the PHARMACY PATIENT (#55) and
PRESCRIPTION (#52) files.
 
This entity is supported by code in routines VPRSDAOR and VPRSDAP,
which uses various PS* calls to extract medication data. Data in SDA
is maintained by monitoring the OR EVSEND PS, PS EVSEND OR, and
PSB EVSEND VPR protocol events.