iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

This commit is contained in:
george 2009-09-15 17:48:00 +00:00
parent 6a3c31c484
commit 46245133b4
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
p/C0CCCR.m
View File

@ -120,7 +120,7 @@ CCRRPC(CCRGRTN,DFN,CCRPARMS,CCRPART) ;RPC ENTRY POINT FOR CCR OUTPUT
. W "RUNNING ",CALL,! . W "RUNNING ",CALL,!
. X CALL . X CALL
. ; NOW INSERT THE RESULTS IN THE CCR BUFFER . ; 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") . . D INSERT^C0CXPATH(CCRGLO,OXML,"//ContinuityOfCareRecord/Body")
. . I DEBUG F C0CI=1:1:@OXML@(0) W @OXML@(C0CI),! . . I DEBUG F C0CI=1:1:@OXML@(0) W @OXML@(C0CI),!
N ACTT,ATMP,ACTT2,ATMP2 ; TEMPORARY ARRAY SYMBOLS FOR ACTOR PROCESSING N ACTT,ATMP,ACTT2,ATMP2 ; TEMPORARY ARRAY SYMBOLS FOR ACTOR PROCESSING

2
p/C0CVITAL.m
View File

@ -203,7 +203,7 @@ VITRPMS ; EXTRACT VITALS FROM RPMS INTO PROVIDED XML TEMPLATE
; vfile ien^vital name^vital abbr^date/time taken(FM FORMAT)^value+units (US & metric) ; vfile ien^vital name^vital abbr^date/time taken(FM FORMAT)^value+units (US & metric)
D QUERY^BEHOVM("LISTX") ; RUN QUERY VITALS CALL D QUERY^BEHOVM("LISTX") ; RUN QUERY VITALS CALL
I '$D(^TMP("CIAVMRPC",$J)) S @VITOUTXML@(0)=0 Q ; RETURN NOT FOUND AND QUIT 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 VITTVMAP=$NA(^TMP("C0CCCR",$J,"VITALS"))
S VITTARYTMP=$NA(^TMP("C0CCCR",$J,"VITALARYTMP")) S VITTARYTMP=$NA(^TMP("C0CCCR",$J,"VITALARYTMP"))
K @VITTVMAP,@VITTARYTMP ; KILL OLD ARRAY VALUES K @VITTVMAP,@VITTARYTMP ; KILL OLD ARRAY VALUES