KKBLA3 G 1 ;MODULE OPENEN - WIJZIGEN LEVERINGSADRESSEN ;KKBLA1;Go naar KKBLA4
 ;
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)) Q
 ;
1 G 15:SW2="L" K A S X=@("^"_Q_"KL(0,0)"),X=10,K=100,SW5=1,FP=601 W @F,@F1
11 S X=$N(^(X)) I X>0&(X<99) S K=K+1,A(K)=^(X) G 11
13 S SW2="L"
15 S U1=100
17 S U1=$N(A(U1)) I U1>0 D S2 G 17
19 S SW5=0
2 G ^KKBLA4
 ;
YZ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 01.07.87 - 11 u 28