* PROGRAM OVERVIEW
****************************************************************************************************
*
* PROGRAM: create_templatefiles.sas
* Created (mm/dd/yyyy): 12/31/2020
*
*--------------------------------------------------------------------------------------------------
* PURPOSE: The macro creates all files that reside in the templatefiles. These are example input files
* that either represent report defaults or can be modified for inclusion in the reporting package
*
* Program inputs:
*
* Program outputs: The following template files are created:
* -TableFile (one file is created per REPORTTTYPE)
* -FigureFile (one file is created per REPORTTYPE)
* -TableColumnsFile
*
* PARAMETERS:
*
* Programming Notes:
*
*
*--------------------------------------------------------------------------------------------------
* CONTACT INFO:
* Sentinel Coordinating Center
* info@sentinelsystem.org
*
***************************************************************************************************;
/*Define libname for location of templatefiles folder*/
libname tempfl "";
%macro create_templatefiles();
*************************************
REPORTTYPE = T1 and T2L1 Files:
- T1TableFile
- T1FigureFile
- T2L1TableFile
- T2L1FigureFile
*************************************;
/*t1cida, t2cida, and t2concomitantuse tables*/
%let stratOneLevel = sex| agegroup| year| year month| year quarter| race| hispanic| zip3| state| zip_uncertain| cb_reg| hhs_reg;
%let stratCovar = &stratOneLevel.| covar#;
%let stratTwoLevel =
sex agegroup| sex agegroup year| sex agegroup year month| sex agegroup year quarter| agegroup year| agegroup year month| agegroup year quarter| sex year| sex year month|
sex year quarter| year month agegroup race| year quarter agegroup race| year month agegroup Hispanic| year quarter agegroup Hispanic| year month sex Hispanic|
year quarter sex Hispanic| year month sex race| year quarter sex race| year month Hispanic race| year quarter Hispanic race|
zip3 zip_uncertain| zip3 sex| zip3 sex zip_uncertain| zip3 agegroup| zip3 agegroup zip_uncertain| zip3 year| zip3 year zip_uncertain|
zip3 race| zip3 race zip_uncertain| zip3 hispanic| zip3 hispanic zip_uncertain|
state zip_uncertain| state sex| state sex zip_uncertain| state agegroup| state agegroup zip_uncertain| state year|
state year zip_uncertain| state race| state race zip_uncertain| state hispanic| state hispanic zip_uncertain|
zip_uncertain sex| zip_uncertain agegroup| zip_uncertain year|
hhs_reg zip_uncertain| hhs_reg sex| hhs_reg sex zip_uncertain| hhs_reg agegroup| hhs_reg agegroup zip_uncertain|
hhs_reg year| hhs_reg year zip_uncertain| hhs_reg race| hhs_reg race zip_uncertain| hhs_reg hispanic| hhs_reg hispanic zip_uncertain|
cb_reg zip_uncertain| cb_reg sex| cb_reg sex zip_uncertain| cb_reg agegroup| cb_reg agegroup zip_uncertain| cb_reg year|
cb_reg year zip_uncertain| cb_reg race| cb_reg race zip_uncertain| cb_reg hispanic| cb_reg hispanic zip_uncertain|
race sex| race agegroup| race year| race year month| race year quarter|
hispanic sex| hispanic agegroup| hispanic year| hispanic year month| hispanic year quarter| year agegroup race| year sex race|
year agegroup hispanic| year sex hispanic| year race hispanic;
%let stratcida = &stratCovar. | &stratTwoLevel.;
%let stratnoCovar = &stratOneLevel. | &stratTwoLevel.;
%macro createt1t2cidatemplates(name);
data lookup_&name.;
retain table dataset tablesub tablesubstrat levelnum levelid1 levelid2 levelid3 includeinreport categories;
format table $5. dataset $15. tablesubstrat $25. tablesub $40. levelid1 levelid2 levelid3 $55. categories $100.;
includeinreport = 'N';
categories = '';
call missing(levelid3);
/*Table T1*/
dataset = "&name.";
table = 'T1';
/*Overall table*/
tablesub = 'overall';
tablesubstrat = '';
levelnum =1;
levelid1 = '';
levelid2 = '';
output;
/*Stratified tables*/
%do i =1 %to %sysfunc(countw(&stratcida., %str(|)));
%let sub = %scan(%str(&stratcida.), &i, '|');
tablesub = "&sub";
tablesubstrat = '';
levelnum =1;
levelid1 = "&sub";
levelid2 = '';
output;
%end;
%do i =1 %to %sysfunc(countw(&stratnoCovar., %str(|)));
%let sub = %scan(%str(&stratnoCovar.), &i, '|');
tablesub = "&sub covar#";
tablesubstrat = '';
levelnum =1;
levelid1 = "&sub covar#";
levelid2 = '';
output;
%end;
run;
%mend createt1t2cidatemplates;
%createt1t2cidatemplates(t1cida);
%createt1t2cidatemplates(t2cida);
%createt1t2cidatemplates(t2conc);
/*t1censor & t2censor Tables*/
%let stratacensor = | sex| agegroup| year;
%macro templatecensortablefigures(type,dsn,numstart,num);
data lookup_&dsn.;
retain table dataset tablesub tablesubstrat levelnum levelid1 levelid2 levelid3 includeinreport categories censorreason;
format table $5. dataset $15. tablesubstrat tablesub $25. levelid1 levelid2 levelid3 $55. categories $100. censorreason $85.;
includeinreport = 'N';
categories = '';
call missing(levelid3, censorreason);
%do t=1 %to 3;
/*Table T&t.*/
dataset = "&dsn.";
table = "T&t.";
/*Overall table*/
tablesub = 'overall';
tablesubstrat = '';
levelnum =1;
levelid1 = 'censdays_value_cat';
%if %eval(&t. ne 2) %then %do;
levelid2 = 'censdays_value';
%end;
%else %do;
levelid2 = '';
%end;
output;
/*Stratified tables*/
%do i =1 %to 3;
%let sub = %scan(%str(&stratacensor.), &i, '|');
tablesub = "&sub";
tablesubstrat = '';
levelnum =1;
levelid1 = "&sub. censdays_value_cat";
levelid2 = '';
output;
%end;
%end;
%do f=&numstart. %to &num.;
/*Figure F&f.*/
dataset = "&dsn.";
table = "F&f.";
/*Overall table*/
tablesub = 'overall';
tablesubstrat = '';
levelnum =1;
levelid1 = 'censdays_value';
levelid2 = '';
output;
%end;
run;
%mend templatecensortablefigures;
%templatecensortablefigures(1,t1censor,1,1);
%templatecensortablefigures(2,t2followuptime,1,2);
%templatecensortablefigures(2,t2censor,3,3);
/*Multiple Events Tables*/
%let stratalist = sex| agegroup| year| year month| year quarter| race| hispanic| zip3| state| cb_reg| hhs_reg| adherence;
data lookup_t2multevent;
retain table dataset tablesub tablesubstrat levelnum levelid1 levelid2 levelid3 includeinreport categories;
format table $5. dataset $15. tablesubstrat tablesub $25. levelid1 levelid2 levelid3 $55. categories $100.;
includeinreport = 'N';
categories = '';
call missing(levelid3);
/*Table T1*/
dataset = 't2multevent';
table = 'T1';
/*Overall table*/
tablesub = 'overall';
tablesubstrat = '';
levelnum =1;
levelid1 = '';
levelid2 = '';
output;
tablesub = 'overall';
tablesubstrat = 'followup_cat';
levelnum =1;
levelid1 = 'followup_cat';
levelid2 = '';
output;
tablesub = 'overall';
tablesubstrat = 'epi_count';
levelnum =1;
levelid1 = 'epi_count';
levelid2 = '';
output;
/*Stratified tables*/
%do i =1 %to %sysfunc(countw(&stratalist., %str(|)));
%let sub = %scan(%str(&stratalist.), &i, '|');
tablesub = "&sub";
tablesubstrat = '';
levelnum =1;
levelid1 = "&sub";
levelid2 = '';
output;
tablesub = "&sub";
tablesubstrat = 'followup_cat';
levelnum =1;
levelid1 = "&sub followup_cat";
levelid2 = '';
output;
tablesub = "&sub";
tablesubstrat = 'epi_count';
levelnum =1;
levelid1 = "&sub epi_count";
levelid2 = '';
output;
%end;
/*Table T2*/
table = 'T2';
/*Overall table*/
tablesub = 'overall';
tablesubstrat = '';
levelnum =1;
levelid1 = '';
levelid2 = 'time_to_epi';
output;
tablesub = 'overall';
tablesubstrat = 'followup_cat';
levelnum =1;
levelid1 = 'followup_cat';
levelid2 = 'followup_cat time_to_epi';
output;
tablesub = 'overall';
tablesubstrat = 'epi_count';
levelnum =1;
levelid1 = 'epi_count';
levelid2 = 'epi_count time_to_epi';
output;
tablesub = 'overall';
tablesubstrat = 'time_to_epi';
levelnum =1;
levelid1 = 'time_to_epi';
levelid2 = 'time_to_epi';
output;
tablesub = 'overall';
tablesubstrat = 'adherence';
levelnum =1;
levelid1 = 'adherence';
levelid2 = 'adherence time_to_epi';
output;
tablesub = 'overall';
tablesubstrat = 'adherence_#';
levelnum =1;
levelid1 = 'adherence_#';
levelid2 = 'adherence_# time_to_epi';
output;
/*Stratified tables*/
%do i =1 %to %sysfunc(countw(&stratalist., %str(|))) - 1;
%let sub = %scan(%str(&stratalist.), &i, '|');
tablesub = "&sub";
tablesubstrat = '';
levelnum =1;
levelid1 = "&sub.";
levelid2 = "&sub. time_to_epi";
output;
tablesub = "&sub.";
tablesubstrat = 'followup_cat';
levelnum =1;
levelid1 = "&sub. followup_cat";
levelid2 = "&sub. followup_cat time_to_epi";
output;
tablesub = "&sub.";
tablesubstrat = 'epi_count';
levelnum =1;
levelid1 = "&sub. epi_count";
levelid2 = "&sub. epi_count time_to_epi";
output;
tablesub = "&sub.";
tablesubstrat = 'time_to_epi';
levelnum =1;
levelid1 = "&sub. time_to_epi";
levelid2 = "&sub. time_to_epi";
output;
tablesub = "&sub.";
tablesubstrat = 'adherence';
levelnum =1;
levelid1 = "&sub. adherence";
levelid2 = "&sub. adherence time_to_epi";
output;
tablesub = "&sub.";
tablesubstrat = "adherence_#";
levelnum =1;
levelid1 = "&sub. adherence_#";
levelid2 = "&sub. adherence_# time_to_epi";
output;
%end;
/*Table T3*/
table = 'T3';
dataset = 't2epigap';
tablesub = 'overall';
tablesubstrat = '';
levelnum =1;
levelid1 = 'epi_gap';
levelid2 = '';
output;
/*Table T4*/
table = 'T4';
dataset = 't2epigap';
tablesub = 'overall';
tablesubstrat = '';
levelnum =1;
levelid1 = 'epi_gap';
levelid2 = '';
output;
run;
/*Overlap Tables*/
%let stratalist = sex| agegroup| year| year month| year quarter| race| hispanic| zip3| state| cb_reg| hhs_reg;
data lookup_t2overlap;
retain table dataset tablesub tablesubstrat levelnum levelid1 levelid2 levelid3 includeinreport categories;
format table $5. dataset $15. tablesubstrat tablesub $25. levelid1 levelid2 levelid3 $55. categories $100.;
includeinreport = 'N';
categories = '';
call missing(levelid3);
/*Table T1*/
dataset = 't2overlap';
table = 'T1';
/*Overall table*/
tablesub = 'overall';
tablesubstrat = '';
levelnum =1;
levelid1 = '';
levelid2 = '';
output;
tablesub = 'overall';
tablesubstrat = 'followup_cat';
levelnum =1;
levelid1 = 'followup_cat';
levelid2 = '';
output;
tablesub = 'overall';
tablesubstrat = 'total_days_overlap';
levelnum =1;
levelid1 = 'total_days_overlap';
levelid2 = '';
output;
tablesub = 'overall';
tablesubstrat = 'adherence';
levelnum =1;
levelid1 = 'adherence';
levelid2 = '';
output;
tablesub = 'overall';
tablesubstrat = 'adherence_#';
levelnum =1;
levelid1 = 'adherence_#';
levelid2 = '';
output;
/*Stratified tables*/
%do i =1 %to %sysfunc(countw(&stratalist., %str(|)));
%let sub = %scan(%str(&stratalist.), &i, '|');
tablesub = "&sub";
tablesubstrat = '';
levelnum =1;
levelid1 = "&sub";
levelid2 = '';
output;
tablesub = "&sub";
tablesubstrat = 'followup_cat';
levelnum =1;
levelid1 = "&sub followup_cat";
levelid2 = '';
output;
tablesub = "&sub";
tablesubstrat = 'total_days_overlap';
levelnum =1;
levelid1 = "&sub total_days_overlap";
levelid2 = '';
output;
tablesub = "&sub";
tablesubstrat = 'adherence';
levelnum =1;
levelid1 = "&sub adherence";
levelid2 = '';
output;
tablesub = "&sub";
tablesubstrat = 'adherence_#';
levelnum =1;
levelid1 = "&sub adherence_#";
levelid2 = '';
output;
%end;
run;
/*Table T2*/
data lookup_t2overlap;
set lookup_t2overlap
lookup_t2overlap(in=b);
if b then table = 'T2';
run;
/*Output T1 and T2L1 files*/
/*t1tablefile*/
data tempfl.t1tablefile;
set lookup_t1cida
lookup_t1censor(drop=tablesubstrat where=(substr(table,1,1)='T'));
run;
/*t1figurefile*/
data tempfl.t1figurefile;
set lookup_t1censor(drop=tablesubstrat where=(substr(table,1,1)='F'));
rename tablesub=figuresub;
rename table=figure;
xmin = .;
xmax = .;
xtick = .;
ymin = .;
ymax = .;
ytick = .;
includeatrisktable = 'N';
format censordisplay $50.;
censordisplay = '';
drop categories censorreason;
run;
/*t2l1tablefile*/
data tempfl.t2l1tablefile;
set lookup_t2cida
lookup_t2followuptime(where=(substr(table,1,1)='T'))
lookup_t2censor(where=(substr(table,1,1)='T'))
lookup_t2conc
lookup_t2multevent
lookup_t2overlap;
run;
/*t2l1figurefile*/
data tempfl.t2l1figurefile;
set lookup_t2followuptime(drop=tablesubstrat where=(substr(table,1,1)='F'))
lookup_t2censor(drop=tablesubstrat where=(substr(table,1,1)='F'));
rename tablesub=figuresub;
rename table=figure;
xmin = .;
xmax = .;
xtick = .;
ymin = .;
ymax = .;
ytick = .;
includeatrisktable = 'N';
format censordisplay $50.;
censordisplay = '';
drop categories censorreason;
run;
*************************************
REPORTTYPE = T2L2 file:
- T2L2FigureFile
*************************************;
data tempfl.t2l2figurefile;
retain figure dataset figuresub levelnum levelid1 levelid2 levelid3 includeinreport;
format figure $5. dataset $15. figuresub $25. levelid1 levelid2 levelid3 $55.;
call missing(dataset, levelid1, levelid2, levelid3);
levelnum = 0;
includeinreport = 'N';
xmin = .;
xmax = .;
xtick = .;
ymin = .;
ymax = .;
ytick = .;
includeatrisktable = 'N';
format censordisplay $50.;
censordisplay = '';
/*PS Histograms*/
figure = 'F1';
figuresub = 'overall';
output;
/*Forest Plots*/
figure = 'F2';
figuresub = 'overall';
output;
/*Unadjusted KM Curve*/
figure = 'F3';
figuresub = 'overall';
output;
/*Conditional KM Curve*/
figure = 'F4';
figuresub = 'overall';
output;
/*Unconditional KM Curve*/
figure = 'F5';
figuresub = 'overall';
output;
run;
*************************************
REPORTTYPE = T4L2 file:
- T4L2FigureFile
*************************************;
data tempfl.t4l2figurefile;
retain figure dataset figuresub levelnum levelid1 levelid2 levelid3 includeinreport;
format figure $5. dataset $15. figuresub $25. levelid1 levelid2 levelid3 $55.;
call missing(dataset, levelid1, levelid2, levelid3);
levelnum = 0;
includeinreport = 'N';
/*note - not relevant for T4L2 figures*/
xmin = .;
xmax = .;
xtick = .;
ymin = .;
ymax = .;
ytick = .;
includeatrisktable = 'N';
format censordisplay $50.;
censordisplay = '';
/*PS Histograms*/
figure = 'F1';
figuresub = 'overall';
output;
/*Forest Plots*/
figure = 'F2';
figuresub = 'overall';
output;
run;
*************************************
REPORTTYPE = T4L1 file:
- T4L1TableFile
*************************************;
%let stratLevel = overall;
%let stratlevels = %sysfunc(countw(&stratLevel.,'|'));
data tempfl.t4l1tablefile;
retain table dataset tablesub tablesubstrat levelnum levelid1 levelid2 levelid3 includeinreport categories;
format table $5. dataset $15. tablesubstrat $25. tablesub $40. levelid1 levelid2 levelid3 $55. categories $100.;
includeinreport = 'N';
categories = '';
call missing(levelid2);
call missing(levelid3);
dataset = "t4preg";
%do p = 1 %to 2;
%if %eval(&p.=1) %then %do; tablesubstrat = 't4preg'; %end;
%if %eval(&p.=2) %then %do; tablesubstrat = 't4nopreg'; %end;
%do s = 1 %to &stratlevels.;
table = "T1";
tablesub= "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelnum =1;
%if %sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) = overall %then %do;
levelid1 = "moiname";
levelid2 = "";
%end;
%else %do;
levelid1 = "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelid2 = "moiname %sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
%end;
output;
%end;
%end;
dataset = "t4preggestwk";
%do p = 1 %to 2;
%if %eval(&p.=1) %then %do; tablesubstrat = 't4preg'; %end;
%if %eval(&p.=2) %then %do; tablesubstrat = 't4nopreg'; %end;
%do s = 1 %to &stratlevels.;
table = "T2";
tablesub= "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelnum =1;
%if %sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) = overall %then %do;
levelid1 = "gestwk";
levelid2 = "";
%end;
%else %do;
levelid1 = "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelid2 = "gestwk %sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
%end;
output;
%end;
%end;
run;
*************************************
REPORTTYPE = T5 files:
- T5TableFile
- T5FigureFile
*************************************;
%let stratLevel = overall|sex|agegroup|race|hispanic|sex agegroup|sex race|sex hispanic|agegroup race|agegroup hispanic;
%let stratfirst = overall|sex|agegroup|race|hispanic;
%let stratlevels = %sysfunc(countw(&stratLevel.,'|'));
%let stratflevels = %sysfunc(countw(&stratfirst.,'|'));
data lookup_t5tablefigurefile;
retain table dataset tablesub tablesubstrat levelnum levelid1 levelid2 levelid3 includeinreport categories;
format table $5. dataset $15. tablesubstrat $25. tablesub $40. levelid1 levelid2 levelid3 $55. categories $100. censorreason $85.;
includeinreport = 'N';
categories = '';
call missing(levelid3, tablesubstrat, censorreason);
dataset = "t5disp";
%do t = 1 %to 2;
%do s = 1 %to &stratlevels.;
table = "T&t.";
tablesub= "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelnum =2;
%if %sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) = overall %then %do;
levelid1 = "";
levelid2 = "daysupp";
%end;
%else %do;
levelid1 = "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelid2 = "daysupp %sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
%end;
output;
%end;
%end;
dataset = "t5episdur";
%do t = 3 %to 4;
%do s = 1 %to &stratlevels.;
table = "T&t.";
tablesub= "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelnum =2;
%if %sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) = overall %then %do;
levelid1 = "";
levelid2 = "cumepisodelength";
%end;
%else %do;
levelid1 = "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelid2 = "cumepisodelength %sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
%end;
output;
%end;
%end;
%do t = 5 %to 6;
%do s = 1 %to &stratlevels.;
table = "T&t.";
tablesub= "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelnum =2;
%if %sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) = overall %then %do;
levelid1 = "";
levelid2 = "episodelength";
%end;
%else %do;
levelid1 = "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelid2 = "episodelength %sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
%end;
output;
%end;
%end;
%do t = 7 %to 10;
%do s = 1 %to &stratlevels.;
table = "T&t.";
tablesub= "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelnum =2;
%if %sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) = overall %then %do;
levelid1 = "episodenum";
levelid2 = "episodenum episodelength";
%end;
%else %do;
levelid1 = "episodenum %sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelid2 = "episodenum episodelength %sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
%end;
output;
%end;
%end;
dataset = "t5gaps";
%do s = 1 %to &stratlevels.;
table = "T11";
tablesub= "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelnum =2;
%if %sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) = overall %then %do;
levelid1 = "gapnum";
levelid2 = "gapnum gaplength";
%end;
%else %do;
levelid1 = "gapnum %sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelid2 = "gapnum gaplength %sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
%end;
output;
%end;
%do t = 12 %to 13;
%do s = 1 %to &stratlevels.;
table = "T&t.";
tablesub= "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelnum =2;
%if %sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) = overall %then %do;
levelid1 = "gapnum";
levelid2 = "gapnum gaplength";
%end;
%else %do;
levelid1 = "gapnum %sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelid2 = "gapnum gaplength %sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
%end;
output;
%end;
%end;
dataset = "t5censor";
table = "T14";
tablesub= "overall";
levelnum =1;
levelid1 = "episodenum";
levelid2 = "";
output;
dataset = "t5censor";
table = "T15";
tablesub= "overall";
levelnum =1;
levelid1 = "episodenum episodelength";
levelid2 = "";
output;
dataset = "t5censor";
table = "T16";
tablesub= "overall";
levelnum =1;
levelid1 = "";
levelid2 = "";
output;
dataset = "t5censor";
table = "T17";
tablesub= "overall";
levelnum =2;
levelid1 = "";
levelid2 = "episodelength";
output;
/*Dose tables*/
dataset = "t5disp";
%do s = 1 %to &stratlevels.;
table = "T18";
tablesub= "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelnum =2;
%if %sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) = overall %then %do;
levelid1 = "";
levelid2 = "cfdd_output_cat";
levelid3 = "cfdd";
%end;
%else %do;
levelid1 = "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelid2 = "cfdd_output_cat %sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelid3 = "";
%end;
output;
%end;
dataset = "t5dose";
%do s = 1 %to &stratlevels.;
table = "T19";
tablesub= "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelnum =2;
%if %sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) = overall %then %do;
levelid1 = "";
levelid2 = "afdd_output_cat";
levelid3 = "afdd";
%end;
%else %do;
levelid1 = "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelid2 = "afdd_output_cat %sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelid3 = "";
%end;
output;
%end;
%do s = 1 %to &stratlevels.;
table = "T20";
tablesub= "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelnum =2;
%if %sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) = overall %then %do;
levelid1 = "episodenum";
levelid2 = "afdd_output_cat episodenum";
levelid3 = "afdd episodenum";
%end;
%else %do;
levelid1 = "episodenum %sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelid2 = "afdd_output_cat episodenum %sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelid3 = "";
%end;
output;
%end;
%do s = 1 %to &stratlevels.;
table = "T21";
tablesub= "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelnum =2;
%if %sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) = overall %then %do;
levelid1 = "";
levelid2 = "cumdose_output_cat";
levelid3 = "cumdose";
%end;
%else %do;
levelid1 = "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelid2 = "cumdose_output_cat %sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelid3 = "";
%end;
output;
%end;
%do s = 1 %to &stratlevels.;
table = "T22";
tablesub= "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelnum =2;
%if %sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) = overall %then %do;
levelid1 = "episodenum";
levelid2 = "cumdose_output_cat episodenum";
levelid3 = "cumdose episodenum";
%end;
%else %do;
levelid1 = "episodenum %sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelid2 = "cumdose_output_cat episodenum %sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelid3 = "";
%end;
output;
%end;
dataset = "t5first";
%do f = 1 %to 3;
%do s = 1 %to &stratflevels.;
table = "F&f.";
tablesub= "%sysfunc(left(%scan(%str(&stratfirst.), &s, '|')))";
levelnum =1;
%if %sysfunc(left(%scan(%str(&stratfirst.), &s, '|'))) = overall %then %do;
levelid1 = "mntsfromstart";
levelid2 = "";
%end;
%else %do;
levelid1 = "mntsfromstart %sysfunc(left(%scan(%str(&stratfirst.), &s, '|')))";
levelid2 = "";
%end;
output;
%end;
%end;
dataset = "t5censor";
%do f = 4 %to 5;
table = "F&f.";
tablesub= "overall";
levelnum =1;
levelid1 = "episodenum episodelength";
levelid2 = "";
output;
%end;
run;
/*Output T5 files*/
/*t5tablefile*/
data tempfl.t5tablefile;
set lookup_t5tablefigurefile(where=(substr(table,1,1)='T'));
run;
/*t5figurefile*/
data tempfl.t5figurefile;
set lookup_t5tablefigurefile(where=(substr(table,1,1)='F'));
drop tablesubstrat;
rename tablesub=figuresub;
rename table=figure;
xmin = .;
xmax = .;
xtick = .;
ymin = .;
ymax = .;
ytick = .;
includeatrisktable = 'N';
format censordisplay $50.;
censordisplay = '';
drop categories censorreason;
run;
*************************************
REPORTTYPE = T6 files:
- T6TableFile
- T6FigureFile
*************************************;
%let stratLevel = overall|sex|agegroup|race|hispanic|sex agegroup|sex race|sex hispanic|agegroup race|agegroup hispanic;
%let stratfirst = overall|sex|agegroup|race|hispanic;
%let stratlevels = %sysfunc(countw(&stratLevel.,'|'));
%let stratflevels = %sysfunc(countw(&stratfirst.,'|'));
data lookup_t6tablefigurefile;
retain table dataset tablesub tablesubstrat levelnum levelid1 levelid2 levelid3 includeinreport categories;
format table $5. dataset $15. tablesubstrat $25. tablesub $40. levelid1 levelid2 levelid3 $55. categories $100. censorreason $125.;
includeinreport = 'N';
categories = '';
call missing(tablesubstrat, censorreason);
dataset = "t6counts";
%do t = 1 %to 2;
%do s = 1 %to &stratlevels.;
table = "T&t.";
tablesub= "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelnum =3;
%if %sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) = overall %then %do;
levelid1 = "";
levelid2 = "year";
levelid3 = "month year";
%end;
%else %do;
levelid1 = "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelid2 = "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) year";
levelid3 = "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) month year";
%end;
output;
%end;
%end;
dataset = "t6trend";
table = "T3";
%do s = 1 %to &stratlevels.;
tablesub= "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelnum =2;
%if %sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) = overall %then %do;
levelid1 = "year";
levelid2 = "month year";
levelid3 = "";
%end;
%else %do;
levelid1 = "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) year";
levelid2 = "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) month year";
levelid3 = "";
%end;
output;
%end;
dataset = "t6counts";
table = "T4";
%do s = 1 %to &stratlevels.;
tablesub= "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelnum =3;
%if %sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) = overall %then %do;
levelid1 = "";
levelid2 = "year";
levelid3 = "month year";
%end;
%else %do;
levelid1 = "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelid2 = "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) year";
levelid3 = "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) month year";
%end;
output;
%end;
dataset = "t6disp";
table = "T5";
%do s = 1 %to &stratlevels.;
tablesub= "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelnum =1;
%if %sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) = overall %then %do;
levelid1 = "daysupp";
levelid2 = "";
levelid3 = "";
%end;
%else %do;
levelid1 = "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) daysupp";
levelid2 = "";
levelid3 = "";
%end;
output;
%end;
dataset = "t6episdur";
table = "T6";
%do s = 1 %to &stratlevels.;
tablesub= "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelnum =1;
%if %sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) = overall %then %do;
levelid1 = "cumepisodelength";
levelid2 = "";
levelid3 = "";
%end;
%else %do;
levelid1 = "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) cumepisodelength";
levelid2 = "";
levelid3 = "";
%end;
output;
%end;
dataset = "t6uptake";
table = "T7";
%do s = 1 %to &stratlevels.;
tablesub= "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelnum =1;
%if %sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) = overall %then %do;
levelid1 = "uptakedays";
levelid2 = "";
levelid3 = "";
%end;
%else %do;
levelid1 = "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) uptakedays";
levelid2 = "";
levelid3 = "";
%end;
output;
%end;
dataset = "t6censor";
table = "T8";
tablesub= "overall";
levelnum =1;
levelid1 = "episodelength";
levelid2 = "";
output;
dataset = "t6plota";
table = "T9";
tablesub= "overall";
levelnum =1;
levelid1 = "ttswitch";
levelid2 = "";
output;
dataset = "t6plotb";
table = "T10";
tablesub= "overall";
levelnum =1;
levelid1 = "ttswitch";
levelid2 = "";
output;
dataset = "T6switchepisdur";
table = "T11";
%do s = 1 %to &stratlevels.;
tablesub= "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelnum =1;
%if %sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) = overall %then %do;
levelid1 = "episodelength";
levelid2 = "";
levelid3 = "";
%end;
%else %do;
levelid1 = "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) episodelength";
levelid2 = "";
levelid3 = "";
%end;
output;
%end;
%do t = 12 %to 15;
%if %eval(&t.=12) | %eval(&t.=14) %then %do; dataset = "t6plota"; %end;
%if %eval(&t.=13) | %eval(&t.=15) %then %do; dataset = "t6plotb"; %end;
%do s = 1 %to &stratlevels.;
table = "T&t.";
tablesub= "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelnum =2;
%if %sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) = overall %then %do;
levelid1 = "";
levelid2 = "ttswitch";
levelid3 = "";
%end;
%else %do;
levelid1 = "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelid2 = "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) ttswitch";
levelid3 = "";
%end;
output;
%end;
%end;
dataset = "t6counts";
%do f = 1 %to 3;
%do s = 1 %to &stratlevels.;
table = "F&f.";
tablesub= "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelnum =3;
%if %sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) = overall %then %do;
levelid1 = "";
levelid2 = "year";
levelid3 = "month year";
%end;
%else %do;
levelid1 = "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelid2 = "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) year";
levelid3 = "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) month year";
%end;
output;
%end;
%end;
%do f = 4 %to 7;
%if %eval(&f.=4) | %eval(&f.=6) %then %do; dataset = "t6plota"; %end;
%if %eval(&f.=5) | %eval(&f.=7) %then %do; dataset = "t6plotb"; %end;
table = "F&f.";
tablesub= "overall";
levelnum =1;
levelid1 = "ttswitch";
levelid2 = "";
levelid3 = "";
output;
%end;
run;
/*Output T6 files*/
/*t6tablefile*/
data tempfl.t6tablefile;
set lookup_t6tablefigurefile(where=(substr(table,1,1)='T'));
run;
/*t6figurefile*/
data tempfl.t6figurefile;
set lookup_t6tablefigurefile(where=(substr(table,1,1)='F'));
drop tablesubstrat;
rename tablesub=figuresub;
rename table=figure;
xmin = .;
xmax = .;
xtick = .;
ymin = .;
ymax = .;
ytick = .;
includeatrisktable = 'N';
format censordisplay $50.;
censordisplay = '';
drop categories censorreason;
run;
*************************************
REPORTTYPE = ITS files:
- ITSTableFile
- ITSFigureFile
*************************************;
%let stratLevel = overall|sex|agegroup|race|hispanic;
%let stratlevels = %sysfunc(countw(&stratLevel.,'|'));
%let intervallist = year|month year|quarter year;
data lookup_its_tablefigurefile;
retain table dataset tablesub tablesubstrat levelnum levelid1 levelid2 levelid3 includeinreport categories;
format table $5. dataset $15. tablesubstrat $25. tablesub $40. levelid1 levelid2 levelid3 $55. categories $100.;
includeinreport = 'N';
categories = '';
call missing(tablesubstrat);
dataset = "t2its";
%do t = 1 %to 2;
%do int = 1 %to 3;
%do s = 1 %to &stratlevels.;
table = "T&t.";
tablesub= "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelnum =1;
%if %sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) = overall %then %do;
levelid1 = "%sysfunc(left(%scan(%str(&intervallist.), &int, '|')))";
levelid2 = "";
levelid3 = "";
%end;
%else %do;
levelid1 = "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) %sysfunc(left(%scan(%str(&intervallist.), &int, '|')))";
levelid2 = "";
levelid3 = "";
%end;
output;
%end;
%end;
%end;
dataset = "t2itsprev";
%do t = 1 %to 2;
%do int = 1 %to 3;
%do s = 1 %to &stratlevels.;
table = "T&t.";
tablesub= "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|')))";
levelnum =1;
%if %sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) = overall %then %do;
levelid1 = "%sysfunc(left(%scan(%str(&intervallist.), &int, '|')))";
levelid2 = "";
levelid3 = "";
%end;
%else %do;
levelid1 = "%sysfunc(left(%scan(%str(&stratLevel.), &s, '|'))) %sysfunc(left(%scan(%str(&intervallist.), &int, '|')))";
levelid2 = "";
levelid3 = "";
%end;
output;
%end;
%end;
%end;
run;
/*Output ITS files*/
/*ITStablefile*/
data tempfl.ITStablefile;
set lookup_its_tablefigurefile(where=(substr(table,1,1)='T'));
run;
/*ITSfigurefile*/
data tempfl.ITSfigurefile;
set lookup_its_tablefigurefile(where=(table='T1'));
table = 'F1';
drop tablesubstrat;
rename tablesub=figuresub;
rename table=figure;
xmin = .;
xmax = .;
xtick = .;
ymin = .;
ymax = .;
ytick = .;
includeatrisktable = 'N';
format censordisplay $50.;
censordisplay = '';
drop categories;
run;
/*Clean up*/
proc datasets nowarn noprint;
delete lookup:;
quit;
%macro create_tablecolumns();
*************************************
TableColumnsFile for T1 and T2L1:
- T1cida
- T2cida
- T2conc
*************************************;
data tablecolumnsfile;
attrib Table length = $10 format = $10.
IncludeinReport length = $1 format = $1.
Column length = $50 format = $50.
Order length = 3 format = 3.
ColumnLabel length = $100 format = $100.
ColumnFormat length = $10 format = $10.
CIrate length = $1 format = $1.
ColumnWidth length = 8;
Column = "Npts"; ColumnLabel = "New Users"; ColumnFormat = "comma10.0"; Table = "t1cida"; CIrate = "N"; order = 1; IncludeinReport = "Y"; columnwidth=.67; output; Table = "t2cida"; output; Table = "t2conc"; output;
Column = "(Npts/DenNumPts)*X"; ColumnLabel = "New Users per X Eligible Members"; ColumnFormat = "comma13.2"; Table = "t1cida"; CIrate = "N"; IncludeinReport = "N"; columnwidth=1.5; order = 2; output; Table = "t2cida"; output;
Column = "npts/dennumpts"; ColumnLabel = "Proportion of New Users per Eligible Member (95% Confidence Interval)"; ColumnFormat = "comma13.2"; Table = "t1cida"; CIrate = "P"; order = 3; includeinreport = 'N'; columnwidth=1.5; output;
Column = "(npts/dennumpts)*X"; ColumnLabel = "Proportion of New Users per X Eligible Members (95% Confidence Interval)"; ColumnFormat = "comma13.2"; Table = "t1cida"; CIrate = "P"; order = 4; includeinreport = 'N'; columnwidth=1.5; output;
Column = "Episodes"; ColumnLabel = "New Episodes"; ColumnFormat = "comma10.0"; CIrate = "N"; Table = "t1cida"; order = 5; includeinreport = 'Y'; columnwidth=.67; output; Table = "t2cida"; order = 3; output; Table = "t2conc"; order = 2; output;
Column = "npts/dennummemdays"; ColumnLabel = "New User Rate per Eligible Person-Day (95% Confidence Interval)"; ColumnFormat = "comma13.2"; Table = "t1cida"; CIrate = "R"; order = 6; includeinreport = 'N'; columnwidth=1.5; output;
Column = "(npts/dennummemdays)*X"; ColumnLabel = "New User Rate per X Eligible Person-Days (95% Confidence Interval)"; ColumnFormat = "comma13.2"; Table = "t1cida"; CIrate = "R"; order = 7; includeinreport = 'N'; columnwidth=1.5; output;
Column = "AdjustedCodeCount"; ColumnLabel = "Adjusted Dispensings"; ColumnFormat = "comma10.0"; Table = "t1cida"; CIrate = "N"; order = 8; includeinreport = 'Y'; columnwidth=.67; output; Table = "t2cida"; order = 4; output; Table = "t2conc"; order = 3; output;
Column = "AdjustedCodeCount/Npts"; ColumnLabel = "Adjusted Dispensing per User"; ColumnFormat = "comma13.2"; Table = "t1cida"; CIrate = "N"; order = 9; includeinreport = 'N'; columnwidth=.72; output; Table = "t2cida"; order = 5; output; Table = "t2conc"; order = 4; output;
Column = "RawCodeCount"; ColumnLabel = "Raw Dispensings"; ColumnFormat = "comma10.0"; Table = "t1cida"; CIrate = "N"; order = 10; includeinreport = 'Y'; columnwidth=.67; output; Table = "t2cida"; order = 6; output; Table = "t2conc"; order = 5; output;
Column = "RawCodeCount/Npts"; ColumnLabel = "Raw Dispensings per User"; ColumnFormat = "comma13.2"; Table = "t1cida"; CIrate = "N"; order = 11; includeinreport = 'N'; columnwidth=.72; output; Table = "t2cida"; order = 7; output; Table = "t2conc"; order = 6; output;
Column = "DaySupp"; ColumnLabel = "Days Supplied"; ColumnFormat = "comma10.0"; Table = "t1cida"; CIrate = "N"; order = 12; includeinreport = 'Y'; columnwidth=.67; output; Table = "t2cida"; order = 8; output; Table = "t2conc"; order = 7; output;
Column = "DaySupp/Episodes"; ColumnLabel = "Days Supplied per Episode"; ColumnFormat = "comma13.2"; Table = "t1cida"; CIrate = "N"; order = 13; includeinreport = 'N'; columnwidth=.72; output; Table = "t2cida"; order = 9; output; Table = "t2conc"; order = 8; output;
Column = "DaySupp/Npts"; ColumnLabel = "Days Supplied per User"; ColumnFormat = "comma13.2"; Table = "t1cida"; CIrate = "N"; order = 14; includeinreport = 'N'; columnwidth=.72; output; Table = "t2cida"; order = 10; output; Table = "t2conc"; order = 9; output;
Column = "DaySupp/AdjustedCodeCount"; ColumnLabel = "Days Supplied per Adjusted Dispensings"; ColumnFormat = "comma13.2"; Table = "t1cida"; CIrate = "N"; order = 15; includeinreport = 'N'; columnwidth=.72; output; Table = "t2cida"; order = 11; output; Table = "t2conc"; order = 10; output;
Column = "DaySupp/RawCodeCount"; ColumnLabel = "Days Supplied per Raw Dispensings"; ColumnFormat = "comma13.2"; Table = "t1cida"; CIrate = "N"; order = 16; includeinreport = 'N'; columnwidth=.72; output; Table = "t2cida"; order = 12; output; Table = "t2conc"; order = 11; output;
Column = "AmtSupp"; ColumnLabel = "Amount Supplied"; ColumnFormat = "comma10.0"; Table = "t1cida"; CIrate = "N"; order = 17; includeinreport = 'Y'; columnwidth=.67; output; Table = "t2cida"; order = 13; output; Table = "t2conc"; order = 12; output;
Column = "AmtSupp/Episodes"; ColumnLabel = "Amount Supplied per Episode"; ColumnFormat = "comma13.2"; Table = "t1cida"; CIrate = "N"; order = 18; includeinreport = 'N'; columnwidth=.72; output; Table = "t2cida"; order = 14; output; Table = "t2conc"; order = 13; output;
Column = "AmtSupp/AdjustedCodeCount"; ColumnLabel = "Amount Supplied per Adjusted Dispensings"; ColumnFormat = "comma13.2"; Table = "t1cida"; CIrate = "N"; order = 19; includeinreport = 'N'; columnwidth=.72; output; Table = "t2cida"; order = 15; output; Table = "t2conc"; order = 14; output;
Column = "AmtSupp/RawCodeCount"; ColumnLabel = "Amount Supplied per Raw Dispensings"; ColumnFormat = "comma13.2"; Table = "t1cida"; CIrate = "N"; order = 20; includeinreport = 'N'; columnwidth=.72; output; Table = "t2cida"; order = 16; output; Table = "t2conc"; order = 15; output;
Column = "timetocensor"; ColumnLabel = "Time to Data End (Days)"; ColumnFormat = "comma13.0"; Table = "t1cida"; CIrate = "N"; order = 21; includeinreport = 'Y'; columnwidth=.72; output; Table = "t2cida"; order = 34; output;
Column = "DenNumPts"; ColumnLabel = "Eligible Members"; ColumnFormat = "comma10.0"; Table = "t1cida"; CIrate = "N"; order = 22; includeinreport = 'Y'; columnwidth=.67; output; Table = "t2cida"; order = 35; output;
Column = "DenNumMemDays"; ColumnLabel = "Eligible Member-Days"; ColumnFormat = "comma14.0"; Table = "t1cida"; CIrate = "N"; order = 23; includeinreport = 'Y'; columnwidth=.9; output; Table = "t2cida"; order = 36; output;
Column = "DenNumMemDays/365.25"; ColumnLabel = "Eligible Member-Years"; ColumnFormat = "comma13.1"; Table = "t1cida"; CIrate = "N"; order = 24; includeinreport = 'Y'; columnwidth=.82; output; Table = "t2cida"; order = 37; output;
Column = "Eps_wEvents"; ColumnLabel = "New Episodes with an Event"; ColumnFormat = "comma10.0"; Table = "t2cida"; CIrate = "N"; order = 17; includeinreport = 'Y'; columnwidth=.67; output; Table = "t2conc"; order = 16; output;
Column = "Eps_wEvents/Npts"; ColumnLabel = "Episodes with an Event per User"; ColumnFormat = "comma13.2"; Table = "t2cida"; CIrate = "N"; order = 18; includeinreport = 'N'; columnwidth=.72; output; Table = "t2conc"; order = 17; output;
Column = "Eps_wEvents/Episodes"; ColumnLabel = "Episodes with an Event per Episode"; ColumnFormat = "comma13.2"; Table = "t2cida"; CIrate = "N"; order = 19; includeinreport = 'N';columnwidth=.72; output; Table = "t2conc"; order = 18; output;
Column = "Eps_wEvents/(followuptime/365.25)"; ColumnLabel = "Episodes with an Event per Member-Year at Risk"; ColumnFormat = "comma13.2"; Table = "t2cida"; CIrate = "N"; order = 20; includeinreport = 'N'; columnwidth=.72; output; Table = "t2conc"; order = 19; output;
Column = "(Eps_wEvents/(followuptime/365.25))*X"; ColumnLabel = "Episodes with an Event per X Member-Years at Risk"; ColumnFormat = "comma13.2"; Table = "t2cida"; CIrate = "N"; order = 21; includeinreport = 'N'; columnwidth=.72; output; order = 20; Table = "t2conc"; output;
Column = "eps_wevents/followuptime"; ColumnLabel = "Event Rate per Person-Day (95% Confidence Interval)"; ColumnFormat = "comma13.2"; Table = "t2cida"; CIrate = "R"; order = 22; includeinreport = 'N'; columnwidth=1.5; output; Table = "t2conc"; order = 21; output;
Column = "eps_wevents/(followuptime/30.35)"; ColumnLabel = "Event Rate per Person-Month (95% Confidence Interval)"; ColumnFormat = "comma13.2"; Table = "t2cida"; CIrate = "R"; order = 23; includeinreport = 'N'; columnwidth=1.5; output; Table = "t2conc"; order = 22; output;
Column = "eps_wevents/(followuptime/365.25)"; ColumnLabel = "Event Rate per Person-Year (95% Confidence Interval)"; ColumnFormat = "comma13.2"; Table = "t2cida"; CIrate = "R"; order = 24; includeinreport = 'N'; columnwidth=1.5; output; Table = "t2conc"; order = 23; output;
Column = "(eps_wevents/followuptime)*X"; ColumnLabel = "Event Rate per X Person-Days (95% Confidence Interval)"; ColumnFormat = "comma13.2"; Table = "t2cida"; CIrate = "R"; order = 25; includeinreport = 'N'; columnwidth=1.5; output; Table = "t2conc"; order = 24; output;
Column = "(eps_wevents/(followuptime/30.35))*X"; ColumnLabel = "Event Rate per X Person-Months (95% Confidence Interval)"; ColumnFormat = "comma13.2"; Table = "t2cida"; CIrate = "R"; order = 26; includeinreport = 'N';columnwidth=1.5; output; Table = "t2conc"; order = 25; output;
Column = "(eps_wevents/(followuptime/365.25))*X"; ColumnLabel = "Event Rate per X Person-Years (95% Confidence Interval)"; ColumnFormat = "comma13.2"; Table = "t2cida"; CIrate = "R"; order = 27; includeinreport = 'N';columnwidth=1.5; output; Table = "t2conc"; order = 26; output;
Column = "(Eps_wEvents/DenNumPts)*X"; ColumnLabel = "Episodes with an Event per X Eligible Members"; ColumnFormat = "comma13.2"; Table = "t2cida"; CIrate = "N"; order = 28; includeinreport = 'N'; columnwidth=.72; output;
Column = "eps_wevents/episodes"; ColumnLabel = "Proportion of Episodes with an Event (95% Confidence Interval)"; ColumnFormat = "comma13.2"; Table = "t2cida"; CIrate = "P"; order = 29; includeinreport = 'N'; columnwidth=1.5; output; Table = "t2conc"; order = 27; output;
Column = "(eps_wevents/episodes)*X"; ColumnLabel = "Proportion of Episodes with an Event per X New Episodes (95% Confidence Interval)"; ColumnFormat = "comma13.2"; Table = "t2cida"; CIrate = "P"; order = 30; includeinreport = 'N'; columnwidth=1.5; output; Table = "t2conc"; order = 28; output;
Column = "All_Events"; ColumnLabel = "All Events"; ColumnFormat = "comma10.0"; Table = "t2cida"; CIrate = "N"; order = 31; columnwidth=.67; output; Table = "t2conc"; order = 29; includeinreport = 'Y'; output;
Column = "followuptime"; ColumnLabel = "Days at Risk"; ColumnFormat = "comma10.0"; Table = "t2cida"; CIrate = "N"; order = 32; includeinreport = 'Y'; columnwidth=.67; output; Table = "t2conc"; order = 30; output;
Column = "followuptime/365.25"; ColumnLabel = "Years at Risk"; ColumnFormat = "comma13.1"; Table = "t2cida"; CIrate = "N"; includeinreport = 'Y'; order = 33; columnwidth=.82; output; Table = "t2conc"; order = 31; output;
run;
proc sort data = tablecolumnsfile;
by table order;
run;
/* Re-assign order for default table */
data tempfl.tablecolumnsfile_default (drop = order_in);
set tablecolumnsfile (rename = (order=order_in) where = (includeinreport = "Y"));
by table order_in;
retain order;
length order 3;
if first.table then order = 1;
else order = order +1;
run;
/* Assign includeinreport to N for all variables on the tablecolumnsfile_all dataset */
data tempfl.tablecolumnsfile_all;
set tablecolumnsfile;
includeinreport = "N";
run;
%mend create_tablecolumns;
%create_tablecolumns();
%mend;
%create_templatefiles();