- 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 Jan 18, 2025@04:00:30 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