Index: ccr/trunk/p/C0CMXML.m
===================================================================
--- ccr/trunk/p/C0CMXML.m	(revision 617)
+++ ccr/trunk/p/C0CMXML.m	(revision 618)
@@ -334,5 +334,5 @@
  . 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,4 +396,14 @@
  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