Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDOUTPUT

SDOUTPUT.m

Go to the documentation of this file.
  1. SDOUTPUT ;ALB/TMP - SCHEDULING OUTPUTS DRIVER ROUTINE ; 10 APR 86
  1. ;;5.3;Scheduling;**132**;Aug 13, 1993
  1. D DT^DICRW S DIK="^DOPT(""SDOUTPUT"","
  1. 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)
  1. D IXALL^DIK
  1. O W !! S DIC=DIK,DIC(0)="EQAM" D ^DIC I Y>0 D @+Y G SDOUTPUT
  1. Q
  1. 1 ;;AMIS 223 Report
  1. W !,"The AMIS 223 Report is obsolete!" Q
  1. 2 ;;Appointment List
  1. G ^SDAL
  1. 3 ;;Cancellation Letters
  1. W !,"THIS OPTION HAS BEEN REPLACED WITH THE PRINT SCHEDULING LETTERS OPTION!" Q
  1. 4 ;;Clinic Workload Report
  1. G ^SDCWL
  1. 5 ;;Clinic Assignment List
  1. G ^SDCLAS
  1. 6 ;;Clinic List (Day of Week)
  1. G ^SDCLDOW
  1. 7 ;;Clinic Profile
  1. S:'$D(DTIME) DTIME=300 I '$D(DT) D DT^SDUTL
  1. G ^SDCP
  1. 8 ;;File Room List
  1. G ^SDF
  1. 9 ;;Inpatient Appointments
  1. G ^SDWARD
  1. 10 ;;Letter Pre-Appointment
  1. W !,"THIS OPTION HAS BEEN REPLACED WITH THE PRINT SCHEDULING LETTERS OPTION!" Q
  1. 11 ;;Patient Profile
  1. G ^SDPP
  1. 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
  1. 12 ;;Radiology Pull List
  1. G ^SDRFC
  1. 13 ;;Routing Slips
  1. G ^SDROUT
  1. 14 ;;No-Show Letters
  1. W !,"THIS OPTION HAS BEEN REPLACED WITH THE PRINT SCHEDULING LETTERS OPTION!" Q
  1. 15 ;;Enrollments > X Days
  1. G ^SDST
  1. 16 ;;Print Scheduling Letters
  1. G ^SDLTP