Index: ccr/trunk/p/C0CMXML.m
===================================================================
--- ccr/trunk/p/C0CMXML.m	(revision 574)
+++ ccr/trunk/p/C0CMXML.m	(revision 575)
@@ -21,6 +21,7 @@
 	;
 TEST	;
-	S C0CXMLIN=$NA(^TMP("C0CMXML",$J)) K GARY
-	W $$FTG^%ZISH("FORT$:","mxml-test.xml",$NA(@C0CXMLIN@(1)),3)
+	S C0CXMLIN=$NA(^TMP("C0CMXML",$J))
+	K GARY
+	W $$FTG^%ZISH("/home/vademo2/EHR/p/","mxml-test.xml",$NA(@C0CXMLIN@(1)),3)
 	S C0CDOCID=$$PARSE(C0CXMLIN) W !,"DocID: ",C0CDOCID
 	S REDUX="//ContinuityOfCareRecord/Body"
@@ -49,6 +50,7 @@
 	. I GT'="" S NEWPATH=GT
 	S @ZXIDX@(NEWPATH)=ZOID ; ADD THE XPATH FOR THIS NODE TO THE XPATH INDEX
-	N GD S GD=$$DATA(ZOID) ; SEE IF THERE IS DATA FOR THIS NODE
-	I GD'="" S @ZXPARY@(NEWPATH)=GD ; IF YES, ADD IT TO THE XPATH ARRAY
+	N GD D DATA("GD",ZOID) ; SEE IF THERE IS DATA FOR THIS NODE
+	I $D(GD(2)) M @ZXPARY@(NEWPATH)=GD ; IF MULITPLE DATA MERGE TO THE ARRAY
+	E  I $D(GD(1)) S @ZXPARY@(NEWPATH)=GD(1) ; IF SINGLE VALUE, ADD TO ARRAY
 	N ZFRST S ZFRST=$$FIRST(ZOID) ; SET FIRST CHILD
 	I ZFRST'=0 D  ; THERE IS A CHILD
@@ -81,10 +83,9 @@
 	Q $$SIBLING^MXMLDOM(C0CDOCID,ZOID)
 	;
-DATA(ZOID)	; RETURNS DATA FOR THE NODE
-	N ZT,ZN S ZT=""
+DATA(ZT,ZOID)	; RETURNS DATA FOR THE NODE
+	;N ZT,ZN S ZT=""
 	;S C0CDOM=$NA(^TMP("MXMLDOM",$J,C0CDOCID))
 	;Q $G(@C0CDOM@(ZOID,"T",1))
-	S ZN=$$TEXT^MXMLDOM(C0CDOCID,ZOID,"ZT")
-	;I $D(ZT) ZWR ZT
-	Q $G(ZT(1))
+	S ZN=$$TEXT^MXMLDOM(C0CDOCID,ZOID,ZT)
+	Q
 	;