cAB201 ; Controle indexen ;%AB20 ; [ 03/20/00  12:28 PM ]
 G 1
 ;
T1 ;Voor alle bestanden in ^DMS voor Q-waarde = ;
T2 ;worden de indexbestanden eerst gekild en daarna opnieuw opgebouwd.;
T3 ;Bevestiging\".[] = ok";
T4 ;Q;DMS;UQC;USC;Omschrijving;Niveau;
 ;
 ; kolomindeling
S1 S L=5 F I=2:1:7 S J=$P(";1;5;20;30;45;65",U,I) W /CUP(L,J),@F6,$P($T(T4),U,I),@F9
S1Z Q
 ;
 ; bestand per bestand
S2 S DMS="",T=0,SQ=Q,Q=0 W /WWR(1)
S2A S DMS=$O(^DMS(Q,DMS)) I DMS="" G S2Y
S2B S T=T+1,L=L+1 I L>15 W /CUP(L,1),@F1,/CUP(6,1),@FDL S L=15
S2C W /CUP(L,2),Q,/CUP(L,6),DMS
S2D S R=$G(^(DMS),"<UNDEFINED>\<UNDEFINED>"),UQC=$P(R,D),USC=$P(R,D,2)
S2E W /CUP(L,20)," ",UQC,/CUP(L,30)," ",USC
S2F S R=$G(^(DMS,0),"<UNDEFINED>")
S2G W /CUP(L,45)," ",$P(R,D),/CUP(L,65)," ",$$NIV^cAFO1($P(R,D,30)),@F1
S2H I $L(UQC),$L(USC) D  I R D S1^cAN002(UQC,USC,17)
 . I '$D(^DMC(UQC,USC,"DATA")) S R=0 Q
 . S R=$D(^("INDEX"))!$D(^("MULTI"))
 . I ^("DATA")=5 S R=0 Q
 . I ^("DATA","REF")["^HULP" S R=0
S2I H 1 G S2A
S2Y I Q=0 S Q=SQ G S2A
S2Z K SQ Q
 ;
 ; 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),Q,/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,S2 S R=4 D F2
 ;
YZ K 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 ; 10.04.00 - 11 u 03 * V7.3