Changeset 561 for ccr/trunk/p/C0CXPATH.m

Timestamp:

Sep 15, 2009, 1:11:39 PM (15 years ago)

Author:

George Lilly

Message:

upgrades to actor extract and xpath processing for eRx

File:

• ccr/trunk/p/C0CXPATH.m (modified) (2 diffs)

ccr/trunk/p/C0CXPATH.m

@@ -226 +226 @@
  I $D(VDX) S DVDX=1 ; IF NAME PASSED, DO VDX
  S C0CSTK(0)=0 ; INITIALIZE STACK
+ K LKASD ; KILL LOOKASIDE ARRAY
  D MKLASD(.LKASD,IZXML) ;MAKE LOOK ASIDE BUFFER FOR MULTIPLES
  F I=1:1:LCNT  D  ; PROCESS THE ENTIRE ARRAY
@@ -309 +310 @@
  F  S ZI=$O(OUTBUF(ZI)) Q:ZI=""  D  ; FOR EACH KIND OF MULTIPLE
  . S ZN=$O(OUTBUF(ZI,"")) ; LINE NUMBER OF SECOND MULTIPLE
- . F  S ZN=$O(@IZXML@(ZN),-1) Q:ZN=""  I $P(@IZXML@(ZN),"<"_ZI,2)=">" Q  ;
+ . F  S ZN=$O(@IZXML@(ZN),-1) Q:ZN=""  I $E($P(@IZXML@(ZN),"<"_ZI,2),1,1)=">" Q  ;
  . S OUTBUF(ZI,ZN)=""
  S ZA=1,ZI="",ZN=""