cAN0081 ;Gelijkhouden bestanden ;%AN008 ; [ 01/04/01  8:14 AM ]
 G 1
 ;
T0 ;Gelijkhouden bestanden ;
T1 ;Uw keuze;I[] = controle integriteit indexen op ;
T2 ;controle ;
T3 ;Bevestiging\"[] = ok"
T4 ;Start;Einde;Verschil;
 ;
T0F ;Interaction des fichiers ;
T1F ;Votre choix;I[] = contrôle intégrité indexes sur ;
T2F ;contrôle ;
T3F ;Confirmation\"[] = ok";
T4F ;Début;Fin;Différence;
 ;
T0E ;Gelijkhouden bestanden ;
T1E ;Choice;I[] = control integrity index on ;
T2E ;control ;
T3E ;Confirmation\"[] = ok"
T4E ;Start;End;Difference;
 ;
 ;
 ; Wat controleren?
 ;
1 D P^cA612(2,1,19,80,1,0,0,0,$P($T(@("T0"_QT)),U,2),0,0,7,1,1)
11 S R="KEU\21\3\"_$P($T(@("T1"_QT)),U,2)_"\C1\1\\""-12I""[K\\\1" D R0
13 G 2:KEU=1,3:KEU=2,4:KEU="I",YZ:K="-",11
 ;
 ; commentaar
C1 W !?2,"1[] = ",$P($T(@("T2"_QT)),U,2),"^",Q,DMS," -> ^D",DMS,"(""",Q,""",""",DMS,".A"")"
 W !?2,"2[] = ",$P($T(@("T2"_QT)),U,2),"^D",DMS,"(""",Q,""",""",DMS,".A"") -> ^",Q,DMS
 W !?2,$P($T(@("T1"_QT)),U,3),"^D",DMS,"(""",Q,""",""",DMS,".A"")"
C1Z Q
 ;
 ;
 ; "^"_Q_DMS -> "^D"_DMS(Q,DMS_".A")
 ;
2 D ^cAN3223("","1#2","","") I K="-" G 11
 X F70 W @F80 W !,"^",Q,DMS," -> ^D",DMS,"(""",Q,""",""",DMS,".A"")"
 D ^cA106,^cA105 W !,$P($T(@("T4"_QT)),U,2),":",DT,"/",TD,!
 S I1=0,DIF=0,TOT=0,UND="<undef>"
21 S I1=$O(@("^"_Q_DMS)@(I1)) I I1="" D  X F71 G 11
 . D ^cA106,^cA105 W !,$P($T(@("T4"_QT)),U,3),":",DT,"/",TD
 . W !,$P($T(@("T4"_QT)),U,4),":",DIF,"/",TOT,$$FF^cA334 H 3
 K B S B(0)=$G(^(I1,0),UND),J=$O(^(10),-1),TOT=TOT+1
 F I=0:1:J S B(I)=$G(^(I),UND)
 S KC=$P(B(0),D)
 K C S C(0)=$G(@("^D"_DMS)@(Q,DMS_".A",KC,0),UND),J=$O(^(10),-1)
 F I=0:1:J S C(I)=$G(^(I),UND)
 S K=0 I I1'=$P(C(0),D,31) S DIF=DIF+1,K=1 D
 . W !,"^",Q,DMS,"(""",I1,""")"
 . W !,"$P(^D",DMS,"(""",Q,""",""",DMS,".A"",",KC,",0),D,31)=",$P(C(0),D,31),!
 S $P(B(0),D,31)="",$P(C(0),D,31)="",$P(B(0),D,30)=+$P(B(0),D,30)
 S J=0 F I=0:1 D  I J Q
 . I '$D(B(I)),'$D(C(I)),$O(B(I))="",$O(C(I))="" S J=1 Q
 . I $G(B(I),UND)=$G(C(I),UND) Q
 . I 'K S DIF=DIF+1,K=1
 . W !,"^",Q,DMS,"(""",I1,""",",I,")=",$G(B(I),UND)
 . W !,"^D",DMS,"(""",Q,""",""",DMS,".A"",",KC,",",I,")=",$G(C(I),UND),!
 G 21
 ;
 ;
 ; "^D"_DMS(Q,DMS_".A") -> "^"_Q_DMS
 ;
3 D ^cAN3223("","1#2","","") I K="-" G 11
 X F70 W @F80 W !,"^D",DMS,"(""",Q,""",""",DMS,".A"") -> ^",Q,DMS
 D ^cA106,^cA105 W !,$P($T(@("T4"_QT)),U,2),":",DT,"/",TD,!
 S KC="",DIF=0,TOT=0,UND="<undef>"
31 S KC=$O(@("^D"_DMS)@(Q,DMS_".A",KC)) I KC="" D  X F71 G 11
 . D ^cA106,^cA105 W !,$P($T(@("T4"_QT)),U,3),":",DT,"/",TD
 . W !,$P($T(@("T4"_QT)),U,4),":",DIF,"/",TOT,$$FF^cA334 H 3
 K B S B(0)=$G(^(KC,0),UND),J=$O(^(10),-1),TOT=TOT+1
 F I=0:1:J S B(I)=$G(^(I),UND)
 S I1=$P(B(0),D,31)
 I I1="" S I1=$$DI^cAN000($P(B(0),D,2),$P(B(0),D))
 S K=0 I I1'=$P(B(0),D,31) S DIF=DIF+1,K=1 D
 . W !,"$P(^D",DMS,"(""",Q,""",""",DMS,".A"",",KC,",0),D,31)=",$P(B(0),D,31)
 . W !,"^",Q,DMS,"(""",I1,""")",!
 K C S C(0)=$G(@("^"_Q_DMS)@(I1,0),UND),J=$O(^(10),-1)
 F I=0:1:J S C(I)=$G(^(I),UND)
 S $P(B(0),D,31)="",$P(C(0),D,31)="",$P(C(0),D,30)=+$P(C(0),D,30)
 S J=0 F I=0:1 D  I J Q
 . I '$D(B(I)),'$D(C(I)),$O(B(I))="",$O(C(I))="" S J=1 Q
 . I $G(B(I),UND)=$G(C(I),UND) Q
 . I 'K S DIF=DIF+1,K=1
 . W !,"^D",DMS,"(""",Q,""",""",DMS,".A"",",KC,",",I,")=",$G(B(I),UND)
 . W !,"^",Q,DMS,"(""",I1,""",",I,")=",$G(C(I),UND),!
 G 31
 ;
 ;
 ; controle indexen
 ;
4 D DMS^cAN000("UQC","USC",DMS) I UQC=""!(USC="") G 11
 S K=$G(^DMS(Q,DMS,2)),UQC=$P(K,D),USC=$P(K,D,2) I UQC=""!(USC="") G 11
 S UREF=^DMC(UQC,USC,"DATA","REF"),IREF=$G(^("INDEX")),IREF2=$G(^("INDEX2"))
 D ^cAN3223("","1#2","","") I K="-" G 11
 D S1^cAN002(UQC,USC,4,1)      ; data->indexen
 D S3^cAN009                   ; indexen->data
 D ^cAN0091(Q,DMS)             ; printen
 G 11
 ;
YZ D C^cA612 Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84