qrp_report

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

*                                           PROGRAM OVERVIEW

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

*

* PROGRAM: attrition_createdata.sas  

* Created (mm/dd/yyyy): 05/13/2021

*

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

* PURPOSE: This macro transforms and manipulates attrition table data to be output

*                                        

*  Program inputs:                                                                                   

*   - agg_attrition

*   - agg_mil_attrition

*   - agg_adjusted_attrition

* 

*  Program outputs: 

*   - agg_patient_attrition

*   - agg_episode_attrition

* 

* 

*  PARAMETERS:                                                                       

*            

*  Programming Notes:         

*                                                                           

*

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

* CONTACT INFO: 

*  Sentinel Coordinating Center

*  info@sentinelsystem.org

*

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

​

%macro attrition_createdata;

/* Link all required groups from inputfiles */

​

    %isdata(dataset=master_t2addon)

    %let t2addonnobs = &nobs;

    %isdata(dataset=master_mil);

    %let milnobs=&nobs;

    %isdata(dataset=master_inclusioncodes);

    %let inclnobs = &nobs;

​

    proc sql noprint;

    create table attrition_groups as 

    select distinct a.runid, a.group 

    %if &t2addonnobs > 0 %then %do; , b.primary, b.secondary %end; 

    %if &milnobs > 0 %then %do; ,b.groupname %end;

    from inputfiles a

    %if &t2addonnobs > 0 %then %do;

    left join master_t2addon b

    on a.group = b.group and a.runid = b.runid

    %end;

    %if &milnobs > 0 %then %do;

    left join master_mil b 

    on a.group = b.group and a.runid = b.runid

    %end;

    ;

    quit;

​

    /* Link EOI/REF groups back to analysisgrps */

    %if %index(&reporttype,T2L2) %then %do;

    proc sql noprint;

        create table _whatgroups as