Routine: ZTMON2

Package	Total	Call Graph
Kernel	6	HOME^%ZIS $$HTE^%ZTLOAD7 ($$DIFF,$$H3,$$OOS)^%ZTM EN^XUTMTP PARAMS^ZTMCHK RUN^ZTMON2

Package	Total	Caller Graph
Kernel	1	ZTMON2

Name	Comments	DBIA/ICR reference
ENV	;Main Entry Point For Taskman Status Monitor
RUN	;Evaluate RUN-Node
STATUS	;Evaluate Status List
SCHQ	;Evaluate Schedule List
CONT	;Continued
OVERDUE(X1)	;Write how overdue the oldest task is
JOB	;Evaluate Job List
C	;Evaluate Cross CPU list
TASK	;Evaluate Task List
SUB	;Look for idle submanagers
DONE	;Prompt to Quit Or Continue
H3(%)	;Convert $H to seconds.
CALL(RTN)	;Check for called routine
LIST	;Check for tasks in stat 3.
STIME(%H)	;Status time

Name	Field # of Occurrence
HOME^%ZIS	ENV+3
$$HTE^%ZTLOAD7	RUN+5, RUN+6, STIME+1, STIME+2
$$DIFF^%ZTM	RUN+3, SCHQ+7
$$H3^%ZTM	STATUS+1, SCHQ+2, OVERDUE+1
$$OOS^%ZTM	C+6
EN^XUTMTP	LIST+4
PARAMS^ZTMCHK	DONE+5
RUN^ZTMON2	DONE+9, DONE+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: ENV+4
Function Call: WRITE	Prompt: @IOF,!,"Checking Taskman." Line Location: RUN+1
Function Call: WRITE	Prompt: ?20,"Current $H=",ZTH," (",$$HTE^%ZTLOAD7(ZTH),")" Line Location: RUN+5
Function Call: WRITE	Prompt: !,?22,"RUN NODE=",$S(ZTR]"":ZTR,1:"<Undefined>") Line Location: RUN+6
Function Call: WRITE	Prompt: " (",$$HTE^%ZTLOAD7(ZTR),")" Line Location: RUN+6
Function Call: WRITE	Prompt: !,"Taskman is ",$S(ZTY:"current.",ZTR]"":"late by "_(ZTD-15)_" seconds."_$C(7),$D(^%ZTSCH("STATUS")):"shutting down.",1:"not running."_$C(7)) Line Location: RUN+7
Function Call: WRITE	Prompt: !,"Did not get a LOCK on ^%ZTSCH(""LOAD"")" Line Location: STATUS+2
Function Call: WRITE	Prompt: !,"Checking the Status List:",!," Taskman $J status",?22,"time",?33,"weight node" Line Location: STATUS+5
Function Call: WRITE	Prompt: !?2,ZT1 Line Location: STATUS+7
Function Call: WRITE	Prompt: ?13,$P(%,U,2),?22,$$STIME($P(%,U)) Line Location: STATUS+7
Function Call: WRITE	Prompt: ?32," ",$J($P(ZTC(ZT1),U,2),4) Condition for execution: $D(ZTC(ZT1)) Line Location: STATUS+7
Function Call: WRITE	Prompt: ?39," ",$P(%,U,3) Line Location: STATUS+7
Function Call: WRITE	Prompt: !?5,"The Status List is ",$S(ZTY:"temporarily ",1:""),"empty." Line Location: STATUS+9
Function Call: WRITE	Prompt: !!,"Checking the Schedule List:" Line Location: SCHQ+1
Function Call: WRITE	Prompt: !?5,"Taskman has ",$S('ZTC:"no",1:ZTC)," task",$S(ZTC'=1:"s",1:"")," scheduled." Line Location: SCHQ+8
Function Call: WRITE	Prompt: *7 Condition for execution: ZTCO>10 Line Location: SCHQ+10
Function Call: WRITE	Prompt: !!,"Checking the Job List:" Line Location: JOB+1
Function Call: WRITE	Prompt: !," Did not get the 'JOBQ' lock." Line Location: JOB+4
Function Call: WRITE	Prompt: $C(7) Condition for execution: ZTC>20 Line Location: JOB+7
Function Call: WRITE	Prompt: !?5,"For ",ZT1," there ",$S(ZTCO=1:"is ",1:"are "),ZTCO," tasks. " Line Location: C+5
Function Call: WRITE	Prompt: !!,"Checking the Task List:" Line Location: TASK+1
Function Call: WRITE	Prompt: !?5,"There ",$S(ZTC=0:"are no tasks",ZTC=1:"is 1 task",1:"are "_ZTC_" tasks")," currently running." Line Location: TASK+3
Function Call: WRITE	Prompt: !!,"Sub-manager wait detail:" Line Location: SUB+2
Function Call: WRITE	Prompt: !,"Node: ",%N Line Location: SUB+5
Function Call: WRITE	Prompt: !,?5,"Job: ",ZT1 Line Location: SUB+10
Function Call: WRITE	Prompt: " Didn't hold the lock, Removed from table." Line Location: SUB+14
Function Call: WRITE	Prompt: " Last timestamp >30 sec old, Removed." Line Location: SUB+17
Function Call: WRITE	Prompt: " ",ZT2-ZT3," ",$S($L(ZT5):" Status: "_ZT5,1:" Looks good.") Line Location: SUB+18
Function Call: WRITE	Prompt: " ",$S(+ZT4:"Wait",1:"Run") Line Location: SUB+21
Function Call: WRITE	Prompt: !?10,"SUB-MANAGERS ARE NOT STARTING." Line Location: SUB+22
Function Call: WRITE	Prompt: !!,"Enter monitor action: UPDATE// " Line Location: DONE+1
Function Call: READ	Variable: ZTR Timeout: $S($D(DTIME)#2:DTIME,1:60) Line Location: DONE+2
Function Call: WRITE	Prompt: @IOF Line Location: DONE+4
Function Call: WRITE	Prompt: @IOF Line Location: DONE+5
Function Call: WRITE	Prompt: !! Line Location: DONE+6
Function Call: WRITE	Prompt: !!,"OK" Line Location: DONE+7
Function Call: WRITE	Prompt: !!?5,"Enter <RETURN> to update the monitor screen." Line Location: DONE+11
Function Call: WRITE	Prompt: !?5,"Enter ^ to exit the monitor." Line Location: DONE+12
Function Call: WRITE	Prompt: !?5,"Enter E to inspect the TaskMan Error file." Line Location: DONE+13
Function Call: WRITE	Prompt: !?5,"Enter L to see task's in JOB pending status" Line Location: DONE+14
Function Call: WRITE	Prompt: !?5,"Enter P to see Taskman parameters" Line Location: DONE+15
Function Call: WRITE	Prompt: !?5,"Enter S to see a system status listing." Line Location: DONE+16
Function Call: WRITE	Prompt: !?5,"Enter D to cause Taskman to ReRead it parameters." Line Location: DONE+17
Function Call: WRITE	Prompt: !?5,"Enter ? to see this message." Line Location: DONE+18
Function Call: WRITE	Prompt: !?5,"Enter ?? to inspect the tasks in the monitor's lists." Line Location: DONE+19
Function Call: WRITE	Prompt: !,"In the wrong account." Line Location: CALL+2
Function Call: WRITE	Prompt: "Done",! Line Location: LIST+5
Routine Call	%ZIS Line Location: ENV+3

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(14.7 - [#14.7]	C+6
^%ZOSF("SS"	DONE+4
^%ZOSF("UCI"	ENV+4
^%ZTSCH(	SCHQ+5, SCHQ+6, SCHQ+7
^%ZTSCH("C"	C+2, C+4
^%ZTSCH("JOB"	JOB+2, JOB+6
^%ZTSCH("JOBQ"	JOB+3, JOB+8
^%ZTSCH("LOAD"	STATUS+2, STATUS+4
^%ZTSCH("LOADA"	STATUS+3, SUB+7
^%ZTSCH("RUN"	RUN+2
^%ZTSCH("STATUS"	RUN+7, STATUS+6, DONE+7!
^%ZTSCH("SUB"	SUB+4, SUB+6, SUB+9, SUB+12, SUB+13!, SUB+17!, SUB+19*, SUB+22, SUB+23
^%ZTSCH("SUBLK"	SUB+11, SUB+12
^%ZTSCH("TASK"	TASK+2
^%ZTSCH("UPDATE"	DONE+7!
^%ZTSCH(0	SCHQ+2
^%ZTSK - [#14.4]	LIST+3
^DIC(19 - [#19]	CALL+2

Name	Line Occurrences
$$CALL	DONE+3, DONE+10
$$H3	SUB+3, SUB+16
$$STIME	STATUS+7
@(	CALL+3
DONE	CONT+2, DONE+3, DONE+4, DONE+5, DONE+6, DONE+20
JOB	CONT+1
LIST	DONE+6
OVERDUE	SCHQ+3, JOB+2
SUB	CONT+1

Name	Field # of Occurrence
^(	STATUS+3, STATUS+6, C+2, SUB+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ENV+2~, STATUS+6, STATUS+7, SUB+1~, SUB+7, SUB+18*, SUB+19, SUB+20, H3~, H3+1
%H	ENV+2~, STIME~, STIME+1, STIME+2
%N	SUB+1~, SUB+3, SUB+4, SUB+5, SUB+6, SUB+7, SUB+9, SUB+11, SUB+12, SUB+13 , SUB+17, SUB+19, SUB+20, SUB+22, SUB+23
DTIME	DONE+2
DUOUT	CALL+1~, CALL+3
IOF	ENV+4, RUN+1, DONE+4, DONE+5
RTN	CALL~, CALL+3
U	ENV+1*, STATUS+3, STATUS+7, SUB+16
X	ENV+2~
X1	OVERDUE~, OVERDUE+2
Y	ENV+2~, ENV+4
Z	ENV+2~
ZT	ENV+2~, STATUS+1, STATUS+3, STATUS+6, STATUS+9, SCHQ+5, JOB+6*
ZT1	ENV+2~, STATUS+6, STATUS+7, SCHQ+2, SCHQ+3, SCHQ+4, SCHQ+5, SCHQ+6, SCHQ+7, JOB+2* , JOB+6, C+1, C+2, C+4, C+5, C+6, TASK+2, SUB+1~, SUB+7, SUB+9 , SUB+10, SUB+11, SUB+12, SUB+13, SUB+16, SUB+17, LIST+1~, LIST+2, LIST+3, LIST+4
ZT2	ENV+2~, SCHQ+7, JOB+6, C+3, C+4, SUB+1~, SUB+16*, SUB+17, SUB+18, LIST+1~
ZT3	ENV+2~, C+4, SUB+1~, SUB+3, SUB+16*, SUB+17, SUB+18
ZT4	ENV+2~, SUB+1~, SUB+7*, SUB+21
ZT5	SUB+1~, SUB+16*, SUB+18
ZTC	ENV+2~, STATUS+1!, STATUS+3, SCHQ+4, SCHQ+7, SCHQ+8, SCHQ+9, SCHQ+10, JOB+6, JOB+7 , C+2, C+6, TASK+2, TASK+3
ZTC(	STATUS+3*, STATUS+7
ZTCO	ENV+2~, SCHQ+4, SCHQ+7, SCHQ+9, SCHQ+10, C+3, C+4, C+5
ZTD	ENV+2~, RUN+3*, RUN+4, RUN+7
ZTENV	ENV+2~
ZTH	ENV+2~, RUN+2, RUN+3, RUN+5, STATUS+1, SCHQ+2, SCHQ+7, OVERDUE+1~, OVERDUE+2*
ZTR	ENV+2~, RUN+2, RUN+3, RUN+4, RUN+6, RUN+7, DONE+2, DONE+3, DONE+4, DONE+5 , DONE+6, DONE+7, DONE+8, DONE+9, DONE+10
ZTUCI	ENV+2~, ENV+4*
ZTX	ENV+2~
ZTY	ENV+2~, RUN+4*, RUN+7, STATUS+9

Customize PDF page

Package: Kernel

Routine: ZTMON2

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: