SD.m

SD ;SF/GFT,ALB/GRR,TMP - SCHEDULING DRIVER ROUTINE ; 07 SEP 84  4:17 pm

 ;;5.3;Scheduling;**132,1015**;Aug 13, 1993;Build 21

 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

SD        ;SF/GFT,ALB/GRR,TMP - SCHEDULING DRIVER ROUTINE ; 07 SEP 84  4:17 pm

 +1       ;;5.3;Scheduling;**132,1015**;Aug 13, 1993;Build 21

 +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