qrp_report
Public
Source
%put WARNING: (Sentinel) L2ComparisonFile is required when ReportType = T2L2 or T4L2 in order to produce effect estimates and PS histograms. Effect estimates and PS histograms will not be computed;***************************************************************************************************** PROGRAM OVERVIEW****************************************************************************************************** PROGRAM: process_inputfiles.sas * Created (mm/dd/yyyy): 11/30/2020**--------------------------------------------------------------------------------------------------* PURPOSE: The macro reads in the CREATEREPORTFILE and other input files and merges in relevant* QRP input file parameter values* * Program inputs: * * Program outputs: ** PARAMETERS: * * Programming Notes: * **--------------------------------------------------------------------------------------------------* CONTACT INFO: * Sentinel Coordinating Center* info@sentinelsystem.org****************************************************************************************************;%macro process_inputfiles(); %put =====> MACRO CALLED: process_inputfiles ;/**************************************************************************************************** Read in CREATEREPORTFILE and assign each parameter to a macro variable ***************************************************************************************************/ %isdata(dataset=input.&createreportfile.); %if %eval(&nobs<1) %then %do; %put ERROR: (Sentinel) CREATEREPORTFILE is missing.; %put ERROR: (Sentinel) Make sure file is specified correctly and placed in the inputfiles folder; %abort; %end; proc sql noprint; select count(*) into: numparms from input.&createreportfile; quit; /*Assign all parameters to macro variables*/ %do createreportparameter = 1 %to %eval(&numparms.); data _null_; set input.&createreportfile; if _n_ = &createreportparameter. then do; call symputx("parameter", strip(parameter)); call symputx("value", strip(value)); /*defensive*/ if lowcase(parameter) in ('reporttype','stratifybydp','small_cellcounts','report_destination') then call symputx("value",upcase(value)); /*default report_destination is both*/ if lowcase(parameter) = 'report_destination' and missing(value) then call symputx("value","BOTH"); /*add parenthesis for datedistributed*/ if lowcase(parameter) in ('datedistributed') and missing(value)=0 then call symputx("value",cats('(', strip(value), ')')); end; run; %let ¶meter. = &value.; %end;/**************************************************************************************************** Check that REPORTTYPE is valid ***************************************************************************************************/ /*Valid values: - T1: Type 1 report - T2L1: Level 1, type 2 report - T2L2: Level 2, type 2 report - ITS: ITS report - T4L1: Level 1, type 4 report - T4L2: Level 2, type 4 report - T5: Type 5 report - T6: Type 6 report - TREE2: tree aggregation for Type 2 - TREE3: tree aggregration for Type 3 - TREE4: tree aggregation for Type 4 */ %if %sysfunc(prxmatch(m/T1|T2L1|T2L2|ITS|T4L1|T4L2|T5|T6|TREE2|TREE3|TREE4/i,&reporttype.)) <= 0 %then %do; %put ERROR: (SENTINEL) REPORTTYPE parameter is invalid. Reporting tool will abort.; %abort; %end;/**************************************************************************************************** Read in DPINFOFILE and mask DPs ***************************************************************************************************/ /*Check if DPINFOFILE exists and contains at least 1 DP to include in report*/