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


Ignore:
Timestamp:
Aug 5, 2008, 11:42:46 PM (16 years ago)
Author:
George Lilly
Message:

handle the case where meds are null

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/GPLCCR.m

    r79 r84  
    8686    . X CALL
    8787    . ; NOW INSERT THE RESULTS IN THE CCR BUFFER
    88     . D INSERT^GPLXPATH(CCRGLO,OXML,"//ContinuityOfCareRecord/Body")
    89     . I DEBUG F GPLI=1:1:@OXML@(0) W @OXML@(GPLI),!
     88    . I @OXML@(0)'=0 D  ; THERE IS A RESULT
     89    . . D INSERT^GPLXPATH(CCRGLO,OXML,"//ContinuityOfCareRecord/Body")
     90    . . I DEBUG F GPLI=1:1:@OXML@(0) W @OXML@(GPLI),!
    9091    D ACTLST^GPLCCR(CCRGLO,ACTGLO) ; GEN THE ACTOR LIST
    9192    D QUERY^GPLXPATH(TGLOBAL,"//ContinuityOfCareRecord/Actors","ACTT")
Note: See TracChangeset for help on using the changeset viewer.