Index: csp/PRGAProduct/tmpDev.mac.rou
===================================================================
diff -u -r1152 -r1185
--- csp/PRGAProduct/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 1152)
+++ csp/PRGAProduct/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 1185)
@@ -43,10 +43,15 @@
  Quit
 opgXMLViaID(ProdID)
  New arValidPR,PR
+  d WLIP^vhDBG(97,"opgXMLViaID "_ProdID)
+ 
  Set PR=##class(Prod.GAData.Product).OpenWithCalc(ProdID)
+  d WLIP^vhDBG(97,"after OpenWithCalc ")
  Quit:('$IsObject(PR))
  If 'PR.ValidatePR(.arValidPR) Do opgInvalidPR
+  d WLIP^vhDBG(97,"after ValidatePR ")
  Do PR.XMLWrite(0,"N","GAF;GAO",$S($G(%request.Data("NOXSL",1))=1:"", 1:"Format GAProduct.xsl"))
+  d WLIP^vhDBG(97,"after XMLWrite ")
  Do:($G(%request.Data("TOGLOB",1))=1) opgXMLtoGlobal
  Do PR.%Close()
  Quit