cAB203 ; Controle indexen ;%AB20 ; [ 03/21/00  11:39 AM ]
 G 1
 ;
T1 ;Voor alle bestanden van type 1 voor alle Q-waardes in ^DMS;
T2 ;wordt gecontroleerd of er controletekens in de index zitten.;
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 W /WWR(1)
S2A S DMS=$O(^DMS(Q,DMS)) I DMS="" G S2Z
S2B S R=$G(^(DMS)),UQC=$P(R,D),USC=$P(R,D,2) G S2A:UQC="",S2A:USC=""
S2C S R=$G(^(DMS,0),"<UNDEFINED>")
S2D I '$D(^DMC(UQC,USC,"DATA")) G S2A
S2E I ^("DATA")'=1 G S2A
S2F S UREF=^("DATA","REF"),UI1=0,SW=0
S2G S T=T+1,L=L+1 I L>15 W /CUP(L,1),@F1,/CUP(6,1),@FDL S L=15
S2H W /CUP(L,2),Q,/CUP(L,6),DMS,/CUP(L,20)," ",UQC,/CUP(L,30)," ",USC
S2I W /CUP(L,45)," ",$P(R,D),/CUP(L,65)," ",$$NIV^cAFO1($P(R,D,30)),@F1
S2J S UI1=$O(@UREF) I UI1="" D:SW S1^cAN002(UQC,USC,17) G S2A
S2K S B(1)=@UREF@(0),R=$$DI^cAN000($P(B(1),D,2),$P(B(1),D)) I R'=UI1 D
 . K ^HULP(boot,$J) M ^HULP(boot,$J)=@UREF W /CUP(17,3),UI1," -> "
 . K @UREF N UI1 S UI1=R,SW=1 M @UREF=^HULP(boot,$J) W UI1,@F1 H 1
S2L G S2J
S2Z K UI1,UREF,SW 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),/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
 ;
3 D S1 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 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 ; 10.04.00 - 11 u 03 * V7.3