Changeset 413 for ccr/trunk/p/C0CRIMA.m

Timestamp:

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

Author:

George Lilly

Message:

fixes to Vitals date ranges

File:

• ccr/trunk/p/C0CRIMA.m (modified) (2 diffs)

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
     ;