Index: KFSO.mac.rou
===================================================================
diff -u -r734 -r921
--- KFSO.mac.rou	(.../KFSO.mac.rou)	(revision 734)
+++ KFSO.mac.rou	(.../KFSO.mac.rou)	(revision 921)
@@ -61,7 +61,8 @@
 30 G 31:UUZ'=-1 S @("^"_Q_"TO($P(LEV,D),TR,0)")=UZ,$P(^(1),D,18)=UMC
  S (@("^"_Q_"TO1(TR)"),@("^"_Q_"TOB(TR)"))=$P(LEV,D)_D,@("^"_Q_"TO2($P(LEV,D),TR)")=""
  I $D(@("^"_Q_"TO(0,2)")) S TRLC=TR
-300 S:LEV=5005 ^BLBeri("Z",TR)=LEV_D L @("^"_Q_UGL_"(KC,US,UR)") G 15
+300 S:LEV=5005 ^BLBeri("Z",TR)=LEV_D L @("^"_Q_UGL_"(KC,US,UR)")
+ G 15
 31 S Z=@("^"_Q_"HULP($J,LEV,VerpakkingsType,UUZ)") I $L($P(Z,D,2)) S $P(Z,D,13)=UZ-100
  S:$P(Z,D,17)="KTO11" $P(Z,D,15)=$$UNIEKLNR^FLOWTOE($P(LEV,D),TR)
  S @("^"_Q_"TO($P(LEV,D),TR,UZ)")=Z G 29:'$L($P(Z,D,2))