Changeset 646 for ccr/trunk/p/C0CIN.m

Timestamp:

Dec 8, 2009, 5:29:27 PM (14 years ago)

Author:

George Lilly

Message:

improved xpath handling

File:

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

ccr/trunk/p/C0CIN.m

@@ -111 +111 @@
  S ZI=""
  F  S ZI=$O(C0CXP(ZI)) Q:ZI=""  D  ; FOR EACH XPATH
- . D DEMUX("ZJ",ZI) ;
+ . D DEMUX^C0CMXP("ZJ",ZI) ;
  . W ZJ,!
  . S ZK=$P(ZJ,"^",3) ; PULL OUT THE XPATH
@@ -131 +131 @@
  D CCRRPC^C0CCCR(.ZT,C0CDFN,"LABLIMIT:T-1000")
  M @AOUT=ZT
- Q
- ;
-DEMUX(OUTX,INX) ;PARSES XPATH PASSED BY VALUE IN INX TO REMOVE [x] MULTIPLES
- ; RETURNS OUTX: MULTIPLE^SUBMULTIPLE^XPATH 
- N ZX,ZY,ZZ,ZZ1,ZMULT,ZSUB
- S (ZMULT,ZSUB)=""
- S ZX=$P(INX,"[",2)
- I ZX'="" D  ; THERE IS A [x] MULTIPLE
- . S ZY=$P(INX,"[",1) ;FIRST PART OF XPATH
- . S ZMULT=$P(ZX,"]",1) ; NUMBER OF THE MULTIPLE
- . S ZX=ZY_$P(ZX,"]",2) ; REST OF THE XPATH
- . I $P(ZX,"[",2)'="" D  ; A SUB MULTIPLE EXISTS
- . . S ZZ=$P(ZX,"[",1) ; FIRST PART OF XPATH
- . . S ZX=$P(ZX,"[",2) ; DELETE THE [
- . . S ZSUB=$P(ZX,"]",1) ; NUMBER OF THE SUBMULTIPLE
- . . S ZX=ZZ_$P(ZX,"]",2) ; REST OF THE XPATH
- E  S ZX=INX ;NO MULTIPLE HERE
- S @OUTX=ZMULT_"^"_ZSUB_"^"_ZX ;RETURN MULTIPLE^SUBMULTIPLE^XPATH
  Q
  ;