/******************************************************************************
* TABLE     : t_demographics  (Parallel-group)
* TITLE     : Demographic and Baseline Characteristics
* POPULATION: Safety Population (SAFFL='Y')
* INPUT     : ADSL
* NOTE      : PSEUDOCODE. Continuous: n, Mean(SD), Median, Min-Max.
*             Categorical: n (%). Columns = treatment arms + Total.
******************************************************************************/
%include "../00_setup_macros.sas";
%setup(study=CP-101, adam=/data/adam, out=/data/tfl);
%designvars(design=PARALLEL);          /* -> TRTVAR=TRT01A, TRTNVAR=TRT01AN */

/* column denominators (N=) per arm + Total */
%bign(ds=adam.adsl, trtvar=&TRTVAR, trtn=&TRTNVAR, popfl=SAFFL, out=_bign);

data adsl; set adam.adsl(where=(SAFFL='Y')); run;

/*--- continuous characteristics: AGE, HEIGHTBL, WEIGHTBL, BMIBL ----------*/
%macro contblk(var=, label=, dp=1, ord=);
  %descstat(ds=adsl, var=&var, class=&TRTVAR &TRTNVAR, dp=&dp, out=_d);
  data _c_&var; set _d; length charlbl $40 stat $20 value $40;
    charlbl="&label"; ord=⩝
    stat='n';            value=put(n,5.);        output;
    stat='Mean (SD)';    value=catx(' ',cmean,csd); output;
    stat='Median';       value=cmed;             output;
    stat='Min, Max';     value=cminmax;          output;
  run;
%mend;
%contblk(var=AGE,      label=Age (years),     dp=0, ord=1);
%contblk(var=WEIGHTBL, label=Weight (kg),     dp=1, ord=2);
%contblk(var=HEIGHTBL, label=Height (cm),     dp=1, ord=3);
%contblk(var=BMIBL,    label=BMI (kg/m^2),    dp=1, ord=4);

/*--- categorical characteristics: SEX, RACE, ETHNIC, AGEGR1 -------------*/
%macro catblk(var=, label=, ord=);
  %catfreq(ds=adsl, var=&var, class=&TRTVAR &TRTNVAR, denom=_bign, out=_f);
  data _c_&var; set _f; length charlbl $40 stat $40 value $40;
    charlbl="&label"; ord=⩝ stat=vvalue(&var);
    value=catx(' ', put(count,5.), cats('(',put(pct,5.1),'%)'));  /* n (xx.x%) */
  run;
%mend;
%catblk(var=SEX,    label=Sex n (%),        ord=5);
%catblk(var=RACE,   label=Race n (%),       ord=6);
%catblk(var=ETHNIC, label=Ethnicity n (%),  ord=7);

/*--- stack, transpose to one column per treatment, render --------------*/
data _all; set _c_:; run;
proc sort data=_all; by ord charlbl stat; run;
proc transpose data=_all out=_wide;
  by ord charlbl stat;  id &TRTNVAR;  var value;     /* one col per arm + Total */
run;

%tfltitle(num=14.1.2, type=Table, text=Demographic and Baseline Characteristics,
          pop=Safety Population,
          foot=%str(Percentages based on the number of participants in the Safety Population per arm.));
proc report data=_wide nowd split='|';
  columns ord charlbl stat ("Treatment" _NAME_  /* arm cols + Total */);
  define ord     / order noprint;
  define charlbl / order  'Characteristic' width=24;
  define stat    / display 'Statistic'      width=14;
  /* define <each arm var> / display center "&header (N=&n)"; */
run;