Index: EWORDF.mac.rou
===================================================================
diff -u -r2612 -r5214
--- EWORDF.mac.rou	(.../EWORDF.mac.rou)	(revision 2612)
+++ EWORDF.mac.rou	(.../EWORDF.mac.rou)	(revision 5214)
@@ -200,8 +200,8 @@
  . Quit:SoftV=""
  . Quit:$O(^ORDW("D",CONSNr,"S",SoftV))="" ; slechts 1 SOFTV groep
  . Set DueOut=$P(CONSRec,D,3)
- . Quit:'$P(DueOut,",",2) ; geen tijd ingegeven
  . Set $P(DueOut,",",2)=$P(DueOut,",",2)-300 ; 5 min vroeger
+ . Set:$P(DueOut,",",2)<0 $P(DueOut,",",2)=120 ; correctie negatieve tijd PV 12-03-2012
  . Set $P(CONSRec,D,3)=DueOut
  . Set HerZend=1 ; herzenden van dueout naar EWMS
  . Do INFO^EWLOG($T(VOORTREK))