Index: cICGCMP.mac.rou
===================================================================
diff -u -r734 -r3542
--- cICGCMP.mac.rou	(.../cICGCMP.mac.rou)	(revision 734)
+++ cICGCMP.mac.rou	(.../cICGCMP.mac.rou)	(revision 3542)
@@ -1,65 +1,66 @@
-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
\ No newline at end of file
+cICGCMP	;GLOBAL-COMPARE - KU ;%ICGCMP [ 02/14/02  10:09 AM ]
+	;
+1	D INI^cQ6
+	K ^HULP(boot,$j,"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,$j,"GCMP",$P(GE1,BEST1,2,99),BEST1)=@GE1,^HULP(boot,$j,"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,$j,"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,$j,"GCMP",$P(K,BEST1,2,99),BEST1)=MSG,^HULP(boot,$j,"GCMP",$P(K,BEST1,2,99),BEST2)=@GE2
+39	G 31
+	;
+Y	I '$D(^HULP(boot,$j,"GCMP")) w !!!,"geen verschillen"
+	E  S ^HULP(boot,$j,"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,$j,"GCMP",I)) Q:I=""  D  I K="^" Q
+	. D LN I K="^" Q
+	. S J="" F  S J=$O(^HULP(boot,$j,"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	; 14.02.02 - 13 u 46 * V7.91
+