108: END IF;
109: -- Initialize message list if p_init_msg_list is set to TRUE.
110: IF FND_API.to_Boolean( p_init_msg_list )
111: THEN
112: FND_MSG_PUB.initialize;
113: END IF;
114: -- Initialize API return status to SUCCESS
115: x_return_status := FND_API.G_RET_STS_SUCCESS;
116:
231: IF FND_API.To_Boolean(p_commit) THEN
232: COMMIT WORK;
233: END IF;
234: -- Standard callto get message count and if count is 1, get message info.
235: FND_MSG_PUB.Count_And_Get
236: ( p_count => x_msg_count,
237: p_data => x_msg_data
238: );
239: EXCEPTION
238: );
239: EXCEPTION
240: WHEN oes_not_found THEN
241: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_OES_NOT_FOUND');
242: FND_MSG_PUB.Add;
243: x_return_status := FND_API.G_RET_STS_ERROR ;
244: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
245: -- database link creation cannot be rolled back, it must be dropped manually
246: WHEN link_not_correct THEN
240: WHEN oes_not_found THEN
241: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_OES_NOT_FOUND');
242: FND_MSG_PUB.Add;
243: x_return_status := FND_API.G_RET_STS_ERROR ;
244: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
245: -- database link creation cannot be rolled back, it must be dropped manually
246: WHEN link_not_correct THEN
247:
248: select count(*) into l_count from all_db_links where upper(owner)=upper(l_schema_owner) and UPPER(db_link) = UPPER(l_glname);
255: DBMS_SQL.CLOSE_CURSOR(l_v_id);
256: end if;
257: -- ROLLBACK TO CREATE_LINK_PVT;
258: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_GLNAME_INVALID');
259: FND_MSG_PUB.Add;
260: x_return_status := FND_API.G_RET_STS_ERROR ;
261: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
262:
263: WHEN db_name_invalid_a THEN
257: -- ROLLBACK TO CREATE_LINK_PVT;
258: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_GLNAME_INVALID');
259: FND_MSG_PUB.Add;
260: x_return_status := FND_API.G_RET_STS_ERROR ;
261: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
262:
263: WHEN db_name_invalid_a THEN
264:
265: select count(*) into l_count from all_db_links where upper(owner)=upper(l_schema_owner) and UPPER(db_link) = UPPER(l_glname);
273: end if;
274:
275: -- ROLLBACK TO CREATE_LINK_PVT;
276: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_GLNAME_INVALID');
277: FND_MSG_PUB.Add;
278: x_return_status := FND_API.G_RET_STS_ERROR ;
279: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
280: WHEN db_name_invalid THEN
281: select count(*) into l_count from all_db_links where upper(owner)=upper(l_schema_owner) and UPPER(db_link) = UPPER(l_glname);
275: -- ROLLBACK TO CREATE_LINK_PVT;
276: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_GLNAME_INVALID');
277: FND_MSG_PUB.Add;
278: x_return_status := FND_API.G_RET_STS_ERROR ;
279: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
280: WHEN db_name_invalid THEN
281: select count(*) into l_count from all_db_links where upper(owner)=upper(l_schema_owner) and UPPER(db_link) = UPPER(l_glname);
282:
283: if l_count <> 0 then
289: end if;
290:
291: -- ROLLBACK TO CREATE_LINK_PVT;
292: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_PSWD_GLNAME_INVALID');
293: FND_MSG_PUB.Add;
294: x_return_status := FND_API.G_RET_STS_ERROR ;
295: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
296: WHEN db_name_invalid_spc THEN
297: select count(*) into l_count from all_db_links where upper(owner)=upper(l_schema_owner) and UPPER(db_link) = UPPER(l_glname);
291: -- ROLLBACK TO CREATE_LINK_PVT;
292: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_PSWD_GLNAME_INVALID');
293: FND_MSG_PUB.Add;
294: x_return_status := FND_API.G_RET_STS_ERROR ;
295: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
296: WHEN db_name_invalid_spc THEN
297: select count(*) into l_count from all_db_links where upper(owner)=upper(l_schema_owner) and UPPER(db_link) = UPPER(l_glname);
298:
299: if l_count <> 0 then
305: end if;
306:
307: -- ROLLBACK TO CREATE_LINK_PVT;
308: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_GLNAME_INVALID');
309: FND_MSG_PUB.Add;
310: x_return_status := FND_API.G_RET_STS_ERROR ;
311: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
312:
313: WHEN glname_invalid THEN
307: -- ROLLBACK TO CREATE_LINK_PVT;
308: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_GLNAME_INVALID');
309: FND_MSG_PUB.Add;
310: x_return_status := FND_API.G_RET_STS_ERROR ;
311: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
312:
313: WHEN glname_invalid THEN
314:
315: select count(*) into l_count from all_db_links where upper(owner)=upper(l_schema_owner) and UPPER(db_link) = UPPER(l_glname);
323: end if;
324:
325: -- ROLLBACK TO CREATE_LINK_PVT;
326: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_GLNAME_INVALID');
327: FND_MSG_PUB.Add;
328: x_return_status := FND_API.G_RET_STS_ERROR ;
329: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
330: WHEN login_denied THEN
331: select count(*) into l_count from all_db_links where upper(owner)=upper(l_schema_owner) and UPPER(db_link) = UPPER(l_glname);
325: -- ROLLBACK TO CREATE_LINK_PVT;
326: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_GLNAME_INVALID');
327: FND_MSG_PUB.Add;
328: x_return_status := FND_API.G_RET_STS_ERROR ;
329: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
330: WHEN login_denied THEN
331: select count(*) into l_count from all_db_links where upper(owner)=upper(l_schema_owner) and UPPER(db_link) = UPPER(l_glname);
332:
333: if l_count <> 0 then
339: end if;
340:
341: -- ROLLBACK TO CREATE_LINK_PVT;
342: FND_MESSAGE.SET_NAME('IEM','IEM_DBLINK_LOGIN_DENIED');
343: FND_MSG_PUB.Add;
344: x_return_status := FND_API.G_RET_STS_ERROR ;
345: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
346:
347: WHEN password_invalid THEN
341: -- ROLLBACK TO CREATE_LINK_PVT;
342: FND_MESSAGE.SET_NAME('IEM','IEM_DBLINK_LOGIN_DENIED');
343: FND_MSG_PUB.Add;
344: x_return_status := FND_API.G_RET_STS_ERROR ;
345: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
346:
347: WHEN password_invalid THEN
348: select count(*) into l_count from all_db_links where upper(owner)=upper(l_schema_owner) and UPPER(db_link) = UPPER(l_glname);
349:
356: end if;
357:
358: -- ROLLBACK TO CREATE_LINK_PVT;
359: FND_MESSAGE.SET_NAME('IEM','IEM_DBLINK_LOGIN_DENIED');
360: FND_MSG_PUB.Add;
361: x_return_status := FND_API.G_RET_STS_ERROR ;
362: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
363:
364: WHEN user_invalid THEN
358: -- ROLLBACK TO CREATE_LINK_PVT;
359: FND_MESSAGE.SET_NAME('IEM','IEM_DBLINK_LOGIN_DENIED');
360: FND_MSG_PUB.Add;
361: x_return_status := FND_API.G_RET_STS_ERROR ;
362: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
363:
364: WHEN user_invalid THEN
365: select count(*) into l_count from all_db_links where upper(owner)=upper(l_schema_owner) and UPPER(db_link) = UPPER(l_glname);
366:
373: end if;
374:
375: -- ROLLBACK TO CREATE_LINK_PVT;
376: FND_MESSAGE.SET_NAME('IEM','IEM_DBLINK_LOGIN_DENIED');
377: FND_MSG_PUB.Add;
378: x_return_status := FND_API.G_RET_STS_ERROR ;
379: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
380:
381: WHEN duplicate_db_link THEN
375: -- ROLLBACK TO CREATE_LINK_PVT;
376: FND_MESSAGE.SET_NAME('IEM','IEM_DBLINK_LOGIN_DENIED');
377: FND_MSG_PUB.Add;
378: x_return_status := FND_API.G_RET_STS_ERROR ;
379: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
380:
381: WHEN duplicate_db_link THEN
382:
383: -- don't drop database link as rollback as this drop the links for the existing link.
382:
383: -- don't drop database link as rollback as this drop the links for the existing link.
384: -- ROLLBACK TO CREATE_LINK_PVT;
385: FND_MESSAGE.SET_NAME('IEM','IEM_DUPLICATE_DB_LINK');
386: FND_MSG_PUB.Add;
387: x_return_status := FND_API.G_RET_STS_ERROR ;
388: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
389:
390: WHEN db_link_exist THEN
384: -- ROLLBACK TO CREATE_LINK_PVT;
385: FND_MESSAGE.SET_NAME('IEM','IEM_DUPLICATE_DB_LINK');
386: FND_MSG_PUB.Add;
387: x_return_status := FND_API.G_RET_STS_ERROR ;
388: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
389:
390: WHEN db_link_exist THEN
391:
392: -- don't drop database link as rollback as this drop the links for the existing link.
391:
392: -- don't drop database link as rollback as this drop the links for the existing link.
393: -- ROLLBACK TO CREATE_LINK_PVT;
394: FND_MESSAGE.SET_NAME('IEM','IEM_DUPLICATE_DB_LINK');
395: FND_MSG_PUB.Add;
396: x_return_status := FND_API.G_RET_STS_ERROR ;
397: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
398:
399: WHEN protocol_invalid THEN
393: -- ROLLBACK TO CREATE_LINK_PVT;
394: FND_MESSAGE.SET_NAME('IEM','IEM_DUPLICATE_DB_LINK');
395: FND_MSG_PUB.Add;
396: x_return_status := FND_API.G_RET_STS_ERROR ;
397: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
398:
399: WHEN protocol_invalid THEN
400: select count(*) into l_count from all_db_links where upper(owner)=upper(l_schema_owner) and UPPER(db_link) = UPPER(l_glname);
401:
408: end if;
409:
410: -- ROLLBACK TO CREATE_LINK_PVT;
411: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_PROTOCOL_NOT_VALID');
412: FND_MSG_PUB.Add;
413: x_return_status := FND_API.G_RET_STS_ERROR ;
414: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
415: WHEN sid_invalid THEN
416: select count(*) into l_count from all_db_links where upper(owner)=upper(l_schema_owner) and UPPER(db_link) = UPPER(l_glname);
410: -- ROLLBACK TO CREATE_LINK_PVT;
411: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_PROTOCOL_NOT_VALID');
412: FND_MSG_PUB.Add;
413: x_return_status := FND_API.G_RET_STS_ERROR ;
414: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
415: WHEN sid_invalid THEN
416: select count(*) into l_count from all_db_links where upper(owner)=upper(l_schema_owner) and UPPER(db_link) = UPPER(l_glname);
417:
418: if l_count <> 0 then
424: end if;
425:
426: -- ROLLBACK TO CREATE_LINK_PVT;
427: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_SID_NOT_VALID');
428: FND_MSG_PUB.Add;
429: x_return_status := FND_API.G_RET_STS_ERROR ;
430: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
431: WHEN tns_no_listener THEN
432: select count(*) into l_count from all_db_links where upper(owner)=upper(l_schema_owner) and UPPER(db_link) = UPPER(l_glname);
426: -- ROLLBACK TO CREATE_LINK_PVT;
427: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_SID_NOT_VALID');
428: FND_MSG_PUB.Add;
429: x_return_status := FND_API.G_RET_STS_ERROR ;
430: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
431: WHEN tns_no_listener THEN
432: select count(*) into l_count from all_db_links where upper(owner)=upper(l_schema_owner) and UPPER(db_link) = UPPER(l_glname);
433:
434: if l_count <> 0 then
440: end if;
441:
442: -- ROLLBACK TO CREATE_LINK_PVT;
443: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_TNS_NO_LISTENER');
444: FND_MSG_PUB.Add;
445: x_return_status := FND_API.G_RET_STS_ERROR ;
446: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
447: WHEN host_invalid THEN
448: select count(*) into l_count from all_db_links where upper(owner)=upper(l_schema_owner) and UPPER(db_link) = UPPER(l_glname);
442: -- ROLLBACK TO CREATE_LINK_PVT;
443: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_TNS_NO_LISTENER');
444: FND_MSG_PUB.Add;
445: x_return_status := FND_API.G_RET_STS_ERROR ;
446: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
447: WHEN host_invalid THEN
448: select count(*) into l_count from all_db_links where upper(owner)=upper(l_schema_owner) and UPPER(db_link) = UPPER(l_glname);
449:
450: if l_count <> 0 then
456: end if;
457:
458: -- ROLLBACK TO CREATE_LINK_PVT;
459: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_HOST_INVALID');
460: FND_MSG_PUB.Add;
461: x_return_status := FND_API.G_RET_STS_ERROR ;
462: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
463:
464: WHEN host_invalid1 THEN
458: -- ROLLBACK TO CREATE_LINK_PVT;
459: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_HOST_INVALID');
460: FND_MSG_PUB.Add;
461: x_return_status := FND_API.G_RET_STS_ERROR ;
462: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
463:
464: WHEN host_invalid1 THEN
465: select count(*) into l_count from all_db_links where upper(owner)=upper(l_schema_owner) and UPPER(db_link) = UPPER(l_glname);
466:
473: end if;
474:
475: -- ROLLBACK TO CREATE_LINK_PVT;
476: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_HOST_INVALID');
477: FND_MSG_PUB.Add;
478: x_return_status := FND_API.G_RET_STS_ERROR ;
479: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
480:
481: WHEN db_conn_desc_invalid THEN
475: -- ROLLBACK TO CREATE_LINK_PVT;
476: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_HOST_INVALID');
477: FND_MSG_PUB.Add;
478: x_return_status := FND_API.G_RET_STS_ERROR ;
479: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
480:
481: WHEN db_conn_desc_invalid THEN
482: select count(*) into l_count from all_db_links where upper(owner)=upper(l_schema_owner) and UPPER(db_link) = UPPER(l_glname);
483:
490: end if;
491:
492: -- ROLLBACK TO CREATE_LINK_PVT;
493: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_DBCONN_DESC_INVALID');
494: FND_MSG_PUB.Add;
495: x_return_status := FND_API.G_RET_STS_ERROR ;
496: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
497:
498: WHEN FND_API.G_EXC_ERROR THEN
492: -- ROLLBACK TO CREATE_LINK_PVT;
493: FND_MESSAGE.SET_NAME('IEM','IEM_SSS_DBCONN_DESC_INVALID');
494: FND_MSG_PUB.Add;
495: x_return_status := FND_API.G_RET_STS_ERROR ;
496: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
497:
498: WHEN FND_API.G_EXC_ERROR THEN
499: select count(*) into l_count from all_db_links where upper(owner)=upper(l_schema_owner) and UPPER(db_link) = UPPER(l_glname);
500:
507: end if;
508:
509: ROLLBACK TO CREATE_LINK_PVT;
510: x_return_status := FND_API.G_RET_STS_ERROR ;
511: FND_MSG_PUB.Count_And_Get
512: ( p_count => x_msg_count,
513: p_data => x_msg_data
514: );
515: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
524: end if;
525:
526: ROLLBACK TO CREATE_LINK_PVT;
527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
528: FND_MSG_PUB.Count_And_Get
529: ( p_count => x_msg_count,
530: p_data => x_msg_data
531: );
532: WHEN OTHERS THEN
546:
547: -- end if;
548: -- ROLLBACK TO CREATE_LINK_PVT;
549: -- FND_MESSAGE.SET_NAME('IEM','IEM_LINK_LOGIN_DENIED');
550: -- FND_MSG_PUB.Add;
551: x_return_status := FND_API.G_RET_STS_ERROR ;
552: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
553: IF FND_MSG_PUB.Check_Msg_Level
554: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
548: -- ROLLBACK TO CREATE_LINK_PVT;
549: -- FND_MESSAGE.SET_NAME('IEM','IEM_LINK_LOGIN_DENIED');
550: -- FND_MSG_PUB.Add;
551: x_return_status := FND_API.G_RET_STS_ERROR ;
552: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
553: IF FND_MSG_PUB.Check_Msg_Level
554: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
555: THEN
556: FND_MSG_PUB.Add_Exc_Msg
549: -- FND_MESSAGE.SET_NAME('IEM','IEM_LINK_LOGIN_DENIED');
550: -- FND_MSG_PUB.Add;
551: x_return_status := FND_API.G_RET_STS_ERROR ;
552: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
553: IF FND_MSG_PUB.Check_Msg_Level
554: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
555: THEN
556: FND_MSG_PUB.Add_Exc_Msg
557: ( G_PKG_NAME,
550: -- FND_MSG_PUB.Add;
551: x_return_status := FND_API.G_RET_STS_ERROR ;
552: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
553: IF FND_MSG_PUB.Check_Msg_Level
554: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
555: THEN
556: FND_MSG_PUB.Add_Exc_Msg
557: ( G_PKG_NAME,
558: l_api_name
552: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
553: IF FND_MSG_PUB.Check_Msg_Level
554: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
555: THEN
556: FND_MSG_PUB.Add_Exc_Msg
557: ( G_PKG_NAME,
558: l_api_name
559: );
560: END IF;
557: ( G_PKG_NAME,
558: l_api_name
559: );
560: END IF;
561: FND_MSG_PUB.Count_And_Get
562: ( p_count => x_msg_count,
563: p_data => x_msg_data
564: );
565:
621: END IF;
622: -- Initialize message list if p_init_msg_list is set to TRUE.
623: IF FND_API.to_Boolean( p_init_msg_list )
624: THEN
625: FND_MSG_PUB.initialize;
626: END IF;
627: -- Initialize API return status to SUCCESS
628: x_return_status := FND_API.G_RET_STS_SUCCESS;
629:
660: IF FND_API.To_Boolean(p_commit) THEN
661: COMMIT WORK;
662: END IF;
663: -- Standard callto get message count and if count is 1, get message info.
664: FND_MSG_PUB.Count_And_Get
665: ( p_count => x_msg_count,
666: p_data => x_msg_data
667: );
668: EXCEPTION
684: --end bugfix1944746---------------------
685: WHEN FND_API.G_EXC_ERROR THEN
686: ROLLBACK TO delete_link_pvt;
687: x_return_status := FND_API.G_RET_STS_ERROR ;
688: FND_MSG_PUB.Count_And_Get
689: ( p_count => x_msg_count,
690: p_data => x_msg_data
691: );
692: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
691: );
692: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
693: ROLLBACK TO delete_link_pvt;
694: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
695: FND_MSG_PUB.Count_And_Get
696: ( p_count => x_msg_count,
697: p_data => x_msg_data
698: );
699: WHEN OTHERS THEN
697: p_data => x_msg_data
698: );
699: WHEN OTHERS THEN
700: FND_MESSAGE.SET_NAME('IEM','IEM_LINK_DOES_NOT_EXIST');
701: FND_MSG_PUB.Add;
702: x_return_status := FND_API.G_RET_STS_ERROR ;
703: --FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
704: --ROLLBACK TO delete_link_pvt;
705: --x_return_status := FND_API.G_RET_STS_ERROR;
699: WHEN OTHERS THEN
700: FND_MESSAGE.SET_NAME('IEM','IEM_LINK_DOES_NOT_EXIST');
701: FND_MSG_PUB.Add;
702: x_return_status := FND_API.G_RET_STS_ERROR ;
703: --FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
704: --ROLLBACK TO delete_link_pvt;
705: --x_return_status := FND_API.G_RET_STS_ERROR;
706: IF FND_MSG_PUB.Check_Msg_Level
707: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
702: x_return_status := FND_API.G_RET_STS_ERROR ;
703: --FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
704: --ROLLBACK TO delete_link_pvt;
705: --x_return_status := FND_API.G_RET_STS_ERROR;
706: IF FND_MSG_PUB.Check_Msg_Level
707: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
708: THEN
709: FND_MSG_PUB.Add_Exc_Msg
710: ( G_PKG_NAME ,
703: --FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
704: --ROLLBACK TO delete_link_pvt;
705: --x_return_status := FND_API.G_RET_STS_ERROR;
706: IF FND_MSG_PUB.Check_Msg_Level
707: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
708: THEN
709: FND_MSG_PUB.Add_Exc_Msg
710: ( G_PKG_NAME ,
711: l_api_name
705: --x_return_status := FND_API.G_RET_STS_ERROR;
706: IF FND_MSG_PUB.Check_Msg_Level
707: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
708: THEN
709: FND_MSG_PUB.Add_Exc_Msg
710: ( G_PKG_NAME ,
711: l_api_name
712: );
713: END IF;
710: ( G_PKG_NAME ,
711: l_api_name
712: );
713: END IF;
714: FND_MSG_PUB.Count_And_Get
715: ( p_count => x_msg_count ,
716: p_data => x_msg_data
717: );
718: