SDOUTPUT ;ALB/TMP - SCHEDULING OUTPUTS DRIVER ROUTINE ; 10 APR 86
;;5.3;Scheduling;**132**;Aug 13, 1993
D DT^DICRW S DIK="^DOPT(""SDOUTPUT"","
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)
D IXALL^DIK
O W !! S DIC=DIK,DIC(0)="EQAM" D ^DIC I Y>0 D @+Y G SDOUTPUT
Q
1 ;;AMIS 223 Report
W !,"The AMIS 223 Report is obsolete!" Q
2 ;;Appointment List
G ^SDAL
3 ;;Cancellation Letters
W !,"THIS OPTION HAS BEEN REPLACED WITH THE PRINT SCHEDULING LETTERS OPTION!" Q
4 ;;Clinic Workload Report
G ^SDCWL
5 ;;Clinic Assignment List
G ^SDCLAS
6 ;;Clinic List (Day of Week)
G ^SDCLDOW
7 ;;Clinic Profile
S:'$D(DTIME) DTIME=300 I '$D(DT) D DT^SDUTL
G ^SDCP
8 ;;File Room List
G ^SDF
9 ;;Inpatient Appointments
G ^SDWARD
10 ;;Letter Pre-Appointment
W !,"THIS OPTION HAS BEEN REPLACED WITH THE PRINT SCHEDULING LETTERS OPTION!" Q
11 ;;Patient Profile
G ^SDPP
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
12 ;;Radiology Pull List
G ^SDRFC
13 ;;Routing Slips
G ^SDROUT
14 ;;No-Show Letters
W !,"THIS OPTION HAS BEEN REPLACED WITH THE PRINT SCHEDULING LETTERS OPTION!" Q
15 ;;Enrollments > X Days
G ^SDST
16 ;;Print Scheduling Letters
G ^SDLTP
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDOUTPUT 1331 printed Dec 13, 2024@02:59:21 Page 2
SDOUTPUT ;ALB/TMP - SCHEDULING OUTPUTS DRIVER ROUTINE ; 10 APR 86
+1 ;;5.3;Scheduling;**132**;Aug 13, 1993
+2 DO DT^DICRW
SET DIK="^DOPT(""SDOUTPUT"","
+3 if $DATA(^DOPT("SDOUTPUT",15))
GOTO O
SET ^(0)="Scheduling Output Option^1N"
FOR I=1:1
SET X=$TEXT(@I)
if X']""
QUIT
SET ^DOPT("SDOUTPUT",I,0)=$PIECE(X,";",3)
+4 DO IXALL^DIK
O WRITE !!
SET DIC=DIK
SET DIC(0)="EQAM"
DO ^DIC
IF Y>0
DO @+Y
GOTO SDOUTPUT
+1 QUIT
1 ;;AMIS 223 Report
+1 WRITE !,"The AMIS 223 Report is obsolete!"
QUIT
2 ;;Appointment List
+1 GOTO ^SDAL
3 ;;Cancellation Letters
+1 WRITE !,"THIS OPTION HAS BEEN REPLACED WITH THE PRINT SCHEDULING LETTERS OPTION!"
QUIT
4 ;;Clinic Workload Report
+1 GOTO ^SDCWL
5 ;;Clinic Assignment List
+1 GOTO ^SDCLAS
6 ;;Clinic List (Day of Week)
+1 GOTO ^SDCLDOW
7 ;;Clinic Profile
+1 if '$DATA(DTIME)
SET DTIME=300
IF '$DATA(DT)
DO DT^SDUTL
+2 GOTO ^SDCP
8 ;;File Room List
+1 GOTO ^SDF
9 ;;Inpatient Appointments
+1 GOTO ^SDWARD
10 ;;Letter Pre-Appointment
+1 WRITE !,"THIS OPTION HAS BEEN REPLACED WITH THE PRINT SCHEDULING LETTERS OPTION!"
QUIT
11 ;;Patient Profile
+1 GOTO ^SDPP
111 SET DIC="^DPT("
SET DR="0;.36;.11;.13;.321;.1;.101;DE;S;SDVD"
USE IO
WRITE @IOF
KILL DX(0)
DO EN^DIQ
DO CLOSE^DGUTQ
QUIT
12 ;;Radiology Pull List
+1 GOTO ^SDRFC
13 ;;Routing Slips
+1 GOTO ^SDROUT
14 ;;No-Show Letters
+1 WRITE !,"THIS OPTION HAS BEEN REPLACED WITH THE PRINT SCHEDULING LETTERS OPTION!"
QUIT
15 ;;Enrollments > X Days
+1 GOTO ^SDST
16 ;;Print Scheduling Letters
+1 GOTO ^SDLTP
