Index: FLOW.mac.rou
===================================================================
diff -u -r48890 -r48974
--- FLOW.mac.rou	(.../FLOW.mac.rou)	(revision 48890)
+++ FLOW.mac.rou	(.../FLOW.mac.rou)	(revision 48974)
@@ -339,11 +339,11 @@
  . For  Quit:'$D(@IGloRef)&'$D(^RCP("D",Number))  Do
  . . Set Number=Number+1,Number=$$CHKMAX(Global,Number)
  Else  If Global="KOD" Do
- . Set CompDate3=$$CALCDATE^vhLib.DataTypes(,"A",-1,"FD")
+ . Set CompDate3=$$CALCDATE^vhLib.DataTypes(,"A",-5,"FD")
  . Set CompDate4=$$CALCDATE^vhLib.DataTypes(,"M",-4,"FD")
  . For  Quit:'$D(@IGloRef)  Do
  . . Set R=^KO1(Number,"F"),KLNr=$P(R,"\"),BONNr=$P(R,"\",2)
- . . Set CompDate=$S(Number<101000 : CompDate3 , 1:CompDate4)
+ . . Set CompDate=$S(Number<110000 : CompDate3 , 1:CompDate4)
  . . 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,"\",2))>CompDate