1: PACKAGE BODY AP_DRILLDOWN_PUB_PKG as
2: /* $Header: apsladrb.pls 120.6.12010000.3 2008/09/08 20:20:22 hredredd 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.6.12010000.3 2008/09/08 20:20:22 hredredd 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: /*----------------------------------------------------------------
249: l_transfer_flag VARCHAR2(1);
250: l_accounting_batch_id NUMBER(15);
251: l_request_id NUMBER(15);
252: l_curr_calling_sequence VARCHAR2(2000);
253: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
254:
255: ind BINARY_INTEGER := 1;
256: l_event_list t_event_ids_type;
257: l_t_array_event_info xla_events_pub_pkg.t_array_event_info;
332: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
333: l_log_msg := 'After calling online accounting api and out prameter:' ||
334: ' p_retcode =' || p_retcode ||
335: ' accounting_mode =' || l_accounting_mode;
336: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name,l_log_msg);
337: END IF;
338:
339:
340: IF ( l_accounting_mode <> 'D' AND p_retcode <> 0 ) THEN
351: IF ( l_t_array_event_info.COUNT <> 0 ) THEN
352:
353: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
354: l_log_msg := 'Event processed count is not 0';
355: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
356: l_procedure_name,l_log_msg);
357: END IF;
358:
359: FOR num IN 1 .. l_t_array_event_info.COUNT LOOP
366:
367: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
368: l_log_msg := 'Events need to set the posted flag to n count='
369: || to_char(ind) ;
370: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
371: l_procedure_name,l_log_msg);
372: END IF;
373:
374:
447: l_transfer_flag VARCHAR2(1);
448: l_accounting_batch_id NUMBER(15);
449: l_request_id NUMBER(15);
450: l_curr_calling_sequence VARCHAR2(2000);
451: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
452:
453: ind BINARY_INTEGER := 1;
454: l_event_list t_event_ids_type;
455: l_t_array_event_info xla_events_pub_pkg.t_array_event_info;
529: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
530: l_log_msg := 'After calling online accounting api and out prameter:' ||
531: ' p_retcode =' || p_retcode ||
532: ' accounting_mode =' || l_accounting_mode;
533: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name,l_log_msg);
534: END IF;
535:
536: -- rewrote the following for bug fix 5694577
537: -- When payment accounting option is CLEAR ONLY, need to set the
550: IF ( l_t_array_event_info.COUNT <> 0 ) THEN
551:
552: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
553: l_log_msg := 'Event processed count is not 0';
554: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name,l_log_msg);
555: END IF;
556:
557: FOR num IN 1 .. l_t_array_event_info.COUNT LOOP
558: l_event_list(ind) := l_t_array_event_info(num).event_id;
661:
662: l_invoice_num VARCHAR2(50);
663: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
664: l_curr_calling_sequence VARCHAR2(2000);
665: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
666:
667: BEGIN
668:
669: l_curr_calling_sequence := p_calling_sequence
740:
741: l_check_number NUMBER(15);
742: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
743: l_curr_calling_sequence VARCHAR2(2000);
744: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
745:
746: BEGIN
747:
748: l_curr_calling_sequence := p_calling_sequence
815: p_calling_sequence IN VARCHAR2)
816: IS
817:
818: l_curr_calling_sequence VARCHAR2(2000);
819: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
820:
821: BEGIN
822:
823: l_curr_calling_sequence :=
882: p_calling_sequence IN VARCHAR2)
883: IS
884:
885: l_curr_calling_sequence VARCHAR2(2000);
886: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
887:
888: BEGIN
889:
890: l_curr_calling_sequence :=