Index: EWRCPST.mac.rou
===================================================================
diff -u -r29059 -r37852
--- EWRCPST.mac.rou	(.../EWRCPST.mac.rou)	(revision 29059)
+++ EWRCPST.mac.rou	(.../EWRCPST.mac.rou)	(revision 37852)
@@ -801,7 +801,7 @@
  Set BlumULNr="",TLNr=$G(^TO("IU",TOENr,TLUNr)) Set:TLNr R=^KTO(LEVNr,TOENr,TLNr),BlumULNr=$P(R,D,13)
  If LEVNr,$L(VervRef),$L(FaktNr),BlumULNr Do
  . Set VervLijn=""
- . For  Set VervLijn=$O(^Verv(LEVNr,"D",VervRef,FaktNr,VervLijn)) Quit:VervLijn=""  Do  Quit:$P(R,D,2)=BlumULNr
+ . For  Set VervLijn=$O(^Verv(LEVNr,"D",VervRef,FaktNr,VervLijn)) Quit:VervLijn=""  Do  Quit:($P(R,D,1)=TOENr & $P(R,D,2)=BlumULNr)
  . . Set R=^Verv(LEVNr,"D",VervRef,FaktNr,VervLijn)
  . Quit:VervLijn=""
  . Set R=$G(^Verv(LEVNr,"D",VervRef,FaktNr,VervLijn,"V"))
@@ -826,3 +826,4 @@
  ;
 
 
+