**** PERFORM A SIMPLE COUNT OF EACH TREATMENT ARM AND OUTPUT RESULT;
**** AS MACRO VARIABLES. N1 = 1ST COLUMN N FOR ACTIVE THERAPY,
**** N2 = 2ND COLUMN N FOR PLACEBO, N3 IS THE 3RD COLUMN TOTAL N.;
proc sql noprint;
**** PLACE THE NUMBER OF ACTIVE SUBJECTS IN &N1.;
select count(distinct usubjid) format = 3.
into :n1
from adsl
where trtpn = 1;
**** PLACE THE NUMBER OF PLACEBO SUBJECTS IN &N2.;
select count(distinct usubjid) format = 3.
into :n2
from adsl
where trtpn = 0;
**** PLACE THE TOTAL NUMBER OF SUBJECTS IN &N3.;
select count(distinct usubjid) format = 3.
into :n3
from adsl
where trtpn ne .;
quit;
***** MERGE CCONCOMITANT MEDICATIONS AND TREATMENT DATA.
***** KEEP RECORDS FOR SUBJECTS WHO HAD CONMEDS AND STUDY THERAPY.
***** GET UNIQUE CONCOMITANT MEDICATIONS WITHIN PATIENTS.;
procsql
noprint;
create table cmtosum as
select unique(c.cmdecod) as cmdecod, c.usubjid, t.trtpn
from cm as c, adsl as t
where c.usubjid = t.usubjid
order by usubjid, cmdecod;
quit;
**** GET MEDICATION COUNTS BY TREATMENT AND PLACE IN DATASET COUNTS.;
**** TURN OFF LST OUTPUT.; ➋
ods listing close;
**** SEND SUMS BY TREATMENT TO COUNTS DATA SET.;
ods output CrossTabFreqs = counts;
procfreq
data = cmtosum;
tables trtpn * cmdecod;
run;
ods output close;
ods listing;
proc sort
data = counts;
by cmdecod;
run;
**** MERGE COUNTS DATA SET WITH ITSELF TO PUT THE THREE
**** TREATMENT COLUMNS SIDE BY SIDE FOR EACH CONMED. CREATE GROUP
**** VARIABLE WHICH ARE USED TO CREATE BREAK LINE IN THE REPORT.
**** DEFINE COL1-COL3 WHICH ARE THE COUNT/% FORMATTED COLUMNS.; ➌
data cm;
merge counts(where = (trtpn = 1) rename = (frequency = count1))
counts(where = (trtpn = 0) rename = (frequency = count2))
counts(where = (trtpn = .) rename = (frequency = count3))
end = eof;
by cmdecod;
keep cmdecodrowlabel col1-col3 section;
length rowlabel $ 25 col1-col3 $ 10;
**** LABEL “ANY MEDICATION” ROW AND PUT IN FIRST GROUP.
**** BY MEDICATION COUNTS GO IN THE SECOND GROUP.;
if cmdecod = '' then
do;
rowlabel = “ANY MEDICATION”;
section = 1;
end;
else
do;
rowlabel = cmdecod;
section = 2;
end;
**** CALCULATE PERCENTAGES AND CREATE N/% TEXT IN COL1-COL3.;
pct1 = (count1 / &n1) * 100;
pct2 = (count2 / &n2) * 100;
pct3 = (count3 / &n3) * 100;
col1 = put(count1,3.) || “ (” || put(pct1, 3.) || “%)”;
col2 = put(count2,3.) || “ (” || put(pct2, 3.) || “%)”;
col3 = put(count3,3.) || “ (” || put(pct3, 3.) || “%)”;
run;
**** USE PROC REPORT TO WRITE THE CONMED TABLE TO FILE.;
options nodatenonumber missing = ' ';
odsescapechar='#';
ods pdf style=htmlblue file='program5.5.pdf';
proc report
data=cm
nowindows
split = “|”;
columns section rowlabel col1 col2 col3;
define section /order order = internal noprint;
define rowlabel /order width=25 “Preferred Medication Term”;
define col1 /display center width=14 “Active|N=&n1”;
define col2 /display center width=14 “Placebo|N=&n2”;
define col3 /display center width=14 “Total|N=&n3”;
compute after section;
line '#{newline}';
endcomp;
title1 j=l 'Company/Trial Name'
j=r 'Page #{thispage} of #{lastpage}';
title2 j=c 'Table 5.5';
title3 j=c 'Summary of Concomitant Medication';
run;
ods pdf close;
