qrp_report

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

*                                           PROGRAM OVERVIEW

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

*

* PROGRAM: codedistribution_createdata.sas  

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

*

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

* PURPOSE: The macro creates aggregated code distribution dataset and process code descriptions

*                                        

*  Program inputs:                                                                                   

* 

*  Program outputs:                                                                                                                                       

*

*  PARAMETERS:                                                                       

*            

*  Programming Notes:                                                                                

*                                                                           

*

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

* CONTACT INFO: 

*  Sentinel Coordinating Center

*  info@sentinelsystem.org

*

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

​

%macro codedistribution_createdata;

​

    proc sql noprint;

    select count(*) into :numgroupscodedist trimmed 

    from GroupsDist;

    quit;

    %do loopcount = 1 %to &numgroupscodedist.;             

​

        /* set parameters for this loop */

        %let codedistexp = N;

        %let codedisthoi = N;

​

        data _null_;

            set GroupsDist;

            if &loopcount. = _N_;

            call symputx('runid', runid);

            call symputx('group', group);

            call symputx('order', order);

            if index(upcase(codedist), "EXP") > 0 then call symputx('codedistexp', 'Y');

            if index(upcase(codedist), "HOI") > 0 then call symputx('codedisthoi', 'Y');

        run;

​

        /* Aggregate results and keep only relevant distindextype */

        proc means data=agg_distindex (where=(lowcase(group)="&group." and runid="&runid.")) noprint nway missing;

            var episodes;

            class group runid distindextype distindexlist dpidsiteid;

            output out=_agg_distindex(drop=_:) sum=;

        run;

​

        data _agg_distindex;

        set _agg_distindex;

        order=&order.;

        %if &codedistexp. ne Y %then %do; 

            if lowcase(distindextype)="exp" then delete;

        %end;

        %if &codedisthoi. ne Y %then %do;