Index: FLOW.mac.rou
===================================================================
diff -u -r29308 -r29532
--- FLOW.mac.rou	(.../FLOW.mac.rou)	(revision 29308)
+++ FLOW.mac.rou	(.../FLOW.mac.rou)	(revision 29532)
@@ -329,14 +329,14 @@
  . For  Quit:'$D(@IGloRef)&'$D(^RCP("D",Number))  Do
  . . Set Number=Number+1,Number=$$CHKMAX(Global,Number)
  Else  If Global="KOD" Do
- . Set CompDate=$$CALCDATE^vhLib.DataTypes(,"M",-6,"FD")
+ . Set CompDate=$$CALCDATE^vhLib.DataTypes(,"M",-4,"FD")
  . For  Quit:'$D(@IGloRef)  Do
  . . Set R=^KO1(Number,"F"),KLNr=$P(R,D),BONNr=$P(R,D,2)
  . . If $D(^KOD(KLNr,"F",Number))
- . . Else  If $D(^KUL(KLNr,"F",BONNr))
- . . Else  Set R=$G(^KUL(KLNr,"G",BONNr,1)) If $L(R),$$INTDATE^vhLib.DataTypes($P(R,D,2))>CompDate
- . . Else  Set R=$G(^KUL(KLNr,"M",BONNr,1)) If $L(R),$$INTDATE^vhLib.DataTypes($P(R,D,2))>CompDate
- . . Else  Set R=$G(^KUL(KLNr,"T",BONNr,1)) If $L(R),$$INTDATE^vhLib.DataTypes($P(R,D,2))>CompDate
+ . . Else  If (BONNr'="") && $D(^KUL(KLNr,"F",BONNr))
+ . . Else  Set:(BONNr'="") R=$G(^KUL(KLNr,"G",BONNr,1)) If $L(R),$$INTDATE^vhLib.DataTypes($P(R,D,2))>CompDate
+ . . Else  Set:(BONNr'="") R=$G(^KUL(KLNr,"M",BONNr,1)) If $L(R),$$INTDATE^vhLib.DataTypes($P(R,D,2))>CompDate
+ . . Else  Set:(BONNr'="") R=$G(^KUL(KLNr,"T",BONNr,1)) If $L(R),$$INTDATE^vhLib.DataTypes($P(R,D,2))>CompDate
  . . Else  Kill ^KO1(Number) Quit
  . . Set Number=Number+1,Number=$$CHKMAX(Global,Number)
  Else  For  Quit:'$D(@IGloRef)  Set Number=Number+1,Number=$$CHKMAX(Global,Number)