source: FOIAVistA/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOHELP4.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 787 bytes
Line 
1PSOHELP4 ;BHAM ISC/LC - OUTPATIENT DD UTILITY ROUTINE ;9/03/97 09:00:36
2 ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
3RXHLP ;Help text for Rx # entry
4 S PSOHLP(1,"F")="$C(7),!?5"
5 S PSOHLP(1)="ENTER A VALID PRESCRIPTION NUMBER"
6 S PSOHLP(2,"F")="!?5"
7 S PSOHLP(2)="OR BARCODE PRESCRIPTION NUMBER"
8 S PSOHLP(3,"F")="!?5"
9 S PSOHLP(3)="OR 'P' TO GET A PATIENT PROFILE"
10 S PSOHLP(4,"F")="!?10"
11 S PSOHLP(4)="(works only if in the OUTPATIENT package)"
12 D WRT
13 Q
14FILDT1 ;Help text for Fill Date entry
15 S PSOHLP(1,"F")="!?5"
16 S PSOHLP(1)="FILL DATE CANNOT BE BEFORE ISSUE DATE"
17 D WRT
18 Q
19DUE1 ;Due Question help text
20 S PSOHLP(1,"F")="$C(7),!?5"
21 S PSOHLP(1)="NO EDITING AFTER QUESTION HAS BEEN ANSWERED IN A QUESTIONNAIRE!"
22 D WRT
23 Q
24WRT ;Calls EN^DDIOL to write text
25 D EN^DDIOL(.PSOHLP) K PSOHLP
26 Q
Note: See TracBrowser for help on using the repository browser.