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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOHELP4 813 printed Sep 15, 2024@21:53:41 Page 2
PSOHELP4 ;BHAM ISC/LC - OUTPATIENT DD UTILITY ROUTINE ;9/03/97 09:00:36
+1 ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
RXHLP ;Help text for Rx # entry
+1 SET PSOHLP(1,"F")="$C(7),!?5"
+2 SET PSOHLP(1)="ENTER A VALID PRESCRIPTION NUMBER"
+3 SET PSOHLP(2,"F")="!?5"
+4 SET PSOHLP(2)="OR BARCODE PRESCRIPTION NUMBER"
+5 SET PSOHLP(3,"F")="!?5"
+6 SET PSOHLP(3)="OR 'P' TO GET A PATIENT PROFILE"
+7 SET PSOHLP(4,"F")="!?10"
+8 SET PSOHLP(4)="(works only if in the OUTPATIENT package)"
+9 DO WRT
+10 QUIT
FILDT1 ;Help text for Fill Date entry
+1 SET PSOHLP(1,"F")="!?5"
+2 SET PSOHLP(1)="FILL DATE CANNOT BE BEFORE ISSUE DATE"
+3 DO WRT
+4 QUIT
DUE1 ;Due Question help text
+1 SET PSOHLP(1,"F")="$C(7),!?5"
+2 SET PSOHLP(1)="NO EDITING AFTER QUESTION HAS BEEN ANSWERED IN A QUESTIONNAIRE!"
+3 DO WRT
+4 QUIT
WRT ;Calls EN^DDIOL to write text
+1 DO EN^DDIOL(.PSOHLP)
KILL PSOHLP
+2 QUIT