cAB20	; Controle indexen ;%AB20 ; [ 09/12/01  5:37 PM ]
	;
T1	; 1. Controle indexbestanden op integriteit (enkel rapportering);
T2	; 2. Controle indexbestanden (zoals op de menu = kill + heropbouwen);
T3	; 3. Idem als punt 2, maar automatisch alle bestanden (één Q-waarde);
T4	; 4. Idem als punt 3, maar voor alle Q-waardes in DMS;
T5	; 5. Conversie controlekarakters in indexen (overgang naar Caché);
T6	; 6. Controle gelijkheid ^_Q_KL  / ^DKL  (enkel rapportering);
T7	; 7. Controle gelijkheid ^_Q_LE  / ^DLE  (enkel rapportering);
T8	; 8. Controle gelijkheid ^_Q_AR  / ^DAR  (enkel rapportering);
T9	; 9. Controle gelijkheid ^_Q_ARA / ^DARA (enkel rapportering);
T10	;10. Controle gelijkheid via batch;
T11	;11. Idem 1, maar voor Q=0 (centrale bestanden);
T12	;12. Idem 2, maar voor Q=0 (centrale bestanden);
T13	;13. Idem 3, maar voor Q=0 (centrale bestanden);
	;
T99	;Nummer element\;
	;
	; Titel
1	D B^cA612
11	D T^cA612($P($T(+1),U,2)_"["""_$ZU($ZV'["MSM"*5)_"""]",1,0,7,0,0)
13	D T^cA612("Q="_Q,1,2,7,0,0)
15	F I=1:1 S J=$T(@("T"_I)) Q:J=""  W /CUP(I+2,2),$P(J,U,2)
	;
	; Keuze
2	S R="KEU\22\3\"_$P($T(T99),U,2)_"\2\\$L(K)" D R0 I "-,^"[K G YZ
	I K=1 D ^cAN009 G 2
	I K=2 D ^cAN002 G 2
	I K=3 D ^cAB201 G 2
	I K=4 D ^cAB202 G 2
	I K=5 D ^cAB203 G 2
	I K=6 D C^cAN008(Q,"KL") G 2
	I K=7 D C^cAN008(Q,"LE") G 2
	I K=8 D C^cAN008(Q,"AR") G 2
	I K=9 D C^cAN008(Q,"ARA") G 2
	I K=10 D BATCH^cAN008(Q,1,0) G 2
	I K=11 D  G 2
	. S $ZT="TRAP^cAN000"
	. N Q S Q=0 D ^cAN009
	I K=12 D  G 2
	. S $ZT="TRAP^cAN000"
	. N Q S Q=0 D ^cAN002
	I K=13 D  G 2
	. S $ZT="TRAP^cAN000"
	. N Q S Q=0 D ^cAB201
29	G 2
	;
YZ	D C^cA612 Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
ZZ	; 15.04.03 -  9 u 31 * V7.94