cAN2050	;Test op dubbels ;%AN200 ; [ 01/04/01  8:38 AM ]
	G 1
	;
VB(DMS,NAAM,POSTNR)	; opgeroepen vanuit VB
	S $ZT="TRAP^cAN000"
	N SWVB,B,OK,UREF
	S SWVB=1,$P(B(1),D,2)=NAAM,$P(B(1),D,6)=POSTNR,OK=1
	D 1
VBZ	Q OK
	;
T0	;Test op dubbels (via naam & postcode) ;
T1	;Mogelijke dubbele adressen : ;
	;
T0F	;Test sur doublons ;
T1F	;Adresses doubles possibles  : ;
	;
T0E	;Test on double (via name & ZIP code) ;
T1E	;Possible double addresses : ;
	;
	; 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	I '$G(SWVB) S IREF=^DMC(UQC,USC,"DATA","INDEX"),IREF=$na(@IREF@(102))
	I $G(SWVB) S I=$$REF^cAFA10(.Q,DMS,102),IREF=$P(I,D,3),UREF=$P(I,D)
	;
	; toekennen ^HULP
2	I '$G(SWVB) S RSORT=$$GETSORT^cAFA1()
	;
	; sorteren in ^HULP
3	S I=RNAAM,RNAAM=$P(RNAAM," "),TEL=0
	; niet vanuit VB
31	I '$G(SWVB) D  G 4
	. F  S I=$O(@IREF@(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
	.. S ^HULP("SORT",RSORT,TEL)=@UREF@(0) Q
33	; vanuit VB
	S I=$P(I," "),I=$O(@IREF@(I),-1)
	F  S I=$O(@IREF@(I)) Q:$E(I,1,$L(RNAAM))'=RNAAM!(I="")  D
	. N UI1
	. S $ZT="TRAP^cAN000"
	. S UI1="" F  S UI1=$O(@IREF@(I,UI1)) Q:UI1=""  D
	.. S J=$$DI^cAN000($P(@UREF@(0),D,6),"") I J'=RPOST Q
	.. S TEL=TEL+1
	.. I $L(OK)>32668 Q   ; (32*1024-100)
	.. S:TEL=1 OK=-1_D_$P($T(@("T1"_QT)),U,2)
	.. S OK=OK_$C(13,10)_"   "_$P(@UREF@(0),D)_" "_$P(^(0),D,2)_", "_$P(^(0),D,5)_", "_$P(^(0),D,6)_" "_$P(^(0),D,7)
	G YZ
	;
	; 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	; 25.04.06 - 15 u 44 * V8.07