Sub-Field: 55.11

Parent File	Name	Number	Package
55.01	SOLUTION	55.11	Pharmacy Data Management

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SOLUTION	0;1	POINTER TO IV SOLUTIONS FILE (#52.7)	IV SOLUTIONS(#52.7) INPUT TRANSFORM: `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))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `DEC 27, 1988` HELP-PROMPT: `Answer must be 1-120 characters in length.` DESCRIPTION: `This is the solution entered as part of the specified IV order.` 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 a solution or a solution's synonym.` GROUP: `PSJI` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `55.11^AC^MUMPS` `1)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.11,PSIVF2=.01 D ENTO^PSIVAL` `2)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.11,PSIVF2=.01 D ENFR^PSIVAL` `Used by IV Package.`
1	VOLUME	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45)!(X'=+X)!(X>9999)!(X<.01) X I $D(X) S X=X_" ML" W " ML"` LAST EDITED: `OCT 08, 1998` HELP-PROMPT: `Answer must be a number from .01-9999.` DESCRIPTION: `This field represents the volume of this solution in MLs. Only a number can be entered into this field. The total volume of an IV ORDER is all the solution's volumes added together.` GROUP: `PSJI` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `55.11^AD^MUMPS` `1)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.11,PSIVF2=1 D ENTO^PSIVAL` `2)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.11,PSIVF2=1 D ENFR^PSIVAL` `Used by IV Package.`

.01

SOLUTION

0;1

POINTER TO IV SOLUTIONS FILE (#52.7)

IV SOLUTIONS(#52.7)

INPUT TRANSFORM: 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))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 27, 1988
HELP-PROMPT: Answer must be 1-120 characters in length.
DESCRIPTION:
This is the solution entered as part of the specified IV order.
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 a solution or a solution's synonym.
GROUP: PSJI
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 55.11^AC^MUMPS
1)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.11,PSIVF2=.01 D ENTO^PSIVAL
2)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.11,PSIVF2=.01 D ENFR^PSIVAL
Used by IV Package.

VOLUME

0;2

FREE TEXT

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

INPUT TRANSFORM: K:X[""""!($A(X)=45)!(X'=+X)!(X>9999)!(X<.01) X I $D(X) S X=X_" ML" W " ML"
LAST EDITED: OCT 08, 1998
HELP-PROMPT: Answer must be a number from .01-9999.
DESCRIPTION:
This field represents the volume of this solution in MLs. Only a number can be entered into this field. The total volume of an IV ORDER is all the solution's volumes added together.
GROUP: PSJI
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 55.11^AD^MUMPS
1)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.11,PSIVF2=1 D ENTO^PSIVAL
2)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.11,PSIVF2=1 D ENFR^PSIVAL
Used by IV Package.

Customize PDF page

Package: Pharmacy Data Management

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

Sub-Field: 55.11

Information

Details