Index: EWORDST.mac.rou
===================================================================
diff -u -r67030 -r67053
--- EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 67030)
+++ EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 67053)
@@ -464,7 +464,7 @@
  Quit
  ;
 UNMARK(CONSNr,blnTerugTrekkenVanuitWMS) 
- New Delete,KLNr,SoftV,MultiGrp,ORDNr,ORDNrs
+ New Delete,KLNr,SoftV,MultiGrp,ORDNr,ORDNrs,Status
  Quit:'CONSNr
  Set R=$G(^ORDW("D",CONSNr))
  Set KLNr=$P(R,D)