1: PACKAGE BODY CST_PerItemCostChangeRpt_PVT AS
2: /* $Header: CSTVPICB.pls 120.2.12010000.3 2008/12/11 02:26:45 anjha ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CST_PerItemCostChangeRpt_PVT';
5: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6:
7: -- API name : generateXML
8: -- Description : The API is directly called by the Periodic Item Cost
9: -- change report.
56:
57: l_item_where_clause VARCHAR2 (2400);
58: l_category_where_clause VARCHAR2 (2400);
59:
60: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED, l_module);
61: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
62: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
63: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
64: /*Bug 7346254*/
57: l_item_where_clause VARCHAR2 (2400);
58: l_category_where_clause VARCHAR2 (2400);
59:
60: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED, l_module);
61: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
62: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
63: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
64: /*Bug 7346254*/
65: l_encoding VARCHAR2(20);
58: l_category_where_clause VARCHAR2 (2400);
59:
60: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED, l_module);
61: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
62: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
63: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
64: /*Bug 7346254*/
65: l_encoding VARCHAR2(20);
66: l_xml_header VARCHAR2(100);
59:
60: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED, l_module);
61: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
62: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
63: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
64: /*Bug 7346254*/
65: l_encoding VARCHAR2(20);
66: l_xml_header VARCHAR2(100);
67: BEGIN
65: l_encoding VARCHAR2(20);
66: l_xml_header VARCHAR2(100);
67: BEGIN
68: IF (l_pLog) THEN
69: FND_LOG.STRING ( FND_LOG.LEVEL_PROCEDURE,
70: l_module || '.begin',
71: '>>> ' || l_api_name || ':Parameters:
72: Legal Entity id: ' || p_legal_entity_id || '
73: Cost Type ID: ' || p_cost_type_id || '
210: l_offset := l_offset + l_amount;
211: END LOOP;
212:
213: IF (l_eventLog) THEN
214: FND_LOG.STRING (FND_LOG.LEVEL_EVENT,
215: l_module || '.' || l_stmt_num,
216: 'Completed writing to output file');
217: END IF;
218:
220: DBMS_LOB.FREETEMPORARY (l_xml_doc);
221: l_success := FND_CONCURRENT.SET_COMPLETION_STATUS('NORMAL', 'Request Completed Successfully');
222:
223: IF (l_pLog) THEN
224: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
225: l_module || '.end',
226: '<<< ' || l_api_name);
227: END IF;
228:
237: x_return_status=> l_return_status);
238: l_msg_data := SUBSTRB (SQLERRM,1,240);
239: l_success := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', l_msg_data);
240: IF (l_uLog) THEN
241: FND_LOG.STRING (FND_LOG.LEVEL_UNEXPECTED,
242: l_module || '.' || l_stmt_num,
243: l_msg_data);
244: END IF;
245: WHEN OTHERS THEN
243: l_msg_data);
244: END IF;
245: WHEN OTHERS THEN
246: IF (l_uLog) THEN
247: FND_LOG.STRING (FND_LOG.LEVEL_UNEXPECTED,
248: l_module || '.' || l_stmt_num,
249: SUBSTRB (SQLERRM , 1 , 240));
250: END IF;
251: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
301:
302: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
303: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.' || l_full_name;
304:
305: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED, l_module);
306: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
307: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
308: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
309:
302: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
303: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.' || l_full_name;
304:
305: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED, l_module);
306: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
307: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
308: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
309:
310: BEGIN
303: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.' || l_full_name;
304:
305: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED, l_module);
306: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
307: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
308: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
309:
310: BEGIN
311:
304:
305: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED, l_module);
306: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
307: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
308: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
309:
310: BEGIN
311:
312: IF (l_pLog) THEN
309:
310: BEGIN
311:
312: IF (l_pLog) THEN
313: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
314: l_module || '.begin',
315: '>>> ' || l_api_name);
316: END IF;
317:
440: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
441: p_data => x_msg_data);
442:
443: IF (l_pLog) THEN
444: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
445: l_module || '.end',
446: '<<< ' || l_api_name);
447: END IF;
448: EXCEPTION
454: );
455: WHEN OTHERS THEN
456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
457: IF (l_uLog) THEN
458: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
459: l_module || '.' || l_stmt_num,
460: SUBSTRB (SQLERRM , 1 , 240));
461: END IF;
462: