Index: Prod/GADef/KaderDeur/tmpDev.mac.rou
===================================================================
diff -u -r2588 -r17620
--- Prod/GADef/KaderDeur/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 2588)
+++ Prod/GADef/KaderDeur/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 17620)
@@ -515,7 +515,7 @@
 	; Else  Loop through ^KPR
 	Set PRNr=$O(^KPR(PRNr)) 
 	Quit:(PRNr="") ""
-	Quit:(PRNr'?4.6N) ""
+	Quit:(PRNr'?4.7N) ""
 	Quit:($P($$GENTYP^HAD(PRNr),"\",1)'?1(1"KAD",1"PRF",1"GLA")) ""
 	Set KadID=$P($G(^KPR(PRNr,"G")),"\",13)
 	Quit KadID