Changeset 621 for ccr/trunk/p

Timestamp:

Dec 1, 2009, 6:32:08 PM (15 years ago)

Author:

George Lilly

Message:

ccd parsing support

File:

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

ccr/trunk/p/C0CMXML.m

@@ -333 +333 @@
  . . S C0CTAGS(ZI)=ALTTAG
  . E  D  ; NOT A SECTION NODE
- . . N ZJ
- . . S ZJ=$O(^C0CXDS(178.101,"D",ZIEN,ZPAR,"")) ;IS THERE A WHEREUSED POINTER?
+ . . N ZJ S ZJ=""
+ . . S ZJ=$O(^C0CXDS(178.101,"D",PARIEN,ZIEN,"")) ;A WHEREUSED POINTER?
  . . I ZJ'="" D  ; THERE IS A NEW LABEL FOR THIS NODE
- . . . ;S C0CTAGS(ZI)=$$GET1^DIQ(178.101
+ . . . N ZK
+ . . . S ZK=$$GET1^DIQ(178.111,ZJ_","_ZIEN_",",2)
+ . . . I ZK'="" D  ;
+ . . . . W "FOUND ",ZK,!
+ . . . . S C0CTAGS(ZI)=ZK ; NEW TAG FOR INTERSECTION
  Q
  ;
@@ -346 +350 @@
 SETCBK ; SET THE TAG CALLBACK FOR XPATH PROCESSSING OF THE CCD
  S C0CCBK("TAG")="D ALTTAG(ZOID)"
+ Q
+ ;
+OUTCCD ; OUTPUT THE PARSED CCD TO A TEXT FILE
+ D TEST3
+ N ZT S ZT=$NA(^TMP("CCDOUT",$J))
+ N ZI,ZJ
+ S ZI=1 S ZJ=""
+ K @ZT
+ F  S ZJ=$O(GARY(ZJ)) Q:ZJ=""  D  ;
+ . S @ZT@(ZI)=ZJ_"^"_GARY(ZJ)
+ . S ZI=ZI+1
+ S ONAME=$NA(@ZT@(1))
+ W $$OUTPUT^C0CXPATH(ONAME,"CCDOUT.txt","/home/vademo2/CCR")
+ K @ZT
  Q
  ;