KKFI4 G 1 ;KLANTENFICHE;KKFI1;Do van KKFI5, KKFI6 - Quit naar KKFI3
 ;
S2 S Y=$P(B(I),D,1),J=$P(">\'<\=\<\'>\'=",D,$P(B(I),D,2)) G S2C:$L(J)
S2A S OK=1 F J=1:1:$L(Y) I $E(Y,J)'="#" S OK=$E(X,J-1+$P($P(B(I),D,3),",",1))=$E(Y,J) Q:'OK
S2B G S2Z
S2C I (X'?.N)!(Y'?.N) S OK=J_"Y" S:J="<" OK="']Y&(X'=Y)" S:J=">" OK="]Y&(X'=Y)" S:J="'>" OK="']Y!(X=Y)" S:J="'<" OK="]Y!(X=Y)" S OK="S OK=X"_OK X OK
S2D E  S OK="S OK=X"_J_"Y" X OK
S2Z Q
 ;
1 ;    het drukken van de info
 ;
2 S I=100 G 25:$N(B(I))=-1 S BLZ=0 D HD^KKFI8,^KSELO
25 I KL'=0 S X=$D(@Q0) G 29:X
27 S KL=$N(@Q0) G 5:KL=-1 I KL'?.N G 5:KL]KLX
29 S K=KL S:K?.N K=^(K) S KLS=K,B(1)=@("^"_Q_"KL(K,0)") F I=1:1:SW3-1 S B(I+1)=^(I)
 S KC=$P(B(1),D)
 ;
3 S I=100
31 S I=$N(B(I)) G 4:I=-1 S X=$P(B(I\100),D,I#100) D S2 G 27:'OK,31
 ;
4 D ^KKFI8 G 27
 ;
5 K A,B,C
 ;
YZ Q
 ;
 ;    einde
Z X ^cZ Q
ZZ ; 28.04.88 - 15 u 18