Index: RPLPR.mac.rou
===================================================================
diff -u -r2261 -r2264
--- RPLPR.mac.rou	(.../RPLPR.mac.rou)	(revision 2261)
+++ RPLPR.mac.rou	(.../RPLPR.mac.rou)	(revision 2264)
@@ -66,10 +66,9 @@
  I VTB="O" G RAK1:'$D(^HULP($J,"P"_PR,"O",OOT(6))) D  G RAK2
  . S KC=$P(^(OOT(6)),D,2)
  . I KC,$D(^KK1(KC)) D
- . . N ORDNr,OLNr
- . . S ORDNr=$P(^HULP($J,"P"_PR,"O",OOT(6)),D),OLNr=100
- . . F  S OLNr=$O(^KOD(KC,"F",ORDNr,OLNr)) Q:'OLNr  Q:$P(^KOD(KC,"F",ORDNr,OLNr),D,2)
- . . S Screen="O" S:OLNr SELECT="ORD;"_ORDNr_";"_OLNr
+ . . N ORDNr
+ . . S ORDNr=$P(^HULP($J,"P"_PR,"O",OOT(6)),D)
+ . . S Screen="O",SELECT="ORD;"_ORDNr
  . . K ^HULP($J,"K"_KC,"O")
  I VTB="U" G RAK1:'$P($G(^HULP($J,"P"_PR,"U",UTZ(6))),D,1) S KC=$P(^(UTZ(6)),D,1) G RAK2
  I VTB="R" G RAK1:'$P($G(^HULP($J,"P"_PR,"R",PRF(6))),D,2) S KC=$P(^(PRF(6)),D,2) G RAK2