Changeset 621 for ccr


Ignore:
Timestamp:
Dec 1, 2009, 6:32:08 PM (15 years ago)
Author:
George Lilly
Message:

ccd parsing support

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/C0CMXML.m

    r618 r621  
    333333 . . S C0CTAGS(ZI)=ALTTAG
    334334 . E  D  ; NOT A SECTION NODE
    335  . . N ZJ
    336  . . S ZJ=$O(^C0CXDS(178.101,"D",ZIEN,ZPAR,"")) ;IS THERE A WHEREUSED POINTER?
     335 . . N ZJ S ZJ=""
     336 . . S ZJ=$O(^C0CXDS(178.101,"D",PARIEN,ZIEN,"")) ;A WHEREUSED POINTER?
    337337 . . I ZJ'="" D  ; THERE IS A NEW LABEL FOR THIS NODE
    338  . . . ;S C0CTAGS(ZI)=$$GET1^DIQ(178.101
     338 . . . N ZK
     339 . . . S ZK=$$GET1^DIQ(178.111,ZJ_","_ZIEN_",",2)
     340 . . . I ZK'="" D  ;
     341 . . . . W "FOUND ",ZK,!
     342 . . . . S C0CTAGS(ZI)=ZK ; NEW TAG FOR INTERSECTION
    339343 Q
    340344 ;
     
    346350SETCBK ; SET THE TAG CALLBACK FOR XPATH PROCESSSING OF THE CCD
    347351 S C0CCBK("TAG")="D ALTTAG(ZOID)"
     352 Q
     353 ;
     354OUTCCD ; OUTPUT THE PARSED CCD TO A TEXT FILE
     355 D TEST3
     356 N ZT S ZT=$NA(^TMP("CCDOUT",$J))
     357 N ZI,ZJ
     358 S ZI=1 S ZJ=""
     359 K @ZT
     360 F  S ZJ=$O(GARY(ZJ)) Q:ZJ=""  D  ;
     361 . S @ZT@(ZI)=ZJ_"^"_GARY(ZJ)
     362 . S ZI=ZI+1
     363 S ONAME=$NA(@ZT@(1))
     364 W $$OUTPUT^C0CXPATH(ONAME,"CCDOUT.txt","/home/vademo2/CCR")
     365 K @ZT
    348366 Q
    349367 ;
Note: See TracChangeset for help on using the changeset viewer.