KKAA17A ;NACHTELIJK VOORBEREIDEN PRODUKTOVERZICHT KLANTEN (Copy old) ;KKAA17; Quit naar KKAA17
 G 1
 ;
1 S REF="^KKAAP(0)" G YZ:'$D(@REF),YZ:'$P(^(0),U,5) K ^Kkaap S ^Kkaap(0)="Copy ^KKAAP "_@REF
11 S REF=$ZO(@REF) I $L(REF) S @("^Kkaap("_$P(REF,"(",2))=@REF G 11
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 05.12.91 -  8 u 06