Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
1.3 KB
|
Rev | Line | |
---|
[628] | 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
|
---|
Note:
See
TracBrowser
for help on using the repository browser.