APPS.IEM_DIAG_DATABASE_LINK_PVT dependencies on IEM_DB_SERVERS

Line 34: l_db_name iem_db_servers.db_name%type;

30: fixInfo VARCHAR2(4000);
31: isFatal VARCHAR2(50);
32: dummy_num NUMBER;
33: l_db_link iem_db_connections.db_link%type;
34: l_db_name iem_db_servers.db_name%type;
35: l_db_server_tbl jtf_varchar2_Table_100:=jtf_varchar2_Table_100();
36: l_count number;
37: l_link_count number;
38: l_search_dblink VARCHAR2(129);

Line 55: select db_server_id bulk collect into l_db_server_tbl from iem_db_servers;

51: JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
52:
53: select oracle_username into l_schema_owner from fnd_oracle_userid where read_only_flag = 'U';
54:
55: select db_server_id bulk collect into l_db_server_tbl from iem_db_servers;
56:
57: errStr := '';
58: fixInfo := '';
59:

Line 62: select db_name into l_db_name from iem_db_servers where db_server_id=l_db_server_tbl(i);

58: fixInfo := '';
59:
60: FOR i IN l_db_server_tbl.FIRST..l_db_server_tbl.LAST LOOP
61: select count(*) into l_count from iem_db_connections where db_server_id=l_db_server_tbl(i) and is_admin='A';
62: select db_name into l_db_name from iem_db_servers where db_server_id=l_db_server_tbl(i);
63:
64: if (l_count = 0) then
65: statusStr := 'FAILURE';
66: errOO1 := errOO1 || l_db_name || ', ';

Line 70: select a.db_link into l_db_link from iem_db_connections a, iem_db_servers b where a.db_server_id=b.db_server_id and a.is_admin='A' and a.db_server_id=l_db_server_tbl(i);

66: errOO1 := errOO1 || l_db_name || ', ';
67: fixInfo := FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_HELP');
68: isFatal := 'TRUE';
69: else
70: select a.db_link into l_db_link from iem_db_connections a, iem_db_servers b where a.db_server_id=b.db_server_id and a.is_admin='A' and a.db_server_id=l_db_server_tbl(i);
71:
72: l_search_dblink := l_db_link || '%';
73:
74: select count(*)into l_link_count from all_db_links where upper(owner)=upper(l_schema_owner) and db_link like UPPER(l_search_dblink);

Line 112: select a.db_link into l_db_link from iem_db_connections a, iem_db_servers b where a.db_server_id=b.db_server_id and a.is_admin='P' and a.db_server_id=l_db_server_tbl(i);

108: errOra1 := errOra1 || l_db_name || ', ';
109: fixInfo := FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_HELP');
110: isFatal := 'TRUE';
111: else
112: select a.db_link into l_db_link from iem_db_connections a, iem_db_servers b where a.db_server_id=b.db_server_id and a.is_admin='P' and a.db_server_id=l_db_server_tbl(i);
113:
114: l_search_dblink := l_db_link || '%';
115:
116: select count(*)into l_link_count from all_db_links where upper(owner)=upper(l_schema_owner) and db_link like UPPER(l_search_dblink);