Index: FLOW.mac.rou
===================================================================
diff -u -r29532 -r29533
--- FLOW.mac.rou	(.../FLOW.mac.rou)	(revision 29532)
+++ FLOW.mac.rou	(.../FLOW.mac.rou)	(revision 29533)
@@ -333,10 +333,10 @@
  . 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 (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  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  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)