304: retcode := 2;
305:
306: END IF;
307:
308: FND_MSG_PUB.Count_And_Get ( p_count => l_msg_count,
309: p_data => l_msg_data );
310:
311: IF (l_msg_count > 0) THEN
312:
311: IF (l_msg_count > 0) THEN
312:
313: l_error_text := '';
314: FOR l_cur IN 1..l_msg_count LOOP
315: -- l_error_text := ' Mesg No : '|| l_cur ||' '|| FND_MSG_PUB.GET(l_cur, FND_API.G_FALSE);
316: l_error_text := l_cur ||' '|| FND_MSG_PUB.GET(l_cur, FND_API.G_FALSE);
317: IF (g_excep_level >= g_debug_level ) THEN
318: FND_LOG.STRING (g_excep_level,l_full_path,l_error_text);
319: END IF;
312:
313: l_error_text := '';
314: FOR l_cur IN 1..l_msg_count LOOP
315: -- l_error_text := ' Mesg No : '|| l_cur ||' '|| FND_MSG_PUB.GET(l_cur, FND_API.G_FALSE);
316: l_error_text := l_cur ||' '|| FND_MSG_PUB.GET(l_cur, FND_API.G_FALSE);
317: IF (g_excep_level >= g_debug_level ) THEN
318: FND_LOG.STRING (g_excep_level,l_full_path,l_error_text);
319: END IF;
320: fnd_file.put_line (FND_FILE.LOG,
344:
345: WHEN OTHERS THEN
346: errbuf := 'Abnormal Completion For Request';
347: retcode := 2;
348: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
349: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Archive_Purge_CC_Request');
350: END IF;
351:
352: FND_MSG_PUB.Count_And_Get ( p_count => l_msg_count,
345: WHEN OTHERS THEN
346: errbuf := 'Abnormal Completion For Request';
347: retcode := 2;
348: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
349: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Archive_Purge_CC_Request');
350: END IF;
351:
352: FND_MSG_PUB.Count_And_Get ( p_count => l_msg_count,
353: p_data => l_msg_data );
348: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
349: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Archive_Purge_CC_Request');
350: END IF;
351:
352: FND_MSG_PUB.Count_And_Get ( p_count => l_msg_count,
353: p_data => l_msg_data );
354:
355: IF (l_msg_count > 0) THEN
356:
355: IF (l_msg_count > 0) THEN
356:
357: l_error_text := '';
358: FOR l_cur IN 1..l_msg_count LOOP
359: -- l_error_text := ' Mesg No : '|| l_cur ||' '|| FND_MSG_PUB.GET(l_cur, FND_API.G_FALSE);
360: l_error_text := l_cur ||' '|| FND_MSG_PUB.GET(l_cur, FND_API.G_FALSE);
361: IF (g_excep_level >= g_debug_level ) THEN
362: FND_LOG.STRING (g_excep_level,l_full_path,l_error_text);
363: END IF;
356:
357: l_error_text := '';
358: FOR l_cur IN 1..l_msg_count LOOP
359: -- l_error_text := ' Mesg No : '|| l_cur ||' '|| FND_MSG_PUB.GET(l_cur, FND_API.G_FALSE);
360: l_error_text := l_cur ||' '|| FND_MSG_PUB.GET(l_cur, FND_API.G_FALSE);
361: IF (g_excep_level >= g_debug_level ) THEN
362: FND_LOG.STRING (g_excep_level,l_full_path,l_error_text);
363: END IF;
364: fnd_file.put_line (FND_FILE.LOG,
440: raise FND_API.G_EXC_UNEXPECTED_ERROR ;
441: END IF;
442:
443: IF (FND_API.to_Boolean ( p_init_msg_list )) THEN
444: FND_MSG_PUB.initialize ;
445: END IF;
446:
447: -- --------------------------------------------------------------------
448: -- Attempt to lock the table and if able to lock continue with process
793:
794: WHEN OTHERS THEN
795: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
796: ROLLBACK TO Archive_Purge_CC_PVT;
797: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
798: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
799: END IF;
800: IF ( g_unexp_level >= g_debug_level ) THEN
801: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
794: WHEN OTHERS THEN
795: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
796: ROLLBACK TO Archive_Purge_CC_PVT;
797: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
798: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
799: END IF;
800: IF ( g_unexp_level >= g_debug_level ) THEN
801: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
802: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
944: RETURN;
945:
946: WHEN OTHERS THEN
947: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
948: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
949: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
950: END IF;
951: IF ( g_unexp_level >= g_debug_level ) THEN
952: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
945:
946: WHEN OTHERS THEN
947: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
948: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
949: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
950: END IF;
951: IF ( g_unexp_level >= g_debug_level ) THEN
952: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
953: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1317: RETURN;
1318:
1319: WHEN OTHERS THEN
1320: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
1321: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1322: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1323: END IF;
1324: IF ( g_unexp_level >= g_debug_level ) THEN
1325: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1318:
1319: WHEN OTHERS THEN
1320: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
1321: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1322: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1323: END IF;
1324: IF ( g_unexp_level >= g_debug_level ) THEN
1325: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1326: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3097: RETURN;
3098:
3099: WHEN OTHERS THEN
3100: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
3101: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3102: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
3103: END IF;
3104: IF ( g_unexp_level >= g_debug_level ) THEN
3105: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3098:
3099: WHEN OTHERS THEN
3100: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
3101: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3102: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
3103: END IF;
3104: IF ( g_unexp_level >= g_debug_level ) THEN
3105: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3106: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3304: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
3305: IF (c_cand_count%ISOPEN) THEN
3306: CLOSE c_cand_count;
3307: END IF;
3308: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3309: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
3310: END IF;
3311: IF ( g_unexp_level >= g_debug_level ) THEN
3312: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3305: IF (c_cand_count%ISOPEN) THEN
3306: CLOSE c_cand_count;
3307: END IF;
3308: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3309: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
3310: END IF;
3311: IF ( g_unexp_level >= g_debug_level ) THEN
3312: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3313: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3401: RETURN;
3402:
3403: WHEN OTHERS THEN
3404: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
3405: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3406: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
3407: END IF;
3408: IF ( g_unexp_level >= g_debug_level ) THEN
3409: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3402:
3403: WHEN OTHERS THEN
3404: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
3405: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3406: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
3407: END IF;
3408: IF ( g_unexp_level >= g_debug_level ) THEN
3409: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3410: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3662: RETURN;
3663:
3664: WHEN OTHERS THEN
3665: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
3666: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3667: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
3668: END IF;
3669: IF ( g_unexp_level >= g_debug_level ) THEN
3670: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3663:
3664: WHEN OTHERS THEN
3665: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
3666: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3667: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
3668: END IF;
3669: IF ( g_unexp_level >= g_debug_level ) THEN
3670: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3671: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3952: RETURN;
3953:
3954: WHEN OTHERS THEN
3955: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
3956: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3957: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
3958: END IF;
3959: IF ( g_unexp_level >= g_debug_level ) THEN
3960: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3953:
3954: WHEN OTHERS THEN
3955: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
3956: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3957: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
3958: END IF;
3959: IF ( g_unexp_level >= g_debug_level ) THEN
3960: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3961: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
4163: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
4164: IF (c_archive_history%ISOPEN) THEN
4165: CLOSE c_archive_history;
4166: END IF;
4167: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4168: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
4169: END IF;
4170: IF ( g_unexp_level >= g_debug_level ) THEN
4171: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
4164: IF (c_archive_history%ISOPEN) THEN
4165: CLOSE c_archive_history;
4166: END IF;
4167: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4168: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
4169: END IF;
4170: IF ( g_unexp_level >= g_debug_level ) THEN
4171: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
4172: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
4498: END IF;
4499: IF (c_mc_pf_line_count%ISOPEN) THEN
4500: CLOSE c_mc_pf_line_count;
4501: END IF;
4502: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4503: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
4504: END IF;
4505: IF ( g_unexp_level >= g_debug_level ) THEN
4506: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
4499: IF (c_mc_pf_line_count%ISOPEN) THEN
4500: CLOSE c_mc_pf_line_count;
4501: END IF;
4502: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4503: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
4504: END IF;
4505: IF ( g_unexp_level >= g_debug_level ) THEN
4506: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
4507: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
4600:
4601: IF (c_lock_candidates%ISOPEN) THEN
4602: CLOSE c_lock_candidates;
4603: END IF;
4604: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4605: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,l_api_name);
4606: END IF;
4607: END IF;
4608: IF ( g_unexp_level >= g_debug_level ) THEN
4601: IF (c_lock_candidates%ISOPEN) THEN
4602: CLOSE c_lock_candidates;
4603: END IF;
4604: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4605: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,l_api_name);
4606: END IF;
4607: END IF;
4608: IF ( g_unexp_level >= g_debug_level ) THEN
4609: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
4621: WHEN OTHERS THEN
4622: IF (c_lock_candidates%ISOPEN) THEN
4623: CLOSE c_lock_candidates;
4624: END IF;
4625: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4626: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,l_api_name);
4627: END IF;
4628: IF ( g_unexp_level >= g_debug_level ) THEN
4629: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
4622: IF (c_lock_candidates%ISOPEN) THEN
4623: CLOSE c_lock_candidates;
4624: END IF;
4625: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4626: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,l_api_name);
4627: END IF;
4628: IF ( g_unexp_level >= g_debug_level ) THEN
4629: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
4630: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
4684: /*WHEN FND_API.G_EXC_ERROR THEN
4685: RETURN;*/
4686:
4687: WHEN OTHERS THEN
4688: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4689: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
4690: END IF;
4691: RETURN;
4692:
4685: RETURN;*/
4686:
4687: WHEN OTHERS THEN
4688: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4689: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
4690: END IF;
4691: RETURN;
4692:
4693: END Output_Debug;
4794: RETURN;
4795:
4796: WHEN OTHERS THEN
4797: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
4798: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4799: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
4800: END IF;
4801: IF ( g_unexp_level >= g_debug_level ) THEN
4802: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
4795:
4796: WHEN OTHERS THEN
4797: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
4798: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4799: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
4800: END IF;
4801: IF ( g_unexp_level >= g_debug_level ) THEN
4802: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
4803: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
5159: END IF;
5160: IF (c_get_arc_hist_info%ISOPEN) THEN
5161: CLOSE c_get_arc_hist_info;
5162: END IF;
5163: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5164: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
5165: END IF;
5166: IF ( g_unexp_level >= g_debug_level ) THEN
5167: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
5160: IF (c_get_arc_hist_info%ISOPEN) THEN
5161: CLOSE c_get_arc_hist_info;
5162: END IF;
5163: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5164: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
5165: END IF;
5166: IF ( g_unexp_level >= g_debug_level ) THEN
5167: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
5168: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
5643: END IF;
5644: IF (c_get_arc_hist_info%ISOPEN) THEN
5645: CLOSE c_get_arc_hist_info;
5646: END IF;
5647: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5648: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
5649: END IF;
5650: IF ( g_unexp_level >= g_debug_level ) THEN
5651: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
5644: IF (c_get_arc_hist_info%ISOPEN) THEN
5645: CLOSE c_get_arc_hist_info;
5646: END IF;
5647: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5648: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
5649: END IF;
5650: IF ( g_unexp_level >= g_debug_level ) THEN
5651: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
5652: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
5880: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
5881: IF (c_archive_history%ISOPEN) THEN
5882: CLOSE c_archive_history;
5883: END IF;
5884: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5885: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
5886: END IF;
5887: IF ( g_unexp_level >= g_debug_level ) THEN
5888: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
5881: IF (c_archive_history%ISOPEN) THEN
5882: CLOSE c_archive_history;
5883: END IF;
5884: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5885: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
5886: END IF;
5887: IF ( g_unexp_level >= g_debug_level ) THEN
5888: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
5889: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
6064: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
6065: IF (c_validate_sob_org%ISOPEN) THEN
6066: CLOSE c_validate_sob_org;
6067: END IF;
6068: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6069: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
6070: END IF;
6071: IF ( g_unexp_level >= g_debug_level ) THEN
6072: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
6065: IF (c_validate_sob_org%ISOPEN) THEN
6066: CLOSE c_validate_sob_org;
6067: END IF;
6068: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6069: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
6070: END IF;
6071: IF ( g_unexp_level >= g_debug_level ) THEN
6072: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
6073: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);