cA341 ;SELEKTIE WOONPLAATS BIJ POSTNUMMER ;%A341 ; [ 04/12/00   9:03 AM ]
 ;
 ; INPUT  : R="outputvar\lijnnr*100\landkode\postnummer"
 ; INTERN : alle R-variabelen
 ; OUTPUT : outputvar.
 ;
T0 ;Selectie woonplaats bij postnummer ;
T1 ;Volgnummer voor de woonplaats;   [] = vervolg;
 ;
T0F ;Sélection localité chez code postal ;
T1F ;Numéro d'ordre de la localité;   [] = suite;
 ;
T0E ;Selectie woonplaats bij postnummer ;
T1E ;Volgnummer voor de woonplaats;   [] = vervolg;
 ;
1 S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4)
11 S:'R2 R2=2000 S R2=R2+1
13 I R3'?1.3U S R3=$P(@("^"_Q_"BA(39)"),D,3)
15 S R1="" G Y:R4=""
 ;
2 S R10="",R11=0
21 S R0=0,FP=R2 W @F,@F1
23 S R10=$O(^BA(2,R3,R4,R10)) G 3:R10="" S R11=R11+1
25 W @F,$$CR^cA334 W $J(R10,4),". ",$P(^(R10),D) S FP=FP+100 I 2300+F60>FP G 23
27 S R0=$O(^(R10))'=""
 ;
3 I 'R11 S R1="" G Y
31 I R11=1 S R10=$O(^(R10)),R1=^(R10) G Y
33 S FP=2403+F60 W @F,$P($T(@("T1"_QT)),U,2),$P($T(@("T1"_QT)),U,4-R0)," : ",@F2,@F0 R R1 I R1="-"!(R1=",") S R1="-" G Y
35 I R1?1N.N,$D(^(R1)) S R1=^(R1) G Y
37 G 33:$L(R1),21:R0,2
 ;
Y S @$P(R,D)=R1,FP=R2 W @F,@F1
YZ K R,R0,R1,R2,R3,R4,R10,R11 Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84