[Home] [Help]
787: Listener_GUID raw default null,
788: alias_set_name varchar2
789: )
790: as
791: l_rec fnd_tns_listeners%rowtype;
792: l_insert boolean := false;
793: l_server_name fnd_app_servers.name%type;
794: l_tns_alias_name fnd_tns_aliases.alias_name%type;
795: l_alias_set_guid fnd_tns_alias_sets.tns_alias_set_guid%type;
831: begin
832:
833: select a.Listener_GUID
834: into l_rec.Listener_GUID
835: from fnd_tns_listeners a
836: where a.Server_GUID = l_rec.Server_GUID
837: and a.Listener_Name = l_rec.Listener_Name;
838:
839: exception
844:
845: if ( l_insert )
846: then
847:
848: insert into fnd_tns_listeners
849: (Listener_GUID,Listener_Name,Server_GUID,tns_alias_guid,
850: last_updated_by,last_update_date,last_update_login,
851: creation_date,created_by
852: )
855: nvl(l_rec.tns_alias_guid,sys_guid()),
856: 1,sysdate,0,sysdate,1 );
857: else
858:
859: update fnd_tns_listeners a
860: set a.Listener_Name = nvl(l_rec.Listener_Name,a.Listener_Name),
861: a.tns_alias_guid = nvl(l_rec.tns_alias_guid,a.tns_alias_guid),
862: a.last_update_date = SYSDATE,
863: a.last_updated_by = 1
1416: Listener_Port_Guid raw default null)
1417: as
1418: l_rec fnd_tns_listener_ports%rowtype;
1419: l_insert boolean := false;
1420: l_listener_name fnd_tns_listeners.listener_name%type;
1421: l_server_guid fnd_tns_listeners.server_guid%type;
1422: begin
1423:
1424: l_Listener_Name := Listener_Name;
1417: as
1418: l_rec fnd_tns_listener_ports%rowtype;
1419: l_insert boolean := false;
1420: l_listener_name fnd_tns_listeners.listener_name%type;
1421: l_server_guid fnd_tns_listeners.server_guid%type;
1422: begin
1423:
1424: l_Listener_Name := Listener_Name;
1425: l_rec.Listener_Port_Guid := Listener_Port_Guid;
1427: l_server_guid := server_guid;
1428:
1429: select a.Listener_GUID
1430: into l_rec.Listener_GUID
1431: from fnd_tns_listeners a
1432: where a.Server_GUID = l_server_guid
1433: and a.Listener_Name = l_Listener_Name;
1434:
1435: if ( l_rec.Listener_Port_Guid is null )