1: PACKAGE BODY CST_AccrualSummaryReport_PVT AS
2: /* $Header: CSTVASRB.pls 120.14.12010000.2 2008/10/30 13:55:39 svelumur ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CST_AccrualSummaryReport_PVT';
5: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6:
7: PROCEDURE Generate_SummaryReportXml (
8: errcode OUT NOCOPY VARCHAR2,
9: errno OUT NOCOPY NUMBER,
34:
35: l_full_name CONSTANT VARCHAR2(2000) := G_PKG_NAME || '.' || l_api_name;
36: l_module CONSTANT VARCHAR2(2000) := 'cst.plsql.' || l_full_name;
37:
38: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
39: l_module);
40: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
41: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
42: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
36: l_module CONSTANT VARCHAR2(2000) := 'cst.plsql.' || l_full_name;
37:
38: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
39: l_module);
40: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
41: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
42: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
43: /*Bug 7305146*/
44: l_encoding VARCHAR2(20);
37:
38: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
39: l_module);
40: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
41: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
42: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
43: /*Bug 7305146*/
44: l_encoding VARCHAR2(20);
45: l_xml_header VARCHAR2(100);
38: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
39: l_module);
40: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
41: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
42: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
43: /*Bug 7305146*/
44: l_encoding VARCHAR2(20);
45: l_xml_header VARCHAR2(100);
46:
57: l_stmt_num := 10;
58:
59: l_current_org_id := MO_GLOBAL.get_current_org_id;
60:
61: -- Write the module name and user parameters to fnd log file
62:
63: IF (l_pLog) THEN
64: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
65: l_module || '.begin',
60:
61: -- Write the module name and user parameters to fnd log file
62:
63: IF (l_pLog) THEN
64: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
65: l_module || '.begin',
66: '>>> ' || l_api_name || ':Parameters:
67: Org id:'|| l_current_org_id
68: || 'Title: ' || p_title
153: l_length := l_length - l_amount;
154: l_offset := l_offset + l_amount;
155: END LOOP;
156:
157: -- Write the event log to fnd log file
158:
159: IF (l_eventLog) THEN
160: FND_LOG.STRING (FND_LOG.LEVEL_EVENT,
161: l_module || '.' || l_stmt_num,
156:
157: -- Write the event log to fnd log file
158:
159: IF (l_eventLog) THEN
160: FND_LOG.STRING (FND_LOG.LEVEL_EVENT,
161: l_module || '.' || l_stmt_num,
162: 'Completed writing to output file');
163: END IF;
164:
168: DBMS_LOB.FREETEMPORARY (l_xml_doc);
169:
170: l_success := FND_CONCURRENT.SET_COMPLETION_STATUS('NORMAL', 'Request Completed Successfully');
171:
172: -- Write the module name to fnd log file
173:
174: IF (l_pLog) THEN
175: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
176: l_module || '.end',
171:
172: -- Write the module name to fnd log file
173:
174: IF (l_pLog) THEN
175: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
176: l_module || '.end',
177: '<<< ' || l_api_name);
178: END IF;
179:
201: l_success := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', l_msg_data);
202:
203: WHEN OTHERS THEN
204: IF (l_uLog) THEN
205: FND_LOG.STRING (FND_LOG.LEVEL_UNEXPECTED,
206: l_module || '.' || l_stmt_num,
207: SUBSTRB (SQLERRM , 1 , 240));
208: END IF;
209:
258:
259: l_full_name CONSTANT VARCHAR2(2000) := G_PKG_NAME || '.' || l_api_name;
260: l_module CONSTANT VARCHAR2(2000) := 'cst.plsql.' || l_full_name;
261:
262: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
263: l_module);
264: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
265: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
266: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
260: l_module CONSTANT VARCHAR2(2000) := 'cst.plsql.' || l_full_name;
261:
262: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
263: l_module);
264: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
265: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
266: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
267:
268: BEGIN
261:
262: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
263: l_module);
264: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
265: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
266: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
267:
268: BEGIN
269:
262: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
263: l_module);
264: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
265: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
266: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
267:
268: BEGIN
269:
270: -- Write the module name to fnd log file
266: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
267:
268: BEGIN
269:
270: -- Write the module name to fnd log file
271:
272: IF (l_pLog) THEN
273: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
274: l_module || '.begin',
269:
270: -- Write the module name to fnd log file
271:
272: IF (l_pLog) THEN
273: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
274: l_module || '.begin',
275: '>>> ' || l_api_name);
276: END IF;
277:
387: FND_MSG_PUB.Count_And_Get
388: ( p_count => x_msg_count,
389: p_data => x_msg_data);
390:
391: -- Write the module name to fnd log file
392:
393: IF (l_pLog) THEN
394: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
395: l_module || '.end',
390:
391: -- Write the module name to fnd log file
392:
393: IF (l_pLog) THEN
394: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
395: l_module || '.end',
396: '<<< ' || l_api_name);
397: END IF;
398:
413:
414: WHEN OTHERS THEN
415: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
416: IF (l_uLog) THEN
417: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
418: l_module || '.' || l_stmt_num,
419: SUBSTRB (SQLERRM , 1 , 240));
420: END IF;
421:
464:
465: l_full_name CONSTANT VARCHAR2(2000) := G_PKG_NAME || '.' || l_api_name;
466: l_module CONSTANT VARCHAR2(2000) := 'cst.plsql.' || l_full_name;
467:
468: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
469: l_module);
470: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
471: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
472: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
466: l_module CONSTANT VARCHAR2(2000) := 'cst.plsql.' || l_full_name;
467:
468: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
469: l_module);
470: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
471: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
472: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
473:
474: BEGIN
467:
468: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
469: l_module);
470: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
471: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
472: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
473:
474: BEGIN
475:
468: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
469: l_module);
470: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
471: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
472: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
473:
474: BEGIN
475:
476: -- Write the module name to fnd log file
472: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
473:
474: BEGIN
475:
476: -- Write the module name to fnd log file
477:
478: IF (l_pLog) THEN
479: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
480: l_module || '.begin',
475:
476: -- Write the module name to fnd log file
477:
478: IF (l_pLog) THEN
479: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
480: l_module || '.begin',
481: '>>> ' || l_api_name);
482: END IF;
483:
719: ( p_count => x_msg_count,
720: p_data => x_msg_data
721: );
722:
723: -- Write the module name to fnd log file
724:
725: IF (l_pLog) THEN
726: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
727: l_module || '.end',
722:
723: -- Write the module name to fnd log file
724:
725: IF (l_pLog) THEN
726: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
727: l_module || '.end',
728: '<<< ' || l_api_name);
729: END IF;
730:
744:
745: WHEN OTHERS THEN
746: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
747: IF (l_uLog) THEN
748: FND_LOG.STRING (FND_LOG.LEVEL_UNEXPECTED,
749: l_module || '.' || l_stmt_num,
750: SUBSTRB (SQLERRM , 1 , 240));
751: END IF;
752: