49: /* -----------------------------------------------------------
50: Initialize the Output Variables
51: ----------------------------------------------------------- */
52:
53: l_return_status := FND_API.G_RET_STS_SUCCESS;
54: l_msg_count := 0;
55:
56: l_raw_cost_total := NULL;
57: l_burdened_cost_total := NULL;
243:
244: EXCEPTION
245:
246: WHEN invalid_cost_budget_code THEN
247: x_return_status := FND_API.G_RET_STS_ERROR;
248: x_msg_count := 1;
249: x_msg_data := 'INVALID_COST_BUDGET_TYPE';
250: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_MC_BILLING_PVT',
251: p_procedure_name => 'get_budget_amount');
251: p_procedure_name => 'get_budget_amount');
252:
253: WHEN invalid_rev_budget_code THEN
254:
255: x_return_status := FND_API.G_RET_STS_ERROR;
256: x_msg_count := 1;
257: x_msg_data := 'INVALID_REV_BUDGET_TYPE';
258: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_MC_BILLING_PVT',
259: p_procedure_name => 'get_budget_amount');
258: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_MC_BILLING_PVT',
259: p_procedure_name => 'get_budget_amount');
260:
261: WHEN rev_budget_not_baselined THEN
262: x_return_status := FND_API.G_RET_STS_ERROR;
263: x_msg_count := 1;
264: x_msg_data := 'REV_BUDGET_NOT_BASELINED';
265: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_MC_BILLING_PVT',
266: p_procedure_name => 'get_budget_amount');
265: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_MC_BILLING_PVT',
266: p_procedure_name => 'get_budget_amount');
267:
268: WHEN cost_budget_not_baselined THEN
269: x_return_status := FND_API.G_RET_STS_ERROR;
270: x_msg_count := 1;
271: x_msg_data := 'COST_BUDGET_NOT_BASELINED';
272: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_MC_BILLING_PVT',
273: p_procedure_name => 'get_budget_amount');
274:
275: WHEN OTHERS THEN
276: x_msg_count := 1;
277: x_msg_data := SUBSTR(SQLERRM, 1, 240);
278: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
279:
280: FND_MSG_PUB.add_Exc_msg(
281: p_pkg_name => 'PA_MC_BILLING_PVT',
282: p_procedure_name => 'get_budget_amount');
357: /* -----------------------------------------------------------
358: Initialize the Output Variables
359: ----------------------------------------------------------- */
360:
361: l_return_status := FND_API.G_RET_STS_SUCCESS;
362: l_msg_count := 0;
363:
364:
365:
483: EXCEPTION
484: WHEN OTHERS THEN
485: x_msg_count := 1;
486: x_msg_data := SUBSTR(SQLERRM, 1, 240);
487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
488:
489: FND_MSG_PUB.add_Exc_msg(
490: p_pkg_name => 'PA_MC_BILLING_PVT',
491: p_procedure_name => 'get_budget_amount');
519: /* -----------------------------------------------------------
520: Initialize the Output Variables
521: ----------------------------------------------------------- */
522:
523: l_return_status := FND_API.G_RET_STS_SUCCESS;
524: l_msg_count := 0;
525:
526:
527:
562: EXCEPTION
563: WHEN OTHERS THEN
564: x_msg_count := 1;
565: x_msg_data := SUBSTR(SQLERRM, 1, 240);
566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
567:
568: FND_MSG_PUB.add_Exc_msg(
569: p_pkg_name => 'PA_MC_BILLING_PVT',
570: p_procedure_name => 'get_cost_amount');
600: /* -----------------------------------------------------------
601: Initialize the Output Variables
602: ----------------------------------------------------------- */
603:
604: l_return_status := FND_API.G_RET_STS_SUCCESS;
605: l_msg_count := 0;
606: l_mc_revenue_amount := 0;
607:
608:
640: EXCEPTION
641: WHEN OTHERS THEN
642: x_msg_count := 1;
643: x_msg_data := SUBSTR(SQLERRM, 1, 240);
644: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
645:
646: FND_MSG_PUB.add_Exc_msg(
647: p_pkg_name => 'PA_MC_BILLING_PVT',
648: p_procedure_name => 'get_pot_event_amount');
687: /* -----------------------------------------------------------
688: Initialize the Output Variables
689: ----------------------------------------------------------- */
690:
691: l_return_status := FND_API.G_RET_STS_SUCCESS;
692: l_msg_count := 0;
693:
694:
695: /* -----------------------------------------------------------------
766: EXCEPTION
767: WHEN OTHERS THEN
768: x_msg_count := 1;
769: x_msg_data := SUBSTR(SQLERRM, 1, 240);
770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
771:
772: FND_MSG_PUB.add_Exc_msg(
773: p_pkg_name => 'PA_MC_BILLING_PVT',
774: p_procedure_name => 'get_Lowest_amount_left');
804: /* -----------------------------------------------------------
805: Initialize the Output Variables
806: ----------------------------------------------------------- */
807:
808: l_return_status := FND_API.G_RET_STS_SUCCESS;
809: l_msg_count := 0;
810:
811: /* ---------------------------------------------------------------------
812: Get the Event Revenue amount for the pending revenue for the
905: EXCEPTION
906: WHEN OTHERS THEN
907: x_msg_count := 1;
908: x_msg_data := SUBSTR(SQLERRM, 1, 240);
909: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
910:
911: FND_MSG_PUB.add_Exc_msg(
912: p_pkg_name => 'PA_MC_BILLING_PVT',
913: p_procedure_name => 'get_revenue_amount');