Sub-Field: 53.157

Parent File	Name	Number	Package
NON-VERIFIED ORDERS(#53.1)	ADDITIVE	53.157	Inpatient Medications

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ADDITIVE	0;1	POINTER TO IV ADDITIVES FILE (#52.6)	IV ADDITIVES(#52.6) INPUT TRANSFORM: `S PSIVX=X,DIC("S")="I $S($D(^(""I"")):DT<^(""I"")!'^(""I""),1:1),($S($D(^PSDRUG($P(^(0),U,2),""I"")):DT<^(""I"")!'^(""I""),1:1))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAY 21, 1991` DESCRIPTION: `The additive selected as part of the IV order. This entry is a pointer to the ADDITIVES file (52.6).` SCREEN: `S DIC("S")="I $S($D(^(""I"")):DT<^(""I"")!'^(""I""),1:1),($S($D(^PSDRUG($P(^(0),U,2),""I"")):DT<^(""I"")!'^(""I""),1:1))"` EXPLANATION: `Choose an additive, an additive's synonym or an additives quick code.` GROUP: `PSJI` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `53.157^B` `1)= S ^PS(53.1,DA(1),"AD","B",$E(X,1,30),DA)=""` `2)= K ^PS(53.1,DA(1),"AD","B",$E(X,1,30),DA)`
1	STRENGTH	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X'?.6N.".".8N!(X<0) X I $D(X) S X=X_" "_$$ENU^PSIVUTL(DRG(1)) D EN^DDIOL(" "_$P(X," ",2)_" ")` LAST EDITED: `JUN 25, 1991` DESCRIPTION: `"STRENGTH" is the amount of an additive to be used in the manufacturing of the IV order. NOTE! You will be expected to use the strength units that were previously defined within the IV ADDITIVE file (52.6) for each` `additive. For example, if the DRUG UNITS field of the IV ADDITIVES file specifies the units for ampicillin to be in grams, it would be incorrect to enter 500 for a half-gram dose. Enter 0.5 instead.` EXECUTABLE HELP: `D:X="??" ENTDRG^PSIVDRG D EN^DDIOL("Enter the strength"_$S($$ENU^PSIVUTL(DRG(1))]"":" in "_$$ENU^PSIVUTL(DRG(1))_"'s",1:"")_". Enter only a number.")` GROUP: `PSJI` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2	BOTTLE	0;3	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X F PSIV=1:1 Q:'$D(X) Q:PSIV>$L(X,",") K:$P(X,",",PSIV)'?1N.N X` LAST EDITED: `JUL 26, 2011` HELP-PROMPT: `Enter the bottle #'s that this additive will be in (e.g. '1', '1,3', or for all bottles). In case of "See Comments," replace with specific bottle #'s or enter "@" to specify all bottles.` DESCRIPTION: `This is the bottle number (or numbers, separated by commas) in which this additive will be included for this IV order. If this field is blank, it means that the additive will be included in all bottles.` GROUP: `PSJI` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`

.01

ADDITIVE

0;1

POINTER TO IV ADDITIVES FILE (#52.6)

IV ADDITIVES(#52.6)

INPUT TRANSFORM: S PSIVX=X,DIC("S")="I $S($D(^(""I"")):DT<^(""I"")!'^(""I""),1:1),($S($D(^PSDRUG($P(^(0),U,2),""I"")):DT<^(""I"")!'^(""I""),1:1))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 21, 1991
DESCRIPTION:
The additive selected as part of the IV order. This entry is a pointer to the ADDITIVES file (52.6).
SCREEN: S DIC("S")="I $S($D(^(""I"")):DT<^(""I"")!'^(""I""),1:1),($S($D(^PSDRUG($P(^(0),U,2),""I"")):DT<^(""I"")!'^(""I""),1:1))"
EXPLANATION: Choose an additive, an additive's synonym or an additives quick code.
GROUP: PSJI
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 53.157^B
1)= S ^PS(53.1,DA(1),"AD","B",$E(X,1,30),DA)=""
2)= K ^PS(53.1,DA(1),"AD","B",$E(X,1,30),DA)

STRENGTH

0;2

FREE TEXT

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

INPUT TRANSFORM: K:X'?.6N.".".8N!(X<0) X I $D(X) S X=X_" "_$$ENU^PSIVUTL(DRG(1)) D EN^DDIOL(" "_$P(X," ",2)_" ")
LAST EDITED: JUN 25, 1991
DESCRIPTION: "STRENGTH" is the amount of an additive to be used in the manufacturing of the IV order. NOTE! You will be expected to use the strength units that were previously defined within the IV ADDITIVE file (52.6) for each
additive. For example, if the DRUG UNITS field of the IV ADDITIVES file specifies the units for ampicillin to be in grams, it would be incorrect to enter 500 for a half-gram dose. Enter 0.5 instead.
EXECUTABLE HELP: D:X="??" ENTDRG^PSIVDRG D EN^DDIOL("Enter the strength"_$S($$ENU^PSIVUTL(DRG(1))]"":" in "_$$ENU^PSIVUTL(DRG(1))_"'s",1:"")_". Enter only a number.")
GROUP: PSJI
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

BOTTLE

0;3

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X F PSIV=1:1 Q:'$D(X) Q:PSIV>$L(X,",") K:$P(X,",",PSIV)'?1N.N X
LAST EDITED: JUL 26, 2011
HELP-PROMPT: Enter the bottle #'s that this additive will be in (e.g. '1', '1,3', or for all bottles). In case of "See Comments," replace with specific bottle #'s or enter "@" to specify all bottles.
DESCRIPTION:
This is the bottle number (or numbers, separated by commas) in which this additive will be included for this IV order. If this field is blank, it means that the additive will be included in all bottles.
GROUP: PSJI
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

Customize PDF page

Package: Inpatient Medications

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

Sub-Field: 53.157

Information

Details