cAN2052 ;Test op dubbels (postcode) ;%AN200 ; [ 01/04/01  8:39 AM ]
 G 1
 ;
T0 ;Test op dubbels ;
 ;
T0F ;Test sur doublons ;
 ;
T0E ;Test on double ;
 ;
 ; referentie naam & postcode
1 N I,IREF,J,RPOST,RSORT
10 S $ZT="TRAP^cAN000"
17 S RPOST=$$DI^cAN000($P(B(1),D,6),"")
 ; S RWOONPL=$$DI^cAN000($P(B(1),D,7),"")
 S RWOONPL=$$DI^cAN000(K,"")
19 S IREF=^DMC(UQC,USC,"DATA","INDEX")
 ;
 ; toekennen ^HULP
2 S RSORT=$$GETSORT^cAFA1()
 ;
 ; sorteren in ^HULP
3 S I=RPOST
31 F  S I=$O(@IREF@(106,I)) Q:$P(I," ")'=$P(RPOST," ")!'$L(I)  D
 . N UI1
 . S UI1=^(I)
 . S J=$O(^HULP("SORT",RSORT,""),-1)+1,^HULP("SORT",RSORT,J)=@UREF@(0)
33 S I=RWOONPL
35 F  S I=$O(@IREF@(107,I)) Q:$P(I," ")'=$P(RWOONPL," ")!'$L(I)  D
 . N UI1
 . S UI1=^(I)
 . S J="" F  S J=$O(^HULP("SORT",RSORT,J)) Q:J=""  I ^(J)=@UREF@(0) Q
 . I J'="" Q
 . S J=$O(^HULP("SORT",RSORT,""),-1)+1,^HULP("SORT",RSORT,J)=@UREF@(0)
 ;
 ; raadplegen dubbels
4 S K="" I $L($O(^HULP("SORT",RSORT,0))) D R^cAN210("PN.DUB",0,0,0)
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