The following lines contain the word 'select', 'insert', 'update' or 'delete':
FUNCTION last_updated_by_f RETURN NUMBER IS
BEGIN
RETURN created_by_f;
FUNCTION last_update_date_f RETURN DATE IS
BEGIN
RETURN creation_date_f;
FUNCTION last_update_login_f RETURN NUMBER IS
BEGIN
return 0;
SELECT application_id
INTO application_id_ret
FROM fnd_application
WHERE application_short_name = application_name_in;
SELECT application_id
INTO application_id_ret
FROM fnd_application_tl
WHERE application_name = application_name_in
AND rownum = 1;
SELECT Release_Class_id
INTO class_id
FROM fnd_conc_release_classes
WHERE application_id = class_application_id
AND class_name = release_class_name;
SELECT Disjunction_id
INTO disj_id FROM fnd_conc_release_Disjs
WHERE application_id = disj_application_id
AND disj_name = Disjunction_name;
SELECT Concurrent_Period_id
INTO period_id
FROM fnd_conc_release_periods
WHERE application_id = period_application_id
AND period_name = Concurrent_Period_name;
SELECT concurrent_state_id
INTO state_id
FROM fnd_conc_release_states
WHERE application_id = state_application_id
AND state_name = Concurrent_state_name;
SELECT LOOKUP_TYPE_ID
INTO val_set_id
FROM FND_CONC_STATE_LOOKUP_TYPES
WHERE val_set_name = LOOKUP_TYPE_NAME;
SELECT LOOKUP_VALUE
INTO val_id
FROM FND_CONC_STATE_LOOKUPS_TL L
WHERE L.LOOKUP_TYPE_ID = set_id
and L.MEANING = value_name
and rownum = 1;
my_last_update_login number := last_update_login_f;
my_last_update_date date := last_update_date_f;
my_last_updated_by number := last_updated_by_f;
update FND_CONC_RELEASE_STATES
SET STATUS = 1,
LAST_UPDATE_DATE = my_last_update_date,
last_updated_by = my_last_updated_by,
last_update_login = my_last_update_login,
creation_date = my_creation_date,
created_by = my_created_by
WHERE APPLICATION_ID = 0
AND CONCURRENT_STATE_NAME = 'AFPSCHED_STATUS';
l_last_update_login number := last_update_login_f;
l_last_update_date date := last_update_date_f;
l_last_updated_by number := last_updated_by_f;
SELECT language_code
FROM fnd_languages
WHERE installed_flag IN ('I', 'B');
/* Do the update */
update fnd_conc_release_classes c
set c.enabled_flag = 'Y',
c.last_update_date = l_last_update_date,
c.last_updated_by = l_last_updated_by,
c.last_update_login = l_last_update_login
where c.application_id = appl_id
and c.release_class_name = Class_Name;
l_last_update_login number := last_update_login_f;
l_last_update_date date := last_update_date_f;
l_last_updated_by number := last_updated_by_f;
SELECT language_code
FROM fnd_languages
WHERE installed_flag IN ('I', 'B');
/* Do the update */
update fnd_conc_release_classes c
set c.enabled_flag = 'N',
c.last_update_date = l_last_update_date,
c.last_updated_by = l_last_updated_by,
c.last_update_login = l_last_update_login
where c.application_id = appl_id
and c.release_class_name = Class_Name;
l_last_update_login number := last_update_login_f;
l_last_update_date date := last_update_date_f;
l_last_updated_by number := last_updated_by_f;
SELECT language_code
FROM fnd_languages
WHERE installed_flag IN ('I', 'B');
/* Do the update */
update fnd_conc_release_classes c
set RESUBMIT_INTERVAL= Resub_Interval,
RESUBMIT_INTERVAL_UNIT_CODE = Resub_Int_Unit_Code,
RESUBMIT_INTERVAL_TYPE_CODE = Resub_Int_Type_Code,
c.last_update_date = l_last_update_date,
c.last_updated_by = l_last_updated_by,
c.last_update_login = l_last_update_login
where c.application_id = appl_id
and c.release_class_name = Class_Name;
last_update_login number := last_update_login_f;
last_update_date date := last_update_date_f;
last_updated_by number := last_updated_by_f;
SELECT language_code
FROM fnd_languages
WHERE installed_flag IN ('I', 'B');
select fnd_conc_release_classes_s.nextval
into obj_id
from sys.dual;
/* Do the insert */
insert into fnd_conc_release_classes
(application_id, release_class_id, release_class_name,
enabled_flag, class_type,
last_update_date, last_updated_by, last_update_login,
creation_date, created_by, updated_flag)
values
(appl_id, obj_id, Class_Name,
'Y', 'X',
last_update_date, last_updated_by, last_update_login,
creation_date, created_by, 'Y');
insert into fnd_conc_release_classes_tl
(application_id, release_class_id, language,
creation_date, created_by,
last_update_date, last_updated_by, last_update_login,
description, user_release_class_name, source_lang)
values
(appl_id, obj_id, lang_rec.language_code,
creation_date, created_by,
last_update_date, last_updated_by, last_update_login,
description, User_Class_Name, cur_lang);
select 'Y'
into dummy
from fnd_conc_release_classes
where application_id = appl_id
and release_class_name = Class_Name
and rownum = 1;
last_update_login number := last_update_login_f;
last_update_date date := last_update_date_f;
last_updated_by number := last_updated_by_f;
insert into FND_CONC_REL_CONJ_MEMBERS
(CLASS_APPLICATION_ID, RELEASE_CLASS_ID, DISJUNCTION_APPLICATION_ID,
DISJUNCTION_ID, created_by, last_update_login,
last_update_date, last_updated_by, creation_date)
Values
(c_app_id, c_id, d_app_id, d_id, created_by, last_update_login,
last_update_date, last_updated_by, creation_date);
update FND_CONC_RELEASE_CLASSES
set updated_flag = 'Y'
where APPLICATION_ID = c_app_id
and RELEASE_CLASS_ID = c_id;
DELETE FROM FND_CONC_REL_CONJ_MEMBERS
WHERE CLASS_APPLICATION_ID = c_app_id
AND RELEASE_CLASS_ID = c_id
AND DISJUNCTION_APPLICATION_ID = d_app_id
AND DISJUNCTION_ID = d_id;
select 'Y'
into dummy
from fnd_conc_rel_conj_members
where CLASS_APPLICATION_ID = c_appl_id
and RELEASE_CLASS_ID = c_id
and DISJUNCTION_APPLICATION_ID = d_appl_id
and DISJUNCTION_ID = d_id
and rownum = 1;
last_update_login number := last_update_login_f;
last_update_date date := last_update_date_f;
last_updated_by number := last_updated_by_f;
SELECT language_code
FROM fnd_languages
WHERE installed_flag IN ('I', 'B');
select fnd_conc_release_disjs_s.nextval
into obj_id
from sys.dual;
/* Do the insert */
insert into fnd_conc_release_disjs
(application_id, disjunction_id, disjunction_name,
enabled_flag,
last_update_date, last_updated_by, last_update_login,
creation_date, created_by, updated_flag)
values
(appl_id, obj_id, Disj_Name,
'Y',
last_update_date, last_updated_by, last_update_login,
creation_date, created_by, 'Y');
insert into fnd_conc_release_disjs_tl
(application_id, disjunction_id, language,
creation_date, created_by,
last_update_date, last_updated_by, last_update_login,
description, user_disjunction_name, source_lang)
values
(appl_id, obj_id, lang_rec.language_code,
creation_date, created_by,
last_update_date, last_updated_by, last_update_login,
description, User_Disj_Name, cur_lang);
select 'Y'
into dummy
from fnd_conc_release_Disjs
where application_id = appl_id
and Disjunction_name = Disj_Name
and rownum = 1;
last_update_login number := last_update_login_f;
last_update_date date := last_update_date_f;
last_updated_by number := last_updated_by_f;
SELECT lookup_type_id
into t_id
from fnd_CONC_RELEASE_STATES
where CONCURRENT_STATE_ID = s_id
and application_id = s_app_id;
insert into FND_CONC_REL_DISJ_MEMBERS
(DISJUNCTION_APPLICATION_ID, DISJUNCTION_ID, STATE_APPLICATION_ID,
STATE_ID, STATUS_VALUE, NEGATION_FLAG,
PERIOD_OR_STATE_FLAG, created_by,
last_update_login, last_update_date, last_updated_by, creation_date)
Values
(d_app_id, d_id, s_app_id, s_id, v_id, Negation_Flag,
'S', created_by,
last_update_login, last_update_date, last_updated_by, creation_date);
update FND_CONC_RELEASE_DISJS
set updated_flag = 'Y'
where APPLICATION_ID = d_app_id
and DISJUNCTION_ID = d_id;
last_update_login number := last_update_login_f;
last_update_date date := last_update_date_f;
last_updated_by number := last_updated_by_f;
insert into FND_CONC_REL_DISJ_MEMBERS
(DISJUNCTION_APPLICATION_ID, DISJUNCTION_ID, PERIOD_APPLICATION_ID,
PERIOD_ID,PERIOD_OR_STATE_FLAG,NEGATION_FLAG,created_by,
last_update_login, last_update_date, last_updated_by, creation_date)
Values
(d_app_id, d_id, p_app_id, p_id, 'P', Negation_Flag, created_by,
last_update_login, last_update_date, last_updated_by, creation_date);
update FND_CONC_RELEASE_DISJS
set updated_flag = 'Y'
where APPLICATION_ID = d_app_id
and DISJUNCTION_ID = d_id;
DELETE FROM FND_CONC_REL_DISJ_MEMBERS
WHERE DISJUNCTION_APPLICATION_ID = d_app_id
AND DISJUNCTION_ID = d_id
AND PERIOD_OR_STATE_FLAG = Member_Type
AND DECODE(Member_Type, 'S', STATE_APPLICATION_ID,
PERIOD_APPLICATION_ID) = m_app_id
AND DECODE(Member_Type, 'S', STATE_ID,
PERIOD_ID) = m_id;
select 'Y'
into dummy
from fnd_conc_rel_disj_members
where DISJUNCTION_APPLICATION_ID = d_app_id
and DISJUNCTION_ID = d_id
and PERIOD_OR_STATE_FLAG = Member_Type
AND DECODE(Member_Type, 'S', STATE_APPLICATION_ID,
PERIOD_APPLICATION_ID) = m_app_id
AND DECODE(Member_Type, 'S', STATE_ID,
PERIOD_ID) = m_id
and rownum = 1;
select 'Y'
into dummy
from fnd_conc_release_periods
where application_id = appl_id
and Concurrent_period_name = Period_Name
and rownum = 1;
last_update_login number := last_update_login_f;
last_update_date date := last_update_date_f;
last_updated_by number := last_updated_by_f;
SELECT language_code
FROM fnd_languages
WHERE installed_flag IN ('I', 'B');
select fnd_conc_release_periods_s.nextval
into obj_id
from sys.dual;
/* Do the insert */
insert into fnd_conc_release_periods
(application_id, concurrent_period_id,
concurrent_period_name, enabled_flag, Periodicity_code,
Period_Length, Period_Start_time, Period_Stop_time,
last_update_date, last_updated_by, last_update_login,
creation_date, created_by, updated_flag)
values
(appl_id, obj_id, Period_Name, 'Y', Period_Type,
Period_Length, Period_Start, Period_Stop,
last_update_date, last_updated_by, last_update_login,
creation_date, created_by, 'Y');
insert into fnd_conc_release_periods_tl
(application_id, concurrent_period_id, language,
creation_date, created_by,
last_update_date, last_updated_by, last_update_login,
description, user_concurrent_period_name, source_lang)
values
(appl_id, obj_id, lang_rec.language_code,
creation_date, created_by,
last_update_date, last_updated_by, last_update_login,
description, User_period_Name, cur_lang);
last_update_login number := last_update_login_f;
last_update_date date := last_update_date_f;
last_updated_by number := last_updated_by_f;
SELECT language_code
FROM fnd_languages
WHERE installed_flag IN ('I', 'B');
select FND_CONC_STATE_LOOKUP_TYPES_S.nextval
into obj_id
from sys.dual;
/* Do the insert */
insert into FND_CONC_STATE_LOOKUP_TYPES
(LOOKUP_TYPE_ID, LOOKUP_TYPE_NAME, enabled_flag,
last_update_date, last_updated_by, last_update_login,
creation_date, created_by)
values
(obj_id, Set_Name, 'Y',
last_update_date, last_updated_by, last_update_login,
creation_date, created_by);
insert into FND_CONC_STATE_LOOKUP_TYPES_TL
(LOOKUP_TYPE_ID, language,
creation_date, created_by,
last_update_date, last_updated_by, last_update_login,
description, USER_LOOKUP_TYPE_NAME, source_lang)
values
(obj_id, lang_rec.language_code,
creation_date, created_by,
last_update_date, last_updated_by, last_update_login,
description, User_set_Name, cur_lang);
last_update_login number := last_update_login_f;
last_update_date date := last_update_date_f;
last_updated_by number := last_updated_by_f;
SELECT language_code
FROM fnd_languages
WHERE installed_flag IN ('I', 'B');
select FND_CONC_STATE_LOOKUPS_S.nextval
into obj_id
from sys.dual;
/* Do the insert */
insert into FND_CONC_STATE_LOOKUPS
(LOOKUP_TYPE_ID, LOOKUP_VALUE, enabled_flag,
last_update_date, last_updated_by, last_update_login,
creation_date, created_by)
values
(t_id, obj_id, 'Y',
last_update_date, last_updated_by, last_update_login,
creation_date, created_by);
insert into FND_CONC_STATE_LOOKUPS_TL
(LOOKUP_TYPE_ID, LOOKUP_VALUE, language, MEANING,
creation_date, created_by,
last_update_date, last_updated_by, last_update_login,
description, source_lang)
values
(t_id, obj_id, lang_rec.language_code, Value_Name,
creation_date, created_by,
last_update_date, last_updated_by, last_update_login,
description, cur_lang);
select 'Y'
into dummy
from fnd_conc_state_lookup_types
where LOOKUP_TYPE_NAME= Set_Name
and rownum = 1;
select 'Y'
into dummy
from fnd_conc_state_lookups_tl
where meaning=Value_Name
and LOOKUP_TYPE_ID = t_id
and rownum = 1;
last_update_login number := last_update_login_f;
last_update_date date := last_update_date_f;
last_updated_by number := last_updated_by_f;
SELECT language_code
FROM fnd_languages
WHERE installed_flag IN ('I', 'B');
select fnd_conc_release_states_s.nextval
into obj_id
from sys.dual;
/* Do the insert */
insert into fnd_conc_release_states
(application_id, concurrent_state_id,
concurrent_state_name, enabled_flag, LOOKUP_TYPE_ID, STATUS,
last_update_date, last_updated_by, last_update_login,
creation_date, created_by, updated_flag)
values
(appl_id, obj_id, State_Name, 'Y', t_id, v_id,
last_update_date, last_updated_by, last_update_login,
creation_date, created_by, 'Y');
insert into fnd_conc_release_states_tl
(application_id, concurrent_state_id, language,
creation_date, created_by,
last_update_date, last_updated_by, last_update_login,
description, USER_CONCURRENT_STATE_NAME, source_lang)
values
(appl_id, obj_id, lang_rec.language_code,
creation_date, created_by,
last_update_date, last_updated_by, last_update_login,
description, User_state_Name, cur_lang);
select 'Y'
into dummy
from fnd_conc_release_States
where application_id = appl_id
and Concurrent_state_name = state_Name
and rownum = 1;