cFA14 ;WIJZIGEN RUBRIEKEN LEVERINGSADRESSEN ;%FA12;Quit naar %FA12
 G 1
 ;
T1 ;\KLANT NR. 
T2 ;\WERD VERWIJDERD\
T3 ;LEVERINGSADRES :
T4 ;V[] = verwijderen   W[] = wijzigen
T5 ;erwijderen
T6 ;,[] = hernemen   V[] = verwijderen DEFINITIEF : 
T7 ;NUMMER ELEMENT, -[] = einde : 
 ;
1 S U1=100,B(1)=^(KI2),K=$P(B(1),D,19) G 11:K="." I $D(@("^"_Q_"K1(K)")) S KCL=^(K),B(0)=@("^"_Q_"KL(KCL,0)")
10 E  S KCL=0,B(0)=$P(B(1),D,1)_$P($T(T1),";",2)_K_$P($T(T2),";",2)_$P(B(1),D,4,99)
11 G 13:SW7 S U1=$N(A(U1)) I U1>0 D S2 G 11
13 S FP=2203+F60 W @F,@F1,$P($T(T3),";",2),!?2,$P($T(T4),";",2)
15 S FP=2220+F60 W @F,@F0 R K G 13:K?.E1C.E,YZ:K="-",21:K="W",13:K'="V" W $P($T(T5),";",2)
 ;
16 S FP=2303+F60 W @F,@F1,$P($T(T6),";",2),@F0 R K G 16:K?.E1C.E,13:K="-",YZ:K=",",16:K'="V"
17 S @%Q1=0 K @("^"_Q_"KL(KI1,KI2)") I $E($N(@("^"_Q_"KL(KI1,""L"")")),1)'="L" S ^(0)=$P(^(0),D,1,18)_D_D_$P(^(0),D,20,99),@%Q1=1
19 X ^cTXT(0,"N",208) R K G YZ
 ;
21 S FP=2203+F60 W @F,@F1,$P($T(T7),";",2),@F0 R U1 G 21:U1?.E1C.E,41:U1="-",21:'$D(A(SW2*100+U1))
23 S U2=A(SW2*100+U1) I $P(U2,U,12),@$P(U2,U,15) X ^cTXT(0,"N",69) R K G 21
25 I $L($P(U2,U,19)),@$P(U2,U,20) X $P(U2,U,19) G 21:K="-"!(K=","),37
27 S FP=2203+F60 W @F,@F1,$P(U2,U,1)," : ",$E(PNT,1,$P(U2,U,9)) W:$L($P(U2,U,10)) !,?2,$P(U2,U,10)
29 S FP=2200+F60+$L($P(U2,U,1))+6 W @F,@F0 R K G 29:K?.E1C.E,21:K="-"!(K=",")
31 S X=$P(U2,U,11) S:'$L(X) X=1 S X=X_"&'(K[D)&($L(K)'>$P(U2,U,9))" S:$L($P(U2,U,21)) X=X_"&("_$P($T(@$P(U2,U,21))," ",2,99)_")"
33 G 27:$P(X,",",1)="K'="""""&(K="") I @X G 37
35 G 25
 ;
37 I K="I" S K=$P(@("^"_Q_"KL(KI1,0)"),D,$P(U2,U,16)#100)
38 S U3=K X:$L($P(U2,U,8)) "S U3="_$P(U2,U,8) S FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)),@F,U3
39 S X=$P(U2,U,16)\100,Y=$P(U2,U,16)#100,U2="" S:(Y-1) K=D_K S B(X)=$P(B(X),D,1,Y-1)_K_D_$P(B(X),D,Y+1,99) G 21
 ;
41 S @%Q1=0,@("^"_Q_"KL(KI1,KI2)")=B(1),@%Q1=1
 ;
YZ D REBLDOBJ^TAPI("K",KC) Q
 ;
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)
S2Z W:SW1 @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)) W @F,U3 Q
 ;
Z X ^cZ Q
ZZ ; 25.04.88 - 14 u 20