1: PACKAGE BODY AP_DRILLDOWN_PUB_PKG as
2: /* $Header: apsladrb.pls 120.17 2010/09/16 08:50:00 kpasikan ship $ */
3:
4: -- Logging Infra
5: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_DRILLDOWN_PUB_PKG.';
13: -- Logging Infra
14:
15: /*----------------------------------------------------------------
16: |Private procedure: get_invoice_info
263:
264: BEGIN
265:
266: l_curr_calling_sequence :=
267: p_calling_sequence || ' -> AP_DRILLDOWN_PUB_PKG.INVOICE_ONLINE_ACCOUNTING';
268:
269:
270: -----------------------------------------------------------------
271: l_log_msg := 'Step 1: Get invoice information';
511:
512: BEGIN
513:
514: l_curr_calling_sequence := p_calling_sequence
515: || ' -> AP_DRILLDOWN_PUB_PKG.PAYMENT_ONLINE_ACCOUNTING';
516: -----------------------------------------------------------------
517: l_log_msg := 'Step 1: Get payment information';
518: -----------------------------------------------------------------
519:
727:
728: BEGIN
729:
730: l_curr_calling_sequence := p_calling_sequence
731: || ' -> AP_DRILLDOWN_PUB_PKG.get_invoice_event_source_info';
732:
733: ----------------------------------------------------------------
734: l_log_msg :='get invoice_num information';
735: ----------------------------------------------------------------
806:
807: BEGIN
808:
809: l_curr_calling_sequence := p_calling_sequence
810: || ' -> AP_DRILLDOWN_PUB_PKG.get_payment_event_source_info';
811:
812: ---------------------------------------------------------------
813: l_log_msg :='get check_number';
814: ---------------------------------------------------------------
983: END IF;
984: APP_EXCEPTION.RAISE_EXCEPTION();
985: END get_payment_info;
986:
987: END AP_DRILLDOWN_PUB_PKG;
988: