99: BEGIN
100:
101: SELECT 'x'
102: INTO l_check_code
103: FROM pa_budget_types
104: WHERE budget_type_code = l_cost_budget_type_code
105: AND budget_amount_code = 'C';
106:
107: EXCEPTION
121: BEGIN
122:
123: SELECT 'x'
124: INTO l_check_code
125: FROM pa_budget_types
126: WHERE budget_type_code = l_rev_budget_type_code
127: AND budget_amount_code = 'R';
128:
129: EXCEPTION