Changeset 575 for ccr/trunk/p

Timestamp:

Oct 14, 2009, 8:41:00 AM (15 years ago)

Author:

George Lilly

Message:

now handles multiple lines of text in DATA

File:

• ccr/trunk/p/C0CMXML.m (modified) (3 diffs)

ccr/trunk/p/C0CMXML.m

@@ -21 +21 @@
         ;
 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 +50 @@
         . 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 +83 @@
         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
         ;