proc template;
    define statgraph survplot;
    begingraph / border=false datacontrastcolors=(blue green orange);

    layout lattice / rows=3 rowweights=(0.78 0.1 0.12) ROWGUTTER=5;
    layout overlay / xaxisopts=(label = "Progression Free Survival (Month)" linearopts=(tickvaluesequence=(start=0 end=&max increment=2)))
                     yaxisopts=(label = "Survival Probability" linearopts=(tickvaluesequence=(start=0 end=1 increment=0.2)));

	drawtext textattrs=(color=gray size=90pt) "DRAFT" / width=110 rotate=35 transparency=0.8;

        stepplot x = time y = survival / group = grp lineattrs = (pattern = solid thickness = 3) name = "Progression Free Survival (Month)";
        scatterplot x=time y=censored /group=grp markerattrs = (symbol = plus size=12) name = "Censored";
        
        referenceline y=0.5 / lineattrs=(pattern=shortdash);
        referenceline x=6   / lineattrs=(thickness=3 color=black pattern=dash);
        referenceline x=12   / lineattrs=(thickness=3 color=black pattern=dash);
    endlayout;

    layout overlay / walldisplay=none xaxisopts=(display=none);
        innermargin / align=bottom;
            axistable x=time value=x_cnt / class=grp colorgroup=grp  headerlabel='Patients at Risk' headerlabelattrs=(weight=bold) display=(values);
        endinnermargin;
    endlayout;

     layout overlay / walldisplay=none xaxisopts=(display=none);
        
            discretelegend "Progression Free Survival (Month)" / location=inside valign=top halign=left border=false;
        
    endlayout;


    endlayout;
    endgraph;
    end;
 run;

 proc sgrender data=SurvivalPlot template=survplot;    
 run;