iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

start of DOM based template generator

This commit is contained in:
george 2009-11-30 18:57:27 +00:00
parent 2ae762d676
commit 12751029d5
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
p/C0CMXML.m
View File

@ -333,7 +333,7 @@ FINDALT ; PROCESS THE DOMMAP AND FIND THE ALT TAGS FOR COMPONENTS
. . S C0CTAGS(ZI)=ALTTAG
. 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
Q
@ -395,6 +395,16 @@ WHRUSD(ZD) ; UPDATE THE C0C XDS FILE WITH WHERE USED DATA FROM
. I ZI="" S DONE=1
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
D CLEAN^DILF