Listing 16.2.1.1 Assignment to Analysis Populations

/*******************************************************************
* Client:  PHARMA Private Limited.                                                           
* Project: Protocol: 043-1-2025                                                     
* Program: L_16_2_1_1.SAS  
*
* Program Type: Listing
*
* Purpose: To produce Listing
* Usage Notes: 
*
* SAS® Version: 9.4
* Operating System: Windows 2010 Standard Edition.                   
*
* Author: shiva
* Date Created: 29-Jan-2025
* Modification History:
*******************************************************************/    

/*GET ADAM DATASET INTO SAS *//*SOURCE TLF/TLG --ADAM*/
LIBNAME ADAM "G:\TA_ONCO_01_24122024\ADaM";

/*KEEP THE REQUIRED VARIBALES AS PER MOCK SHELL*/
DATA ADSL;
SET ADAM.ADSL;
KEEP USUBJID SAFFL DLTEVLFL PKEVLFL ENRLFL;
RUN;


%macro _RTFSTYLE_;

proc template;
 define style styles.test;
     parent=styles.rtf;
    replace fonts /
     'BatchFixedFont' = ("Courier New",9pt)
     'TitleFont2' = ("Courier New",9pt)
     'TitleFont' = ("Courier New",9pt)
     'StrongFont' = ("Courier New",9pt)
     'EmphasisFont' = ("Courier New",9pt)
     'FixedEmphasisFont' = ("Courier New",9pt)
     'FixedStrongFont' = ("Courier New",9pt)
     'FixedHeadingFont' = ("Courier New",9pt)
     'FixedFont' = ("Courier New",9pt)
     'headingEmphasisFont' = ("Courier New",9pt)
     'headingFont' = ("Courier New",9pt)
     'docFont' = ("Courier New",9pt);
      replace table from output /
      cellpadding = 0pt
      cellspacing = 0pt
     borderwidth = 0.50pt
      background=white
      frame=void;
  replace color_list /
     'link' = black
     'bgH' = white
     'fg' = black
     'bg' = white;

  replace Body from Document /
      bottommargin = 1.00in
      topmargin = 1.00in
      rightmargin = 1.00in
      leftmargin = 1.00in; 
   end;
run;

%MEND _RTFSTYLE_;
%_RTFSTYLE_;


TITLE1 J=L "PHARMA Private Limited.";
TITLE2 J=L "Protocol: 043-1-2025";
TITLE3 J=C "16.2.1.1 Assignment to Analysis Populations";
FOOTNOTE1 J=L "G:\TA_ONCO_01_24122024\PGM\L_16_2_1_1";

OPTION ORIENTATION=LANDSCAPE;
ODS ESCAPECHAR='^';
ODS RTF FILE='G:\TA_ONCO_01_24122024\OUTPUTS\L_16_2_1_1.RTF' STYLE=Styles.Test
;

PROC REPORT DATA=ADSL NOWD STYLE={OUTPUTWIDTH=100%} MISSING SPLIT="|";
COLUMN USUBJID SAFFL DLTEVLFL PKEVLFL ENRLFL;

DEFINE USUBJID/ORDER "Subject|Number"
STYLE (COLUMN) ={JUST=L CELLWIDTH=20%}
STYLE (HEADER) ={JUST=L CELLWIDTH=20%};

DEFINE SAFFL/ "Safety|Population"
STYLE (COLUMN) ={JUST=L CELLWIDTH=20%}
STYLE (HEADER) ={JUST=L CELLWIDTH=20%};

DEFINE DLTEVLFL/ "DLT Evaluable|Population"
STYLE (COLUMN) ={JUST=L CELLWIDTH=20%}
STYLE (HEADER) ={JUST=L CELLWIDTH=20%};

DEFINE PKEVLFL/ "PK Evaluable|Population"
STYLE (COLUMN) ={JUST=L CELLWIDTH=20%}
STYLE (HEADER) ={JUST=L CELLWIDTH=20%};

DEFINE ENRLFL/ "Enrolled|Population"
STYLE (COLUMN) ={JUST=L CELLWIDTH=19%}
STYLE (HEADER) ={JUST=L CELLWIDTH=19%};

COMPUTE BEFORE _PAGE_;
LINE@1 "^{STYLE[OUTPUTWIDTH=100% BORDERTOPWIDTH=0.5PT]}";
ENDCOMP;

COMPUTE AFTER _PAGE_;
LINE@1 "^{STYLE[OUTPUTWIDTH=100% BORDERTOPWIDTH=0.5PT]}";
ENDCOMP;
RUN;

ODS _ALL_ CLOSE;