1: PACKAGE BODY CST_ApPoAccrualReport_PVT AS
2: /* $Header: CSTVAPRB.pls 120.21.12010000.2 2008/10/30 09:21:17 svelumur ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CST_ApPoAccrualReport_PVT';
5: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: G_LOG_HEADER CONSTANT VARCHAR2(100) := 'cst.plsql.CST_ACCRUAL_MISC_REPORT';
7:
8: PROCEDURE Generate_APPOReportXml (
9: errcode OUT NOCOPY VARCHAR2,
44:
45: l_full_name CONSTANT VARCHAR2(2000) := G_PKG_NAME || '.' || l_api_name;
46: l_module CONSTANT VARCHAR2(2000) := 'cst.plsql.' || l_full_name;
47:
48: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
49: 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);
46: l_module CONSTANT VARCHAR2(2000) := 'cst.plsql.' || l_full_name;
47:
48: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
49: 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:
48: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
49: 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: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
49: 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 7000786*/
49: 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 7000786*/
57: l_encoding VARCHAR2(20);
91: l_stmt_num := 10;
92:
93: l_current_org_id := MO_GLOBAL.get_current_org_id;
94:
95: -- Write the module name and user parameters to fnd log file
96:
97: IF (l_pLog) THEN
98: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
99: l_module || '.begin',
94:
95: -- Write the module name and user parameters to fnd log file
96:
97: IF (l_pLog) THEN
98: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
99: l_module || '.begin',
100: '>>> ' || l_api_name || ':Parameters:
101: Org id:'|| l_current_org_id
102: || 'Title: ' || p_title
214: END LOOP;
215:
216: DBMS_XMLGEN.closeContext(l_qryCtx);
217:
218: -- Write the event log to fnd log file
219:
220: IF (l_eventLog) THEN
221: FND_LOG.STRING (FND_LOG.LEVEL_EVENT,
222: l_module || '.' || l_stmt_num,
217:
218: -- Write the event log to fnd log file
219:
220: IF (l_eventLog) THEN
221: FND_LOG.STRING (FND_LOG.LEVEL_EVENT,
222: l_module || '.' || l_stmt_num,
223: 'Completed writing to output file');
224: END IF;
225:
228: DBMS_LOB.FREETEMPORARY (l_xml_doc);
229:
230: l_success := FND_CONCURRENT.SET_COMPLETION_STATUS('NORMAL', 'Request Completed Successfully');
231:
232: -- Write the module name to fnd log file
233:
234: IF (l_pLog) THEN
235: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
236: l_module || '.end',
231:
232: -- Write the module name to fnd log file
233:
234: IF (l_pLog) THEN
235: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
236: l_module || '.end',
237: '<<< ' || l_api_name);
238: END IF;
239:
241: WHEN FND_API.G_EXC_ERROR THEN
242: ROLLBACK;
243: l_return_status := FND_API.g_ret_sts_error;
244: If l_errorLog then
245: fnd_log.message(FND_LOG.LEVEL_ERROR,
246: G_LOG_HEADER || '.' || l_api_name || '(' ||to_char(l_stmt_num)||')',
247: FALSE
248: );
249: end If;
250:
251: fnd_msg_pub.add;
252:
253: If l_slog then
254: fnd_log.string(FND_LOG.LEVEL_STATEMENT,
255: G_LOG_HEADER || '.'||l_api_name||'('||to_char(l_stmt_num)||')',
256: l_error_message
257: );
258: End If;
290: l_success := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', l_msg_data);
291:
292: WHEN OTHERS THEN
293: IF (l_uLog) THEN
294: FND_LOG.STRING (FND_LOG.LEVEL_UNEXPECTED,
295: l_module || '.' || l_stmt_num,
296: SUBSTRB (SQLERRM , 1 , 240));
297: END IF;
298:
355: l_org_name VARCHAR2(300);
356: l_stmt_num NUMBER;
357: l_current_org_id NUMBER;
358:
359: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
360: l_module);
361: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
362: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
363: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
357: l_current_org_id NUMBER;
358:
359: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
360: l_module);
361: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
362: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
363: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
364:
365: BEGIN
358:
359: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
360: l_module);
361: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
362: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
363: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
364:
365: BEGIN
366:
359: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
360: l_module);
361: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
362: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
363: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
364:
365: BEGIN
366:
367: -- Write the module name to fnd log file
363: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
364:
365: BEGIN
366:
367: -- Write the module name to fnd log file
368:
369: IF (l_pLog) THEN
370: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
371: l_module || '.begin',
366:
367: -- Write the module name to fnd log file
368:
369: IF (l_pLog) THEN
370: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
371: l_module || '.begin',
372: '>>> ' || l_api_name);
373: END IF;
374:
512: FND_MSG_PUB.Count_And_Get
513: ( p_count => x_msg_count,
514: p_data => x_msg_data);
515:
516: -- Write the module name to fnd log file
517:
518: IF (l_pLog) THEN
519: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
520: l_module || '.end',
515:
516: -- Write the module name to fnd log file
517:
518: IF (l_pLog) THEN
519: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
520: l_module || '.end',
521: '<<< ' || l_api_name);
522: END IF;
523:
538:
539: WHEN OTHERS THEN
540: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
541: IF (l_uLog) THEN
542: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
543: l_module || '.' || l_stmt_num,
544: SUBSTRB (SQLERRM , 1 , 240));
545: END IF;
546:
604: l_full_name CONSTANT VARCHAR2(2000) := G_PKG_NAME || '.' || l_api_name;
605: l_module CONSTANT VARCHAR2(2000) := 'cst.plsql.' || l_full_name;
606:
607:
608: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
609: l_module);
610: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
611: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
612: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
606:
607:
608: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
609: l_module);
610: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
611: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
612: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
613:
614: BEGIN
607:
608: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
609: l_module);
610: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
611: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
612: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
613:
614: BEGIN
615:
608: l_uLog CONSTANT BOOLEAN := FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL AND FND_LOG.TEST (FND_LOG.LEVEL_UNEXPECTED,
609: l_module);
610: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
611: l_eventLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
612: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
613:
614: BEGIN
615:
616: -- Write the module name to fnd log file
612: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
613:
614: BEGIN
615:
616: -- Write the module name to fnd log file
617:
618: IF (l_pLog) THEN
619: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
620: l_module || '.begin',
615:
616: -- Write the module name to fnd log file
617:
618: IF (l_pLog) THEN
619: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
620: l_module || '.begin',
621: '>>> ' || l_api_name);
622: END IF;
623:
1002: ( p_count => x_msg_count,
1003: p_data => x_msg_data
1004: );
1005:
1006: -- Write the module name to fnd log file
1007:
1008: IF (l_pLog) THEN
1009: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
1010: l_module || '.end',
1005:
1006: -- Write the module name to fnd log file
1007:
1008: IF (l_pLog) THEN
1009: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
1010: l_module || '.end',
1011: '<<< ' || l_api_name);
1012: END IF;
1013:
1027:
1028: WHEN OTHERS THEN
1029: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1030: IF (l_uLog) THEN
1031: FND_LOG.STRING (FND_LOG.LEVEL_UNEXPECTED,
1032: l_module || '.' || l_stmt_num,
1033: SUBSTRB (SQLERRM , 1 , 240));
1034: END IF;
1035: