/******************************************************************************
* LISTING   : l_pd  (Crossover - 2x2 or Williams)
* TITLE     : Listing of Pharmacodynamic Biomarker Results
* POPULATION: PD / Pharmacodynamic Analysis Population (PDFL='Y')
* INPUT     : ADPD (all PD biomarker parameters; AVAL, BASE, CHG, PCHG;
*             AVISIT/ATPT; TRTA, APERIODC, TRTSEQP, ANRIND)
* NOTE      : PSEUDOCODE. Participant-level listing ordered by sequence, participant,
*             treatment PERIOD, treatment, parameter, visit/timepoint. Shows
*             actual value, within-period baseline and change, and reference-
*             range indicator. Crossover key: TRTSEQP / APERIODC / TRTA all
*             retained so a reader can see what each participant got in each period.
******************************************************************************/
%include "../00_setup_macros.sas";
%setup(study=CP-101, adam=/data/adam, out=/data/tfl);
%designvars(design=CROSSOVER);     /* SEQVAR=TRTSEQP ; BYPERIOD=APERIOD APERIODC ; TRTVAR=TRTA */

data pd;
  set adam.adpd(where=(PDFL='Y'));
  length subjid $20;
  subjid = scan(USUBJID, -1, '-');           /* short participant id for display  */
run;

proc sort data=pd;
  by &SEQVAR USUBJID APERIOD APERIODC &TRTVAR PARAMCD AVISITN ATPTN;
run;

%tfltitle(num=16.2.8.3, type=Listing,
   text=%str(Listing of Pharmacodynamic Biomarker Results),
   pop=Pharmacodynamic Analysis Population,
   foot=%str(Baseline = within-period baseline; CHG = AVAL - BASE; PCHG = % change vs BASE. ANRIND = reference-range indicator (L/N/H). Ordered by sequence, participant, treatment period.));
proc report data=pd nowd split='|';
  columns &SEQVAR subjid APERIODC &TRTVAR PARAM AVISIT ATPT
          AVAL BASE CHG PCHG ANRIND;
  define &SEQVAR / order 'Sequence'        width=10;
  define subjid  / order 'Participant'         width=10;
  define APERIODC/ order 'Period'          width=10;
  define &TRTVAR / order 'Treatment'       width=16;
  define PARAM   / order 'PD Parameter'    width=24;
  define AVISIT  / order 'Visit'           width=14;
  define ATPT    / display 'Timepoint'     width=12;
  define AVAL    / display 'Value'         width=9;
  define BASE    / display 'Baseline'      width=9;
  define CHG     / display 'Change'        width=8;
  define PCHG    / display '% Change'      width=8;
  define ANRIND  / display 'Range|Ind'     width=7;
run;