/*<pre><b>
/ Program      : crprotds.sas
/ Version      : 1.2
/ Author       : Roland Rashleigh-Berry
/ Date         : 30-Jul-2007
/ Purpose      : Spectre (Clinical) macro to create a protocol dataset from a
/                protocol details flat file.
/ SubMacros    : none
/ Notes        : The protocol flat file must have a specific form for this macro
/                to work correctly. Actions are driven by special labels starting
/                in the first column as shown below. Lines that do not follow
/                this pattern will be ignored and treated as comment lines.
/
/ drugname: ---  Name of drug
/ protocol: ---  Name of protocol
/ report: -----  Name of report
/ titlestyle: -- Title style (max 8 chars to identify client which will also
/                be the start name of the client titles macro).
/ paper: -----   Whether A4 or Letter
/ margin: ----   Decimal number for the all-round margin in inches.
/ lmargin: ----  Decimal number for the left margin in inches (portrait).
/ rmargin: ----  Decimal number for the right margin in inches (portrait).
/ rmargin: ----  Decimal number for the top margin in inches (portrait).
/ bmargin: ----  Decimal number for the bottom margin in inches (portrait).
/ dflayout: ---  Code to say whether the default page layout is landscape or
/                portrait and whether the lines are tight, followed by the
/                point size. The following examples are all valid: l9 lt9 p10
/                pt11 lt8.5 p10.5
/ dfllayout: --  Default landscape layout.
/ dfplayout: --- Default portrait layout.
/ dfltlayout: --  Default landscape tight layout.
/ dfptlayout: --- Default portrait tight layout.
/ clean: clean in (0,1)     Criteria for selecting clean/unclean patients from
/                           the stat.acct dataset.
/ pagexofy: "Page x of y"   Default style of the "Page x of Y" label (quoted)
/ pagemac: pagexofy         Macro to call to add "page x of y" labels
/ pop1: ---      First defined population.
/ poplabel1: ------  First defined population label.
/ (repeat for populations up to 9)
/ 
/ Usage        : %crprotds(flatfile,der.study)
/
/===============================================================================
/ PARAMETERS:
/-------name------- -------------------------description------------------------
/ flatfile          (pos) File name of flat file containing study details.
/ dsout             (pos) Output dataset containing protocol details.
/===============================================================================
/ AMENDMENT HISTORY:
/ init --date-- mod-id ----------------------description------------------------
/ rrb  13Feb07         "macro called" message added
/ rrb  07Mar07         "pagexofy" variable setup included
/ rrb  25Jun07         "pagemac" variable setup added
/ rrb  30Jul07         Header tidy
/===============================================================================
/ No guarantee as to the suitability or accuracy of this code is given or
/ implied. User uses this code entirely at their own risk.
/=============================================================================*/

%put MACRO CALLED: crprotds v1.2;

