source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDOUTPUT.m@ 861

Last change on this file since 861 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.3 KB
RevLine 
[613]1SDOUTPUT ;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
6O W !! S DIC=DIK,DIC(0)="EQAM" D ^DIC I Y>0 D @+Y G SDOUTPUT
7 Q
81 ;;AMIS 223 Report
9 W !,"The AMIS 223 Report is obsolete!" Q
102 ;;Appointment List
11 G ^SDAL
123 ;;Cancellation Letters
13 W !,"THIS OPTION HAS BEEN REPLACED WITH THE PRINT SCHEDULING LETTERS OPTION!" Q
144 ;;Clinic Workload Report
15 G ^SDCWL
165 ;;Clinic Assignment List
17 G ^SDCLAS
186 ;;Clinic List (Day of Week)
19 G ^SDCLDOW
207 ;;Clinic Profile
21 S:'$D(DTIME) DTIME=300 I '$D(DT) D DT^SDUTL
22 G ^SDCP
238 ;;File Room List
24 G ^SDF
259 ;;Inpatient Appointments
26 G ^SDWARD
2710 ;;Letter Pre-Appointment
28 W !,"THIS OPTION HAS BEEN REPLACED WITH THE PRINT SCHEDULING LETTERS OPTION!" Q
2911 ;;Patient Profile
30 G ^SDPP
31111 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
3212 ;;Radiology Pull List
33 G ^SDRFC
3413 ;;Routing Slips
35 G ^SDROUT
3614 ;;No-Show Letters
37 W !,"THIS OPTION HAS BEEN REPLACED WITH THE PRINT SCHEDULING LETTERS OPTION!" Q
3815 ;;Enrollments > X Days
39 G ^SDST
4016 ;;Print Scheduling Letters
41 G ^SDLTP
Note: See TracBrowser for help on using the repository browser.