qrp_report

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

*                                           PROGRAM OVERVIEW

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

*

* PROGRAM: figure_t5_output.sas  

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

*

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

* PURPOSE: Produce type 5 figures F1-F3

*

*  Program inputs:                                                                                   

*   - figure123.sas7bdat

* 

*  Program outputs:                                                                                                                           

*   - N/A

* 

*  PARAMETERS: 

*   -figure: figure

*   -figurenum: figure number for report

*   -title: figure title

*   -where: where clause to restrict figure123.sas7bdat

*   -figuresub: row in figurefile to produce table

*   -yaxislabel1: Label for primary Y axis

*   -yaxislabel2: Label for secondary Y axis

*   -yvar: variable to use in plot

* 

*  Programming Notes:                                                                                

*

*

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

* CONTACT INFO: 

*  Sentinel Coordinating Center

*  info@sentinelsystem.org

*

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

​

%macro figure_t5_output(figure=, figurenum=, title=, where=, figuresub=, yaxislabel1=, yaxislabel2=, yvar=);

​

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

​

    /*Save dataset to REPORTDATA folder*/

    %isdata(dataset=repdata.figure&tablenum.);

    %if %eval(&nobs.<1) %then %do;

        data repdata.figure&tablenum.;

            set figure123(where=(&where.));

        run;

    %end;

​

    /*assign axes*/

    %let t5xtickmarks = ;

    %let t5ytickmarks = ;

​

    %figure_axes(data=repdata.figure&tablenum., figure=&figure., figuresub=&figuresub., where=&where., xtickmarks=t5xtickmarks, ytickmarks=t5ytickmarks);

​

    ods startpage = now;

    ods startpage = no;

    ods graphics / height=7.5in;

​

    /* Trick Excel into making a new sheet */

    %if &destination. = excel %then %do;

            ods excel options(sheet_interval="table");

            ods exclude all;

            data _null_;