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;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
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;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
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;
3:
4: -- Logging Infra
5: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
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;
4: -- Logging Infra
5: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
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.';
5: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
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
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
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:
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
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: /*----------------------------------------------------------------
251: l_transfer_flag VARCHAR2(1);
252: l_accounting_batch_id NUMBER(15);
253: l_request_id NUMBER(15);
254: l_curr_calling_sequence VARCHAR2(2000);
255: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
256:
257: ind BINARY_INTEGER := 1;
258: l_event_list t_event_ids_type;
259: l_event_status_list t_event_status_type; --bug 8547225
336: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
337: l_log_msg := 'After calling online accounting api and out prameter:' ||
338: ' p_retcode =' || p_retcode ||
339: ' accounting_mode =' || l_accounting_mode;
340: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name,l_log_msg);
341: END IF;
342:
343:
344: IF (l_accounting_mode <> 'D') THEN
355: IF ( l_t_array_event_info.COUNT <> 0 ) THEN
356:
357: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
358: l_log_msg := 'Event processed count is not 0';
359: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
360: l_procedure_name,l_log_msg);
361: END IF;
362:
363: FOR num IN 1 .. l_t_array_event_info.COUNT LOOP
371:
372: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
373: l_log_msg := 'Events need to set the posted flag to n count='
374: || to_char(ind) ;
375: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
376: l_procedure_name,l_log_msg);
377: END IF;
378:
379: --bug 8547225, for event_status_code 'N' posted_flag updated to'Y'
500: l_transfer_flag VARCHAR2(1);
501: l_accounting_batch_id NUMBER(15);
502: l_request_id NUMBER(15);
503: l_curr_calling_sequence VARCHAR2(2000);
504: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
505:
506: ind BINARY_INTEGER := 1;
507: l_event_list t_event_ids_type;
508: l_t_array_event_info xla_events_pub_pkg.t_array_event_info;
582: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
583: l_log_msg := 'After calling online accounting api and out prameter:' ||
584: ' p_retcode =' || p_retcode ||
585: ' accounting_mode =' || l_accounting_mode;
586: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name,l_log_msg);
587: END IF;
588:
589: -- rewrote the following for bug fix 5694577
590: -- When payment accounting option is CLEAR ONLY, need to set the
603: IF ( l_t_array_event_info.COUNT <> 0 ) THEN
604:
605: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
606: l_log_msg := 'Event processed count is not 0';
607: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name,l_log_msg);
608: END IF;
609:
610: FOR num IN 1 .. l_t_array_event_info.COUNT LOOP
611: IF ( l_t_array_event_info(num).event_status_code <> 'P') THEN
722:
723: l_invoice_num VARCHAR2(50);
724: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
725: l_curr_calling_sequence VARCHAR2(2000);
726: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
727:
728: BEGIN
729:
730: l_curr_calling_sequence := p_calling_sequence
801:
802: l_check_number NUMBER(15);
803: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
804: l_curr_calling_sequence VARCHAR2(2000);
805: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
806:
807: BEGIN
808:
809: l_curr_calling_sequence := p_calling_sequence
876: p_calling_sequence IN VARCHAR2)
877: IS
878:
879: l_curr_calling_sequence VARCHAR2(2000);
880: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
881:
882: BEGIN
883:
884: l_curr_calling_sequence :=
943: p_calling_sequence IN VARCHAR2)
944: IS
945:
946: l_curr_calling_sequence VARCHAR2(2000);
947: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
948:
949: BEGIN
950:
951: l_curr_calling_sequence :=