Sub-Field: 53.158

Parent File	Name	Number	Package
NON-VERIFIED ORDERS(#53.1)	SOLUTION	53.158	Inpatient Medications

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: `MAY 23, 1991` HELP-PROMPT: `Answer must be 1-120 characters in length.` DESCRIPTION: `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 an active solution.` GROUP: `PSJI` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `53.158^B` `1)= S ^PS(53.1,DA(1),"SOL","B",$E(X,1,30),DA)=""` `2)= K ^PS(53.1,DA(1),"SOL","B",$E(X,1,30),DA)`
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" D EN^DDIOL(" "_X)` LAST EDITED: `MAY 21, 1991` HELP-PROMPT: `Answer must be a number from .01-9999.` DESCRIPTION: `The volume of this solution in MLs. Only numeric values may be entered in this field. The total volume of the IV order is sum of solution's volumes.` GROUP: `PSJI` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`

SOLUTION

0;1

POINTER TO IV SOLUTIONS FILE (#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: MAY 23, 1991
HELP-PROMPT: Answer must be 1-120 characters in length.
DESCRIPTION:
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 an active solution.
GROUP: PSJI
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 53.158^B
1)= S ^PS(53.1,DA(1),"SOL","B",$E(X,1,30),DA)=""
2)= K ^PS(53.1,DA(1),"SOL","B",$E(X,1,30),DA)

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" D EN^DDIOL(" "_X)
LAST EDITED: MAY 21, 1991
HELP-PROMPT: Answer must be a number from .01-9999.
DESCRIPTION:
The volume of this solution in MLs. Only numeric values may be entered in this field. The total volume of the IV order is sum of solution's volumes.
GROUP: PSJI
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER