Routine: ZTMKU

Name	Comments	DBIA/ICR reference
UP(X)	;Convert to Uppercase
STOP	;Shut Down Task Managers
PURGE	;Purge the TASK list of running tasks.
NODES	;Return Task Manager Status Nodes
OPT(MD)	;Disable/Enable option prosessing
WS(MD,GR)	;Set/Clear Wait state
LIVE	;Return Whether A Task Manager Is Live
GROUP(CALL)	;Do CALL for each node, use NODE as the parameter
TABLE	;Display Task Manager Table
ZTM	;Return Number Of Live Task Managers
UPDATE	;Have Managers Do an parameter Update
SSUB(NODE)	;Stop sub-managers
SMAN(NODE)	;stop managers
T	;Print Informal-format Conversion Of $H-format Date ; Input: %ZTT, DT.
CLEAN	;Cleanup Status Node
QSUB
SS(MD,GR,NODE)	;Set/clear STOP nodes.
WAIT	;Put Task Managers In WAIT State
RUN	;Remove Task Managers From WAIT State
MENU	;
ASKACT	;Ask if active Tasks should be signaled to stop.
QUERY	;Query Status Of A Task Manager
STPACT	;Set the STOP flag for all ACTIVE Tasks.

Name	Field # of Occurrence
7^%DTC	T+1
YMD^%DTC	TABLE+3
$$ASKSTOP^%ZTLOAD	STPACT+3
^DIR	MENU+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"TaskMan removed from 'WAIT STATE'.",! Line Location: RUN+1
Function Call: WRITE	Prompt: !,"Managers will update parameters.",! Line Location: UPDATE+2
Function Call: WRITE	Prompt: !,"TaskMan now in 'WAIT STATE'",$C(7) Line Location: WAIT+1
Function Call: READ	Prompt: "Are you sure you want to stop TaskMan? NO// " Formatting: !! Timeout: $S($D(DTIME)#2:DTIME,1:60) Variable: ZTX Line Location: STOP+2
Function Call: WRITE	Prompt: !,"Answer YES to shut down all Task Managers on current the volume set." Line Location: STOP+2
Function Call: WRITE	Prompt: !,"TaskMan NOT shut down." Line Location: STOP+3
Function Call: WRITE	Prompt: !,"Shutting down TaskMan." Line Location: STOP+4
Function Call: READ	Prompt: "Should active jobs be signaled to stop? NO// " Formatting: !! Timeout: $G(DTIME,60) Variable: ZTX Line Location: ASKACT+2
Function Call: WRITE	Prompt: !,"Answer YES to set the STOP flag for active tasks.",!,"Tasks need to call $$S^%ZTLOAD to get the signal." Line Location: ASKACT+2
Function Call: WRITE	Prompt: !,"Tasks NOT signaled to shut down." Line Location: ASKACT+3
Function Call: WRITE	Prompt: !!,"Signaling active Tasks to STOP." Line Location: ASKACT+4
Function Call: WRITE	Prompt: !,"Done." Line Location: ASKACT+5
Function Call: WRITE	Prompt: !,"TASK: ",ZTI," Stop status: ",ZT2 Line Location: STPACT+3
Function Call: READ	Prompt: "Should active submanagers shut down after finishing their current tasks? NO// " Formatting: !! Timeout: $S($D(DTIME)#2:DTIME,1:60) Variable: ZTX Line Location: QSUB+1
Function Call: WRITE	Prompt: !,"Please answer YES or NO." Line Location: QSUB+1
Function Call: WRITE	Prompt: !,"Okay!",! Line Location: QSUB+2
Function Call: WRITE	Prompt: !,"JOB NUMBER",?15,"STATUS",?25,"DESCRIPTION",?55,"LAST UPDATED",?75,"LIVE" Line Location: TABLE+1
Function Call: WRITE	Prompt: !,"----------",?15,"------",?25,"-----------",?55,"------------",?75,"----" Line Location: TABLE+2
Function Call: WRITE	Prompt: !,%ZTY(%ZTI),?15,$P(%ZTY,U,2),?25,$P(%ZTY,U,3),?55 Line Location: TABLE+4
Function Call: WRITE	Prompt: ?75,$S(%ZTY:"YES",1:"NO") Line Location: TABLE+4
Function Call: WRITE	Prompt: !?6,"Total:",$J(%ZTZ,3),!?6,"Live :",$J(%ZTZ1,3) Line Location: TABLE+5
Function Call: WRITE	Prompt: !,"Done!",! Line Location: CLEAN+1
Function Call: WRITE	Prompt: !,"Done!",! Line Location: PURGE+3
Function Call: WRITE	Prompt: $S(DT=X:"TODAY",DT+1=X:"TOMORROW",1:$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3))_" AT " Line Location: T+1
Function Call: WRITE	Prompt: $E(%H+100,2,3)_":"_$E(X#60+100,2,3) Line Location: T+1
Routine Call	DIR Line Location: MENU+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZTSCH("NO-OPTION"	OPT+1*, OPT+2!
^%ZTSCH("RUN"	LIVE+3
^%ZTSCH("STATUS"	GROUP+3, QUERY+2, NODES+1, CLEAN+1!
^%ZTSCH("STOP"	RUN+1!, SS+2*, SS+3!
^%ZTSCH("SUB"	GROUP+5
^%ZTSCH("TASK"	STPACT+3, PURGE+2!
^%ZTSCH("UPDATE"	UPDATE+1!
^%ZTSCH("WAIT"	WS+2*, WS+3!

Label References

Name	Line Occurrences
$$UP	STOP+2, ASKACT+2
@(	GROUP+3, GROUP+5
ASKACT	STOP+5
GROUP	STOP+4, QSUB+2
LIVE	TABLE+4, ZTM+2
NODES	TABLE+3, ZTM+2
QSUB	WAIT+2, STOP+5
QUERY	TABLE+4, ZTM+2
RUN	MENU+7
SS	SSUB+1, SMAN+1
STOP	MENU+7
STPACT	ASKACT+5
T	TABLE+4
TABLE	MENU+2
UPDATE	MENU+7
WAIT	MENU+7
WS	RUN+1, WAIT+1, SS+2

Name	Field # of Occurrence
^(	GROUP+3

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	T+2!
%D	T+2!
%H	TABLE+3, T+1, T+2!
%M	T+2!
%Y	T+2!
%ZTI	TABLE+4, TABLE+6!, ZTM+1~, ZTM+2
%ZTT	TABLE+4*, TABLE+6!, T+1
%ZTX	QUERY+1, QUERY+2, QUERY+3!, NODES+1, NODES+2!, LIVE+1, LIVE+3, LIVE+4!, TABLE+4, ZTM+2*
%ZTX1	LIVE+1*, LIVE+2, LIVE+4!
%ZTX2	LIVE+1*, LIVE+2, LIVE+4!
%ZTX3	LIVE+2*, LIVE+3, LIVE+4!
%ZTY	QUERY+1, QUERY+2, NODES+1, LIVE+1, LIVE+3, TABLE+3, TABLE+4, TABLE+6!, ZTM+2, ZTM+3
%ZTY(	NODES+1*, TABLE+4, ZTM+2
%ZTZ	TABLE+3, TABLE+4, TABLE+5, TABLE+6!, ZTM+1~, ZTM+2
%ZTZ1	TABLE+3, TABLE+4, TABLE+5, ZTM+1~, ZTM+2*, ZTM+3
CALL	GROUP~, GROUP+3, GROUP+5
DIR	MENU+1~
DIR("A"	MENU+3, MENU+4, MENU+5, MENU+6
DIR(0	MENU+3*
DT	TABLE+3*, T+1
DTIME	MENU+3*, STOP+2, ASKACT+2, QSUB+1
DTOUT	MENU+1~
DUOUT	MENU+1~
GR	SS~, SS+1, SS+2, SS+3, WS~, WS+1, WS+2, WS+3
J	STOP+1~, GROUP+1~, GROUP+3*
MD	SS~, SS+2, SS+3, WS~, WS+2, WS+3, OPT~, OPT+1, OPT+2
ND	STOP+1~, GROUP+1~, GROUP+3*, ASKACT+1~, QSUB~
NODE	SSUB~, SSUB+1, SMAN~, SMAN+1, SS~, SS+2, SS+3, GROUP+1~, GROUP+3, GROUP+5
TSK	PURGE+1~, PURGE+2
U	LIVE+1, TABLE+3, TABLE+4
X	TABLE+3, UP~, UP+1, T+1*, T+2!
>> Y	MENU+7
ZT2	STPACT+1~, STPACT+3*
ZTI	STPACT+1~, STPACT+2, STPACT+3
ZTX	STOP+1~, STOP+2, STOP+3, ASKACT+1~, ASKACT+2, ASKACT+3, QSUB~, QSUB+1*, QSUB+2

Customize PDF page

Package: Kernel

Routine: ZTMKU

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: