XUTMONH.m

XUTMONH ;SEA/RDS - TaskMan: Option, XUTMON, Part 3 (Help Driver) ;5/3/94  11:40 ;

 ;;8.0;KERNEL;;Jul 10, 1995

 ;

 W !,"Use ZTMON" Q

 ;

RESET ;Setup parameters for DIR call

 W @IOF

 S DIR(0)="SAOM^S:Schedule List.;W:Waiting Lists.;O:One Waiting List.;J:Job List.;T:Task List.;L:Link Lists."

 S DIR("A",1)="                    Help For Monitor Taskman Option"

 S DIR("A",2)=""

 S DIR("A",3)="                         Schedule List."

 S DIR("A",4)="                         Waiting Lists."

 S DIR("A",5)="                         One Waiting List."

 S DIR("A",6)="                         Job List."

 S DIR("A",7)="                         Task List."

 S DIR("A",8)="                         Link Lists."

 S DIR("A",9)=""

 S DIR("A")="                    Select Type Of Listing: "

 S DIR("?")="^D HELP^XUTMONH"

 Q

 ;

BRANCH ;DO the selected listing

S G SCHED^XUTMONH1

W G WAIT^XUTMONH1

O G WAIT1^XUTMONH1

J G JOB^XUTMONH2

T G TASK^XUTMONH2

L G LINK^XUTMONH2

 Q

 ;

HELP ;Help text for '?'

 W !!,"Enter S to see the list of tasks scheduled for the future."

 W !,"Enter W to see all tasks that are waiting for output devices."

 W !,"Enter O to see the waiting list for a single device."

 W !,"Enter J to see all tasks waiting for submanagers."

 W !,"Enter T to see all currently running tasks."

 W !,"Enter L to see all tasks waiting for a dropped link to be restored."

 Q

 ;

SCREEN ;Screen out unknown users

 S Y=1,Z="" I $S($D(DUZ)[0:1,DUZ="":1,1:0) W !!?5,"I do not know who you are (your DUZ variable is ",$S($D(DUZ)[0:"undefined).",1:"null).")

 E  I $D(^VA(200,DUZ,0))[0 W !!?5,"User # ",DUZ," is not defined in this uci.  I'm not sure who you are."

 Q:'$T  W !?5,"You may not use the monitor's help facility."

 W ! F ZT=0:0 R !,"Press RETURN to continue: ",Y:$S($D(DTIME)#2:DTIME,1:60) S Z=Y Q:Y=""!(Y="^")  W !!?5,"Enter RETURN.",! W:Y'["?" $C(7)

 Q

 ;

SELECT ;Select listing (main loop)

 N DIR,DIRUT,DTOUT,DUOUT,X,ZT,ZTNAME D SCREEN Q:'Y  N Y S ZTNAME=$P(^VA(200,DUZ,0),U)

 F ZT=0:0 D RESET,^DIR K DIR,DIRUT,DTOUT,DUOUT Q:U[Y  D @$E(Y)

 S Z=Y

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XUTMONH   2103     printed  Apr 09, 2024@21:16:29                                                                                                                                                                                                     Page 2

XUTMONH   ;SEA/RDS - TaskMan: Option, XUTMON, Part 3 (Help Driver) ;5/3/94  11:40 ;

 +1       ;;8.0;KERNEL;;Jul 10, 1995

 +2       ;

 +3        WRITE !,"Use ZTMON"

           QUIT 

 +4       ;

RESET     ;Setup parameters for DIR call

 +1        WRITE @IOF

 +2        SET DIR(0)="SAOM^S:Schedule List.;W:Waiting Lists.;O:One Waiting List.;J:Job List.;T:Task List.;L:Link Lists."

 +3        SET DIR("A",1)="                    Help For Monitor Taskman Option"

 +4        SET DIR("A",2)=""

 +5        SET DIR("A",3)="                         Schedule List."

 +6        SET DIR("A",4)="                         Waiting Lists."

 +7        SET DIR("A",5)="                         One Waiting List."

 +8        SET DIR("A",6)="                         Job List."

 +9        SET DIR("A",7)="                         Task List."

 +10       SET DIR("A",8)="                         Link Lists."

 +11       SET DIR("A",9)=""

 +12       SET DIR("A")="                    Select Type Of Listing: "

 +13       SET DIR("?")="^D HELP^XUTMONH"

 +14       QUIT 

 +15      ;

BRANCH    ;DO the selected listing

S          GOTO SCHED^XUTMONH1

W          GOTO WAIT^XUTMONH1

O          GOTO WAIT1^XUTMONH1

J          GOTO JOB^XUTMONH2

T          GOTO TASK^XUTMONH2

L          GOTO LINK^XUTMONH2

 +1        QUIT 

 +2       ;

HELP      ;Help text for '?'

 +1        WRITE !!,"Enter S to see the list of tasks scheduled for the future."

 +2        WRITE !,"Enter W to see all tasks that are waiting for output devices."

 +3        WRITE !,"Enter O to see the waiting list for a single device."

 +4        WRITE !,"Enter J to see all tasks waiting for submanagers."

 +5        WRITE !,"Enter T to see all currently running tasks."

 +6        WRITE !,"Enter L to see all tasks waiting for a dropped link to be restored."

 +7        QUIT 

 +8       ;

SCREEN    ;Screen out unknown users

 +1        SET Y=1

           SET Z=""

           IF $SELECT($DATA(DUZ)[0:1,DUZ="":1,1:0)

               WRITE !!?5,"I do not know who you are (your DUZ variable is ",$SELECT($DATA(DUZ)[0:"undefined).",1:"null).")

 +2       IF '$TEST

               IF $DATA(^VA(200,DUZ,0))[0

                   WRITE !!?5,"User # ",DUZ," is not defined in this uci.  I'm not sure who you are."

 +3        if '$TEST

               QUIT 

           WRITE !?5,"You may not use the monitor's help facility."

 +4        WRITE !

           FOR ZT=0:0

               READ !,"Press RETURN to continue: ",Y:$SELECT($DATA(DTIME)#2:DTIME,1:60)

               SET Z=Y

               if Y=""!(Y="^")

                   QUIT 

               WRITE !!?5,"Enter RETURN.",!

               if Y'["?"

                   WRITE $CHAR(7)

 +5        QUIT 

 +6       ;

SELECT    ;Select listing (main loop)

 +1        NEW DIR,DIRUT,DTOUT,DUOUT,X,ZT,ZTNAME

           DO SCREEN

           if 'Y

               QUIT 

           NEW Y

           SET ZTNAME=$PIECE(^VA(200,DUZ,0),U)

 +2        FOR ZT=0:0

               DO RESET

               DO ^DIR

               KILL DIR,DIRUT,DTOUT,DUOUT

               if U[Y

                   QUIT 

               DO @$EXTRACT(Y)

 +3        SET Z=Y

 +4        QUIT 

 +5       ;