PSGMMARH ;BIR/CML3-MULTIPLE DAY MARS - HELP MESSAGES ;16 DEC 97 / 1:36 PM
;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
;
BH ;
W !!," Enter a 'Y' to print BLANK (no data) MARs for the following patient(s). Enteran 'N' (or press the RETURN key) to print MARs complete with orders. Enter an '^' to exit this option now." Q
;
DH ;
W !!?2,"Enter the START DATE of the "_PSGMARDF_" days for which this MAR is to print. Unless",!,"the BLANK MARs are selected, all orders for the patient(s) selected that are",!,"(or were) active during the date range selected will print."
W !?2,"Time is not required. Enter a date with time if you want to print only those",!,"orders that are active after the date and time specified. Enter a date with-",!,"out time if you want to print all orders that are active on that "
W "date. If blank",!,"MARs are selected, any time entered will be ignored." Q
;
SD ; set-up dir
K DIR S DIR(0)="SOA^C:CONTINUOUS ONLY;P:PRN ONLY;B:BOTH",DIR("A")="Select TYPE OF SHEETS TO PRINT: ",DIR("B")="BOTH" S:'PSGMARB DIR(0)=DIR(0)_";O:ORDERS ONLY"
S DIR("?",1)=" Enter 'C' to print ONLY CONTINUOUS sheets for the patient(s) selected.",DIR("?",2)="Enter 'P' to print ONLY PRN sheets. (One-time and on call orders print on"
S DIR("?",3)="the PRN sheets.) Enter 'B' (or press RETURN) to print BOTH sheets." I 'PSGMARB S DIR("?",3)=DIR("?",3)_" Enter",DIR("?",4)="'O' to print ONLY sheets for which each patient has orders.",N=5
S:'$T N=4 S DIR("?",N)="CHOOSE FROM:",N=N+1,DIR("?",N)=" C CONTINUOUS",N=N+1,DIR("?",N)=" P PRN",N=N+1,DIR("?",N)=" B BOTH",DIR("?")=" " S:'PSGMARB DIR("?",N+1)=" O ONLY ORDERS" Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSGMMARH 1699 printed Sep 23, 2025@19:37:46 Page 2
PSGMMARH ;BIR/CML3-MULTIPLE DAY MARS - HELP MESSAGES ;16 DEC 97 / 1:36 PM
+1 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
+2 ;
BH ;
+1 WRITE !!," Enter a 'Y' to print BLANK (no data) MARs for the following patient(s). Enteran 'N' (or press the RETURN key) to print MARs complete with orders. Enter an '^' to exit this option now."
QUIT
+2 ;
DH ;
+1 WRITE !!?2,"Enter the START DATE of the "_PSGMARDF_" days for which this MAR is to print. Unless",!,"the BLANK MARs are selected, all orders for the patient(s) selected that are",!,"(or were) active during the date range selected will print."
+2 WRITE !?2,"Time is not required. Enter a date with time if you want to print only those",!,"orders that are active after the date and time specified. Enter a date with-",!,"out time if you want to print all orders that are active on that "
+3 WRITE "date. If blank",!,"MARs are selected, any time entered will be ignored."
QUIT
+4 ;
SD ; set-up dir
+1 KILL DIR
SET DIR(0)="SOA^C:CONTINUOUS ONLY;P:PRN ONLY;B:BOTH"
SET DIR("A")="Select TYPE OF SHEETS TO PRINT: "
SET DIR("B")="BOTH"
if 'PSGMARB
SET DIR(0)=DIR(0)_";O:ORDERS ONLY"
+2 SET DIR("?",1)=" Enter 'C' to print ONLY CONTINUOUS sheets for the patient(s) selected."
SET DIR("?",2)="Enter 'P' to print ONLY PRN sheets. (One-time and on call orders print on"
+3 SET DIR("?",3)="the PRN sheets.) Enter 'B' (or press RETURN) to print BOTH sheets."
IF 'PSGMARB
SET DIR("?",3)=DIR("?",3)_" Enter"
SET DIR("?",4)="'O' to print ONLY sheets for which each patient has orders."
SET N=5
+4 if '$TEST
SET N=4
SET DIR("?",N)="CHOOSE FROM:"
SET N=N+1
SET DIR("?",N)=" C CONTINUOUS"
SET N=N+1
SET DIR("?",N)=" P PRN"
SET N=N+1
SET DIR("?",N)=" B BOTH"
SET DIR("?")=" "
if 'PSGMARB
SET DIR("?",N+1)=" O ONLY ORDERS"
QUIT
