cI283 ;Conversie ivm P^%A612, W *13 en W # in globals ;%I38 ; [ 09/01/00  8:28 AM ]
 ;
T1 ;Kies eerst uw groep van globals.;
T2 ;Daarna worden uit die groep alle globals onderzocht.;
T3 ;
T4 ;W # wordt W $$F^cA334 en W *13 wordt W $$CR^cA334;
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
 ;
3 w !! s (s,g,t)=""
 f  s g=$o(^UTILITY($j,g)) q:g=""  d
 . s r="^"_g
 . i "^BA\^DOC\^DIN\^ERROR\^ZKR\^UTILITY\^DLOG\^DMS\^DPAR\^ISO\^INDEX\^IMAIL\^MAIL\^LOGIN\^MUNT\^ZUT"[g q
 . i $E($na(@r,0),1,4)="^DAT" q
 . i $na(@r,0)["^HULP" q
 . s t=t+1,sw=0
 . f  s r=$q(@r) q:r'[g!sw  d
 .. s (k,n)=@r
 .. I k'["W "&(k'["w ")&(k'["W:")&(k'["w:") q
 .. s x=" *13",y=" $$CR^cA334" d S1
 .. s x=",*13",y=",$$CR^cA334" d S1
 .. s x=" $C(13)",y=" $$CR^cA334" d S1
 .. s x=",$C(13)",y=",$$CR^cA334" d S1
 .. s x=" #",y=" $$FF^cA334" d S1
 .. s x=",#",y=",$$FF^cA334" d S1
 .. s x=" *12",y=" $$FF^cA334" d S1
 .. s x=",*12",y=",$$FF^cA334" d S1
 .. s x=" $C(12)",y=" $$FF^cA334" d S1
 .. s x=",$C(12)",y=",$$FF^cA334" d S1
 .. i k=n q
 .. w !,r,"  ",n
 .. W !,"Vervang [] = ja : " r k i $l(k) q
 .. s @r=n
32 i %DEV'=dev w # c %DEV
33 ; w !!,$p($t(T5),U,2),s," / ",t,!
 ;
YZ w ! Q
 ;
S1 i n[x,"\:\,\ \\"[(D_$E($P(n,x,2,99))_D) s n=$p(n,x)_y_$p(n,x,2,999) g S1
 Q
 ;
ZZ ; 06.09.00 - 11 u 20 * V7.8