369: x_err_msgname := NULL;
370: x_err_stage := 'Checking revenue budget exists...';
371: SELECT 'x' INTO dummy
372: FROM PA_BUDGET_VERSIONS bv,
373: PA_BUDGET_TYPES bt
374: WHERE
375: bv.budget_type_code = bt.budget_type_code
376: AND bt.budget_amount_code = 'R';
377: x_err_stack := x_old_stack;
399: x_err_msgname := NULL;
400: x_err_stage := 'Checking cost budget exists...';
401: SELECT 'x' INTO dummy
402: FROM PA_BUDGET_VERSIONS bv,
403: PA_BUDGET_TYPES bt
404: WHERE
405: bv.budget_type_code = bt.budget_type_code
406: AND bt.budget_amount_code = 'C';
407: x_err_stack := x_old_stack;