Changeset 22 for ccr/trunk/p/GPLCCR.m

Timestamp:

Jun 26, 2008, 1:51:24 PM (16 years ago)

Author:

George Lilly

Message:

Minor code cleanup -- some test case bugs fixed

File:

• ccr/trunk/p/GPLCCR.m (modified) (1 diff)

ccr/trunk/p/GPLCCR.m

@@ -48 +48 @@
         . X CALL
         . ; NOW INSERT THE RESULTS IN THE CCR BUFFER
-        . ; D INSERT^GPLXPATH(CCRGLO,OXML,"//ContinuityOfCareRecord/Body")
+        . D INSERT^GPLXPATH(CCRGLO,OXML,"//ContinuityOfCareRecord/Body")
         . I DEBUG F GPLI=1:1:@OXML@(0) W @OXML@(GPLI),!
-        . D QOPEN^GPLXPATH("CCRBLD",CCRGLO,"//ContinuityOfCareRecord/Body")
-        . D QUEUE^GPLXPATH("CCRBLD",OXML,1,@OXML@(0))
-        . D QCLOSE^GPLXPATH("CCRBLD",CCRGLO,"//ContinuityOfCareRecord/Body")
-        . I DEBUG W "GOING TO BUILD CCR",!
-        . N CCRTMP
-        . D BUILD^GPLXPATH("CCRBLD","CCRTMP")
-        . I DEBUG F GPLI=1:1:CCRTMP(0) W CCRTMP(GPLI),!
-        . D CP^GPLXPATH("CCRTMP",CCRGLO)
+        . ; D QOPEN^GPLXPATH("CCRBLD",CCRGLO,"//ContinuityOfCareRecord/Body")
+        . ; D QUEUE^GPLXPATH("CCRBLD",OXML,1,@OXML@(0))
+        . ; D QCLOSE^GPLXPATH("CCRBLD",CCRGLO,"//ContinuityOfCareRecord/Body")
+        . ; I DEBUG W "GOING TO BUILD CCR",!
+        . ; N CCRTMP
+        . ; D BUILD^GPLXPATH("CCRBLD","CCRTMP")
+        . ; I DEBUG F GPLI=1:1:CCRTMP(0) W CCRTMP(GPLI),!
+        . ; D CP^GPLXPATH("CCRTMP",CCRGLO)
         Q
         ;