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

SD.m

Go to the documentation of this file.
  1. SD ;SF/GFT,ALB/GRR,TMP - SCHEDULING DRIVER ROUTINE ; 07 SEP 84 4:17 pm
  1. ;;5.3;Scheduling;**132**;Aug 13, 1993
  1. D DT^DICRW S DIK="^DOPT(""SD"","
  1. G O:$D(^DOPT("SD",5)) D ^DIK S ^(0)="Scheduling Option^1N" F I=1:1 S X=$T(@I) Q:X']"" S ^DOPT("SD",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 SD
  1. Q
  1. 1 ;;Amis Sample Menu
  1. W !,"OPC MENU NOW USED!" Q
  1. 2 ;;Appointment
  1. W !,"OPTIONS MUST BE INDIVIDUALLY CALLED!" Q
  1. 3 ;;Outputs
  1. G ^SDOUTPUT
  1. 4 ;;Special Survey Menu
  1. W !,"Special Survey functionality is obsolete!" Q
  1. 5 ;;Supervisor
  1. W !,"SUPERVISOR OPTIONS NO LONGER ACCESSIBLE!" Q