KTIDNR G 1 ;MODULE BEPALEN PRODUKT VIA IDENTNUMMER ; [ 05/05/99  1:33 PM ]
 ;
1 K A S SW25=1,SW12=0,Q15="^(""W    0.0T""_UOD_$J(TR,6,0)_$J(UZ,3,0))"
3 S X=^(1),UOD=$TR($$EXTDATE^vhDTyp($$INTDATE^vhDTyp($P(X,D,2)),"DS"),D,"")
 S UI=$P(X,D,2),UJ=$P(X,D,3),UVM=$P(X,D,18)
5 S R="K\"_($P(UD,D,2)+2*100)_"\IDENTNUMMER\PR\PR2" D R7^cA107 G YZ:K="-" S PR=+@("^"_Q_"PR2(K)") G 10^KTRPL
YZ K X,UOD,UOR,UVM,UAF Q
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 36