PSGPLDPH ;BIR/RLW-ENTER UNITS DISPENSED (HELP) ;16 AUG 94 / 5:56 PM
;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
PRNM ;
W !!?2,"Answer 'Y' to be shown only those orders that have PRN as a SCHEDULE TYPE,",!,"or have PRN as their SCHEDULE. Enter 'N' to be shown all orders. Enter '^'",!,"to exit this pick list." Q
;
FIMSG ;
W !!," Answer 'Y' if the editing of this pick list is complete, and the data may be",!,"filed into the respective patients' records. Answer 'N' (or '^') if you'll need",!,"to edit this pick list again."
W " Pick lists that are filed away may still be",!,"printed at any time, but are no longer selectable at any other option." Q
;
FMSG ;
W !!," Enter a 'Y', an '^', or press the RETURN key if you are through with this picklist. Enter an 'N' to go through this pick list once again." Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSGPLDPH 834 printed Oct 16, 2024@18:03:35 Page 2
PSGPLDPH ;BIR/RLW-ENTER UNITS DISPENSED (HELP) ;16 AUG 94 / 5:56 PM
+1 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
PRNM ;
+1 WRITE !!?2,"Answer 'Y' to be shown only those orders that have PRN as a SCHEDULE TYPE,",!,"or have PRN as their SCHEDULE. Enter 'N' to be shown all orders. Enter '^'",!,"to exit this pick list."
QUIT
+2 ;
FIMSG ;
+1 WRITE !!," Answer 'Y' if the editing of this pick list is complete, and the data may be",!,"filed into the respective patients' records. Answer 'N' (or '^') if you'll need",!,"to edit this pick list again."
+2 WRITE " Pick lists that are filed away may still be",!,"printed at any time, but are no longer selectable at any other option."
QUIT
+3 ;
FMSG ;
+1 WRITE !!," Enter a 'Y', an '^', or press the RETURN key if you are through with this picklist. Enter an 'N' to go through this pick list once again."
QUIT
+2 ;
