5872: then
5873: --EH Changes
5874: BEGIN
5875:
5876: pa_budget_utils2.submit_budget(x_budget_version_id => x_new_budget_ver_id,
5877: x_err_code => x_err_code,
5878: x_err_stage => x_err_stage,
5879: x_err_stack => x_err_stack);
5880:
5883: IF x_err_stage IS NULL
5884: THEN
5885: x_err_stage := pa_project_core1.get_message_from_stack( 'PA_ERR_SUBMIT_BUDGT');
5886: END IF;
5887: x_err_stack := x_err_stack||'->pa_budget_utils2.submit_budget';
5888: ROLLBACK TO before_bill_baseline;
5889: RETURN; -- Application or Oracle error
5890: END IF;
5891: EXCEPTION WHEN OTHERS THEN
5892: x_err_code := 785;
5893: -- x_err_stage := pa_project_core1.get_message_from_stack( null );
5894: IF x_err_stage IS NULL
5895: THEN
5896: x_err_stage := 'API: '||'pa_budget_utils2.submit_budget'||
5897: ' SQL error message: '||SUBSTR( SQLERRM,1,1900);
5898: END IF;
5899: ROLLBACK TO before_bill_baseline;
5900: RETURN;
5925: || x_new_project_id;
5926: --EH Changes
5927: BEGIN
5928:
5929: pa_budget_utils2.rework_budget(x_budget_version_id => x_new_budget_ver_id,
5930: x_err_code => x_err_code,
5931: x_err_stage => x_err_stage,
5932: x_err_stack => x_err_stack);
5933:
5936: IF x_err_stage IS NULL
5937: THEN
5938: x_err_stage := pa_project_core1.get_message_from_stack( 'PA_ERR_REWORK_BUDGT');
5939: END IF;
5940: x_err_stack := x_err_stack||'->pa_budget_utils2.rework_budget';
5941: ROLLBACK TO before_bill_baseline;
5942: RETURN; -- Application or Oracle error
5943: END IF;
5944: EXCEPTION WHEN OTHERS THEN
5945: x_err_code := 790;
5946: -- x_err_stage := pa_project_core1.get_message_from_stack( null );
5947: IF x_err_stage IS NULL
5948: THEN
5949: x_err_stage := 'API: '||'pa_budget_utils2.rework_budget'||
5950: ' SQL error message: '||SUBSTR( SQLERRM,1,1900);
5951: END IF;
5952: ROLLBACK TO before_bill_baseline;
5953: RETURN;