ZTMONH ;SEA/RDS-TaskMan: Option, ZTMON, Part 3 (Help Driver) ;4/19/90 12:00 ;
;;7.1;KERNEL;;May 11, 1993
;
ENTRY G ^ZTMON
;
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^ZTMONH"
Q
;
BRANCH ;DO the selected listing
D @$S(Y="S":"SCHED^ZTMONH1",Y="W":"WAIT^ZTMONH1",Y="O":"WAIT1^ZTMONH1",Y="J":"JOB^ZTMONH2",Y="T":"TASK^ZTMONH2",Y="L":"LINK^ZTMONH2")
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 BRANCH
S Z=Y
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HZTMONH 2116 printed Nov 22, 2024@17:26:29 Page 2
ZTMONH ;SEA/RDS-TaskMan: Option, ZTMON, Part 3 (Help Driver) ;4/19/90 12:00 ;
+1 ;;7.1;KERNEL;;May 11, 1993
+2 ;
ENTRY GOTO ^ZTMON
+1 ;
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^ZTMONH"
+14 QUIT
+15 ;
BRANCH ;DO the selected listing
+1 DO @$SELECT(Y="S":"SCHED^ZTMONH1",Y="W":"WAIT^ZTMONH1",Y="O":"WAIT1^ZTMONH1",Y="J":"JOB^ZTMONH2",Y="T":"TASK^ZTMONH2",Y="L":"LINK^ZTMONH2")
+2 QUIT
+3 ;
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 BRANCH
+3 SET Z=Y
+4 QUIT
+5 ;
