Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSOHELP4

PSOHELP4.m

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