[Home] [Help]
67: cost_budget_not_baselined EXCEPTION;
68:
69: BEGIN
70: IF g1_debug_mode = 'Y' THEN
71: PA_MCB_INVOICE_PKG.log_message('Entering pa_billing_pub.get_budget_amount: ');
72: END IF;
73: X_status := 0;
74: X_error_message := NULL;
75: BEGIN
274:
275: -- If any exception then raise it to the calling pl/sql block
276: --
277: IF g1_debug_mode = 'Y' THEN
278: PA_MCB_INVOICE_PKG.log_message('Exiting pa_billing_pub.get_budget_amount: ');
279: END IF;
280: EXCEPTION
281: WHEN invalid_cost_budget_code THEN
282: status := pa_billing_values.get_message('INVALID_COST_BUDGET_TYPE');
493:
494: BEGIN
495:
496: IF g1_debug_mode = 'Y' THEN
497: PA_MCB_INVOICE_PKG.log_message('Entering pa_billing_pub.get_amount: ');
498: END IF;
499: total_amount := 0;
500:
501: IF (X_Request_id IS NULL) THEN -->No RqstId given
529: END IF;
530: X_amount := pa_currency.round_currency_amt(total_amount);
531:
532: IF g1_debug_mode = 'Y' THEN
533: PA_MCB_INVOICE_PKG.log_message('Exiting pa_billing_pub.get_amount: ');
534: END IF;
535: EXCEPTION
536: WHEN NO_DATA_FOUND THEN
537: -- DBMS_OUTPUT.PUT_LINE(SQLERRM);
574: xo_line_num NUMBER(15);
575:
576: BEGIN
577: IF g1_debug_mode = 'Y' THEN
578: PA_MCB_INVOICE_PKG.log_message('Entering pa_billing_pub.insert_message: ');
579: END IF;
580: x_created_by := FND_GLOBAL.USER_ID;
581: x_last_updated_by := FND_GLOBAL.USER_ID;
582: x_last_update_login := FND_GLOBAL.LOGIN_ID;
663:
664: --commit;
665:
666: IF g1_debug_mode = 'Y' THEN
667: PA_MCB_INVOICE_PKG.log_message('Exiting pa_billing_pub.insert_message: ');
668: END IF;
669: EXCEPTION
670: WHEN OTHERS THEN
671: -- DBMS_OUTPUT.PUT(SQLERRM);
806:
807: BEGIN
808: BEGIN
809: IF g1_debug_mode = 'Y' THEN
810: PA_MCB_INVOICE_PKG.log_message('Entering pa_billing_pub.insert_event:' );
811: END IF;
812: -- Assigning who columns for insertion into PA_EVENTS.
813:
814: created_by := FND_GLOBAL.USER_ID;
871:
872: /* Rounding the transaction amount upto the precision of transaction currency for MCB2 */
873: XD_bill_trans_rev_amt := PA_MULTI_CURRENCY_BILLING.ROUND_TRANS_CURRENCY_AMT(NVL(X_rev_amt, 0),l_txn_currency_code);
874: IF g1_debug_mode = 'Y' THEN
875: PA_MCB_INVOICE_PKG.log_message('after pa_billing_pub.insert_event: rev amt'||to_char(XD_bill_trans_rev_amt));
876: END IF;
877: XD_bill_trans_bill_amt := PA_MULTI_CURRENCY_BILLING.ROUND_TRANS_CURRENCY_AMT(NVL(X_bill_amt,0),l_txn_currency_code);
878: IF g1_debug_mode = 'Y' THEN
879: PA_MCB_INVOICE_PKG.log_message('after pa_billing_pub.insert_event: inv amt'||to_char(XD_bill_trans_bill_amt));
875: PA_MCB_INVOICE_PKG.log_message('after pa_billing_pub.insert_event: rev amt'||to_char(XD_bill_trans_rev_amt));
876: END IF;
877: XD_bill_trans_bill_amt := PA_MULTI_CURRENCY_BILLING.ROUND_TRANS_CURRENCY_AMT(NVL(X_bill_amt,0),l_txn_currency_code);
878: IF g1_debug_mode = 'Y' THEN
879: PA_MCB_INVOICE_PKG.log_message('after pa_billing_pub.insert_event: inv amt'||to_char(XD_bill_trans_bill_amt));
880: END IF;
881: /* The following amounts have been commented for MCB2, the above amounts are satisfying the same requirement */
882: /* XD_bill_trans_rev_amt := (NVL(X_rev_amt, 0));
883: XD_bill_trans_bill_amt := (NVL(X_bill_amt,0)); */
1348: END IF;
1349: -- COMMIT;
1350:
1351: IF g1_debug_mode = 'Y' THEN
1352: PA_MCB_INVOICE_PKG.log_message('Exiting pa_billing_pub.insert_events: ');
1353: END IF;
1354: EXCEPTION
1355: WHEN mandatory_prm_missing THEN
1356: status := pa_billing_values.get_message('MANDATORY_PRM_MISSING');