Changeset 531 for ccr/trunk/p

Timestamp:

Jul 10, 2009, 11:43:02 PM (15 years ago)

Author:

George Lilly

Message:

update for web servicesq

File:

• ccr/trunk/p/C0CXPATH.m (modified) (1 diff)

ccr/trunk/p/C0CXPATH.m

@@ -239 +239 @@
  . . . ; W "MDX=",MDX,!
  . . . 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
  . . . I '$D(@ZXML@(MDX))  D  ; NOT IN THE INDEX, NOT A MULTIPLE