Index: BLPROD.mac.rou
===================================================================
diff -u -r29059 -r37665
--- BLPROD.mac.rou	(.../BLPROD.mac.rou)	(revision 29059)
+++ BLPROD.mac.rou	(.../BLPROD.mac.rou)	(revision 37665)
@@ -188,7 +188,7 @@
  Quit BLID
  
 GETVH(BLID,BLKLNr)
- New IList,II,I,VHKLKNr
+ New IList,II,I,VHKLNr,PRNr,CH
  Set BLID=$TR(BLID,".","")
  Set:$L(BLID)>7 $E(BLID)=""
  Set:$L(BLID)<7 BLID=$TR($J(BLID,7)," ","0")
@@ -502,3 +502,4 @@
 	Quit $P($G(^BLProd("D",BLID)),"\",18)
 	
 
+