[Home] [Help]
779:
780: cursor c4(p_system_guid raw)
781: is select f.Tns_Alias_Description_Guid,
782: e.alias_name,d.tns_alias_set_name
783: from fnd_system_server_map a, fnd_app_servers b,
784: fnd_tns_alias_set_usage c,fnd_tns_alias_sets d,
785: fnd_tns_aliases e, fnd_tns_alias_descriptions f
786: where a.System_GUID = p_System_Guid
787: and a.Server_GUID = b.Server_GUID
913: );
914:
915: select a.Server_Guid
916: into l_Server_Guid
917: from fnd_app_servers a
918: where a.name = ServerName;
919:
920: -- Register the Server Map
921:
1213: -- Nothing to do if already assigned to another db set.
1214:
1215: select count(*)
1216: into l_db_alias_exists
1217: from fnd_system_server_map a, fnd_app_servers b,
1218: fnd_tns_alias_set_usage c,fnd_tns_alias_sets d,
1219: fnd_tns_aliases e
1220: where a.System_GUID = l_System_Guid
1221: and a.Server_GUID = b.Server_GUID
1374: cursor c1(p_System_Guid raw) is
1375: select b.db_guid,b.default_tns_alias_guid instance_tns_alias_guid,
1376: a.default_tns_alias_guid db_tns_alias_guid,b.instance_guid
1377: from fnd_databases a,fnd_database_instances b,
1378: fnd_system_server_map c, fnd_app_servers d
1379: where c.system_guid = p_System_Guid
1380: and d.server_guid = c.server_guid
1381: and d.server_type = fnd_app_system.C_DB_SERVER_TYPE
1382: and b.server_guid = d.server_guid
1406:
1407: cursor c5(p_System_Guid raw,p_alias_name varchar2,p_alias_type varchar2) is
1408: select e.Tns_Alias_Guid,e.Alias_Type
1409: from fnd_system_server_map a,fnd_tns_alias_set_usage b,
1410: fnd_tns_alias_sets c, fnd_app_servers d,
1411: fnd_tns_aliases e
1412: where a.system_guid = p_System_Guid
1413: and a.server_guid = b.server_guid
1414: and b.tns_alias_set_guid = c.tns_alias_set_guid
1699: where b.default_tns_alias_guid = c.tns_alias_guid
1700: and b.db_guid = a.db_guid
1701: and a.Default_TNS_Alias_GUID = d.tns_alias_guid
1702: and b.server_guid in ( select x.server_guid
1703: from fnd_system_server_map x, fnd_app_servers y
1704: where x.system_guid = p_System_Guid
1705: and y.server_guid = x.server_guid
1706: and y.server_type =
1707: fnd_app_system.C_DB_SERVER_TYPE
1816: );
1817:
1818: select a.Server_Guid
1819: into l_Server_Guid
1820: from fnd_app_servers a
1821: where a.name = ServerName;
1822:
1823: -- Register the Server Map
1824:
2452:
2453: cursor c2(p_System_Guid raw)
2454: is select a.Server_GUID,a.name,a.Node_Id,a.Internal,a.Appl_Top_Guid,
2455: a.Server_type,a.Pri_Oracle_Home,a.Aux_Oracle_Home
2456: from fnd_app_servers a, fnd_system_server_map b
2457: where b.System_Guid = p_System_Guid
2458: and a.Server_GUID = b.Server_GUID
2459: order by a.node_id,a.Internal,a.Server_type,a.name;
2460:
2634: for update of a.System_Guid;
2635:
2636: cursor c2(p_System_GUID raw, p_ServerName varchar2) is
2637: select a.Server_GUID,b.PRI_ORACLE_HOME,c.listener_guid
2638: from fnd_system_server_map a, fnd_app_servers b,
2639: fnd_tns_listeners c
2640: where a.System_GUID = p_System_GUID
2641: and a.Server_GUID = b.Server_GUID
2642: and b.name = p_ServerName
2665:
2666: delete from fnd_oracle_homes a
2667: where a.oracle_home_id = f_server.pri_oracle_home
2668: and not exists ( select b.name
2669: from fnd_app_servers b
2670: where ( b.pri_oracle_home
2671: = f_server.pri_oracle_home
2672: or b.aux_oracle_home
2673: = f_server.pri_oracle_home
2784:
2785: cursor c2(p_System_GUID raw, p_ServerName varchar2) is
2786: select a.Server_GUID,b.PRI_ORACLE_HOME,c.listener_guid,
2787: b.APPL_TOP_GUID,b.AUX_ORACLE_HOME
2788: from fnd_system_server_map a, fnd_app_servers b,
2789: fnd_tns_listeners c
2790: where a.System_GUID = p_System_GUID
2791: and a.Server_GUID = b.Server_GUID
2792: and b.name = p_ServerName
2801:
2802: delete from fnd_oracle_homes a
2803: where a.oracle_home_id = f_server.pri_oracle_home
2804: and not exists ( select b.name
2805: from fnd_app_servers b
2806: where ( b.pri_oracle_home
2807: = f_server.pri_oracle_home
2808: or b.aux_oracle_home
2809: = f_server.pri_oracle_home
2815: then
2816: delete from fnd_oracle_homes a
2817: where a.oracle_home_id = f_server.aux_oracle_home
2818: and not exists ( select b.name
2819: from fnd_app_servers b
2820: where ( b.pri_oracle_home
2821: = f_server.aux_oracle_home
2822: or b.aux_oracle_home
2823: = f_server.aux_oracle_home
2831: then
2832: delete from fnd_appl_tops a
2833: where a.appl_top_guid = f_server.appl_top_guid
2834: and not exists ( select b.name
2835: from fnd_app_servers b
2836: where b.appl_top_guid = f_server.appl_top_guid
2837: and b.server_guid <> f_server.server_guid
2838: );
2839: end if;
2912: for update of a.System_Guid;
2913:
2914: cursor c2(p_System_GUID raw, p_ServerName varchar2) is
2915: select a.Server_GUID,b.Server_type
2916: from fnd_system_server_map a, fnd_app_servers b
2917: where a.System_GUID = p_System_GUID
2918: and a.Server_GUID = b.Server_GUID
2919: and b.name = p_ServerName;
2920:
2997: delete from fnd_system_server_map a
2998: where a.System_GUID = f_system.System_Guid
2999: and a.Server_GUID = f_server.Server_GUID;
3000:
3001: delete from fnd_app_servers a
3002: where a.Server_GUID = f_server.Server_GUID;
3003:
3004: end loop;
3005:
3021: for update of a.System_Guid;
3022:
3023: cursor c2(p_System_GUID raw) is
3024: select a.Server_GUID,b.name
3025: from fnd_system_server_map a, fnd_app_servers b
3026: where a.System_GUID = p_System_GUID
3027: and a.Server_GUID = b.Server_GUID;
3028: begin
3029: