cICGCMP ;GLOBAL-COMPARE - KU ;%ICGCMP [ 02/22/00  8:58 AM ]
 ;
1 D INI^cQ6
 K ^HULP(boot,"GCMP")
11 W !!,"Bestand 1 : " R BEST1 G Y:BEST1=""
13 W !,"Bestand 2 : " R BEST2 G 11:BEST2=""
 K INDEX
 F i=1:1 d  q:i<0  q:k=""
 . W !,"Index ",i," : "
 . r k
 . I k="-" K INDEX(i-1) S i=i-2 q
 . I k="" Q
 . S INDEX(i)=k
 I i<0 G 13
 S k="""" F i=1:1 Q:'$D(INDEX(i))  S k=k_INDEX(i)_""","""
 S GE1="^"_BEST1_"("_k_""")",GE2="^"_BEST2_"("_k_""")"
19 S OGE1=$TR($P(GE1,")"),"""",""),OGE2=$TR($P(GE2,")"),"""","")
 ;
 ; TEST Bestand 1 <-> Bestand 2
2 W !!,OGE1,! S TEL=0
21 S GE1=$ZO(@GE1) G 3:GE1="",3:$E($TR(GE1,"""",""),1,$L(OGE1))'=OGE1
 S TEL=TEL+1,K="^"_BEST2_$P(GE1,BEST1,2,99)
 I '(TEL#10) W $C(13) S $X=0 W TEL
 I '($D(@K)#10) S MSG="Bestaat niet" G 23
 G 21:@K=@GE1 S MSG=@K
23 S ^HULP(boot,"GCMP",$P(GE1,BEST1,2,99),BEST1)=@GE1,^HULP(boot,"GCMP",$P(GE1,BEST1,2,99),BEST2)=MSG
29 G 21
 ;
 ; TEST Bestand 2 <-> Bestand 1
3 W !!,OGE2,! S TEL=0
31 S GE2=$ZO(@GE2) G Y:GE2="",Y:$E($TR(GE2,"""",""),1,$L(OGE2))'=OGE2
 S TEL=TEL+1,K="^"_BEST1_$P(GE2,BEST2,2,99)
 I '(TEL#10) W $C(13) S $X=0 W TEL
 I $D(^HULP(boot,"GCMP",$P(K,BEST1,2,99))) G 31
 I '($D(@K)#10) S MSG="Bestaat niet" G 33
 G 31:@K=@GE2 S MSG=@K
33 S ^HULP(boot,"GCMP",$P(K,BEST1,2,99),BEST1)=MSG,^HULP(boot,"GCMP",$P(K,BEST1,2,99),BEST2)=@GE2
39 G 31
 ;
Y I '$D(^HULP(boot,"GCMP")) w !!!,"geen verschillen"
 E  S ^HULP(boot,"GCMP")=OGE1_D_OGE2 D PRINT
YZ Q
 ;
PRINT W !!
 S LN=0 W "Scrollen (J/N/aantal lijnen) ?" R K I K="^" Q
 S LN=K
 I K="J" S LN=18
 I K="N" S LN=0
 I LN'?1.N G PRINT
 S $Y=0
 S I="",K=""
 F  S I=$O(^HULP(boot,"GCMP",I)) Q:I=""  D  I K="^" Q
 . D LN I K="^" Q
 . S J="" F  S J=$O(^HULP(boot,"GCMP",I,J)) Q:J=""  D  I K="^" Q
 .. D LN I K="^" Q
 .. S L=^(J)
 .. W J_I
 .. F  D LN Q:K="^"   W $E(L,1,80) S L=$E(L,81,$L(L)) Q:'$L(L)
 Q
 ;
LN W ! I $Y>LN W !,"<>" R K S $Y=0 G LN
 Q
 ;
Z X ^cZ Q
ZZ ; 13.03.00 - 17 u 31 * V7.3