This post was kindly contributed by SAS & Statistics - go there to comment and to read the full post. |
%macro vol(type,desc);
proc report data=fmxx center headline headskip split=’/’;
      column site_id havevis &type.2 &type.3 &type.p1 &type.p2;
      define site_id / group id order=internal width=16 left ‘Clinical Center’style(header)={cellwidth= 1.2in just=left} style(column)={cellwidth= 1.2in cellheight=0.17in just=left};
      define havevis / sum style(header)={cellwidth=.9in} ‘All/Visits’ center ;
      define &type.2 / sum style(header)={cellwidth=.9in} width=15 “Any/&desc” center ;
      define &type.3 / sum style(header)={cellwidth=.9in} width=15 “3+ Volumes/for &desc/n” center ;
      define &type.p1 / computed width=10 format=5.1 “3+ Volumes/for &desc/% (1)” center;
      define &type.p2 / computed width=10 format=5.1 “3+ Volumes/for &desc/% (2)” center;
      compute &type.p1;
            &type.p1=(&type.3.sum*100)/&type.2.sum;
      endcomp;
      compute &type.p2;
            &type.p2=(&type.3.sum*100)/havevis.sum;
      endcomp;
title1 ” “;
run;
%mend;
%vol(head, Head);
If data is already summarized, use the following code for compute:
      compute &type.p1;
            _c5_=(_c4_*100)/_c3_;
      endcomp;
      compute &type.p2;
            _c6_=(_c4_*100)/_c2_;
      endcomp;
This post was kindly contributed by SAS & Statistics - go there to comment and to read the full post. |