Index: ccr/trunk/p/C0CRIMA.m
===================================================================
--- ccr/trunk/p/C0CRIMA.m	(revision 412)
+++ ccr/trunk/p/C0CRIMA.m	(revision 413)
@@ -233,6 +233,7 @@
     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,5 +242,5 @@
     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
     ;
Index: ccr/trunk/p/C0CVITAL.m
===================================================================
--- ccr/trunk/p/C0CVITAL.m	(revision 412)
+++ ccr/trunk/p/C0CVITAL.m	(revision 413)
@@ -30,8 +30,8 @@
  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