INPUT TRANSFORM: S X=$S(X="1/2":.5,X="1/4":.25,1:X) K:+X'=X!(X>30)!(X<0)!(X?.E1"."3.N) X
OUTPUT TRANSFORM: S Y=$S(Y=.5:"1/2",Y=.25:"1/4",Y?1".".N:"0"_Y,1:Y)
LAST EDITED: JUL 30, 1996
HELP-PROMPT: Enter a number between 0 and 30 (will accept '1/2' or '1/4').
DESCRIPTION: This is the number of UNITS (tablets, capsules, etc.) to be dispensed as a DOSE for this order. The literals '1/2' and '1/4' may be entered. If there is no entry, it is assumed to be ONE (1).
** PLEASE NOTE **
If a doctor prescribes 30 ml's of a medication that is usually dispensed and administered as 60 ml's, the correct UNITS PER DOSE would be 1/2 (or .5), NOT 30 ml's. (30 ml's would be entered into the DOSAGE ORDERED
If the UNITS PER DOSE ordered is a variable amount (1-2 tab.), it is suggested that the maximum amount be entered into this field and the amount ordered noted either in the DOSAGE ORDERED or SPECIAL INSTRUCTIONS
EXECUTABLE HELP: W !,"IF NO ENTRY (OR AN ENTRY OF `0') IS MADE, A ONE (1) WILL BE ASSUMED."
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER