cI382 ;Opsporen "L"-lijnen ;%I38 ; [ 03/27/00  12:31 PM ]
 ;
T1 ;Kies eerst uw groep van programma's.;
T2 ;Daarna worden uit die groep alle programma's onderzocht.;
T3 ;Dit programma zoekt naar :;
T4 ;"L";
T5 ;Aantal gevonden : ;
T6 ;Start <N>;
 ;
 ; init + uitleg
1 S Q=$G(Q) D ^cA604,MASTER^cQ5:'$D(boot)
11 w !!,$P($T(+1),U,2),!!,$P($T(T1),U,2),!!
13 f i=2:1:3 w $p($t(@("T"_i)),U,2),!
15 f i=2:1 s j=$p($t(@("T"_4)),U,i) q:j=""  w:i>2 ", " w:$x>70 ! w """",j,""""
 ;
 ; vraagstelling
2 d ^cRSEL I '$L($O(^UTILITY($J,""))) G YZ
20 s dev=$i d CRT^cSDEV
21 w !,$p($t(T6),U,2) r k g 2:"-^"[k&$l(k) s k=$tr(k,"JjYy1","11110") g 21:k'=1
23 i %DEV'=dev u %DEV
25 w !,$zu($ZV'["MSM"*5)," / " d ^cD w " / " d ^cT
 ;
 ; uitvoering
 ; a = aantal lijnen in programma
 ; i = loopvar.
 ; j = loopvar.
 ; l = lijn uit programma
 ; p = naam programma in behandeling
 ; s = aantal geconverteerde programma's
 ; sw = switch programma geconverteerd (1=ja)
 ; t = totaal aantal geselecteerde programma's
 ; x = zoekcriteria
 ; y = criterium
3 s x=$t(T4),$p(x,U)=""
31 w !! s (s,p,t)="" f  s p=$o(^UTILITY($j,p)) q:p=""  d
 . s t=t+1 i $t(+0)=p q
 . k ^HULP(boot,$J)
 . x "zl @p f i=1:1 s l=$t(+i) q:'$l(l)  s ^HULP(boot,$J,i)=l"
 . s a=i-1,sw=0                          ; aantal lijnen, switch af
 . f i=1:1:a s l=^HULP(boot,$J,i) i $p(l," ")'["DCTR" d
 .. f j=2:1 s y=$p(x,U,j) q:y=""  i l[y d
 ... w !,p,": +",i,!,l,!,$j("",$f(l,y)-$l(y)-1),$e("^^^^^^^^^^",1,$l(y)) s sw=1 i %DEV=dev r k:5
 . i sw s s=s+1
32 i %DEV'=dev w # c %DEV
33 w !!,$p($t(T5),U,2),s," / ",t,!
 ;
YZ w ! Q
 ;
ZZ ; 10.04.00 - 11 u 03 * V7.3