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

compiler for xml templates

This commit is contained in:
george 2009-12-16 00:14:02 +00:00
parent e4d0f46c7c
commit d897c32cfa
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
p/C0CMXP.m
View File

@ -116,7 +116,7 @@ MKTPLATE(OUTT,OUTIDX,INXML,REDUX) ;MAKE A TEMPLATE FROM INXML, RETURNED IN OUTT
. K ZD ;FOR DATA . K ZD ;FOR DATA
. D DATA^C0CMXML("ZD",ZI) ;SEE IF THERE IS DATA FOR THIS NODE . D DATA^C0CMXML("ZD",ZI) ;SEE IF THERE IS DATA FOR THIS NODE
. I $D(ZD(1)) D ; IF YES . I $D(ZD(1)) D ; IF YES
. . I ZI<3 B ;W !,ZD(1) . . ;I ZI<3 B ;W !,ZD(1)
. . K @C0CDOM@(ZI,"T") ; KILL THE DATA . . K @C0CDOM@(ZI,"T") ; KILL THE DATA
. . N ZXPATH . . N ZXPATH
. . S ZXPATH=$G(GIDX2(ZI)) ;FIND AN XPATH FOR THIS NODE . . S ZXPATH=$G(GIDX2(ZI)) ;FIND AN XPATH FOR THIS NODE