1: PACKAGE BODY OKL_DRILLDOWN_PUB_PKG AS
2: /* $Header: OKLPDRDB.pls 120.3 2007/06/13 13:42:55 abhsaxen noship $ */
3:
4: L_MODULE FND_LOG_MESSAGES.MODULE%TYPE;
5: L_DEBUG_ENABLED VARCHAR2(10);
6: IS_DEBUG_PROCEDURE_ON BOOLEAN;
7: IS_DEBUG_STATEMENT_ON BOOLEAN;
8:
94: l_api_name := 'DRILLDOWN';
95: L_MODULE := 'OKL.PLSQL.OKL_DRILLDOWN_PUB_PKG.DRILLDOWN';
96: -- check for logging on PROCEDURE level
97: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
98: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
99: -- check for logging on STATEMENT level
100: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
101:
102: --write to log
96: -- check for logging on PROCEDURE level
97: L_DEBUG_ENABLED := NVL(OKL_DEBUG_PUB.CHECK_LOG_ENABLED, 'N');
98: IS_DEBUG_PROCEDURE_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_PROCEDURE), FALSE);
99: -- check for logging on STATEMENT level
100: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
101:
102: --write to log
103: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON) THEN
104: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_PROCEDURE, L_MODULE, 'begin debug call DRILLDOWN');
100: IS_DEBUG_STATEMENT_ON := NVL(OKL_DEBUG_PUB.CHECK_LOG_ON(L_MODULE, FND_LOG.LEVEL_STATEMENT), FALSE);
101:
102: --write to log
103: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON) THEN
104: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_PROCEDURE, L_MODULE, 'begin debug call DRILLDOWN');
105: END IF;
106: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
107: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of API Name', 'l_api_name: ' || l_api_name);
108: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of Transaction ID', 'l_trx_id: ' || l_trx_id);
103: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON) THEN
104: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_PROCEDURE, L_MODULE, 'begin debug call DRILLDOWN');
105: END IF;
106: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
107: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of API Name', 'l_api_name: ' || l_api_name);
108: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of Transaction ID', 'l_trx_id: ' || l_trx_id);
109: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of event class code', 'p_event_class_code: ' || p_event_class_code);
110: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of event type code', 'p_event_type_code: ' || p_event_type_code);
111: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of entity code', 'p_entity_code: ' || p_entity_code);
104: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_PROCEDURE, L_MODULE, 'begin debug call DRILLDOWN');
105: END IF;
106: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
107: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of API Name', 'l_api_name: ' || l_api_name);
108: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of Transaction ID', 'l_trx_id: ' || l_trx_id);
109: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of event class code', 'p_event_class_code: ' || p_event_class_code);
110: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of event type code', 'p_event_type_code: ' || p_event_type_code);
111: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of entity code', 'p_entity_code: ' || p_entity_code);
112: END IF;
105: END IF;
106: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
107: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of API Name', 'l_api_name: ' || l_api_name);
108: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of Transaction ID', 'l_trx_id: ' || l_trx_id);
109: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of event class code', 'p_event_class_code: ' || p_event_class_code);
110: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of event type code', 'p_event_type_code: ' || p_event_type_code);
111: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of entity code', 'p_entity_code: ' || p_entity_code);
112: END IF;
113:
106: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
107: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of API Name', 'l_api_name: ' || l_api_name);
108: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of Transaction ID', 'l_trx_id: ' || l_trx_id);
109: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of event class code', 'p_event_class_code: ' || p_event_class_code);
110: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of event type code', 'p_event_type_code: ' || p_event_type_code);
111: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of entity code', 'p_entity_code: ' || p_entity_code);
112: END IF;
113:
114: --Check whether application is OKL
107: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of API Name', 'l_api_name: ' || l_api_name);
108: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of Transaction ID', 'l_trx_id: ' || l_trx_id);
109: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of event class code', 'p_event_class_code: ' || p_event_class_code);
110: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of event type code', 'p_event_type_code: ' || p_event_type_code);
111: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of entity code', 'p_entity_code: ' || p_entity_code);
112: END IF;
113:
114: --Check whether application is OKL
115: IF (p_application_id = 540) THEN
148: END IF;
149:
150: --write to log
151: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
152: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of API Name', 'l_api_name: ' || l_api_name);
153: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of parameters', 'p_parameters: ' || p_parameters);
154: END IF;
155: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON) THEN
156: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_PROCEDURE, L_MODULE, 'end debug call DRILLDOWN');
149:
150: --write to log
151: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
152: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of API Name', 'l_api_name: ' || l_api_name);
153: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of parameters', 'p_parameters: ' || p_parameters);
154: END IF;
155: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON) THEN
156: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_PROCEDURE, L_MODULE, 'end debug call DRILLDOWN');
157: END IF;
152: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of API Name', 'l_api_name: ' || l_api_name);
153: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, L_MODULE || ' Value of parameters', 'p_parameters: ' || p_parameters);
154: END IF;
155: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_PROCEDURE_ON) THEN
156: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_PROCEDURE, L_MODULE, 'end debug call DRILLDOWN');
157: END IF;
158:
159: END DRILLDOWN;
160: