460: IF ( (x_budget_type_code = 'AR')
461: AND (x_project_type_class_code = 'CONTRACT'))
462: THEN
463:
464: -- call pa_billing_core.update_funding to update funding tables if
465: -- necessary.
466: -- check project funding level flag properly
467: x_err_stage := 'Calling pa_billing_core.check_funding_level for AR budget';
468: print_msg(x_err_stage);
463:
464: -- call pa_billing_core.update_funding to update funding tables if
465: -- necessary.
466: -- check project funding level flag properly
467: x_err_stage := 'Calling pa_billing_core.check_funding_level for AR budget';
468: print_msg(x_err_stage);
469: pa_billing_core.check_funding_level(
470: x_project_id,
471: x_funding_level,
465: -- necessary.
466: -- check project funding level flag properly
467: x_err_stage := 'Calling pa_billing_core.check_funding_level for AR budget';
468: print_msg(x_err_stage);
469: pa_billing_core.check_funding_level(
470: x_project_id,
471: x_funding_level,
472: x_err_code,
473: x_err_stage,
476: if (x_err_code <> 0) then
477: return;
478: end if;
479:
480: x_err_stage := 'Calling pa_billing_core.update_funding';
481: print_msg(x_err_stage);
482: pa_billing_core.update_funding(
483: x_project_id,
484: x_funding_level, -- Funding level
478: end if;
479:
480: x_err_stage := 'Calling pa_billing_core.update_funding';
481: print_msg(x_err_stage);
482: pa_billing_core.update_funding(
483: x_project_id,
484: x_funding_level, -- Funding level
485: x_err_code,
486: x_err_stage,
494: ELSIF ( (x_budget_type_code = 'AC')
495: AND (x_project_type_class_code <> 'CONTRACT'))
496: THEN
497:
498: -- call pa_billing_core.update_funding to update funding tables if
499: -- necessary.
500: x_err_stage := 'Calling pa_billing_core.update_funding for AC budget';
501: print_msg(x_err_stage);
502: pa_billing_core.update_funding(
496: THEN
497:
498: -- call pa_billing_core.update_funding to update funding tables if
499: -- necessary.
500: x_err_stage := 'Calling pa_billing_core.update_funding for AC budget';
501: print_msg(x_err_stage);
502: pa_billing_core.update_funding(
503: x_project_id,
504: x_funding_level, -- Funding level
498: -- call pa_billing_core.update_funding to update funding tables if
499: -- necessary.
500: x_err_stage := 'Calling pa_billing_core.update_funding for AC budget';
501: print_msg(x_err_stage);
502: pa_billing_core.update_funding(
503: x_project_id,
504: x_funding_level, -- Funding level
505: x_err_code,
506: x_err_stage,