| 1 | SDOUTPUT ;ALB/TMP - SCHEDULING OUTPUTS DRIVER ROUTINE ; 10 APR 86
|
|---|
| 2 | ;;5.3;Scheduling;**132**;Aug 13, 1993
|
|---|
| 3 | D DT^DICRW S DIK="^DOPT(""SDOUTPUT"","
|
|---|
| 4 | G O:$D(^DOPT("SDOUTPUT",15)) S ^(0)="Scheduling Output Option^1N" F I=1:1 S X=$T(@I) Q:X']"" S ^DOPT("SDOUTPUT",I,0)=$P(X,";",3)
|
|---|
| 5 | D IXALL^DIK
|
|---|
| 6 | O W !! S DIC=DIK,DIC(0)="EQAM" D ^DIC I Y>0 D @+Y G SDOUTPUT
|
|---|
| 7 | Q
|
|---|
| 8 | 1 ;;AMIS 223 Report
|
|---|
| 9 | W !,"The AMIS 223 Report is obsolete!" Q
|
|---|
| 10 | 2 ;;Appointment List
|
|---|
| 11 | G ^SDAL
|
|---|
| 12 | 3 ;;Cancellation Letters
|
|---|
| 13 | W !,"THIS OPTION HAS BEEN REPLACED WITH THE PRINT SCHEDULING LETTERS OPTION!" Q
|
|---|
| 14 | 4 ;;Clinic Workload Report
|
|---|
| 15 | G ^SDCWL
|
|---|
| 16 | 5 ;;Clinic Assignment List
|
|---|
| 17 | G ^SDCLAS
|
|---|
| 18 | 6 ;;Clinic List (Day of Week)
|
|---|
| 19 | G ^SDCLDOW
|
|---|
| 20 | 7 ;;Clinic Profile
|
|---|
| 21 | S:'$D(DTIME) DTIME=300 I '$D(DT) D DT^SDUTL
|
|---|
| 22 | G ^SDCP
|
|---|
| 23 | 8 ;;File Room List
|
|---|
| 24 | G ^SDF
|
|---|
| 25 | 9 ;;Inpatient Appointments
|
|---|
| 26 | G ^SDWARD
|
|---|
| 27 | 10 ;;Letter Pre-Appointment
|
|---|
| 28 | W !,"THIS OPTION HAS BEEN REPLACED WITH THE PRINT SCHEDULING LETTERS OPTION!" Q
|
|---|
| 29 | 11 ;;Patient Profile
|
|---|
| 30 | G ^SDPP
|
|---|
| 31 | 111 S DIC="^DPT(",DR="0;.36;.11;.13;.321;.1;.101;DE;S;SDVD" U IO W @IOF K DX(0) D EN^DIQ,CLOSE^DGUTQ Q
|
|---|
| 32 | 12 ;;Radiology Pull List
|
|---|
| 33 | G ^SDRFC
|
|---|
| 34 | 13 ;;Routing Slips
|
|---|
| 35 | G ^SDROUT
|
|---|
| 36 | 14 ;;No-Show Letters
|
|---|
| 37 | W !,"THIS OPTION HAS BEEN REPLACED WITH THE PRINT SCHEDULING LETTERS OPTION!" Q
|
|---|
| 38 | 15 ;;Enrollments > X Days
|
|---|
| 39 | G ^SDST
|
|---|
| 40 | 16 ;;Print Scheduling Letters
|
|---|
| 41 | G ^SDLTP
|
|---|
