Routine: ZTMON1

Package	Total	Call Graph
Kernel	7	DEVOK^%ZOSV $$HDIFF^%ZTLOAD7 ($$H0,$$OOS)^%ZTM $$DIFF^%ZTMS1 SUBCHK^%ZTMS5 PARAMS^ZTMCHK MON^ZTMON

Package	Total	Caller Graph
Kernel	1	ZTMON

Entry Points

Name	Comments	DBIA/ICR reference
CALL(RTN)	;Check for called routine
C	;Evaluate Cross CPU list
TASK	;Evaluate Task List
SUB	;Look for idle submanagers
I1
RES	;Check on resource devices
H3(%)	;Convert $H to seconds.
JOB	;Evaluate Job List
DONE	;Prompt to Quit Or Continue
MON
IO	;Evaluate Waiting Lists

External References

Name	Field # of Occurrence
DEVOK^%ZOSV	I1+2
$$HDIFF^%ZTLOAD7	RES+11
$$H0^%ZTM	RES+9
$$OOS^%ZTM	C+6
$$DIFF^%ZTMS1	IO+2
SUBCHK^%ZTMS5	SUB+4
PARAMS^ZTMCHK	DONE+6
MON^ZTMON	DONE+3, DONE+10, DONE+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Checking the IO Lists:" Line Location: IO+3
Function Call: WRITE	Prompt: " Last TM scan: ",ZT," sec, " Condition for execution: +ZT2 Line Location: IO+3
Function Call: WRITE	Prompt: "Last Dev: ",$P(ZT2,"^",2) Condition for execution: $P(ZT2,"^",2)]"" Line Location: IO+3
Function Call: WRITE	Prompt: $S(Y:" is not available,",$D(^%ZTSCH("DEV",ZT1)):" is allocated,",1:" is AVAILABLE,") Line Location: I1+3
Function Call: WRITE	Prompt: " with ",$S(ZTC=1:"one task",1:ZTC_" tasks")," waiting." Line Location: I1+5
Function Call: WRITE	Prompt: $C(7) Condition for execution: ZTC>50 Line Location: I1+5
Function Call: WRITE	Prompt: !!,"Checking the Job List:" Line Location: JOB+1
Function Call: WRITE	Prompt: $C(7) Condition for execution: ZTC>20 Line Location: JOB+3
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: !,"Checking Sub-Managers:" Line Location: SUB+2
Function Call: WRITE	Prompt: !?5,"Sub-Managers told to Wait." Line Location: SUB+3
Function Call: WRITE	Prompt: " Status: ",$S($D(^%ZTSCH("STOP","SUB",%N)):"Stop",ZT4:"BWait",1:"Run") Line Location: SUB+9
Function Call: WRITE	Prompt: !?10,"SUB-MANAGERS ARE NOT STARTING." Line Location: SUB+10
Function Call: WRITE	Prompt: !!,"Enter monitor action: UPDATE// " Line Location: DONE+1
Function Call: READ	Timeout: $S($D(DTIME)#2:DTIME,1:60) Variable: ZTR Line Location: DONE+2
Function Call: WRITE	Prompt: @IOF Line Location: DONE+5
Function Call: WRITE	Prompt: @IOF Line Location: DONE+6
Function Call: WRITE	Prompt: @IOF Line Location: DONE+7
Function Call: WRITE	Prompt: !,"Mode set to ",$S(MODE:"normal",1:"short") Line Location: DONE+8
Function Call: WRITE	Prompt: !!?5,"Enter <RETURN> to update the monitor screen." Line Location: DONE+12
Function Call: WRITE	Prompt: !?5,"Enter ^ to exit the monitor." Line Location: DONE+13
Function Call: WRITE	Prompt: !?5,"Enter E to inspect the TaskMan Error file." 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 R to see busy Resource slots." Line Location: DONE+16
Function Call: WRITE	Prompt: !?5,"Enter S to see a system status listing." 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: !,"Resource ",ZT1," Aval. Slots: ",$P(X,U,2) Line Location: RES+7
Function Call: WRITE	Prompt: !,?10,"Slot: ",$J(ZT3,2)," Job: ",$P(X,U,3)," Task: ",$P(X,U,4) Line Location: RES+10
Function Call: WRITE	Prompt: " time: ",$$HDIFF^%ZTLOAD7($H,ZTIM,2) Line Location: RES+11

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(14.7 - [#14.7]	C+6
^%ZISL(3.54 - [#3.54]	RES+5, RES+6, RES+8, RES+9
^%ZOSF("SS"	DONE+5
^%ZTSCH("C"	C+2, C+4
^%ZTSCH("DEV"	I1+3
^%ZTSCH("IO"	IO+2, IO+3, I1, I1+1, I1+2, I1+4, RES+3
^%ZTSCH("JOB"	JOB+2
^%ZTSCH("LOADA"	SUB+7
^%ZTSCH("STOP"	SUB+9
^%ZTSCH("SUB"	SUB+6, SUB+10
^%ZTSCH("TASK"	TASK+2
^%ZTSCH("WAIT"	SUB+3
^DIC(19 - [#19]	CALL+2

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	SUB+7*, SUB+8, H3~, H3+1
%N	SUB+1~, SUB+5, SUB+6, SUB+7, SUB+8, SUB+9, SUB+10
DTIME	DONE+2
DUOUT	CALL+1~, CALL+3
IOF	DONE+5, DONE+6, DONE+7
>> MODE	MON, DONE+8*
RTN	CALL~, CALL+3
U	RES+7, RES+9, RES+10
X	IO+1~, I1+2, RES+1~, RES+6, RES+7, RES+9*, RES+10
X1	IO+1~, I1+2*
>> Y	I1+2*, I1+3
>> ZT	IO+2, IO+3, I1+4, JOB+2*
ZT1	IO+2, IO+4, I1, I1+1, I1+2, I1+3, I1+4, JOB+2, C+1, C+2 , C+4, C+5, C+6, TASK+2, SUB+1~, RES+1~, RES+2, RES+3*, RES+5, RES+7
ZT2	IO+2, IO+3, I1+4, JOB+2, C+3, C+4, SUB+1~, RES+1~, RES+5, RES+6 , RES+8, RES+9
ZT3	I1+4, C+4, SUB+1~, RES+1~, RES+5, RES+8, RES+9, RES+10
ZT4	SUB+1~, SUB+7*, SUB+9
>> ZTC	I1+4, I1+5, JOB+2, JOB+3, C+2, C+6, TASK+2, TASK+3
>> ZTCO	C+3, C+4, C+5
ZTIM	RES+1~, RES+9*, RES+11
>> ZTR	DONE+2*, DONE+3, DONE+4, DONE+5, DONE+6, DONE+7, DONE+8, DONE+9, DONE+10, DONE+11
>> ZTT	IO+4, I1, I1+4

Customize PDF page

Package: Kernel

Routine: ZTMON1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
$$CALL	DONE+4, DONE+11
$$H3	IO+2
@(	CALL+3
DONE	MON+1, DONE+4, DONE+5, DONE+6, DONE+7, DONE+8, DONE+20
I1	I1+1, I1+6
IO	MON
JOB	MON
RES	DONE+7
SUB	MON