Routine: ZTMON

Package	Total	Call Graph
Kernel	4	HOME^%ZIS $$HTE^%ZTLOAD7 ($$DIFF,$$H3)^%ZTM ^ZTMON1

Package

Total

Call Graph

Kernel

HOME^%ZIS $$HTE^%ZTLOAD7 ($$DIFF,$$H3)^%ZTM ^ZTMON1

Package	Total	Caller Graph
Kernel	2	XUTM ZTMON ZTMON1

Package

Total

Caller Graph

Kernel

XUTM ZTMON ZTMON1

Name	Comments	DBIA/ICR reference
STATUS	;Evaluate Status List
DIFF(N,O,T)	;Diff in sec.
RUN	;Evaluate RUN-Node
SCHQ	;Evaluate Schedule List
STIME(%H)	;Status time
EN2	;A shorter monitor
MON
ENV	;Main Entry Point For Taskman Status Monitor
EN(MODE)	;

Name	Field # of Occurrence
HOME^%ZIS	EN+1
$$HTE^%ZTLOAD7	RUN+5, RUN+6, STIME+1, STIME+2
$$DIFF^%ZTM	RUN+3
$$H3^%ZTM	STATUS+1, SCHQ+3
^ZTMON1	MON+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+2
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),1:"") Line Location: RUN+7
Function Call: WRITE	Prompt: "." Line Location: RUN+8
Function Call: WRITE	Prompt: !,"Checking the Status List:",!," Node",?14,"weight status",?34,"time",?44," $J" Line Location: STATUS+5
Function Call: WRITE	Prompt: !?1,ZT Line Location: STATUS+9
Function Call: WRITE	Prompt: ?15,$S($D(ZTC("L",ZT)):$J($P(ZTC("L",ZT),U,2),3),1:""),?22,$P(%,U,2),?31,$$STIME($P(%,U)) Line Location: STATUS+9
Function Call: WRITE	Prompt: ?15,$S($D(ZTC("L",ZT)):$J($P(ZTC("L",ZT),U,2),3),1:""),?22,$P(%,U,2),?31,$$STIME($P(%,U)) Line Location: STATUS+9
Function Call: WRITE	Prompt: !?5,"The Status List is ",$S(ZTY:"temporarily ",1:""),"empty." Line Location: STATUS+11
Function Call: WRITE	Prompt: !!,"Checking the Schedule List:" Line Location: SCHQ+2
Function Call: WRITE	Prompt: !?5,"Taskman has ",$S('ZTC:"no",1:ZTC)," task",$S(ZTC'=1:"s",1:"")," scheduled." Line Location: SCHQ+7
Function Call: WRITE	Prompt: *7 Condition for execution: ZTCO>10 Line Location: SCHQ+9
Function Call: WRITE	Prompt: " First task is ",ZTL," seconds late." Line Location: SCHQ+10
Routine Call	%ZIS Line Location: EN+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	EN+2
^%ZTSCH(	SCHQ+5, SCHQ+6
^%ZTSCH("LOADA"	STATUS+3
^%ZTSCH("RUN"	RUN+2
^%ZTSCH("STATUS"	RUN+8, STATUS+3
^%ZTSCH("STOP"	RUN+8
^%ZTSCH(0	SCHQ+4

Name	Line Occurrences
$$DIFF	SCHQ+4, SCHQ+6
$$STIME	STATUS+9
EN	ENV+1, EN2+1
RUN	MON
SCHQ	MON
STATUS	MON

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+1~, STATUS+8*, STATUS+9
%H	EN+1~, STIME~, STIME+1, STIME+2
IOF	EN+2, RUN+1
MODE	EN~
N	DIFF~, DIFF+1, DIFF+2
O	DIFF~, DIFF+1, DIFF+2
T	DIFF~, DIFF+1
U	EN+2*, STATUS+4, STATUS+9
X	EN+1~, STATUS+1!, STATUS+4, SCHQ+1~, SCHQ+4
Y	EN+1~, EN+2
Z	EN+1~
ZT	EN+1~, STATUS+1, STATUS+4, STATUS+6, STATUS+7, STATUS+9
ZT1	EN+1~, STATUS+7, STATUS+8, STATUS+9, SCHQ+3, SCHQ+5*, SCHQ+6
ZT2	EN+1~, STATUS+1, STATUS+8, STATUS+11, SCHQ+6*
ZT3	EN+1~
ZT4	EN+1~
ZTC	EN+1~, STATUS+1!, SCHQ+3, SCHQ+6, SCHQ+7, SCHQ+8, SCHQ+9, SCHQ+10
ZTC("D"	STATUS+4*, STATUS+7
ZTC("L"	STATUS+3*, STATUS+9
ZTC("S"	STATUS+3*, STATUS+4, STATUS+8
ZTCO	EN+1~, SCHQ+3, SCHQ+6, SCHQ+8, SCHQ+9
ZTD	EN+1~, RUN+3*, RUN+4, RUN+7
ZTENV	EN+1~
ZTH	EN+1~, RUN+2, RUN+3, RUN+5, STATUS+1, SCHQ+3*, SCHQ+4, SCHQ+6
ZTL	SCHQ+1~, SCHQ+4*, SCHQ+10
ZTR	EN+1~, RUN+2*, RUN+3, RUN+4, RUN+6, RUN+7
ZTUCI	EN+1~, EN+2*
ZTX	EN+1~
ZTY	EN+1~, RUN+4*, RUN+7, STATUS+11

Customize PDF page

Package: Kernel

Routine: ZTMON

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: