qrp_report

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

*                                           PROGRAM OVERVIEW

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

*

* PROGRAM: baseline_profile_output.sas  

* Created (mm/dd/yyyy): 04/29/2021

*

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

* PURPOSE:

*   Transform and output covariate profile tables                                

*   

*  Program inputs:        

*   -                                                                           

*                                     

*  Program outputs:                                                                                                                                       

*                                                                                                  

*  PARAMETERS:    

*            

*  Programming Notes:                                                                                

*

*

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

* CONTACT INFO: 

*  Sentinel Coordinating Center

*  info@sentinelsystem.org

*

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

*  CHANGE LOG: 

*

*   Version   Date       Initials      Comment (reference external documentation when available)

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

*

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

​

%macro baseline_profile_output;

​

    /* Reset table letter at top of dataset loop */

    %let tablecount = 1;

​

%do periodid = %eval(&look_start.) %to %eval(&look_end.);

​

    proc sql noprint ;

        select 'order='||strip(put(order,8.))||' and runid='||quote(strip(runid))||' and group='||quote(strip(group))||' and cohort='||quote(strip(cohort))

        into :whereexpr separated by '@'

        from (select order, runid, group, case when(cohort is missing) then 'all' else cohort end as cohort

              from baselinefile

              where not missing(profilecovarstoinclude))

        order by order;

    quit;

​

    %do wherenum = 1 %to %sysfunc(countw(&whereexpr, @));

        %let where = %scan(&whereexpr,&wherenum, @);

​

            data _temp_agg_order_profile;

                set aggregate_profile(where=(periodid=&periodid and &where));

                grouplabel='';

                if cohort = 'mi' then group2=scan(group,1,'_');

                else group2=group;

                if cohort = 'switch' then switchlabel=' ';

                call symputx('runid',runid);

            run;

​

            %let profileswitches = 0;