KNA3 G 1 ;RAADPLEGEN ADRESSEN ; [ 08/05/2002  10:18 AM ]
1 S QN=@("^"_Q_"BA(99,1)"),S=";",(X,K)=100
10 S SPA="                                        ",(SW2,SW4,SW5,SW6)=1,S4=0
11 S S1=SW4+'($N(@("^"_Q_"NA(0,(SW4+1)*100)"))=-1) G:S1=SW4 12 S SW4=S1 G 11
12 S A(101)=^(101),A(102)=^(102) G 14:SW4>1
13 S X=$N(^(X)) G 14:X=-1 S K=K+1,A(K)=^(X) G 13
14 S FP=125+$L(QN) W @F61,@F11,@F1,@F,@F5 S FP=102 W @F,@F4,$P($T(KNA3),";",2),QN," ",@F5
15 I SW4>1 S FP=169 W @F,@F5 S FP=155 W @F,"ER BESTAAN ",@F4,SW4," ",@F5,"SCHERMEN."
16 S 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:SW4=1,83:SW6,47
21 S I=$$UPTRIMAN^vhRtn1(K)
23 S I=$E(I,1,24) S:I="" I=" " Q
25 S SW5=0 G 29:SW4>1
27 S VVE=0 G 81:SW4>1
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 81:SW4>1&'VVE,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 S B(1)=^(I1,0),B(2)=^(1),S1=100 F I=2:1:6 I $D(^(I)) S B(I+1)=^(I)
46 I SW4>1 G 83
47 S S1=$N(A(S1)) G 25: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 49 G 47
49 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
81 S SW7=1,FP=2103+F60 W @F,@F1,"WELK SCHERM, [] = EINDE PROGRAMMA : ",@F0 R S5 G 81:S5?.E1C.E!(S5<0)!(S5>SW4),YZ:S5="",82:S5?1N,81
82 S VVE=0,FP=2103+F60 W @F,@F1 G 841:SW7&'SW5 G 29
83 I SW6 S S1=S1+1 G 85:S1>102 S S3=$P(B(1),D,S1#100) G 17
84 F X=101,102 S (S2,A(X))=@("^"_Q_"NA(0,X)"),S3=$P(B(1),D,X#100) D 49
841 I SW2'=S5 S SW5=1,FP=501 W @F,@F1
85 G 87:SW2=S5&'SW5 S SW6=0 K A S SW2=S5,SW5=1,(X,K)=SW2*100,Y=$D(@("^"_Q_"NA(0,0)")) I SW2>1 S K=K+2
86 S X=$N(^(X)) G 87:X=-1!(X>((SW2+1)*100)) S K=K+1,A(K)=^(X) G 86
87 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