KNA4 G 1 ;VERWIJDEREN ADRESSEN ; [ 08/05/2002  10:18 AM ]
1 S BJ=@("^"_Q_"BA(7)")\1,QN=^(99,1),S=";",X=@("^"_Q_"NA(0,0)"),(K,X)=100
10 S SPA="                                        ",SW5=1
11 S X=$N(^(X)) G 13:X=-1!(X>200) S K=K+1,A(K)=^(X) G 11
13 S FP=126+$L(QN) W @F61,@F11,@F1,@F,@F5 S FP=102 W @F,@F4,$P($T(KNA4),";",2),QN," ",@F5
15 S S1=100,S4=0,Q0="^"_Q_"NA(I1)",Q1="^"_Q_"NA1(J1)" G 27
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
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
29 S 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,KNR=$P(B(1),D,1) F I=2:1:6 I $D(^(I)) S B(I+1)=^(I)
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
471 G 17:SW5
48 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 G 47
49 S SW5=0
57 S FP=2103+F60 W @F,@F1,"[] = HERNEMEN   V[] = VERWIJDEREN : ",@F0 R K G 57:K?.E1C.E G 27:K="",57:K'="V"
59 S FP=2203+F60 W @F,@F2,"[] = HERNEMEN   V[] = VERWIJDEREN DEFINITIEF : ",@F0 R K G 59:K?.E1C.E G 27:K="",59:K'="V"
6 K @("^"_Q_"NA(I1)") K @("^"_Q_"NA1(KNR)") S FP=2403+F60 W @F,@F2,@F4,"ADRES ",KNR," IS VERWIJDERD !! ",@F5,@F0 H 3 G 27
YZ Q
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 31