Changeset 413 for ccr

Timestamp:

Mar 18, 2009, 6:04:50 PM (16 years ago)

Author:

George Lilly

Message:

fixes to Vitals date ranges

Location:

ccr/trunk/p

Files:

• C0CRIMA.m (modified) (2 diffs)
• C0CVITAL.m (modified) (1 diff)

ccr/trunk/p/C0CRIMA.m

@@ -233 +233 @@
     Q ZCOUNT
     ;
-XCPAT(CPATCAT) ; EXPORT TO FILE ALL PATIENTS IN CATEGORY CPATCAT
-    ;
+XCPAT(CPATCAT,CPATPARM) ; EXPORT TO FILE ALL PATIENTS IN CATEGORY CPATCAT
+    ;
+    I '$D(CPATPARM) S CPATPARM=""
     I '$D(RIMBASE) D ASETUP ; FOR COMMAND LINE CALLS
     N ZI,ZJ,ZC,ZPATBASE
@@ -241 +242 @@
     F ZJ=0:0 D  Q:$O(@ZPATBASE@(ZI))=""  ; TIL END
     . S ZI=$O(@ZPATBASE@(ZI))
-    . D XPAT^C0CCCR(ZI,"","") ; EXPORT THE PATIENT TO A FILE
+    . D XPAT^C0CCCR(ZI,CPATPARM) ; EXPORT THE PATIENT TO A FILE
     Q
     ;

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,.C0CEDT) ;
- ;D DT^DILF(,C0CVSTRT,.C0CSDT) ; 
+ D DT^DILF(,C0CVLMT,.C0CEDT) ;
+ D DT^DILF(,C0CVSTRT,.C0CSDT) ; 
  W "VITALS START: ",C0CVSTRT," LIMIT: ",C0CVLMT,!
- 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 $P(VITRSLT(1),U,2)="No vitals found." D  Q  ; NULL RESULT FROM RPC