The following lines contain the word 'select', 'insert', 'update' or 'delete':
l_insert boolean := false;
select a.System_Guid
into l_rec.System_Guid
from fnd_apps_system a
where a.name = l_rec.Name;
l_insert := true;
if ( l_insert )
then
insert into fnd_apps_system
(name,Version,Owner,CSI_Number,System_GUID,Source_System_Guid,
last_updated_by,last_update_date,last_update_login,
creation_date,created_by
)
values ( l_rec.Name,'1',l_rec.owner,l_rec.CSI_NUMBER,sys_guid(),
sys_guid(),
1,sysdate,0,sysdate,1 );
update fnd_apps_system a
set a.name = nvl(l_rec.Name,a.name),
a.owner= nvl(l_rec.Owner,a.owner),
a.csi_number=nvl(l_rec.CSI_NUMBER,a.csi_number),
a.last_update_date = SYSDATE,
a.last_updated_by = 1
where a.System_Guid = l_rec.System_Guid;
l_insert boolean := false;
select a.Oracle_Home_Id
into l_rec.Oracle_Home_Id
from fnd_oracle_homes a
where a.node_id = l_rec.Node_Id
and a.path = l_rec.Path;
l_insert := true;
if ( l_insert )
then
insert into fnd_oracle_homes
(Oracle_Home_Id,name,Node_Id,Path,Version,
Description,File_System_GUID,
last_updated_by,last_update_date,last_update_login,
creation_date,created_by,created
)
values ( sys_guid(),l_rec.name,l_rec.Node_Id,l_rec.Path,
l_rec.Version,
l_rec.Description,nvl(l_rec.File_System_GUID,sys_guid()),
1,sysdate,0,sysdate,1,sysdate );
update fnd_oracle_homes a
set a.name = nvl(l_rec.Name,a.name),
a.node_id = nvl(l_rec.Node_Id,a.Node_Id),
a.path = nvl(l_rec.Path,a.path),
a.version = nvl(l_rec.Version,a.version),
a.Description = nvl(l_rec.Description,a.Description),
a.File_System_GUID = nvl(l_rec.File_System_GUID,a.File_System_GUID),
a.last_update_date = SYSDATE,
a.last_updated_by = 1
where a.Oracle_Home_Id = l_rec.Oracle_Home_Id;
l_insert boolean := false;
select a.appl_top_guid
into l_rec.Appl_Top_Guid
from fnd_appl_tops a
where a.node_id = l_rec.Node_Id
and a.path = l_rec.Path;
l_insert := true;
if ( l_insert )
then
insert into fnd_appl_tops
(appl_top_guid,name,Node_Id,Path,Shared,File_System_GUID,
last_updated_by,last_update_date,last_update_login,
creation_date,created_by
)
values ( sys_guid(),l_rec.name,l_rec.Node_Id,l_rec.Path,
l_rec.Shared,nvl(l_rec.File_System_GUID,sys_guid()),
1,sysdate,0,sysdate,1 );
update fnd_appl_tops a
set a.name = nvl(l_rec.Name,a.name),
a.node_id = nvl(l_rec.Node_Id,a.Node_Id),
a.path = nvl(l_rec.Path,a.path),
a.shared = nvl(l_rec.shared,a.shared),
a.File_System_GUID = nvl(l_rec.File_System_GUID,a.File_System_GUID),
a.last_update_date = SYSDATE,
a.last_updated_by = 1
where a.appl_top_guid = l_rec.Appl_Top_Guid;
l_insert boolean := false;
select a.Server_GUID
into l_rec.Server_GUID
from fnd_app_servers a
where a.name = l_rec.name;
l_insert := true;
if ( l_insert )
then
insert into fnd_app_servers
(Server_GUID,name,Node_Id,Internal,Appl_Top_Guid,
Server_type,Pri_Oracle_Home,Aux_Oracle_Home,
last_updated_by,last_update_date,last_update_login,
creation_date,created_by
)
values ( sys_guid(),l_rec.name,l_rec.Node_Id,l_rec.internal,
l_rec.Appl_Top_Guid,l_rec.Server_type,
nvl(l_rec.Pri_Oracle_Home,sys_guid()),
l_rec.Aux_Oracle_Home,
1,sysdate,0,sysdate,1 );
update fnd_app_servers a
set a.name = nvl(l_rec.Name,a.name),
a.node_id = nvl(l_rec.Node_Id,a.Node_Id),
a.internal = nvl(l_rec.internal,a.internal),
a.Appl_Top_Guid = nvl(l_rec.Appl_Top_Guid,a.Appl_Top_Guid),
a.Server_type = nvl(l_rec.Server_type,a.Server_type),
a.Pri_Oracle_Home = nvl(l_rec.Pri_Oracle_Home,a.Pri_Oracle_Home),
a.Aux_Oracle_Home = nvl(l_rec.Aux_Oracle_Home,a.Aux_Oracle_Home),
a.last_update_date = SYSDATE,
a.last_updated_by = 1
where a.Server_GUID = l_rec.Server_GUID;
l_insert boolean := false;
select a.Server_GUID,a.System_Guid
into l_rec.Server_GUID,l_rec.System_Guid
from fnd_system_server_map a
where a.Server_GUID = l_rec.Server_GUID
and a.System_Guid = l_rec.System_Guid;
l_insert := true;
if ( l_insert )
then
insert into fnd_system_server_map
(Server_GUID,System_Guid,
last_updated_by,last_update_date,last_update_login,
creation_date,created_by
)
values ( l_rec.Server_GUID,l_rec.System_Guid,1,sysdate,0,sysdate,1 );
update fnd_system_server_map a
set a.Server_GUID = nvl(l_rec.Server_GUID,a.Server_GUID),
a.System_Guid = nvl(l_rec.System_Guid,a.System_Guid),
a.last_update_date = SYSDATE,
a.last_updated_by = 1
where a.Server_GUID = l_rec.Server_GUID
and a.System_Guid = l_rec.System_Guid;
l_insert boolean := false;
select a.db_guid
into l_rec.db_guid
from fnd_databases a
where a.db_name = l_rec.db_name
and a.db_domain= l_rec.db_domain;
l_insert := true;
if ( l_insert )
then
insert into fnd_databases
(db_guid,DB_Name,DB_Domain,Default_TNS_Alias_Guid,Is_Rac_db,
Version,
last_updated_by,last_update_date,last_update_login,
creation_date,created_by
)
values ( sys_guid(),l_rec.db_name,l_rec.db_domain,
nvl(l_rec.Default_TNS_Alias_Guid,sys_guid()),
l_rec.Is_Rac_db,l_rec.Version,
1,sysdate,0,sysdate,1 );
update fnd_databases a
set a.db_name = nvl(l_rec.db_Name,a.db_name),
a.db_domain =nvl(l_rec.db_domain,a.db_domain),
a.Default_TNS_Alias_Guid =
nvl(l_rec.Default_TNS_Alias_Guid,a.Default_TNS_Alias_Guid),
a.Is_Rac_db = nvl(l_rec.Is_Rac_db,a.Is_Rac_db),
a.version = nvl(l_rec.Version,a.version),
a.last_update_date = SYSDATE,
a.last_updated_by = 1
where a.db_guid = l_rec.db_guid;
l_insert boolean := false;
select a.db_guid
into l_rec.db_guid
from fnd_databases a
where a.db_name = l_db_name
and a.db_domain = l_db_domain;
select a.db_guid
into l_rec.db_guid
from fnd_database_assignments a
where a.db_guid = l_rec.db_guid
and a.assignment = l_rec.assignment;
l_insert := true;
if ( l_insert )
then
insert into fnd_database_assignments
(db_guid,assignment,
last_updated_by,last_update_date,last_update_login,
creation_date,created_by
)
values ( l_rec.db_guid,l_rec.assignment,
1,sysdate,0,sysdate,1 );
update fnd_database_assignments a
set a.assignment = nvl(l_rec.assignment,a.assignment),
a.last_update_date = SYSDATE,
a.last_updated_by = 1
where a.db_guid = l_rec.db_guid
and a.assignment = l_rec.assignment;
l_insert boolean := false;
select a.db_guid
into l_rec.db_guid
from fnd_databases a
where a.db_name = l_db_name
and a.db_domain = l_db_domain;
select a.db_guid,a.Instance_Guid
into l_rec.db_guid,l_rec.Instance_Guid
from fnd_database_Instances a
where a.db_guid = l_rec.db_guid
and a.Instance_Name = l_rec.Instance_Name;
l_insert := true;
if ( l_insert )
then
insert into fnd_database_instances
(db_guid,Instance_Guid,Instance_Name,Instance_Number,Sid_GUID,
Sid,
Default_TNS_Alias_GUID,Server_GUID,Local_Listener_Alias,
Remote_Listener_Alias,Configuration,Description,
Interconnect_name,
last_updated_by,last_update_date,last_update_login,
creation_date,created_by
)
values (
l_rec.db_guid,sys_guid(),l_rec.Instance_Name,
l_rec.Instance_Number,nvl(l_rec.Sid_GUID,sys_guid()),l_rec.sid,
nvl(l_rec.Default_TNS_Alias_GUID,sys_guid()),
l_rec.Server_GUID,
nvl(l_rec.Local_Listener_Alias,sys_guid()),
l_rec.Remote_Listener_Alias,
l_rec.Configuration,l_rec.Description,l_rec.Interconnect_name,
1,sysdate,0,sysdate,1 );
update fnd_database_instances a
set a.Instance_Name = nvl(l_rec.Instance_Name,a.Instance_Name),
a.Instance_Number = nvl(l_rec.Instance_Number,a.Instance_Number),
a.Sid_GUID = nvl(l_rec.Sid_GUID,a.Sid_GUID),
a.Sid = nvl(l_rec.Sid,a.Sid),
a.Default_TNS_Alias_GUID = nvl(l_rec.Default_TNS_Alias_GUID,
a.Default_TNS_Alias_GUID),
a.Server_GUID = nvl(l_rec.Server_GUID,a.Server_GUID),
a.Local_Listener_Alias = nvl(l_rec.Local_Listener_Alias,
a.Local_Listener_Alias),
a.Remote_Listener_Alias = nvl(l_rec.Remote_Listener_Alias,
a.Remote_Listener_Alias),
a.Configuration = nvl(l_rec.Configuration,a.Configuration),
a.Description = nvl(l_rec.Description,a.Description),
a.Interconnect_name = nvl(l_rec.Interconnect_name,
a.Interconnect_name),
a.last_update_date = SYSDATE,
a.last_updated_by = 1
where a.db_guid = l_rec.db_guid
and a.Instance_Guid = l_rec.Instance_Guid;
l_insert boolean := false;
l_insert := true;
select a.sid_guid
into l_rec.sid_guid
from fnd_sids a
where a.sid_guid = l_rec.sid_guid;
l_insert := true;
if ( l_insert )
then
insert into fnd_sids
(sid_guid,Sid,
last_updated_by,last_update_date,last_update_login,
creation_date,created_by
)
values ( l_rec.sid_guid,l_rec.sid,
1,sysdate,0,sysdate,1 );
update fnd_sids a
set a.sid = nvl(l_rec.sid,a.sid),
a.last_update_date = SYSDATE,
a.last_updated_by = 1
where a.sid_guid = l_rec.sid_guid;
l_insert boolean := false;
select a.db_guid
into l_rec.db_guid
from fnd_databases a
where a.db_name = l_db_name
and a.db_domain= l_db_domain;
select a.db_service_guid
into l_rec.db_service_guid
from fnd_database_services a
where a.db_guid = l_rec.db_guid
and a.Service_Name = l_rec.Service_Name;
l_insert := true;
if ( l_insert )
then
insert into fnd_database_services
(DB_Service_GUID,db_guid,Service_Name,Description,
last_updated_by,last_update_date,last_update_login,
creation_date,created_by
)
values ( sys_guid(),l_rec.db_guid,l_rec.Service_Name,
l_rec.Description,
1,sysdate,0,sysdate,1 );
update fnd_database_services a
set a.Service_Name = nvl(l_rec.Service_Name,a.Service_Name),
a.Description = nvl(l_rec.Description,a.Description),
a.last_update_date = SYSDATE,
a.last_updated_by = 1
where a.DB_Service_GUID = l_rec.DB_Service_GUID;
l_insert boolean := false;
select a.db_guid
into l_rec.db_guid
from fnd_databases a
where a.db_name = l_db_name
and a.db_domain = l_db_domain;
select instance_guid
into l_rec.instance_guid
from fnd_database_instances a
where a.db_guid = l_rec.db_guid
and a.instance_name = l_instance_name;
select a.db_service_guid
into l_rec.db_service_guid
from fnd_db_service_members a
where a.DB_GUID = l_rec.DB_GUID
and a.Instance_Guid = l_rec.Instance_Guid;
l_insert := true;
if ( l_insert )
then
l_rec.db_service_guid := sys_guid();
select a.db_service_guid
into l_rec.db_service_guid
from fnd_db_service_members a
where a.db_service_guid = l_rec.db_service_guid
and a.Instance_Guid = l_rec.Instance_Guid;
l_insert := true;
if ( l_insert )
then
insert into fnd_db_service_members
(db_service_guid,DB_GUID,Instance_Guid,instance_type,
last_updated_by,last_update_date,last_update_login,
creation_date,created_by
)
values ( l_rec.db_service_guid,l_rec.DB_GUID,l_rec.Instance_Guid,
l_rec.instance_type,
1,sysdate,0,sysdate,1 );
update fnd_db_service_members a
set a.DB_GUID = nvl(l_rec.DB_GUID,a.DB_GUID),
a.Instance_Guid = nvl(l_rec.Instance_Guid,a.Instance_Guid),
a.instance_type = nvl(l_rec.instance_type,a.instance_type),
a.last_update_date = SYSDATE,
a.last_updated_by = 1
where a.db_service_guid = l_rec.db_service_guid
and a.Instance_Guid = l_rec.Instance_Guid;
l_insert boolean := false;
select a.server_guid
into l_rec.server_guid
from fnd_app_servers a
where a.name = l_server_name;
select a.tns_alias_set_guid
into l_alias_set_guid
from fnd_tns_alias_sets a
where a.tns_alias_set_name = l_alias_set_name;
select a.tns_alias_guid
into l_rec.tns_alias_guid
from fnd_tns_aliases a
where a.alias_name = l_tns_alias_name
and a.alias_set_guid = l_alias_set_guid;
select a.Listener_GUID
into l_rec.Listener_GUID
from fnd_tns_listeners a
where a.Server_GUID = l_rec.Server_GUID
and a.Listener_Name = l_rec.Listener_Name;
l_insert := true;
if ( l_insert )
then
insert into fnd_tns_listeners
(Listener_GUID,Listener_Name,Server_GUID,tns_alias_guid,
last_updated_by,last_update_date,last_update_login,
creation_date,created_by
)
values (
sys_guid(),l_rec.Listener_Name,l_rec.Server_GUID,
nvl(l_rec.tns_alias_guid,sys_guid()),
1,sysdate,0,sysdate,1 );
update fnd_tns_listeners a
set a.Listener_Name = nvl(l_rec.Listener_Name,a.Listener_Name),
a.tns_alias_guid = nvl(l_rec.tns_alias_guid,a.tns_alias_guid),
a.last_update_date = SYSDATE,
a.last_updated_by = 1
where a.Listener_GUID = l_rec.Listener_GUID;
l_insert boolean := false;
select a.tns_alias_set_GUID
into l_rec.alias_set_guid
from fnd_tns_alias_sets a
where a.tns_alias_set_name = l_tns_alias_set_name;
select a.TNS_ALIAS_GUID
into l_rec.TNS_ALIAS_GUID
from fnd_tns_aliases a
where a.alias_set_guid = l_rec.alias_set_guid
and a.alias_name = l_rec.alias_name;
l_insert := true;
select a.TNS_ALIAS_GUID
into l_rec.TNS_ALIAS_GUID
from fnd_tns_aliases a
where a.tns_alias_guid = l_rec.TNS_ALIAS_GUID;
l_insert := true;
if ( l_insert )
then
insert into fnd_tns_aliases
(TNS_ALIAS_GUID,Alias_Name,Alias_set_guid,Alias_Type,
Failover,Load_Balance,
last_updated_by,last_update_date,last_update_login,
creation_date,created_by
)
values (
l_rec.TNS_ALIAS_GUID,l_rec.Alias_Name,l_rec.alias_set_GUID,
l_rec.Alias_Type,
l_rec.Failover,
l_rec.Load_Balance,
1,sysdate,0,sysdate,1 );
update fnd_tns_aliases a
set a.alias_name = nvl(l_rec.Alias_Name,a.alias_name),
a.alias_set_guid = nvl(l_rec.alias_set_GUID,a.alias_set_guid),
a.Alias_Type = nvl(l_rec.Alias_Type,a.Alias_Type),
a.Failover = nvl(l_rec.Failover,a.Failover),
a.Load_Balance=nvl(l_rec.Load_Balance,a.Load_Balance),
a.last_update_date = SYSDATE,
a.last_updated_by = 1
where a.TNS_ALIAS_GUID = l_rec.TNS_ALIAS_GUID;
l_insert boolean := false;
select b.tns_alias_GUID
into l_rec.tns_alias_guid
from fnd_tns_alias_sets a, fnd_tns_aliases b
where a.tns_alias_set_name = l_tns_alias_set_name
and b.alias_set_guid = a.tns_alias_set_guid
and b.alias_name = l_tns_alias_name;
select a.TNS_ALIAS_DESCRIPTION_GUID
into l_rec.TNS_ALIAS_DESCRIPTION_GUID
from fnd_tns_alias_descriptions a
where a.tns_alias_guid = l_rec.tns_alias_guid
and a.Sequence_Number= l_rec.Sequence_Number;
l_insert := true;
select a.TNS_ALIAS_DESCRIPTION_GUID
into l_rec.TNS_ALIAS_DESCRIPTION_GUID
from fnd_tns_alias_descriptions a
where a.TNS_ALIAS_DESCRIPTION_GUID = l_rec.TNS_ALIAS_DESCRIPTION_GUID;
l_insert := true;
if ( l_insert )
then
insert into fnd_tns_alias_descriptions
(TNS_ALIAS_GUID,TNS_ALIAS_DESCRIPTION_GUID,sequence_number,
Failover,Load_Balance,
DB_Service_GUID,DB_Instance_Guid,
Service_Name,Instance_Name,
last_updated_by,last_update_date,last_update_login,
creation_date,created_by
)
values (
l_rec.tns_alias_guid,l_rec.TNS_ALIAS_DESCRIPTION_GUID,
l_rec.Sequence_Number,
l_rec.Failover,l_rec.Load_Balance,
l_rec.DB_Service_GUID,l_rec.DB_Instance_Guid,
l_rec.Service_Name,l_rec.Instance_Name,
1,sysdate,0,sysdate,1 );
update fnd_tns_alias_descriptions a
set a.Failover = nvl(l_rec.Failover,a.Failover),
a.Load_Balance=nvl(l_rec.Load_Balance,a.Load_Balance),
a.DB_Service_GUID=l_rec.DB_Service_GUID,
a.DB_Instance_Guid = l_rec.DB_Instance_Guid,
a.TNS_ALIAS_GUID= nvl(l_rec.tns_alias_guid,a.TNS_ALIAS_GUID),
a.sequence_number=nvl(l_rec.Sequence_Number,a.sequence_number),
a.Service_Name=l_rec.Service_Name,
a.Instance_Name=l_rec.Instance_Name,
a.last_update_date = SYSDATE,
a.last_updated_by = 1
where a.TNS_ALIAS_DESCRIPTION_GUID = l_rec.TNS_ALIAS_DESCRIPTION_GUID;
l_insert boolean := false;
select a.TNS_ALIAS_ADDRESS_LIST_GUID,a.TNS_ALIAS_DESCRIPTION_GUID
into l_rec.TNS_ALIAS_ADDRESS_LIST_GUID,l_rec.TNS_ALIAS_DESCRIPTION_GUID
from fnd_tns_alias_address_lists a
where a.TNS_ALIAS_DESCRIPTION_GUID = l_rec.TNS_ALIAS_DESCRIPTION_GUID
and a.sequence_number = l_rec.Sequence_Number;
l_insert := true;
select a.TNS_ALIAS_ADDRESS_LIST_GUID,a.TNS_ALIAS_DESCRIPTION_GUID
into l_rec.TNS_ALIAS_ADDRESS_LIST_GUID,l_rec.TNS_ALIAS_DESCRIPTION_GUID
from fnd_tns_alias_address_lists a
where a.TNS_ALIAS_ADDRESS_LIST_GUID = l_rec.TNS_ALIAS_ADDRESS_LIST_GUID;
l_insert := true;
if ( l_insert )
then
insert into fnd_tns_alias_address_lists
(TNS_ALIAS_ADDRESS_LIST_GUID,TNS_ALIAS_DESCRIPTION_GUID,
Sequence_Number,Failover,Load_Balance,
last_updated_by,last_update_date,last_update_login,
creation_date,created_by
)
values (
l_rec.TNS_ALIAS_ADDRESS_LIST_GUID,
l_rec.TNS_ALIAS_DESCRIPTION_GUID,
l_rec.Sequence_Number,
l_rec.Failover,
l_rec.Load_Balance,
1,sysdate,0,sysdate,1 );
update fnd_tns_alias_address_lists a
set a.Failover = nvl(l_rec.Failover,a.Failover),
a.Load_Balance=nvl(l_rec.Load_Balance,a.Load_Balance),
a.sequence_number=nvl(l_rec.Sequence_Number,a.sequence_number),
a.last_update_date = SYSDATE,
a.last_updated_by = 1
where a.TNS_ALIAS_ADDRESS_LIST_GUID = l_rec.TNS_ALIAS_ADDRESS_LIST_GUID;
l_insert boolean := false;
select a.TNS_ALIAS_ADDRESS_LIST_GUID,a.Listener_port_GUID
into l_rec.TNS_ALIAS_ADDRESS_LIST_GUID,l_rec.Listener_port_GUID
from fnd_tns_alias_addresses a
where a.TNS_ALIAS_ADDRESS_LIST_GUID = l_rec.TNS_ALIAS_ADDRESS_LIST_GUID
and a.Listener_port_GUID = l_rec.Listener_port_GUID;
l_insert := true;
if ( l_insert )
then
insert into fnd_tns_alias_addresses
(TNS_ALIAS_ADDRESS_LIST_GUID,Listener_port_GUID,
last_updated_by,last_update_date,last_update_login,
creation_date,created_by
)
values (
l_rec.TNS_ALIAS_ADDRESS_LIST_GUID,l_rec.Listener_port_GUID,
1,sysdate,0,sysdate,1 );
update fnd_tns_alias_addresses a
set a.Listener_port_GUID=nvl(l_rec.Listener_port_GUID,
a.Listener_port_GUID),
a.last_update_date = SYSDATE,
a.last_updated_by = 1
where a.TNS_ALIAS_ADDRESS_LIST_GUID = l_rec.TNS_ALIAS_ADDRESS_LIST_GUID
and a.Listener_port_GUID = l_rec.Listener_port_GUID;
select count(*)
into kount
from fnd_nodes
where upper(node_name) = upper(name);
'insert into fnd_nodes ' ||
' (node_id, node_name,' ||
' support_forms, support_cp, support_web, support_admin,' || ' platform_code, created_by, creation_date,' ||
' last_updated_by, last_update_date, last_update_login,' ||
' node_mode, server_id, server_address, description)' ||
' select ' ||
' fnd_nodes_s.nextval, :v1,' ||
' :v2, :v3, :v4, :v5, :v6, 1, SYSDATE, 1, SYSDATE, 0,' ||
' ''O'', :v7, :v8, :v9 ' ||
' from dual '
using name, forms_tier, cp_tier, web_tier, admin_tier,
platform_id, p_server_id, p_address, p_description;
update fnd_nodes
set description = p_description,
support_forms = decode(forms_tier, 'Y', 'Y', support_forms),
support_cp = decode(cp_tier, 'Y', 'Y', support_cp),
support_web = decode(web_tier, 'Y', 'Y', support_web),
support_admin = decode(admin_tier, 'Y', 'Y', support_admin),
platform_code = platform_id,
last_update_date = SYSDATE, last_updated_by = 1
where upper(node_name) = upper(name);
execute immediate 'update fnd_nodes ' ||
' set server_id = :v1' ||
' where upper(node_name) = upper(:v2) '
using p_server_id, name;
execute immediate 'update fnd_nodes ' ||
' set server_address = :v1' ||
' where upper(node_name) = upper(:v2)'
using p_address,name;
l_insert boolean := false;
select a.Listener_GUID
into l_rec.Listener_GUID
from fnd_tns_listeners a
where a.Server_GUID = l_server_guid
and a.Listener_Name = l_Listener_Name;
select a.listener_port_guid
into l_rec.listener_port_guid
from fnd_tns_listener_ports a
where a.listener_guid = l_rec.listener_GUID
and a.port = l_rec.Port;
l_insert := true;
if ( l_insert )
then
insert into fnd_tns_listener_ports
(Listener_Port_GUID,Listener_GUID,Protocol,Port,
Created_By,Creation_Date,
Last_Updated_By,Last_Update_Date,Last_Update_Login)
values (sys_guid(),l_rec.Listener_guid,fnd_app_system.c_protocol_tcp,
l_rec.Port,1,sysdate,1,sysdate,0 );
update fnd_tns_listener_ports a
set a.port = nvl(l_rec.Port,a.port),
a.last_update_date = SYSDATE,
a.last_updated_by = 1
where a.Listener_port_GUID = l_rec.Listener_port_GUID;
l_insert boolean := false;
select tns_alias_set_guid
into l_rec.tns_alias_set_guid
from fnd_tns_alias_sets a
where a.tns_alias_set_name = l_rec.tns_alias_set_name;
l_insert := true;
if ( l_insert )
then
insert into fnd_tns_alias_sets
(TNS_ALIAS_SET_GUID,tns_Alias_set_name,tns_Alias_set_type,
last_updated_by,last_update_date,last_update_login,
creation_date,created_by
)
values (
sys_guid(),l_rec.tns_Alias_set_Name,l_rec.tns_alias_set_type,
1,sysdate,0,sysdate,1 );
update fnd_tns_alias_sets a
set a.tns_alias_set_name = nvl(l_rec.tns_Alias_set_Name,
a.tns_alias_set_name),
a.tns_alias_set_type = nvl(l_rec.tns_alias_set_type,
a.tns_alias_set_type),
a.last_update_date = SYSDATE,
a.last_updated_by = 1
where a.TNS_ALIAS_set_GUID = l_rec.TNS_ALIAS_set_GUID;
l_insert boolean := false;
select a.TNS_ALIAS_set_GUID,a.server_guid
into l_rec.TNS_ALIAS_set_GUID,l_rec.server_guid
from fnd_tns_alias_set_usage a
where a.TNS_ALIAS_set_GUID = l_rec.TNS_ALIAS_set_GUID
and a.server_guid = l_rec.server_guid;
l_insert := true;
if ( l_insert )
then
insert into fnd_tns_alias_set_usage
(TNS_ALIAS_set_guid,server_guid,
last_updated_by,last_update_date,last_update_login,
creation_date,created_by
)
values (
l_rec.TNS_ALIAS_set_GUID,l_rec.server_guid,
1,sysdate,0,sysdate,1 );
update fnd_tns_alias_set_usage a
set a.server_guid=nvl(l_rec.server_guid,a.server_guid),
a.last_update_date = SYSDATE,
a.last_updated_by = 1
where a.TNS_ALIAS_set_GUID = l_rec.TNS_ALIAS_set_GUID
and a.server_guid = l_rec.server_guid;