KBSBKI G 1 ;BEHEER PRIJSVERGELIJK KLANTEN (MODULE BEPALEN PRODUKT VIA IDENTNUMMER) ; [ 09/27/93  3:09 PM ]
 ;
1 S R="K\2000\IDENTNUMMER\PR\PR2" D R7^cA107 G 3^KBSBKP:K="-" S PR=+@("^"_Q_"PR2(K)")
3 G 7^KBSBKP
YZ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 29