KKLAD G 1 ;MODULE AANTAL LEVERINGSADRESSEN ;KKLAD;
 ;
1 G YZ:'$D(B(1)),YZ:'$L($P(B(1),D,1)),YZ:'$D(@("^"_Q_"K1($P(B(1),D,1))"))
11 S U3=$N(@("^"_Q_"KL(^($P(B(1),D,1)),""L"")")),U3="L",TEL=0
13 S U3=$N(^(U3)) I $E(U3,1)="L" S TEL=TEL+1 G 13
15 S U3="JA ("_TEL_")"
 ;
YZ K TEL Q
 ;
 Q
Z X ^cZ Q
ZZ ; 12.02.87 - 15 u 57