SD ;SF/GFT,ALB/GRR,TMP - SCHEDULING DRIVER ROUTINE ; 07 SEP 84 4:17 pm
;;5.3;Scheduling;**132**;Aug 13, 1993
D DT^DICRW S DIK="^DOPT(""SD"","
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)
D IXALL^DIK
O W !! S DIC=DIK,DIC(0)="EQAM" D ^DIC I Y>0 D @+Y G SD
Q
1 ;;Amis Sample Menu
W !,"OPC MENU NOW USED!" Q
2 ;;Appointment
W !,"OPTIONS MUST BE INDIVIDUALLY CALLED!" Q
3 ;;Outputs
G ^SDOUTPUT
4 ;;Special Survey Menu
W !,"Special Survey functionality is obsolete!" Q
5 ;;Supervisor
W !,"SUPERVISOR OPTIONS NO LONGER ACCESSIBLE!" Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD 627 printed Dec 13, 2024@02:44:24 Page 2
SD ;SF/GFT,ALB/GRR,TMP - SCHEDULING DRIVER ROUTINE ; 07 SEP 84 4:17 pm
+1 ;;5.3;Scheduling;**132**;Aug 13, 1993
+2 DO DT^DICRW
SET DIK="^DOPT(""SD"","
+3 if $DATA(^DOPT("SD",5))
GOTO O
DO ^DIK
SET ^(0)="Scheduling Option^1N"
FOR I=1:1
SET X=$TEXT(@I)
if X']""
QUIT
SET ^DOPT("SD",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 SD
+1 QUIT
1 ;;Amis Sample Menu
+1 WRITE !,"OPC MENU NOW USED!"
QUIT
2 ;;Appointment
+1 WRITE !,"OPTIONS MUST BE INDIVIDUALLY CALLED!"
QUIT
3 ;;Outputs
+1 GOTO ^SDOUTPUT
4 ;;Special Survey Menu
+1 WRITE !,"Special Survey functionality is obsolete!"
QUIT
5 ;;Supervisor
+1 WRITE !,"SUPERVISOR OPTIONS NO LONGER ACCESSIBLE!"
QUIT
