Index: EWTOE.mac.rou
===================================================================
diff -u -r65923 -r67253
--- EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 65923)
+++ EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 67253)
@@ -53,7 +53,7 @@
  ..Set R=$$PI^vhPOPUP("C;C","-O1","Halux order "_ORDNr_" voor "_$P(^KKL(^KK1(KLNr),0),D,2),"EWTOE","HALUX")
  ..If $L(R) Set R=^RES("EWTOE","PI","HALUX","D",R,"N"),Text(4)="~~"_R
  ..Set Link(1)="KL\"_KLNr_"\R\O",Link(2)="ORD\"_ORDNr_"\R"
- ..Set MailId=$$SYSTEM^vhMAIL("","Order","Halux..","HALORDOK",.Text,.Link,"U","A")
+ ..;Set MailId=$$SYSTEM^vhMAIL("","Order","Halux..","HALORDOK",.Text,.Link,"U","A")
  .Set TLUNr=""
  .For  Set TLUNr=$O(^RCP("D",RCPNr,"D",TOENr,TLUNr)) Quit:TLUNr=""  Do TLUNR(RCPNr,TOENr,TLUNr,,,NoAsk)
  .Do CHKDEL^FLOWTOE(TOENr)