1: PACKAGE BODY AMS_TCOP_SUMMARIZATION_PKG AS
2: /* $Header: amsvtcmb.pls 115.2 2004/05/18 11:20:36 mayjain noship $ */
3:
4: -- Global Constants that will be used through out the package
5: LOG_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
6: LOG_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: LOG_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
8: LOG_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: LOG_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
2: /* $Header: amsvtcmb.pls 115.2 2004/05/18 11:20:36 mayjain noship $ */
3:
4: -- Global Constants that will be used through out the package
5: LOG_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
6: LOG_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: LOG_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
8: LOG_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: LOG_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
10: LOG_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
3:
4: -- Global Constants that will be used through out the package
5: LOG_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
6: LOG_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: LOG_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
8: LOG_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: LOG_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
10: LOG_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11:
4: -- Global Constants that will be used through out the package
5: LOG_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
6: LOG_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: LOG_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
8: LOG_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: LOG_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
10: LOG_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11:
12: TYPE NUMBER_ARRAY IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
5: LOG_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
6: LOG_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: LOG_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
8: LOG_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: LOG_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
10: LOG_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11:
12: TYPE NUMBER_ARRAY IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
13: -- ===============================================================
6: LOG_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: LOG_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
8: LOG_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: LOG_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
10: LOG_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11:
12: TYPE NUMBER_ARRAY IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
13: -- ===============================================================
14: -- Start of Comments
23: --
24: -- NOTE
25: --
26: -- End of Comments
27: -- Private procedure to write debug message to FND_LOG table
28: --
29: PROCEDURE write_debug_message(p_log_level NUMBER,
30: p_procedure_name VARCHAR2,
31: p_label VARCHAR2,
37: LABEL_PREFIX CONSTANT VARCHAR2(30) := 'TCOPContactSummarization';
38:
39: BEGIN
40:
41: IF (p_log_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
42: -- Set the Module Name
43: l_module_name := 'ams'||DELIMETER||'plsql'||DELIMETER||G_PACKAGE_NAME||DELIMETER||p_procedure_name||DELIMETER||LABEL_PREFIX||'-'||p_label;
44:
45: