- 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 Feb 18, 2025@23:56:06 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