Changeset 383 for ccr/trunk/p/GPLVITAL.m

Timestamp:

Feb 26, 2009, 5:32:34 PM (15 years ago)

Author:

George Lilly

Message:

Vitals date limits and restored Labs date limits

File:

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

ccr/trunk/p/GPLVITAL.m

@@ -27 +27 @@
  ;
  N VITRSLT,J,K,VITPTMP,X,VITVMAP,TBUF,VORDR
- D VITALS^ORQQVI(.VITRSLT,DFN,"","")
+ S C0CVLMT=$$GET^C0CPARMS("VITLIMIT") ; GET THE LIMIT PARM
+ S C0CVSTRT=$$GET^C0CPARMS("VITSTART") ; GET START PARM
+ D DT^DILF(,C0CVLMT,.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)
  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