SDWLWTR.m

SDWLWTR ;;IOFO BAY PINES/DMR - EWL WAIT TIME REPORT 8/1/06; 29 Aug 2002  2:54 PM

 ;;5.3;scheduling;**419,1015**;AUG 13 1993;Build 21

START ;

 W !,"EWL Wait Time Statistics"

 W !,"The following fields from file SD WAIT LIST (#409.3) are included in this report."

 W !!,"   Originating Date"

 W !,"   Scheduling Date of Appt"

 W !,"   Date Appt Made"

 W !,"   Date of Disposition"

 W !,"   Desired Date of Appointment"

 W !!

CAL W !,"The following fields are computed calculations included in the report."

 W !,"Refer to the following report key to translate field values:"

 W !!,"   a = Scheduled Date of Appt - Originating Date"

 W !,"   b = Desired Date of Appointment - Originating Date"

 W !,"   c = Desired Date of Appointment - Scheduled Date of Appt"

 W !,"   d = Date of Disposition - Originating Date"

 W !,"   e = Originating Date - Date Appt Made"

SDWLWTR   ;;IOFO BAY PINES/DMR - EWL WAIT TIME REPORT 8/1/06; 29 Aug 2002  2:54 PM

 +1       ;;5.3;scheduling;**419,1015**;AUG 13 1993;Build 21

START     ;

 +1        WRITE !,"EWL Wait Time Statistics"

 +2        WRITE !,"The following fields from file SD WAIT LIST (#409.3) are included in this report."

 +3        WRITE !!,"   Originating Date"

 +4        WRITE !,"   Scheduling Date of Appt"

 +5        WRITE !,"   Date Appt Made"

 +6        WRITE !,"   Date of Disposition"

 +7        WRITE !,"   Desired Date of Appointment"

 +8        WRITE !!

CAL        WRITE !,"The following fields are computed calculations included in the report."

 +1        WRITE !,"Refer to the following report key to translate field values:"

 +2        WRITE !!,"   a = Scheduled Date of Appt - Originating Date"

 +3        WRITE !,"   b = Desired Date of Appointment - Originating Date"

 +4        WRITE !,"   c = Desired Date of Appointment - Scheduled Date of Appt"

 +5        WRITE !,"   d = Date of Disposition - Originating Date"

 +6        WRITE !,"   e = Originating Date - Date Appt Made"