2: /* $Header: CSTVAWOB.pls 120.21.12010000.5 2010/04/23 13:45:19 mpuranik ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CST_AccrualWriteOffReport_PVT';
5: G_LOG_HEADER CONSTANT VARCHAR2(100) := 'cst.plsql.CST_ACCRUAL_MISC_REPORT';
6: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7:
8: PROCEDURE Generate_WriteOffReportXml (
9: errcode OUT NOCOPY VARCHAR2,
10: err_code OUT NOCOPY NUMBER,
45:
46: l_full_name CONSTANT VARCHAR2(2000) := G_PKG_NAME || '.' || l_api_name;
47: l_module CONSTANT VARCHAR2(2000) := 'cst.plsql.' || l_full_name;
48:
49: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED, l_module);
50: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
51: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
52: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
53: l_sLog CONSTANT BOOLEAN := l_pLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
46: l_full_name CONSTANT VARCHAR2(2000) := G_PKG_NAME || '.' || l_api_name;
47: l_module CONSTANT VARCHAR2(2000) := 'cst.plsql.' || l_full_name;
48:
49: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED, l_module);
50: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
51: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
52: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
53: l_sLog CONSTANT BOOLEAN := l_pLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
54:
47: l_module CONSTANT VARCHAR2(2000) := 'cst.plsql.' || l_full_name;
48:
49: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED, l_module);
50: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
51: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
52: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
53: l_sLog CONSTANT BOOLEAN := l_pLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
54:
55: l_conc_request BOOLEAN;
48:
49: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED, l_module);
50: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
51: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
52: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
53: l_sLog CONSTANT BOOLEAN := l_pLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
54:
55: l_conc_request BOOLEAN;
56: /*Bug 7305146*/
49: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED, l_module);
50: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
51: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
52: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
53: l_sLog CONSTANT BOOLEAN := l_pLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
54:
55: l_conc_request BOOLEAN;
56: /*Bug 7305146*/
57: l_encoding VARCHAR2(20);
69: l_stmt_num := 5;
70:
71: l_current_org_id := MO_GLOBAL.get_current_org_id;
72:
73: -- Write the module name and user parameters to fnd log file
74:
75: IF (l_pLog) THEN
76: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
77: l_module || '.begin',
72:
73: -- Write the module name and user parameters to fnd log file
74:
75: IF (l_pLog) THEN
76: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
77: l_module || '.begin',
78: '>>> ' || l_api_name || ':Parameters:
79: Org id:'|| l_current_org_id
80: || 'Title: ' || p_title
233: END LOOP;
234:
235: DBMS_XMLGEN.closeContext(l_qryCtx);
236:
237: -- Write the event log to fnd log file
238:
239: IF (l_eventLog) THEN
240: FND_LOG.STRING (FND_LOG.LEVEL_EVENT,
241: l_module || '.' || l_stmt_num,
236:
237: -- Write the event log to fnd log file
238:
239: IF (l_eventLog) THEN
240: FND_LOG.STRING (FND_LOG.LEVEL_EVENT,
241: l_module || '.' || l_stmt_num,
242: 'Completed writing to output file');
243: END IF;
244:
246: DBMS_LOB.FREETEMPORARY (l_xml_doc);
247:
248: l_success := FND_CONCURRENT.SET_COMPLETION_STATUS('NORMAL', 'Request Completed Successfully');
249:
250: -- Write the module name to fnd log file
251:
252: IF (l_pLog) THEN
253: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
254: l_module || '.end',
249:
250: -- Write the module name to fnd log file
251:
252: IF (l_pLog) THEN
253: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
254: l_module || '.end',
255: '<<< ' || l_api_name);
256: END IF;
257:
259: WHEN FND_API.G_EXC_ERROR THEN
260: ROLLBACK;
261: l_return_status := FND_API.g_ret_sts_error;
262: If l_errorLog then
263: fnd_log.message(FND_LOG.LEVEL_ERROR,
264: G_LOG_HEADER || '.' || l_api_name || '(' ||to_char(l_stmt_num)||')',
265: FALSE
266: );
267: end If;
268:
269: fnd_msg_pub.add;
270:
271: If l_slog then
272: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
273: G_LOG_HEADER || '.'||l_api_name||'('||to_char(l_stmt_num)||')',
274: l_error_message
275: );
276: End If;
308: l_success := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', l_msg_data);
309:
310: WHEN OTHERS THEN
311: IF (l_uLog) THEN
312: FND_LOG.STRING (FND_LOG.LEVEL_UNEXPECTED,
313: l_module || '.' || l_stmt_num,
314: SUBSTRB (SQLERRM , 1 , 240));
315: END IF;
316:
373:
374: l_full_name CONSTANT VARCHAR2(2000) := G_PKG_NAME || '.' || l_api_name;
375: l_module CONSTANT VARCHAR2(2000) := 'cst.plsql.' || l_full_name;
376:
377: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED, l_module);
378: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
379: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
380: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
381:
374: l_full_name CONSTANT VARCHAR2(2000) := G_PKG_NAME || '.' || l_api_name;
375: l_module CONSTANT VARCHAR2(2000) := 'cst.plsql.' || l_full_name;
376:
377: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED, l_module);
378: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
379: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
380: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
381:
382:
375: l_module CONSTANT VARCHAR2(2000) := 'cst.plsql.' || l_full_name;
376:
377: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED, l_module);
378: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
379: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
380: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
381:
382:
383: BEGIN
376:
377: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED, l_module);
378: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
379: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
380: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
381:
382:
383: BEGIN
384:
381:
382:
383: BEGIN
384:
385: -- Write the module name to fnd log file
386:
387: IF (l_pLog) THEN
388: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
389: l_module || '.begin',
384:
385: -- Write the module name to fnd log file
386:
387: IF (l_pLog) THEN
388: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
389: l_module || '.begin',
390: '>>> ' || l_api_name);
391: END IF;
392:
532: ( p_count => x_msg_count,
533: p_data => x_msg_data
534: );
535:
536: -- Write the module name to fnd log file
537:
538: IF (l_pLog) THEN
539: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
540: l_module || '.end',
535:
536: -- Write the module name to fnd log file
537:
538: IF (l_pLog) THEN
539: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
540: l_module || '.end',
541: '<<< ' || l_api_name);
542: END IF;
543:
558:
559: WHEN OTHERS THEN
560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
561: IF (l_uLog) THEN
562: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
563: l_module || '.' || l_stmt_num,
564: SUBSTRB (SQLERRM , 1 , 240));
565: END IF;
566:
618:
619: l_full_name CONSTANT VARCHAR2(2000) := G_PKG_NAME || '.' || l_api_name;
620: l_module CONSTANT VARCHAR2(2000) := 'cst.plsql.' || l_full_name;
621:
622: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED, l_module);
623: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
624: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
625: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
626:
619: l_full_name CONSTANT VARCHAR2(2000) := G_PKG_NAME || '.' || l_api_name;
620: l_module CONSTANT VARCHAR2(2000) := 'cst.plsql.' || l_full_name;
621:
622: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED, l_module);
623: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
624: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
625: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
626:
627: BEGIN
620: l_module CONSTANT VARCHAR2(2000) := 'cst.plsql.' || l_full_name;
621:
622: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED, l_module);
623: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
624: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
625: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
626:
627: BEGIN
628:
621:
622: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED, l_module);
623: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
624: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
625: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
626:
627: BEGIN
628:
629: IF (l_pLog) THEN
626:
627: BEGIN
628:
629: IF (l_pLog) THEN
630: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
631: l_module || '.begin',
632: '>>> ' || l_api_name);
633: END IF;
634:
951: ( p_count => x_msg_count,
952: p_data => x_msg_data
953: );
954:
955: -- Write the module name to fnd log file
956:
957: IF (l_pLog) THEN
958: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
959: l_module || '.end',
954:
955: -- Write the module name to fnd log file
956:
957: IF (l_pLog) THEN
958: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
959: l_module || '.end',
960: '<<< ' || l_api_name);
961: END IF;
962:
976:
977: WHEN OTHERS THEN
978: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
979: IF (l_uLog) THEN
980: FND_LOG.STRING (FND_LOG.LEVEL_UNEXPECTED,
981: l_module || '.' || l_stmt_num,
982: SUBSTRB (SQLERRM , 1 , 240));
983: END IF;
984: