The following lines contain the word 'select', 'insert', 'update' or 'delete':
cursor c1 is select a.open_mode,a.database_role
from v$database a;
cursor c1 is select a.open_mode,a.database_role
from v$database a;
cursor c1 is select a.open_mode,a.database_role
from v$database a;
procedure update_conc_program_rec(p_cp_rec fnd_adg_concurrent_program%rowtype,
p_cp_chng_rec
fnd_adg_concurrent_program%rowtype,
p_util_caller boolean default false)
as
PRAGMA AUTONOMOUS_TRANSACTION;
select a.*
into l_curr_cp_rec
from fnd_adg_concurrent_program a
where a.Application_Id = p_cp_rec.Application_Id
and a.Concurrent_Program_Id = p_cp_rec.Concurrent_Program_Id
for update of a.Application_Id;
update fnd_adg_concurrent_program a
set row = l_curr_cp_rec
where a.Application_Id = p_cp_rec.Application_Id
and a.Concurrent_Program_Id = p_cp_rec.Concurrent_Program_Id;
-- standalone we update simulation stats on logoff whereas
-- for embedded stats are done under the update trigger.
-- This only applies to simulation stats.
return true;
select a.Execution_Method_Code
into l_Execution_Method_Code
from fnd_concurrent_programs a
where a.APPLICATION_ID = p_program_application_id
and a.CONCURRENT_PROGRAM_ID = p_concurrent_program_id;
insert into fnd_adg_concurrent_program values l_new_cp_rec ;
select a.*
into l_new_cp_rec
from fnd_adg_concurrent_program a
where a.Application_Id = p_program_application_id
and a.Concurrent_Program_Id = p_concurrent_program_id;
select a.*
into l_cp_rec
from fnd_adg_concurrent_program a
where a.Application_Id = p_program_application_id
and a.Concurrent_Program_Id = p_concurrent_program_id;
procedure do_handle_request_row_update(p_cp_rec
fnd_adg_concurrent_program%rowtype,
p_cp_chng_rec in out nocopy
fnd_adg_concurrent_program%rowtype,
p_connstr1 in out nocopy varchar2,
p_phase_code varchar2,
p_status_code varchar2
)
as
l_request_success boolean;
procedure do_handle_request_row_insert(p_cp_rec
fnd_adg_concurrent_program%rowtype,
p_cp_chng_rec in out nocopy
fnd_adg_concurrent_program%rowtype,
p_connstr1 in out nocopy varchar2,
p_nodename1 in out nocopy varchar2,
p_request_class_application_id
in out nocopy number,
p_concurrent_request_class_id
in out nocopy number
)
as
l_mgr_stndby_req_class_app_id number;
-- Must be ALL processing for INSERT.
if ( not G_HANDLE_REQUEST_ROW_ALL )
then
return;
update_conc_program_rec(l_cp_rec,l_cp_chng_rec,true);
procedure handle_request_row_change(p_is_inserting boolean,
p_program_application_id number,
p_concurrent_program_id number,
p_connstr1 in out nocopy varchar2,
p_nodename1 in out nocopy varchar2,
p_request_class_application_id
in out nocopy number,
p_concurrent_request_class_id
in out nocopy number,
p_phase_code varchar2,
p_status_code varchar2
)
as
l_cp_chng_rec fnd_adg_concurrent_program%rowtype;
-- If someone tries to insert nulls we just ignore the row as
-- cols are defined as not null!
if ( p_program_application_id is null or
p_concurrent_program_id is null )
then
fnd_adg_utility.disable_control_cache(l_cache_state);
if ( p_is_inserting )
then
do_handle_request_row_insert(l_cp_rec,l_cp_chng_rec,
p_connstr1, p_nodename1,
p_request_class_application_id,
p_concurrent_request_class_id);
do_handle_request_row_update(l_cp_rec,l_cp_chng_rec,
p_connstr1,p_phase_code,p_status_code);
update_conc_program_rec(l_cp_rec,l_cp_chng_rec);
-- just update the run flag.
l_run_on_standby := null;
cursor c1 is select R.Program_APPLICATION_ID,R.CONCURRENT_PROGRAM_ID
from FND_CONCURRENT_REQUESTS r
where R.request_id = p_request_id;