Changeset 348 for ccr

Timestamp:

Jan 30, 2009, 1:33:38 PM (15 years ago)

Author:

George Lilly

Message:

updates for parms

Location:

ccr/trunk/p

Files:

• GPLCCR.m (modified) (1 diff)
• GPLRIMA.m (modified) (2 diffs)

ccr/trunk/p/GPLCCR.m

@@ -73 +73 @@
  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

ccr/trunk/p/GPLRIMA.m

@@ -36 +36 @@
  ;
  ;
-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 +53 @@
     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,!
     . ;