qrp_report

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

*                                           PROGRAM OVERVIEW

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

*

* PROGRAM: figure_l1_driver.sas  

* Created (mm/dd/yyyy): 07/14/2021

*

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

* PURPOSE: This macro drives the creation of L1 figures

*                                        

*  Program inputs:                                                                                   

*

* 

*  Program outputs:                                                                                                                                       

* 

*  PARAMETERS:                                                                       

*            

*  Programming Notes:                                                                                

*                                                                           

*

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

* CONTACT INFO: 

*  Sentinel Coordinating Center

*  info@sentinelsystem.org

*

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

​

%macro figure_l1_driver();

​

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

​

    /**********************************************************************************************

     T1: 1 figure: 

        1) F1: t1censor = Reasons for End of Observable Data by Group (1-CDF)

     T2L1: 3 figures:

        1) F1: t2followuptime = Kaplan-Meier Estimate of Event of Interest Not Occurring

        2) F2: t2followuptime = Reasons for End of Follow-Up by Group (1-CDF)

        3) F3: t2censor = Reasons for End of Observable Data by Group (1-CDF)

     T5: 2 figures:

        1) F1 (not yet implemented)

        2) F2 (not yet implemented)

        3) F3 (not yet implemented)

        4) F4: t5censor = Reasons for End of First Treatment Episode by Group

        5) F5: t5censor = End of First Treatment Episode due to [Censoring Reason] by Group 

    /***********************************************************************************************/

​

    %isdata(dataset=figurefile);

    %if %eval(&nobs>0) %then %do;

​

    /*Assign user censoring criteria labels*/

    %isdata(dataset=labelfile);

    %if %eval(&nobs.>0) %then %do;

        data _null_;

            set labelfile(where=(labeltype='censorlabel'));

            call symputx(cats(labelvar,'_label'), label);

        run;

    %end;

​

    /*Square groups*/

    proc sql noprint;

        create table _squaregroup as

        select group, runid, 0 as day

        from groupsfile