Changeset 123

Timestamp:

Aug 30, 2008, 3:49:44 PM (16 years ago)

Author:

George Lilly

Message:

CCD processing checks for missing sections

File:

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

ccr/trunk/p/GPLCCD.m

@@ -107 +107 @@
     . W "RUNNING ",CALL,!
     . X CALL
-    . I CCD D QUERY^GPLXPATH(TGLOBAL,XPATH,"ITMP") ; XML TO UNSHAVE WITH
-    . I CCD D UNSHAVE("ITMP",OXML)
-    . I CCD D UNMARK^GPLXPATH(OXML) ; REMOVE THE CCR MARKUP FROM SECTION
+    . I @OXML@(0)'=0 D  ; THERE IS A RESULT
+    . . I CCD D QUERY^GPLXPATH(TGLOBAL,XPATH,"ITMP") ; XML TO UNSHAVE WITH
+    . . I CCD D UNSHAVE("ITMP",OXML)
+    . . I CCD D UNMARK^GPLXPATH(OXML) ; REMOVE THE CCR MARKUP FROM SECTION
     . ; NOW INSERT THE RESULTS IN THE CCR BUFFER
     . D INSERT^GPLXPATH(CCDGLO,OXML,"//ContinuityOfCareRecord/Body")