ZTMON ;SEA/RDS-TaskMan: Option, ZTMON, Part 1 (Main Loop) ;3/21/07 14:36
;;8.0;KERNEL;**118,127,136,355,446**;Jul 10, 1995;Build 35
;
ENV ;Main Entry Point For Taskman Status Monitor
D EN(1) ;Long mode
Q
EN(MODE) ;
D HOME^%ZIS N %,%H,X,Y,Z,ZT,ZT1,ZT2,ZT3,ZT4,ZTC,ZTCO,ZTD,ZTENV,ZTH,ZTR,ZTUCI,ZTX,ZTY
S U="^" X ^%ZOSF("UCI") S ZTUCI=Y W @IOF
MON D RUN,STATUS,SCHQ
;Continued in ZTMON1
G ^ZTMON1
;
EN2 ;A shorter monitor
D EN(0)
Q
;
RUN ;Evaluate RUN-Node
W @IOF,!!,"Checking Taskman."
S ZTH=$H,ZTR=$G(^%ZTSCH("RUN"))
I ZTR]"" S ZTD=$$DIFF^%ZTM(ZTH,ZTR,0)
S ZTY=$S(ZTR="":0,ZTD>20:0,1:1)
W ?20,"Current $H=",ZTH," (",$$HTE^%ZTLOAD7(ZTH),")"
W !,?22,"RUN NODE=",$S(ZTR]"":ZTR,1:"<Undefined>") I ZTR]"" W " (",$$HTE^%ZTLOAD7(ZTR),")"
W !,"Taskman is ",$S(ZTY:"current.",ZTR]"":"late by "_(ZTD-15)_" seconds."_$C(7),1:"")
W:$D(^%ZTSCH("STOP")) " shutting down" W:'$D(^%ZTSCH("STATUS")) " not running."_$C(7) W "."
Q
;
STATUS ;Evaluate Status List
K X,ZTC S ZT="",ZTH=$$H3^%ZTM($H),ZT2=""
;Tell sub-managers by setting ^%ZTSCH("LOADA",%ZTPAIR)=run^value^time^$J
M ZTC("S")=^%ZTSCH("STATUS"),ZTC("L")=^%ZTSCH("LOADA")
F S ZT=$O(ZTC("S",ZT)) Q:ZT="" S X=ZTC("S",ZT) I $L($P(X,U,3)) S ZTC("D",$P(X,U,3),ZT)=ZT
W !,"Checking the Status List:",!," Node",?14,"weight status",?34,"time",?44," $J"
S ZT=""
F S ZT=$O(ZTC("D",ZT)),ZT1="" Q:ZT="" F S ZT1=$O(ZTC("D",ZT,ZT1)) Q:ZT1="" D
. S %=ZTC("S",ZT1),ZT2=1
. W !?1,ZT W ?15,$S($D(ZTC("L",ZT)):$J($P(ZTC("L",ZT),U,2),3),1:""),?22,$P(%,U,2),?31,$$STIME($P(%,U)) W ?44,ZT1,?54,$P(%,U,4)
. Q
I 'ZT2 W !?5,"The Status List is ",$S(ZTY:"temporarily ",1:""),"empty."
Q
;
SCHQ ;Evaluate Schedule List
N X,ZTL
W !!,"Checking the Schedule List:"
S ZT1=0,ZTCO=0,ZTC=0,ZTH=$$H3^%ZTM($H)
S X=$O(^%ZTSCH(0)),ZTL=$$DIFF(ZTH,X,1)
F S ZT1=$O(^%ZTSCH(ZT1)) Q:'ZT1 D
. F ZT2=0:0 S ZT2=$O(^%ZTSCH(ZT1,ZT2)) Q:ZT2="" S ZTC=ZTC+1 I $$DIFF(ZTH,ZT1,1)>0 S ZTCO=ZTCO+1
W !?5,"Taskman has ",$S('ZTC:"no",1:ZTC)," task",$S(ZTC'=1:"s",1:"")," scheduled."
I ZTC=1 W !?5,"It is ",$S('ZTCO:"not ",1:""),"overdue."
I ZTC>1 W !?5,$S('ZTCO:"None",ZTCO=ZTC&(ZTCO=2):"Both",ZTCO=ZTC:"All",1:ZTCO)," of them ",$S(ZTCO=1:"is",1:"are")," overdue." W:ZTCO>10 *7
I ZTC>0,ZTL>0 W " First task is ",ZTL," seconds late."
Q
;
DIFF(N,O,T) ;Diff in sec.
Q:$G(T) N-O ;For new seconds times
Q N-O*86400-$P(O,",",2)+$P(N,",",2)
;
STIME(%H) ;Status time
I +$H=+%H Q "T@"_$P($$HTE^%ZTLOAD7(%H),"@",2)
Q "T-"_($H-%H)_"@"_$P($$HTE^%ZTLOAD7(%H),"@",2)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HZTMON 2563 printed Apr 09, 2024@21:07:06 Page 2
ZTMON ;SEA/RDS-TaskMan: Option, ZTMON, Part 1 (Main Loop) ;3/21/07 14:36
+1 ;;8.0;KERNEL;**118,127,136,355,446**;Jul 10, 1995;Build 35
+2 ;
ENV ;Main Entry Point For Taskman Status Monitor
+1 ;Long mode
DO EN(1)
+2 QUIT
EN(MODE) ;
+1 DO HOME^%ZIS
NEW %,%H,X,Y,Z,ZT,ZT1,ZT2,ZT3,ZT4,ZTC,ZTCO,ZTD,ZTENV,ZTH,ZTR,ZTUCI,ZTX,ZTY
+2 SET U="^"
XECUTE ^%ZOSF("UCI")
SET ZTUCI=Y
WRITE @IOF
MON DO RUN
DO STATUS
DO SCHQ
+1 ;Continued in ZTMON1
+2 GOTO ^ZTMON1
+3 ;
EN2 ;A shorter monitor
+1 DO EN(0)
+2 QUIT
+3 ;
RUN ;Evaluate RUN-Node
+1 WRITE @IOF,!!,"Checking Taskman."
+2 SET ZTH=$HOROLOG
SET ZTR=$GET(^%ZTSCH("RUN"))
+3 IF ZTR]""
SET ZTD=$$DIFF^%ZTM(ZTH,ZTR,0)
+4 SET ZTY=$SELECT(ZTR="":0,ZTD>20:0,1:1)
+5 WRITE ?20,"Current $H=",ZTH," (",$$HTE^%ZTLOAD7(ZTH),")"
+6 WRITE !,?22,"RUN NODE=",$SELECT(ZTR]"":ZTR,1:"<Undefined>")
IF ZTR]""
WRITE " (",$$HTE^%ZTLOAD7(ZTR),")"
+7 WRITE !,"Taskman is ",$SELECT(ZTY:"current.",ZTR]"":"late by "_(ZTD-15)_" seconds."_$CHAR(7),1:"")
+8 if $DATA(^%ZTSCH("STOP"))
WRITE " shutting down"
if '$DATA(^%ZTSCH("STATUS"))
WRITE " not running."_$CHAR(7)
WRITE "."
+9 QUIT
+10 ;
STATUS ;Evaluate Status List
+1 KILL X,ZTC
SET ZT=""
SET ZTH=$$H3^%ZTM($HOROLOG)
SET ZT2=""
+2 ;Tell sub-managers by setting ^%ZTSCH("LOADA",%ZTPAIR)=run^value^time^$J
+3 MERGE ZTC("S")=^%ZTSCH("STATUS"),ZTC("L")=^%ZTSCH("LOADA")
+4 FOR
SET ZT=$ORDER(ZTC("S",ZT))
if ZT=""
QUIT
SET X=ZTC("S",ZT)
IF $LENGTH($PIECE(X,U,3))
SET ZTC("D",$PIECE(X,U,3),ZT)=ZT
+5 WRITE !,"Checking the Status List:",!," Node",?14,"weight status",?34,"time",?44," $J"
+6 SET ZT=""
+7 FOR
SET ZT=$ORDER(ZTC("D",ZT))
SET ZT1=""
if ZT=""
QUIT
FOR
SET ZT1=$ORDER(ZTC("D",ZT,ZT1))
if ZT1=""
QUIT
Begin DoDot:1
+8 SET %=ZTC("S",ZT1)
SET ZT2=1
+9 WRITE !?1,ZT
WRITE ?15,$SELECT($DATA(ZTC("L",ZT)):$JUSTIFY($PIECE(ZTC("L",ZT),U,2),3),1:""),?22,$PIECE(%,U,2),?31,$$STIME($PIECE(%,U))
WRITE ?44,ZT1,?54,$PIECE(%,U,4)
+10 QUIT
End DoDot:1
+11 IF 'ZT2
WRITE !?5,"The Status List is ",$SELECT(ZTY:"temporarily ",1:""),"empty."
+12 QUIT
+13 ;
SCHQ ;Evaluate Schedule List
+1 NEW X,ZTL
+2 WRITE !!,"Checking the Schedule List:"
+3 SET ZT1=0
SET ZTCO=0
SET ZTC=0
SET ZTH=$$H3^%ZTM($HOROLOG)
+4 SET X=$ORDER(^%ZTSCH(0))
SET ZTL=$$DIFF(ZTH,X,1)
+5 FOR
SET ZT1=$ORDER(^%ZTSCH(ZT1))
if 'ZT1
QUIT
Begin DoDot:1
+6 FOR ZT2=0:0
SET ZT2=$ORDER(^%ZTSCH(ZT1,ZT2))
if ZT2=""
QUIT
SET ZTC=ZTC+1
IF $$DIFF(ZTH,ZT1,1)>0
SET ZTCO=ZTCO+1
End DoDot:1
+7 WRITE !?5,"Taskman has ",$SELECT('ZTC:"no",1:ZTC)," task",$SELECT(ZTC'=1:"s",1:"")," scheduled."
+8 IF ZTC=1
WRITE !?5,"It is ",$SELECT('ZTCO:"not ",1:""),"overdue."
+9 IF ZTC>1
WRITE !?5,$SELECT('ZTCO:"None",ZTCO=ZTC&(ZTCO=2):"Both",ZTCO=ZTC:"All",1:ZTCO)," of them ",$SELECT(ZTCO=1:"is",1:"are")," overdue."
if ZTCO>10
WRITE *7
+10 IF ZTC>0
IF ZTL>0
WRITE " First task is ",ZTL," seconds late."
+11 QUIT
+12 ;
DIFF(N,O,T) ;Diff in sec.
+1 ;For new seconds times
if $GET(T)
QUIT N-O
+2 QUIT N-O*86400-$PIECE(O,",",2)+$PIECE(N,",",2)
+3 ;
STIME(%H) ;Status time
+1 IF +$HOROLOG=+%H
QUIT "T@"_$PIECE($$HTE^%ZTLOAD7(%H),"@",2)
+2 QUIT "T-"_($HOROLOG-%H)_"@"_$PIECE($$HTE^%ZTLOAD7(%H),"@",2)
