Index: RPLKL2.mac.rou
===================================================================
diff -u -r762 -r2264
--- RPLKL2.mac.rou	(.../RPLKL2.mac.rou)	(revision 762)
+++ RPLKL2.mac.rou	(.../RPLKL2.mac.rou)	(revision 2264)
@@ -285,7 +285,8 @@
  S $P(U2,D,9)=$$TRANSPORT^FLOWORD(UR,2)
  S:$L($P(U2,D,9)) $P(U2,D,9)="*"_$P(U2,D,9)_"*"
  I $P(U2,D,9)="",'$P(Close,D) S $P(U2,D,9)="tsl" I $P(Close,D,2)=1 S $P(U2,D,9)="vtg"
- S UZ=100,VNRX=VNR+1 G ORD3
+ S UZ=100,VNRX=VNR+1
+ G ORD3
 ORD2
  S U2="" Set:$L(EDIRef) $P(U2,D,4)="EDI: "_EDIRef
  D:$L(OrgRef)
@@ -313,6 +314,7 @@
  G ORD3:tr="",ORD3:'$D(^KTO1(tr)) S lc=$P(^(tr),D)
  G ORD3:'$L($P(^KTO(lc,tr,1),D,10)) S $P(U2,D,13)="*"
 ORD3 S VNR=VNR+1
+ I $D(SELECT),$P(SELECT,U)="ORD",$P(SELECT,U,2)=UR,'$P(SELECT,U,3) S ORD(6)=VNR K ORD(7),SELECT
  I $D(SELECT),$P(SELECT,U)="ORD",$P(SELECT,U,2)=UR,$P(SELECT,U,3)=UZ S ORD(6)=VNR K ORD(7),SELECT
  I STUPD'="S",STUPD'="Z" S STUPD=""
  S $P(U2,D,14)=STUPD,$P(U2,D,15)=UR S:UZ>100 $P(U2,D,16)=UZ