Index: PRODUKT2.mac.rou
===================================================================
diff -u -r918 -r948
--- PRODUKT2.mac.rou	(.../PRODUKT2.mac.rou)	(revision 918)
+++ PRODUKT2.mac.rou	(.../PRODUKT2.mac.rou)	(revision 948)
@@ -1,4 +1,6 @@
 #include %Prod.Product
+#include BL.Derde.LevSpecifiek
+ 
 PRODUKT2 ;Produkt Indexen, Verwijderen [ 10/13/2003  4:53 PM ]
  d ^cA604 w $$CHECKDEL^PRODUKT2(3212,"U") q
 CHECKDEL(PRNr,What) 
@@ -680,7 +682,7 @@
  Set Key=$O(^KPR(PRNr,"I"))
  Quit:$E(Key)'="I" 0
  Set Is=$P($G(^KPR(PRNr,Key)),"\",1)="02KB "
- Set:Is Is=$$LEVNR(PRNr)=5005
+ Set:Is Is=($$LEVNR(PRNr)=$$$LevBlum)||($$LEVNR(PRNr)=$$$LevHalux)
  Quit Is
  ;
  ; Is Tandem product