Changeset 647 for ccr/trunk/p/C0CMXML.m

Timestamp:

Dec 15, 2009, 4:41:11 PM (14 years ago)

Author:

George Lilly

Message:

template generation tools

File:

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

ccr/trunk/p/C0CMXML.m

@@ -31 +31 @@
  S REDUX="//ContinuityOfCareRecord/Body"
  D XPATH(1,"/","GIDX","GARY",,REDUX)
+ D SEPARATE^C0CMCCD("GARY2","GARY")
+ S ZI=""
+ F  S ZI=$O(GARY2(ZI)) Q:ZI=""  D  ;
+ . N GTMP,G2
+ . M G2=GARY2(ZI)
+ . D DEMUXARY^C0CMXP("GTMP","G2",2)
+ . M GARY3(ZI)=GTMP
  Q
  ;
@@ -59 +66 @@
  K C0CCBK("TAG")
  D SEPARATE^C0CMCCD("GARY2","GARY") ; SEPARATE FOR EASIER BROWSING
- ;S C0CDOCID=$$PARSE(C0CXMLIN) W !,"DOCID: ",C0CDOCID  ;CALL REGULAR PARSER
- ;D XPATH(1,"/","GIDX2","GARY2",,REDUX)
+ S ZI=""
+ F  S ZI=$O(GARY2(ZI)) Q:ZI=""  D  ;
+ . N GTMP,G2
+ . M G2=GARY2(ZI)
+ . D DEMUXARY^C0CMXP("GTMP","G2",2)
+ . M GARY4(ZI)=GTMP
  Q
  ;