ZBCHKKL ;KONTROLE VAN BESTANDEN (klanten) ;ZBCHK; [ 12/01/98  9:36 AM ]
 ;
 Set (COUNT,LINE)=0 Do KL,K1
 Quit
 ;
KLT1 ;Kontrole ^KKL
KLT2 ;Fouten ^KKL
K1T1 ;Kontrole ^KK1
K1T2 ;Fouten ^KK1
 ;
S1 
 Set COUNT=COUNT+1,^HULP($J,$P(TKB,U,7),COUNT)=R
 Quit
 ;
S2   
 Set LINE=LINE+1
 If LINE>(24-DLN) Set FP=DLN+2*100+1 Write @F,@FDL
 Set FP=DLN+$S(LINE<(24-DLN+1):LINE,1:(24-DLN))*100+1 Write @F,@F1,S
 Quit
 ;
KL 
 Set KI=0,S=$P($T(KLT1),U,2),R=$P($T(KLT2),U,2)
 Do S1,S2 Write *7
 Set COUNTX=COUNT
 For  Set KI=$O(^KKL(KI)) Quit:KI=""  Do
 .Set R=^KKL(KI,0),KC=$P(R,D),Zr=$ZR
 .If '$D(^KK1(KC)) Set R=Zr_D_$ZR_D_"INDEX ONBEKEND" Do S1 Quit
 .Set R=^KK1(KC)
 .If R'=KI Set R=Zr_D_$ZR_D_"NAAM VERSCHILLEND" Do S1
 ;
 If COUNT=COUNTX Kill ^HULP($J,$P(TKB,U,7),COUNT) Set COUNT=COUNTX-1
 ;
 Quit
 ;
K1 
 Set KC=0,S=$P($T(K1T1),U,2),R=$P($T(K1T2),U,2)
 Do S1,S2 Write *7
 Set COUNTX=COUNT
 For  Set KC=$O(^KK1(KC)) Quit:KC=""  Do
 .Set R=^KK1(KC),KI=$P(R,D),Zr=$ZR
 .If '$D(^KKL(KI)) Set R=Zr_D_$ZR_D_"ONBEKEND" Do S1 Quit
 .Set R=^KKL(KI,0),R=$$UPTRIMAN^vhRtn1($P(R,D,2))_" "_KC
 .;Set R=^KKL(KI,0),R=$$COMPRES^KLANT($P(R,D,2),KC)
 .If R'=KI Set R=Zr_D_$ZR_D_"NAAM VERSCHILLEND" Do S1
 ;
 If COUNT=COUNTX Kill ^HULP($J,$P(TKB,U,7),COUNT) Set COUNT=COUNTX-1
 ;
 Quit
 ;
 Q
Z X ^cZ Q
ZZ ; 25.11.91 -  9 u 23