KLA205 ;VERWIJDEREN VERWIJDERBARE LEVERANCIERS ;;;;KA205; [ 10/25/2001  3:06 PM ]
 G 1
 ;
1 S U=";",Q3="^"_Q_"LE(I1)",Q4="^"_Q_"L1(J1)",I1=0,(Cnt,TCnt)=0 K ^KLIH(88888)
11 S K=$P($T(+1),U,2)_" "_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
12 S BJ=DJ S:$D(@("^"_Q_"BA(2)")) BJ=$P(^(2),D,2)\1
 ;
13 S I1=$O(@Q3) G YZ:I1="" S TCnt=TCnt+1
17 S B(1)=@("^"_Q_"LE(I1,0)"),J1=$P(B(1),D,1) F I=1:1:6 I $D(^(I)) S B(I+1)=^(I)
 ;
2 K OK D X3 G 3:OK=1,13:'OK
21 S K=@("^"_Q_"LE(I1,0)") F K=BJ,BJ+.02 I $D(^(K)) F X=1:1:30 G 13:$P(^(K),D,X)
23 F K=BJ+1,BJ+1.02 I $D(^(K)) F X=1:1:30 G 13:$P(^(K),D,X)
27 S X=$N(^(99999)) I X>99999&(X<1000000)&($E(X,1)?1N) G 13
29 I X'=-1,$E(X)'?1U G 13
 ;
3 ;D VERW^LOG("LEV",$P(B(1),D,1))
37 ;K @Q3,@Q4
 S Cnt=Cnt+1,^KLIH(88888,Cnt)=I1
39 W !,$P(B(1),D),?5,$P(B(1),D,2) G 13
 ;
YZ S $P(^KLIS(^KLIS1(88888),0),D,11,12)=Cnt_D_TCnt
 Q
 ;
X3 S OK=0
 I $P(B(1),D,27) Q
 S OK=2
 Q
 ;
Z X ^cZ Q
ZZ ; 23.03.88 - 16 u 17