Changeset 562


Ignore:
Timestamp:
Sep 15, 2009, 1:48:00 PM (15 years ago)
Author:
George Lilly
Message:

small bug fix in Vitals and better null result checking in C0CCCR

Location:
ccr/trunk/p
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/C0CCCR.m

    r556 r562  
    121121 . X CALL
    122122 . ; NOW INSERT THE RESULTS IN THE CCR BUFFER
    123  . I @OXML@(0)'=0 D  ; THERE IS A RESULT
     123 . I $G(@OXML@(0))>0 D  ; THERE IS A RESULT
    124124 . . D INSERT^C0CXPATH(CCRGLO,OXML,"//ContinuityOfCareRecord/Body")
    125125 . . I DEBUG F C0CI=1:1:@OXML@(0) W @OXML@(C0CI),!

  • ccr/trunk/p/C0CVITAL.m

    r560 r562  
    204204 D QUERY^BEHOVM("LISTX") ; RUN QUERY VITALS CALL
    205205 I '$D(^TMP("CIAVMRPC",$J)) S @VITOUTXML@(0)=0 Q  ; RETURN NOT FOUND AND QUIT
    206  ZW ^TMP("CIAVMRPC",$J)
     206 ;ZW ^TMP("CIAVMRPC",$J)
    207207 S VITTVMAP=$NA(^TMP("C0CCCR",$J,"VITALS"))
    208208 S VITTARYTMP=$NA(^TMP("C0CCCR",$J,"VITALARYTMP"))
Note: See TracChangeset for help on using the changeset viewer.