Index: ECFJOB.mac.rou
===================================================================
diff -u -r29059 -r49993
--- ECFJOB.mac.rou	(.../ECFJOB.mac.rou)	(revision 29059)
+++ ECFJOB.mac.rou	(.../ECFJOB.mac.rou)	(revision 49993)
@@ -154,7 +154,7 @@
  ...Set R=^KUL(KLNr,"F",BONNr,OLNr),PRNr=$P(R,D,2)
  ...If $P($P(R,D,17),"#")="KF11",$P($P(R,D,18),";",4)'["B" Quit
  ...If $P(R,D,17)="KF5" Do  Quit
- ....Set ORDNr=$P($P(R,D,5)," - "),OrdRef=$P($P(R,D,5)," - ",3)
+ ....Set ORDNr=$P($P(R,D,5)," - ",1),OrdRef=$P($P(R,D,5)," - ",3,99)
  ....Set $P(R,D,5)=OrdRef
  ....For I=1:1:4,6:1:$L(R,D) Set $P(R,D,I)=""
  ....Set $P(R,D,49,99)=1_D_$$EXTNUM(ORDNr),ORec=R,LRec=""