%macro crprotds(flatfile,dsout);

  data &dsout;
    length pop1 pop2 pop3 pop4 pop5 pop6 pop7 pop8 pop9 $ 8
           paper margin dflayout dfllayout dfplayout dfltlayout
           dfptlayout titlestyle $ 8 
           pagexofy pagemac $ 32
           poplabel1 poplabel2 poplabel3 poplabel4 
           poplabel5 poplabel6 poplabel7 poplabel8 poplabel9 $ 80
          drugname protocol report text clean $ 200;
    infile "%sysfunc(compress(&flatfile,%str(%'%")))" pad eof=eof;
    loop:
    input @1 text $char200.;
    if upcase(text) EQ: "DRUGNAME:" then drugname=left(substr(text,index(text,":")+1));
    else if upcase(text) EQ: "PROTOCOL:" then protocol=left(substr(text,index(text,":")+1));
    else if upcase(text) EQ: "REPORT:" then report=left(substr(text,index(text,":")+1));
    else if upcase(text) EQ: "TITLESTYLE:" then titlestyle=lowcase(left(substr(text,index(text,":")+1)));
    else if upcase(text) EQ: "PAPER:" then paper=left(substr(text,index(text,":")+1));
    else if upcase(text) EQ: "MARGIN:" then margin=left(substr(text,index(text,":")+1));
    else if upcase(text) EQ: "LMARGIN:" then lmargin=left(substr(text,index(text,":")+1));
    else if upcase(text) EQ: "RMARGIN:" then rmargin=left(substr(text,index(text,":")+1));
    else if upcase(text) EQ: "TMARGIN:" then tmargin=left(substr(text,index(text,":")+1));
    else if upcase(text) EQ: "BMARGIN:" then bmargin=left(substr(text,index(text,":")+1));
    else if upcase(text) EQ: "DFLAYOUT:" then dflayout=upcase(left(substr(text,index(text,":")+1)));
    else if upcase(text) EQ: "DFLLAYOUT:" then dfllayout=upcase(left(substr(text,index(text,":")+1)));
    else if upcase(text) EQ: "DFPLAYOUT:" then dfplayout=upcase(left(substr(text,index(text,":")+1)));
    else if upcase(text) EQ: "DFLTLAYOUT:" then dfltlayout=upcase(left(substr(text,index(text,":")+1)));
    else if upcase(text) EQ: "DFPTLAYOUT:" then dfptlayout=upcase(left(substr(text,index(text,":")+1)));
    else if upcase(text) EQ: "CLEAN:" then clean=left(substr(text,index(text,":")+1));
    else if upcase(text) EQ: "PAGEXOFY:" then pagexofy=left(substr(text,index(text,":")+1));
    else if upcase(text) EQ: "PAGEMAC:" then pagemac=left(substr(text,index(text,":")+1));
    else if upcase(text) EQ: "POP1:" then pop1=upcase(left(substr(text,index(text,":")+1)));
    else if upcase(text) EQ: "POPLABEL1:" then poplabel1=left(substr(text,index(text,":")+1));
    else if upcase(text) EQ: "POP2:" then pop2=upcase(left(substr(text,index(text,":")+1)));
    else if upcase(text) EQ: "POPLABEL2:" then poplabel2=left(substr(text,index(text,":")+1));
    else if upcase(text) EQ: "POP3:" then pop3=upcase(left(substr(text,index(text,":")+1)));
    else if upcase(text) EQ: "POPLABEL3:" then poplabel3=left(substr(text,index(text,":")+1));
    else if upcase(text) EQ: "POP4:" then pop4=upcase(left(substr(text,index(text,":")+1)));
    else if upcase(text) EQ: "POPLABEL4:" then poplabel4=left(substr(text,index(text,":")+1));
    else if upcase(text) EQ: "POP5:" then pop5=upcase(left(substr(text,index(text,":")+1)));
    else if upcase(text) EQ: "POPLABEL5:" then poplabel5=left(substr(text,index(text,":")+1));
    else if upcase(text) EQ: "POP6:" then pop6=upcase(left(substr(text,index(text,":")+1)));
    else if upcase(text) EQ: "POPLABEL6:" then poplabel6=left(substr(text,index(text,":")+1));
    else if upcase(text) EQ: "POP7:" then pop7=upcase(left(substr(text,index(text,":")+1)));
    else if upcase(text) EQ: "POPLABEL7:" then poplabel7=left(substr(text,index(text,":")+1));
    else if upcase(text) EQ: "POP8:" then pop8=upcase(left(substr(text,index(text,":")+1)));
    else if upcase(text) EQ: "POPLABEL8:" then poplabel8=left(substr(text,index(text,":")+1));
    else if upcase(text) EQ: "POP9:" then pop9=upcase(left(substr(text,index(text,":")+1)));
    else if upcase(text) EQ: "POPLABEL9:" then poplabel9=left(substr(text,index(text,":")+1));
    goto loop;
    eof:
    if lmargin=. then lmargin=margin;
    if rmargin=. then rmargin=margin;
    if tmargin=. then tmargin=margin;
    if bmargin=. then bmargin=margin;
    if pagexofy=" " then pagexofy="Page x of Y";
    if pagemac=" " then pagemac="pagexofy";
    output;
    label drugname='Drug name'
          protocol='Protocol'
          report='Report'
          titlestyle='Titles style'
          paper='Paper form (A4, Letter, A4Letter)'
          lmargin='Left margin (inches) (portrait orientation)'
          rmargin='Right margin (inches) (portrait orientation)'
          tmargin='Top margin (inches) (portrait orientation)'
          bmargin='Bottom margin (inches) (portrait orientation)'
          dflayout='Default layout'
          dfllayout='Default landscape layout'
          dfplayout='Default portrait layout'
          dfltlayout='Default landscape tight layout'
          dfptlayout='Default portrait tight layout'
          clean='Criteria for selecting clean/unclean subjects from acct'
          pagexofy='Style of the "Page x of Y" label'
          pagemac='Macro to call to add "Page x of Y" labels'
          pop1='Population 1'
          poplabel1='Population 1 label'
          pop2='Population 2'
          poplabel2='Population 2 label'
          pop3='Population 3'
          poplabel3='Population 3 label'
          pop4='Population 4'
          poplabel4='Population 4 label'
          pop5='Population 5'
          poplabel5='Population 5 label'
          pop6='Population 6'
          poplabel6='Population 6 label'
          pop7='Population 7'
          poplabel7='Population 7 label'
          pop8='Population 8'
          poplabel8='Population 8 label'
          pop9='Population 9'
          poplabel9='Population 9 label'
          ;
    drop text margin;
 run;

%mend crprotds;