cA209 ;VRAAG POSTNUMMER + SYNONIEMEN ;%A209 ;do uit %A2xx ; [ 04/12/00   9:03 AM ]
 ;
T0 ;Vraag postnummer + synoniemen ;
T1 ;,[] = hernemen (bestaat reeds)   .[] = ingave ok;   [] = vervolg;
T2 ; of woonplaats;   [] = vervolg;
T3 ; is onbekend   -[] = hernemen   .[] = ingave ok : ;
 ;
T0F ;Code postal + synonymes ;
T1F ;,[] = reprendre (existe déjà)   .[] = n'existe pas;   [] = suite;
T2F ; ou localité;   [] = suite;
T3F ; est inconnu   -[] = refaire   .[] = accepter : ;
 ;
T0E ;Vraag postnummer + synoniemen ;
T1E ;,[] = hernemen (bestaat reeds)   .[] = ingave ok;   [] = vervolg;
T2E ; of woonplaats;   [] = vervolg;
T3E ; is onbekend   -[] = hernemen   .[] = ingave ok : ;
 ;
1 S FP=2001 W @F,@F1 S RA=$P(U2,U)_$P($T(@("T2"_QT)),U,2),RL=$P(@("^"_Q_"BA(39)"),D,3),RR="",RX=RL
11 S:$P(U2,U)'=RA $P(U2,U)=RA,$P(U2,U,9)=24,$P(U2,U,11)="",$P(U2,U,13)="" D ^cA207 S K=$P(K_$J("",24),$J("",24)) G YZ:"-,"[K D S3
 ;
2 S R4=2001,R0=0,FP=R4 W @F,@F1 G 24
21 S FP=2403+F60 W @F,@F1,RA,$P($T(@("T2"_QT)),U,4-R0)," : ",@F0 R K
23 G 21:K?.E1C.E S:$L(K) R0=0 S FP=R4 W @F,@F1 G YZ:K="-"!(K=",") D S3:'R0 I K="" S R1=R4 G 3:R0
24 S RL=RX,RK=K I K?1.3U1"-"1E.E S RL=$P(K,"-"),K=$P(K,"-",2) I '$D(^BA(2,RL)) S R=RK G 4
25 I K?1N.N.E S K=$P($P(K,"-")," ")
26 S R=K D S1 I $L(R),R'=0,$D(^BA(2,RL,R)) S R=RK G 4
27 S R6=R,R5=$E(R6,1,24) S:R6="" R5=" " S R1=R4,R2=R5,(R2,R3)=$O(^BA(2,RL,0,R2)) G 33:R2="" S R2=$O(^(R2))
28 I $E(R2,1,$L(R6))'=R6,$E(R3,1,$L(R6))=R6,'R0 S RR=^(R3),R=$P(R3," ",2) G 4
29 S R2=R5
 ;
3 S R2=$O(^BA(2,RL,0,R2)) G 33:$E(R2,1,$L(R6))]R6&'R0&(R1=R4),35:R2="" I $E(R2,1,$L(R6))'=R6 S R0=0 G 21
31 S FP=R1+2 W @F,$P(R2," ",2),"   ",^(R2) S R1=R1+100 G 3:2300+F60>R1 S R0=$E($O(^(R2)),1,$L(R6))=R6 G 21
33 S FP=2403+F60 W @F,@F4,$P(U2,U),$P($T(@("T3"_QT)),U,2),@F5,@F2,@F0 R K I K="." S R=RK G 4
35 S (R0,R2)=0 G 21
 ;
4 S K=R,R2=U2 D S2
41 S R1=$O(A(U1)),R2="" I R1'=R2 S R2=A(R1)
43 I R2["%A240" S $P(B($P(R2,U,16)\100),D,$P(R2,U,16)#100)=RR,K=RR D S2
45 S K=R,R=$P(B(1),D,2) S:R[" " R=$P(R," ",1,$L(R," ")-1) D S1
47 I $D(RS),RS=1 G Y
 ;
5 S R6=R,R5=$E(R6,1,24) S:R6="" R5=" " S R1=R4,R2=R5
51 S FP=R4 W @F,@F1
53 S R2=$O(@("^"_Q_Q1_"(R2)")) I $E(R2,1,$L(R6))'=R6!'$L(R2) G Y:FP=R4,6
55 S R3=^(R2,$P(U2,U,16)\100-1) I $P(R3,D,$P(U2,U,16)#100)'=K G 53
57 S R3=^(0) W @F,$$CR^cA334 W $J($P(R3,D),6),?7,$E($P(R3,D,2),1,26),?34,$E($P(R3,D,5),1,26),?61,$E($P(R3,D,7),1,18)
59 S FP=FP+100 G 53:2300+F60>FP
 ;
6 S R0=$E($O(@("^"_Q_Q1_"(R2)")),1,$L(R6))=R6
61 S FP=2403+F60 W @F,$P($T(@("T1"_QT)),U,2),$P($T(@("T1"_QT)),U,4-R0)," : ",@F2,@F0 R R3 G 1:R3="-",Y:R3="." I R3="," S K=R3 G YZ
63 G 61:$L(R3),51:R0 S R=R6 G 5
 ;
Y I $L(RR) S R1=$O(A(U1)) I R1'="",A(R1)["%A240" S U1=R1
YZ K R,R1,R2,R3,R4,R5,R6,R7,RA,RK,RL,RR,RS,RX S FP=2001 W @F,@F1 Q
 ;
S1 S S1=R,R="" F S2=1:1:$L(S1) S S3=$A(S1,S2),S3=$C($S(S3>96&(S3<123):S3-32,1:S3)) I S3'?1P,S3'?1C S R=R_S3
S1Z K S1,S2,S3 Q
 ;
S2 S U3=K I $L($P(R2,U,8)) X "S U3="_$P(R2,U,8)
S2A I QP S FP=$P(R2,U,5)*100+$P(R2,U,6) W @F,$J("",$P(R2,U,9)+$P(R2,U,13)),@F,U3
S2Z Q
 ;
S3 S R2=U2 D S2 I $P(U2,U,9)+$P(U2,U,13)<$L(K) S $P(U2,U,13)=$L(K)-$P(U2,U,9)
S3Z Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84