cI383 ;Opsporen datumnodes ;%I38 ; [ 02/22/00  11:38 AM ]
 ;
T1 ;Kies eerst uw groep van globals.;
T2 ;Daarna worden uit die groep alle globals onderzocht.;
T3 ;Dit programma zoekt naar :;
T4 ;95;96;97;98;
T5 ;Aantal gevonden : ;
T6 ;Start <N>;
 ;
 ; init + uitleg
1 S Q=$G(Q) D ^cA604
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 ^cGSEL 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
 ; g = naam global in behandeling
 ; j = loopvar.
 ; r = full reference
 ; s = aantal geconverteerde globals
 ; sw = switch global geconverteerd (1=ja)
 ; t = totaal aantal geselecteerde global
 ; x = zoekcriteria
 ; y = criterium
3 s x=$t(T4),$p(x,U)=""
31 w !! s (s,g,t)="" f  s g=$o(^UTILITY($j,g)) q:g=""  d
 . s t=t+1,sw=0
 . s r="^"_g f  s r=$q(@r) q:r'[g!sw  d
 .. f j=2:1 s y=$p(x,U,j) q:y=""!sw  i r[y d
 ... i $e(r,$f(r,y)-$l(y)-2,$f(r,y)-$l(y)-1)=19 q
 ... w !,r,!,$j("",$f(r,y)-$l(y)-1),$e("^^^^^^^^^^",1,$l(y)) s sw=1 i %DEV=dev r k:5
 . i 'sw q
 . s s=s+1,sw=0
 . s r="^"_g_"(""~"")" f  s r=$q(@r,-1) q:r'[g!sw  d
 .. f j=2:1 s y=$p(x,U,j) q:y=""!sw  i r[y d
 ... i $e(r,$f(r,y)-$l(y)-2,$f(r,y)-$l(y)-1)=19 q
 ... w !,r,!,$j("",$f(r,y)-$l(y)-1),$e("^^^^^^^^^^",1,$l(y)) s sw=1 i %DEV=dev r k:5
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