Sub-Field: 55.02

Parent File	Name	Number	Package
55.01	ADDITIVE	55.02	Pharmacy Data Management

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: `NOV 23, 1987` DESCRIPTION: `This is the additive which was selected as part of the IV order. This entry is a pointer to the ADDITIVES file (52.6).` SCREEN: `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))"` EXPLANATION: `Choose an additive, an additive's synonym, or an additive's quick code.` EXECUTABLE HELP: `S DIC("W")="I 1 D ENQUI^PSIV"` GROUP: `PSJI` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `55.02^AC^MUMPS` `1)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.02,PSIVF2=.01 D ENTO^PSIVAL` `2)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.02,PSIVF2=.01 D ENFR^PSIVAL` `Used by IV Package.`
.02	STRENGTH	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X'?.6N.".".8N!(X<0) X I $D(X) D ENU^PSIV S X=X_" "_PSIVSTR W " ",PSIVSTR` LAST EDITED: `MAR 21, 1990` DESCRIPTION: `'STRENGTH' is the amount of an additive that is used in the manufacturing of the IV order. NOTE! You'll be expected to use the strength units that have been previously defined within the additive file (52.6) for` `each additive. That is to say, if the additive file expects AMPICILLIN to be dispensed in 'GMS', it would not be correct for you to enter '500' for a half-gram dose -- enter 0.5 instead.` EXECUTABLE HELP: `D:X="??" ENTDRG^PSIVDRG D ENU^PSIV W !,"Enter the strength"_$S($D(PSIVSTR):" in "_PSIVSTR_"'s",1:"")_". Enter only a number.",!` GROUP: `PSJI` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `55.02^AD^MUMPS` `1)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.02,PSIVF2=.02 D ENTO^PSIVAL` `2)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.02,PSIVF2=.02 D ENFR^PSIVAL` `Used by IV Package.`
.03	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: `NOV 18, 1985` 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` CROSS-REFERENCE: `55.02^AE^MUMPS` `1)= Q:$D(PSIVACT) S PSIVF1=55.02,PSIVF2=.03 D ENTO^PSIVAL` `2)= Q:$D(PSIVACT) S PSIVF1=55.02,PSIVF2=.03 D ENFR^PSIVAL` `Used by IV Package.`

.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: NOV 23, 1987
DESCRIPTION:
This is the additive which was selected as part of the IV order. This entry is a pointer to the ADDITIVES file (52.6).
SCREEN: 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))"
EXPLANATION: Choose an additive, an additive's synonym, or an additive's quick code.
EXECUTABLE HELP: S DIC("W")="I 1 D ENQUI^PSIV"
GROUP: PSJI
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 55.02^AC^MUMPS
1)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.02,PSIVF2=.01 D ENTO^PSIVAL
2)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.02,PSIVF2=.01 D ENFR^PSIVAL
Used by IV Package.

.02

STRENGTH

0;2

FREE TEXT

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

INPUT TRANSFORM: K:X'?.6N.".".8N!(X<0) X I $D(X) D ENU^PSIV S X=X_" "_PSIVSTR W " ",PSIVSTR
LAST EDITED: MAR 21, 1990
DESCRIPTION: 'STRENGTH' is the amount of an additive that is used in the manufacturing of the IV order. NOTE! You'll be expected to use the strength units that have been previously defined within the additive file (52.6) for
each additive. That is to say, if the additive file expects AMPICILLIN to be dispensed in 'GMS', it would not be correct for you to enter '500' for a half-gram dose -- enter 0.5 instead.
EXECUTABLE HELP: D:X="??" ENTDRG^PSIVDRG D ENU^PSIV W !,"Enter the strength"_$S($D(PSIVSTR):" in "_PSIVSTR_"'s",1:"")_". Enter only a number.",!
GROUP: PSJI
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 55.02^AD^MUMPS
1)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.02,PSIVF2=.02 D ENTO^PSIVAL
2)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.02,PSIVF2=.02 D ENFR^PSIVAL
Used by IV Package.

.03

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: NOV 18, 1985
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
CROSS-REFERENCE: 55.02^AE^MUMPS
1)= Q:$D(PSIVACT) S PSIVF1=55.02,PSIVF2=.03 D ENTO^PSIVAL
2)= Q:$D(PSIVACT) S PSIVF1=55.02,PSIVF2=.03 D ENFR^PSIVAL
Used by IV Package.

Customize PDF page

Package: Pharmacy Data Management

PHARMACY PATIENT(#55)-->55.01-->55.02

Sub-Field: 55.02

Information

Details