Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Print Page as PDF

Sub-Field: 55.0611

Package: Pharmacy Data Management

PHARMACY PATIENT(#55)-->55.06-->55.0611

Sub-Field: 55.0611

Information

Parent File	Name	Number	Package
55.06	DISPENSE LOG	55.0611	Pharmacy Data Management

Details

Field #	Name	Loc	Type	Details
.01	DISPENSE DATE/TIME	0;1	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 24, 1991` DESCRIPTION: `This is the date (time optional) that units dispensed (or returned) were entered for this order. If the units were dispensed through the pick list, this will be the start date (no time) of the pick list.` TECHNICAL DESCR: `This is the date and time that a medication was dispensed or returned for this order. If the medications was dispensed through the pick list, this will be date only (the start date of the pick list).` GROUP: `PSJ` CROSS-REFERENCE: `55.0611^B` `1)= S ^PS(55,DA(2),5,DA(1),11,"B",$E(X,1,30),DA)=""` `2)= K ^PS(55,DA(2),5,DA(1),11,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `55.06^AL1101^MUMPS` `1)= I '$D(DIU(0)) D:$D(PSGAL(1101)) KILL^PSGAL5:PSGAL(1101)=X K PSGAL` `2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(1101)=X,PSGAL("C")=6000,PSGALFF=.01,PSGALFN=55.0611 D ^PSGAL5` `3)= UNIT DOSE ACTIVITY LOG` `Used by Unit Dose to log any changes made to this field.`
.02	DISPENSE DRUG	0;2	POINTER TO DRUG FILE (#50)	DRUG(#50) LAST EDITED: `JAN 11, 1999` DESCRIPTION: `This is the medication that was dispensed (or returned) for this order.` TECHNICAL DESCR: `This will be an entry from the Unit Dose DISPENSE DRUG multiple within the Unit Dose order.` GROUP: `PSJU` CROSS-REFERENCE: `55.06^AL1102^MUMPS` `1)= I '$D(DIU(0)) D:$D(PSGAL(1102)) KILL^PSGAL5:PSGAL(1102)=X K PSGAL` `2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(1102)=X,PSGAL("C")=6000,PSGALFF=.02,PSGALFN=55.0611 D ^PSGAL5` `3)= UNIT DOSE ACTIVITY LOG` `The AL1102 cross-reference is used to update the information in the` `ACTIVITY LOG sub-file (#55.09) of the PHARMACY PATIENT file (#55). The` `controlling point comes from the KILL logic. When the DISPENSE DRUG field` `changes, an entry is added to the ACTIVITY LOG sub-file. The data global` `changes by the Set and Kill logic are as follows:` `SET: K ^PS(55,DFN,5,Order Number,9,ACTIVITY LOG IEN,0)` `KILL: S ^PS(55,DFN,5,Order Number,9,ACTIVITY LOG IEN,0)=` `Piece 1 = DATE (date/time update made)` `Piece 2 = USER (IEN in NEW PERSON file (#200))` `Piece 3 = ACTION (IEN to ACTIVITY LOG REASON file (#53.3))` `Piece 4 = FIELD (Field edited, "DISPENSE DRUG")` `Piece 5 = OLD DATA (The old value of the field before the` `edit)`
.03	AMOUNT	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>500)!(X<-500)!(X?.E1"."3N.N) X` LAST EDITED: `OCT 30, 1991` HELP-PROMPT: `Enter a Number between -500 and 500, 2 Decimal Digits.` DESCRIPTION: `This is the number of units that were dispensed (or returned) for this order.` TECHNICAL DESCR: `This is the number of units (tablets, etc.) that were dispensed or returned for this order.` GROUP: `PSJU` CROSS-REFERENCE: `55.06^AL1103^MUMPS` `1)= I '$D(DIU(0)) D:$D(PSGAL(1103)) KILL^PSGAL5:PSGAL(1103)=X K PSGAL` `2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(1103)=X,PSGAL("C")=6000,PSGALFF=.03,PSGALFN=55.0611 D ^PSGAL5` `3)= UNIT DOSE ACTIVITY LOG` `Used by Unit Dose to log any changes made to this field.`
.04	COST	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>5000)!(X<-5000)!(X?.E1"."5N.N) X` LAST EDITED: `OCT 30, 1991` HELP-PROMPT: `Enter a Number between -5000 and 5000, 4 Decimal Digits.` DESCRIPTION: `This is the cost of the amount dispensed or returned.` TECHNICAL DESCR: `This is the cost of the amount dispensed or returned for this dispense drug. This is obtained by multiplying the amount dispensed by the PRICE PER DISPENSE UNIT from the DRUG file (#50) for the dispense drug.` GROUP: `PSJU` CROSS-REFERENCE: `55.06^AL1104^MUMPS` `1)= I '$D(DIU(0)) D:$D(PSGAL(1104)) KILL^PSGAL5:PSGAL(1104)=X K PSGAL` `2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(1104)=X,PSGAL("C")=6000,PSGALFF=.04,PSGALFN=55.0611 D ^PSGAL5` `3)= UNIT DOSE ACTIVITY LOG` `Used by Unit Dose to log any changes made to this field.`
.05	HOW	0;5	SET	LAST EDITED: `OCT 30, 1991` DESCRIPTION: `This is the method the drug was dispensed for this order.` TECHNICAL DESCR: `This is the method the drug was dispensed for the order.` GROUP: `PSJU` CROSS-REFERENCE: `55.06^AL1105^MUMPS` `1)= I '$D(DIU(0)) D:$D(PSGAL(1105)) KILL^PSGAL5:PSGAL(1105)=X K PSGAL` `2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(1105)=X,PSGAL("C")=6000,PSGALFF=.05,PSGALFN=55.0611 D ^PSGAL5` `3)= UNIT DOSE ACTIVITY LOG` `Used by Unit Dose to log any changes made to this field.`
.06	USER	0;6	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `OCT 30, 1991` DESCRIPTION: `This is the user who entered the amount dispensed for this drug for this order.` TECHNICAL DESCR: `Thsi si the user who entered the amount dispensed (or returned) for this drug for this order. If the drug was dispensed through the pick list, the user entered is the user who filed the pick list away, and is not` `shown in the dispense log view.` GROUP: `PSJU` CROSS-REFERENCE: `55.06^AL1106^MUMPS` `1)= I '$D(DIU(0)) D:$D(PSGAL(1106)) KILL^PSGAL5:PSGAL(1106)=X K PSGAL` `2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(1106)=X,PSGAL("C")=6000,PSGALFF=1106,PSGALFN=55.0611 D ^PSGAL5` `3)= UNIT DOSE ACTIVITY LOG` `Used by Unit Dose to log any changes made to this field.`
.07	WARD	0;7	POINTER TO WARD LOCATION FILE (#42)	WARD LOCATION(#42) LAST EDITED: `OCT 30, 1991` DESCRIPTION: `This is the ward the patient was residing on when the dispense amount was entered.` TECHNICAL DESCR: `This is the ward the patient was shown to be residing on when the dispense amount was entered. If the amount dispensed was entered through the pick list, this will be the ward the patient was on when the pick list` `was run.` GROUP: `PSJU` CROSS-REFERENCE: `55.06^AL1107^MUMPS` `1)= I '$D(DIU(0)) D:$D(PSGAL(1107)) KILL^PSGAL5:PSGAL(1107)=X K PSGAL` `2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(1107)=X,PSGAL("C")=6000,PSGALFF=1107,PSGALFN=55.0611 D ^PSGAL5` `3)= UNIT DOSE ACTIVITY LOG` `Used by Unit Dose to log any changes made to this field.`
.08	PROVIDER	0;8	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `OCT 30, 1991` DESCRIPTION: `This is the provider for the order when the amount dispensed was entered.` TECHNICAL DESCR: `This is the provider for the order when the amount dispensed was entered.` GROUP: `PSJU` CROSS-REFERENCE: `55.06^AL1108^MUMPS` `1)= I '$D(DIU(0)) D:$D(PSGAL(1108)) KILL^PSGAL5:PSGAL(1108)=X K PSGAL` `2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(1108)=X,PSGAL("C")=6000,PSGALFF=1108,PSGALFN=55.0611 D ^PSGAL5` `3)= UNIT DOSE ACTIVITY LOG` `Used by Unit Dose to log any changes made to this field.`