cQCLOCK	;Watch over Windows clock ;cQCLOCK;
	;
1	L +^cLOGL($ZU(5),"CTK0","Clock"):1 E  Q    ;Check already running
	D QQM^cQ6 S Q="TC",QU="SYS"
	S INTERVAL=60,TOLERANCE=(INTERVAL/60)
	; 
2	F  D
	. S HHOLD=$H H INTERVAL S HH=$H
	. S DIFF=($P(HH,",")-$P(HHOLD,",")*24*3600)+$P(HH,",",2)-$P(HHOLD,",",2)
	. I (DIFF>(INTERVAL+TOLERANCE))!(DIFF<(INTERVAL-TOLERANCE)) D
	.. N H,R
	.. S H="Windows time has been changed"
	.. S R(1)=INTERVAL_" seconds ago time it was "_$$HT^cAFD1(HHOLD,1)_"."
	.. S R(2)="Now it is "_$$HT^cAFD1(HH,1)_"."
	.. S R(3)="The difference is "_DIFF_" seconds."
	.. D M^cQ14(H,.R)
	;
	L -^cLOGL($ZU(5),"CTK0","Clock")
	;
YZ	Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9