[Home] [Help]
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CST_RevenueCogsMatch_PVT';
5: G_DEBUG CONSTANT VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
6: G_LOG_HEAD CONSTANT VARCHAR2(40) := 'cst.plsql.'||G_PKG_NAME;
7: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
8: g_module_name VARCHAR2(255) := G_LOG_HEAD;
9: g_mrp_debug CONSTANT VARCHAR2(1) := NVL(fnd_profile.value('MRP_DEBUG'),'N');
10:
11: -- factional number representing 23 hours, 59 minutes and 59 seconds
22: PROCEDURE debug
23: ( line IN VARCHAR2,
24: msg_prefix IN VARCHAR2 DEFAULT 'CST',
25: msg_module IN VARCHAR2 DEFAULT g_module_name,
26: msg_level IN NUMBER DEFAULT FND_LOG.LEVEL_STATEMENT);
27:
28: -- Ensure the MMT transaction_date and the acct_period_id match
29: PROCEDURE ensure_mmt_per_and_date
30: (x_return_status OUT NOCOPY VARCHAR2,
130: l_msg_data VARCHAR2(8000) := '';
131: l_stmt_num NUMBER := 0;
132:
133: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
134: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
135: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
136: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
137: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
138: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
131: l_stmt_num NUMBER := 0;
132:
133: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
134: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
135: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
136: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
137: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
138: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
139:
132:
133: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
134: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
135: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
136: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
137: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
138: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
139:
140: program_exception EXCEPTION;
133: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
134: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
135: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
136: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
137: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
138: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
139:
140: program_exception EXCEPTION;
141: CONC_STATUS BOOLEAN; -- variable for concurrent request completion status
134: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
135: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
136: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
137: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
138: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
139:
140: program_exception EXCEPTION;
141: CONC_STATUS BOOLEAN; -- variable for concurrent request completion status
142:
252: x_return_status => l_return_status);
253:
254: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
255: IF l_errorLog THEN
256: FND_LOG.string(FND_LOG.LEVEL_ERROR,l_module||'.'||l_stmt_num,substr(SQLERRM,1,250));
257: END IF;
258: raise program_exception;
259: END IF;
260:
268: x_return_status => l_return_status);
269:
270: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
271: IF l_errorLog THEN
272: FND_LOG.string(FND_LOG.LEVEL_ERROR,l_module||'.'||l_stmt_num,substr(SQLERRM,1,250));
273: END IF;
274: raise program_exception;
275: END IF;
276:
274: raise program_exception;
275: END IF;
276:
277: IF l_eventLog THEN
278: FND_LOG.string(FND_LOG.LEVEL_EVENT,l_module||'.20'
279: ,'Completed phase 1 successfully.');
280: END IF;
281:
282: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_success) THEN
315: -- by OM line and accounting period.
316: l_stmt_num := 30;
317:
318: IF l_stmtLog THEN
319: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module||'.'||l_stmt_num,
320: 'Calling AR_MATCH_REV_COGS_GRP.populate_cst_tables with '||
321: 'p_from_gl_date = '||l_low_date||','||
322: 'p_to_gl_date = '||l_high_date||',');
323: END IF;
336: );
337:
338: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
339: IF l_errorLog THEN
340: FND_LOG.string(FND_LOG.LEVEL_ERROR,l_module||'.'||l_stmt_num,substr(SQLERRM,1,250));
341: END IF;
342: raise program_exception;
343: END IF;
344:
342: raise program_exception;
343: END IF;
344:
345: IF l_eventLog THEN
346: FND_LOG.string(FND_LOG.LEVEL_EVENT,l_module||'.20'
347: ,'Completed phase 2 successfully.');
348: END IF;
349:
350: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_success) THEN
458: ,p_neg_req_id => p_neg_req_id); -- BUG#7387575
459:
460: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
461: IF l_errorLog THEN
462: FND_LOG.string(FND_LOG.LEVEL_ERROR,l_module||'.'||l_stmt_num,substr(SQLERRM,1,250));
463: END IF;
464: raise program_exception;
465: END IF;
466:
471: l_stmt_num := 60;
472:
473:
474: IF l_eventLog THEN
475: FND_LOG.string(FND_LOG.LEVEL_EVENT,l_module||'.20'
476: ,'Completed phase 3 successfully.');
477: END IF;
478:
479: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_success) THEN
504: ,p_neg_req_id => p_neg_req_id);--BUG7387575
505:
506: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
507: IF l_errorLog THEN
508: FND_LOG.string(FND_LOG.LEVEL_ERROR,l_module||'.'||l_stmt_num,substr(SQLERRM,1,250));
509: END IF;
510: raise program_exception;
511: END IF;
512:
510: raise program_exception;
511: END IF;
512:
513: IF l_eventLog THEN
514: FND_LOG.string(FND_LOG.LEVEL_EVENT,l_module||'.20'
515: ,'Completed phase 4 successfully.');
516: END IF;
517:
518: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_success) THEN
554: FND_MSG_PUB.ADD;
555: END IF;
556:
557: IF l_errorLog THEN
558: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,l_module||'.'||l_stmt_num,TRUE);
559: END IF;
560:
561: CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',l_module||' failed to complete.');
562:
580:
581: x_return_status := fnd_api.g_ret_sts_unexp_error ;
582:
583: IF l_unexpLog THEN
584: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||'.'||l_stmt_num
585: ,substrb(SQLERRM,1,250));
586: END IF;
587:
588: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
638: l_stmt_num NUMBER := 0;
639: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
640:
641: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
642: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
643: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
644: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
645: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
646: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
639: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
640:
641: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
642: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
643: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
644: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
645: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
646: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
647:
640:
641: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
642: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
643: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
644: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
645: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
646: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
647:
648: CURSOR c_sales_order_issues IS
641: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
642: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
643: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
644: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
645: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
646: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
647:
648: CURSOR c_sales_order_issues IS
649: SELECT mmt.trx_source_line_id cogs_om_line_id,
642: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
643: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
644: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
645: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
646: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
647:
648: CURSOR c_sales_order_issues IS
649: SELECT mmt.trx_source_line_id cogs_om_line_id,
650: mmt.distribution_account_id cogs_acct_id,
730:
731: l_stmt_num := 0;
732:
733: IF l_procLog THEN
734: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,l_module||'.begin',
735: 'Entering '||G_PKG_NAME||'.'||l_api_name
736: );
737: END IF;
738:
776: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
777: FND_MSG_PUB.ADD;
778: END IF;
779: IF l_errorLog THEN
780: FND_LOG.message(FND_LOG.LEVEL_ERROR, l_module||'.10',TRUE);
781: END IF;
782: ELSE
783: l_so_count := l_so_count + 1;
784: END IF;
786: END LOOP all_sales_orders_loop;
787:
788: IF l_eventLog THEN
789: l_api_message := 'Inserted '||to_char(l_so_count)||' sales order issues into CCE.';
790: FND_LOG.string(FND_LOG.LEVEL_EVENT, G_LOG_HEAD ||'.'|| l_api_name || '.10', l_api_message);
791: END IF;
792:
793: -- End API Body
794:
792:
793: -- End API Body
794:
795: IF l_proclog THEN
796: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module||'.end',
797: 'Exiting '||G_PKG_NAME||'.'||l_api_name||' with '||
798: 'x_return_status = '||x_return_status
799: );
800: END IF;
805: ROLLBACK TO Insert_SoIssues_PVT;
806: x_return_status := fnd_api.g_ret_sts_unexp_error ;
807:
808: IF l_unexpLog THEN
809: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
810: ,'Insert_SoIssues ('||to_char(l_stmt_num)||') : '||substr(SQLERRM,1,200));
811: END IF;
812:
813: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
855:
856: l_api_name CONSTANT VARCHAR2(30) := 'Insert_RmaReceipts';
857: l_api_message VARCHAR2(1000);
858: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
859: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
860: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
861: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
862: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
863: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
856: l_api_name CONSTANT VARCHAR2(30) := 'Insert_RmaReceipts';
857: l_api_message VARCHAR2(1000);
858: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
859: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
860: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
861: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
862: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
863: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
864:
857: l_api_message VARCHAR2(1000);
858: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
859: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
860: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
861: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
862: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
863: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
864:
865: l_stmt_num NUMBER := 0;
858: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
859: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
860: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
861: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
862: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
863: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
864:
865: l_stmt_num NUMBER := 0;
866:
859: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
860: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
861: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
862: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
863: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
864:
865: l_stmt_num NUMBER := 0;
866:
867: CURSOR c_rma_receipts IS
1450: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1451: FND_MSG_PUB.ADD;
1452: END IF;
1453: IF l_errorLog THEN
1454: FND_LOG.message(FND_LOG.LEVEL_ERROR, l_module||'.'||to_char(l_stmt_num),TRUE);
1455: END IF;
1456: raise program_exception;
1457: END IF;
1458:
1464: END LOOP all_rma_receipts_loop;
1465:
1466: IF l_eventLog THEN
1467: l_api_message := 'Inserted '||to_char(l_rma_count)||' RMA Receipts into CCE.';
1468: FND_LOG.string(FND_LOG.LEVEL_EVENT, G_LOG_HEAD ||'.'|| l_api_name || '.'||l_stmt_num, l_api_message);
1469: END IF;
1470:
1471: -- End API Body
1472:
1470:
1471: -- End API Body
1472:
1473: IF l_proclog THEN
1474: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module||'.end',
1475: 'Exiting '||G_PKG_NAME||'.'||l_api_name||' with '||
1476: 'x_return_status = '||x_return_status
1477: );
1478: END IF;
1487: ROLLBACK TO Insert_RmaReceipts_PVT;
1488: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1489:
1490: IF l_unexpLog THEN
1491: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
1492: ,'Insert_RmaReceipts ('||to_char(l_stmt_num)||') : '||substr(SQLERRM,1,200));
1493: END IF;
1494:
1495: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1540: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1541: l_stmt_num NUMBER := 0;
1542:
1543: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
1544: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
1545: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
1546: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
1547: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
1548: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
1541: l_stmt_num NUMBER := 0;
1542:
1543: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
1544: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
1545: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
1546: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
1547: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
1548: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
1549:
1542:
1543: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
1544: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
1545: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
1546: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
1547: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
1548: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
1549:
1550: --{BUG#5726230
1543: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
1544: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
1545: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
1546: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
1547: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
1548: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
1549:
1550: --{BUG#5726230
1551: -- Add cursor for ledger access
1544: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
1545: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
1546: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
1547: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
1548: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
1549:
1550: --{BUG#5726230
1551: -- Add cursor for ledger access
1552: CURSOR cu_ledger(p_ledger_id IN NUMBER)
1921: FND_MESSAGE.set_token('PERIOD_NAME',l_period_name);
1922: FND_MSG_PUB.ADD;
1923: debug('EXCEPTION- CST_NO_OPEN_GL_PERIOD l_sob:'||l_sob||' - l_period_name:'||l_period_name);
1924: IF l_errorLog THEN
1925: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,l_module||'.'||l_stmt_num,TRUE);
1926: END IF;
1927: END IF;
1928: raise no_data_found;
1929: END;
2384: x_msg_count => l_msg_count,
2385: x_msg_data => l_error_message);
2386:
2387: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2388: debug(FND_LOG.LEVEL_ERROR, l_module||'.'||to_char(l_stmt_num));
2389: raise program_exception;
2390: END IF;
2391: --}
2392:
2407: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2408: FND_MSG_PUB.ADD;
2409: END IF;
2410: IF l_errorLog THEN
2411: FND_LOG.message(FND_LOG.LEVEL_ERROR, l_module||'.'||to_char(l_stmt_num),TRUE);
2412: END IF;
2413: raise program_exception;
2414: END IF;
2415:
2467:
2468:
2469:
2470: IF l_stmtLog THEN
2471: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module||'.100',
2472: 'Ledger.PerNum.InsertedEvents = '||l_sob||'.'|| --to_char(l_sob.set_of_books_id)||'.'||
2473: l_cogs_acct_period_num||'.'||l_cce_count);
2474: END IF;
2475:
2483: END LOOP; -- acct_period_loop;
2484:
2485: IF l_eventLog THEN
2486: l_api_message := 'Inserted '||to_char(l_cce_count)||' new COGS Recognition Events into CCE.';
2487: FND_LOG.string(FND_LOG.LEVEL_EVENT, G_LOG_HEAD ||'.'|| l_api_name || '.10', l_api_message);
2488: END IF;
2489:
2490: -- End API Body
2491:
2489:
2490: -- End API Body
2491:
2492: IF l_proclog THEN
2493: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module||'.end',
2494: 'Exiting '||G_PKG_NAME||'.'||l_api_name||' with '||
2495: 'x_return_status = '||x_return_status
2496: );
2497: END IF;
2527: FND_MSG_PUB.ADD;
2528: END IF;
2529:
2530: IF l_unexpLog THEN
2531: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||'.'||l_stmt_num
2532: ,'Create_CogsRecognitionEvents ('||to_char(l_stmt_num)||') : '||substr(SQLERRM,1,200));
2533: END IF;
2534: FND_FILE.put_line(fnd_file.log, 'OTHERS EXCEPTION IN Create_CogsRecognitionEvents:'||substrb(SQLERRM,1,250) );
2535:
2598: l_msg_data VARCHAR2(8000) := '';
2599: l_stmt_num NUMBER := 0;
2600:
2601: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name||'.';
2602: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
2603: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
2604: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
2605: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
2606: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
2599: l_stmt_num NUMBER := 0;
2600:
2601: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name||'.';
2602: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
2603: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
2604: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
2605: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
2606: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
2607:
2600:
2601: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name||'.';
2602: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
2603: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
2604: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
2605: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
2606: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
2607:
2608: l_revenue_om_line_id NUMBER;
2601: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name||'.';
2602: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
2603: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
2604: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
2605: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
2606: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
2607:
2608: l_revenue_om_line_id NUMBER;
2609: l_parent_cce_id NUMBER;
2602: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
2603: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
2604: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
2605: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
2606: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
2607:
2608: l_revenue_om_line_id NUMBER;
2609: l_parent_cce_id NUMBER;
2610: l_operating_unit_id NUMBER;
2685:
2686: debug(' CST_NO_REVENUE_OM_LINE for p_cogs_om_line_id : '||p_cogs_om_line_id);
2687:
2688: IF l_errorLog THEN
2689: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,G_LOG_HEAD||'.'||l_api_name||'.20',TRUE);
2690: END IF;
2691: raise program_exception;
2692: END IF;
2693:
2829:
2830: -- End API Body
2831:
2832: IF l_proclog THEN
2833: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module||'.end',
2834: 'Exiting '||G_PKG_NAME||'.'||l_api_name||' with '||
2835: 'x_return_status = '||x_return_status
2836: );
2837: END IF;
2846: ROLLBACK TO Insert_OneSoIssue_PVT;
2847: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2848:
2849: IF l_unexpLog THEN
2850: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||'.'||l_stmt_num
2851: ,'Insert_OneSoIssue ('||to_char(l_stmt_num)||') : '||substr(SQLERRM,1,200));
2852: END IF;
2853:
2854: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2920: l_api_version CONSTANT NUMBER := 1.0;
2921: l_stmt_num NUMBER := 0;
2922:
2923: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
2924: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
2925: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
2926: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
2927: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
2928: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
2921: l_stmt_num NUMBER := 0;
2922:
2923: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
2924: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
2925: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
2926: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
2927: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
2928: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
2929:
2922:
2923: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
2924: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
2925: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
2926: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
2927: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
2928: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
2929:
2930: l_parent_event_id NUMBER;
2923: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
2924: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
2925: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
2926: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
2927: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
2928: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
2929:
2930: l_parent_event_id NUMBER;
2931: l_prior_event_id NUMBER;
2924: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
2925: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
2926: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
2927: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
2928: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
2929:
2930: l_parent_event_id NUMBER;
2931: l_prior_event_id NUMBER;
2932: l_cogs_percentage NUMBER;
3354: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3355: FND_MSG_PUB.ADD;
3356: END IF;
3357: IF l_errorLog THEN
3358: FND_LOG.message(FND_LOG.LEVEL_ERROR, l_module||'.'||to_char(l_stmt_num),TRUE);
3359: END IF;
3360: raise program_exception;
3361: END IF;
3362:
3377: , p_data => x_msg_data
3378: );
3379:
3380: IF l_proclog THEN
3381: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module||'.end',
3382: 'Exiting '||G_PKG_NAME||'.'||l_api_name||' with '||
3383: 'x_return_status = '||x_return_status||','||
3384: 'x_event_id = '||x_event_id||','||
3385: 'x_cogs_percentage = '||x_cogs_percentage
3396: ROLLBACK TO Insert_OneRmaReceipt_PVT;
3397: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3398:
3399: IF l_unexpLog THEN
3400: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||'.'||l_stmt_num
3401: ,'Insert_OneRmaReceipt '||to_char(l_stmt_num)||' : '||substr(SQLERRM,1,200));
3402: END IF;
3403:
3404: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3473:
3474: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3475:
3476: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
3477: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
3478: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
3479: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
3480: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
3481: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
3474: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3475:
3476: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
3477: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
3478: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
3479: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
3480: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
3481: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
3482:
3475:
3476: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
3477: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
3478: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
3479: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
3480: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
3481: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
3482:
3483: BEGIN
3476: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
3477: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
3478: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
3479: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
3480: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
3481: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
3482:
3483: BEGIN
3484:
3477: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
3478: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
3479: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
3480: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
3481: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
3482:
3483: BEGIN
3484:
3485: -- Standard start of API savepoint
3487:
3488: l_stmt_num := 0;
3489:
3490: IF l_procLog THEN
3491: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,l_module||'.begin',
3492: 'Entering '||G_PKG_NAME||'.'||l_api_name||' with '||
3493: 'p_api_version = '||p_api_version||','||
3494: 'p_cogs_om_line_id = '||p_cogs_om_line_id||','||
3495: 'p_pac_cost_type_id = '||p_pac_cost_type_id||','||
3575:
3576: x_return_status := l_return_status;
3577:
3578: IF l_proclog THEN
3579: fnd_log.string(fnd_log.level_procedure,l_module||'.end',
3580: 'Exiting '||G_PKG_NAME||'.'||l_api_name||' with '||
3581: 'x_return_status = '||x_return_status
3582: );
3583: END IF;
3587: ROLLBACK TO Record_SoIssueCost_PVT;
3588: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3589:
3590: IF l_unexpLog THEN
3591: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||'.'||l_stmt_num
3592: ,'Record_SoIssueCost '||to_char(l_stmt_num)||' : '||substr(SQLERRM,1,200));
3593: END IF;
3594:
3595: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3682: l_err_code VARCHAR2(240);
3683: l_err_msg VARCHAR2(240);
3684:
3685: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
3686: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
3687: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
3688: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
3689: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
3690: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
3683: l_err_msg VARCHAR2(240);
3684:
3685: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
3686: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
3687: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
3688: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
3689: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
3690: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
3691: program_exception EXCEPTION;
3684:
3685: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
3686: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
3687: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
3688: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
3689: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
3690: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
3691: program_exception EXCEPTION;
3692: l_accounting_created NUMBER;
3685: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
3686: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
3687: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
3688: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
3689: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
3690: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
3691: program_exception EXCEPTION;
3692: l_accounting_created NUMBER;
3693:
3686: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
3687: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
3688: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
3689: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
3690: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
3691: program_exception EXCEPTION;
3692: l_accounting_created NUMBER;
3693:
3694: BEGIN
3698:
3699: l_stmt_num := 0;
3700:
3701: IF l_proclog THEN
3702: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module||'.begin',
3703: 'Entering '||G_PKG_NAME||'.'||l_api_name||' with '||
3704: 'p_rma_om_line_id = '||p_rma_om_line_id||','||
3705: 'p_cogs_om_line_id = '||p_cogs_om_line_id||','||
3706: 'p_cost_type_id = '||p_cost_type_id||','||
3765: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3766: FND_MSG_PUB.ADD;
3767: END IF;
3768: IF l_errorLog THEN
3769: FND_LOG.message(FND_LOG.LEVEL_ERROR, l_module||'.10',TRUE);
3770: END IF;
3771: raise program_exception;
3772: END IF;
3773:
3795: WHERE cogs_om_line_id = p_cogs_om_line_id
3796: AND pac_cost_type_id IS NULL;
3797:
3798: IF l_stmtLog THEN
3799: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit Material Cost = '||to_char(l_elemental_cost(1)));
3800: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit MOH Cost = '||to_char(l_elemental_cost(2)));
3801: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit Resource Cost = '||to_char(l_elemental_cost(3)));
3802: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit OSP Cost = '||to_char(l_elemental_cost(4)));
3803: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit OVHD Cost = '||to_char(l_elemental_cost(5)));
3796: AND pac_cost_type_id IS NULL;
3797:
3798: IF l_stmtLog THEN
3799: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit Material Cost = '||to_char(l_elemental_cost(1)));
3800: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit MOH Cost = '||to_char(l_elemental_cost(2)));
3801: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit Resource Cost = '||to_char(l_elemental_cost(3)));
3802: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit OSP Cost = '||to_char(l_elemental_cost(4)));
3803: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit OVHD Cost = '||to_char(l_elemental_cost(5)));
3804: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit Cost = '||to_char(l_unit_cost));
3797:
3798: IF l_stmtLog THEN
3799: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit Material Cost = '||to_char(l_elemental_cost(1)));
3800: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit MOH Cost = '||to_char(l_elemental_cost(2)));
3801: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit Resource Cost = '||to_char(l_elemental_cost(3)));
3802: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit OSP Cost = '||to_char(l_elemental_cost(4)));
3803: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit OVHD Cost = '||to_char(l_elemental_cost(5)));
3804: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit Cost = '||to_char(l_unit_cost));
3805: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','p_txn_quantity = '||to_char(p_txn_quantity));
3798: IF l_stmtLog THEN
3799: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit Material Cost = '||to_char(l_elemental_cost(1)));
3800: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit MOH Cost = '||to_char(l_elemental_cost(2)));
3801: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit Resource Cost = '||to_char(l_elemental_cost(3)));
3802: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit OSP Cost = '||to_char(l_elemental_cost(4)));
3803: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit OVHD Cost = '||to_char(l_elemental_cost(5)));
3804: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit Cost = '||to_char(l_unit_cost));
3805: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','p_txn_quantity = '||to_char(p_txn_quantity));
3806: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','l_cogs_percentage = '||to_char(l_cogs_percentage));
3799: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit Material Cost = '||to_char(l_elemental_cost(1)));
3800: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit MOH Cost = '||to_char(l_elemental_cost(2)));
3801: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit Resource Cost = '||to_char(l_elemental_cost(3)));
3802: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit OSP Cost = '||to_char(l_elemental_cost(4)));
3803: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit OVHD Cost = '||to_char(l_elemental_cost(5)));
3804: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit Cost = '||to_char(l_unit_cost));
3805: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','p_txn_quantity = '||to_char(p_txn_quantity));
3806: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','l_cogs_percentage = '||to_char(l_cogs_percentage));
3807: END IF;
3800: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit MOH Cost = '||to_char(l_elemental_cost(2)));
3801: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit Resource Cost = '||to_char(l_elemental_cost(3)));
3802: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit OSP Cost = '||to_char(l_elemental_cost(4)));
3803: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit OVHD Cost = '||to_char(l_elemental_cost(5)));
3804: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit Cost = '||to_char(l_unit_cost));
3805: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','p_txn_quantity = '||to_char(p_txn_quantity));
3806: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','l_cogs_percentage = '||to_char(l_cogs_percentage));
3807: END IF;
3808:
3801: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit Resource Cost = '||to_char(l_elemental_cost(3)));
3802: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit OSP Cost = '||to_char(l_elemental_cost(4)));
3803: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit OVHD Cost = '||to_char(l_elemental_cost(5)));
3804: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit Cost = '||to_char(l_unit_cost));
3805: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','p_txn_quantity = '||to_char(p_txn_quantity));
3806: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','l_cogs_percentage = '||to_char(l_cogs_percentage));
3807: END IF;
3808:
3809: l_accounting_created := 0;
3802: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit OSP Cost = '||to_char(l_elemental_cost(4)));
3803: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit OVHD Cost = '||to_char(l_elemental_cost(5)));
3804: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Unit Cost = '||to_char(l_unit_cost));
3805: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','p_txn_quantity = '||to_char(p_txn_quantity));
3806: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','l_cogs_percentage = '||to_char(l_cogs_percentage));
3807: END IF;
3808:
3809: l_accounting_created := 0;
3810:
3817: l_cogs_credit_amount := l_elemental_cost(i) * -1 * p_txn_quantity * l_cogs_percentage;
3818: l_dcogs_credit_amount := (l_elemental_cost(i) * -1 * p_txn_quantity) - l_cogs_credit_amount;
3819:
3820: IF l_stmtLog THEN
3821: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.40','Cost Element '||to_char(i)||' COGS Credit Amount = '||to_char(l_cogs_credit_amount));
3822: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.40','Cost Element '||to_char(i)||' Deferred COGS Credit Amount = '||to_char(l_dcogs_credit_amount));
3823: END IF;
3824:
3825: IF (l_cogs_credit_amount <> 0 ) THEN
3818: l_dcogs_credit_amount := (l_elemental_cost(i) * -1 * p_txn_quantity) - l_cogs_credit_amount;
3819:
3820: IF l_stmtLog THEN
3821: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.40','Cost Element '||to_char(i)||' COGS Credit Amount = '||to_char(l_cogs_credit_amount));
3822: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.40','Cost Element '||to_char(i)||' Deferred COGS Credit Amount = '||to_char(l_dcogs_credit_amount));
3823: END IF;
3824:
3825: IF (l_cogs_credit_amount <> 0 ) THEN
3826: l_stmt_num := 50;
3886: , p_encoded => FND_API.g_false
3887: );
3888:
3889: IF l_proclog THEN
3890: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module||'.end',
3891: 'Exiting '||G_PKG_NAME||'.'||l_api_name||' with '||
3892: 'x_return_status = '||x_return_status
3893: );
3894: END IF;
3907: FND_MSG_PUB.ADD;
3908: END IF;
3909:
3910: IF l_errorLog THEN
3911: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,l_module||'.'||l_stmt_num,TRUE);
3912: END IF;
3913:
3914: FND_MSG_PUB.count_and_get
3915: ( p_count => x_msg_count,
3921: ROLLBACK TO Process_RmaReceipt_PVT;
3922: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3923:
3924: IF l_unexpLog THEN
3925: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,l_module||'.'||l_stmt_num
3926: ,'Process_RmaReceipt '||to_char(l_stmt_num)||' : '||substr(SQLERRM,1,200));
3927: END IF;
3928:
3929: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3990: l_api_name CONSTANT VARCHAR2(30) := 'Process_CogsRecognitionTxn';
3991: l_api_message VARCHAR2(1000);
3992: l_stmt_num NUMBER := 0;
3993: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
3994: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
3995: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
3996: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
3997: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
3998: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
3991: l_api_message VARCHAR2(1000);
3992: l_stmt_num NUMBER := 0;
3993: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
3994: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
3995: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
3996: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
3997: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
3998: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
3999:
3992: l_stmt_num NUMBER := 0;
3993: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
3994: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
3995: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
3996: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
3997: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
3998: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
3999:
4000: l_new_percentage NUMBER;
3993: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
3994: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
3995: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
3996: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
3997: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
3998: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
3999:
4000: l_new_percentage NUMBER;
4001: l_prior_percentage NUMBER;
3994: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
3995: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
3996: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
3997: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
3998: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
3999:
4000: l_new_percentage NUMBER;
4001: l_prior_percentage NUMBER;
4002:
4017:
4018: l_stmt_num := 0;
4019:
4020: IF l_proclog THEN
4021: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module||'.begin',
4022: 'Entering '||G_PKG_NAME||'.'||l_api_name||' with '||
4023: 'p_cogs_om_line_id = '||p_cogs_om_line_id||','||
4024: 'p_transaction_id = '||p_transaction_id||','||
4025: 'p_txn_quantity = '||p_txn_quantity||','||
4114: , p_encoded => FND_API.g_false
4115: );
4116:
4117: IF l_proclog THEN
4118: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module||'.end',
4119: 'Exiting '||G_PKG_NAME||'.'||l_api_name||' with '||
4120: 'x_return_status = '||x_return_status
4121: );
4122: END IF;
4126: ROLLBACK TO Process_CogsRecognitionTxn_PVT;
4127: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4128:
4129: IF l_unexpLog THEN
4130: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
4131: ,'Process_CogsRecognitionTxn ('||to_char(l_stmt_num)||') : '||substr(SQLERRM,1,200));
4132: END IF;
4133:
4134: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4181:
4182: l_api_name CONSTANT VARCHAR2(30) := 'Cost_BulkCogsRecTxns';
4183: l_api_message VARCHAR2(1000);
4184: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
4185: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
4186: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
4187: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
4188: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
4189: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
4182: l_api_name CONSTANT VARCHAR2(30) := 'Cost_BulkCogsRecTxns';
4183: l_api_message VARCHAR2(1000);
4184: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
4185: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
4186: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
4187: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
4188: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
4189: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
4190:
4183: l_api_message VARCHAR2(1000);
4184: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
4185: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
4186: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
4187: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
4188: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
4189: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
4190:
4191: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
4184: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name;
4185: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
4186: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
4187: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
4188: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
4189: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
4190:
4191: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
4192: l_stmt_num NUMBER := 0;
4185: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
4186: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
4187: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
4188: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
4189: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
4190:
4191: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
4192: l_stmt_num NUMBER := 0;
4193:
4295:
4296: l_stmt_num := 0;
4297:
4298: IF l_procLog THEN
4299: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,l_module||'.begin',
4300: 'Entering '||G_PKG_NAME||'.'||l_api_name
4301: );
4302: END IF;
4303:
4587:
4588: -- End API Body
4589:
4590: IF l_proclog THEN
4591: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module||'.end',
4592: 'Exiting '||G_PKG_NAME||'.'||l_api_name||' with '||
4593: 'x_return_status = '||x_return_status
4594: );
4595: END IF;
4605: ROLLBACK TO Cost_BulkCogsRecTxns_PVT;
4606: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4607:
4608: IF l_unexpLog THEN
4609: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
4610: ,'Cost_BulkCogsRecTxns '||to_char(l_stmt_num)||' : '||substr(SQLERRM,1,200));
4611: END IF;
4612:
4613: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4666: l_api_version CONSTANT NUMBER := 1.0;
4667: l_stmt_num NUMBER := 0;
4668:
4669: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name||'.';
4670: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
4671: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
4672: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
4673: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
4674: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
4667: l_stmt_num NUMBER := 0;
4668:
4669: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name||'.';
4670: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
4671: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
4672: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
4673: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
4674: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
4675:
4668:
4669: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name||'.';
4670: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
4671: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
4672: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
4673: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
4674: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
4675:
4676: l_cogs_om_line_id NUMBER;
4669: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name||'.';
4670: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
4671: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
4672: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
4673: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
4674: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
4675:
4676: l_cogs_om_line_id NUMBER;
4677:
4670: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
4671: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
4672: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
4673: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
4674: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
4675:
4676: l_cogs_om_line_id NUMBER;
4677:
4678: l_mat_cost NUMBER;
4690:
4691: l_stmt_num := 0;
4692:
4693: IF l_proclog THEN
4694: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module||'.begin',
4695: 'Entering '||G_PKG_NAME||'.'||l_api_name||' with '||
4696: 'p_api_version = '||p_api_version||','||
4697: 'p_transaction_id = '||p_transaction_id||','||
4698: 'p_layer_id = '||p_layer_id||','||
4743: -- assummed that PAC process will be run again for this transaction
4744: -- after the transaction is costed (and hence CCE is created) in
4745: -- the future before the PAC period is closed.
4746: IF l_stmtLog THEN
4747: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.10','No COGS Events found for transaction '||to_char(p_transaction_id));
4748: END IF;
4749: END;
4750:
4751: l_stmt_num := 20;
4795: /* Modified for Bug 9146453 */
4796: l_tot_cost := nvl(l_mat_cost,0) + nvl(l_moh_cost,0) + nvl(l_res_cost,0) + nvl(l_osp_cost,0) + nvl(l_ovh_cost,0);
4797:
4798: IF l_stmtLog THEN
4799: FND_LOG.string(
4800: FND_LOG.LEVEL_STATEMENT,
4801: l_module||'.20',
4802: 'MAT:'||l_mat_cost||' MOH:'||l_moh_cost||' RES:'||l_res_cost||
4803: ' OSP:'||l_osp_cost||' OVH:'||l_ovh_cost
4796: l_tot_cost := nvl(l_mat_cost,0) + nvl(l_moh_cost,0) + nvl(l_res_cost,0) + nvl(l_osp_cost,0) + nvl(l_ovh_cost,0);
4797:
4798: IF l_stmtLog THEN
4799: FND_LOG.string(
4800: FND_LOG.LEVEL_STATEMENT,
4801: l_module||'.20',
4802: 'MAT:'||l_mat_cost||' MOH:'||l_moh_cost||' RES:'||l_res_cost||
4803: ' OSP:'||l_osp_cost||' OVH:'||l_ovh_cost
4804: );
4862:
4863: -- End API Body
4864:
4865: IF l_procLog THEN
4866: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module||'.end',
4867: 'Exiting '||G_PKG_NAME||'.'||l_api_name||' with '||
4868: 'x_return_status = '||x_return_status
4869: );
4870: END IF;
4883: ROLLBACK TO Insert_PacSoIssue_PVT;
4884: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4885:
4886: IF l_unexpLog THEN
4887: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||'.'||l_stmt_num
4888: ,'Insert_PacSoIssue ('||to_char(l_stmt_num)||') : '||substr(SQLERRM,1,200));
4889: END IF;
4890:
4891: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4940: l_stmt_num NUMBER := 0;
4941: process_error EXCEPTION;
4942:
4943: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name||'.';
4944: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
4945: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
4946: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
4947: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
4948: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
4941: process_error EXCEPTION;
4942:
4943: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name||'.';
4944: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
4945: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
4946: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
4947: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
4948: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
4949:
4942:
4943: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name||'.';
4944: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
4945: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
4946: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
4947: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
4948: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
4949:
4950: l_ae_line_rec CSTPALTY.cst_ae_line_rec_type;
4943: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name||'.';
4944: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
4945: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
4946: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
4947: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
4948: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
4949:
4950: l_ae_line_rec CSTPALTY.cst_ae_line_rec_type;
4951: l_err_rec CSTPALTY.cst_ae_err_rec_type;
4944: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
4945: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
4946: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
4947: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
4948: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
4949:
4950: l_ae_line_rec CSTPALTY.cst_ae_line_rec_type;
4951: l_err_rec CSTPALTY.cst_ae_err_rec_type;
4952:
4961:
4962: l_stmt_num := 0;
4963:
4964: IF l_proclog THEN
4965: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module||'.begin',
4966: 'Entering '||G_PKG_NAME||'.'||l_api_name||' with '||
4967: 'p_cogs_om_line_id = '||p_cogs_om_line_id
4968: );
4969: END IF;
5001:
5002: l_ae_line_rec.transaction_value := abs(l_elemental_cost(i) * p_ae_txn_rec.primary_quantity * Nvl(p_ae_txn_rec.cogs_percentage,0)); /* Modified for Bug 9146453 */
5003:
5004: IF l_stmtLog THEN
5005: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.40','Cost Element '||to_char(i)||' COGS Credit Amount = '||to_char(l_ae_line_rec.transaction_value));
5006: END IF;
5007: /* Bug# 9499282 */
5008: IF (l_ae_line_rec.transaction_value <> 0 OR Nvl(p_ae_txn_rec.cogs_percentage,0) > 0) THEN
5009: -- Create COGS distribution
5029: -- Deferred COGS distribution = (elemental cost * quantity) - COGS distribution
5030: l_ae_line_rec.transaction_value := abs(l_elemental_cost(i) * p_ae_txn_rec.primary_quantity) - l_ae_line_rec.transaction_value;
5031:
5032: IF l_stmtLog THEN
5033: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.40','Cost Element '||to_char(i)||' Deferred COGS Credit Amount = '||to_char(l_ae_line_rec.transaction_value));
5034: END IF;
5035:
5036: /* Modified for Bug 9146453 */
5037: /* Bug# 9499282 */
5061:
5062: -- End API Body
5063:
5064: IF l_proclog THEN
5065: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module||'.end',
5066: 'Exiting '||G_PKG_NAME||'.'||l_api_name
5067: );
5068: END IF;
5069:
5075: x_ae_err_rec.l_err_code := l_err_rec.l_err_code;
5076: x_ae_err_rec.l_err_msg := l_err_rec.l_err_msg;
5077:
5078: IF l_errorLog THEN
5079: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||'.'||l_stmt_num
5080: ,'Process_PacRmaReceipt ('||to_char(l_stmt_num)||') : '||substr(l_err_rec.l_err_msg,1,200));
5081: END IF;
5082:
5083: when others then
5087: x_ae_err_rec.l_err_msg := 'CSTPAPBR.Process_PacRmaReceipt()' ||
5088: to_char(l_stmt_num) || substr(SQLERRM,1,180);
5089:
5090: IF l_unexpLog THEN
5091: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||'.'||l_stmt_num
5092: ,'Process_PacRmaReceipt ('||to_char(l_stmt_num)||') : '||substr(SQLERRM,1,180));
5093: END IF;
5094:
5095: END Process_PacRmaReceipt;
5125: l_stmt_num NUMBER := 0;
5126: process_error EXCEPTION;
5127:
5128: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name||'.';
5129: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
5130: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
5131: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
5132: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
5133: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
5126: process_error EXCEPTION;
5127:
5128: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name||'.';
5129: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
5130: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
5131: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
5132: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
5133: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
5134:
5127:
5128: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name||'.';
5129: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
5130: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
5131: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
5132: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
5133: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
5134:
5135: l_ae_line_rec CSTPALTY.cst_ae_line_rec_type;
5128: l_module CONSTANT VARCHAR2(100) := G_LOG_HEAD ||'.'||l_api_name||'.';
5129: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
5130: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
5131: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
5132: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
5133: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
5134:
5135: l_ae_line_rec CSTPALTY.cst_ae_line_rec_type;
5136: l_err_rec CSTPALTY.cst_ae_err_rec_type;
5129: l_unexpLog CONSTANT BOOLEAN := (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module);
5130: l_errorLog CONSTANT BOOLEAN := l_unexpLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
5131: l_eventLog CONSTANT BOOLEAN := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
5132: l_procLog CONSTANT BOOLEAN := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
5133: l_stmtLog CONSTANT BOOLEAN := l_procLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
5134:
5135: l_ae_line_rec CSTPALTY.cst_ae_line_rec_type;
5136: l_err_rec CSTPALTY.cst_ae_err_rec_type;
5137: l_dr_flag BOOLEAN;
5151:
5152: l_stmt_num := 0;
5153:
5154: IF l_proclog THEN
5155: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module||'.begin',
5156: 'Entering '||G_PKG_NAME||'.'||l_api_name
5157: );
5158: END IF;
5159:
5194: /* Added Nvl for Bug 9146453 */
5195: l_ae_line_rec.transaction_value := Nvl(l_elemental_cost(i),0) * p_ae_txn_rec.primary_quantity * (l_new_percentage - l_prior_percentage);
5196:
5197: IF l_stmtLog THEN
5198: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module||'.20','Cost Element '||to_char(i)||' COGS Adjustment Amount = '||to_char(l_ae_line_rec.transaction_value));
5199: END IF;
5200:
5201: IF (l_ae_line_rec.transaction_value <> 0) THEN
5202: -- Create COGS distribution (debit if percentage increase, credit otherwise)
5244:
5245: -- End API Body
5246:
5247: IF l_proclog THEN
5248: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module||'.end',
5249: 'Exiting '||G_PKG_NAME||'.'||l_api_name
5250: );
5251: END IF;
5252:
5259: x_ae_err_rec.l_err_code := l_err_rec.l_err_code;
5260: x_ae_err_rec.l_err_msg := l_err_rec.l_err_msg;
5261:
5262: IF l_errorLog THEN
5263: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||'.'||l_stmt_num
5264: ,'Process_PacCogsRecTxn ('||to_char(l_stmt_num)||') : '||substr(l_err_rec.l_err_msg,1,200));
5265: END IF;
5266:
5267: when others then
5271: x_ae_err_rec.l_err_msg := 'CSTPAPBR.Process_PacCogsRecTxn(' ||
5272: to_char(l_stmt_num)||') -' || substr(SQLERRM,1,180);
5273:
5274: IF l_unexpLog THEN
5275: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||'.'||l_stmt_num
5276: ,'Process_PacCogsRecTxn ('||to_char(l_stmt_num)||') : '||substr(SQLERRM,1,180));
5277: END IF;
5278:
5279: END Process_PacCogsRecTxn;
5386: l_success boolean;
5387:
5388: l_full_name constant varchar2(2000) := G_PKG_NAME || '.' || l_api_name;
5389: l_module constant varchar2(2000) := 'cst.plsql.' || l_full_name;
5390: l_uLog constant boolean := (fnd_log.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND
5391: fnd_log.test(fnd_log.LEVEL_UNEXPECTED, l_module);
5392: l_errorLog constant boolean := l_uLog and (fnd_log.LEVEL_ERROR >= G_LOG_LEVEL);
5393: l_eventLog constant boolean := l_errorLog and (fnd_log.LEVEL_EVENT >= G_LOG_LEVEL);
5394: l_pLog constant boolean := l_eventLog and (fnd_log.LEVEL_PROCEDURE >= G_LOG_LEVEL);
5387:
5388: l_full_name constant varchar2(2000) := G_PKG_NAME || '.' || l_api_name;
5389: l_module constant varchar2(2000) := 'cst.plsql.' || l_full_name;
5390: l_uLog constant boolean := (fnd_log.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND
5391: fnd_log.test(fnd_log.LEVEL_UNEXPECTED, l_module);
5392: l_errorLog constant boolean := l_uLog and (fnd_log.LEVEL_ERROR >= G_LOG_LEVEL);
5393: l_eventLog constant boolean := l_errorLog and (fnd_log.LEVEL_EVENT >= G_LOG_LEVEL);
5394: l_pLog constant boolean := l_eventLog and (fnd_log.LEVEL_PROCEDURE >= G_LOG_LEVEL);
5395: /*Bug 7305146*/
5388: l_full_name constant varchar2(2000) := G_PKG_NAME || '.' || l_api_name;
5389: l_module constant varchar2(2000) := 'cst.plsql.' || l_full_name;
5390: l_uLog constant boolean := (fnd_log.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND
5391: fnd_log.test(fnd_log.LEVEL_UNEXPECTED, l_module);
5392: l_errorLog constant boolean := l_uLog and (fnd_log.LEVEL_ERROR >= G_LOG_LEVEL);
5393: l_eventLog constant boolean := l_errorLog and (fnd_log.LEVEL_EVENT >= G_LOG_LEVEL);
5394: l_pLog constant boolean := l_eventLog and (fnd_log.LEVEL_PROCEDURE >= G_LOG_LEVEL);
5395: /*Bug 7305146*/
5396: l_encoding VARCHAR2(20);
5389: l_module constant varchar2(2000) := 'cst.plsql.' || l_full_name;
5390: l_uLog constant boolean := (fnd_log.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND
5391: fnd_log.test(fnd_log.LEVEL_UNEXPECTED, l_module);
5392: l_errorLog constant boolean := l_uLog and (fnd_log.LEVEL_ERROR >= G_LOG_LEVEL);
5393: l_eventLog constant boolean := l_errorLog and (fnd_log.LEVEL_EVENT >= G_LOG_LEVEL);
5394: l_pLog constant boolean := l_eventLog and (fnd_log.LEVEL_PROCEDURE >= G_LOG_LEVEL);
5395: /*Bug 7305146*/
5396: l_encoding VARCHAR2(20);
5397: l_xml_header VARCHAR2(100);
5390: l_uLog constant boolean := (fnd_log.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND
5391: fnd_log.test(fnd_log.LEVEL_UNEXPECTED, l_module);
5392: l_errorLog constant boolean := l_uLog and (fnd_log.LEVEL_ERROR >= G_LOG_LEVEL);
5393: l_eventLog constant boolean := l_errorLog and (fnd_log.LEVEL_EVENT >= G_LOG_LEVEL);
5394: l_pLog constant boolean := l_eventLog and (fnd_log.LEVEL_PROCEDURE >= G_LOG_LEVEL);
5395: /*Bug 7305146*/
5396: l_encoding VARCHAR2(20);
5397: l_xml_header VARCHAR2(100);
5398:
5411: else
5412: l_operating_unit := -1; /* Operating Unit not used in PAC */
5413: end if; /* p_cost_method = 1 */
5414:
5415: -- Write the module name and user parameters to fnd log file
5416:
5417: --IF l_pLog THEN
5418: -- FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
5419: debug('Generate_DefCOGSXml+');
5414:
5415: -- Write the module name and user parameters to fnd log file
5416:
5417: --IF l_pLog THEN
5418: -- FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
5419: debug('Generate_DefCOGSXml+');
5420: debug('p_cost_method = '||p_cost_method);
5421: debug('p_ledger_id = '||p_ledger_id);
5422: debug('l_operating_unit ='||l_operating_unit);
5556: end loop;
5557:
5558: dbms_xmlgen.closeContext(l_qryCtx);
5559:
5560: -- Write the event log to fnd log file
5561:
5562: debug(l_stmt_num||'-Completed writing to output file');
5563:
5564: -- free temporary memory
5566: dbms_lob.freetemporary(l_xml_doc);
5567:
5568: l_success := fnd_concurrent.set_completion_status('NORMAL', 'Request Completed Successfully');
5569:
5570: -- Write the module name to fnd log file
5571:
5572: debug('errcode = '||errcode);
5573: debug('err_code = '||err_code);
5574: debug('Generate_DefCOGSXml-');
5597: l_msg_data := substrb(SQLERRM,1,240);
5598: l_success := fnd_concurrent.set_completion_status('ERROR', l_msg_data);
5599:
5600: when others then
5601: if(fnd_log.LEVEL_UNEXPECTED >= G_LOG_LEVEL) then
5602: fnd_log.string(fnd_log.LEVEL_UNEXPECTED,
5603: l_module || '.' || l_stmt_num,
5604: substrb(SQLERRM , 1 , 240));
5605: end if;
5598: l_success := fnd_concurrent.set_completion_status('ERROR', l_msg_data);
5599:
5600: when others then
5601: if(fnd_log.LEVEL_UNEXPECTED >= G_LOG_LEVEL) then
5602: fnd_log.string(fnd_log.LEVEL_UNEXPECTED,
5603: l_module || '.' || l_stmt_num,
5604: substrb(SQLERRM , 1 , 240));
5605: end if;
5606:
5701: l_period_name CST_PAC_PERIODS.PERIOD_NAME%TYPE;
5702: l_meaning FND_LOOKUPS.MEANING%TYPE;
5703: l_stmt_num number;
5704:
5705: l_uLog constant boolean := (fnd_log.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND fnd_log.test(fnd_log.LEVEL_UNEXPECTED, l_module);
5706: l_errorLog constant boolean := l_uLog and (fnd_log.LEVEL_ERROR >= G_LOG_LEVEL);
5707: l_eventLog constant boolean := l_errorLog and (fnd_log.LEVEL_EVENT >= G_LOG_LEVEL);
5708: l_pLog constant boolean := l_eventLog and (fnd_log.LEVEL_PROCEDURE >= G_LOG_LEVEL);
5709:
5702: l_meaning FND_LOOKUPS.MEANING%TYPE;
5703: l_stmt_num number;
5704:
5705: l_uLog constant boolean := (fnd_log.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND fnd_log.test(fnd_log.LEVEL_UNEXPECTED, l_module);
5706: l_errorLog constant boolean := l_uLog and (fnd_log.LEVEL_ERROR >= G_LOG_LEVEL);
5707: l_eventLog constant boolean := l_errorLog and (fnd_log.LEVEL_EVENT >= G_LOG_LEVEL);
5708: l_pLog constant boolean := l_eventLog and (fnd_log.LEVEL_PROCEDURE >= G_LOG_LEVEL);
5709:
5710: begin
5703: l_stmt_num number;
5704:
5705: l_uLog constant boolean := (fnd_log.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND fnd_log.test(fnd_log.LEVEL_UNEXPECTED, l_module);
5706: l_errorLog constant boolean := l_uLog and (fnd_log.LEVEL_ERROR >= G_LOG_LEVEL);
5707: l_eventLog constant boolean := l_errorLog and (fnd_log.LEVEL_EVENT >= G_LOG_LEVEL);
5708: l_pLog constant boolean := l_eventLog and (fnd_log.LEVEL_PROCEDURE >= G_LOG_LEVEL);
5709:
5710: begin
5711:
5704:
5705: l_uLog constant boolean := (fnd_log.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND fnd_log.test(fnd_log.LEVEL_UNEXPECTED, l_module);
5706: l_errorLog constant boolean := l_uLog and (fnd_log.LEVEL_ERROR >= G_LOG_LEVEL);
5707: l_eventLog constant boolean := l_errorLog and (fnd_log.LEVEL_EVENT >= G_LOG_LEVEL);
5708: l_pLog constant boolean := l_eventLog and (fnd_log.LEVEL_PROCEDURE >= G_LOG_LEVEL);
5709:
5710: begin
5711:
5712: -- Write the module name to fnd log file
5708: l_pLog constant boolean := l_eventLog and (fnd_log.LEVEL_PROCEDURE >= G_LOG_LEVEL);
5709:
5710: begin
5711:
5712: -- Write the module name to fnd log file
5713:
5714: --IF l_pLog THEN
5715: --FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,l_module||'.begin',
5716: debug('Add_Parameters+');
5711:
5712: -- Write the module name to fnd log file
5713:
5714: --IF l_pLog THEN
5715: --FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,l_module||'.begin',
5716: debug('Add_Parameters+');
5717: debug('i_cost_method = '||i_cost_method);
5718: debug('i_operating_unit = '||i_operating_unit);
5719: debug('i_ledger_id = '||i_ledger_id);
5863: ( p_count => x_msg_count,
5864: p_data => x_msg_data
5865: );
5866:
5867: -- Write the module name to fnd log file
5868:
5869: debug( 'x_return_status = '||x_return_status );
5870: debug( 'x_msg_data ='||x_msg_data);
5871: debug('Add_Parameters-');
5886: );
5887:
5888: when others then
5889: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
5890: if(fnd_log.LEVEL_UNEXPECTED >= G_LOG_LEVEL) then
5891: fnd_log.string(fnd_log.LEVEL_UNEXPECTED,
5892: l_module || '.' || l_stmt_num,
5893: substrb(SQLERRM , 1 , 240));
5894: end if;
5887:
5888: when others then
5889: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
5890: if(fnd_log.LEVEL_UNEXPECTED >= G_LOG_LEVEL) then
5891: fnd_log.string(fnd_log.LEVEL_UNEXPECTED,
5892: l_module || '.' || l_stmt_num,
5893: substrb(SQLERRM , 1 , 240));
5894: end if;
5895:
5977: l_date_offset number;
5978:
5979: l_full_name constant varchar2(2000) := G_PKG_NAME || '.' || l_api_name;
5980: l_module constant varchar2(2000) := 'cst.plsql.' || l_full_name;
5981: l_uLog constant boolean := (fnd_log.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND fnd_log.test(fnd_log.LEVEL_UNEXPECTED, l_module);
5982: l_errorLog constant boolean := l_uLog AND (fnd_log.LEVEL_ERROR >= G_LOG_LEVEL);
5983: l_eventLog constant boolean := l_errorLog and (fnd_log.LEVEL_EVENT >= G_LOG_LEVEL);
5984: l_pLog constant boolean := l_eventLog and (fnd_log.LEVEL_PROCEDURE >= G_LOG_LEVEL);
5985:
5978:
5979: l_full_name constant varchar2(2000) := G_PKG_NAME || '.' || l_api_name;
5980: l_module constant varchar2(2000) := 'cst.plsql.' || l_full_name;
5981: l_uLog constant boolean := (fnd_log.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND fnd_log.test(fnd_log.LEVEL_UNEXPECTED, l_module);
5982: l_errorLog constant boolean := l_uLog AND (fnd_log.LEVEL_ERROR >= G_LOG_LEVEL);
5983: l_eventLog constant boolean := l_errorLog and (fnd_log.LEVEL_EVENT >= G_LOG_LEVEL);
5984: l_pLog constant boolean := l_eventLog and (fnd_log.LEVEL_PROCEDURE >= G_LOG_LEVEL);
5985:
5986: begin
5979: l_full_name constant varchar2(2000) := G_PKG_NAME || '.' || l_api_name;
5980: l_module constant varchar2(2000) := 'cst.plsql.' || l_full_name;
5981: l_uLog constant boolean := (fnd_log.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND fnd_log.test(fnd_log.LEVEL_UNEXPECTED, l_module);
5982: l_errorLog constant boolean := l_uLog AND (fnd_log.LEVEL_ERROR >= G_LOG_LEVEL);
5983: l_eventLog constant boolean := l_errorLog and (fnd_log.LEVEL_EVENT >= G_LOG_LEVEL);
5984: l_pLog constant boolean := l_eventLog and (fnd_log.LEVEL_PROCEDURE >= G_LOG_LEVEL);
5985:
5986: begin
5987:
5980: l_module constant varchar2(2000) := 'cst.plsql.' || l_full_name;
5981: l_uLog constant boolean := (fnd_log.LEVEL_UNEXPECTED >= G_LOG_LEVEL) AND fnd_log.test(fnd_log.LEVEL_UNEXPECTED, l_module);
5982: l_errorLog constant boolean := l_uLog AND (fnd_log.LEVEL_ERROR >= G_LOG_LEVEL);
5983: l_eventLog constant boolean := l_errorLog and (fnd_log.LEVEL_EVENT >= G_LOG_LEVEL);
5984: l_pLog constant boolean := l_eventLog and (fnd_log.LEVEL_PROCEDURE >= G_LOG_LEVEL);
5985:
5986: begin
5987:
5988: -- Write the module name to fnd log file
5984: l_pLog constant boolean := l_eventLog and (fnd_log.LEVEL_PROCEDURE >= G_LOG_LEVEL);
5985:
5986: begin
5987:
5988: -- Write the module name to fnd log file
5989:
5990: --IF l_pLog THEN
5991: --FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,l_module||'.begin',
5992: debug('Add_DefCOGSData+');
5987:
5988: -- Write the module name to fnd log file
5989:
5990: --IF l_pLog THEN
5991: --FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,l_module||'.begin',
5992: debug('Add_DefCOGSData+');
5993: debug('i_cost_method = '||i_cost_method);
5994: debug('i_operating_unit = '||i_operating_unit);
5995: debug('i_ledger_id = '||i_ledger_id);
6747: ( p_count => x_msg_count,
6748: p_data => x_msg_data
6749: );
6750:
6751: -- Write the module name to fnd log file
6752: debug('x_return_status = '||x_return_status );
6753: debug('x_msg_count='||x_msg_count);
6754: debug('x_msg_data = '||x_msg_data);
6755: debug('Add_DefCOGSData-');
6770: );
6771:
6772: when others then
6773: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
6774: if(fnd_log.LEVEL_UNEXPECTED >= G_LOG_LEVEL) then
6775: fnd_log.string(fnd_log.LEVEL_UNEXPECTED,
6776: l_module || '.' || l_stmt_num,
6777: substrb(SQLERRM , 1 , 240));
6778: end if;
6771:
6772: when others then
6773: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
6774: if(fnd_log.LEVEL_UNEXPECTED >= G_LOG_LEVEL) then
6775: fnd_log.string(fnd_log.LEVEL_UNEXPECTED,
6776: l_module || '.' || l_stmt_num,
6777: substrb(SQLERRM , 1 , 240));
6778: end if;
6779:
6792: PROCEDURE debug
6793: ( line IN VARCHAR2,
6794: msg_prefix IN VARCHAR2 DEFAULT 'CST',
6795: msg_module IN VARCHAR2 DEFAULT g_module_name,
6796: msg_level IN NUMBER DEFAULT FND_LOG.LEVEL_STATEMENT)
6797: IS
6798: l_msg_prefix VARCHAR2(64);
6799: l_msg_level NUMBER;
6800: l_msg_module VARCHAR2(256);
6813: fnd_file.put_line(fnd_file.log, 'CST_RevenueCogsMatch_PVT:'||l_line);
6814: END IF;
6815:
6816: IF (INSTRB(upper(l_line), 'EXCEPTION') <> 0) THEN
6817: l_msg_level := FND_LOG.LEVEL_EXCEPTION;
6818: END IF;
6819:
6820: IF l_msg_level <> FND_LOG.LEVEL_EXCEPTION AND G_DEBUG = 'N' THEN
6821: RETURN;
6816: IF (INSTRB(upper(l_line), 'EXCEPTION') <> 0) THEN
6817: l_msg_level := FND_LOG.LEVEL_EXCEPTION;
6818: END IF;
6819:
6820: IF l_msg_level <> FND_LOG.LEVEL_EXCEPTION AND G_DEBUG = 'N' THEN
6821: RETURN;
6822: END IF;
6823:
6824: IF ( l_msg_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6820: IF l_msg_level <> FND_LOG.LEVEL_EXCEPTION AND G_DEBUG = 'N' THEN
6821: RETURN;
6822: END IF;
6823:
6824: IF ( l_msg_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6825: FND_LOG.STRING(l_msg_level, l_msg_module, SUBSTRB(line,1,4000));
6826: END IF;
6827:
6828: EXCEPTION
6821: RETURN;
6822: END IF;
6823:
6824: IF ( l_msg_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
6825: FND_LOG.STRING(l_msg_level, l_msg_module, SUBSTRB(line,1,4000));
6826: END IF;
6827:
6828: EXCEPTION
6829: WHEN OTHERS THEN RAISE;