[Home] [Help]
The following lines contain the word 'select', 'insert', 'update' or 'delete':
Select min(nvl(request_priority, profile_priority_number))
Into program_priority
From Fnd_Concurrent_Programs P,
Fnd_Request_Set_Programs S
Where S.set_application_id = app_id
and S.request_set_id = set_id
and P.concurrent_program_id = S.concurrent_program_id
and P.application_id = S.program_application_id;
insert_error exception;
args_insert_error exception;
login_insert_error exception;
relclass_insert_error exception;
conc_deferred_insert_error exception;
Select Fnd_Concurrent_Requests_S.nextval
Into cur_request_id
From Sys.Dual;
Insert Into Fnd_Conc_Deferred_Arguments (
request_id, Program_Application_Id, Concurrent_Program_Id,
Argument1, Argument2, Argument3, Argument4, Argument5,
Argument6, Argument7, Argument8, Argument9, Argument10,
Argument11, Argument12, Argument13, Argument14, Argument15,
Argument16, Argument17, Argument18, Argument19, Argument20,
Argument21, Argument22, Argument23, Argument24, Argument25,
Argument26, Argument27, Argument28, Argument29, Argument30,
Argument31, Argument32, Argument33, Argument34, Argument35,
Argument36, Argument37, Argument38, Argument39, Argument40,
Argument41, Argument42, Argument43, Argument44, Argument45,
Argument46, Argument47, Argument48, Argument49, Argument50,
Argument51, Argument52, Argument53, Argument54, Argument55,
Argument56, Argument57, Argument58, Argument59, Argument60,
Argument61, Argument62, Argument63, Argument64, Argument65,
Argument66, Argument67, Argument68, Argument69, Argument70,
Argument71, Argument72, Argument73, Argument74, Argument75,
Argument76, Argument77, Argument78, Argument79, Argument80,
Argument81, Argument82, Argument83, Argument84, Argument85,
Argument86, Argument87, Argument88, Argument89, Argument90,
Argument91, Argument92, Argument93, Argument94, Argument95,
Argument96, Argument97, Argument98, Argument99, Argument100,
Creation_Date, Created_By, Last_Update_Date, Last_Updated_By,
Last_Update_Login)
Select cur_request_id, FA.Application_ID, FCP.Concurrent_Program_ID,
argument1, argument2, argument3, argument4, argument5,
argument6, argument7, argument8, argument9, argument10,
argument11, argument12, argument13, argument14, argument15,
argument16, argument17, argument18, argument19, argument20,
argument21, argument22, argument23, argument24, argument25,
argument26, argument27, argument28, argument29, argument30,
argument31, argument32, argument33, argument34, argument35,
argument36, argument37, argument38, argument39, argument40,
argument41, argument42, argument43, argument44, argument45,
argument46, argument47, argument48, argument49, argument50,
argument51, argument52, argument53, argument54, argument55,
argument56, argument57, argument58, argument59, argument60,
argument61, argument62, argument63, argument64, argument65,
argument66, argument67, argument68, argument69, argument70,
argument71, argument72, argument73, argument74, argument75,
argument76, argument77, argument78, argument79, argument80,
argument81, argument82, argument83, argument84, argument85,
argument86, argument87, argument88, argument89, argument90,
argument91, argument92, argument93, argument94, argument95,
argument96, argument97, argument98, argument99, argument100,
Sysdate, FND_GLOBAL.conc_login_id, Sysdate,
FND_GLOBAL.conc_login_id, FND_GLOBAL.conc_login_id
From Fnd_Application FA,
Fnd_Concurrent_Programs FCP
Where
FCP.Enabled_Flag = 'Y'
And (FCP.Application_ID = FA.Application_ID And
Concurrent_Program_Name = Upper (program))
And FA.Application_Short_Name = Upper (application);
raise conc_deferred_insert_error;
Select Submitted_Login_ID
Into subloginid
From Fnd_Logins
Where Login_ID = loginid;
select class_type, class_info, date1, date2
into schedule_type, schedule_info, sch_req_date, sch_end_date
from fnd_conc_release_classes
where application_id = P_REL_CLASS_APP_ID
and release_class_id = P_REL_CLASS_ID;
select fcpoi.node_name1
into P_NODE_NAME1
from fnd_conc_prog_onsite_info fcpoi,
fnd_concurrent_programs fcp,
fnd_application fa
where fcp.application_id = fcpoi.program_application_id
and fcp.concurrent_program_id = fcpoi.concurrent_program_id
and fa.application_id = fcp.application_id
and fcp.concurrent_program_name = upper(program)
and fa.application_short_name = upper(application);
select fcpoi.connstr1
into P_CONNSTR1
from fnd_conc_prog_onsite_info fcpoi,
fnd_concurrent_programs fcp,
fnd_application fa
where fcp.application_id = fcpoi.program_application_id
and fcp.concurrent_program_id = fcpoi.concurrent_program_id
and fa.application_id = fcp.application_id
and fcp.concurrent_program_name = upper(program)
and fa.application_short_name = upper(application);
select substr(userenv('LANGUAGE'),1,
instr(userenv('LANGUAGE'), '_') -1)
into P_LANGUAGE
from dual;
Select count(*) into lang_exists from FND_LANGUAGES L
where NLS_LANGUAGE = P_LANGUAGE and
L.INSTALLED_FLAG in ('I', 'B');
select substr ( userenv('LANGUAGE') ,
instr ( userenv('LANGUAGE') , '_') + 1,
(instr ( userenv('LANGUAGE') , '.') - 1 -
instr ( userenv('LANGUAGE') , '_') ))
into P_TERRITORY
from dual;
Select count(*) into lang_exists from FND_LANGUAGES L
where NLS_LANGUAGE = P_LANGUAGE and
L.INSTALLED_FLAG in ('I', 'B');
Select A.Application_ID, Concurrent_Program_Id, CD_Parameter,
Printer_Name, NVL(Output_Print_Style, 'PORTRAIT'),
Required_Style, Minimum_Width, Minimum_Length,
Execution_Method_Code, Save_Output_Flag, Print_Flag,
Queue_Control_Flag, request_priority, request_set_flag,
DECODE(ops_req_mode,
'EXPLICIT', NVL(P_OPS_ID,NVL(P.instance_id,fnd_conc_global.ops_inst_num)),
-1), NVL(Refresh_Portlet, 'N'), NVL(Allow_Multiple_Pending_Request,'Y')
Into prog_appl_id, conc_prog_id, cd_param,
fcp_printer, print_style, reqrd_flag, minwid,
minlen, execcode, saveout, prtflg,
qctlflg, program_priority, request_set_flag,
submit_ops_id, portlet_ref, mult_pending_req
From Fnd_Concurrent_Programs P, Fnd_Application A
Where Upper(Concurrent_Program_Name) = upper(program)
And P.Application_ID = A.Application_ID
And Upper(A.Application_Short_Name) = upper(application);
select count(*) into no_pending_req
from fnd_concurrent_requests
where program_application_id = prog_appl_id
And concurrent_program_id = conc_prog_id
And phase_code = 'P'
and hold_flag='N' and requested_start_date <= sysdate;
insert into fnd_conc_pp_actions
(concurrent_request_id, action_type, status_s_flag,
status_w_flag, status_f_flag, last_update_date,
last_updated_by, creation_date, last_update_login,
created_by, arguments, completed, number_of_copies,
sequence,ops_instance)
values
(cur_request_id, 1, 'Y', print_warning, 'N', sysdate,
user_id, sysdate, fgloginid, user_id, curr_printer,
'N', curr_copies, i, submit_ops_id);
insert into fnd_conc_pp_actions
(concurrent_request_id, action_type, status_s_flag,
status_w_flag, status_f_flag, last_update_date,
last_updated_by, creation_date, last_update_login,
created_by, arguments, completed, number_of_copies,
sequence, orig_system, orig_system_id, ops_instance)
values
(cur_request_id, 2,
P_NOTIFICATIONS(i).on_normal,
P_NOTIFICATIONS(i).on_warning,
P_NOTIFICATIONS(i).on_error, sysdate,
user_id, sysdate, fgloginid, user_id,
P_NOTIFICATIONS(i).name, 'N', null, i,
P_NOTIFICATIONS(i).orig_system,
P_NOTIFICATIONS(i).orig_system_id,
submit_ops_id);
insert into fnd_conc_pp_actions
(concurrent_request_id, action_type, status_s_flag,
status_w_flag, status_f_flag, last_update_date,
last_updated_by, creation_date, last_update_login,
created_by, completed, sequence, argument1, argument2,
argument3, argument4, argument5, ops_instance)
values
(cur_request_id, 6, 'Y','Y','Y',
sysdate, user_id, sysdate, fgloginid, user_id, 'N', 1,
P_TEMPLATE_APPL, P_TEMPLATE_CODE, P_TEMPLATE_LANG,
P_TEMPLATE_TERRITORY, P_OUTPUT_FORMAT, submit_ops_id);
Select Oracle_Username
Into oraclacct
From Fnd_Data_Group_Units U,
Fnd_Data_Groups G,
Fnd_Oracle_Userid O
Where Data_Group_Name = P_DATAGROUP
And U.Data_Group_Id = G.Data_Group_Id
And U.Oracle_Id = O.Oracle_Id
And Application_Id = prog_appl_id;
Select O.Oracle_Username
Into oraclacct
From Fnd_Data_Group_Units U,
Fnd_Responsibility R,
Fnd_Oracle_Userid O
Where R.Application_ID = resp_appl_id
And R.Responsibility_ID = resp_id
And R.Data_Group_ID = U.Data_Group_ID
And O.Oracle_ID = U.Oracle_ID
And U.Application_ID = prog_appl_id;
-- Insert the record in Fnd_Logins if the request submission
-- successful.
begin
Select Fnd_Logins_S.nextval
Into loginid
From Sys.Dual;
Select FND_CONC_RELEASE_CLASSES_S.nextval, 0
into P_REL_CLASS_ID, P_REL_CLASS_APP_ID from Sys.dual;
Insert
Into Fnd_Concurrent_Requests (
Request_Id, security_group_id,
Phase_Code, Status_Code,
Priority, Parent_Request_ID, Priority_Request_ID,
Description, Req_Information,
Is_Sub_Request, Has_Sub_Request, Update_Protected,
Hold_Flag, Enforce_Seriality_Flag, Single_Thread_Flag,
Argument_Input_Method_Code, Implicit_Code,
Request_Date, Requested_Start_Date, Requested_By,
Last_Update_Date, Last_Updated_By, Last_Update_Login,
Oracle_Id, Conc_Login_Id,
Responsibility_Id, Responsibility_Application_Id,
Nls_Language, Nls_Territory, Nls_Numeric_Characters,
Program_Application_Id, Concurrent_Program_Id,
Queue_Method_Code,
Request_Class_Application_Id, Concurrent_Request_Class_Id,
Print_Group, Printer, Print_Style,
Number_Of_Copies, Save_Output_Flag, CRM_THRSHLD,
Resubmit_Time, Resubmit_Interval,
Resubmit_Interval_Unit_Code, Resubmit_Interval_Type_Code,
Resubmit_End_Date, Resubmitted, Critical, Request_Type,
RELEASE_CLASS_APP_ID, RELEASE_CLASS_ID,
STALE_DATE, CANCEL_OR_HOLD,
Output_File_Type, nls_compliant,
CD_ID, Request_Limit, Increment_Dates,
Enable_Trace, OPS_Instance, ORG_ID,
Node_Name1, Connstr1,
Argument_Text, Number_Of_Arguments,
Argument1, Argument2, Argument3, Argument4, Argument5,
Argument6, Argument7, Argument8, Argument9, Argument10,
Argument11, Argument12, Argument13, Argument14, Argument15,
Argument16, Argument17, Argument18, Argument19, Argument20,
Argument21, Argument22, Argument23, Argument24, Argument25)
Select cur_request_id, z_security_group_id,
Phase, Decode (submit.Status,
'A', 'A',
'Z', 'Z',
Decode(FCP.Queue_Method_Code,
'B', 'Q',
Decode (st_flag,
'Y', 'Q',
Decode(Req_Limit, 'Y', 'Q',
'I')))),
Decode (FCP.Queue_Control_Flag,
'Y', NVL(FCP.Request_Priority, 0),
Decode (submit.priority,
null, 50,
submit.priority)),
Decode (par_request_id,
0, NULL,
par_request_id),
cur_req_pri_id,
submit.description, NULL,
issubreq, 'N', P_PROTECTED,
submit.hold_flag, 'Y', st_flag,
'S', P_IMPLICIT,
SYSDATE,
Decode (requested_start,
'', (SYSDATE - tz_offset),
Greatest (requested_start,
Decode (par_request_id,
0, (SYSDATE - tz_offset),
fnd_conc_date.string_to_date (
'01-01-0001')))),
submit.user_id,
SYSDATE, submit.user_id, loginid,
Oracle_ID, loginid,
resp_id, resp_appl_id,
P_LANGUAGE, P_TERRITORY, P_NUMERIC_CHARACTERS,
FA.Application_ID, FCP.Concurrent_Program_ID,
Decode(Req_Limit,
'Y', 'B',
Decode(st_flag,
'N', FCP.Queue_Method_Code,
'B')),
FCP.Class_Application_ID, FCP.Concurrent_Class_ID,
P_PRINT_TOGETHER, fcr_printer, valid_style,
tot_copies, saveout, request_threshold,
Decode (P_REPEAT_TIME,
'', NULL,
To_Char (fnd_conc_date.string_to_date (
'01-01-0001' || P_REPEAT_TIME),
'HH24:MI:SS')),
Decode (P_REPEAT_INTERVAL,
'', NULL,
P_REPEAT_INTERVAL),
P_REPEAT_INTERVAL_UNIT, P_REPEAT_INTERVAL_TYPE,
P_REPEAT_END,
'N', P_CRITICAL_REQUEST, P_REQUEST_TYPE,
P_REL_CLASS_APP_ID, P_REL_CLASS_ID,
P_REL_STALE_DATE, P_REL_CANCEL_OR_HOLD,
FCP.Output_File_Type, FCP.nls_compliant,
CD_ID, Req_limit, P_INCREMENT_DATES,
decode(trace_enabled, 'Y', 'Y', FCP.Enable_Trace),
submit_ops_id, P_ORG_ID,
P_NODE_NAME1, P_CONNSTR1,
argtxt2, nargs,
submit.argument1, submit.argument2,
submit.argument3, submit.argument4,
submit.argument5, submit.argument6,
submit.argument7, submit.argument8,
submit.argument9, submit.argument10,
submit.argument11, submit.argument12,
submit.argument13, submit.argument14,
submit.argument15, submit.argument16,
submit.argument17, submit.argument18,
submit.argument19, submit.argument20,
submit.argument21, submit.argument22,
submit.argument23, submit.argument24,
submit.argument25
From Fnd_Application FA,
Fnd_Concurrent_Programs FCP,
Fnd_Oracle_Userid
Where
Oracle_Username = oraclacct
And FCP.Enabled_Flag = 'Y'
And (FCP.Application_ID = FA.Application_ID And
Concurrent_Program_Name = Upper (program))
And FA.Application_Short_Name = Upper (application);
raise insert_error;
Insert
Into Fnd_Conc_Request_Arguments (
Request_Id,
Argument26, Argument27, Argument28, Argument29, Argument30,
Argument31, Argument32, Argument33, Argument34, Argument35,
Argument36, Argument37, Argument38, Argument39, Argument40,
Argument41, Argument42, Argument43, Argument44, Argument45,
Argument46, Argument47, Argument48, Argument49, Argument50,
Argument51, Argument52, Argument53, Argument54, Argument55,
Argument56, Argument57, Argument58, Argument59, Argument60,
Argument61, Argument62, Argument63, Argument64, Argument65,
Argument66, Argument67, Argument68, Argument69, Argument70,
Argument71, Argument72, Argument73, Argument74, Argument75,
Argument76, Argument77, Argument78, Argument79, Argument80,
Argument81, Argument82, Argument83, Argument84, Argument85,
Argument86, Argument87, Argument88, Argument89, Argument90,
Argument91, Argument92, Argument93, Argument94, Argument95,
Argument96, Argument97, Argument98, Argument99, Argument100)
Select cur_request_id,
submit.argument26,
submit.argument27, submit.argument28,
submit.argument29, submit.argument30,
submit.argument31, submit.argument32,
submit.argument33, submit.argument34,
submit.argument35, submit.argument36,
submit.argument37, submit.argument38,
submit.argument39, submit.argument40,
submit.argument41, submit.argument42,
submit.argument43, submit.argument44,
submit.argument45, submit.argument46,
submit.argument47, submit.argument48,
submit.argument49, submit.argument50,
submit.argument51, submit.argument52,
submit.argument53, submit.argument54,
submit.argument55, submit.argument56,
submit.argument57, submit.argument58,
submit.argument59, submit.argument60,
submit.argument61, submit.argument62,
submit.argument63, submit.argument64,
submit.argument65, submit.argument66,
submit.argument67, submit.argument68,
submit.argument69, submit.argument70,
submit.argument71, submit.argument72,
submit.argument73, submit.argument74,
submit.argument75, submit.argument76,
submit.argument77, submit.argument78,
submit.argument79, submit.argument80,
submit.argument81, submit.argument82,
submit.argument83, submit.argument84,
submit.argument85, submit.argument86,
submit.argument87, submit.argument88,
submit.argument89, submit.argument90,
submit.argument91, submit.argument92,
submit.argument93, submit.argument94,
submit.argument95, submit.argument96,
submit.argument97, submit.argument98,
submit.argument99, submit.argument100
From Sys.Dual;
raise args_insert_error;
-- Insert into fnd_conc_rel_classes
if (P_REPEAT_TIME is not NULL) then
P_REPEAT_INTERVAL := 1;
INSERT INTO Fnd_Conc_Release_Classes
(APPLICATION_ID, RELEASE_CLASS_ID,
RELEASE_CLASS_NAME, OWNER_REQ_ID,
ENABLED_FLAG, LAST_UPDATE_DATE,
LAST_UPDATED_BY, LAST_UPDATE_LOGIN,
CREATION_DATE, CREATED_BY,
UPDATED_FLAG, CLASS_TYPE,
CLASS_INFO, START_DATE_ACTIVE,
END_DATE_ACTIVE, DATE1, DATE2)
Select 0, P_REL_CLASS_ID,
'Request - '|| cur_request_id, cur_request_id,
'Y', Sysdate,
submit.user_id, loginid,
Sysdate, submit.user_id,
'Y', decode(P_REPEAT_INTERVAL, NULL, 'O', 'P'),
Decode(P_REPEAT_INTERVAL_UNIT, NULL, NULL,
P_REPEAT_INTERVAL||':'||
Decode(P_REPEAT_INTERVAL_UNIT,
'MINUTES', 'N',
'MONTHS', 'M',
'HOURS', 'H',
'DAYS', 'D') || ':' ||
Decode(P_REPEAT_INTERVAL_TYPE,
'START', 'S', 'C')),
null, null,
Requested_start_date, resubmit_end_date
From Fnd_Concurrent_Requests
Where Request_ID = cur_request_id;
raise relclass_insert_error;
INSERT INTO Fnd_Conc_Release_Classes_TL
(APPLICATION_ID, RELEASE_CLASS_ID,
LANGUAGE, SOURCE_LANG, USER_RELEASE_CLASS_NAME,
LAST_UPDATE_DATE,
LAST_UPDATED_BY, LAST_UPDATE_LOGIN,
CREATION_DATE, CREATED_BY)
Select 0, P_REL_CLASS_ID,
L.LANGUAGE_CODE,userenv('LANG'),
'Request - '|| cur_request_id,
Sysdate,
submit.user_id, loginid,
Sysdate, submit.user_id
from FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B');
raise relclass_insert_error;
-- Insert into Fnd_Logins
if (subloginid is not null) then
begin
Insert
into Fnd_Logins (
Login_Id, User_Id,
Start_Time, End_Time,
Pid, Spid, Terminal_ID,
Login_Name, Submitted_Login_Id)
Values (
loginid, submit.user_id,
Sysdate, Null,
Null, Null, 'Concurrent',
Null, subloginid);
raise login_insert_error;
select c.resubmit_interval, c.resubmit_interval_unit_code, c.resubmit_interval_type_code
into adv_sch_ri, adv_sch_riuc, adv_sch_ritc
from fnd_conc_release_classes c, fnd_concurrent_requests r
where r.request_id = cur_request_id and r.release_class_id = c.release_class_id
and r.release_class_app_id = c.application_id;
update fnd_concurrent_requests fcr
set fcr.resubmit_interval = nvl(adv_sch_ri,1),
fcr.resubmit_interval_unit_code = nvl(adv_sch_riuc,'DAYS'),
fcr.resubmit_interval_type_code = nvl(adv_sch_ritc,'START'),
fcr.status_code = 'P'
where fcr.request_id = cur_request_id;
Select Application_ID
Into prog_appl_id
From Fnd_Application
Where Application_Short_Name = upper (application);
when insert_error then -- Find the problem
begin -- Is the program enabled?
Select null
Into Dummy
From Fnd_Concurrent_Programs
Where Application_ID = prog_appl_id
And upper (Concurrent_Program_Name) = upper (program)
And Enabled_Flag = 'Y';
'ROUTINE', 'SUBMIT: insert_error2', FALSE);
when args_insert_error then
fnd_message.set_name ('FND', 'SQL-Generic error');
'ROUTINE', 'SUBMIT: args_insert_error', FALSE);
when login_insert_error then
fnd_message.set_name ('FND', 'CONC-Login insert failed');
when relclass_insert_error then
fnd_message.set_name ('FND', 'CONC-RelClass insert failed');
when conc_deferred_insert_error then
fnd_message.set_name ('FND', 'Conc-def-arg insert failed');
select nls_language
into dummy_val
from fnd_languages
where nls_language = upper(language);
select count(*)
into dummy_count
from fnd_territories
where nls_territory = upper(territory);
select lookup_code
into dummy_val
from fnd_lookup_values_vl
where lookup_type = 'ICX_NUMERIC_CHARACTERS' and
lookup_code = numeric_characters;
Select To_Char (fnd_conc_date.string_to_date (
'01-01-0001' || repeat_time),
'HH24:MI:SS')
Into P_REPEAT_TIME
From Sys.Dual;
Select Lookup_Code
Into P_REPEAT_INTERVAL_UNIT
From Fnd_Lookups
Where upper (Lookup_Code) = upper (repeat_unit)
And Lookup_Type = 'CP_RESUBMIT_INTERVAL_UNIT';
Select A.Application_ID, C.Release_Class_Id
Into P_REL_CLASS_APP_ID, P_REL_CLASS_ID
From Fnd_Conc_Release_Classes C, Fnd_Application A
Where Upper(Release_class_Name) = upper(class_name)
And C.Application_ID = A.Application_ID
And A.Application_Short_Name = upper(application);
select node_name
into dummy_val
from fnd_nodes
where upper(node_name) = upper(node_name1);
select instance
into dummy_val
from v$thread
where upper(instance) = upper(instance1);
Select printer_type
Into printer_typ
From fnd_printer
Where printer_name = printer;
Select Printer_Style_Name
Into P_PRINT_STYLE
From Fnd_Printer_styles
Where Printer_Style_Name = style;
Select 'X'
Into Dummy_fld
From Fnd_Printer_Information
Where Printer_Style = P_PRINT_STYLE
And Printer_Type = printer_typ;
select arguments
from fnd_conc_pp_actions
where concurrent_request_id = reqid
and action_type = 2
order by sequence;
Select printer_type
Into printer_typ
From fnd_printer
Where printer_name = printer;
Select 'X'
Into Dummy_fld
From Fnd_Printer_Information
Where Printer_Style = P_PRINT_STYLE
And Printer_Type = printer_typ;
select name, orig_system, orig_system_id
from wf_roles
where name = user_name;
Select concurrent_program_id
Into prog_id
From Fnd_concurrent_programs
Where concurrent_program_name = command
and application_id = 0;
Select Application_ID, sysdate
Into mgr_app_id, now
From Fnd_Application
Where Application_Short_Name = upper (service_app);
Select Concurrent_queue_id
Into mgr_id
From Fnd_Concurrent_queues
Where Application_id = mgr_app_id
and Concurrent_queue_name = service;
begin -- Update queue cntrl code
update fnd_concurrent_queues
set CONTROL_CODE = decode(prog_id, 0, 'A', 1, 'D', 2, 'V', 3, 'R',
4, 'T', 5, 'D', 6, 'A', 7, 'O', 8, 'Q', null)
where concurrent_queue_id = mgr_id
and application_id = mgr_app_id;
'ROUTINE', 'submit_svc_ctl_request(update)', FALSE);
end; -- update cntl code
Select concurrent_program_id
Into prog_id
From Fnd_concurrent_programs
Where concurrent_program_name = command
and application_id = 0;
Select Application_ID, sysdate
Into mgr_app_id, now
From Fnd_Application
Where Application_Short_Name = upper (application);
begin -- Update queue cntrl code
update fnd_concurrent_queues
set CONTROL_CODE = decode(prog_id, 0, 'A', 1, 'D', 2, 'V', 3, 'R',
4, 'T', 5, 'D', 6, 'A', 7, 'O', 8, 'Q', null)
where
/* either CM or TM and request is for mgrs (or both) */
(((manager_type = '1') or (manager_type = '3'))
and ((svc_type = 0) or (svc_type = 2)))
or /* or service and request is for services (or both) */
((manager_type > 999) and ((svc_type = 1) or (svc_type = 2)))
and application_id = mgr_app_id;
'ROUTINE', 'submit_svc_ctl_by_app(update)', FALSE);
end; -- update cntl code
Select concurrent_program_id
Into prog_id
From Fnd_concurrent_programs
Where concurrent_program_name = command
and application_id = 0;
Select service_id
Into svc_id
From Fnd_Cp_services
Where service_handle = service;
begin -- Update queue cntrl code
update fnd_concurrent_queues
set CONTROL_CODE = decode(prog_id, 0, 'A', 1, 'D', 2, 'V', 3, 'R',
4, 'T', 5, 'D', 6, 'A', 7, 'O', 8, 'Q', null)
where manager_type = to_char(svc_id);
'ROUTINE', 'submit_svc_ctl_by_svc(update)', FALSE);
end; -- update cntl code
Select concurrent_program_id
Into prog_id
From Fnd_concurrent_programs
Where concurrent_program_name = command
and application_id = 0;
begin -- Update queue cntrl code
update fnd_concurrent_queues
set CONTROL_CODE = decode(prog_id, 0, 'A', 1, 'D', 2, 'V', 3, 'R',
4, 'T', 5, 'D', 6, 'A', 7, 'O', 8, 'Q', null)
where manager_type in ('1','3','4','5');
'ROUTINE', 'submit_svc_ctl_cpinfra(update)', FALSE);
end; -- update cntl code
Select concurrent_program_id
Into prog_id
From Fnd_concurrent_programs
Where concurrent_program_name = command
and application_id = 0;
select fnd_debug_rules_s.nextval
into l_sequence
from sys.dual;
function update_fnd_debug_rules_req_id (
req_id IN number,
fnd_debug_rule_id IN number )
return boolean is
begin
begin
update fnd_debug_rules
set request_id = req_id
where debug_rule_id = fnd_debug_rule_id;
'ROUTINE', 'update_fnd_debug_rules_req_id', FALSE);
function delete_fnd_debug_rules_id (
fnd_debug_rule_id IN number )
return boolean is
l_count_rows number;
select count(*)
into l_count_rows
from fnd_debug_rules
where debug_rule_id = fnd_debug_rule_id;
delete from fnd_debug_rules
where debug_rule_id = fnd_debug_rule_id;
select count(*)
into l_count_rows
from fnd_debug_rule_options
where debug_rule_id = fnd_debug_rule_id;
delete from fnd_debug_rule_options
where debug_rule_id = fnd_debug_rule_id;
select value
from V$NLS_PARAMETERS
where parameter = param_name;
select count(*)
into l_lookup_cnt
from fnd_lookup_values_vl
where lookup_type = 'ICX_NUMERIC_CHARACTERS'
and lookup_code = num_char;
FUNCTION INSERT_USER_SCHEDULE(P_RELEASE_CLASS_NAME IN VARCHAR2,
P_REQUESTED_START_DATE IN VARCHAR2,
P_REQUESTED_END_DATE IN VARCHAR2,
P_REPEAT_INTERVAL IN NUMBER,
P_REPEAT_INTERVAL_UNIT in VARCHAR2,
P_REPEAT_INTERVAL_TYPE IN VARCHAR2,
P_CLASS_TYPE IN VARCHAR2,
P_CLASS_INFO IN VARCHAR2,
P_DESCRIPTION IN VARCHAR2
) RETURN BOOLEAN IS
P_REPEAT_VALUE VARCHAR2(10);
RELCLASS_INSERT_ERROR EXCEPTION;
Select FND_CONC_RELEASE_CLASSES_S.nextval, 0
into P_RELEASE_CLASS_ID, P_RELEASE_CLASS_APP_ID from Sys.dual;
SELECT (DECODE(P_CLASS_TYPE, 'P', Decode(P_REPEAT_INTERVAL_UNIT, NULL, NULL,
P_REPEAT_INTERVAL||':'||
Decode(P_REPEAT_INTERVAL_UNIT,
'MINUTES', 'N',
'MONTHS', 'M',
'HOURS', 'H',
'DAYS', 'D') || ':' ||
Decode(P_REPEAT_INTERVAL_TYPE,
'START', 'S', 'C')), NULL)) INTO P_REPEAT_VALUE FROM SYS.DUAL;
INSERT INTO FND_CONC_RELEASE_CLASSES
(APPLICATION_ID, RELEASE_CLASS_ID, RELEASE_CLASS_NAME,
ENABLED_FLAG, LAST_UPDATE_DATE, LAST_UPDATED_BY,
LAST_UPDATE_LOGIN, CREATION_DATE, CREATED_BY,
UPDATED_FLAG, DATE1, DATE2,
CLASS_TYPE, CLASS_INFO)
VALUES (P_RELEASE_CLASS_APP_ID, P_RELEASE_CLASS_ID, P_RELEASE_CLASS_NAME,
'Y', SYSDATE, FND_GLOBAL.USER_ID,
FND_GLOBAL.CONC_LOGIN_ID, SYSDATE, FND_GLOBAL.USER_ID,
'Y', decode(P_REPEAT_START_DATE, null, SYSDATE, P_REPEAT_START_DATE), P_REPEAT_END_DATE,
P_CLASS_TYPE, DECODE(P_CLASS_TYPE, 'P', P_REPEAT_VALUE, P_CLASS_INFO));
raise RELCLASS_INSERT_ERROR;
INSERT INTO FND_CONC_RELEASE_CLASSES_TL
(APPLICATION_ID, RELEASE_CLASS_ID,
LANGUAGE, SOURCE_LANG, USER_RELEASE_CLASS_NAME,
LAST_UPDATE_DATE, LAST_UPDATED_BY, LAST_UPDATE_LOGIN,
CREATION_DATE, CREATED_BY, DESCRIPTION)
SELECT P_RELEASE_CLASS_APP_ID, P_RELEASE_CLASS_ID,
L.LANGUAGE_CODE, USERENV('LANG'), P_RELEASE_CLASS_NAME,
SYSDATE, FND_GLOBAL.USER_ID, FND_GLOBAL.CONC_LOGIN_ID,
SYSDATE, FND_GLOBAL.USER_ID, P_DESCRIPTION
FROM FND_LANGUAGES L
WHERE L.INSTALLED_FLAG in ('I', 'B');
raise RELCLASS_INSERT_ERROR;
when RELCLASS_INSERT_ERROR then
fnd_message.set_name ('FND', 'CONC-RelClass insert failed');