qrp_report

****************************************************************************************************

*                                           PROGRAM OVERVIEW

****************************************************************************************************

*

* PROGRAM: baseline_driver.sas  

* Created (mm/dd/yyyy): 11/30/2020

*

*--------------------------------------------------------------------------------------------------

* PURPOSE: This macro drives the creation of L1 and L2 baseline tables (Table 1s)

*                                        

*  Program inputs:                                                                                   

*

* 

*  Program outputs:                                                                                                                                       

* 

*  PARAMETERS:                                                                       

*            

*  Programming Notes:                                                                                

*                                                                           

*

*--------------------------------------------------------------------------------------------------

* CONTACT INFO: 

*  Sentinel Coordinating Center

*  info@sentinelsystem.org

*

***************************************************************************************************;

​

%macro baseline_driver();

​

    %put =====> MACRO CALLED: baseline_driver;

​

    %isdata(dataset=input.&baselinefile.);

    %if %eval(&nobs.>0) %then %do;

​

    /* Type 6 baseline tables contain 1 row per switch and these switches need to be included in all 'by' processing*/

    %if %str("&reporttype") = %str("T6") %then %do;

      %let Switch_s = switchstep;

    %end;

    %else %do;

      %let Switch_s = ;

    %end;

​

    ***********************************************************************************************;

    * Create modified baseline dataset with COHORT and MERGEVAR vars to feed into %baseline_aggregate                                

    ***********************************************************************************************;

​

    %macro assign_cohort_mergevar(cohort=, mergevar=, outdata=, crosscheckfile = , crosscheckvar = ,includenonpregnant=N);

        data &outdata.;

            set 

            %if ^%index(&reporttype,T4L1) %then %do;

            input.&baselinefile.

            %end;

            %else %do;

            baseline_preg_labels 

            %end;

            ;

            format cohort mergevar $15. analysisgrp $40. unique_psestimate 3.;

            group=lowcase(group);

            analysisgrp = group;

            runid=lowcase(runid);

            cohort = "&cohort";

            mergevar = "&mergevar";