PSOHELP4.m

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

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