cQCTK2 ;Show left-Over Backgroundjob Routines ;cQCTK2; [ 08/01/01  12:51 PM ]
 ;
 w !!,$P($T(+1),";",2),!,"-------------------------------------",!!!
 ;
 S p="p58"
 f i=0:1 s p=$o(^$R(p)) q:$e(p,1,3)'="p58"  x "zl @p p +1 w !! p +6  w !!,""-----------"",!!"
 ;
 w !!,$s(i=0:"No",1:i)," left-over background routines!",!!
 ;
YZ Q
 ;
ZZ ; 24.08.01 -  9 u 19 * Cache-r3.1.8