Index: ccr/trunk/p/C0CMXP.m
===================================================================
--- ccr/trunk/p/C0CMXP.m	(revision 647)
+++ ccr/trunk/p/C0CMXP.m	(revision 648)
@@ -80,5 +80,9 @@
  ; BOTH PASSED BY NAME
  ;
- S C0CDOCID=$$PARSE^C0CMXML(INXML,"C0CMKT")
+ S C0CXLOC=$NA(^TMP("C0CXML",$J))
+ K @C0CXLOC
+ M @C0CXLOC=@INXML
+ S C0CDOCID=$$PARSE^C0CMXML(C0CXLOC,"C0CMKT")
+ K @C0CXLOC
  S C0CDOM=$NA(^TMP("MXMLDOM",$J,C0CDOCID)) 
  ;N GIDX,GIDX2,GARY,GARY2