1132:
1133: SAVEPOINT Start_Process;
1134: --
1135: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
1136: FND_MSG_PUB.initialize ;
1137: END IF;
1138: --
1139: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1140:
1298: THEN
1299: Put_Debug_Msg( l_full_path,l_api_name||' Successfully completed');
1300: END IF;
1301:
1302: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1303: p_data => x_msg_data );
1304:
1305: EXCEPTION
1306: WHEN FND_API.G_EXC_ERROR THEN
1306: WHEN FND_API.G_EXC_ERROR THEN
1307: Rollback to Start_Process;
1308: x_return_status := FND_API.G_RET_STS_ERROR;
1309:
1310: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1311: p_data => x_msg_data );
1312: --Bug 3199488
1313: IF ( g_excep_level >= g_debug_level ) THEN
1314: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_ERROR Exception Raised');
1318: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1319: Rollback to Start_Process;
1320: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1321:
1322: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1323: p_data => x_msg_data );
1324: --Bug 3199488
1325: IF ( g_excep_level >= g_debug_level ) THEN
1326: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_UNEXPECTED_ERROR Exception Raised');
1333:
1334: Rollback to Start_Process;
1335: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1336:
1337: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1338: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1339: END IF;
1340:
1341: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1334: Rollback to Start_Process;
1335: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1336:
1337: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1338: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1339: END IF;
1340:
1341: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1342: p_data => x_msg_data );
1337: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1338: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1339: END IF;
1340:
1341: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1342: p_data => x_msg_data );
1343: -- Bug 3199488
1344: IF ( g_unexp_level >= g_debug_level ) THEN
1345: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1587: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1588:
1589: Put_Debug_Msg( l_full_path,l_api_name||' raised unhandled exception');
1590:
1591: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1592: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1593: END IF;
1594: -- Bug 3199488
1595: IF ( g_unexp_level >= g_debug_level ) THEN
1588:
1589: Put_Debug_Msg( l_full_path,l_api_name||' raised unhandled exception');
1590:
1591: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1592: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1593: END IF;
1594: -- Bug 3199488
1595: IF ( g_unexp_level >= g_debug_level ) THEN
1596: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1698: WHEN OTHERS THEN
1699: Put_Debug_Msg( l_full_path,l_api_name||' raised unhandled exception');
1700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1701:
1702: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1703: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1704: END IF;
1705: -- Bug 3199488
1706: IF ( g_unexp_level >= g_debug_level ) THEN
1699: Put_Debug_Msg( l_full_path,l_api_name||' raised unhandled exception');
1700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1701:
1702: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1703: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1704: END IF;
1705: -- Bug 3199488
1706: IF ( g_unexp_level >= g_debug_level ) THEN
1707: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1815: Put_Debug_Msg( l_full_path,l_api_name||' raised unhandled exception');
1816:
1817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1818:
1819: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1820: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1821: END IF;
1822: -- Bug 3199488
1823: IF ( g_unexp_level >= g_debug_level ) THEN
1816:
1817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1818:
1819: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1820: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1821: END IF;
1822: -- Bug 3199488
1823: IF ( g_unexp_level >= g_debug_level ) THEN
1824: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
2071: Put_Debug_Msg( l_full_path,l_api_name||' raised unhandled exception');
2072:
2073: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2074:
2075: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2076: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
2077: END IF;
2078: -- Bug 3199488
2079: IF ( g_unexp_level >= g_debug_level ) THEN
2072:
2073: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2074:
2075: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2076: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
2077: END IF;
2078: -- Bug 3199488
2079: IF ( g_unexp_level >= g_debug_level ) THEN
2080: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
2158: Put_Debug_Msg( l_full_path,l_api_name||' raised unhandled exception');
2159:
2160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2161:
2162: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2163: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
2164: END IF;
2165: -- Bug 3199488
2166: IF ( g_unexp_level >= g_debug_level ) THEN
2159:
2160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2161:
2162: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2163: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
2164: END IF;
2165: -- Bug 3199488
2166: IF ( g_unexp_level >= g_debug_level ) THEN
2167: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
2235: Put_Debug_Msg( l_full_path,l_api_name||' raised unhandled exception');
2236:
2237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2238:
2239: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2240: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
2241: END IF;
2242: -- Bug 3199488
2243: IF ( g_unexp_level >= g_debug_level ) THEN
2236:
2237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2238:
2239: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2240: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
2241: END IF;
2242: -- Bug 3199488
2243: IF ( g_unexp_level >= g_debug_level ) THEN
2244: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
2348: Put_Debug_Msg( l_full_path,l_api_name||' raised unhandled exception');
2349:
2350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2351:
2352: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2353: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
2354: END IF;
2355:
2356: -- Bug 3199488
2349:
2350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2351:
2352: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2353: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
2354: END IF;
2355:
2356: -- Bug 3199488
2357: IF ( g_unexp_level >= g_debug_level ) THEN
2465: Put_Debug_Msg( l_full_path,l_api_name||' raised unhandled exception');
2466:
2467: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2468:
2469: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2470: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
2471: END IF;
2472: -- Bug 3199488
2473: IF ( g_unexp_level >= g_debug_level ) THEN
2466:
2467: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2468:
2469: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2470: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
2471: END IF;
2472: -- Bug 3199488
2473: IF ( g_unexp_level >= g_debug_level ) THEN
2474: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
2554: Put_Debug_Msg( l_full_path,l_api_name||' raised unhandled exception');
2555:
2556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2557:
2558: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2559: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
2560: END IF;
2561: -- Bug 3199488
2562: IF ( g_unexp_level >= g_debug_level ) THEN
2555:
2556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2557:
2558: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2559: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
2560: END IF;
2561: -- Bug 3199488
2562: IF ( g_unexp_level >= g_debug_level ) THEN
2563: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
2666: Put_Debug_Msg( l_full_path,l_api_name||' raised unhandled exception');
2667:
2668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2669:
2670: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2671: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
2672: END IF;
2673: -- Bug 3199488
2674: IF ( g_unexp_level >= g_debug_level ) THEN
2667:
2668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2669:
2670: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2671: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
2672: END IF;
2673: -- Bug 3199488
2674: IF ( g_unexp_level >= g_debug_level ) THEN
2675: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
2784: Put_Debug_Msg( l_full_path,l_api_name||' raised unhandled exception');
2785:
2786: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2787:
2788: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2789: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
2790: END IF;
2791: -- Bug 3199488
2792: IF ( g_unexp_level >= g_debug_level ) THEN
2785:
2786: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2787:
2788: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2789: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
2790: END IF;
2791: -- Bug 3199488
2792: IF ( g_unexp_level >= g_debug_level ) THEN
2793: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3025: Put_Debug_Msg( l_full_path,l_api_name||' raised unhandled exception');
3026:
3027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3028:
3029: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3030: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
3031: END IF;
3032: -- Bug 3199488
3033: IF ( g_unexp_level >= g_debug_level ) THEN
3026:
3027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3028:
3029: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3030: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
3031: END IF;
3032: -- Bug 3199488
3033: IF ( g_unexp_level >= g_debug_level ) THEN
3034: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3738: Put_Debug_Msg( l_full_path,l_api_name||' raised unhandled exception');
3739:
3740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3741:
3742: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3743: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
3744: END IF;
3745: -- Bug 3199488
3746: IF ( g_unexp_level >= g_debug_level ) THEN
3739:
3740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3741:
3742: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3743: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
3744: END IF;
3745: -- Bug 3199488
3746: IF ( g_unexp_level >= g_debug_level ) THEN
3747: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3782: IGC_MSGS_PKG.add_message (p_appname => appname,
3783: p_msgname => msgname);
3784: IF g_debug_mode = 'Y'
3785: THEN
3786: Put_Debug_Msg( l_full_path,'Raising an execution exception: '||fnd_msg_pub.get(1,FND_API.G_FALSE));
3787: END IF;
3788:
3789: END add_message;
3790:
3837: /*WHEN FND_API.G_EXC_ERROR THEN
3838: RETURN;*/
3839:
3840: WHEN OTHERS THEN
3841: /*IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3842: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
3843: END IF;*/
3844: NULL;
3845: RETURN;
3838: RETURN;*/
3839:
3840: WHEN OTHERS THEN
3841: /*IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3842: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
3843: END IF;*/
3844: NULL;
3845: RETURN;
3846:
3860: THEN
3861: Put_Debug_Msg( l_full_path,'Error during the execution ');
3862: END IF;
3863:
3864: FND_MSG_PUB.Count_And_Get ( p_count => l_msg_count,
3865: p_data => l_msg_data );
3866:
3867: IF l_msg_count >0 THEN
3868: g_error_text :='';
3867: IF l_msg_count >0 THEN
3868: g_error_text :='';
3869:
3870: FOR l_cur IN 1..l_msg_count LOOP
3871: g_error_text := g_error_text||' Mes No'||l_cur||' '||FND_MSG_PUB.GET(l_cur,FND_API.G_FALSE);
3872: --Bug 3199488
3873: IF(g_excep_level >= g_debug_level) THEN
3874: FND_LOG.STRING(g_excep_level, l_full_path,g_error_text);
3875: END IF;
4025: Put_Debug_Msg( l_full_path,l_api_name||' raised unhandled exception');
4026:
4027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4028:
4029: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4030: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
4031: END IF;
4032: -- Bug 3199488
4033: IF ( g_unexp_level >= g_debug_level ) THEN
4026:
4027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4028:
4029: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4030: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
4031: END IF;
4032: -- Bug 3199488
4033: IF ( g_unexp_level >= g_debug_level ) THEN
4034: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');