cAN2051 ;Vraag postcode + test op dubbels ;%AN200 ; [ 01/04/01  8:39 AM ]
 ;
T0 ;Vraag postcode + test op dubbels ;
 ;
T0F ;Code postal + test sur doublons ;
 ;
T0E ;Question ZIP code + test on double ;
 ;
 ; openen : via synoniemen
1 I UFU="O" D  G YZ:K="-",2:K="",3
 . K POSTCODE S K=$$^cANSYN("PN","","",1) Q:"-"[K
 . S POSTCODE=K,K=$P(^(K,0),D,6)
 . F I=1,2 S $P(B(U7\100),D,U7#100+I)=$P(^(0),D,6+I)
 ;
 ; manuele input
2 S K=$P(B(U7\100),D,U7#100) D ^cAN100 G YZ:K="-"!(K=",")
21 S K=$$UC^cAFA1(K)
 ;
 ; test op dubbels
3 I UFU="O",SW2=1 S $P(B(U7\100),D,U7#100)=K D ^cAN2050
 ;
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84