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

date range fix in vitals

This commit is contained in:
george 2009-03-17 15:48:27 +00:00
parent f3a79a9e60
commit f139b944be
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
p/C0CVITAL.m
View File

@ -29,10 +29,10 @@ EXTRACT(VITXML,DFN,VITOUTXML) ; EXTRACT VITALS INTO PROVIDED XML TEMPLATE
N VITRSLT,J,K,VITPTMP,X,VITVMAP,TBUF,VORDR N VITRSLT,J,K,VITPTMP,X,VITVMAP,TBUF,VORDR
S C0CVLMT=$$GET^C0CPARMS("VITLIMIT") ; GET THE LIMIT PARM S C0CVLMT=$$GET^C0CPARMS("VITLIMIT") ; GET THE LIMIT PARM
S C0CVSTRT=$$GET^C0CPARMS("VITSTART") ; GET START PARM S C0CVSTRT=$$GET^C0CPARMS("VITSTART") ; GET START PARM
D DT^DILF(,C0CVLMT,.C0CSDT) ; ;D DT^DILF(,C0CVLMT,.C0CEDT) ;
;D DT^DILF(,C0CVSTRT,.C0CSDT) ;
W "VITALS START: ",C0CVSTRT," LIMIT: ",C0CVLMT,! W "VITALS START: ",C0CVSTRT," LIMIT: ",C0CVLMT,!
D DT^DILF(,C0CVSTRT,.C0CEDT) ; END DATE TODAY - IMPLEMENT END DATE PARM D VITALS^ORQQVI(.VITRSLT,DFN,C0CVSTRT,C0CVLMT)
D VITALS^ORQQVI(.VITRSLT,DFN,C0CSDT,C0CEDT)
I '$D(VITRSLT(1)) S @VITOUTXML@(0)=0 Q ; RETURN NOT FOUND AND QUIT I '$D(VITRSLT(1)) S @VITOUTXML@(0)=0 Q ; RETURN NOT FOUND AND QUIT
I $P(VITRSLT(1),U,2)="No vitals found." D Q ; NULL RESULT FROM RPC I $P(VITRSLT(1),U,2)="No vitals found." D Q ; NULL RESULT FROM RPC
. I DEBUG W "NO VITALS FOUND FROM VITALS RPC",! . I DEBUG W "NO VITALS FOUND FROM VITALS RPC",!