Index: KF5.mac.rou
===================================================================
diff -u -r734 -r2952
--- KF5.mac.rou	(.../KF5.mac.rou)	(revision 734)
+++ KF5.mac.rou	(.../KF5.mac.rou)	(revision 2952)
@@ -65,6 +65,7 @@
 9 S U2=@("^"_Q_"OD(KC,US,UR,UZ)"),PR=$P(U2,D,2),OLUNr=$P(U2,D,15)
  I PR,OLUNr,$D(^ORDW("IO",UR,OLUNr)) G 5
  D KWNODE^FLOWORD(KC,UR,UZ)
+ Do ProductLijnOpBon^FLOWORD2(KC,UR,UZ,URR)
  S U2=@("^"_Q_"OD(KC,US,UR,UZ)") K ^(UZ) S PR=$P(U2,D,2),UA=$P(U2,D,3),UH=$P(U2,D,10)*UPAR,VWTYP=$P(U2,D,14),TR=$P(U2,D,27),TZ=$P($P(U2,D,28),";")
  I '$L(PR) D  G 5
  .D S3