- XUTMONH ;SEA/RDS - TaskMan: Option, XUTMON, Part 3 (Help Driver) ;5/3/94 11:40 ; [ 04/02/2003 8:29 AM ]
- ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003
- ;;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
- ;
- XUTMONH ;SEA/RDS - TaskMan: Option, XUTMON, Part 3 (Help Driver) ;5/3/94 11:40 ; [ 04/02/2003 8:29 AM ]
- +1 ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003
- +2 ;;8.0;KERNEL;;Jul 10, 1995
- +3 ;
- +4 WRITE !,"Use ZTMON"
- QUIT
- +5 ;
- 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 ;
