cI282 ;Conversie ivm P^%A612 ;%I28 ; [ 04/25/00  11:54 AM ]
 ;
T1 ;Kies eerst uw groep van programma's.;
T2 ;Daarna worden uit die groep alle programma's onderzocht.;
T3 ;O^cA612(...),T^cA612(...) wordt omgezet naar P^cA612(...);
T4 ;W # wordt W $$F^cA334 en W *13 wordt W $$CR^cA334;
T5 ;Aantal aangepast : ;
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:4 w $p($t(@("T"_i)),U,2),!
 ;
 ; 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 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
 ; ll = label uit lijn l
 ; n = nieuwe (geconverteerde lijn)
 ; p = naam programma in behandeling
 ; s = aantal geconverteerde programma's
 ; sw = switch programma geconverteerd (1=ja)
 ; t = totaal aantal geselecteerde programma's
 ; u = hulpvariabele
 ; x = te vervangen string
 ; y = vervangstring
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="%ACTJOB" q
 . i $e(p,1,4)="%API" q
 . i $e(p,1,2)="%C" q
 . i $e(p,1,2)="%D" q
 . i $e(p,1,2)="%E" q
 . i $e(p,1,3)="%FG" q
 . i $e(p,1,3)="%FL" q
 . i $e(p,1,2)="%G" q
 . i $e(p,1,3)="%HD" q
 . i $e(p,1,3)="%HE" q
 . i $e(p,1,3)="%HO" q
 . i $e(p,1,2)="%I" q
 . i $e(p,1,2)="%L" q
 . i p="%MCU" q
 . i p="%MDMP" q
 . i p="%MFUNC" q
 . i p="%MODESET" q
 . i p="%MSMOPS" q
 . i p="%MTCHK" q
 . i $e(p,1,2)="%N" q
 . i $e(p,1,2)="%O" q
 . i $e(p,1,3)="%PA" q
 . i $e(p,1,2)="%Q" q
 . i $e(p,1,2)="%R" q
 . i $e(p,1,2)="%S" q
 . i p="%T" q
 . i p="%TI" q
 . i p="%TO" q
 . i $e(p,1,6)="%TRANS" q
 . i $e(p,1,4)="%UTL" q
 . i $e(p,1,2)="%V" q
 . i $e(p,1,2)="%X" q
 . i $e(p,1,2)="%Z" q
 . i $e(p,1,3)="SQL" q                   ; geen SQL*    MSM
 . 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) d
 .. s ll=$p(l," ")
 .. i $e($p(l," ",2))=";" q              ; geen commentaarlijnen
 .. i l["P^cA612(" q                     ; programma reeds aangepast
 .. s swl=0
 .. i l["O^cA612(",l["T^cA612(" s (sw,swl)=1
 .. i l[" *13" s sw=1,swl=2
 .. i l[",*13" s sw=1,swl=2
 .. i l[" $C(13)" s sw=1,swl=2
 .. i l[",$C(13)" s sw=1,swl=2
 .. i l[" #" s sw=1,swl=2
 .. i l[",#" s sw=1,swl=2
 .. i l[" *12" s sw=1,swl=2
 .. i l[",*12" s sw=1,swl=2
 .. i l[" $C(12)" s sw=1,swl=2
 .. i l[",$C(12)" s sw=1,swl=2
 .. i swl d
 ... w !,p,": +",i,!,l,!
 ... s l=ll_" ;"_$p(l," ",2,999),^HULP(boot,$J,i)=l_" ;"_DT
 ... s n=" "_$p(l,";",2,999)
 ... s l=^(i) i $e($p(l," ",2,999),1,2)=";." d
 .... f  q:l'[";."  s l=$p(l,";.")_".;"_$p(l,";.",2,999)
 .... s ^(i)=l
 ... i swl=1 d
 .... s n=$p(n,"O^cA612(")_"P^cA612("_$p(n,"O^cA612(",2,99)
 .... s n=$p(n,"),T^cA612(")_","_$p(n,"),T^cA612(",2,99)
 ... i swl=2 d
 .... 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
 ... s ^HULP(boot,$J,i+.2)=n
 . i sw s s=s+1 d
 .. s l=^HULP(boot,$J,1)
 .. s ^(1)=$p(l," [ ")_" [ "_DM_"/"_DD_"/"_DJ_"  "_$$HT^cAFD1($H,1)_" ]"
 .. s u="zr  s i=0 f  s i=$o(^HULP(boot,$J,i)) q:'$l(i)  zi ^(i)"
 .. x "x u zs @p"
33 w !!,$p($t(T5),U,2),+s," / ",+t,!
35 i %DEV'=dev w # c %DEV
 ;
YZ w ! Q
 ;
S1 i n[x s n=$p(n,x)_y_$p(n,x,2,999) g S1
S1Z q
 ;
ZZ ; 30.06.00 - 16 u 02 * V7.4