Index: BLPROD.mac.rou
===================================================================
diff -u -r37665 -r42277
--- BLPROD.mac.rou	(.../BLPROD.mac.rou)	(revision 37665)
+++ BLPROD.mac.rou	(.../BLPROD.mac.rou)	(revision 42277)
@@ -182,6 +182,7 @@
  
 GetBlumID(PRNr)
  Quit:'$D(^KPR(PRNr,"J5005")) ""
+ New IdentNr,BLID
  Set IdentNr=$$$PRGet($$$IdentNummer)
  Set BLID="0"_$TR($E(IdentNr,2,99),".","")
  Quit:'$D(^BLProd("D",BLID)) ""