source: FOIAVistA/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSGMMARH.m@ 1800

Last change on this file since 1800 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.6 KB
Line 
1PSGMMARH ;BIR/CML3-MULTIPLE DAY MARS - HELP MESSAGES ;16 DEC 97 / 1:36 PM
2 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
3 ;
4BH ;
5 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
6 ;
7DH ;
8 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."
9 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 "
10 W "date. If blank",!,"MARs are selected, any time entered will be ignored." Q
11 ;
12SD ; set-up dir
13 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"
14 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"
15 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
16 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
Note: See TracBrowser for help on using the repository browser.