Changeset 562 for ccr

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:

• C0CCCR.m (modified) (1 diff)
• C0CVITAL.m (modified) (1 diff)

ccr/trunk/p/C0CCCR.m

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

ccr/trunk/p/C0CVITAL.m

@@ -204 +204 @@
  D QUERY^BEHOVM("LISTX") ; RUN QUERY VITALS CALL
  I '$D(^TMP("CIAVMRPC",$J)) S @VITOUTXML@(0)=0 Q  ; RETURN NOT FOUND AND QUIT
- ZW ^TMP("CIAVMRPC",$J)
+ ;ZW ^TMP("CIAVMRPC",$J)
  S VITTVMAP=$NA(^TMP("C0CCCR",$J,"VITALS"))
  S VITTARYTMP=$NA(^TMP("C0CCCR",$J,"VITALARYTMP"))