2: /* $Header: CSTVAMRB.pls 120.23.12020000.2 2012/09/11 11:37:31 vnagasow ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(2000) := 'CST_MiscAccrualReport_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_MiscReportXml (
9: errcode OUT NOCOPY VARCHAR2,
10: errno OUT NOCOPY NUMBER,
45:
46: l_full_name CONSTANT VARCHAR2(4000) := G_PKG_NAME || '.' || l_api_name;
47: l_module CONSTANT VARCHAR2(4000) := '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,
50: l_module);
51: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
52: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
53: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
47: l_module CONSTANT VARCHAR2(4000) := '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,
50: l_module);
51: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
52: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
53: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
54: l_sLog CONSTANT BOOLEAN := l_pLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
55:
48:
49: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
50: l_module);
51: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
52: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
53: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
54: l_sLog CONSTANT BOOLEAN := l_pLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
55:
56: l_conc_request BOOLEAN;
49: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
50: l_module);
51: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
52: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
53: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
54: l_sLog CONSTANT BOOLEAN := l_pLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
55:
56: l_conc_request BOOLEAN;
57: /*Bug 7305146*/
50: l_module);
51: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
52: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
53: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
54: l_sLog CONSTANT BOOLEAN := l_pLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
55:
56: l_conc_request BOOLEAN;
57: /*Bug 7305146*/
58: l_encoding VARCHAR2(20);
104: ELSE
105: l_to_date := NULL;
106: END IF;
107:
108: -- Write the module name and user parameters to fnd log file
109:
110: IF (l_pLog) THEN
111: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
112: l_module || '.begin',
107:
108: -- Write the module name and user parameters to fnd log file
109:
110: IF (l_pLog) THEN
111: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
112: l_module || '.begin',
113: '>>> ' || l_api_name || ':Parameters:
114: Org id:'|| l_current_org_id
115: || 'Title: ' || p_title
234:
235: DBMS_XMLGEN.closeContext(l_qryCtx);
236:
237:
238: -- Write the event log to fnd log file
239:
240: IF (l_eventLog) THEN
241: FND_LOG.STRING (FND_LOG.LEVEL_EVENT,
242: l_module || '.' || l_stmt_num,
237:
238: -- Write the event log to fnd log file
239:
240: IF (l_eventLog) THEN
241: FND_LOG.STRING (FND_LOG.LEVEL_EVENT,
242: l_module || '.' || l_stmt_num,
243: 'Completed writing to output file');
244: END IF;
245:
247: DBMS_LOB.FREETEMPORARY (l_xml_doc);
248:
249: l_success := FND_CONCURRENT.SET_COMPLETION_STATUS('NORMAL', 'Request Completed Successfully');
250:
251: -- Write the module name to fnd log file
252:
253: IF (l_pLog) THEN
254: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
255: l_module || '.end',
250:
251: -- Write the module name to fnd log file
252:
253: IF (l_pLog) THEN
254: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
255: l_module || '.end',
256: '<<< ' || l_api_name);
257: END IF;
258:
261: WHEN FND_API.G_EXC_ERROR THEN
262: ROLLBACK;
263: l_return_status := FND_API.g_ret_sts_error;
264: If l_errorLog then
265: fnd_log.message(FND_LOG.LEVEL_ERROR,
266: G_LOG_HEADER || '.' || l_api_name || '(' ||to_char(l_stmt_num)||')',
267: FALSE
268: );
269: end If;
270:
271: fnd_msg_pub.add;
272:
273: If l_slog then
274: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
275: G_LOG_HEADER || '.'||l_api_name||'('||to_char(l_stmt_num)||')',
276: l_error_message
277: );
278: End If;
311: l_success := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', l_msg_data);
312:
313: WHEN OTHERS THEN
314: IF (l_uLog) THEN
315: FND_LOG.STRING (FND_LOG.LEVEL_UNEXPECTED,
316: l_module || '.' || l_stmt_num,
317: SUBSTRB (SQLERRM , 1 , 240));
318: END IF;
319:
375:
376: l_full_name CONSTANT VARCHAR2(3000) := G_PKG_NAME || '.' || l_api_name;
377: l_module CONSTANT VARCHAR2(3000) := 'cst.plsql.' || l_full_name;
378:
379: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
380: l_module);
381: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
382: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
383: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
377: l_module CONSTANT VARCHAR2(3000) := 'cst.plsql.' || l_full_name;
378:
379: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
380: l_module);
381: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
382: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
383: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
384:
385: BEGIN
378:
379: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
380: l_module);
381: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
382: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
383: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
384:
385: BEGIN
386:
379: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
380: l_module);
381: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
382: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
383: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
384:
385: BEGIN
386:
387: -- Write the module name to fnd log file
383: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
384:
385: BEGIN
386:
387: -- Write the module name to fnd log file
388:
389: IF (l_pLog) THEN
390: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
391: l_module || '.begin',
386:
387: -- Write the module name to fnd log file
388:
389: IF (l_pLog) THEN
390: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
391: l_module || '.begin',
392: '>>> ' || l_api_name);
393: END IF;
394:
534: ( p_count => x_msg_count,
535: p_data => x_msg_data
536: );
537:
538: -- Write the module name to fnd log file
539:
540: IF (l_pLog) THEN
541: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
542: l_module || '.end',
537:
538: -- Write the module name to fnd log file
539:
540: IF (l_pLog) THEN
541: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
542: l_module || '.end',
543: '<<< ' || l_api_name);
544: END IF;
545:
560:
561: WHEN OTHERS THEN
562: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
563: IF (l_uLog) THEN
564: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
565: l_module || '.' || l_stmt_num,
566: SUBSTRB (SQLERRM , 1 , 240));
567: END IF;
568:
621:
622: l_full_name CONSTANT VARCHAR2(3000) := G_PKG_NAME || '.' || l_api_name;
623: l_module CONSTANT VARCHAR2(3000) := 'cst.plsql.' || l_full_name;
624:
625: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
626: l_module);
627: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
628: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
629: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
623: l_module CONSTANT VARCHAR2(3000) := 'cst.plsql.' || l_full_name;
624:
625: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
626: l_module);
627: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
628: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
629: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
630:
631: BEGIN
624:
625: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
626: l_module);
627: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
628: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
629: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
630:
631: BEGIN
632:
625: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
626: l_module);
627: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
628: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
629: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
630:
631: BEGIN
632:
633: -- Write the module name to fnd log file
629: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
630:
631: BEGIN
632:
633: -- Write the module name to fnd log file
634:
635: IF (l_pLog) THEN
636: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
637: l_module || '.begin',
632:
633: -- Write the module name to fnd log file
634:
635: IF (l_pLog) THEN
636: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
637: l_module || '.begin',
638: '>>> ' || l_api_name);
639: END IF;
640:
983: ( p_count => x_msg_count,
984: p_data => x_msg_data
985: );
986:
987: -- Write the module name to fnd log file
988:
989: IF (l_pLog) THEN
990: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
991: l_module || '.end',
986:
987: -- Write the module name to fnd log file
988:
989: IF (l_pLog) THEN
990: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
991: l_module || '.end',
992: '<<< ' || l_api_name);
993: END IF;
994:
1008:
1009: WHEN OTHERS THEN
1010: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1011: IF (l_uLog) THEN
1012: FND_LOG.STRING (FND_LOG.LEVEL_UNEXPECTED,
1013: l_module || '.' || l_stmt_num,
1014: SUBSTRB (SQLERRM , 1 , 240));
1015: END IF;
1016: