cA244 ;KONTROLE BESTANDEN ;%A244; [ 07/28/93  1:42 PM ]
 ;
T0 ;Controle bestanden ;
T1 ;Keuze;
T2 ;-[] = einde programma;-[] = keuze bestand;
T3 ;AR\R1;KL\K1;LE\L1;NP\NP1;PR\PR1;
 ;
T0F ;Contrôle des fichiers;
T1F ;Choix;
T2F ;-[] = fin du programme;-[] = choix fichier;
T3F ;AR\R1;KL\K1;LE\L1;NP\NP1;PR\PR1;
 ;
T0E ;Controle bestanden ;
T1E ;Keuze;
T2E ;-[] = einde programma;-[] = keuze bestand;
T3E ;AR\R1;KL\K1;LE\L1;NP\NP1;PR\PR1;
 ;
1 D:'$D(F11) QQM^cQ6
11 S K=$P($T(@("T0"_QT)),U,2)_" "_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
13 ;D AKT^cQMSMKON G YZ:%SW
15 S U1=0,Q1="" K A F  S Q1=$O(@("^"_Q_"BA(""%A"",8,Q1)")) Q:'$L(Q1)  S Q2=^(Q1,0) I $D(@("^"_Q_Q1_"(0,0)")) D 
  .S U1=U1+1,A(U1)=Q1_D_Q2_D_$P(^(0),U),FP=U1+3*100+2 S:U1>17 FP=U1-14*100+40
  .W @F,$J(U1,2),". ",$P(A(U1),D,3)
17 G YZ:'$D(A)
 ;
2 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\"""_$P($T(@("T2"_QT)),U,2)_"""\"_$L(U1)_"\\K?.N&K!(K=""-"")" D R0
21 G YZ:K="-",2:'$D(A(K)) S Q1=$P(A(K),D),Q2=$P(A(K),D,2)
23 I Q1="PR" S R=";;1" G ^cPNC003
25 S FP=420 W @FS S FP=401 W @F,@F1
27 I Q1="AR"!(Q1="ARA")!(Q1="BL") S I1=0 K @("^"_Q_Q2) D  G YZ
 . F  S I1=$O(@("^"_Q_Q1_"(I1)")) Q:'$L(I1)  S B(1)=^(I1,0),R=$P(B(1),D,2) W !,R D S1 S @("^"_Q_Q2_"(R)")=$P(B(1),D,2)
 ;
3 K RB S RB=0 I $D(@("^"_Q_"BA(""%A"",7,Q1,0)")) F R=1:1 S RB=$O(^(RB)) Q:RB=""  S RB($P(^(RB),D))=D
31 K RB(101),RB(102) S I1=0
32 K @("^"_Q_Q2) F  S RB=$O(RB(RB)) Q:RB=""  K @("^"_Q_Q1_RB)
 ;
4 S I1=$O(@("^"_Q_Q1_"(I1)")) G YZ:I1="" S B(1)=^(I1,0) F I=1:1:9 S B(I+1)=$G(^(I))
41 S R=$P(B(1),D,2) W !,R D S1 I R'=I1 D
  .S I2="" F  S I2=$O(@("^"_Q_Q1_"(I1,I2)")) Q:I2=""  S @("^"_Q_Q1_"(R,I2)")=^(I2)
  .K @("^"_Q_Q1_"(I1)")
42 S @("^"_Q_Q2_"($P(B(1),D))")=R
43 F R1=1:1 S RB=$O(RB(RB)) Q:RB=""  S R=$P(B(RB\100),D,RB#100) D S1 S @("^"_Q_Q1_RB_"(R)")=$P(B(1),D)
44 G 4
 ;
YZ S FP=124 W @FS S FP=2201 W @F Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ; opbouw index
S1 S S02=R,R=""
S1A F S03=1:1:$L(S02) S S01=$E(S02,S03),S04=$A(S01) S:S04>96&(S04<123) S01=$C(S04-32) S:S01'?1P R=R_S01
S1B S R=$E(R,1,24)_" "_$P(B(1),D)
S1Z K S01,S02,S03,S04 Q
 ;
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84