Graphics

%let graphs='.';
%let dpi=100;
%let w=8in;
%let h=4.5in;

/*--Adverse Events timeline data--*/
data ae0;
   retain aestdateMin;
   retain aeendateMax;
   attrib aestdate informat=yymmdd10. format=date7.;
   attrib aeendate informat=yymmdd10. format=date7.;
   format aestdateMin aeendateMax date7.;
   drop aestdateMin aeendateMax;
   input aeseq aedecod $ 5-39 aesev $ aestdate aeendate;

   aestdateMin=min(aestdate, aestdateMin);
   aeendateMax=max(aeendate, aeendateMax);
   call symputx('mindate', aestdateMin);
   call symputx('maxdate', aeendateMax);
   y=aeseq;
   if aedecod=" " then y=-9;

datalines;
.                                       MILD      2013-03-06  2013-03-06  Legend
.                                       MODERATE  2013-03-06  2013-03-06  Legend
.                                       SEVERE    2013-03-06  2013-03-06  Legend
1   DIZZINESS                           MODERATE  2013-03-06  2013-03-07          
2   COUGH                               MILD      2013-03-20  .                   
3   APPLICATION SITE DERMATITIS         MILD      2013-03-26  2013-06-18          
4   DIZZINESS                           MILD      2013-03-27  2013-03-27          
5   ELECTROCARDIOGRAM T WAVE INVERSION  MILD      2013-03-30  .                   
6   DIZZINESS                           MILD      2013-04-01  2013-04-11          
8   APPLICATION SITE DERMATITIS         MODERATE  2013-03-26  2013-06-18          
9   HEADACHE                            MILD      2013-05-17  2013-05-18          
11  PRURITUS                            MODERATE  2013-05-27  2013-06-18          
;
run;

/*--Evaluate min and max day and dates--*/
data _null_;
  set ae0;
  minday=0;
  maxday= &maxdate - &mindate;
  minday10 = -10;
  mindate10=&mindate - 10;
  call symputx('minday', minday);
  call symputx('maxday', maxday);
  call symputx('minday10', minday10);
  call symputx('mindate10', mindate10);
  run;

/*--Compute start and end date and bar caps based on event start, end--*/
data ae2;
  set ae0;

  aestdy= aestdate-&mindate+0;
  aeendy= aeendate-&mindate+0;
  stday=aestdy;
  enday=aeendy;

  if aestdy=. then do;
    stday=&minday;
	lcap='ARROW';
  end;
  if aeendy=. then do;
    enday=&maxday;
    hcap='ARROW';
  end;

  xs=0;
  run;

/*--Attribute Maps--*/
data attrmap;
  retain id 'Severity';
  length value $9 fillcolor $ 15;
  input value fillcolor;
  datalines;
MILD      cx00af00
MODERATE  cxcfaf00
SEVERE    cxaf0000
;
run;

/*--Draw the Graph--*/
ods listing style=htmlBlue gpath=&graphs image_dpi=&dpi;
ods graphics / reset width=&w height=&h imagename="AETimeline_V93";
title "Adverse Events for Patient Id = xx-xxx-xxxx";
proc sgplot data=ae2  nocycleattrs dattrmap=attrmap;
  /*--Draw the events--*/
  highlow y=aeseq low=stday high=enday / group=aesev lowlabel=aedecod type=bar 
          barwidth=1 lineattrs=(color=black) lowcap=lcap highcap=hcap 
          attrid=Severity labelattrs=(size=10 weight=bold color=cx4f4f4f) 
          lineattrs=(thickness=2) name='sev';

  /*--Assign dummy plot to create independent X2 axis--*/
  scatter x=aestdate y=aeseq /  markerattrs=(size=0) x2axis;

  refline 0 / axis=x lineattrs=(thickness=1 color=black);

  /*--Assign axis properties data extents and offsets--*/
  yaxis display=(nolabel noticks novalues) type=discrete;
  xaxis grid label='Study Days' values=(&minday10 to &maxday by 2);
  x2axis notimesplit display=(nolabel) values=(&mindate10 to &maxdate);

  /*--Draw the legend--*/
  keylegend 'sev'/ title='Severity :';
  run;

title;
footnote;