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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ZTMON2

Package: Kernel

Routine: ZTMON2


Information

ZTMON2 ;SEA/RDS-TaskMan: Option, ZTMON, Part 1 (Main Loop) ;2/19/08 13:36

Source Information

Source file <ZTMON2.m>

Call Graph

Call Graph Total: 6

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Kernel 1 ZTMON2  

Entry Points

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

External References

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
  • Timeout: $S($D(DTIME)#2:DTIME,1:60)
  • Variable: ZTR
  • 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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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