cQNTGRT	;DATABASE INTEGRITY CHECKER ;cQNTGRT;
	Q
	;
START	S %nspc=$ZU(5),FILE=$P($ZU(86),"\",1,(($P($P($ZV,")",2),"(",1)[" 2008")!($P($P($ZV,")",2),"(",1)[" 2010"))+3)_"\Mgr\INTEGRIT.LOG"
	zn "%SYS"
	I ($P($P($ZV,")",2),"(",1)[" 4.") D ALL^INTEGRIT(FILE)
	E  D Silent^Integrity(FILE)
	zn %nspc
	;
YZ	Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9