BSDH04 ; IHS/ANMC/LJF - INTRO TEXT 4 APP COORD MENU ;
;;5.3;PIMS;;APR 26, 2002
;
ACR ;EP; intro text for Add Cancellation Reasons
NEW BSDX
S BSDX(1)="Use this option to add cancellation reasons. Deleting"
S BSDX(2)="reasons is not allowed; make them inactive. A sample set"
S BSDX(3)="of reasons was installed but you may create those fitting"
S BSDX(4)=" to your facility."
D DISPLAY(4)
Q
;
AEH ;EP; intro text for add/edit holiday
NEW BSDX
S BSDX(1)="Use this option to add holidays to the Scheduling calendar."
S BSDX(2)="If you are adding or changing a holiday that will affect"
S BSDX(3)="the availability of clinic schedules already set up,"
S BSDX(4)="remember to use the option REMAP CLINICS."
D DISPLAY(4)
Q
;
AWR ;EP; intro text for Add Waiting List Reasons
NEW BSDX
S BSDX(1)="Use this option to add reasons patients are placed on"
S BSDX(2)="a waiting list. Deleting reasons is not allowed; make"
S BSDX(3)="them inactive. A sample set of reasons was installed"
S BSDX(4)="but you may create those whic are more appropriate for"
S BSDX(5)="your facility."
D DISPLAY(5)
Q
;
CHG ;EP; intro text for Convert Patterns to 30-60
NEW BSDX
S BSDX(1)="Use this option to change the patterns created using 15"
S BSDX(2)="minute increments to 30 or 60 minute time slot patterns."
D DISPLAY(2)
Q
;
CVS ;EP; intro text for Create Visit Status Report
NEW BSDX
S BSDX(1)="Use this report to review whether clinics have 'Create"
S BSDX(2)="Visit at Check-in' turned on or not. It lists those"
S BSDX(3)="clinics with the parameter turned OFF first sorted by"
S BSDX(4)="principal clinic. All clinics on the list are active."
D DISPLAY(4)
Q
;
ESP ;EP; intro text for Edit Scheduling Parameters
NEW BSDX
S BSDX(1)="Use this option to set up and maintain facility and system"
S BSDX(2)="parameters dealing with the Scheduling functions in PIMS."
S BSDX(3)="There are 3 files involved. The MAS Parameter file has only"
S BSDX(4)="one entry and is used for system-wide items such as multi-"
S BSDX(5)="division yes/no and appointment search threshold. All other"
S BSDX(6)="parameters are based on facility and stored in either the"
S BSDX(7)="Medical Center Division or the IHS Scheduling Parameter file."
D DISPLAY(7)
Q
;
S BSDX(8)="file."
D DISPLAY(8)
Q
;
IRC ;EP; intro text for inactivate/rectivate clinic
NEW BSDX
S BSDX(1)="Choose INACTIVATE to render a clinic inactive (no activity)"
S BSDX(2)="allowed) as of a selected date. Choose REACTIVATE to set"
S BSDX(3)="the date from which point the inactivation of a clinic is"
S BSDX(4)="terminated."
S BSDX(5)=""
S BSDX(6)="For INACTIVE clinics, you may want to change the clinic"
S BSDX(7)="name, remove the abbreviation and principal clinic link."
S BSDX(8)="Use the Set Up A Clinic option to make those changes."
D DISPLAY(8)
Q
;
OVB ;EP; intro text for list overbook users
NEW BSDX
S BSDX(1)="Use this option to print a listing of all users holding the"
S BSDX(2)="SDOB or SDMOB keys. These keys give users overbook access"
S BSDX(3)="to ALL clinics. It is recommended that you keep this list"
S BSDX(4)="short. Assigning overbook access by individual clinic or"
S BSDX(5)="by principal clinic is available under the Set Up a Clinic"
S BSDX(6)="option."
D DISPLAY(6),PAUSE^BDGF
Q
;
RMC ;EP; intro text for remap clinic
NEW BSDX
S BSDX(1)="Use this option to remap one or more clinics. It is used"
S BSDX(2)="primarily after adding a new holiday or deleting existing"
S BSDX(3)="holidays. It updates the appointment patterns to insert"
S BSDX(4)="or delete the holiday on the schedule. It must be run"
S BSDX(5)="for each clinic which meets on the date of the holiday."
D DISPLAY(5)
Q
;
SCT ;EP; intro text for Scheduling Templates
NEW BSDX
S BSDX(1)="Use this option to add or edit scheduling appointment"
S BSDX(2)="availability templates. These templates are defined times"
S BSDX(3)="and number of slots to make setting up clinic appointments"
S BSDX(4)="much easier. You can also use this option to view a list"
S BSDX(5)="of templates already defined."
D DISPLAY(5)
Q
;
DISPLAY(N) ; -- display array with N lines
S BSDX(1,"F")="!!!?5"
F I=2:1:N S BSDX(I,"F")="!?5"
S BSDX(N+1,"F")="!!"
D EN^DDIOL(.BSDX)
Q
;
PAD(DATA,LENGTH) ; -- SUBRTN to pad length of data
Q $E(DATA_$$REPEAT^XLFSTR(" ",LENGTH),1,LENGTH)
;
SP(N) ; -- returns N number of spaces
Q $$PAD(" ",N)
BSDH04 ; IHS/ANMC/LJF - INTRO TEXT 4 APP COORD MENU ;
+1 ;;5.3;PIMS;;APR 26, 2002
+2 ;
ACR ;EP; intro text for Add Cancellation Reasons
+1 NEW BSDX
+2 SET BSDX(1)="Use this option to add cancellation reasons. Deleting"
+3 SET BSDX(2)="reasons is not allowed; make them inactive. A sample set"
+4 SET BSDX(3)="of reasons was installed but you may create those fitting"
+5 SET BSDX(4)=" to your facility."
+6 DO DISPLAY(4)
+7 QUIT
+8 ;
AEH ;EP; intro text for add/edit holiday
+1 NEW BSDX
+2 SET BSDX(1)="Use this option to add holidays to the Scheduling calendar."
+3 SET BSDX(2)="If you are adding or changing a holiday that will affect"
+4 SET BSDX(3)="the availability of clinic schedules already set up,"
+5 SET BSDX(4)="remember to use the option REMAP CLINICS."
+6 DO DISPLAY(4)
+7 QUIT
+8 ;
AWR ;EP; intro text for Add Waiting List Reasons
+1 NEW BSDX
+2 SET BSDX(1)="Use this option to add reasons patients are placed on"
+3 SET BSDX(2)="a waiting list. Deleting reasons is not allowed; make"
+4 SET BSDX(3)="them inactive. A sample set of reasons was installed"
+5 SET BSDX(4)="but you may create those whic are more appropriate for"
+6 SET BSDX(5)="your facility."
+7 DO DISPLAY(5)
+8 QUIT
+9 ;
CHG ;EP; intro text for Convert Patterns to 30-60
+1 NEW BSDX
+2 SET BSDX(1)="Use this option to change the patterns created using 15"
+3 SET BSDX(2)="minute increments to 30 or 60 minute time slot patterns."
+4 DO DISPLAY(2)
+5 QUIT
+6 ;
CVS ;EP; intro text for Create Visit Status Report
+1 NEW BSDX
+2 SET BSDX(1)="Use this report to review whether clinics have 'Create"
+3 SET BSDX(2)="Visit at Check-in' turned on or not. It lists those"
+4 SET BSDX(3)="clinics with the parameter turned OFF first sorted by"
+5 SET BSDX(4)="principal clinic. All clinics on the list are active."
+6 DO DISPLAY(4)
+7 QUIT
+8 ;
ESP ;EP; intro text for Edit Scheduling Parameters
+1 NEW BSDX
+2 SET BSDX(1)="Use this option to set up and maintain facility and system"
+3 SET BSDX(2)="parameters dealing with the Scheduling functions in PIMS."
+4 SET BSDX(3)="There are 3 files involved. The MAS Parameter file has only"
+5 SET BSDX(4)="one entry and is used for system-wide items such as multi-"
+6 SET BSDX(5)="division yes/no and appointment search threshold. All other"
+7 SET BSDX(6)="parameters are based on facility and stored in either the"
+8 SET BSDX(7)="Medical Center Division or the IHS Scheduling Parameter file."
+9 DO DISPLAY(7)
+10 QUIT
+11 ;
+12 SET BSDX(8)="file."
+13 DO DISPLAY(8)
+14 QUIT
+15 ;
IRC ;EP; intro text for inactivate/rectivate clinic
+1 NEW BSDX
+2 SET BSDX(1)="Choose INACTIVATE to render a clinic inactive (no activity)"
+3 SET BSDX(2)="allowed) as of a selected date. Choose REACTIVATE to set"
+4 SET BSDX(3)="the date from which point the inactivation of a clinic is"
+5 SET BSDX(4)="terminated."
+6 SET BSDX(5)=""
+7 SET BSDX(6)="For INACTIVE clinics, you may want to change the clinic"
+8 SET BSDX(7)="name, remove the abbreviation and principal clinic link."
+9 SET BSDX(8)="Use the Set Up A Clinic option to make those changes."
+10 DO DISPLAY(8)
+11 QUIT
+12 ;
OVB ;EP; intro text for list overbook users
+1 NEW BSDX
+2 SET BSDX(1)="Use this option to print a listing of all users holding the"
+3 SET BSDX(2)="SDOB or SDMOB keys. These keys give users overbook access"
+4 SET BSDX(3)="to ALL clinics. It is recommended that you keep this list"
+5 SET BSDX(4)="short. Assigning overbook access by individual clinic or"
+6 SET BSDX(5)="by principal clinic is available under the Set Up a Clinic"
+7 SET BSDX(6)="option."
+8 DO DISPLAY(6)
DO PAUSE^BDGF
+9 QUIT
+10 ;
RMC ;EP; intro text for remap clinic
+1 NEW BSDX
+2 SET BSDX(1)="Use this option to remap one or more clinics. It is used"
+3 SET BSDX(2)="primarily after adding a new holiday or deleting existing"
+4 SET BSDX(3)="holidays. It updates the appointment patterns to insert"
+5 SET BSDX(4)="or delete the holiday on the schedule. It must be run"
+6 SET BSDX(5)="for each clinic which meets on the date of the holiday."
+7 DO DISPLAY(5)
+8 QUIT
+9 ;
SCT ;EP; intro text for Scheduling Templates
+1 NEW BSDX
+2 SET BSDX(1)="Use this option to add or edit scheduling appointment"
+3 SET BSDX(2)="availability templates. These templates are defined times"
+4 SET BSDX(3)="and number of slots to make setting up clinic appointments"
+5 SET BSDX(4)="much easier. You can also use this option to view a list"
+6 SET BSDX(5)="of templates already defined."
+7 DO DISPLAY(5)
+8 QUIT
+9 ;
DISPLAY(N) ; -- display array with N lines
+1 SET BSDX(1,"F")="!!!?5"
+2 FOR I=2:1:N
SET BSDX(I,"F")="!?5"
+3 SET BSDX(N+1,"F")="!!"
+4 DO EN^DDIOL(.BSDX)
+5 QUIT
+6 ;
PAD(DATA,LENGTH) ; -- SUBRTN to pad length of data
+1 QUIT $EXTRACT(DATA_$$REPEAT^XLFSTR(" ",LENGTH),1,LENGTH)
+2 ;
SP(N) ; -- returns N number of spaces
+1 QUIT $$PAD(" ",N)
