cI8 ;T-LABELS VERVANGEN IN PROGRAMMA'S VOOR PROGRAMMA'S IN ANDERE TAAL ;%I8; [ 02/21/00  5:59 PM ]
 G 1
 ;
S1 W !,PRG,?10,K,!?12,"het programma wordt niet aangepast ",!,$C(7) S ^FOUT(PRG)=K Q
 ;
1 K  R "Q-WAARDE : ",Q G YZ:Q="-",1:Q'?1U.U W !,$P($T(+1),";",2),!!! K ^UTILITY($J),^FOUT
2 W !!,"N[] = nederlands   F[] = frans    H[] = hollands   E[] = engels   D[] = duits",!!,"TAALKEUZE : " R K G 1:K="-",3:K'?1U,3:"EDHFN"'[K S TL=K
3 W !! F K=9:1:14,129,139:1:141,148,149,157,166,19,20,253,254,28,300:1:307,32,33,38,39,44,48,49,57,65,66,72,73 S ^UTILITY($J,"%T"_K)=1
 ;
5 S PRG="",Q=Q_"T"
51 S K1="ZI K3:1,$T(1):1+1 ZR 1"
52 S K2="F S0=1:1 S A=$T(+S0) Q:'$L(A)  X K4 ZI A:+S0 ZR +S0"
53 S K3="1 S:TD[""u"" TD=$P(TD,""u"",1)_""h""_$P(TD,""u"",2)"
54 S K4="F S1=2:1 Q:'$L($P(A,""%T"",S1,99))  X K5 S:$D(^UTILITY($J,S2)) A=$P(A,""%T"",1,S1-1)_Q_$P(A,""%T"",S1,99),S1=S1-1"
55 S K5="S S2=$E(""%T""_$P(A,""%T"",S1),1,6) F S3=6:-1:3 S:$E(S2,S3)'?1N S2=$E(S2,1,S3-1)"
56 S K6="S:$D(^UTILITY($J,S2)) S2=Q_$E(S2,3,6)"
 ;
11 S PRG=$N(^UTILITY($J,PRG)) G 41:PRG=-1 W PRG,$J("",10-$L(PRG)) S I=-1,TT=0,NPRG=Q_$P(PRG,"T",3)_$P(PRG,"T",2) K A,^HULP(boot,$J)
13 I '$D(^cTXT(PRG)) S K="NIET aanwezig in global %TXT" D S1 G 11
15 I '$D(^cTXT(PRG,TL)) S K="NIET aanwezig in global %TXT in het "_$P("\Frans\Nederlands\Engels\Duits","\",$F("FNED",TL)) D S1 G 11
17 S I=$N(^cTXT(PRG,TL,I)) G 21:I=-1 S K=^(I),A="" S:I>0 TT=TT+1,A="T"_I_" " S K=A_";"_K,^HULP(boot,$J,I)=K G 17
 ;
21 S K="ZL @PRG X ^cZM(1),^cZM(2),^cZM(3),^cZM(4) X K1:$L($T(1)) X K2 ZS:'$L(%S) @NPRG ZL %I8" X K I $L(%S) D @%S
23 G 11
 ;
41 G YZ:$N(^FOUT(-1))=-1 W !!!,"In de global ^FOUT vindt U alle programma's waarvoor de omzetting NIET doorge-",!,"voerd werd.",!!
43 S PRG=$N(^(PRG)) G YZ:PRG=-1 W !,PRG,?10,^(PRG) G 43
 ;
YZ K %GO,%UCI,A,B,I,K,TB,TP,TT,X Q
 ;
F1 S K="AANTAL T-labels niet gelijk in global %TXT en in programma" D S1 Q
 ;
F2 S K="FOUTBOODSCHAP "_N_" niet gevonden in global %TXT(0,"""_TL_""")" D S1 Q
 ;
Z X ^cZ Q
ZZ ; 13.03.00 - 17 u 31 * V7.3