Routine: BSDH04

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)

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)

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)

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)

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)

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)

 S BSDX(8)="file."

 D DISPLAY(8)

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)

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

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)

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)

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)

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)

BSDH04.m