KKBLA2 G 1 ;MODULE OPENEN - WIJZIGEN LEVERINGSADRESSEN ;KKBLA1;Go van KKBLA1 [ 11/07/2001  10:22 AM ]
 ;
S2 S U2=A(U1),X=$P(U2,U,16) S:'$D(B(X\100)) B(X\100)="\\\\\\\\\\\\\\\\\\\\\\\\\" S (K,U3)=$P(B(X\100),D,X#100) I $L($P(U2,U,8)) X "S U3="_$P(U2,U,8)
S2A S FP=$P(U2,U,5)*100+$P(U2,U,6) G S2Z:'SW5 I '$P(U2,U,23) S FP=FP-3 W @F,@F9,":"
S2B S FP=$P(U2,U,2)*100+$P(U2,U,3) W:$P(U2,U,22) @F,$J(U1#100,2) I '$P(U2,U,23) S FP=FP+2 W @F,@F6,$P(U2,U,1),@F9
S2C S FP=$P(U2,U,5)*100+$P(U2,U,6)
S2Z W:'SW5 @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)) W @F,U3 Q
 ;
1 K B F I=1:1:9 I $D(BB(I)) S B(I)=BB(I)
11 K BB,I2,VVE,KCL G 2:SW2'="L" S $P(B(1),D,19)=$E($N(@("^"_Q_"KL(I1,""L"")")),1)="L"
 G YZ:$$ISVERS6^vhRtn1()
12 S SW2=SW2S,K=@("^"_Q_"KL(0,0)"),(K,X)=100
13 S X=$N(^(X)) I X\100=SW2 S K=K+1,A(K)=^(X) G 13
15 S U1=102,SW5=1,FP=601 W @F,@F1
17 S U1=$N(A(U1)) I U1>0 D S2 G 17
19      
 ;S SW5=0,U1=SU1,U2=A(SW2*100+U1),K="-"
 S SW5=0,U1=SU1,U2=A(U1),K="-"
 ;
2 S K=$E($N(@("^"_Q_"KL(I1,""L"")")),1)="L"
 ;
YZ K LAC,I2,SU1,SW2S Q
 ;