cQCC	;Watchdog caretaker ;cQCC;
	;
	L +^cLOGL($ZU(5),"CTK0","Watchdog"):1 E  G YZ    ;Watchdog already running
	K R S R(0)="" D D9002^cANEM0($T(+0),"Watchdog started on "_$ZCVT($ZU(110),"U"))
	S ^cJOB($J,$ZCVT($ZU(110),"U"),"job","qu")="z"   ; flag this job as a system-job
	;
	F  D
	. L +^cLOGL($ZU(5),"CTK0","JOB",$ZCVT($ZU(110),"U")):300 S T=$T
	. I T D
	.. K R S R(0)="I will restart it immediately !"
	..  D M^cQ14("Caretaker is down on "_$ZCVT($ZU(110),"U"),.R,0)
	.. L -^cLOGL($ZU(5),"CTK0","JOB",$ZCVT($ZU(110),"U")) J ^cQCTK1 H 120
	. I 'T,+$G(^cLOG($ZCVT($ZU(110),"U"),"Watchdog",0)) D
	.. S H=+$P($H,",",2)
	.. ; Watchdog reporting from ^cLOG(boot,"Watchdog",x)
	.. F I=1,2 I $D(^cLOG($ZCVT($ZU(110),"U"),"Watchdog",I)) S A=^(I) D
	... S K=$P(A,"\",1),K=$P(K,":",2)/60+$P(K,":")
	... S L=$P(A,"\",2),L=$P(L,":",2)/60+$P(L,":")
	... I ((H>(K*3600))&(H<(L*3600))) D
	.... K R S R(0)="Caretaker is still running !"
	.... D D9002^cANEM0($T(+0),"Watchdog is still alive on "_$ZCVT($ZU(110),"U"),.R)
	;
YZ	Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9