****************************************************************************************************
*                                           PROGRAM OVERVIEW
****************************************************************************************************
*
* PROGRAM: runCIDA.sas  
*
* Created (mm/dd/yyyy): 01/26/2016
* Last modified: 
* Version: 5.3.1
*
*--------------------------------------------------------------------------------------------------
* PURPOSE:
*   Macro to run CIDA and Analytic Code if necessary.                                        
*   
*  Program inputs:                                                                                   
*                                     
*  Program outputs:                                                                                                                                       
*                                                                                                  
*  PARAMETERS:    
*		All the parameters are set by the run_programs program. 
*            
*  Programming Notes:                                                                                
*
*
*--------------------------------------------------------------------------------------------------
* CONTACT INFO: 
*  Mini-Sentinel Coordinating Center
*  info@mini-sentinel.org
*
*--------------------------------------------------------------------------------------------------
*  CHANGE LOG: 
*
*   Version   Date       Initials      Comment (reference external documentation when available)
*   -------   --------   --------   ---------------------------------------------------------------
*             mm/dd/yy
*
***************************************************************************************************;
/* Macro to run CIDA and Analytic Code if necessary */

%macro runCIDA ;

  %LET RUNID=%LOWCASE(&RUNID.);

  proc printto log="&MSOC.&RUNID._cida.log" new;
  run;

  %put =====> MACRO CALLED: runCIDA v5.3.1;

  %let Ver=5.3.1;  

  /*option required to ensure successful multiple runs of CIDA*/
  options nosyntaxcheck;

  *Clean work library;
  proc datasets lib=work nolist kill; quit; run;

  %ms_cidanum(RUNID=&RUNID.,
              MSPROJID=&MSPROJID.,  
              MSWPTYPE=&MSWPTYPE.,
              MSWPID=&MSWPID.,
			  MSDPID=&MSDPID.,
              MSVERID=&MSVERID.,
              PERIODIDSTART=&PERIODIDSTART.,
              PERIODIDEND=&PERIODIDEND.,
              ANALYSIS=&ANALYSIS.,
              MONITORINGFILE=&MONITORINGFILE.,
              COHORTFILE=&COHORTFILE.,
              TYPE1FILE=&TYPE1FILE.,
              TYPE2FILE=&TYPE2FILE.,
              TYPE3FILE=&TYPE3FILE.,
			  TYPE4FILE=&TYPE4FILE.,
			  TYPE5FILE=&TYPE5FILE.,
			  T3METADATA=&T3METADATA.,
              COHORTCODES=&COHORTCODES.,
              INCLUSIONCODES=&INCLUSIONCODES.,
              COVARIATECODES=&COVARIATECODES.,
			  PROFILE=&PROFILE.,
			  MFUFILE=&MFUFILE.,
              STOCKPILINGFILE=&STOCKPILINGFILE.,
              UTILFILE=&UTILFILE.,
              COMBOFILE=&COMBOFILE.,
              COMORBFILE=&COMORBFILE.,
              DRUGCLASSFILE=&DRUGCLASSFILE.,
              FREEZEDATA=&FREEZEDATA.,
              LABSCODEMAP=&LABSCODEMAP.,
			  SURVEILLANCEMODE=&SURVEILLANCEMODE.,
			  PREGDUR=&PREGDUR.,			  
			  ZIPFILE=&ZIPFILE.,
			  RUN_ENVELOPE=&RUN_ENVELOPE.
              );  

  %if (%UPCASE("&ANALYSIS.") eq "PS") %then %do ; /*PS*/

    %MS_COVARIATEADJUSTMENT(INDATA=DPLOCAL.&RUNID._ads_mstr,
                            PERIODSTART=&PERIODIDSTART.,
                         	PERIODEND=&PERIODIDEND.,
                         	COVARIATECONDITION=&COVARIATECODES. ,
                         	COVARIATES_CONSIDERED=&COVARIATES_CONSIDERED.,
                         	COVARIATES_SELECTED=&COVARIATES_SELECTED.,
                         	RANKING=&RANKING.,
                         	ZERO_CELL_CORR=&ZERO_CELL_CORR.,
                         	HDVARSEL_INPUT=&RUNID._claims_ICDDX09 &RUNID._claims_ICDDX10 &RUNID._claims_DRUGCLASS &RUNID._claims_CPT &RUNID._claims_ICDPX09 &RUNID._claims_ICDPX10 &RUNID._claims_HCPCS,                         	
                         	COMPARE_INPUT=&COMPARISON. ,
							MFM_INPUT=,
                         	TYPE2FILE=&TYPE2FILE.,
						 	ANALYTICSUBGROUPS=&ANALYTICSUBGROUPS.,
                         	INDLEVEL=&INDLEVEL.,
                            PERCENTILES=&PERCENTILES.,
                            UNCONDITIONAL=&UNCONDITIONAL.,
                            DIAGNOSTICS=&DIAGNOSTICS.
                         	) ;
  %end ;

   %if (%UPCASE("&ANALYSIS.") eq "MS") %then %do ; /*MFM*/

    %MS_COVARIATEADJUSTMENT(INDATA=DPLOCAL.&RUNID._ads_mstr,
                            PERIODSTART=&PERIODIDSTART.,
                         	PERIODEND=&PERIODIDEND.,
                         	COVARIATECONDITION=&COVARIATECODES. ,
                         	COVARIATES_CONSIDERED=,
                         	COVARIATES_SELECTED=,
                         	RANKING=,
                         	ZERO_CELL_CORR=,
                         	HDVARSEL_INPUT=,
                         	COMPARE_INPUT=,
							MFM_INPUT=&MFMFILE.,
                         	TYPE2FILE=&TYPE2FILE.,
						 	ANALYTICSUBGROUPS=&ANALYTICSUBGROUPS.,
                         	INDLEVEL=&INDLEVEL.,
                            PERCENTILES=,
                            UNCONDITIONAL=&UNCONDITIONAL.,
                            DIAGNOSTICS=
                         	) ;
  %end ;



  %put NOTE: ******** END OF MACRO: runCIDA v5.3.1 ********;

  proc printto;
  run;

%mend runCIDA ;

%runCIDA ;