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: ZTMON1

Package: Kernel

Routine: ZTMON1


Information

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

Source Information

Source file <ZTMON1.m>

Call Graph

Call Graph Total: 7

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

Caller Graph

Caller Graph Total: 1

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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

Name Field # of Occurrence
^( C+2, SUB+7

Local Variables

Legend:

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