KPIDNR G 1 ;MODULE BEPALEN PRODUKT VIA IDENTNUMMER ; [ 09/27/93  3:48 PM ]
 ;
1 S R="K\2000\IDENTNUMMER\PR\PR2" D R7^cA107 I K'="-" S PR=+@("^"_Q_"PR2(K)")
YZ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 32