qrp_report

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

*                                           PROGRAM OVERVIEW

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

*

* PROGRAM: l2_psdistribution_createdata.sas  

* Created (mm/dd/yyyy): 03/17/2021

*

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

* PURPOSE: The macro creates both aggregated and DP specific PS distribution datasets

*                                        

*  Program inputs:                                                                                   

* 

*  Program outputs:                                                                                                                                       

*

*  PARAMETERS:                                                                       

*            

*  Programming Notes:                                                                                

*                                                                           

*

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

* CONTACT INFO: 

*  Sentinel Coordinating Center

*  info@sentinelsystem.org

*

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

​

%macro l2_psdistribution_createdata;

​

    %do loopcount = 1 %to &numl2comparisons.; 

        /*Initialize macro variables for the analysisgrp loop*/

        %let OutputPSDistribution = ;

        %let ratio = ;

        %let strataweight = ;

​

        /*set parameters from l2comparisonfile for this loop*/

        data _null_;

            set l2comparisonfile(where=(order=&loopcount.));

            call symputx('runid', runid);

            call symputx('analysisgrp', analysisgrp);

            call symputx('OutputPSDistribution', OutputPSDistribution);

        run;

​

        %if &OutputPSDistribution.=Y %then %do;

            /* only psmatchfile, stratificationfile, and iptwfile have histogram */

            proc sql noprint;

                select strip(file) into: psfile

                from pscs_masterinputs (where = (missing(subgroup)))

                where analysisgrp = "&analysisgrp.";

            quit;

​

            %put now computing PS distributions for &analysisgrp.;

​

            %if &psfile. = psmatchfile | &psfile. = stratificationfile | &psfile. = iptwfile %then %do;

                data _null_; 

                  set pscs_masterinputs (where=(lowcase(analysisgrp)="&analysisgrp." and missing(subgroup)));

                    call symputx("psestimategrp", lowcase(psestimategrp));

                         %if &psfile. = psmatchfile  %then %do;

                            call symputx('RATIO',upcase(ratio)) ;

                         %end;

                         %if &psfile. = stratificationfile %then %do;

                            call symputx("strataweight",strataweight);

                         %end;