Index: PRBS.mac.rou
===================================================================
diff -u -r29059 -r38002
--- PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 29059)
+++ PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 38002)
@@ -3,7 +3,7 @@
  Do VERWERK() q
  ;
 HasHalfFabr(PRNr,NoSa)
-	New HasHalfFabr,BSKey,IsGlas
+	New HasHalfFabr,BSKey,IsGlas,BSNode
 	Set BSNode=$S($G(NoSa)="S":"BSS",1:"BS")
 	Quit:$P($$GENTYP^HAD(PRNr),"\")="GLA"&&$D(^PRBS(BSNode,PRNr)) 1 ; uitzondering PV 25/9/2011
 	Set HasHalfFabr=""
@@ -1389,3 +1389,4 @@
 
 
 
+