Changeset 618 for ccr

Timestamp:

Nov 30, 2009, 1:57:27 PM (15 years ago)

Author:

George Lilly

Message:

start of DOM based template generator

File:

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

ccr/trunk/p/C0CMXML.m

@@ -334 +334 @@
  . E  D  ; NOT A SECTION NODE
  . . N ZJ
- . . S ZJ=$O(^C0CXDS(178.101,"D",ZIEN,ZPAR,"") ;IS THERE A WHEREUSED POINTER?
+ . . S ZJ=$O(^C0CXDS(178.101,"D",ZIEN,ZPAR,"")) ;IS THERE A WHEREUSED POINTER?
  . . I ZJ'="" D  ; THERE IS A NEW LABEL FOR THIS NODE
  . . . ;S C0CTAGS(ZI)=$$GET1^DIQ(178.101
@@ -396 +396 @@
  Q
  ; 
+MKTPLATE(INXML,OUTT) ;MAKE A TEMPLATE FROM INXML, RETURNED IN OUTT
+ ; BOTH PASSED BY NAME
+ ;
+ S C0CDOCID=$$PARSE(INXML,"C0CMKT")
+ S C0CDOM=$NA(^TMP("MXMLDOM",$J,C0CDOCID)) 
+ N ZI S ZI=""
+ F  S ZI=$O(@C0CDOM@(ZI)) Q:ZI=""  D  ; FOR EACH NODE IN THE DOM
+ . W !,ZI,$$TAG(ZI)
+ Q
+ ;
 UPDIE   ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS
  K ZERR