[Home] [Help]
777:
778: cursor c4(p_system_guid raw)
779: is select f.Tns_Alias_Description_Guid,
780: e.alias_name,d.tns_alias_set_name
781: from fnd_system_server_map a, fnd_app_servers b,
782: fnd_tns_alias_set_usage c,fnd_tns_alias_sets d,
783: fnd_tns_aliases e, fnd_tns_alias_descriptions f
784: where a.System_GUID = p_System_Guid
785: and a.Server_GUID = b.Server_GUID
911: );
912:
913: select a.Server_Guid
914: into l_Server_Guid
915: from fnd_app_servers a
916: where a.name = ServerName;
917:
918: -- Register the Server Map
919:
1211: -- Nothing to do if already assigned to another db set.
1212:
1213: select count(*)
1214: into l_db_alias_exists
1215: from fnd_system_server_map a, fnd_app_servers b,
1216: fnd_tns_alias_set_usage c,fnd_tns_alias_sets d,
1217: fnd_tns_aliases e
1218: where a.System_GUID = l_System_Guid
1219: and a.Server_GUID = b.Server_GUID
1372: cursor c1(p_System_Guid raw) is
1373: select b.db_guid,b.default_tns_alias_guid instance_tns_alias_guid,
1374: a.default_tns_alias_guid db_tns_alias_guid,b.instance_guid
1375: from fnd_databases a,fnd_database_instances b,
1376: fnd_system_server_map c, fnd_app_servers d
1377: where c.system_guid = p_System_Guid
1378: and d.server_guid = c.server_guid
1379: and d.server_type = fnd_app_system.C_DB_SERVER_TYPE
1380: and b.server_guid = d.server_guid
1404:
1405: cursor c5(p_System_Guid raw,p_alias_name varchar2,p_alias_type varchar2) is
1406: select e.Tns_Alias_Guid,e.Alias_Type
1407: from fnd_system_server_map a,fnd_tns_alias_set_usage b,
1408: fnd_tns_alias_sets c, fnd_app_servers d,
1409: fnd_tns_aliases e
1410: where a.system_guid = p_System_Guid
1411: and a.server_guid = b.server_guid
1412: and b.tns_alias_set_guid = c.tns_alias_set_guid
1697: where b.default_tns_alias_guid = c.tns_alias_guid
1698: and b.db_guid = a.db_guid
1699: and a.Default_TNS_Alias_GUID = d.tns_alias_guid
1700: and b.server_guid in ( select x.server_guid
1701: from fnd_system_server_map x, fnd_app_servers y
1702: where x.system_guid = p_System_Guid
1703: and y.server_guid = x.server_guid
1704: and y.server_type =
1705: fnd_app_system.C_DB_SERVER_TYPE
1814: );
1815:
1816: select a.Server_Guid
1817: into l_Server_Guid
1818: from fnd_app_servers a
1819: where a.name = ServerName;
1820:
1821: -- Register the Server Map
1822:
2450:
2451: cursor c2(p_System_Guid raw)
2452: is select a.Server_GUID,a.name,a.Node_Id,a.Internal,a.Appl_Top_Guid,
2453: a.Server_type,a.Pri_Oracle_Home,a.Aux_Oracle_Home
2454: from fnd_app_servers a, fnd_system_server_map b
2455: where b.System_Guid = p_System_Guid
2456: and a.Server_GUID = b.Server_GUID
2457: order by a.node_id,a.Internal,a.Server_type,a.name;
2458:
2632: for update of a.System_Guid;
2633:
2634: cursor c2(p_System_GUID raw, p_ServerName varchar2) is
2635: select a.Server_GUID,b.PRI_ORACLE_HOME,c.listener_guid
2636: from fnd_system_server_map a, fnd_app_servers b,
2637: fnd_tns_listeners c
2638: where a.System_GUID = p_System_GUID
2639: and a.Server_GUID = b.Server_GUID
2640: and b.name = p_ServerName
2663:
2664: delete from fnd_oracle_homes a
2665: where a.oracle_home_id = f_server.pri_oracle_home
2666: and not exists ( select b.name
2667: from fnd_app_servers b
2668: where ( b.pri_oracle_home
2669: = f_server.pri_oracle_home
2670: or b.aux_oracle_home
2671: = f_server.pri_oracle_home
2782:
2783: cursor c2(p_System_GUID raw, p_ServerName varchar2) is
2784: select a.Server_GUID,b.PRI_ORACLE_HOME,c.listener_guid,
2785: b.APPL_TOP_GUID,b.AUX_ORACLE_HOME
2786: from fnd_system_server_map a, fnd_app_servers b,
2787: fnd_tns_listeners c
2788: where a.System_GUID = p_System_GUID
2789: and a.Server_GUID = b.Server_GUID
2790: and b.name = p_ServerName
2799:
2800: delete from fnd_oracle_homes a
2801: where a.oracle_home_id = f_server.pri_oracle_home
2802: and not exists ( select b.name
2803: from fnd_app_servers b
2804: where ( b.pri_oracle_home
2805: = f_server.pri_oracle_home
2806: or b.aux_oracle_home
2807: = f_server.pri_oracle_home
2813: then
2814: delete from fnd_oracle_homes a
2815: where a.oracle_home_id = f_server.aux_oracle_home
2816: and not exists ( select b.name
2817: from fnd_app_servers b
2818: where ( b.pri_oracle_home
2819: = f_server.aux_oracle_home
2820: or b.aux_oracle_home
2821: = f_server.aux_oracle_home
2829: then
2830: delete from fnd_appl_tops a
2831: where a.appl_top_guid = f_server.appl_top_guid
2832: and not exists ( select b.name
2833: from fnd_app_servers b
2834: where b.appl_top_guid = f_server.appl_top_guid
2835: and b.server_guid <> f_server.server_guid
2836: );
2837: end if;
2910: for update of a.System_Guid;
2911:
2912: cursor c2(p_System_GUID raw, p_ServerName varchar2) is
2913: select a.Server_GUID,b.Server_type
2914: from fnd_system_server_map a, fnd_app_servers b
2915: where a.System_GUID = p_System_GUID
2916: and a.Server_GUID = b.Server_GUID
2917: and b.name = p_ServerName;
2918:
2995: delete from fnd_system_server_map a
2996: where a.System_GUID = f_system.System_Guid
2997: and a.Server_GUID = f_server.Server_GUID;
2998:
2999: delete from fnd_app_servers a
3000: where a.Server_GUID = f_server.Server_GUID;
3001:
3002: end loop;
3003:
3019: for update of a.System_Guid;
3020:
3021: cursor c2(p_System_GUID raw) is
3022: select a.Server_GUID,b.name
3023: from fnd_system_server_map a, fnd_app_servers b
3024: where a.System_GUID = p_System_GUID
3025: and a.Server_GUID = b.Server_GUID;
3026: begin
3027: