Index: csp/PRGAProduct/tmpDev.mac.rou
===================================================================
diff -u -r1185 -r1599
--- csp/PRGAProduct/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 1185)
+++ csp/PRGAProduct/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 1599)
@@ -43,15 +43,10 @@
  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