Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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