DBA Data[Home] [Help]

APPS.IEM_DBLINK_PVT dependencies on FND_API

Line 35: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,

31: -- **********************************************************
32:
33:
34: PROCEDURE create_link (p_api_version_number IN NUMBER,
35: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
36: p_commit IN VARCHAR2 := FND_API.G_FALSE,
37: p_db_server_id IN NUMBER,
38: p_db_glname IN VARCHAR2,
39: p_db_username IN VARCHAR2,

Line 36: p_commit IN VARCHAR2 := FND_API.G_FALSE,

32:
33:
34: PROCEDURE create_link (p_api_version_number IN NUMBER,
35: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
36: p_commit IN VARCHAR2 := FND_API.G_FALSE,
37: p_db_server_id IN NUMBER,
38: p_db_glname IN VARCHAR2,
39: p_db_username IN VARCHAR2,
40: p_db_password IN VARCHAR2,

Line 102: IF NOT FND_API.Compatible_API_Call (l_api_version_number,

98: BEGIN
99: -- Standard Start of API savepoint
100: -- SAVEPOINT CREATE_LINK_PVT;
101: -- Standard call to check for call compatibility.
102: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
103: p_api_version_number,
104: l_api_name,
105: G_PKG_NAME)
106: THEN

Line 107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

103: p_api_version_number,
104: l_api_name,
105: G_PKG_NAME)
106: THEN
107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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

Line 110: IF FND_API.to_Boolean( p_init_msg_list )

106: THEN
107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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

Line 115: x_return_status := FND_API.G_RET_STS_SUCCESS;

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:
117: IF (p_db_server_id = 0 or p_db_server_id = NULL) THEN
118: raise oes_not_found;
119: END IF;

Line 231: IF FND_API.To_Boolean(p_commit) THEN

227: x_msg_data => x_msg_data);
228: end if;
229:
230: -- Standard Check Of p_commit.
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

Line 243: x_return_status := FND_API.G_RET_STS_ERROR ;

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
247:

Line 260: x_return_status := FND_API.G_RET_STS_ERROR ;

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
264:

Line 278: x_return_status := FND_API.G_RET_STS_ERROR ;

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);
282:

Line 294: x_return_status := FND_API.G_RET_STS_ERROR ;

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);
298:

Line 310: x_return_status := FND_API.G_RET_STS_ERROR ;

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
314:

Line 328: x_return_status := FND_API.G_RET_STS_ERROR ;

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);
332:

Line 344: x_return_status := FND_API.G_RET_STS_ERROR ;

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
348: select count(*) into l_count from all_db_links where upper(owner)=upper(l_schema_owner) and UPPER(db_link) = UPPER(l_glname);

Line 361: x_return_status := FND_API.G_RET_STS_ERROR ;

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
365: select count(*) into l_count from all_db_links where upper(owner)=upper(l_schema_owner) and UPPER(db_link) = UPPER(l_glname);

Line 378: x_return_status := FND_API.G_RET_STS_ERROR ;

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
382:

Line 387: x_return_status := FND_API.G_RET_STS_ERROR ;

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
391:

Line 396: x_return_status := FND_API.G_RET_STS_ERROR ;

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
400: select count(*) into l_count from all_db_links where upper(owner)=upper(l_schema_owner) and UPPER(db_link) = UPPER(l_glname);

Line 413: x_return_status := FND_API.G_RET_STS_ERROR ;

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);
417:

Line 429: x_return_status := FND_API.G_RET_STS_ERROR ;

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);
433:

Line 445: x_return_status := FND_API.G_RET_STS_ERROR ;

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);
449:

Line 461: x_return_status := FND_API.G_RET_STS_ERROR ;

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
465: select count(*) into l_count from all_db_links where upper(owner)=upper(l_schema_owner) and UPPER(db_link) = UPPER(l_glname);

Line 478: x_return_status := FND_API.G_RET_STS_ERROR ;

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
482: select count(*) into l_count from all_db_links where upper(owner)=upper(l_schema_owner) and UPPER(db_link) = UPPER(l_glname);

Line 495: x_return_status := FND_API.G_RET_STS_ERROR ;

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
499: select count(*) into l_count from all_db_links where upper(owner)=upper(l_schema_owner) and UPPER(db_link) = UPPER(l_glname);

Line 498: WHEN FND_API.G_EXC_ERROR THEN

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:
501: if l_count <> 0 then
502: l_v_id := DBMS_SQL.OPEN_CURSOR;

Line 510: x_return_status := FND_API.G_RET_STS_ERROR ;

506: DBMS_SQL.CLOSE_CURSOR(l_v_id);
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: );

Line 515: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

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
516: select count(*) into l_count from all_db_links where upper(owner)=upper(l_schema_owner) and UPPER(db_link) = UPPER(l_glname);
517:
518: if l_count <> 0 then
519: l_v_id := DBMS_SQL.OPEN_CURSOR;

Line 527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

523: DBMS_SQL.CLOSE_CURSOR(l_v_id);
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: );

Line 551: x_return_status := FND_API.G_RET_STS_ERROR ;

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)
555: THEN

Line 615: IF NOT FND_API.Compatible_API_Call (l_api_version_number,

611: BEGIN
612: -- Standard Start of API savepoint
613: --SAVEPOINT delete_link_pvt;
614: -- Standard call to check for call compatibility.
615: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
616: p_api_version_number,
617: l_api_name,
618: G_PKG_NAME)
619: THEN

Line 620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

616: p_api_version_number,
617: l_api_name,
618: G_PKG_NAME)
619: THEN
620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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

Line 623: IF FND_API.to_Boolean( p_init_msg_list )

619: THEN
620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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

Line 628: x_return_status := FND_API.G_RET_STS_SUCCESS;

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:
630: -- Standard Start of API savepoint
631: -- SAVEPOINT delete_link_pvt;
632:

Line 660: IF FND_API.To_Boolean(p_commit) THEN

656: x_return_status => x_return_status,
657: x_msg_data => x_msg_data);
658:
659: -- Standard Check Of p_commit.
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

Line 681: IF FND_API.To_Boolean(p_commit) THEN

677: x_return_status => x_return_status,
678: x_msg_data => x_msg_data);
679:
680: -- Standard Check Of p_commit.
681: IF FND_API.To_Boolean(p_commit) THEN
682: COMMIT WORK;
683: END IF;
684: --end bugfix1944746---------------------
685: WHEN FND_API.G_EXC_ERROR THEN

Line 685: WHEN FND_API.G_EXC_ERROR THEN

681: IF FND_API.To_Boolean(p_commit) THEN
682: COMMIT WORK;
683: END IF;
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,

Line 687: x_return_status := FND_API.G_RET_STS_ERROR ;

683: END IF;
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: );

Line 692: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

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
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,

Line 694: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

690: p_data => x_msg_data
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: );

Line 702: x_return_status := FND_API.G_RET_STS_ERROR ;

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;
706: IF FND_MSG_PUB.Check_Msg_Level

Line 705: --x_return_status := FND_API.G_RET_STS_ERROR;

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)
708: THEN
709: FND_MSG_PUB.Add_Exc_Msg