ZBCHKBLTO ;KONTROLE VAN BESTANDEN (toeleveringen Blum) ;ZBCHK; [ 07/02/93  8:28 AM ]
 ;
 Set (COUNT,LINE)=0 Do DO,SO
 Quit
 ;
TOBLT1 ;Kontrole ^BLTO
TOBLT2 ;Fouten ^BLTO
 ;
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
 ;
DO
 Quit
 ;
SO
 Set TOENr="",S=$P($T(TOBLT1),U,2),R=$P($T(TOBLT2),U,2)
 Do S1,S2 Write *7
 Set COUNTX=COUNT
 For  Set TOENr=$O(^BLTO(5005,"SO",TOENr)) Quit:TOENr=""  Quit:TOENr>299999  Do
 . Set R=^BLTO(5005,"SO",TOENr,1),Zr=$ZR,ABNr=$P(R,D,10),Wijziging=$P(R,D,31)
 . If '$D(^KTO4(5005,ABNr_D_TOENr)) Set R=Zr_D_$ZR_D_"ONBEKEND" Do S1
 . Set TLNr=99
 . For  Set TLNr=$O(^BLTO(5005,"SO",TOENr,TLNr)) Quit:TLNr=""  Do
 . . Set R=^BLTO(5005,"SO",TOENr,TLNr),Zr=$ZR,ABLNr=$P(R,D,13,14)
 . . If '$D(^KTO3(TOENr,ABLNr_D_TLNr)) Set R=Zr_D_$ZR_D_"ONBEKEND" Do S1
 ;
 If COUNT=COUNTX Kill ^HULP($J,$P(TKB,U,7),COUNT) Set COUNT=COUNTX-1
 ;
 Quit
 ;
 ;
TO3 
 Set TR=0,S=$P($T(TOBLT1),U,2),R=$P($T(TOBLT2),U,2)
 Do S1,S2 Write *7
 Set COUNTX=COUNT
 For  Set TR=$N(^KTO3(TR)) Quit:TR=-1  Do
 .Set R=$D(^KTO3(TR)),Zr=$ZR
 .If '$D(^KTO1(TR)) Set R=Zr_D_$ZR_D_"ONBEKEND" Do S1 Quit
 .Set LC=$P(^(TR),D,1),LN=0
 .For  Set LN=$N(^KTO3(TR,LN)) Quit:LN=-1  Do
 ..Set TZ=$P(LN,D,3),R=$D(^KTO3(TR,LN)),Zr=$ZR
 ..If '$D(^KTO(LC,TR,TZ)) Set R=Zr_D_$ZR_D_"ONBEKEND" Do S1 Quit
 ..If $P(^(TZ),D,13,14)'=$P(LN,D,1,2) Set R=Zr_D_$ZR_D_"VERSCHILLEND" Do S1 Quit
 ;
 Set LC=0
 For  Set LC=$N(^KTO(LC)) Quit:LC=-1  Do
 .Set TR=0
 .For  Set TR=$N(^KTO(LC,TR)) Quit:TR=-1  Do
 ..Set TZ=100
 ..For  Set TZ=$N(^KTO(LC,TR,TZ)) Quit:TZ=-1  Do
 ...Set R=^(TZ),Zr=$ZR Quit:'$P(R,D,2)
 ...Set LN=$P(R,D,13,14)_D_TZ
 ...If '$D(^KTO3(TR,LN)) Set R=Zr_D_$ZR_D_"ONBEKEND" Do S1 Quit
 ;
 If COUNT=COUNTX Kill ^HULP($J,$P(TKB,U,7),COUNT) Set COUNT=COUNTX-1
 ;
 Quit