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. (Ex. '1' or '1,3' or for all bottles)` DESCRIPTION: Enter the bottle no.(s) in which this additive will be included in for this IV order. 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. (Ex. '1' or '1,3' or for all bottles)

DESCRIPTION:

Enter the bottle no.(s) in which this additive will be included in for this IV order.

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