Index: EWRCPST.mac.rou
===================================================================
diff -u -r37852 -r37853
--- EWRCPST.mac.rou	(.../EWRCPST.mac.rou)	(revision 37852)
+++ EWRCPST.mac.rou	(.../EWRCPST.mac.rou)	(revision 37853)
@@ -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,1)=TOENr & $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"))