A colleague pointed out to me that the PARETO procedure in SAS/QC software can do the computations and make the chart without any pre-processing. Here's the example from this article:

title;
%let numcats = 20;
/* Set MAXNCAT= option to numcats+1 to specify the total number of bars */
/* The LAST= option adds the Others category */
/* Alas, there is no way to move the axis to the bottom. */
proc pareto data=sashelp.cars;
hbar make / maxncat=%eval(&numcats+1) nocurve scale=count other="Others" last="Others"
odstitle="Top 20 Vehicle Manufacturers and 'Others' Category";
run;

There are other options that you can specify on the HBAR statement that control how the "Others" category is created. For details, see the documentation for the PARETO procedure