cI40(ton) ;Opsporen /... commado's ;%I40 ; [ 04/12/00   9:03 AM ]
 ;
T1 ;Kies eerst uw groep van programma's.;
T2 ;Daarna worden uit die groep alle programma's onderzocht.;
T3 ;Resultaat : zie ^com;
T5 ;Aantal gevonden : ;
T6 ;Start <N>;
T7 ; /;,/;
 ;
 ; init + uitleg
1 S Q=$G(Q) D
 . N ton
 . D ^cA604
 i '$d(boot) d MASTER^cQ5
11 w !!,$P($T(+1),U,2),!!,$P($T(T1),U,2),!!,$P($T(T3),U,2),!!
13 f i=2 w $p($t(@("T"_i)),U,2),!
 s x=$T(T7)
 ;
 ; vraagstelling
2 d ^cRSEL I '$L($O(^UTILITY($J,""))) G YZ
20 s (dev,%DEV)=$i i $g(ton) 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
 k ^com
23 w ! 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
 ; z = hulpvariabele
3 s $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
 . i %DEV'=dev u dev w "." u %DEV
 . i p="%A612" q
 . i p="%D" q
 . i $e(p,1,3)="%DI" q                   ; geen %DI*    MSM
 . i $e(p,1,3)="%DO" q                   ; geen %DO*    MSM
 . i $e(p,1,3)="%ER" q                   ; geen %ER*    MSM
 . i $e(p,1,2)="%R" q                    ; geen %R*     MSM
 . i $e(p,1,2)="%S" q                    ; geen %S*     MSM
 . i p="%T" q
 . i $e(p,1,3)="SQL" q                   ; geen SQL*    MSM
 . k ^HULP(boot,$J)
 . I '$g(ton) W $$CR^cA334 W p,@F2
 . 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) d
 .. i $e($p(l," ",2))=";" q              ; geen commentaarlijnen
 .. S pos=0
 .. k z s swl=0 
 .. f j=2:1:$l(l) i $e(l,j,j+1)=" /"!($e(l,j,j+1)=",/") d
 ... s z=$e(l,j+1,999)
 ... s (sw,swl)=1
 ... f k=1:1 Q:$e(z,k)="("  q:$e(z,k)=","  q:$e(z,k)=" "  q:k>$l(z)
 ... s z(j)=k-1,j=j+k-1
 ... S ii=$e(z,1,k-1),^com(ii,p,i)=""
 .. i $g(ton),swl s z="" d
 ... w !,p,": +",i,!,l,!
 ... f  s z=$o(z(z)) q:z=""  w ?z,$e("^^^^^^^^^^",1,z(z))
 ... i %DEV=dev r k:1
 . i sw s s=s+1
33 w !!,$p($t(T5),U,2),s," / ",t,!
35 i %DEV'=dev w # c %DEV
 ;
YZ w ! Q
 ;
ZZ ; 19.04.00 - 14 u 04 * V7.3