KPOLZ G 1 ; MODULE OPVRAGEN POSTKODE EN BIJWERKEN LEVERINGSZONE;KPOLZ; [ 02/21/2001  1:15 PM ]
 ;
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+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2 W $E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V4 03.10.84
 ;
1 S R="K\22\3\"_$P(U2,U,1)_"\"""_$P(U2,U,10)_"""\"_$P(U2,U,9)_"\\"_$P(U2,U,11) D R0 G YZ:"-,"[K I K'?4N G 1:'$L($P(K,"-",1)),1:'$L($$LAND^vhRtn1($P(K,"-",1)))
3 K GEM S POST=K G 13:$D(@("^"_Q_"PORT($P(K,""-"",1,2))"))
5 I $D(^cPG(K)) S GEM="",FP=2303+F60 W @F,@F1,"GEMEENTE   : ",^(K) G 9
7 S R="GEM\23\3\GEMEENTE  \\24\\$L(K)" D R0 G 1:K="-",YZ:K=",",9:POST?4N S K=$N(@("^"_Q_"PORT(9999)")),K=$P(POST,"-",1)
8 S K=$N(^(K)) I $P(K,"-",1)=$P(POST,"-",1) G 8:$P(^(K),D,2)'=GEM S ZON=$P(^(K),D,1) G 11
9 S R="ZON\24\3\LEVERZONE \\1\\""-,""[K&$L(K)!(K>0&(K<9))" D R0 G 1:K="-",YZ:K=","
11 S K=POST,@("^"_Q_"PORT($P(POST,""-"",1,2))")=ZON_D_GEM_D
13 G YZ:'$D(WIJZ),YZ:'WIJZ,17:$D(GEM) S GEM="" I $D(^cPG(POST)) S GEM=^(POST)
15 I '$L(GEM),$D(@("^"_Q_"PORT($P(POST,""-"",1,2))")) S GEM=$P(^($P(POST,"-",1,2)),D,2)
17 G YZ:'$L(GEM) S $P(B(1),D,7)=GEM,U1=100
19 S U1=$N(A(U1)) I U1>0 S R=A(U1) G 19:$P(R,U,16)'=107 S FP=$P(R,U,5)*100+$P(R,U,6) W @F,$J("",$P(R,U,9)),$J("",$P(R,U,13)),@F,GEM
YZ K POST,GEM,ZON,R Q
 ;
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 33