- 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 Jan 18, 2025@03:45:32 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