Index: EWRCPF.mac.rou
===================================================================
diff -u -r948 -r1079
--- EWRCPF.mac.rou	(.../EWRCPF.mac.rou)	(revision 948)
+++ EWRCPF.mac.rou	(.../EWRCPF.mac.rou)	(revision 1079)
@@ -359,7 +359,7 @@
  ....Set LRec=$G(^RCP("D",RCPNr,"D",TOENr,TLUNr))
  ....If $P(LRec,D,2)="I" Kill ^RCP("AUTO",RCPNr,TOENr,TLUNr) Quit
  ....If $P(LRec,D,2)="S",$P(LRec,D,3)="",$P(LRec,D,8)=$P(LRec,D,4) Do
- .....Do TLUNR^EWTOE(RCPNr,TOENr,TLUNr,,,1)
+ .....Do TLUNR^EWTOE(RCPNr,TOENr,TLUNr,,1,1)
  .....Quit:LEVNr'=6332  ; Order is klaar verwittigen via mail - enkel indien Halux
  ..... ; Indien de receptie volledig is ingeboekt, het order is voor vandaag en het order kan niet automatisch doorgestuurd worden,
  ..... ; dan het orden opnemen om te werwittigen via mail.