The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT PER.period_name,
PER.start_date,
PER.end_date
FROM gl_periods PER
WHERE PER.period_set_name = p_period_set_name
AND PER.period_type = p_period_type
AND TRUNC( PER.end_date ) >= TRUNC( SYSDATE )
AND PER.adjustment_period_flag = 'N';
SELECT userenv( 'LANG' )
INTO lang_code
FROM sys.dual;
-- select unique number from sequence to name the new period and
-- the disjunction associated with it
SELECT TO_CHAR( gl_concurrent_schedules_s.NEXTVAL )
INTO curr_seq_val
FROM SYS.dual;
NO_UPDATE EXCEPTION;
-- select members of the class
CURSOR disj_cursor( p_class_id IN NUMBER ) IS
SELECT DISJ.disjunction_id, DISJ.disjunction_name, DISJ.rowid
FROM fnd_conc_release_disjs DISJ,
fnd_conc_rel_conj_members MEMB
WHERE DISJ.application_id = 101
AND MEMB.class_application_id = 101
AND MEMB.release_class_id = p_class_id
AND MEMB.disjunction_application_id = 101
AND MEMB.disjunction_id = DISJ.disjunction_id;
-- select members of the disjunction
CURSOR period_cursor( p_disj_id IN NUMBER ) IS
SELECT PER.concurrent_period_name, PER.rowid
FROM fnd_conc_release_periods PER,
fnd_conc_rel_disj_members MEMB
WHERE PER.application_id = 101
AND MEMB.disjunction_application_id = 101
AND MEMB.disjunction_id = p_disj_id
AND MEMB.period_or_state_flag = 'P'
AND MEMB.period_application_id = 101
AND MEMB.period_id = PER.concurrent_period_id;
-- select class_id given class name
return_code := -1;
SELECT CLS.release_class_id
INTO rel_class_id
FROM fnd_conc_release_classes CLS
WHERE CLS.application_id = 101
AND CLS.release_class_name = sched_name;
-- -2 : Update failed on fnd_conc_release_periods
-- return_code := -2;
-- -3 : Update failed on fnd_conc_release_disjs
-- return_code := -3;
WHEN NO_UPDATE THEN
RETURN ( return_code );
FUNCTION update_schedules ( x_period_set_name IN VARCHAR2 )
RETURN NUMBER IS
l_sched_name VARCHAR2(20);
SELECT SCH.schedule_name,
SCH.period_type,
SCH.run_day,
TO_CHAR( SCH.run_time, 'HH24:MI:SS' )
FROM gl_concurrent_schedules SCH
WHERE SCH.period_set_name = p_period_set_name;
UPDATE gl_concurrent_schedules SCH
SET SCH.enabled_flag = 'N'
WHERE SCH.schedule_name = l_sched_name;
UPDATE gl_concurrent_schedules SCH
SET SCH.enabled_flag = 'N'
WHERE SCH.schedule_name = l_sched_name;
END update_schedules;