cAN2050 ;Test op dubbels ;%AN200 ; [ 01/04/01  8:38 AM ]
 G 1
 ;
T0 ;Test op dubbels (via naam & postcode) ;
 ;
T0F ;Test sur doublons ;
 ;
T0E ;Test on double (via name & ZIP code) ;
 ;
 ; referentie naam & postcode
1 N I,IREF,J,RNAAM,RPOST,RSORT,TEL
10 S $ZT="TRAP^cAN000"
11 S RNAAM=$P(B(1),D,2)
 I RNAAM["-" S RNAAM=$P(RNAAM,"-")       ; dubbele familienaam
 I RNAAM["+" S RNAAM=$P(RNAAM,"+")
 I RNAAM["&" S RNAAM=$P(RNAAM,"&")
 I RNAAM["/" S RNAAM=$P(RNAAM,"/")
12 S I=$L(RNAAM," "),J=$$DI^cAN000(RNAAM,""),K=$F(RNAAM," ") ; VJ-14.09.00
 I $E(J,1,2)="DE",K=4,I<3 G 15           ; "De ..."
 I $E(J,1,5)="VANDE",K=5,I<4 G 15        ; "Van De ..."
 I $E(J,1,3)="VAN",K=5,I<3 G 15          ; "Van ..."
13 I I>1 S RNAAM=$P(RNAAM," ",1,I-1)       ; familienaam overhouden
15 S RNAAM=$$DI^cAN000(RNAAM,"")
17 S RPOST=$$DI^cAN000($P(B(1),D,6),"")
19 S IREF=^DMC(UQC,USC,"DATA","INDEX")
 ;
 ; toekennen ^HULP
2 S RSORT=$$GETSORT^cAFA1()
 ;
 ; sorteren in ^HULP
3 S I=RNAAM,RNAAM=$P(RNAAM," "),TEL=0
31 F  S I=$O(@IREF@(102,I)) Q:$E(I,1,$L(RNAAM))'=RNAAM!(I="")  D
 . N UI1
 . S UI1=^(I),J=$$DI^cAN000($P(@UREF@(0),D,6),"") I J'=RPOST Q
 . S TEL=TEL+1,^HULP("SORT",RSORT,TEL)=@UREF@(0)
 ;
 ; raadplegen dubbels
4 S K="" I TEL D R^cAN210("ADR.DUB",0,0,0)     ; NIET via RS^cAN210 !!!
41 I K="-" S K="," M B=A
43 E  S K=$P(B(U7\100),D,U7#100)
 ;
 ; verwijderen ^HULP
5 D RELSORT^cAFA1(RSORT)
 ;
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84