qrp_report

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

*                                           PROGRAM OVERVIEW

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

*

* PROGRAM: t5tables_output.sas  

* Created (mm/dd/yyyy): 08/25/2021

*

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

* PURPOSE: This macro includes two proc report procedures in order to produce a categorical and 

*          continuous table in the report for Type 5 analyses

*                                        

*  Program inputs:                                                                                   

*   - Dataset(s) computed in %t5tables_createdata

* 

*  Program outputs: 

*   - Dataset(s) to output/repdata for each figure

* 

*  PARAMETERS:  

*   - dataset: input dataset

*   - reporttype: indicator whether to produce categorical (cat) or continuous (dist) metrics

*   

*  Programming Notes:         

*  

*

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

* CONTACT INFO: 

*  Sentinel Coordinating Center

*  info@sentinelsystem.org

*

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

​

%macro t5tables_output(dataset=, reporttype=);

​

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

    proc sql noprint;

       select max(sortorder1), max(sortorder2)

       into :maxorder1, :maxorder2

       from &dataset.;

    quit;

    %put maxorder1 = &maxorder1.;

    %put maxorder2 = &maxorder2.;

    %let num_fn = 0;    

    %let tabletitle = ;

    %let categories = ;

    %let num_categories = 0;

    %let num_fn=0;

​

    data _null_;

        set tablefile;

        if "&dataset" = catx('_',table,put(stratificationorder,best.)) then do;

            call symputx('tablesub', tablesub);

            %if %sysfunc(prxmatch(m/T18_|T19_|T20_|T21_|T22_/i,&dataset.)) = 0 %then %do;

            call symputx('categories', categories);

            %end;

            if tablesub = 'overall' and "&stratifybydp." = "Y" then call symputx('tabletitle', ', by Data Partner');

            else call symputx('tabletitle', tabletitle);

        end;

    run;

​

    /*Footnotes: