cAB202	; Controle indexen ;%AB20 ; [ 03/29/01  9:39 AM ]
	G 1
	;
T1	;Voor alle Q-waardes in ^DMS worden alle bestanden beschouwd, daarbij;
T2	;worden de indexbestanden eerst gekild en daarna opnieuw opgebouwd.;
T3	;Bevestiging\".[] = ok";
	;
	; Titel
1	D P^cA612(2,1,20,80,1,0,0,0,$P($T(+1),U,2),0,1,1,0,0)
11	W /CUP(2,2),$P($T(T1),U,2),/CUP(3,2),$P($T(T2),U,2)
	;
	; Keuze
2	S R="K\22\3\"_$P($T(T3),U,2)_"\1\\$L(K)" D R0 I "-,^"[K G YZ
21	I K'="." G 2
23	D S1^cAB201 ; kolomindeling
	;
3	S QQ=Q,Q=0
31	S Q=$O(^DMS(Q)) I Q="" S Q=QQ,R=4 D F2 G YZ
33	S L=L+1 I L>15 W /CUP(L,1),@F1,/CUP(6,1),@FDL S L=15
35	W /CUP(L,2),"*** Q=",Q," *** ",$G(@("^"_Q_"BA(99,1)"),"<UNDEFINED>")
37	D S2^cAB201 G 31
	;
YZ	K QQ,DMS,I,J,L,T,UQC,USC 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	; 18.05.01 - 11 u 18 * V7.86