cQCHECK	;Check Programs ;cQCHECK;
	;
	L +^cLOGL($ZU(5),"CTK0","Check Programs"):1 E  G YZ    ;Check already running
	;
	S NR=0
	F  S NR=$O(^cLOG($ZU(5),"OS",NR)) Q:NR=""  D
	. I '$L($G(^cLOG($ZU(5),"OS",NR,"system"))) Q
	. I ^cLOG($ZU(5),"OS",NR,"system")'[("\"_$ZCVT($ZU(110),"U")_"\") Q
	. S check=$G(^cLOG($ZU(5),"OS",NR,"check")) I '$L(check) Q
	. S start=$G(^cLOG($ZU(5),"OS",NR,"start"))
	. S stop=$G(^cLOG($ZU(5),"OS",NR,"stop"))
	. I $L(start) D  Q
	.. I $$PRUN^cQ14(check) Q    ;program is running
	.. S ER=$$JNW^cQFILE(start) H 1 S ER='$$PRUN^cQ14(check),P=$G(^cLOG($ZU(5),"OS",NR,0),start)
	.. D M^cQ14("'"_P_"' is not running. "_$S(ER:"Could not be",1:"Has been")_" restarted.")
	. I $L(stop) D  Q
	.. I '$$PRUN^cQ14(check) Q    ;program is not running
	.. S K=$$KOSFI^cQ14_" "_check,ER=$$JW^cQFILE(K)
	.. D M^cQ14("'"_check_"' was running. "_$S(ER:"Could not be",1:"Has been")_" stopped.")
	;
	L -^cLOGL($ZU(5),"CTK0","Check Programs")
	;
YZ	Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9