Index: ccr/trunk/p/GPLCCR.m
===================================================================
--- ccr/trunk/p/GPLCCR.m	(revision 347)
+++ ccr/trunk/p/GPLCCR.m	(revision 348)
@@ -73,5 +73,5 @@
  I '$D(DEBUG) S DEBUG=0
  S CCD=0 ; NEED THIS FLAG TO DISTINGUISH FROM CCD
- D SET^C0CPARMS(XPARMS) ;SET PARAMETERS WITH XPARMS AS OVERRIDES
+ D SET^C0CPARMS(CCRPARMS) ;SET PARAMETERS WITH CCRPARMS AS OVERRIDES
  I '$D(TESTLAB) S TESTLAB=0 ; FLAG FOR TESTING RESULTS SECTION
  I '$D(TESTALERT) S TESTALERT=1 ; FLAG FOR TESTING ALERTS SECTION
Index: ccr/trunk/p/GPLRIMA.m
===================================================================
--- ccr/trunk/p/GPLRIMA.m	(revision 347)
+++ ccr/trunk/p/GPLRIMA.m	(revision 348)
@@ -36,8 +36,10 @@
  ;
  ;
-ANALYZE(BEGDFN,DFNCNT) ; RIM COHERANCE ANALYSIS ROUTINE
+ANALYZE(BEGDFN,DFNCNT,APARMS) ; RIM COHERANCE ANALYSIS ROUTINE
     ; BEGINS AT BEGDFN AND GOES FOR DFNCNT PATIENTS
     ; TO RESUME AT NEXT PATIENT, USE BEGDFN=""
     ; USE RESET^GPLRIMA TO RESET TO TOP OF PATIENT LIST
+    ; APARMS ARE PARAMETERS TO BE USED IN THE EXTRACTION
+    ; SEE C0CPARMS FOR SUPPORTED PARAMTERS
     ;
     N RIMARY,RIMTMP,RIMI,RIMDFN,RATTR
@@ -51,7 +53,8 @@
     I +RIMDFN=0 D  Q  ; AT THE END OF THE PATIENTS
     . W "END OF PATIENT LIST, CALL RESET^GPLRIMA",!
+    I '$D(APARMS) S APARMS="" ; DEFAULT NO OVERRIDE PARMS
     F RIMI=1:1:DFNCNT  D  Q:+RIMDFN=0  ; FOR DFNCNT NUMBER OF PATIENTS OR END
     . K @RIMBASE@("VARS",RIMDFN) ; CLEAR OUT OLD VARS
-    . D CCRRPC^GPLCCR(.CCRGLO,RIMDFN,"CCR","","","") ;PROCESS THE CCR
+    . D CCRRPC^GPLCCR(.CCRGLO,RIMDFN,APARMS,"CCR") ;PROCESS THE CCR
     . W RIMDFN,!
     . ;