cI20 ;OPZOEKEN OVERLAY IN PROGRAMMA'S ;%I20; [ 01/26/95   6:07 PM ]
 ;
1 D ^cRSEL S I1=0,T="%T" K ^HULP(boot,$J)
2 S I1=$O(^UTILITY($J,I1)),HI1=$E(I1,3,9) W I1,$J("",8-$L(I1)) G 5:I1=""
3 S S1="ZL "_I1_" F I=2:1 S K=$T(+I) Q:'$L(K)  F J=1:1 S K=$P(K,T,2,99) Q:'$L(K)  I K,+K'=HI1 S ^HULP(boot,$J,T_(+K),I1)=I"
4 X S1 G 2
 ;
5 W !! S I2=""
6 S I1=$O(^HULP(boot,$J,I1)) G YZ:I1="" W !,I1,$J("-->",8-$L(I1))
7 S I2=$O(^HULP(boot,$J,I1,I2)) G 6:I2="" W I2,$J("",8-$L(I2)) G 7
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 01.03.89 - 12 u 30 - GC