Index: RPLPR.mac.rou
===================================================================
diff -u -r734 -r2261
--- RPLPR.mac.rou	(.../RPLPR.mac.rou)	(revision 734)
+++ RPLPR.mac.rou	(.../RPLPR.mac.rou)	(revision 2261)
@@ -59,16 +59,24 @@
  Q
  ;
  ;Raadplegen klant
-RAK S R=$S($L(VTB):VTB,1:SW2)
+RAK
+ S R=$S($L(VTB):VTB,1:SW2)
  I VTB="H" G RAK1:'$D(^HULP($J,"P"_PR,"F",STF(6))) S KC=$P(^(STF(6)),D,7) G RAK2
  I VTB="M" G RAK1:'DEM,RAK1:'$D(^HULP($J,"P"_PR,"M",BP,DEM(6))) S KC=$P(^(DEM(6)),D,1) G RAK2
- I VTB="O" G RAK1:'$D(^HULP($J,"P"_PR,"O",OOT(6))) S KC=$P(^(OOT(6)),D,2) G RAK2
+ 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
+ . . 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
  I VTB="V" G RAK1:'$D(^AKANAL(PR,VKA(6))),RAK1:$P(^(VKA(6)),D)="MOK" S KC=$P(^(VKA(6)),D,2) G RAK2
 RAK1 G 33
  ;
-RAK2 I KC,$D(^KK1(KC)) S PARAM=KC D NCOL(80) G PK^RPLSW
+RAK2 I KC,$D(^KK1(KC)) S PARAM=KC S:$D(Screen) $P(PARAM,D,2)=Screen S:$D(SELECT) $P(PARAM,D,7)=SELECT K Screen,SELECT D NCOL(80) G PK^RPLSW
  G 33
  ;
  ;Raadplegen produkt Blum