Changeset 123 for ccr


Ignore:
Timestamp:
Aug 30, 2008, 3:49:44 PM (16 years ago)
Author:
George Lilly
Message:

CCD processing checks for missing sections

File:
1 edited

Legend:

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

    r122 r123  
    107107    . W "RUNNING ",CALL,!
    108108    . X CALL
    109     . I CCD D QUERY^GPLXPATH(TGLOBAL,XPATH,"ITMP") ; XML TO UNSHAVE WITH
    110     . I CCD D UNSHAVE("ITMP",OXML)
    111     . I CCD D UNMARK^GPLXPATH(OXML) ; REMOVE THE CCR MARKUP FROM SECTION
     109    . I @OXML@(0)'=0 D  ; THERE IS A RESULT
     110    . . I CCD D QUERY^GPLXPATH(TGLOBAL,XPATH,"ITMP") ; XML TO UNSHAVE WITH
     111    . . I CCD D UNSHAVE("ITMP",OXML)
     112    . . I CCD D UNMARK^GPLXPATH(OXML) ; REMOVE THE CCR MARKUP FROM SECTION
    112113    . ; NOW INSERT THE RESULTS IN THE CCR BUFFER
    113114    . D INSERT^GPLXPATH(CCDGLO,OXML,"//ContinuityOfCareRecord/Body")
Note: See TracChangeset for help on using the changeset viewer.