27 lines
787 B
Mathematica
27 lines
787 B
Mathematica
PSOHELP4 ;BHAM ISC/LC - OUTPATIENT DD UTILITY ROUTINE ;9/03/97 09:00:36
|
|
;;7.0;OUTPATIENT PHARMACY;;DEC 1997
|
|
RXHLP ;Help text for Rx # entry
|
|
S PSOHLP(1,"F")="$C(7),!?5"
|
|
S PSOHLP(1)="ENTER A VALID PRESCRIPTION NUMBER"
|
|
S PSOHLP(2,"F")="!?5"
|
|
S PSOHLP(2)="OR BARCODE PRESCRIPTION NUMBER"
|
|
S PSOHLP(3,"F")="!?5"
|
|
S PSOHLP(3)="OR 'P' TO GET A PATIENT PROFILE"
|
|
S PSOHLP(4,"F")="!?10"
|
|
S PSOHLP(4)="(works only if in the OUTPATIENT package)"
|
|
D WRT
|
|
Q
|
|
FILDT1 ;Help text for Fill Date entry
|
|
S PSOHLP(1,"F")="!?5"
|
|
S PSOHLP(1)="FILL DATE CANNOT BE BEFORE ISSUE DATE"
|
|
D WRT
|
|
Q
|
|
DUE1 ;Due Question help text
|
|
S PSOHLP(1,"F")="$C(7),!?5"
|
|
S PSOHLP(1)="NO EDITING AFTER QUESTION HAS BEEN ANSWERED IN A QUESTIONNAIRE!"
|
|
D WRT
|
|
Q
|
|
WRT ;Calls EN^DDIOL to write text
|
|
D EN^DDIOL(.PSOHLP) K PSOHLP
|
|
Q
|