cI381 ;Opsporen datumconversies ;%I38 ; [ 03/28/00 12:15 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 ;19_;"19"_;*365;DT;DT>;,".",3)<;,".",3)>;,1,2)<;,1,2)>;DAT;DAT>;D1;D1>;D2;D2>;$ZD;$Zd;$zd;DCT; T5 ;Aantal gevonden : ; T6 ;Start ; T7 ;DT=;=DT;DAT=;=DAT;D1=;=D1;D2=;=D2;VAN;VAN>;VAN=;=VAN;HVAN;=HVAN;TOT;TOT>;TOT=;=TOT;HTOT;=HTOT;BLO;BLO>;BLO=;=BLO;HBLO;=HBLO;BD;=BD;ED;=ED;DT1<;DT1>;DT1=;DT2<;DT2>;DT2=;RD;=RD;;REFD>;REFD=;=REF;>REF; T8 ;1900;,7,8)_$E(;,".",3)_$P(; ; ; 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),! 14 s x=$t(T4)_$p($t(T7),U,2,999)_$p($t(T8),U,2,999) 15 f i=2:1 s j=$p(x,U,i) q:j="" w:i>2 ", " w:$x>69 ! 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 w ! i %DEV'=dev u %DEV 25 w !,$zu(0)," / " 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="%A118" q . i $e(p,1,5)="%A335" q ; geen %A335* journalen . i p="%A516" q . i $e(p,1,3)="%AF" q ; geen %AF* alg.functies . i $e(p,1,3)="%AN",$e(p,4)?1n q ; geen %AN* tool . i $e(p,1,4)="%ANU" q ; geen %ANU* utili-data . i $e(p,1,5)="%AT10" q ; geen %AT10* openst.fact. . i $e(p,1,5)="%AT11" q ; geen %AT11* BTW listing . i $e(p,1,5)="%AT12" q ; geen %AT12* . i $e(p,1,5)="%AT17" q ; geen %AT17* rappels . i $e(p,1,5)="%AT18" q ; geen %AT18* . i $e(p,1,5)="%AT22" q ; geen %AT22* . i $e(p,1,5)="%AT23" q ; geen %AT23* . 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,5)="%FN17" q ; geen %FN17* raadplegen fact. . i $e(p,1,2)="%I" q ; geen %I* MSM + intern . i $e(p,1,4)="%MCO" q ; geen %MCO* . i $e(p,1,3)="%MM" q ; geen %MM* fiche op scherm . i $e(p,1,4)="%PS5" q ; geen %PS5* stat op scherm . 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)="%T8" q ; geen %T8* financieel . i $e(p,1,4)="%T91" q ; geen %T91* BTW-aangifte . i $e(p,1,3)="%TA" q ; geen %TA* analytische . i $e(p,1,3)="%TE" q ; geen %TE* explo-data . 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 .. i $e($p(l," ",2))=";" q ; geen commentaarlijnen .. i $p(l," ")["DCTR" q ; geen DCTR-lijnen .. i $e($p(l," "),1,2)="R0" q ; geen R0-routine .. i $e($p(l," "),1,2)="R4" q ; geen R4-routine .. i $e($p(l," "),1,2)="R5" q ; geen R5-routine .. i $e($p(l," "),1,2)="R6" q ; geen R6-routine .. i $e($p(l," "),1,2)="R8" q ; geen R8-routine .. i l["$$DC" q ; reeds aangepast->niet tonen .. i l[",7,8)<50+19" q .. i l[",3)<50+19" q .. i l[",7,8)<50:20,1:19" q .. i l[",3)<50:20,1:19" q .. i l[",7,8)>50:19,1:20" q .. i l[",3)>50:19,1:20" q .. i l["%A326" q .. k z s swl=0 f j=2:1 s y=$p(x,U,j) q:y="" i l[y d ... s z=$e(l,$f(l,y),999) ... i y="=DT",z=""!($e(z,1,2)="_D")!($e(z)=" ")!($e(z)=",")!($e(z,1,2)="_""") q ... i y="19_",$e(z)="D" q ... i y="$ZD",$e(z,1,3)="EV(" q ; geen test $ZDEV ... i y["TOT",l["TOT=TOT+" q ... s (sw,swl)=1,z($f(l,y)-$l(y)-1)=$l(y) .. i 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:5 . 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 ; 10.04.00 - 11 u 03 * V7.3