1: PACKAGE BODY CST_ReceiptAccrualPerEnd_PVT AS
2: /* $Header: CSTVRAPB.pls 120.12.12010000.3 2008/10/29 23:12:56 anjha ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):='CST_ReceiptAccrualPerEnd_PVT';
5: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6:
7: G_GL_APPLICATION_ID CONSTANT NUMBER := 101;
8: G_PO_APPLICATION_ID CONSTANT NUMBER := 201;
9: G_CST_APPLICATION_ID CONSTANT NUMBER := 707;
43: /* 2- PROCEDURE */
44: /* 1- STATEMENT */
45:
46: /* In general, we should use the following:
47: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
48: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
49: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
50: l_exceptionLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
51: l_eventLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
44: /* 1- STATEMENT */
45:
46: /* In general, we should use the following:
47: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
48: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
49: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
50: l_exceptionLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
51: l_eventLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
52: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
45:
46: /* In general, we should use the following:
47: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
48: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
49: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
50: l_exceptionLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
51: l_eventLog CONSTANT BOOLEAN := l_exceptionLog 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: /* In general, we should use the following:
47: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
48: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
49: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
50: l_exceptionLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
51: l_eventLog CONSTANT BOOLEAN := l_exceptionLog 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: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
48: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
49: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
50: l_exceptionLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
51: l_eventLog CONSTANT BOOLEAN := l_exceptionLog 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:
48: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
49: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
50: l_exceptionLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
51: l_eventLog CONSTANT BOOLEAN := l_exceptionLog 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:
56: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
49: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
50: l_exceptionLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
51: l_eventLog CONSTANT BOOLEAN := l_exceptionLog 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:
56: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
57: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= 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:
56: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
57: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
58: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
59: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
60:
53: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
54: */
55:
56: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
57: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
58: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
59: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
60:
61: l_conc_status BOOLEAN;
54: */
55:
56: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
57: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
58: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
59: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
60:
61: l_conc_status BOOLEAN;
62: l_return BOOLEAN;
55:
56: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
57: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
58: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
59: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
60:
61: l_conc_status BOOLEAN;
62: l_return BOOLEAN;
63: l_status VARCHAR2(1);
74: g_counter := 0;
75: l_stmt_num := 0;
76: -- Procedure level log message for Entry point
77: IF (l_pLog) THEN
78: FND_LOG.STRING(
79: FND_LOG.LEVEL_PROCEDURE,
80: l_module || '.begin',
81: 'Start_Process <<' ||
82: 'p_min_accrual_amount = ' || p_min_accrual_amount ||','||
75: l_stmt_num := 0;
76: -- Procedure level log message for Entry point
77: IF (l_pLog) THEN
78: FND_LOG.STRING(
79: FND_LOG.LEVEL_PROCEDURE,
80: l_module || '.begin',
81: 'Start_Process <<' ||
82: 'p_min_accrual_amount = ' || p_min_accrual_amount ||','||
83: 'p_vendor_id = ' || p_vendor_id ||','||
211: END IF;
212:
213: -- Procedure level log message for exit point
214: IF (l_pLog) THEN
215: FND_LOG.STRING(
216: FND_LOG.LEVEL_PROCEDURE,
217: l_module || '.end',
218: 'Start_Process >>'
219: );
212:
213: -- Procedure level log message for exit point
214: IF (l_pLog) THEN
215: FND_LOG.STRING(
216: FND_LOG.LEVEL_PROCEDURE,
217: l_module || '.end',
218: 'Start_Process >>'
219: );
220: END IF;
225: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
226: ROLLBACK TO Start_Process_PVT;
227:
228: IF (l_exceptionLog) THEN
229: FND_LOG.STRING(
230: FND_LOG.LEVEL_EXCEPTION,
231: l_module || '.' || l_stmt_num,
232: l_msg_data
233: );
226: ROLLBACK TO Start_Process_PVT;
227:
228: IF (l_exceptionLog) THEN
229: FND_LOG.STRING(
230: FND_LOG.LEVEL_EXCEPTION,
231: l_module || '.' || l_stmt_num,
232: l_msg_data
233: );
234: END IF;
246:
247: WHEN OTHERS THEN
248: ROLLBACK TO Start_Process_PVT;
249:
250: -- Unexpected level log message for FND log
251: IF (l_uLog) THEN
252: FND_LOG.STRING(
253: FND_LOG.LEVEL_UNEXPECTED,
254: l_module || '.' || l_stmt_num,
248: ROLLBACK TO Start_Process_PVT;
249:
250: -- Unexpected level log message for FND log
251: IF (l_uLog) THEN
252: FND_LOG.STRING(
253: FND_LOG.LEVEL_UNEXPECTED,
254: l_module || '.' || l_stmt_num,
255: SQLERRM
256: );
249:
250: -- Unexpected level log message for FND log
251: IF (l_uLog) THEN
252: FND_LOG.STRING(
253: FND_LOG.LEVEL_UNEXPECTED,
254: l_module || '.' || l_stmt_num,
255: SQLERRM
256: );
257: END IF;
309:
310: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
311: l_module CONSTANT VARCHAR2(70) := 'cst.plsql.'||l_full_name;
312:
313: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
314: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
315: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
316: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
317:
310: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
311: l_module CONSTANT VARCHAR2(70) := 'cst.plsql.'||l_full_name;
312:
313: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
314: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
315: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
316: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
317:
318: l_stmt_num NUMBER;
311: l_module CONSTANT VARCHAR2(70) := 'cst.plsql.'||l_full_name;
312:
313: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
314: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
315: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
316: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
317:
318: l_stmt_num NUMBER;
319: l_msg_data VARCHAR2(240);
312:
313: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
314: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
315: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
316: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
317:
318: l_stmt_num NUMBER;
319: l_msg_data VARCHAR2(240);
320: l_ctr NUMBER;
351:
352: l_stmt_num := 0;
353: -- Procedure level log message for Entry point
354: IF (l_pLog) THEN
355: FND_LOG.STRING(
356: FND_LOG.LEVEL_PROCEDURE,
357: l_module || '.begin',
358: 'Insert_AccrualSubLedger <<');
359: END IF;
352: l_stmt_num := 0;
353: -- Procedure level log message for Entry point
354: IF (l_pLog) THEN
355: FND_LOG.STRING(
356: FND_LOG.LEVEL_PROCEDURE,
357: l_module || '.begin',
358: 'Insert_AccrualSubLedger <<');
359: END IF;
360:
654: g_rae_cur_conv_date_tbl.DELETE;
655:
656: -- Procedure level log message for exit point
657: IF (l_pLog) THEN
658: FND_LOG.STRING(
659: FND_LOG.LEVEL_PROCEDURE,
660: l_module || '.end',
661: 'Insert_AccrualSubLedger >>'
662: );
655:
656: -- Procedure level log message for exit point
657: IF (l_pLog) THEN
658: FND_LOG.STRING(
659: FND_LOG.LEVEL_PROCEDURE,
660: l_module || '.end',
661: 'Insert_AccrualSubLedger >>'
662: );
663: END IF;
679: ROLLBACK TO Seed_RcvAccountingEvents_PVT;
680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
681:
682: IF (l_exceptionLog) THEN
683: FND_LOG.STRING(
684: FND_LOG.LEVEL_EXCEPTION,
685: l_module || '.' || l_stmt_num,
686: l_msg_data
687: );
680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
681:
682: IF (l_exceptionLog) THEN
683: FND_LOG.STRING(
684: FND_LOG.LEVEL_EXCEPTION,
685: l_module || '.' || l_stmt_num,
686: l_msg_data
687: );
688: END IF;
697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
698:
699: -- Unexpected level log message
700: IF (l_uLog) THEN
701: FND_LOG.STRING(
702: FND_LOG.LEVEL_UNEXPECTED,
703: l_module || '.' || l_stmt_num,
704: SQLERRM
705: );
698:
699: -- Unexpected level log message
700: IF (l_uLog) THEN
701: FND_LOG.STRING(
702: FND_LOG.LEVEL_UNEXPECTED,
703: l_module || '.' || l_stmt_num,
704: SQLERRM
705: );
706: END IF;
748:
749: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
750: l_module CONSTANT VARCHAR2(70) := 'cst.plsql.'||l_full_name;
751:
752: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
753: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
754: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
755: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
756:
749: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
750: l_module CONSTANT VARCHAR2(70) := 'cst.plsql.'||l_full_name;
751:
752: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
753: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
754: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
755: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
756:
757: l_stmt_num NUMBER;
750: l_module CONSTANT VARCHAR2(70) := 'cst.plsql.'||l_full_name;
751:
752: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
753: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
754: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
755: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
756:
757: l_stmt_num NUMBER;
758: l_msg_data VARCHAR2(240);
751:
752: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
753: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
754: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
755: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
756:
757: l_stmt_num NUMBER;
758: l_msg_data VARCHAR2(240);
759:
831:
832: l_stmt_num := 0;
833: -- Procedure level log message for Entry point
834: IF (l_pLog) THEN
835: FND_LOG.STRING(
836: FND_LOG.LEVEL_PROCEDURE,
837: l_module || '.begin',
838: 'Create_AccrualAccount <<');
839: END IF;
832: l_stmt_num := 0;
833: -- Procedure level log message for Entry point
834: IF (l_pLog) THEN
835: FND_LOG.STRING(
836: FND_LOG.LEVEL_PROCEDURE,
837: l_module || '.begin',
838: 'Create_AccrualAccount <<');
839: END IF;
840:
1314: /*Bug6987381 End */
1315: <
1316: -- Procedure level log message for exit point
1317: IF (l_pLog) THEN
1318: FND_LOG.STRING(
1319: FND_LOG.LEVEL_PROCEDURE,
1320: l_module || '.end',
1321: 'Create_AccrualAccount >>'
1322: );
1315: <
1316: -- Procedure level log message for exit point
1317: IF (l_pLog) THEN
1318: FND_LOG.STRING(
1319: FND_LOG.LEVEL_PROCEDURE,
1320: l_module || '.end',
1321: 'Create_AccrualAccount >>'
1322: );
1323: END IF;
1339: ROLLBACK TO Create_AccrualAccount_PVT;
1340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1341:
1342: IF (l_exceptionLog) THEN
1343: FND_LOG.STRING(
1344: FND_LOG.LEVEL_EXCEPTION,
1345: l_module || '.' || l_stmt_num,
1346: l_msg_data
1347: );
1340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1341:
1342: IF (l_exceptionLog) THEN
1343: FND_LOG.STRING(
1344: FND_LOG.LEVEL_EXCEPTION,
1345: l_module || '.' || l_stmt_num,
1346: l_msg_data
1347: );
1348: END IF;
1357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1358:
1359: -- Unexpected level log message
1360: IF (l_uLog) THEN
1361: FND_LOG.STRING(
1362: FND_LOG.LEVEL_UNEXPECTED,
1363: l_module || '.' || l_stmt_num,
1364: SQLERRM
1365: );
1358:
1359: -- Unexpected level log message
1360: IF (l_uLog) THEN
1361: FND_LOG.STRING(
1362: FND_LOG.LEVEL_UNEXPECTED,
1363: l_module || '.' || l_stmt_num,
1364: SQLERRM
1365: );
1366: END IF;
1409:
1410: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
1411: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.'||l_full_name;
1412:
1413: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
1414: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
1415: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
1416: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
1417:
1410: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
1411: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.'||l_full_name;
1412:
1413: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
1414: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
1415: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
1416: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
1417:
1418: l_stmt_num NUMBER;
1411: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.'||l_full_name;
1412:
1413: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
1414: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
1415: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
1416: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
1417:
1418: l_stmt_num NUMBER;
1419: l_msg_data VARCHAR2(240);
1412:
1413: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
1414: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
1415: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
1416: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
1417:
1418: l_stmt_num NUMBER;
1419: l_msg_data VARCHAR2(240);
1420:
1424:
1425: l_stmt_num := 0;
1426: -- Procedure level log message for Entry point
1427: IF (l_pLog) THEN
1428: FND_LOG.STRING(
1429: FND_LOG.LEVEL_PROCEDURE,
1430: l_module || '.begin',
1431: 'Insert_Account <<');
1432: END IF;
1425: l_stmt_num := 0;
1426: -- Procedure level log message for Entry point
1427: IF (l_pLog) THEN
1428: FND_LOG.STRING(
1429: FND_LOG.LEVEL_PROCEDURE,
1430: l_module || '.begin',
1431: 'Insert_Account <<');
1432: END IF;
1433:
1511: END IF;
1512:
1513: -- Procedure level log message for exit point
1514: IF (l_pLog) THEN
1515: FND_LOG.STRING(
1516: FND_LOG.LEVEL_PROCEDURE,
1517: l_module || '.end',
1518: 'Insert_Account >>'
1519: );
1512:
1513: -- Procedure level log message for exit point
1514: IF (l_pLog) THEN
1515: FND_LOG.STRING(
1516: FND_LOG.LEVEL_PROCEDURE,
1517: l_module || '.end',
1518: 'Insert_Account >>'
1519: );
1520: END IF;
1536: ROLLBACK TO Insert_Account_PVT;
1537: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1538:
1539: IF (l_exceptionLog) THEN
1540: FND_LOG.STRING(
1541: FND_LOG.LEVEL_EXCEPTION,
1542: l_module || '.' || l_stmt_num,
1543: l_msg_data
1544: );
1537: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1538:
1539: IF (l_exceptionLog) THEN
1540: FND_LOG.STRING(
1541: FND_LOG.LEVEL_EXCEPTION,
1542: l_module || '.' || l_stmt_num,
1543: l_msg_data
1544: );
1545: END IF;
1554: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1555:
1556: -- Unexpected level log message
1557: IF (l_uLog) THEN
1558: FND_LOG.STRING(
1559: FND_LOG.LEVEL_UNEXPECTED,
1560: l_module || '.' || l_stmt_num,
1561: SQLERRM
1562: );
1555:
1556: -- Unexpected level log message
1557: IF (l_uLog) THEN
1558: FND_LOG.STRING(
1559: FND_LOG.LEVEL_UNEXPECTED,
1560: l_module || '.' || l_stmt_num,
1561: SQLERRM
1562: );
1563: END IF;
1604:
1605: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
1606: l_module CONSTANT VARCHAR2(70) := 'cst.plsql.'||l_full_name;
1607:
1608: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
1609: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
1610: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
1611: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
1612:
1605: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
1606: l_module CONSTANT VARCHAR2(70) := 'cst.plsql.'||l_full_name;
1607:
1608: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
1609: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
1610: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
1611: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
1612:
1613: l_stmt_num NUMBER;
1606: l_module CONSTANT VARCHAR2(70) := 'cst.plsql.'||l_full_name;
1607:
1608: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
1609: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
1610: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
1611: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
1612:
1613: l_stmt_num NUMBER;
1614: l_msg_data VARCHAR2(240);
1607:
1608: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
1609: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
1610: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
1611: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
1612:
1613: l_stmt_num NUMBER;
1614: l_msg_data VARCHAR2(240);
1615: l_ctr NUMBER;
1623:
1624: l_stmt_num := 0;
1625: -- Procedure level log message for Entry point
1626: IF (l_pLog) THEN
1627: FND_LOG.STRING(
1628: FND_LOG.LEVEL_PROCEDURE,
1629: l_module || '.begin',
1630: 'Insert_AccrualSubLedger <<');
1631: END IF;
1624: l_stmt_num := 0;
1625: -- Procedure level log message for Entry point
1626: IF (l_pLog) THEN
1627: FND_LOG.STRING(
1628: FND_LOG.LEVEL_PROCEDURE,
1629: l_module || '.begin',
1630: 'Insert_AccrualSubLedger <<');
1631: END IF;
1632:
1766: g_pnt_rcv_acc_event_id_tbl.DELETE;
1767:
1768: -- Procedure level log message for exit point
1769: IF (l_pLog) THEN
1770: FND_LOG.STRING(
1771: FND_LOG.LEVEL_PROCEDURE,
1772: l_module || '.end',
1773: 'Insert_AccrualSubLedger >>'
1774: );
1767:
1768: -- Procedure level log message for exit point
1769: IF (l_pLog) THEN
1770: FND_LOG.STRING(
1771: FND_LOG.LEVEL_PROCEDURE,
1772: l_module || '.end',
1773: 'Insert_AccrualSubLedger >>'
1774: );
1775: END IF;
1791: ROLLBACK TO Insert_AccrualSubLedger_PVT;
1792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1793:
1794: IF (l_exceptionLog) THEN
1795: FND_LOG.STRING(
1796: FND_LOG.LEVEL_EXCEPTION,
1797: l_module || '.' || l_stmt_num,
1798: l_msg_data
1799: );
1792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1793:
1794: IF (l_exceptionLog) THEN
1795: FND_LOG.STRING(
1796: FND_LOG.LEVEL_EXCEPTION,
1797: l_module || '.' || l_stmt_num,
1798: l_msg_data
1799: );
1800: END IF;
1809: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1810:
1811: -- Unexpected level log message
1812: IF (l_uLog) THEN
1813: FND_LOG.STRING(
1814: FND_LOG.LEVEL_UNEXPECTED,
1815: l_module || '.' || l_stmt_num,
1816: SQLERRM
1817: );
1810:
1811: -- Unexpected level log message
1812: IF (l_uLog) THEN
1813: FND_LOG.STRING(
1814: FND_LOG.LEVEL_UNEXPECTED,
1815: l_module || '.' || l_stmt_num,
1816: SQLERRM
1817: );
1818: END IF;
1860:
1861: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
1862: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.'||l_full_name;
1863:
1864: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
1865: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
1866: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
1867: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
1868: l_stmt_num NUMBER;
1861: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
1862: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.'||l_full_name;
1863:
1864: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
1865: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
1866: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
1867: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
1868: l_stmt_num NUMBER;
1869: l_msg_data VARCHAR2(240);
1862: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.'||l_full_name;
1863:
1864: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
1865: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
1866: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
1867: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
1868: l_stmt_num NUMBER;
1869: l_msg_data VARCHAR2(240);
1870:
1863:
1864: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
1865: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
1866: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
1867: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
1868: l_stmt_num NUMBER;
1869: l_msg_data VARCHAR2(240);
1870:
1871: l_application_id NUMBER;
1884:
1885: l_stmt_num := 0;
1886: -- Procedure level log message for Entry point
1887: IF (l_pLog) THEN
1888: FND_LOG.STRING(
1889: FND_LOG.LEVEL_PROCEDURE,
1890: l_module || '.begin',
1891: 'Get_SystemSetup <<' ||
1892: 'p_period_name =' || p_period_name);
1885: l_stmt_num := 0;
1886: -- Procedure level log message for Entry point
1887: IF (l_pLog) THEN
1888: FND_LOG.STRING(
1889: FND_LOG.LEVEL_PROCEDURE,
1890: l_module || '.begin',
1891: 'Get_SystemSetup <<' ||
1892: 'p_period_name =' || p_period_name);
1893: END IF;
1993: WHERE je_source_name = 'Purchasing';
1994:
1995: -- Procedure level log message for exit point
1996: IF (l_pLog) THEN
1997: FND_LOG.STRING(
1998: FND_LOG.LEVEL_PROCEDURE,
1999: l_module || '.end',
2000: 'Get_SystemSetup >> ' ||
2001: 'set_of_books_id = ' || x_sys_setup_rec.set_of_books_id ||','||
1994:
1995: -- Procedure level log message for exit point
1996: IF (l_pLog) THEN
1997: FND_LOG.STRING(
1998: FND_LOG.LEVEL_PROCEDURE,
1999: l_module || '.end',
2000: 'Get_SystemSetup >> ' ||
2001: 'set_of_books_id = ' || x_sys_setup_rec.set_of_books_id ||','||
2002: 'chart_of_accounts_id = ' || x_sys_setup_rec.chart_of_accounts_id ||','||
2020: ROLLBACK TO Get_SystemSetup_PVT;
2021: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2022:
2023: IF (l_exceptionLog) THEN
2024: FND_LOG.STRING(
2025: FND_LOG.LEVEL_EXCEPTION,
2026: l_module || '.' || l_stmt_num,
2027: l_msg_data
2028: );
2021: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2022:
2023: IF (l_exceptionLog) THEN
2024: FND_LOG.STRING(
2025: FND_LOG.LEVEL_EXCEPTION,
2026: l_module || '.' || l_stmt_num,
2027: l_msg_data
2028: );
2029: END IF;
2038: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2039:
2040: -- Unexpected level log message
2041: IF (l_uLog) THEN
2042: FND_LOG.STRING(
2043: FND_LOG.LEVEL_UNEXPECTED,
2044: l_module || '.' || l_stmt_num,
2045: SQLERRM
2046: );
2039:
2040: -- Unexpected level log message
2041: IF (l_uLog) THEN
2042: FND_LOG.STRING(
2043: FND_LOG.LEVEL_UNEXPECTED,
2044: l_module || '.' || l_stmt_num,
2045: SQLERRM
2046: );
2047: END IF;