KNA6 ; ALFABETISCHE LIJST ADRESSEN ; [ 08/05/2002  10:18 AM ]
1 G 10
T0 ;:      :                             :                             :    :                  :
10 S NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3),I1=0,BLZ=0,X=@("^"_Q_"NA(0,0)"),K=0,X=100,S=";",I1X=" ",I2X="",LN=0,MAX=0
12 B 1
100 S SW=0,LN=0,L2=0,L1=0,Q0="^"_Q_"NA(I1X)"
11 S FP=214 W @F11,@F1,@F,@F4,$P($T(KNA6),";",2),@F5
17 S R="KEU\19\3\<NL>=ALLE ADRESSEN\90\1\\""A-""[K!(K?6N)\" D R0 G Y0:K="-",25:K=""
19 S FP=503 W @F,@F1,"IN ALFABETISCHE ORDE VANAF ADRES :",!,?2,"<NL>=VANAF HET BEGIN" S R=19 D R1
2 S IX1=" " S:$L(K) I1X=I1 I $L(K) S FP=539 W @F,$P(^(I1,0),D,1)," ",$P(^(0),D,2)
21 S FP=703 W @F,@F1,"IN ALFABETISCHE ORDE TOT ADRES   :",!,?2,"<NL>=TOT HET EINDE" S R=19 D R1
23 S I2X="" S:$L(K) I2X=I1 I $L(K) S FP=739 W @F,$P(^(I1,0),D,1)," ",$P(^(0),D,2)
25 D INIT^vhPRINTER(132) G 17:'$D(Print)
27 D 8 G 29:I1X=" " S X=$D(@Q0) G 31
29 S I1X=$N(@Q0),I1Y=99999 I I1X=-1 G Y
3 I $L(I2X),I1X]I2X G Y
31 S A0=^(I1X,0),A1=^(1)
4 W ! S LN=LN+1 I LN>51 W # S LN=0,L1=L1+1 D 8 G 4
40 W $P($T(T0),";",2),$C(13),?2,$P(A0,D,1),?9,$P(A0,D,2),?39,$P(A0,D,5),?69,$$LAND^vhRtn1($P(A0,D,8)),?74 S L2=L2+1
41 W $P(A0,D,13)
42 W !,$P($T(T0),";",2),$C(13),?9,$P(A0,D,3),?39,$P(A0,D,6)," ",$P(A0,D,7),?69,$P(A0,D,9)
43 W ?74,$P(A0,D,14) S LN=LN+1
45 W !,$P($T(T0),";",2) S LN=LN+1
37 G 29
6 W ! S LN=LN+1 I 58-TS<LN W # D 8 G 6
61 Q
8 S BLZ=BLZ+1,LN=0 W !,NM1,?84,"BLZ:",$J(BLZ,4),!,NM2,?20,@F82,$P($T(KNA6),S,2),@F83,$C(13),?84,DT
81 W !,NM3,?84,TD,!
82 W !!,$P($T(T1),";",2),!,$P($T(T2),";",2),!,$P($T(T3),";",2) Q
Y W # D CLOSE^vhPRINTER
Y0 Q
90 W !,?1,"-<NL>=EINDE PROGRAMMA",!,?1,"A<NL>=BEPAALDE ADRESSEN" Q
R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_","_$P(R,D,8) S:$P(R,D,7)'="" R7=R7_","_$P($T(@$P(R,D,7))," ",2,99)
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0 W @F,@F2 W $E("....................",1,R6),@F,*7
R0D R K S:$P(R,D,7)="DCTR" D1=$P(K,".",1),D2=$P(K,".",2),D3=$P(K,".",3) W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K G R0Z
R0E G R0C
R0Z K R2,R3,R4,R5,R6,R7,R0 Q
R1 D ^cA101 Q
R2 D ^cA102 Q
R3 S R0=$P(R,D,1),R2=" " S:R0<0 R2="-",R0=$E(R0,2,99) F X=3,7,11 S R1=$L(R0) G R3A:R1'>X S R0=$E(R0,1,R1-X)_"."_$E(R0,R1-X+1,R1)
R3A W ?$P(R,D,3),$J(R0,$P(R,D,2)),R2 Q
T1 ;: NUM. : NAAM VAN HET ADRES          : STRAAT-NUMMER-BUS           :LAND:   TELEFOON 1     :
T2 ;:      : NAAM TWEEDE LIJN            : POSTNUMMER-WOONPLAATS       :TAAL:   TELEFOON 2     :
T3 ;:------:-----------------------------:-----------------------------:----:------------------:
 ;