237: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
238: THEN
239: ROLLBACK TO S1;
240: l_EXCEPTION := NULL;
241: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_HEADER_HST_INSERT');
242: IF(g_excep_level >= g_debug_level) THEN
243: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
244: END IF;
245: l_EXCEPTION := FND_MESSAGE.GET;
241: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_HEADER_HST_INSERT');
242: IF(g_excep_level >= g_debug_level) THEN
243: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
244: END IF;
245: l_EXCEPTION := FND_MESSAGE.GET;
246: INSERT INTO IGC_CC_PROCESS_EXCEPTIONS
247: (PROCESS_TYPE,
248: PROCESS_PHASE,
249: CC_HEADER_ID,
342: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
343: THEN
344: ROLLBACK TO S1;
345: l_EXCEPTION := NULL;
346: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_ACT_LINE_HST_INSERT');
347: IF(g_excep_level >= g_debug_level) THEN
348: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
349: END IF;
350: l_EXCEPTION := FND_MESSAGE.GET;
346: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_ACT_LINE_HST_INSERT');
347: IF(g_excep_level >= g_debug_level) THEN
348: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
349: END IF;
350: l_EXCEPTION := FND_MESSAGE.GET;
351:
352:
353: INSERT INTO IGC_CC_PROCESS_EXCEPTIONS
354: (PROCESS_TYPE,
456: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
457: THEN
458: ROLLBACK TO S1;
459: l_EXCEPTION := NULL;
460: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_ACT_LINES_UPDATE');
461: IF(g_excep_level >= g_debug_level) THEN
462: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
463: END IF;
464: l_EXCEPTION := FND_MESSAGE.GET;
460: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_ACT_LINES_UPDATE');
461: IF(g_excep_level >= g_debug_level) THEN
462: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
463: END IF;
464: l_EXCEPTION := FND_MESSAGE.GET;
465:
466:
467: INSERT INTO IGC_CC_PROCESS_EXCEPTIONS
468: (PROCESS_TYPE,
563: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
564: THEN
565: ROLLBACK TO S1;
566: l_EXCEPTION := NULL;
567: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_DET_PF_HST_INSERT');
568: IF(g_excep_level >= g_debug_level) THEN
569: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
570: END IF;
571: l_EXCEPTION := FND_MESSAGE.GET;
567: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_DET_PF_HST_INSERT');
568: IF(g_excep_level >= g_debug_level) THEN
569: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
570: END IF;
571: l_EXCEPTION := FND_MESSAGE.GET;
572:
573:
574: INSERT INTO IGC_CC_PROCESS_EXCEPTIONS
575: (PROCESS_TYPE,
664: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
665: THEN
666: ROLLBACK TO S1;
667: l_EXCEPTION := NULL;
668: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_DET_PF_UPDATE');
669: IF(g_excep_level >= g_debug_level) THEN
670: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
671: END IF;
672: l_EXCEPTION := FND_MESSAGE.GET;
668: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_DET_PF_UPDATE');
669: IF(g_excep_level >= g_debug_level) THEN
670: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
671: END IF;
672: l_EXCEPTION := FND_MESSAGE.GET;
673:
674:
675: INSERT INTO IGC_CC_PROCESS_EXCEPTIONS
676: (PROCESS_TYPE,
789: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
790: THEN
791: ROLLBACK TO S1;
792: l_EXCEPTION := NULL;
793: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_HEADERS_UPDATE');
794: IF(g_excep_level >= g_debug_level) THEN
795: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
796: END IF;
797: l_EXCEPTION := FND_MESSAGE.GET;
793: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_HEADERS_UPDATE');
794: IF(g_excep_level >= g_debug_level) THEN
795: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
796: END IF;
797: l_EXCEPTION := FND_MESSAGE.GET;
798:
799:
800: INSERT INTO IGC_CC_PROCESS_EXCEPTIONS
801: (PROCESS_TYPE,
862: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
863: THEN
864: ROLLBACK TO S1;
865: l_EXCEPTION := NULL;
866: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_ACTION_HST_INSERT');
867: IF(g_excep_level >= g_debug_level) THEN
868: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
869: END IF;
870: l_EXCEPTION := FND_MESSAGE.GET;
866: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_ACTION_HST_INSERT');
867: IF(g_excep_level >= g_debug_level) THEN
868: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
869: END IF;
870: l_EXCEPTION := FND_MESSAGE.GET;
871:
872:
873: INSERT INTO IGC_CC_PROCESS_EXCEPTIONS
874: (PROCESS_TYPE,
1158: FROM igi_lookups
1159: WHERE lookup_code = 'CC'
1160: AND lookup_type = 'GCC_DESCRIPTION';
1161:
1162: FND_MESSAGE.SET_NAME('IGI', 'IGI_GEN_PROD_NOT_INSTALLED');
1163: FND_MESSAGE.SET_TOKEN('OPTION_NAME', l_option_name);
1164: IF(g_excep_level >= g_debug_level) THEN
1165: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
1166: END IF;
1159: WHERE lookup_code = 'CC'
1160: AND lookup_type = 'GCC_DESCRIPTION';
1161:
1162: FND_MESSAGE.SET_NAME('IGI', 'IGI_GEN_PROD_NOT_INSTALLED');
1163: FND_MESSAGE.SET_TOKEN('OPTION_NAME', l_option_name);
1164: IF(g_excep_level >= g_debug_level) THEN
1165: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
1166: END IF;
1167: lv_message := fnd_message.get;
1163: FND_MESSAGE.SET_TOKEN('OPTION_NAME', l_option_name);
1164: IF(g_excep_level >= g_debug_level) THEN
1165: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
1166: END IF;
1167: lv_message := fnd_message.get;
1168: errbuf := lv_message;
1169: retcode := 2;
1170: return;
1171: END IF;
1505: FETCH C1 INTO V1;
1506: IF C1%ROWCOUNT = 0
1507: THEN
1508: l_EXCEPTION := NULL;
1509: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_CC_EXIST');
1510: FND_MESSAGE.SET_TOKEN('YEP_YEAR',p_YEAR,TRUE);
1511: IF(g_excep_level >= g_debug_level) THEN
1512: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
1513: END IF;
1506: IF C1%ROWCOUNT = 0
1507: THEN
1508: l_EXCEPTION := NULL;
1509: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_CC_EXIST');
1510: FND_MESSAGE.SET_TOKEN('YEP_YEAR',p_YEAR,TRUE);
1511: IF(g_excep_level >= g_debug_level) THEN
1512: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
1513: END IF;
1514: l_EXCEPTION := FND_MESSAGE.GET;
1510: FND_MESSAGE.SET_TOKEN('YEP_YEAR',p_YEAR,TRUE);
1511: IF(g_excep_level >= g_debug_level) THEN
1512: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
1513: END IF;
1514: l_EXCEPTION := FND_MESSAGE.GET;
1515:
1516:
1517: INSERT INTO IGC_CC_PROCESS_EXCEPTIONS
1518: (PROCESS_TYPE,
1699:
1700: IF l_LOCK_CC_STATUS = FALSE
1701: THEN
1702: l_EXCEPTION := NULL;
1703: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_HEADER_LOCK');
1704: FND_MESSAGE.SET_TOKEN('NUMBER',l_CC_NUM,TRUE);
1705: IF(g_excep_level >= g_debug_level) THEN
1706: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
1707: END IF;
1700: IF l_LOCK_CC_STATUS = FALSE
1701: THEN
1702: l_EXCEPTION := NULL;
1703: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_HEADER_LOCK');
1704: FND_MESSAGE.SET_TOKEN('NUMBER',l_CC_NUM,TRUE);
1705: IF(g_excep_level >= g_debug_level) THEN
1706: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
1707: END IF;
1708: l_EXCEPTION := FND_MESSAGE.GET;
1704: FND_MESSAGE.SET_TOKEN('NUMBER',l_CC_NUM,TRUE);
1705: IF(g_excep_level >= g_debug_level) THEN
1706: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
1707: END IF;
1708: l_EXCEPTION := FND_MESSAGE.GET;
1709:
1710:
1711: INSERT INTO IGC_CC_PROCESS_EXCEPTIONS
1712: (PROCESS_TYPE,
1744:
1745: IF l_LOCK_PO_STATUS = FALSE
1746: THEN
1747: l_EXCEPTION := NULL;
1748: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_PO_LOCKED');
1749: FND_MESSAGE.SET_TOKEN('NUMBER',l_CC_NUM,TRUE);
1750: IF(g_excep_level >= g_debug_level) THEN
1751: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
1752: END IF;
1745: IF l_LOCK_PO_STATUS = FALSE
1746: THEN
1747: l_EXCEPTION := NULL;
1748: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_PO_LOCKED');
1749: FND_MESSAGE.SET_TOKEN('NUMBER',l_CC_NUM,TRUE);
1750: IF(g_excep_level >= g_debug_level) THEN
1751: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
1752: END IF;
1753: l_EXCEPTION := FND_MESSAGE.GET;
1749: FND_MESSAGE.SET_TOKEN('NUMBER',l_CC_NUM,TRUE);
1750: IF(g_excep_level >= g_debug_level) THEN
1751: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
1752: END IF;
1753: l_EXCEPTION := FND_MESSAGE.GET;
1754:
1755: INSERT INTO IGC_CC_PROCESS_EXCEPTIONS
1756: (PROCESS_TYPE,
1757: PROCESS_PHASE,
1803: IF (V6.PERIOD_NUM < l_max_period_num)
1804: AND V6.CC_PERIOD_STATUS NOT IN ('C','P','N')
1805: THEN
1806: l_EXCEPTION := NULL;
1807: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_CC_PERIOD_STATUS');
1808: FND_MESSAGE.SET_TOKEN('PERIOD_NAME',V6.PERIOD_NAME,TRUE);
1809: IF(g_excep_level >= g_debug_level) THEN
1810: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
1811: END IF;
1804: AND V6.CC_PERIOD_STATUS NOT IN ('C','P','N')
1805: THEN
1806: l_EXCEPTION := NULL;
1807: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_CC_PERIOD_STATUS');
1808: FND_MESSAGE.SET_TOKEN('PERIOD_NAME',V6.PERIOD_NAME,TRUE);
1809: IF(g_excep_level >= g_debug_level) THEN
1810: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
1811: END IF;
1812: l_EXCEPTION := FND_MESSAGE.GET;
1808: FND_MESSAGE.SET_TOKEN('PERIOD_NAME',V6.PERIOD_NAME,TRUE);
1809: IF(g_excep_level >= g_debug_level) THEN
1810: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
1811: END IF;
1812: l_EXCEPTION := FND_MESSAGE.GET;
1813:
1814:
1815: INSERT INTO IGC_CC_PROCESS_EXCEPTIONS
1816: (PROCESS_TYPE,
1843: IF V6.PERIOD_NUM = l_max_period_num
1844: AND V6.CC_PERIOD_STATUS <> 'O'
1845: THEN
1846: l_EXCEPTION := NULL;
1847: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_CC_LAST_PERIOD');
1848: FND_MESSAGE.SET_TOKEN('PERIOD_NAME',V6.PERIOD_NAME,TRUE);
1849: IF(g_excep_level >= g_debug_level) THEN
1850: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
1851: END IF;
1844: AND V6.CC_PERIOD_STATUS <> 'O'
1845: THEN
1846: l_EXCEPTION := NULL;
1847: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_CC_LAST_PERIOD');
1848: FND_MESSAGE.SET_TOKEN('PERIOD_NAME',V6.PERIOD_NAME,TRUE);
1849: IF(g_excep_level >= g_debug_level) THEN
1850: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
1851: END IF;
1852: l_EXCEPTION := FND_MESSAGE.GET;
1848: FND_MESSAGE.SET_TOKEN('PERIOD_NAME',V6.PERIOD_NAME,TRUE);
1849: IF(g_excep_level >= g_debug_level) THEN
1850: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
1851: END IF;
1852: l_EXCEPTION := FND_MESSAGE.GET;
1853:
1854:
1855: INSERT INTO IGC_CC_PROCESS_EXCEPTIONS
1856: (PROCESS_TYPE,
1887: EXIT WHEN C7%NOTFOUND;
1888: IF C7%ROWCOUNT = 0
1889: THEN
1890: l_EXCEPTION := NULL;
1891: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_CC_PERIOD_EXISTS');
1892: IF(g_excep_level >= g_debug_level) THEN
1893: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
1894: END IF;
1895: l_EXCEPTION := FND_MESSAGE.GET;
1891: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_CC_PERIOD_EXISTS');
1892: IF(g_excep_level >= g_debug_level) THEN
1893: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
1894: END IF;
1895: l_EXCEPTION := FND_MESSAGE.GET;
1896:
1897:
1898: INSERT INTO IGC_CC_PROCESS_EXCEPTIONS
1899: (PROCESS_TYPE,
1926: IF V7.PERIOD_NUM = l_min_period_num
1927: AND V7.CC_PERIOD_STATUS NOT IN ('O','F')
1928: THEN
1929: l_EXCEPTION := NULL;
1930: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_CC_FUTURE_PERIOD');
1931: FND_MESSAGE.SET_TOKEN('PERIOD_NAME',V7.PERIOD_NAME,TRUE);
1932: IF(g_excep_level >= g_debug_level) THEN
1933: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
1934: END IF;
1927: AND V7.CC_PERIOD_STATUS NOT IN ('O','F')
1928: THEN
1929: l_EXCEPTION := NULL;
1930: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_CC_FUTURE_PERIOD');
1931: FND_MESSAGE.SET_TOKEN('PERIOD_NAME',V7.PERIOD_NAME,TRUE);
1932: IF(g_excep_level >= g_debug_level) THEN
1933: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
1934: END IF;
1935: l_EXCEPTION := FND_MESSAGE.GET;
1931: FND_MESSAGE.SET_TOKEN('PERIOD_NAME',V7.PERIOD_NAME,TRUE);
1932: IF(g_excep_level >= g_debug_level) THEN
1933: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
1934: END IF;
1935: l_EXCEPTION := FND_MESSAGE.GET;
1936:
1937:
1938: INSERT INTO IGC_CC_PROCESS_EXCEPTIONS
1939: (PROCESS_TYPE,
1969: FETCH C8 INTO V8;
1970: IF C8%ROWCOUNT = 0
1971: THEN
1972: l_EXCEPTION := NULL;
1973: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_GL_PERIOD_EXISTS');
1974: IF(g_excep_level >= g_debug_level) THEN
1975: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
1976: END IF;
1977: l_EXCEPTION := FND_MESSAGE.GET;
1973: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_GL_PERIOD_EXISTS');
1974: IF(g_excep_level >= g_debug_level) THEN
1975: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
1976: END IF;
1977: l_EXCEPTION := FND_MESSAGE.GET;
1978:
1979:
1980: INSERT INTO IGC_CC_PROCESS_EXCEPTIONS
1981: (PROCESS_TYPE,
2003:
2004: IF V8.CLOSING_STATUS NOT IN ('F','O')
2005: THEN
2006: l_EXCEPTION := NULL;
2007: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_GL_FIRST_PERIOD');
2008: FND_MESSAGE.SET_TOKEN('PERIOD_NAME',V8.PERIOD_NAME,TRUE);
2009: IF(g_excep_level >= g_debug_level) THEN
2010: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
2011: END IF;
2004: IF V8.CLOSING_STATUS NOT IN ('F','O')
2005: THEN
2006: l_EXCEPTION := NULL;
2007: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_GL_FIRST_PERIOD');
2008: FND_MESSAGE.SET_TOKEN('PERIOD_NAME',V8.PERIOD_NAME,TRUE);
2009: IF(g_excep_level >= g_debug_level) THEN
2010: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
2011: END IF;
2012: l_EXCEPTION := FND_MESSAGE.GET;
2008: FND_MESSAGE.SET_TOKEN('PERIOD_NAME',V8.PERIOD_NAME,TRUE);
2009: IF(g_excep_level >= g_debug_level) THEN
2010: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
2011: END IF;
2012: l_EXCEPTION := FND_MESSAGE.GET;
2013:
2014: INSERT INTO IGC_CC_PROCESS_EXCEPTIONS
2015: (PROCESS_TYPE,
2016: PROCESS_PHASE,
2047: FETCH C8 INTO V8;
2048: IF C8%ROWCOUNT = 0
2049: THEN
2050: l_EXCEPTION := NULL;
2051: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_GL_LAST_PRD_EXISTS');
2052: IF(g_excep_level >= g_debug_level) THEN
2053: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
2054: END IF;
2055: l_EXCEPTION := FND_MESSAGE.GET;
2051: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_GL_LAST_PRD_EXISTS');
2052: IF(g_excep_level >= g_debug_level) THEN
2053: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
2054: END IF;
2055: l_EXCEPTION := FND_MESSAGE.GET;
2056:
2057: INSERT INTO IGC_CC_PROCESS_EXCEPTIONS
2058: (PROCESS_TYPE,
2059: PROCESS_PHASE,
2080:
2081: IF V8.CLOSING_STATUS <> 'O'
2082: THEN
2083: l_EXCEPTION := NULL;
2084: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_GL_LAST_PERIOD');
2085: FND_MESSAGE.SET_TOKEN('PERIOD_NAME',V8.PERIOD_NAME,TRUE);
2086: IF(g_excep_level >= g_debug_level) THEN
2087: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
2088: END IF;
2081: IF V8.CLOSING_STATUS <> 'O'
2082: THEN
2083: l_EXCEPTION := NULL;
2084: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_GL_LAST_PERIOD');
2085: FND_MESSAGE.SET_TOKEN('PERIOD_NAME',V8.PERIOD_NAME,TRUE);
2086: IF(g_excep_level >= g_debug_level) THEN
2087: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
2088: END IF;
2089: l_EXCEPTION := FND_MESSAGE.GET;
2085: FND_MESSAGE.SET_TOKEN('PERIOD_NAME',V8.PERIOD_NAME,TRUE);
2086: IF(g_excep_level >= g_debug_level) THEN
2087: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
2088: END IF;
2089: l_EXCEPTION := FND_MESSAGE.GET;
2090:
2091: INSERT INTO IGC_CC_PROCESS_EXCEPTIONS
2092: (PROCESS_TYPE,
2093: PROCESS_PHASE,
2489: AND IGC_CC_PROCESS_DATA.ORG_ID = l_org_id
2490: AND IGC_CC_PROCESS_DATA.PROCESS_TYPE = l_PROCESS_TYPE;
2491:
2492: l_EXCEPTION := NULL;
2493: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_COVER_REL_INSERT');
2494: IF(g_excep_level >= g_debug_level) THEN
2495: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
2496: END IF;
2497: l_EXCEPTION := FND_MESSAGE.GET;
2493: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_COVER_REL_INSERT');
2494: IF(g_excep_level >= g_debug_level) THEN
2495: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
2496: END IF;
2497: l_EXCEPTION := FND_MESSAGE.GET;
2498:
2499:
2500: INSERT INTO IGC_CC_PROCESS_EXCEPTIONS
2501: (PROCESS_TYPE,
2618: FROM IGC_CC_HEADERS
2619: WHERE CC_HEADER_ID = V2.CC_HEADER_ID;
2620:
2621: l_EXCEPTION := NULL;
2622: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_VAL_DUE_TO_ENC_FAIL');
2623: FND_MESSAGE.SET_TOKEN('NUMBER',l_CC_NUM,TRUE);
2624: IF(g_excep_level >= g_debug_level) THEN
2625: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
2626: END IF;
2619: WHERE CC_HEADER_ID = V2.CC_HEADER_ID;
2620:
2621: l_EXCEPTION := NULL;
2622: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_VAL_DUE_TO_ENC_FAIL');
2623: FND_MESSAGE.SET_TOKEN('NUMBER',l_CC_NUM,TRUE);
2624: IF(g_excep_level >= g_debug_level) THEN
2625: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
2626: END IF;
2627: l_EXCEPTION := FND_MESSAGE.GET;
2623: FND_MESSAGE.SET_TOKEN('NUMBER',l_CC_NUM,TRUE);
2624: IF(g_excep_level >= g_debug_level) THEN
2625: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
2626: END IF;
2627: l_EXCEPTION := FND_MESSAGE.GET;
2628:
2629: INSERT INTO IGC_CC_PROCESS_EXCEPTIONS
2630: (PROCESS_TYPE,
2631: PROCESS_PHASE,
2696: -- Bug 1866713
2697: -- Processing should continue in final mode even if a CC has failed validation.
2698: ELSE
2699: l_EXCEPTION := NULL;
2700: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_VALIDATE_ALL');
2701: l_EXCEPTION := FND_MESSAGE.GET;
2702:
2703:
2704: INSERT INTO IGC_CC_PROCESS_EXCEPTIONS
2697: -- Processing should continue in final mode even if a CC has failed validation.
2698: ELSE
2699: l_EXCEPTION := NULL;
2700: FND_MESSAGE.SET_NAME('IGC','IGC_CC_YEP_VALIDATE_ALL');
2701: l_EXCEPTION := FND_MESSAGE.GET;
2702:
2703:
2704: INSERT INTO IGC_CC_PROCESS_EXCEPTIONS
2705: (PROCESS_TYPE,
2927:
2928: fnd_file.put_line(fnd_file.log,l_error_text);
2929: END IF;
2930: IF ( g_unexp_level >= g_debug_level ) THEN
2931: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
2932: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
2933: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
2934: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
2935: END IF;
2928: fnd_file.put_line(fnd_file.log,l_error_text);
2929: END IF;
2930: IF ( g_unexp_level >= g_debug_level ) THEN
2931: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
2932: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
2933: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
2934: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
2935: END IF;
2936:
2929: END IF;
2930: IF ( g_unexp_level >= g_debug_level ) THEN
2931: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
2932: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
2933: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
2934: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
2935: END IF;
2936:
2937: END YEAR_END_MAIN;