ASDH03.m

ASDH03 ; IHS/ADC/PDW/ENM - MORE INTRO TEXT FOR RPTS ; [ 03/25/1999  11:48 AM ]

 ;;5.0;IHS SCHEDULING;;MAR 25, 1999

 ;

NE ;EP; intro text for next avail appt by prin clinic

 D ^XBCLS W !!?15,"NEXT AVAILABLE APPOINTMENT by PRINCIPAL CLINIC",!!

 W !?5,"Use this option to print a listing of active clinics, sorted"

 W !?5,"by principal clinic, noting the number of days until an"

 W !?5,"appointment is available.",!

 Q

 ;

NU ;EP; intro text for number of avail appts listing

 D ^XBCLS W !!?15,"NUMBER OF AVAILABLE APPOINTMENTS LISTING",!!

 W !?5,"Use this option to view the number of available appointments"

 W !?5,"within each clinic for each day of the next 2 weeks.  The"

 W !?5,"listing is sorted by principal clinic and identifies each"

 W !?5,"clinic by abbreviation.",!

 Q

 ;

AB ;EP; intro text for clinic abbreviations listing

 D ^XBCLS W !!?20,"LIST CLINIC ABBREVIATIONS",!!

 W !?5,"Use this option to print out a list of active clinics sorted"

 W !?5,"by their abbreviations.  This will help decipher reports with"

 W !?5,"only enough room to print the abbreviations instead of the full"

 W !?5,"clinic name.  It also helps you check for the use of duplicate"

 W !?5,"abbreviations.",!

 Q

 ;

FN ;EP; intro text for find next appointment

 D ^XBCLS W !!?20,"FIND NEXT AVAILABLE APPOINTMENT",!!

 W !?5,"Use this option to find the next appointment slot open in"

 W !?2,"a selected clinic within the date range you specify."

 W !?5,"You will also be asked for the appointment length.  The"

 W !?5,"schedule for the day with this open appointment displays"

 W !?5,"to your screen in the same format as month-at-a-glance.",!

 Q

 ;

PL ;EP;  intro text for print letters options

 D ^XBCLS W !!?20,"PRINT SCHEDULING LETTERS",!!

 W !?5,"Use this option to print various appointment letters for"

 W !?5,"your clinics.  These include Pre-Appointment letters,"

 W !?5,"Cancellation letters, or No-show letters",!!

 Q

ASDH03    ; IHS/ADC/PDW/ENM - MORE INTRO TEXT FOR RPTS ; [ 03/25/1999  11:48 AM ]

 +1       ;;5.0;IHS SCHEDULING;;MAR 25, 1999

 +2       ;

NE        ;EP; intro text for next avail appt by prin clinic

 +1        DO ^XBCLS

           WRITE !!?15,"NEXT AVAILABLE APPOINTMENT by PRINCIPAL CLINIC",!!

 +2        WRITE !?5,"Use this option to print a listing of active clinics, sorted"

 +3        WRITE !?5,"by principal clinic, noting the number of days until an"

 +4        WRITE !?5,"appointment is available.",!

 +5        QUIT 

 +6       ;

NU        ;EP; intro text for number of avail appts listing

 +1        DO ^XBCLS

           WRITE !!?15,"NUMBER OF AVAILABLE APPOINTMENTS LISTING",!!

 +2        WRITE !?5,"Use this option to view the number of available appointments"

 +3        WRITE !?5,"within each clinic for each day of the next 2 weeks.  The"

 +4        WRITE !?5,"listing is sorted by principal clinic and identifies each"

 +5        WRITE !?5,"clinic by abbreviation.",!

 +6        QUIT 

 +7       ;

AB        ;EP; intro text for clinic abbreviations listing

 +1        DO ^XBCLS

           WRITE !!?20,"LIST CLINIC ABBREVIATIONS",!!

 +2        WRITE !?5,"Use this option to print out a list of active clinics sorted"

 +3        WRITE !?5,"by their abbreviations.  This will help decipher reports with"

 +4        WRITE !?5,"only enough room to print the abbreviations instead of the full"

 +5        WRITE !?5,"clinic name.  It also helps you check for the use of duplicate"

 +6        WRITE !?5,"abbreviations.",!

 +7        QUIT 

 +8       ;

FN        ;EP; intro text for find next appointment

 +1        DO ^XBCLS

           WRITE !!?20,"FIND NEXT AVAILABLE APPOINTMENT",!!

 +2        WRITE !?5,"Use this option to find the next appointment slot open in"

 +3        WRITE !?2,"a selected clinic within the date range you specify."

 +4        WRITE !?5,"You will also be asked for the appointment length.  The"

 +5        WRITE !?5,"schedule for the day with this open appointment displays"

 +6        WRITE !?5,"to your screen in the same format as month-at-a-glance.",!

 +7        QUIT 

 +8       ;

PL        ;EP;  intro text for print letters options

 +1        DO ^XBCLS

           WRITE !!?20,"PRINT SCHEDULING LETTERS",!!

 +2        WRITE !?5,"Use this option to print various appointment letters for"

 +3        WRITE !?5,"your clinics.  These include Pre-Appointment letters,"

 +4        WRITE !?5,"Cancellation letters, or No-show letters",!!

 +5        QUIT