Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ZTMON

Package: Kernel

Routine: ZTMON


Information

ZTMON ;SEA/RDS-TaskMan: Option, ZTMON, Part 1 (Main Loop) ;3/21/07 14:36

Source Information

Source file <ZTMON.m>

Call Graph

Call Graph

Call Graph Total: 4

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Kernel 5 XUTM ZTMON  ZTMON1  ZTMONH  ZTMONH1  ZTMONH2  
National VistA Support 1 NVSSTB  

Entry Points

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

External References

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

Global Variables Directly Accessed

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

Label References

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

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All