KNA2B G 27 ;2' DEEL ; [ 08/05/2002  10:18 AM ]
17 S FP=$P(A(S1),S,5)*100+$P(A(S1),S,6)-3 W @F,@F5,": ",S3 S FP=$P(A(S1),S,2)*100+$P(A(S1),S,3)
19 W @F S S4=S4+1 W:S4<10 " " W S4,@F6,$P(A(S1),S,1),@F5 G 47:SW4=1,8:SW6,47
2 S FP=$P(S2,S,5)*100+$P(S2,S,6) W @F,$E(SPA,1,$P(S2,S,9)),$E(SPA,1,$P(S2,S,13)),@F,S3 Q
21 S I=$$UPTRIMAN^vhRtn1(K)
23 S I=$E(I,1,24) S:I="" I=" " Q
27 S VVE=0,FP=2001+F60 W @F,@F1 I SW2=1 L
29 S SW7=1,FP=2403+F60 W @F,@F2,"NAAM OF NUMMER VAN HET ADRES, [] = ",$P("EINDE\VERVOLG",D,VVE+1)," : ",@F0
3 R K G 29:K?.E1C.E S:$L(K) VVE=0 S FP=2001+F60 W @F,@F1 I K="" G YZ:'VVE S L=19 G 39
31 G 35:K'?.N S J1=K I '$D(@Q1) S FP=2403+F60 W @F,@F2,@F4,"ADRES ONBEKEND ",@F5,@F0 H 2 G 29
33 S I1=^(K) I $D(@Q0) G 45
35 D 21 S I1=I,I1=$N(@Q0),L=19 G 43:I1=-1 S I2=$N(@Q0)
37 G 45:$E(I2,1,$L(I))'=I&'VVE&($E(I1,1,$L(I))=I) S I1=I
39 S I1=$N(@Q0) G 43:($E(I1,1,$L(I))]I)&'VVE&(L=19)&(I'=" ") G 42:I1=-1 I $E(I1,1,$L(I))'=I&(I'=" ") S VVE=0 G 29
4 W @F2,$C(13),$P(^(I1,0),D,1),?6,$E($P(^(0),D,2),1,26),?33,$E($P(^(0),D,5),1,26),?60,$E($P(^(0),D,7),1,19)
41 S L=L+1 W:L<23 ! G 39:L<23 S VVE=1 G 29
42 S (I1,VVE)=0 G 29
43 S (I1,K,VVE)=0 G 31
45 L @Q0:2 E  S FP=2403+F60 W @F,@F4,"ADRES IN GEBRUIK ! ",@F5,@F2,@F0 H 2 G 27
46 S B(1)=^(I1,0),B(2)=^(1),S1=100 F I=2:1:6 I $D(^(I)) S B(I+1)=^(I)
461 I SW4>1 G 8
47 S S1=$N(A(S1)) G 49:S1<0 S S2=A(S1),X=$P(S2,S,16),S3=$P(B(X\100),D,X#100),K=S3 S:$L($P(S2,S,8)) S3="S3="_$P(S2,S,8),@S3
48 G:SW5 17 D 2 G 47
49 S SW5=0,FP=2103+F60 W @F,@F1,"NUMMER ELEMENT, [] = EINDE : ",@F0
5 R S1 G 49:S1?.E1C.E G 67:S1="",49:'$D(A(S1+(SW2*100))) S S2=A(S1+(SW2*100))
50 I $P(S2,S,12),@$P(S2,S,15) S FP=2403+F60 W @F,@F2,@F4,"NIET WIJZIGBAAR ",@F5,@F0 H 2 G 49
51 S FP=2103+F60 W @F,@F1,$P(S2,S,1)," : ",$E(PNT,1,$P(S2,S,9)) W:$L($P(S2,S,10)) !,?2,$P(S2,S,10)
53 S FP=2100+F60+($L($P(S2,S,1))+6) W @F,@F0 R K G 53:K?.E1C.E
55 S X=$P(S2,S,11)_"&'(K[D)&($L(K)'>$P(S2,S,9))"
57 I @X G 6:S1'=2 D 21 S I=I_" "_$P(B(1),D,1) G 6:I1=I S S3=-1,X="^"_Q_"NA(I1,S3)",Y="^"_Q_"NA(I,S3)" D 63 G 6
59 G 51
6 S S3=K S:$L($P(S2,S,8)) S3="S3="_$P(S2,S,8),@S3 D 2
61 S X=$P(S2,S,16)\100,Y=$P(S2,S,16)#100,S2="" 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 49
63 S S3=$N(@X) G 65:S3=-1 S @Y=@X G 63
65 K @Q0 S J1=$P(B(1),D,1),@Q1=I,I1=I Q
67 K S1,S2,S3
69 S X="^"_Q_"NA(I1,0)=B(1)",@X,^(1)=B(2) F I=2:1:6 I $D(^(I)) S ^(I)=B(I+1)
70 G 81:SW4>1 G 27
8 I SW6 S S1=S1+1 G 81:S1>102 S S3=$P(B(1),D,S1#100) G 17
80 F X=101,102 S (S2,A(X))=$P(@("^"_Q_"NA(0,X)"),S,1,9),S3=$P(B(1),D,X#100) D 2 K A(X)
81 G 84:SW7&'SW5 S SW6=0,FP=2103+F60 W @F,@F1,"WELK SCHERM, [] = ANDER ADRES : ",@F0 R K G 81:K?.E1C.E!(K<0)!(K>SW4),27:K="",82:K?1N,81
82 G:SW2=K&'SW5 84 K A S SW5=1,SW2=K,(X,K)=SW2*100,Y=$D(@("^"_Q_"NA(0,0)")) S FP=501 W @F,@F1 I SW2>1 S K=K+2
83 S X=$N(^(X)) G 84:X=-1!(X>((SW2+1)*100)) S K=K+1,A(K)=^(X) G 83
84 S SW7=0,S4=2,S1=SW2*100+2,FP=355 W @F,"SCHERM ",SW2 G 47
YZ Q
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 31