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

update for web servicesq

This commit is contained in:
george 2009-07-11 03:43:02 +00:00
parent 71818372c3
commit 8ad5d55041
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
p/C0CXPATH.m
View File

@ -238,6 +238,11 @@ INDEX(IZXML,VDX,NOINX) ; parse the XML in IZXML and produce an XPATH index
. . . D MKMDX("C0CSTK",.MDX) ; GENERATE THE M INDEX . . . D MKMDX("C0CSTK",.MDX) ; GENERATE THE M INDEX
. . . ; W "MDX=",MDX,! . . . ; W "MDX=",MDX,!
. . . I $D(@ZXML@(MDX)) D ; IN THE INDEX, IS A MULTIPLE . . . I $D(@ZXML@(MDX)) D ; IN THE INDEX, IS A MULTIPLE
. . . . ;I '$D(ZDUP(MDX)) S ZDUP(MDX)=2
. . . . ;E S ZDUP(MDX)=ZDUP(MDX)+1
. . . . ;W "DUP:",MDX,!
. . . . ;I '$D(CURVAL) S CURVAL=""
. . . . ;I DVDX S @VDX@(MDX_"["_ZDUP(MDX)_"]")=CURVAL
. . . . S $P(@ZXML@(MDX),"^",2)=I ; UPDATE LAST LINE NUMBER . . . . S $P(@ZXML@(MDX),"^",2)=I ; UPDATE LAST LINE NUMBER
. . . I '$D(@ZXML@(MDX)) D ; NOT IN THE INDEX, NOT A MULTIPLE . . . I '$D(@ZXML@(MDX)) D ; NOT IN THE INDEX, NOT A MULTIPLE
. . . . S @ZXML@(MDX)=I_"^"_I ; ADD INDEX ENTRY-FIRST AND LAST . . . . S @ZXML@(MDX)=I_"^"_I ; ADD INDEX ENTRY-FIRST AND LAST