cQCTK2	;Show left-Over Backgroundjob Routines ;cQCTK2;
	;
	w !!,$P($T(+1),";",2),!,"-------------------------------------",!!
	;
	S p="p"
	f i=0:1 s p=$o(^$R(p)) q:$e(p)'="p"  x "zl @p i $p($t(+1),"";"",2)=p p +1,+4,+6  w !,""------------------------------"",!"
	;
	w !!,$s(i=0:"No",1:i)," left-over background routines!",!!
	;
YZ	Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9