[Home] [Help]
29: errOra3 VARCHAR2(4000);
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;
57: errStr := '';
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 || ', ';
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);
99: END;
100: end if; -- (l_link_count = 0)
101: end if; -- (l_count = 0)
102:
103: select count(*) into l_count from iem_db_connections where db_server_id=l_db_server_tbl(i) and is_admin='P';
104:
105: if (l_count = 0) then
106: JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
107: statusStr := 'FAILURE';
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);