Index: ATKJOB4.mac.rou
===================================================================
diff -u -r29059 -r49989
--- ATKJOB4.mac.rou	(.../ATKJOB4.mac.rou)	(revision 29059)
+++ ATKJOB4.mac.rou	(.../ATKJOB4.mac.rou)	(revision 49989)
@@ -83,7 +83,7 @@
  .For  Set OLNr=$O(^KUL(KLNr,"F",BONNr,OLNr)) Quit:'OLNr  Do
  ..Set R=^KUL(KLNr,"F",BONNr,OLNr),PRNr=$P(R,D,2)
  ..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)," - "),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,99)="1\\"_ORDNr