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

Timestamp:

Nov 11, 2009, 1:04:41 AM (14 years ago)

Author:

George Lilly

Message:

support for incoming CCDs

File:

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

ccr/trunk/p/C0CXPATH.m

@@ -386 +386 @@
  . N J,ATMP
  . S ATMP=$$ARRAY(@BLIST@(I))
- . I DEBUG W "ATMP=",ATMP,!
- . I DEBUG W @BLIST@(I),!
+ . I $G(DEBUG) W "ATMP=",ATMP,!
+ . I $G(DEBUG) W @BLIST@(I),!
  . F J=$$START(@BLIST@(I)):1:$$FINISH(@BLIST@(I)) D  ;
  . . ; FOR EACH LINE IN THIS INSTR
- . . I DEBUG W "BDEST= ",BDEST,!
- . . I DEBUG W "ATMP= ",@ATMP@(J),!
+ . . I $G(DEBUG) W "BDEST= ",BDEST,!
+ . . I $G(DEBUG) W "ATMP= ",@ATMP@(J),!
  . . D PUSH(BDEST,@ATMP@(J))
  Q
@@ -404 +404 @@
  ; KILLS CPDEST FIRST
  N CPINSTR
- I DEBUG W "MADE IT TO COPY",CPSRC,CPDEST,!
+ I $G(DEBUG) W "MADE IT TO COPY",CPSRC,CPDEST,!
  I @CPSRC@(0)<1 D  ; BAD LENGTH
  . W "ERROR IN COPY BAD SOURCE LENGTH: ",CPSRC,!
@@ -420 +420 @@
  . W "MALFORMED XML PASSED TO QOPEN: ",QOXML,!
  . Q
- I DEBUG W "DOING QOPEN",!
+ I $G(DEBUG) W "DOING QOPEN",!
  N S1,E1,QOT,QOTMP
  S S1=1 ; OPEN FROM THE BEGINNING OF THE XML
@@ -440 +440 @@
  I @QCXML@(0)<1 D  ; MALFORMED XML
  . W "MALFORMED XML PASSED TO QCLOSE: ",QCXML,!
- I DEBUG W "GOING TO CLOSE",!
+ I $G(DEBUG) W "GOING TO CLOSE",!
  N S1,E1,QCT,QCTMP
  S E1=@QCXML@(0) ; CLOSE UNTIL THE END OF THE XML
@@ -459 +459 @@
  ; INSXML AND INSNEW ARE PASSED BY NAME INSXPATH IS A VALUE
  N INSBLD,INSTMP
- I DEBUG W "DOING INSERT ",INSXML,INSNEW,INSXPATH,!
- I DEBUG F G1=1:1:@INSXML@(0) W @INSXML@(G1),!
+ I $G(DEBUG) W "DOING INSERT ",INSXML,INSNEW,INSXPATH,!
+ I $G(DEBUG) F G1=1:1:@INSXML@(0) W @INSXML@(G1),!
  I '$D(@INSXML@(0)) D  ; INSERT INTO AN EMPTY ARRAY
  . D CP^C0CXPATH(INSNEW,INSXML) ; JUST COPY INTO THE OUTPUT
@@ -466 +466 @@
  . I $D(INSXPATH) D  ; XPATH PROVIDED
  . . D QOPEN("INSBLD",INSXML,INSXPATH) ; COPY THE BEFORE
- . . I DEBUG D PARY^C0CXPATH("INSBLD")
+ . . I $G(DEBUG) D PARY^C0CXPATH("INSBLD")
  . I '$D(INSXPATH) D  ; NO XPATH PROVIDED, OPEN AT ROOT
  . . D QOPEN("INSBLD",INSXML,"//") ; OPEN WITH ROOT XPATH
@@ -506 +506 @@
  D BUILD("XBLD","XTMP") ; BUILD THE RESULT
  D CP("XTMP",XDEST) ; COPY TO THE DESTINATION
- I DEBUG D PARY("XDEST")
+ I $G(DEBUG) D PARY("XDEST")
  Q
  ;
@@ -526 +526 @@
  . D QUEUE("REBLD",RENEW,1,@RENEW@(0)) ; THE NEW
  . D QUEUE("REBLD",REXML,XLAST+1,@REXML@(0)) ; THE REST
- I DEBUG W "REPLACE PREBUILD",!
- I DEBUG D PARY("REBLD")
+ I $G(DEBUG) W "REPLACE PREBUILD",!
+ I $G(DEBUG) D PARY("REBLD")
  D BUILD("REBLD","RTMP")
  K @REXML ; KILL WHAT WAS THERE