Sub-Field: 53.11

Parent File	Name	Number	Package
NON-VERIFIED ORDERS(#53.1)	DISPENSE DRUG	53.11	Inpatient Medications

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DISPENSE DRUG	0;1	POINTER TO DRUG FILE (#50)	**********************REQUIRED FIELD********************** DRUG(#50) INPUT TRANSFORM: `S DIC("S")="I $P($G(^PSDRUG(+Y,2)),""^"",6)=+$G(^PS(53.1,DA(1),.1))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 14, 1991` HELP-PROMPT: `Enter a dispense drug for this order.` DESCRIPTION: `This is the medication that will actually be dispensed for this order. An order may have more than one dispense drug.` TECHNICAL DESCR: `This is an entry from the Drug file (50) that will actually be dispensed as part of the order. An order can have multiple dispense drugs.` SCREEN: `S DIC("S")="I $P($G(^PSDRUG(+Y,2)),""^"",6)=+$G(^PS(53.1,DA(1),.1))"` EXPLANATION: `Only dispense drugs tied to this order's drug are selectable.` EXECUTABLE HELP: `S X(1)=+$G(^PS(53.1,$S($D(DA(1)):DA(1),1:DA),.1)) I $P($G(^PS(50.3,X(1),0)),"^")]"" D EN^DDIOL(" "_$P(^(0),"^")_" is the drug for this order.")` LAYGO TEST: `1,0)= S X(1)=$D(^PS(53.1,DA,1,"B",+X)) D:X(1) EN^DDIOL("This dispense drug has already been entered for this order") I 'X(1)` GROUP: `PSJU` CROSS-REFERENCE: `53.11^B` `1)= S ^PS(53.1,DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^PS(53.1,DA(1),1,"B",$E(X,1,30),DA)`
.02	UNITS PER DOSE	0;2	NUMBER	INPUT TRANSFORM: `S:X?1.2N1"/"1.2N X=+$J(+X/$P(X,"/",2),0,2) K:X'?.N.1".".N!(X>30)!(X<0)!(X?.E1"."5.N) X` OUTPUT TRANSFORM: `S Y=$S(Y=.5:"1/2",Y=.25:"1/4",Y?1".".N:"0"_Y,1:Y)` LAST EDITED: `FEB 20, 2003` HELP-PROMPT: `Enter a number between 0 and 30, no more than 4 decimals (will accept fractions).` DESCRIPTION: `This is the number of UNITS (tablets, capsules, etc.) to be dispensed as a DOSE for this order. The literals '1/2' and '1/4' may be entered. If there is no entry, it is assumed to be ONE (1).` ` PLEASE NOTE ` `If a doctor prescribes 30 ml's of a medication that is usually dispensed and administered as 60 ml's, the correct UNITS PER DOSE would be 1/2 (or .5), NOT 30 ml's. (30 ml's would be entered into the DOSAGE ORDERED` `field.)` `If the UNITS PER DOSE ordered is a variable amount (1-2 tab.), it is suggested that the maximum amount be entered into this field and the amount ordered noted either in the DOSAGE ORDERED or SPECIAL INSTRUCTIONS` `fields.` EXECUTABLE HELP: `D UNPD^PSJDDUT` GROUP: `PSJU` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.03	INACTIVE DATE	0;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 26, 1992` HELP-PROMPT: `Enter the date that this drug will no longer be dispense for this order.` DESCRIPTION: `This is the date that this dispense drug will no longer be dispensed for this order. Once an order becomes active, dispense drugs cannot be deleted.` TECHNICAL DESCR: `This is used by pharmacy when the dispense drug is no longer to be dispensed for the order.` GROUP: `PSJU`

.01

DISPENSE DRUG

0;1

POINTER TO DRUG FILE (#50)

************************REQUIRED FIELD************************

DRUG(#50)

INPUT TRANSFORM: S DIC("S")="I $P($G(^PSDRUG(+Y,2)),""^"",6)=+$G(^PS(53.1,DA(1),.1))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 14, 1991
HELP-PROMPT: Enter a dispense drug for this order.
DESCRIPTION:
This is the medication that will actually be dispensed for this order. An order may have more than one dispense drug.
TECHNICAL DESCR:
This is an entry from the Drug file (50) that will actually be dispensed as part of the order. An order can have multiple dispense drugs.
SCREEN: S DIC("S")="I $P($G(^PSDRUG(+Y,2)),""^"",6)=+$G(^PS(53.1,DA(1),.1))"
EXPLANATION: Only dispense drugs tied to this order's drug are selectable.
EXECUTABLE HELP: S X(1)=+$G(^PS(53.1,$S($D(DA(1)):DA(1),1:DA),.1)) I $P($G(^PS(50.3,X(1),0)),"^")]"" D EN^DDIOL(" "_$P(^(0),"^")_" is the drug for this order.")
LAYGO TEST: 1,0)= S X(1)=$D(^PS(53.1,DA,1,"B",+X)) D:X(1) EN^DDIOL("This dispense drug has already been entered for this order") I 'X(1)
GROUP: PSJU
CROSS-REFERENCE: 53.11^B
1)= S ^PS(53.1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^PS(53.1,DA(1),1,"B",$E(X,1,30),DA)

.02

UNITS PER DOSE

0;2

NUMBER

INPUT TRANSFORM: S:X?1.2N1"/"1.2N X=+$J(+X/$P(X,"/",2),0,2) K:X'?.N.1".".N!(X>30)!(X<0)!(X?.E1"."5.N) X
OUTPUT TRANSFORM: S Y=$S(Y=.5:"1/2",Y=.25:"1/4",Y?1".".N:"0"_Y,1:Y)
LAST EDITED: FEB 20, 2003
HELP-PROMPT: Enter a number between 0 and 30, no more than 4 decimals (will accept fractions).
DESCRIPTION: This is the number of UNITS (tablets, capsules, etc.) to be dispensed as a DOSE for this order. The literals '1/2' and '1/4' may be entered. If there is no entry, it is assumed to be ONE (1).
** PLEASE NOTE **
If a doctor prescribes 30 ml's of a medication that is usually dispensed and administered as 60 ml's, the correct UNITS PER DOSE would be 1/2 (or .5), NOT 30 ml's. (30 ml's would be entered into the DOSAGE ORDERED
field.)
If the UNITS PER DOSE ordered is a variable amount (1-2 tab.), it is suggested that the maximum amount be entered into this field and the amount ordered noted either in the DOSAGE ORDERED or SPECIAL INSTRUCTIONS
fields.
EXECUTABLE HELP: D UNPD^PSJDDUT
GROUP: PSJU
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

.03

INACTIVE DATE

0;3

DATE

INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 26, 1992
HELP-PROMPT: Enter the date that this drug will no longer be dispense for this order.
DESCRIPTION:
This is the date that this dispense drug will no longer be dispensed for this order. Once an order becomes active, dispense drugs cannot be deleted.
TECHNICAL DESCR:
This is used by pharmacy when the dispense drug is no longer to be dispensed for the order.
GROUP: PSJU

Customize PDF page

Package: Inpatient Medications

NON-VERIFIED ORDERS(#53.1)-->53.11

Sub-Field: 53.11

Information

Details