|
Last change
on this file since 628 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
787 bytes
|
| Line | |
|---|
| 1 | PSOHELP4 ;BHAM ISC/LC - OUTPATIENT DD UTILITY ROUTINE ;9/03/97 09:00:36
|
|---|
| 2 | ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
|
|---|
| 3 | RXHLP ;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
|
|---|
| 14 | FILDT1 ;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
|
|---|
| 19 | DUE1 ;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
|
|---|
| 24 | WRT ;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.
