You can put report variables:
Initioal Values for all is 0

group_good
group_bad
group_stink

report_good
report_bad
report_stink

In Calculate select Sum

In Value to store write:
group_good -- IIF(field == "GOOD",1,0)
group_bad -- IIF(field == "BAD",1,0)
group_stink -- IIF(field == "STINK",1,0)

For these variables select Reset at ReportGroupKey

report_good -- IIF(field == "GOOD",1,0)
report_bad -- IIF(field == "BAD",1,0)
report_stink -- IIF(field == "STINK",1,0)

For these variables select Reset at "End of Report"


The way to invoke some procedure from report:

Double click Group bar and on On Entry Write DO YourProcedure