Index: EWORDF.mac.rou
===================================================================
diff -u -r69840 -r70952
--- EWORDF.mac.rou	(.../EWORDF.mac.rou)	(revision 69840)
+++ EWORDF.mac.rou	(.../EWORDF.mac.rou)	(revision 70952)
@@ -201,7 +201,6 @@
  . Set Vzw=$P(^ORDW("D",CONSNr),"\",2)
  . Quit:Vzw'?1(1"DI1",1"OD1",1"OD2",1"OD3",1"OD4") ; alleen voor GLS en ODx
  . Set DueOut=$P(CONSRec,D,3)
- . Set $P(DueOut,",",2)=$S(Vzw="OD1":6,Vzw="OD2":7,Vzw="OD3":8,Vzw="OD4":9,1:4)*60*60
  . 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