****************************************************************************************************
* PROGRAM OVERVIEW
****************************************************************************************************
*
* PROGRAM: attrition_output.sas
* Created (mm/dd/yyyy): 05/18/2021
*
*--------------------------------------------------------------------------------------------------
* PURPOSE: This macro outputs patient and/or episode level attrition data
*
* Program inputs:
* - agg_patient_attrition
* - agg_episode_attrition
*
* Program outputs:
*
* -repdata.table&tablenum.&tableletter.
*
* PARAMETERS:
* -tabletype - patient - Output patient level attrition table
* - episode - Output episode level attrition table
*
* Programming Notes:
*
*
*--------------------------------------------------------------------------------------------------
* CONTACT INFO:
* Sentinel Coordinating Center
* info@sentinelsystem.org
*
***************************************************************************************************;
%macro attrition_output(tabletype=);
%if &&attrition_&tabletype > 0 %then %do;
%tableletter();
data repdata.table&tablenum.&tableletter.;
set agg_&tabletype._attrition;
run;
%if &destination = excel %then %do;
ods excel options(sheet_name="Table &tablenum.&tableletter." tab_color="teal");
%end;
ods proclabel = "Table &tablenum.&tableletter.";
proc report data=repdata.table&tablenum.&tableletter. nofs nowd spanrows missing
style(header)=[rules=none frame=void vjust=b borderbottomcolor=bgr bordertopcolor=bgr background=bgr] split='*'
style(report)=[rules=none frame=void cellpadding=1.75pt];
column report_descr (headerlabel,(grouplabel,(agg_remaining_char agg_excluded_char))) dummyvar;
define report_descr / group order=data ' ' style(column)=[just=L]
style(header)=[background = bgr borderleftcolor= bgr borderrightcolor=bgr];
define headerlabel / nozero across ' ' style(header)=[rules=none vjust=b borderbottomcolor=black background=bgr borderrightcolor=black
borderleftcolor=black borderleftwidth=1 borderrightwidth=1];
define grouplabel / nozero across ' ' style(header)=[rules=none vjust=b bordertopcolor=black borderbottomcolor=black background=bgr borderrightcolor=black
borderleftcolor=black borderleftwidth=1 borderrightwidth=1];
define agg_remaining_char / display 'Remaining' style(column)=[background=$backgroundfmt. tagattr="type:string"]
style(header)=[background = bgr borderleftcolor=black borderleftwidth=1 borderrightcolor=bgr] format=$nafmt.;
define agg_excluded_char / display 'Excluded' style(column)=[background=$backgroundfmt. tagattr="type:string"]
style(header)=[background = bgr borderleftcolor=bgr borderrightcolor=black borderrightwidth=1] format=$nafmt.;
define dummyvar / computed noprint;
compute report_descr;
if find(report_descr,'evidence of','i') then call define (_col_,"style","style=[pretext=' ' asis=on fontstyle=italic]");
endcomp;
compute dummyvar;
dummyvar=1;
endcomp;
/*Add title*/
compute before _page_ / style=[background=white font_weight=bold just=L foreground=black vjust=b bordertopcolor=black borderbottomcolor=black
borderbottomwidth=&bordersize tagattr="wrap:yes" nobreakspace=off cellheight=.3in];
line "Table &tablenum.&tableletter.. Summary of %sysfunc(propcase(&tabletype)) Level Cohort Attrition in the &database. from &startdateformatted. to &enddateformatted.";
endcomp;
/*Add thick line to bottom of report*/
compute after _page_ / style=[bordertopcolor=black bordertopwidth=&bordersize borderbottomcolor=white borderleftcolor=white borderrightcolor=white];
line ' ';
endcomp;
compute before report_descr / style=[background=libgr foreground=black just=L font_weight=bold bordertopcolor=black bordertopwidth=1 borderbottomcolor=black];
length text $100;
%if &tabletype = episode %then %do;
if report_descr = 'Enrolled at any point during the query period' then do;
text='Members meeting enrollment and demographic requirements';
num=100;
end;
else if report_descr = 'Had any cohort-defining claim during the query period'
%if %index(&reporttype,T4L1) %then %do; or report_descr = 'Had a live birth delivery claim during the query period' %end; then do;
text='Members with a valid index event';
num=100;
end;
else if report_descr = 'Total number of claims with cohort-identifying codes during the query period' then do;
text='Cohort episodes with a valid index date';
num=100;
end;
%if %index(&reporttype,T4L1) %then %do;
else if report_descr = 'Total number of live birth deliveries during the query period' then do;
text='Live birth deliveries with a valid index date';
num=100;
end;
%end;
else if report_descr = 'Had sufficient pre-index continuous enrollment' then do;
%if %index(&reporttype,T4L1) %then %do;
text='Pregnancy episodes with required pre-index history';
%end;
%else %do;
text='Cohort episodes with required pre-index history';
%end;
num=100;
end;
else if report_descr = 'Had sufficient post-index continuous enrollment' then do;
%if %index(&reporttype,T4L1) %then %do;
text='Pregnancy episodes with required post-index follow-up';
%end;
%else %do;
text='Cohort episodes with required post-index follow-up';
%end;
num=100;
end;
else if report_descr = 'Number of members' then do;
text='Final cohort';
num=100;
end;
else do;
text=' ';
num=0;
end;
line text $Varying. num;
endcomp;
%end;
%else %if &tabletype = patient %then %do;
if report_descr = 'Enrolled at any point during the query period' then do;
text='Members meeting enrollment and demographic requirements';
num=100;
end;
else if report_descr = 'Had any cohort-defining claim during the query period' then do;
text='Members with a valid index event';
num=100;
end;
else if report_descr = 'Had sufficient pre-index continuous enrollment' then do;
text='Members with required pre-index history';
num=100;
end;
else if report_descr = 'Had sufficient pre-index continuous enrollment' then do;
text='Members with required pre-index history';
num=100;
end;
else if report_descr = 'Had sufficient post-index continuous enrollment' then do;
text='Members with required post-index follow-up';
num=100;
end;
else if report_descr = 'Number of members' then do;
text='Final cohort';
num=100;
end;
else do;
text=' ';
num=0;
end;
line text $Varying. num;
endcomp;
%end;
run;
%end; /* attrition table type */
%mend attrition_output;