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

* 

*  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;

​

    %let milgrps=;

    %let milgrplabels=;

    %if &milnobs > 0 %then %do;

    /* Create EOI/REF rows based off MIL group */

    data attrition_groups;

        set attrition_groups;

        if missing(groupname) then output;

        if not missing(groupname) then do;

        group=catx('_',group,'ref');

        output;

        if substrn(group,max(1,length(group)-3),4) = '_ref' then group=tranwrd(group,'_ref','_eoi');

        output;

        end;

    run;

​

    /* Rejoin to attrition groups table to only keep relevant MIL groups */

    proc sql noprint undo_policy=none;

        select quote(strip(group)) 

        into :milgrps 

        separated by " "

        from attrition_groups

        where substrn(group,max(1,length(group)-3),4) in ('_eoi','_ref');

​

        select distinct quote(substr(group,1,findc(group, '_',-length(group))-1))

        into :milgrplabels

        separated by " "

        from attrition_groups 

        where substrn(group,max(1,length(group)-3),4) in ('_eoi','_ref');

    quit;

    %end;

    /* Join only required groups to attrition table */