qrp_report
Public
Source
%assignlabelvars(format=put(&secondstrat., $&secondstrat.fmt.), sortorder1 = , sortorder2=input(put(&secondstrat., &secondstrat.sort.),1.));***************************************************************************************************** PROGRAM OVERVIEW****************************************************************************************************** PROGRAM: t5tables_createdata.sas * Created (mm/dd/yyyy): 08/06/2021**--------------------------------------------------------------------------------------------------* PURPOSE: The macro produces tables for a Type 5 report* * Program inputs: * - agg_t5episdur.sas7bdat * - agg_t5disp.sas7bdat* - agg_t5first.sas7bdat* ** Program outputs: * - 1 dataset per table in the format [TableID]_[StratificationOrder]* * PARAMETERS: * - dataset: aggregate dataset from %aggregate_report_tables* - whereclause: where clause to restrict input dataset* - catvar: variable that will be categorized* - countvar: metric counting counts* - cattableid: category table ID from TABLEFILE* - disttableid: distribution table ID from TABLEFILE** * Programming Notes: * - Censor tables are computed in a separate macro (censortable_createdata.sas) * - 'overall' stratification is required for any additional stratification **--------------------------------------------------------------------------------------------------* CONTACT INFO: * Sentinel Coordinating Center* info@sentinelsystem.org****************************************************************************************************;%macro t5tables_createdata(dataset=, whereclause=, catvar=, countvar=, cattableid=, disttableid=); %put =====> MACRO CALLED: t5tables_createdata ; /*--------------------------------------------------------------------------------------------*/ /* Determine all levelIDs and stratifications requested */ /*--------------------------------------------------------------------------------------------*/ %let tablesub = ; %let tablesublist = ; proc sql noprint; select distinct quote(levelid1), quote(levelid2) into :levellist1 separated by ',', :levellist2 separated by ',' from tablefile where table in (%if %str("&cattableid.") ne %str("") %then %do; "&cattableid" %end; %if %str("&disttableid.") ne %str("") %then %do; "&disttableid" %end;); /*stratification variable list*/ select distinct tablesub