Index: PRODUKT4.mac.rou
===================================================================
diff -u -r48688 -r48689
--- PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 48688)
+++ PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 48689)
@@ -137,7 +137,7 @@
  . Set TOENr=""
  . For  Set TOENr=$O(^TO("IP",MPRNr,TOENr)) Quit:TOENr=""  Do
  . . Set LEVNr=^KTO1(TOENr)
- . . Quit:LEVNr=""
+ . . Quit:(LEVNr="")||(LEVNr=$$$LevVanHoecke)
  . . Set TLUNr=""
  . . For  Set TLUNr=$O(^TO("IP",MPRNr,TOENr,TLUNr)) Quit:TLUNr=""  Do
  . . . Set TLNr=^TO("IP",MPRNr,TOENr,TLUNr)