qrp_report
Public
Source
xxxxxxxxxx***************************************************************************************************** PROGRAM OVERVIEW****************************************************************************************************** PROGRAM: t5tables_driver.sas * Created (mm/dd/yyyy): 08/06/2021**--------------------------------------------------------------------------------------------------* PURPOSE: The driver macro produces tables for a Type 5 report* * Program inputs: * * Program outputs: * * PARAMETERS: * * Programming Notes: * **--------------------------------------------------------------------------------------------------* CONTACT INFO: * Sentinel Coordinating Center* info@sentinelsystem.org****************************************************************************************************;%macro t5tables_driver(); %put =====> MACRO CALLED: t5tables_driver ; *** Distribution of days supplied per dispensing (using AdjustedCodeCount) ***; %if %sysfunc(prxmatch(m/T1\b|T2\b/i,&tablelist.)) > 0 %then %do; %t5tables_createdata(dataset=agg_t5disp, whereclause= 1, catvar=daysupp, countvar=adjustedcodecount, cattableid=T1, disttableid=T2, catvarsort=, createfootnote=N); %end; *** Distribution of total episode duration ***; %if %sysfunc(prxmatch(m/T3\b|T4\b/i,&tablelist.)) > 0 %then %do; %t5tables_createdata(dataset=agg_t5episdur, whereclause= 1, catvar=cumepisodelength, countvar=npts, cattableid=T3, disttableid=T4, catvarsort=, createfootnote=N); %end; *** Distribution of episode duration ***; %if %sysfunc(prxmatch(m/T5\b|T6\b/i,&tablelist.)) > 0 %then %do; %t5tables_createdata(dataset=agg_t5episdur, whereclause= 1, catvar=episodelength, countvar=episodes, cattableid=T5, disttableid=T6, catvarsort=, createfootnote=N); %end; %if %sysfunc(prxmatch(m/T7\b|T8\b/i,&tablelist.)) > 0 %then %do; %t5tables_createdata(dataset=agg_t5episdur, whereclause=(episodenum <=1), catvar=episodelength, countvar=episodes, cattableid=T7, disttableid=T8, catvarsort=, createfootnote=N); %end; %if %sysfunc(prxmatch(m/T9\b|T10\b/i,&tablelist.)) > 0 %then %do; %t5tables_createdata(dataset=agg_t5episdur, whereclause=(episodenum >=2), catvar=episodelength, countvar=episodes, cattableid=T9, disttableid=T10, catvarsort=, createfootnote=N); %end; *********************; *** Gap analysis ****; *********************; %if %sysfunc(prxmatch(m/T11\b/i,&tablelist.)) > 0 %then %do;