Changeset 618 for ccr


Ignore:
Timestamp:
Nov 30, 2009, 1:57:27 PM (15 years ago)
Author:
George Lilly
Message:

start of DOM based template generator

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/C0CMXML.m

    r617 r618  
    334334 . E  D  ; NOT A SECTION NODE
    335335 . . N ZJ
    336  . . S ZJ=$O(^C0CXDS(178.101,"D",ZIEN,ZPAR,"") ;IS THERE A WHEREUSED POINTER?
     336 . . S ZJ=$O(^C0CXDS(178.101,"D",ZIEN,ZPAR,"")) ;IS THERE A WHEREUSED POINTER?
    337337 . . I ZJ'="" D  ; THERE IS A NEW LABEL FOR THIS NODE
    338338 . . . ;S C0CTAGS(ZI)=$$GET1^DIQ(178.101
     
    396396 Q
    397397 ;
     398MKTPLATE(INXML,OUTT) ;MAKE A TEMPLATE FROM INXML, RETURNED IN OUTT
     399 ; BOTH PASSED BY NAME
     400 ;
     401 S C0CDOCID=$$PARSE(INXML,"C0CMKT")
     402 S C0CDOM=$NA(^TMP("MXMLDOM",$J,C0CDOCID))
     403 N ZI S ZI=""
     404 F  S ZI=$O(@C0CDOM@(ZI)) Q:ZI=""  D  ; FOR EACH NODE IN THE DOM
     405 . W !,ZI,$$TAG(ZI)
     406 Q
     407 ;
    398408UPDIE   ; INTERNAL ROUTINE TO CALL UPDATE^DIE AND CHECK FOR ERRORS
    399409 K ZERR
Note: See TracChangeset for help on using the changeset viewer.