Index: /ccr/trunk/p/C0CCCR0.m
===================================================================
--- /ccr/trunk/p/C0CCCR0.m	(revision 583)
+++ /ccr/trunk/p/C0CCCR0.m	(revision 584)
@@ -282,5 +282,4 @@
  ;;</Actor>
  ;;</Source>
- ;;<Product>
  ;;<ProductName>
  ;;<Text>@@ALERTAGENTPRODUCTNAMETEXT@@</Text>
@@ -290,5 +289,4 @@
  ;;</Code>
  ;;</ProductName>
- ;;</Product>
  ;;</Product>
  ;;</Products>
Index: /ccr/trunk/p/C0CIN.m
===================================================================
--- /ccr/trunk/p/C0CIN.m	(revision 583)
+++ /ccr/trunk/p/C0CIN.m	(revision 584)
@@ -26,5 +26,9 @@
  ;N C0CXP
  S C0CINB=$NA(^TMP("C0CIN",$J,"VARS",C0CDFN))
- D INDEX^C0CXPATH(INXML,"C0CXP",-1) ; GENERATE XPATHS FROM THE CCR
+ S C0CDOCID=$$PARSE^C0CMXML(INXML) ;W !,"DocID: ",C0CDOCID
+ ;S REDUX="//ContinuityOfCareRecord/Body"
+ S REDUX=""
+ D XPATH^C0CMXML(1,"/","C0CIDX","C0CXP",,REDUX)
+ ;D INDEX^C0CXPATH(INXML,"C0CXP",-1) ; GENERATE XPATHS FROM THE CCR
  ;N ZI,ZJ,ZK 
  S ZI=""
@@ -36,5 +40,7 @@
  . S ZS=$P(ZJ,"^",2) ; PULL OUT THE SUBMULTIPLE
  . S C0CDICN=$O(^C0CDIC(170,"XPATH",ZK,""))
- . I C0CDICN="" W "MISSING XPATH:",!,ZK,! Q  ; OOPS, XPATH NOT IN C0CDIC
+ . I C0CDICN="" D  Q  ;
+ . . W "MISSING XPATH:",!,ZK,! ; OOPS, XPATH NOT IN C0CDIC
+ . . S MISSING(ZK)=""
  . ;D GETS^DIQ(170,C0CDICN_",","*",,"C0CFDA")
  . S C0CVAR=$$GET1^DIQ(170,C0CDICN_",",.01) ; VARIABLE NAME