Changeset 405

Timestamp:

Mar 17, 2009, 11:48:27 AM (15 years ago)

Author:

George Lilly

Message:

date range fix in vitals

File:

• ccr/trunk/p/C0CVITAL.m (modified) (1 diff)

ccr/trunk/p/C0CVITAL.m

@@ -30 +30 @@
  S C0CVLMT=$$GET^C0CPARMS("VITLIMIT") ; GET THE LIMIT 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,!
- D DT^DILF(,C0CVSTRT,.C0CEDT) ; END DATE TODAY - IMPLEMENT END DATE PARM
- D VITALS^ORQQVI(.VITRSLT,DFN,C0CSDT,C0CEDT)
+ D VITALS^ORQQVI(.VITRSLT,DFN,C0CVSTRT,C0CVLMT)
  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