335: IF (l_debug = 'Y') THEN
336: okc_debug.Log('2000: Leaving ',2);
337: okc_debug.Reset_Indentation;
338: END IF;
339: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
340: fnd_message.set_token('ROUTINE',l_proc);
341: fnd_message.set_token('REASON',SQLERRM);
342: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
343: raise g_error_exception;
336: okc_debug.Log('2000: Leaving ',2);
337: okc_debug.Reset_Indentation;
338: END IF;
339: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
340: fnd_message.set_token('ROUTINE',l_proc);
341: fnd_message.set_token('REASON',SQLERRM);
342: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
343: raise g_error_exception;
344: END ins_summary_rec;
337: okc_debug.Reset_Indentation;
338: END IF;
339: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
340: fnd_message.set_token('ROUTINE',l_proc);
341: fnd_message.set_token('REASON',SQLERRM);
342: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
343: raise g_error_exception;
344: END ins_summary_rec;
345:
338: END IF;
339: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
340: fnd_message.set_token('ROUTINE',l_proc);
341: fnd_message.set_token('REASON',SQLERRM);
342: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
343: raise g_error_exception;
344: END ins_summary_rec;
345:
346:
499: */
500: IF (l_debug = 'Y') THEN
501: okc_debug.Log('50: Skipping as category is already Upgraded : '||p_category_code,2);
502: END IF;
503: fnd_message.set_name('OKC','OKC_CATEGORY_UPGRADED');
504: fnd_message.set_token('CATEGORY',p_category_code);
505: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
506:
507: ELSIF l_qp_upgrade_rec.completion_flag = 'N' THEN
500: IF (l_debug = 'Y') THEN
501: okc_debug.Log('50: Skipping as category is already Upgraded : '||p_category_code,2);
502: END IF;
503: fnd_message.set_name('OKC','OKC_CATEGORY_UPGRADED');
504: fnd_message.set_token('CATEGORY',p_category_code);
505: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
506:
507: ELSIF l_qp_upgrade_rec.completion_flag = 'N' THEN
508: /*
501: okc_debug.Log('50: Skipping as category is already Upgraded : '||p_category_code,2);
502: END IF;
503: fnd_message.set_name('OKC','OKC_CATEGORY_UPGRADED');
504: fnd_message.set_token('CATEGORY',p_category_code);
505: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
506:
507: ELSIF l_qp_upgrade_rec.completion_flag = 'N' THEN
508: /*
509: Case 2 : completion_flag = 'N'
563: okc_debug.Log('80: Another conc pgm IN PROGRESS for : '||p_category_code,2);
564: okc_debug.Log('100: Skipping Category : '||p_category_code,2);
565: END IF;
566: fnd_file.put_line(FND_FILE.LOG,' *********************************************** ');
567: fnd_message.set_name('OKC','OKC_CATEGORY_UPG_PROGESS');
568: fnd_message.set_token('CATEGORY',p_category_code);
569: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
570: fnd_file.put_line(FND_FILE.LOG,' *********************************************** ');
571:
564: okc_debug.Log('100: Skipping Category : '||p_category_code,2);
565: END IF;
566: fnd_file.put_line(FND_FILE.LOG,' *********************************************** ');
567: fnd_message.set_name('OKC','OKC_CATEGORY_UPG_PROGESS');
568: fnd_message.set_token('CATEGORY',p_category_code);
569: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
570: fnd_file.put_line(FND_FILE.LOG,' *********************************************** ');
571:
572: END IF; -- completion_flag
565: END IF;
566: fnd_file.put_line(FND_FILE.LOG,' *********************************************** ');
567: fnd_message.set_name('OKC','OKC_CATEGORY_UPG_PROGESS');
568: fnd_message.set_token('CATEGORY',p_category_code);
569: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
570: fnd_file.put_line(FND_FILE.LOG,' *********************************************** ');
571:
572: END IF; -- completion_flag
573:
585: okc_debug.set_trace_on;
586: okc_debug.Log('2000: Leaving ',2);
587: okc_debug.Reset_Indentation;
588: END IF;
589: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
590: fnd_message.set_token('ROUTINE',l_proc);
591: fnd_message.set_token('REASON',SQLERRM);
592: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
593: raise g_error_exception;
586: okc_debug.Log('2000: Leaving ',2);
587: okc_debug.Reset_Indentation;
588: END IF;
589: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
590: fnd_message.set_token('ROUTINE',l_proc);
591: fnd_message.set_token('REASON',SQLERRM);
592: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
593: raise g_error_exception;
594: END ins_category_rec;
587: okc_debug.Reset_Indentation;
588: END IF;
589: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
590: fnd_message.set_token('ROUTINE',l_proc);
591: fnd_message.set_token('REASON',SQLERRM);
592: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
593: raise g_error_exception;
594: END ins_category_rec;
595:
588: END IF;
589: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
590: fnd_message.set_token('ROUTINE',l_proc);
591: fnd_message.set_token('REASON',SQLERRM);
592: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
593: raise g_error_exception;
594: END ins_category_rec;
595:
596:
1071: IF (l_debug = 'Y') THEN
1072: okc_debug.Log('2000: Leaving ',2);
1073: okc_debug.Reset_Indentation;
1074: END IF;
1075: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1076: fnd_message.set_token('ROUTINE',l_proc);
1077: fnd_message.set_token('REASON',SQLERRM);
1078: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1079: raise g_error_exception;
1072: okc_debug.Log('2000: Leaving ',2);
1073: okc_debug.Reset_Indentation;
1074: END IF;
1075: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1076: fnd_message.set_token('ROUTINE',l_proc);
1077: fnd_message.set_token('REASON',SQLERRM);
1078: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1079: raise g_error_exception;
1080: END start_category_upgrade;
1073: okc_debug.Reset_Indentation;
1074: END IF;
1075: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1076: fnd_message.set_token('ROUTINE',l_proc);
1077: fnd_message.set_token('REASON',SQLERRM);
1078: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1079: raise g_error_exception;
1080: END start_category_upgrade;
1081:
1074: END IF;
1075: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1076: fnd_message.set_token('ROUTINE',l_proc);
1077: fnd_message.set_token('REASON',SQLERRM);
1078: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1079: raise g_error_exception;
1080: END start_category_upgrade;
1081:
1082:
1169: IF (l_debug = 'Y') THEN
1170: okc_debug.Log('2000: Leaving ',2);
1171: okc_debug.Reset_Indentation;
1172: END IF;
1173: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1174: fnd_message.set_token('ROUTINE',l_proc);
1175: fnd_message.set_token('REASON',SQLERRM);
1176: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1177: raise g_error_exception;
1170: okc_debug.Log('2000: Leaving ',2);
1171: okc_debug.Reset_Indentation;
1172: END IF;
1173: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1174: fnd_message.set_token('ROUTINE',l_proc);
1175: fnd_message.set_token('REASON',SQLERRM);
1176: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1177: raise g_error_exception;
1178: END ins_contract_rec;
1171: okc_debug.Reset_Indentation;
1172: END IF;
1173: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1174: fnd_message.set_token('ROUTINE',l_proc);
1175: fnd_message.set_token('REASON',SQLERRM);
1176: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1177: raise g_error_exception;
1178: END ins_contract_rec;
1179:
1172: END IF;
1173: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1174: fnd_message.set_token('ROUTINE',l_proc);
1175: fnd_message.set_token('REASON',SQLERRM);
1176: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1177: raise g_error_exception;
1178: END ins_contract_rec;
1179:
1180:
1272: okc_debug.Log('500: Aborting as the Upgrade is already Done ... ',2);
1273: END IF;
1274: fnd_file.put_line(FND_FILE.LOG,' ');
1275: fnd_file.put_line(FND_FILE.LOG,' ');
1276: fnd_message.set_name('OKC','OKC_QP_ALREADY_DONE');
1277: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1278: fnd_file.put_line(FND_FILE.LOG,' ');
1279: fnd_file.put_line(FND_FILE.LOG,' ');
1280: END IF;
1273: END IF;
1274: fnd_file.put_line(FND_FILE.LOG,' ');
1275: fnd_file.put_line(FND_FILE.LOG,' ');
1276: fnd_message.set_name('OKC','OKC_QP_ALREADY_DONE');
1277: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1278: fnd_file.put_line(FND_FILE.LOG,' ');
1279: fnd_file.put_line(FND_FILE.LOG,' ');
1280: END IF;
1281:
1290: IF (l_debug = 'Y') THEN
1291: okc_debug.Log('2000: Leaving ',2);
1292: okc_debug.Reset_Indentation;
1293: END IF;
1294: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1295: fnd_message.set_token('ROUTINE',l_proc);
1296: fnd_message.set_token('REASON',SQLERRM);
1297: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1298: raise g_error_exception;
1291: okc_debug.Log('2000: Leaving ',2);
1292: okc_debug.Reset_Indentation;
1293: END IF;
1294: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1295: fnd_message.set_token('ROUTINE',l_proc);
1296: fnd_message.set_token('REASON',SQLERRM);
1297: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1298: raise g_error_exception;
1299: END call_qp_upgrade;
1292: okc_debug.Reset_Indentation;
1293: END IF;
1294: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1295: fnd_message.set_token('ROUTINE',l_proc);
1296: fnd_message.set_token('REASON',SQLERRM);
1297: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1298: raise g_error_exception;
1299: END call_qp_upgrade;
1300:
1293: END IF;
1294: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1295: fnd_message.set_token('ROUTINE',l_proc);
1296: fnd_message.set_token('REASON',SQLERRM);
1297: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1298: raise g_error_exception;
1299: END call_qp_upgrade;
1300:
1301:
1379: okc_debug.set_trace_on;
1380: okc_debug.Log('2000: Leaving ',2);
1381: okc_debug.Reset_Indentation;
1382: END IF;
1383: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1384: fnd_message.set_token('ROUTINE',l_proc);
1385: fnd_message.set_token('REASON',SQLERRM);
1386: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1387: raise g_error_exception;
1380: okc_debug.Log('2000: Leaving ',2);
1381: okc_debug.Reset_Indentation;
1382: END IF;
1383: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1384: fnd_message.set_token('ROUTINE',l_proc);
1385: fnd_message.set_token('REASON',SQLERRM);
1386: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1387: raise g_error_exception;
1388: END upd_category_rec;
1381: okc_debug.Reset_Indentation;
1382: END IF;
1383: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1384: fnd_message.set_token('ROUTINE',l_proc);
1385: fnd_message.set_token('REASON',SQLERRM);
1386: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1387: raise g_error_exception;
1388: END upd_category_rec;
1389:
1382: END IF;
1383: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1384: fnd_message.set_token('ROUTINE',l_proc);
1385: fnd_message.set_token('REASON',SQLERRM);
1386: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1387: raise g_error_exception;
1388: END upd_category_rec;
1389:
1390:
1452: IF (l_debug = 'Y') THEN
1453: okc_debug.Log('50: Total Categories : '||l_total_categories,2);
1454: END IF;
1455: fnd_file.put_line(FND_FILE.LOG,' *********************************************** ');
1456: fnd_message.set_name('OKC','OKC_TOT_CONTRACT_CATS');
1457: fnd_message.set_token('TOTCATS',l_total_categories);
1458: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1459:
1460: OPEN csr_categories_done;
1453: okc_debug.Log('50: Total Categories : '||l_total_categories,2);
1454: END IF;
1455: fnd_file.put_line(FND_FILE.LOG,' *********************************************** ');
1456: fnd_message.set_name('OKC','OKC_TOT_CONTRACT_CATS');
1457: fnd_message.set_token('TOTCATS',l_total_categories);
1458: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1459:
1460: OPEN csr_categories_done;
1461: FETCH csr_categories_done INTO l_categories_done;
1454: END IF;
1455: fnd_file.put_line(FND_FILE.LOG,' *********************************************** ');
1456: fnd_message.set_name('OKC','OKC_TOT_CONTRACT_CATS');
1457: fnd_message.set_token('TOTCATS',l_total_categories);
1458: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1459:
1460: OPEN csr_categories_done;
1461: FETCH csr_categories_done INTO l_categories_done;
1462: CLOSE csr_categories_done;
1463:
1464: IF (l_debug = 'Y') THEN
1465: okc_debug.Log('100: Categories Upgraded : '||l_categories_done,2);
1466: END IF;
1467: fnd_message.set_name('OKC','OKC_TOT_CATEGORIES_UPG');
1468: fnd_message.set_token('TOTUPG',l_categories_done);
1469: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1470: fnd_file.put_line(FND_FILE.LOG,' ');
1471: fnd_file.put_line(FND_FILE.LOG,' ');
1464: IF (l_debug = 'Y') THEN
1465: okc_debug.Log('100: Categories Upgraded : '||l_categories_done,2);
1466: END IF;
1467: fnd_message.set_name('OKC','OKC_TOT_CATEGORIES_UPG');
1468: fnd_message.set_token('TOTUPG',l_categories_done);
1469: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1470: fnd_file.put_line(FND_FILE.LOG,' ');
1471: fnd_file.put_line(FND_FILE.LOG,' ');
1472: fnd_file.put_line(FND_FILE.LOG,' *********************************************** ');
1465: okc_debug.Log('100: Categories Upgraded : '||l_categories_done,2);
1466: END IF;
1467: fnd_message.set_name('OKC','OKC_TOT_CATEGORIES_UPG');
1468: fnd_message.set_token('TOTUPG',l_categories_done);
1469: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1470: fnd_file.put_line(FND_FILE.LOG,' ');
1471: fnd_file.put_line(FND_FILE.LOG,' ');
1472: fnd_file.put_line(FND_FILE.LOG,' *********************************************** ');
1473:
1475: -- cannot enable profile as all categories are not processed
1476: IF (l_debug = 'Y') THEN
1477: okc_debug.Log('200: cannot enable profile as all categories are not processed ',2);
1478: END IF;
1479: fnd_message.set_name('OKC','OKC_QP_PROFILE_FAIL');
1480: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1481: fnd_file.put_line(FND_FILE.LOG,' *********************************************** ');
1482: fnd_file.put_line(FND_FILE.LOG,' ');
1483: fnd_file.put_line(FND_FILE.LOG,' ');
1476: IF (l_debug = 'Y') THEN
1477: okc_debug.Log('200: cannot enable profile as all categories are not processed ',2);
1478: END IF;
1479: fnd_message.set_name('OKC','OKC_QP_PROFILE_FAIL');
1480: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1481: fnd_file.put_line(FND_FILE.LOG,' *********************************************** ');
1482: fnd_file.put_line(FND_FILE.LOG,' ');
1483: fnd_file.put_line(FND_FILE.LOG,' ');
1484: ELSE
1525: END IF;
1526: fnd_file.put_line(FND_FILE.LOG,' ');
1527: fnd_file.put_line(FND_FILE.LOG,' ');
1528: fnd_file.put_line(FND_FILE.LOG,' *********************************************** ');
1529: fnd_message.set_name('OKC','OKC_QP_PROFILE_SUCCESS');
1530: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1531: fnd_file.put_line(FND_FILE.LOG,' *********************************************** ');
1532: fnd_file.put_line(FND_FILE.LOG,' ');
1533: fnd_file.put_line(FND_FILE.LOG,' ');
1526: fnd_file.put_line(FND_FILE.LOG,' ');
1527: fnd_file.put_line(FND_FILE.LOG,' ');
1528: fnd_file.put_line(FND_FILE.LOG,' *********************************************** ');
1529: fnd_message.set_name('OKC','OKC_QP_PROFILE_SUCCESS');
1530: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1531: fnd_file.put_line(FND_FILE.LOG,' *********************************************** ');
1532: fnd_file.put_line(FND_FILE.LOG,' ');
1533: fnd_file.put_line(FND_FILE.LOG,' ');
1534: ELSE
1535: -- give error here
1536: IF (l_debug = 'Y') THEN
1537: okc_debug.Log('600: Error Setting OKC_ADVANCED_PRICING to Y');
1538: END IF;
1539: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1540: fnd_message.set_token('ROUTINE',l_proc);
1541: fnd_message.set_token('REASON',SQLERRM);
1542: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1543: APP_EXCEPTION.RAISE_EXCEPTION;
1536: IF (l_debug = 'Y') THEN
1537: okc_debug.Log('600: Error Setting OKC_ADVANCED_PRICING to Y');
1538: END IF;
1539: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1540: fnd_message.set_token('ROUTINE',l_proc);
1541: fnd_message.set_token('REASON',SQLERRM);
1542: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1543: APP_EXCEPTION.RAISE_EXCEPTION;
1544: END IF; -- for setting profile
1537: okc_debug.Log('600: Error Setting OKC_ADVANCED_PRICING to Y');
1538: END IF;
1539: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1540: fnd_message.set_token('ROUTINE',l_proc);
1541: fnd_message.set_token('REASON',SQLERRM);
1542: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1543: APP_EXCEPTION.RAISE_EXCEPTION;
1544: END IF; -- for setting profile
1545:
1538: END IF;
1539: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1540: fnd_message.set_token('ROUTINE',l_proc);
1541: fnd_message.set_token('REASON',SQLERRM);
1542: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1543: APP_EXCEPTION.RAISE_EXCEPTION;
1544: END IF; -- for setting profile
1545:
1546:
1561: okc_debug.set_trace_on;
1562: okc_debug.Log('2000: Leaving ',2);
1563: okc_debug.Reset_Indentation;
1564: END IF;
1565: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1566: fnd_message.set_token('ROUTINE',l_proc);
1567: fnd_message.set_token('REASON',SQLERRM);
1568: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1569: raise;
1562: okc_debug.Log('2000: Leaving ',2);
1563: okc_debug.Reset_Indentation;
1564: END IF;
1565: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1566: fnd_message.set_token('ROUTINE',l_proc);
1567: fnd_message.set_token('REASON',SQLERRM);
1568: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1569: raise;
1570: END upd_summary_rec;
1563: okc_debug.Reset_Indentation;
1564: END IF;
1565: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1566: fnd_message.set_token('ROUTINE',l_proc);
1567: fnd_message.set_token('REASON',SQLERRM);
1568: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1569: raise;
1570: END upd_summary_rec;
1571:
1564: END IF;
1565: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1566: fnd_message.set_token('ROUTINE',l_proc);
1567: fnd_message.set_token('REASON',SQLERRM);
1568: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1569: raise;
1570: END upd_summary_rec;
1571:
1572:
1617: IF (l_debug = 'Y') THEN
1618: okc_debug.Log('2000: Leaving ',2);
1619: okc_debug.Reset_Indentation;
1620: END IF;
1621: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1622: fnd_message.set_token('ROUTINE',l_proc);
1623: fnd_message.set_token('REASON',SQLERRM);
1624: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1625: raise;
1618: okc_debug.Log('2000: Leaving ',2);
1619: okc_debug.Reset_Indentation;
1620: END IF;
1621: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1622: fnd_message.set_token('ROUTINE',l_proc);
1623: fnd_message.set_token('REASON',SQLERRM);
1624: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1625: raise;
1626: END process_report;
1619: okc_debug.Reset_Indentation;
1620: END IF;
1621: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1622: fnd_message.set_token('ROUTINE',l_proc);
1623: fnd_message.set_token('REASON',SQLERRM);
1624: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1625: raise;
1626: END process_report;
1627:
1620: END IF;
1621: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1622: fnd_message.set_token('ROUTINE',l_proc);
1623: fnd_message.set_token('REASON',SQLERRM);
1624: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1625: raise;
1626: END process_report;
1627:
1628:
1822: IF (l_debug = 'Y') THEN
1823: okc_debug.Log('2000: Leaving ',2);
1824: okc_debug.Reset_Indentation;
1825: END IF;
1826: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1827: fnd_message.set_token('ROUTINE',l_proc);
1828: fnd_message.set_token('REASON',SQLERRM);
1829: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1830: raise;
1823: okc_debug.Log('2000: Leaving ',2);
1824: okc_debug.Reset_Indentation;
1825: END IF;
1826: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1827: fnd_message.set_token('ROUTINE',l_proc);
1828: fnd_message.set_token('REASON',SQLERRM);
1829: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1830: raise;
1831: END upgrade_status_rpt;
1824: okc_debug.Reset_Indentation;
1825: END IF;
1826: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1827: fnd_message.set_token('ROUTINE',l_proc);
1828: fnd_message.set_token('REASON',SQLERRM);
1829: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1830: raise;
1831: END upgrade_status_rpt;
1832:
1825: END IF;
1826: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1827: fnd_message.set_token('ROUTINE',l_proc);
1828: fnd_message.set_token('REASON',SQLERRM);
1829: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1830: raise;
1831: END upgrade_status_rpt;
1832:
1833: /*----------------------------------------------------------------------------
1867: END IF;
1868: fnd_file.put_line(FND_FILE.LOG,' ');
1869: fnd_file.put_line(FND_FILE.LOG,' ');
1870: fnd_file.put_line(FND_FILE.LOG,' *********************************************** ');
1871: fnd_message.set_name('OKC','OKC_QP_ALREADY_DONE');
1872: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1873: fnd_file.put_line(FND_FILE.LOG,' *********************************************** ');
1874: fnd_file.put_line(FND_FILE.LOG,' ');
1875: fnd_file.put_line(FND_FILE.LOG,' ');
1868: fnd_file.put_line(FND_FILE.LOG,' ');
1869: fnd_file.put_line(FND_FILE.LOG,' ');
1870: fnd_file.put_line(FND_FILE.LOG,' *********************************************** ');
1871: fnd_message.set_name('OKC','OKC_QP_ALREADY_DONE');
1872: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1873: fnd_file.put_line(FND_FILE.LOG,' *********************************************** ');
1874: fnd_file.put_line(FND_FILE.LOG,' ');
1875: fnd_file.put_line(FND_FILE.LOG,' ');
1876: END IF;
1887: IF (l_debug = 'Y') THEN
1888: okc_debug.Log('2000: Leaving ',2);
1889: okc_debug.Reset_Indentation;
1890: END IF;
1891: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1892: fnd_message.set_token('ROUTINE',l_proc);
1893: fnd_message.set_token('REASON',SQLERRM);
1894: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1895: RETURN l_prof_val;
1888: okc_debug.Log('2000: Leaving ',2);
1889: okc_debug.Reset_Indentation;
1890: END IF;
1891: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1892: fnd_message.set_token('ROUTINE',l_proc);
1893: fnd_message.set_token('REASON',SQLERRM);
1894: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1895: RETURN l_prof_val;
1896: END check_qp_profile;
1889: okc_debug.Reset_Indentation;
1890: END IF;
1891: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1892: fnd_message.set_token('ROUTINE',l_proc);
1893: fnd_message.set_token('REASON',SQLERRM);
1894: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1895: RETURN l_prof_val;
1896: END check_qp_profile;
1897:
1890: END IF;
1891: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1892: fnd_message.set_token('ROUTINE',l_proc);
1893: fnd_message.set_token('REASON',SQLERRM);
1894: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1895: RETURN l_prof_val;
1896: END check_qp_profile;
1897:
1898: /*----------------------------------------------------------------------------
1946: IF (l_debug = 'Y') THEN
1947: okc_debug.Log('2000: Leaving ',2);
1948: okc_debug.Reset_Indentation;
1949: END IF;
1950: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1951: fnd_message.set_token('ROUTINE',l_proc);
1952: fnd_message.set_token('REASON',SQLERRM);
1953: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1954: RETURN NVL(l_estimated_amt,0);
1947: okc_debug.Log('2000: Leaving ',2);
1948: okc_debug.Reset_Indentation;
1949: END IF;
1950: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1951: fnd_message.set_token('ROUTINE',l_proc);
1952: fnd_message.set_token('REASON',SQLERRM);
1953: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1954: RETURN NVL(l_estimated_amt,0);
1955: raise;
1948: okc_debug.Reset_Indentation;
1949: END IF;
1950: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1951: fnd_message.set_token('ROUTINE',l_proc);
1952: fnd_message.set_token('REASON',SQLERRM);
1953: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1954: RETURN NVL(l_estimated_amt,0);
1955: raise;
1956: END compute_estimated_amt;
1949: END IF;
1950: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
1951: fnd_message.set_token('ROUTINE',l_proc);
1952: fnd_message.set_token('REASON',SQLERRM);
1953: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
1954: RETURN NVL(l_estimated_amt,0);
1955: raise;
1956: END compute_estimated_amt;
1957:
2133: IF (l_debug = 'Y') THEN
2134: okc_debug.Log('2000: Leaving ',2);
2135: okc_debug.Reset_Indentation;
2136: END IF;
2137: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
2138: fnd_message.set_token('ROUTINE',l_proc);
2139: fnd_message.set_token('REASON',SQLERRM);
2140: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
2141: raise;
2134: okc_debug.Log('2000: Leaving ',2);
2135: okc_debug.Reset_Indentation;
2136: END IF;
2137: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
2138: fnd_message.set_token('ROUTINE',l_proc);
2139: fnd_message.set_token('REASON',SQLERRM);
2140: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
2141: raise;
2142: END create_manual_adjustment;
2135: okc_debug.Reset_Indentation;
2136: END IF;
2137: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
2138: fnd_message.set_token('ROUTINE',l_proc);
2139: fnd_message.set_token('REASON',SQLERRM);
2140: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
2141: raise;
2142: END create_manual_adjustment;
2143:
2136: END IF;
2137: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
2138: fnd_message.set_token('ROUTINE',l_proc);
2139: fnd_message.set_token('REASON',SQLERRM);
2140: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
2141: raise;
2142: END create_manual_adjustment;
2143:
2144:
2186: END IF;
2187: fnd_file.put_line(FND_FILE.LOG,' ');
2188: fnd_file.put_line(FND_FILE.LOG,' ');
2189: fnd_file.put_line(FND_FILE.LOG,' *********************************************** ');
2190: fnd_message.set_name('OKC','OKC_MOD_NOT_DEFINED');
2191: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
2192: fnd_file.put_line(FND_FILE.LOG,' *********************************************** ');
2193: fnd_file.put_line(FND_FILE.LOG,' ');
2194: fnd_file.put_line(FND_FILE.LOG,' ');
2187: fnd_file.put_line(FND_FILE.LOG,' ');
2188: fnd_file.put_line(FND_FILE.LOG,' ');
2189: fnd_file.put_line(FND_FILE.LOG,' *********************************************** ');
2190: fnd_message.set_name('OKC','OKC_MOD_NOT_DEFINED');
2191: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
2192: fnd_file.put_line(FND_FILE.LOG,' *********************************************** ');
2193: fnd_file.put_line(FND_FILE.LOG,' ');
2194: fnd_file.put_line(FND_FILE.LOG,' ');
2195: l_status := 'N';
2213: IF (l_debug = 'Y') THEN
2214: okc_debug.Log('2000: Leaving ',2);
2215: okc_debug.Reset_Indentation;
2216: END IF;
2217: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
2218: fnd_message.set_token('ROUTINE',l_proc);
2219: fnd_message.set_token('REASON',SQLERRM);
2220: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
2221: RETURN l_status;
2214: okc_debug.Log('2000: Leaving ',2);
2215: okc_debug.Reset_Indentation;
2216: END IF;
2217: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
2218: fnd_message.set_token('ROUTINE',l_proc);
2219: fnd_message.set_token('REASON',SQLERRM);
2220: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
2221: RETURN l_status;
2222: END check_modifier;
2215: okc_debug.Reset_Indentation;
2216: END IF;
2217: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
2218: fnd_message.set_token('ROUTINE',l_proc);
2219: fnd_message.set_token('REASON',SQLERRM);
2220: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
2221: RETURN l_status;
2222: END check_modifier;
2223:
2216: END IF;
2217: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
2218: fnd_message.set_token('ROUTINE',l_proc);
2219: fnd_message.set_token('REASON',SQLERRM);
2220: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
2221: RETURN l_status;
2222: END check_modifier;
2223:
2224: /*----------------------------------------------------------------------------
2252: IF (l_debug = 'Y') THEN
2253: okc_debug.Log('2000: Leaving ',2);
2254: okc_debug.Reset_Indentation;
2255: END IF;
2256: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
2257: fnd_message.set_token('ROUTINE',l_proc);
2258: fnd_message.set_token('REASON',SQLERRM);
2259: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
2260: RETURN l_id;
2253: okc_debug.Log('2000: Leaving ',2);
2254: okc_debug.Reset_Indentation;
2255: END IF;
2256: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
2257: fnd_message.set_token('ROUTINE',l_proc);
2258: fnd_message.set_token('REASON',SQLERRM);
2259: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
2260: RETURN l_id;
2261: END get_seq_id;
2254: okc_debug.Reset_Indentation;
2255: END IF;
2256: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
2257: fnd_message.set_token('ROUTINE',l_proc);
2258: fnd_message.set_token('REASON',SQLERRM);
2259: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
2260: RETURN l_id;
2261: END get_seq_id;
2262:
2255: END IF;
2256: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
2257: fnd_message.set_token('ROUTINE',l_proc);
2258: fnd_message.set_token('REASON',SQLERRM);
2259: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
2260: RETURN l_id;
2261: END get_seq_id;
2262:
2263:
2303: IF (l_debug = 'Y') THEN
2304: okc_debug.Log('2000: Leaving ',2);
2305: okc_debug.Reset_Indentation;
2306: END IF;
2307: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
2308: fnd_message.set_token('ROUTINE',l_proc);
2309: fnd_message.set_token('REASON',SQLERRM);
2310: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
2311: RETURN l_flag;
2304: okc_debug.Log('2000: Leaving ',2);
2305: okc_debug.Reset_Indentation;
2306: END IF;
2307: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
2308: fnd_message.set_token('ROUTINE',l_proc);
2309: fnd_message.set_token('REASON',SQLERRM);
2310: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
2311: RETURN l_flag;
2312: END get_item_to_price_flag;
2305: okc_debug.Reset_Indentation;
2306: END IF;
2307: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
2308: fnd_message.set_token('ROUTINE',l_proc);
2309: fnd_message.set_token('REASON',SQLERRM);
2310: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
2311: RETURN l_flag;
2312: END get_item_to_price_flag;
2313:
2306: END IF;
2307: fnd_message.set_name('OKC','OKC_CATASTROPHIC_ERROR');
2308: fnd_message.set_token('ROUTINE',l_proc);
2309: fnd_message.set_token('REASON',SQLERRM);
2310: fnd_file.put_line(FND_FILE.LOG,fnd_message.get);
2311: RETURN l_flag;
2312: END get_item_to_price_flag;
2313:
2314: