$apr_decl = "SELECT ...";
# Runs Query
@ap = &run_query($apr_decl);
print APR "CRAC_EVNT_DATA_T, Number Declined\n";
print APR "@ap";

$decl_reason = "SELECT ...;"
# Runs Query
@reason = &run_query($apr_decl);
print REASON "CRAC_EVNT_DATA_T, Number Declined\n";
print REASON "@reason";