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 ---[H[J[2J[HXUTMONH 2103 printed Dec 13, 2024@02:13:23 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 ;
