The following lines contain the word 'select', 'insert', 'update' or 'delete':
select
run_type_id
,run_type_name
,run_method
,effective_start_date
,effective_end_date
,business_group_id
,legislation_code
,shortname
,srs_flag
,run_information_category
,run_information1
,run_information2
,run_information3
,run_information4
,run_information5
,run_information6
,run_information7
,run_information8
,run_information9
,run_information10
,run_information11
,run_information12
,run_information13
,run_information14
,run_information15
,run_information16
,run_information17
,run_information18
,run_information19
,run_information20
,run_information21
,run_information22
,run_information23
,run_information24
,run_information25
,run_information26
,run_information27
,run_information28
,run_information29
,run_information30
,object_version_number
from pay_run_types_f
where run_type_id = p_run_type_id
and p_effective_date
between effective_start_date and effective_end_date;
'select t.effective_start_date, ' ||
' t.effective_end_date ' ||
'from '||p_base_table_name||' t ' ||
'where t.'||p_base_key_column||' = :p_base_key_value ' ||
'and :p_effective_date ' ||
'between t.effective_start_date and t.effective_end_date';
'select max(t.effective_end_date) '||
'from '||p_base_table_name||' t '||
'where t.'||p_base_key_column||' = :p_base_key_value';
'select min(t.effective_start_date) '||
'from '||p_base_table_name||' t '||
'where t.'||p_base_key_column||' = :p_base_key_value';
'select 1 ' ||
'from '||p_table_name||' t1 ' ||
'where t1.'||p_key_column||' = :p_key_value ' ||
'and t1.effective_end_date >= :p_effective_date ' ||
'order by t1.effective_start_date ' ||
'for update nowait';
'select t1.effective_end_date effective_end_date ' ||
'from '||p_child_table_name||' t1 ' ||
'where (t1.'||p_child_key_column||', ' ||
' t1.effective_start_date, ' ||
' t1.effective_end_date) in ' ||
' (select t2.'||p_child_key_column||', ' ||
' max(t2.effective_start_date), ' ||
' max(t2.effective_end_date) ' ||
' from '||p_child_table_name||' t2 ' ||
' where t2.'||p_child_fk_column||' = :p_parent_key_value ' ||
' group by t2.'||p_child_key_column||')' ||
'order by t1.'||p_child_key_column||' ' ||
'for update nowait';
hr_utility.set_message(801, 'HR_7201_DT_NO_DELETE_CHILD');
Procedure Get_Insert_Dates
(p_effective_date in date,
p_base_table_name in varchar2,
p_base_key_column in varchar2,
p_base_key_value in number,
p_parent_table_name1 in varchar2 default hr_api.g_varchar2,
p_parent_key_column1 in varchar2 default hr_api.g_varchar2,
p_parent_key_value1 in number default hr_api.g_number,
/*
p_parent_table_name2 in varchar2 default hr_api.g_varchar2,
p_parent_key_column2 in varchar2 default hr_api.g_varchar2,
p_parent_key_value2 in number default hr_api.g_number,
p_parent_table_name3 in varchar2 default hr_api.g_varchar2,
p_parent_key_column3 in varchar2 default hr_api.g_varchar2,
p_parent_key_value3 in number default hr_api.g_number,
p_parent_table_name4 in varchar2 default hr_api.g_varchar2,
p_parent_key_column4 in varchar2 default hr_api.g_varchar2,
p_parent_key_value4 in number default hr_api.g_number,
p_parent_table_name5 in varchar2 default hr_api.g_varchar2,
p_parent_key_column5 in varchar2 default hr_api.g_varchar2,
p_parent_key_value5 in number default hr_api.g_number,
p_parent_table_name6 in varchar2 default hr_api.g_varchar2,
p_parent_key_column6 in varchar2 default hr_api.g_varchar2,
p_parent_key_value6 in number default hr_api.g_number,
p_parent_table_name7 in varchar2 default hr_api.g_varchar2,
p_parent_key_column7 in varchar2 default hr_api.g_varchar2,
p_parent_key_value7 in number default hr_api.g_number,
p_parent_table_name8 in varchar2 default hr_api.g_varchar2,
p_parent_key_column8 in varchar2 default hr_api.g_varchar2,
p_parent_key_value8 in number default hr_api.g_number,
p_parent_table_name9 in varchar2 default hr_api.g_varchar2,
p_parent_key_column9 in varchar2 default hr_api.g_varchar2,
p_parent_key_value9 in number default hr_api.g_number,
p_parent_table_name10 in varchar2 default hr_api.g_varchar2,
p_parent_key_column10 in varchar2 default hr_api.g_varchar2,
p_parent_key_value10 in number default hr_api.g_number,
*/
p_enforce_foreign_locking in boolean,
p_validation_start_date out nocopy date,
p_validation_end_date out nocopy date) Is
--
l_proc varchar2(72) := g_package||'Get_Insert_Dates';
End Get_Insert_Dates;
Procedure Get_Update_Dates
(p_effective_date in date,
p_base_table_name in varchar2,
p_base_key_column in varchar2,
p_base_key_value in number,
p_validation_start_date out nocopy date,
p_validation_end_date out nocopy date) Is
--
l_proc varchar2(72) := g_package||'Get_Update_Dates';
End Get_Update_Dates;
Procedure Get_Update_Override_Dates
(p_effective_date in date,
p_base_table_name in varchar2,
p_base_key_column in varchar2,
p_base_key_value in number,
p_validation_start_date out nocopy date,
p_validation_end_date out nocopy date) Is
--
l_proc varchar2(72) := g_package||
'Get_Update_Override_Dates';
hr_utility.set_message_token('DT_MODE', 'update override');
End Get_Update_Override_Dates;
Procedure Get_Update_Change_Insert_Dates
(p_effective_date in date,
p_base_table_name in varchar2,
p_base_key_column in varchar2,
p_base_key_value in number,
p_validation_start_date out nocopy date,
p_validation_end_date out nocopy date) Is
--
l_proc varchar2(72) := g_package||
'Get_Update_Change_Insert_Dates';
hr_utility.set_message_token('DT_MODE', 'update change insert');
End Get_Update_Change_Insert_Dates;
Procedure Get_Delete_Dates
(p_effective_date in date,
p_base_table_name in varchar2,
p_base_key_column in varchar2,
p_base_key_value in number,
p_child_table_name1 in varchar2 default hr_api.g_varchar2,
p_child_key_column1 in varchar2 default hr_api.g_varchar2,
p_child_fk_column1 in varchar2 default hr_api.g_varchar2,
p_child_table_name2 in varchar2 default hr_api.g_varchar2,
p_child_key_column2 in varchar2 default hr_api.g_varchar2,
p_child_fk_column2 in varchar2 default hr_api.g_varchar2,
p_enforce_foreign_locking in boolean default true,
p_validation_start_date out nocopy date,
p_validation_end_date out nocopy date) Is
--
l_proc varchar2(72) := g_package||'Get_Delete_Dates';
End Get_Delete_Dates;
Procedure Get_Delete_Next_Change_Dates
(p_effective_date in date,
p_base_table_name in varchar2,
p_base_key_column in varchar2,
p_base_key_value in number,
p_parent_table_name1 in varchar2 default hr_api.g_varchar2,
p_parent_key_column1 in varchar2 default hr_api.g_varchar2,
p_parent_key_value1 in number default hr_api.g_number,
/*
p_parent_table_name2 in varchar2 default hr_api.g_varchar2,
p_parent_key_column2 in varchar2 default hr_api.g_varchar2,
p_parent_key_value2 in number default hr_api.g_number,
p_parent_table_name3 in varchar2 default hr_api.g_varchar2,
p_parent_key_column3 in varchar2 default hr_api.g_varchar2,
p_parent_key_value3 in number default hr_api.g_number,
p_parent_table_name4 in varchar2 default hr_api.g_varchar2,
p_parent_key_column4 in varchar2 default hr_api.g_varchar2,
p_parent_key_value4 in number default hr_api.g_number,
p_parent_table_name5 in varchar2 default hr_api.g_varchar2,
p_parent_key_column5 in varchar2 default hr_api.g_varchar2,
p_parent_key_value5 in number default hr_api.g_number,
p_parent_table_name6 in varchar2 default hr_api.g_varchar2,
p_parent_key_column6 in varchar2 default hr_api.g_varchar2,
p_parent_key_value6 in number default hr_api.g_number,
p_parent_table_name7 in varchar2 default hr_api.g_varchar2,
p_parent_key_column7 in varchar2 default hr_api.g_varchar2,
p_parent_key_value7 in number default hr_api.g_number,
p_parent_table_name8 in varchar2 default hr_api.g_varchar2,
p_parent_key_column8 in varchar2 default hr_api.g_varchar2,
p_parent_key_value8 in number default hr_api.g_number,
p_parent_table_name9 in varchar2 default hr_api.g_varchar2,
p_parent_key_column9 in varchar2 default hr_api.g_varchar2,
p_parent_key_value9 in number default hr_api.g_number,
p_parent_table_name10 in varchar2 default hr_api.g_varchar2,
p_parent_key_column10 in varchar2 default hr_api.g_varchar2,
p_parent_key_value10 in number default hr_api.g_number,
*/
p_validation_start_date out nocopy date,
p_validation_end_date out nocopy date) Is
--
l_proc varchar2(72) := g_package||'Get_Delete_Next_Change_Dates';
hr_utility.set_message_token('DT_MODE', ' delete next change');
End Get_Delete_Next_Change_Dates;
If (l_datetrack_mode = hr_api.g_update_override or
l_datetrack_mode = hr_api.g_delete or
l_datetrack_mode = hr_api.g_future_change or
l_datetrack_mode = hr_api.g_delete_next_change) then
--
-- Perform the entity range row locking processing
--
Lck_Future_Rows
(p_effective_date => p_effective_date,
p_table_name => p_base_table_name,
p_key_column => p_base_key_column,
p_key_value => p_base_key_value);
If (l_datetrack_mode = hr_api.g_insert) then
--
Get_Insert_Dates
(p_effective_date => p_effective_date,
p_base_table_name => p_base_table_name,
p_base_key_column => p_base_key_column,
p_base_key_value => p_base_key_value,
p_parent_table_name1 => p_parent_table_name1,
p_parent_key_column1 => p_parent_key_column1,
p_parent_key_value1 => p_parent_key_value1,
/*
p_parent_table_name2 => p_parent_table_name2,
p_parent_key_column2 => p_parent_key_column2,
p_parent_key_value2 => p_parent_key_value2,
p_parent_table_name3 => p_parent_table_name3,
p_parent_key_column3 => p_parent_key_column3,
p_parent_key_value3 => p_parent_key_value3,
p_parent_table_name4 => p_parent_table_name4,
p_parent_key_column4 => p_parent_key_column4,
p_parent_key_value4 => p_parent_key_value4,
p_parent_table_name5 => p_parent_table_name5,
p_parent_key_column5 => p_parent_key_column5,
p_parent_key_value5 => p_parent_key_value5,
p_parent_table_name6 => p_parent_table_name6,
p_parent_key_column6 => p_parent_key_column6,
p_parent_key_value6 => p_parent_key_value6,
p_parent_table_name7 => p_parent_table_name7,
p_parent_key_column7 => p_parent_key_column7,
p_parent_key_value7 => p_parent_key_value7,
p_parent_table_name8 => p_parent_table_name8,
p_parent_key_column8 => p_parent_key_column8,
p_parent_key_value8 => p_parent_key_value8,
p_parent_table_name9 => p_parent_table_name9,
p_parent_key_column9 => p_parent_key_column9,
p_parent_key_value9 => p_parent_key_value9,
p_parent_table_name10 => p_parent_table_name10,
p_parent_key_column10 => p_parent_key_column10,
p_parent_key_value10 => p_parent_key_value10,
*/
p_enforce_foreign_locking => p_enforce_foreign_locking,
p_validation_start_date => p_validation_start_date,
p_validation_end_date => p_validation_end_date);
ElsIf (l_datetrack_mode = hr_api.g_update) then
--
Get_Update_Dates
(p_effective_date => p_effective_date,
p_base_table_name => p_base_table_name,
p_base_key_column => p_base_key_column,
p_base_key_value => p_base_key_value,
p_validation_start_date => p_validation_start_date,
p_validation_end_date => p_validation_end_date);
ElsIf (l_datetrack_mode = hr_api.g_update_override) then
--
Get_Update_Override_Dates
(p_effective_date => p_effective_date,
p_base_table_name => p_base_table_name,
p_base_key_column => p_base_key_column,
p_base_key_value => p_base_key_value,
p_validation_start_date => p_validation_start_date,
p_validation_end_date => p_validation_end_date);
ElsIf (l_datetrack_mode = hr_api.g_update_change_insert) then
--
Get_Update_Change_Insert_Dates
(p_effective_date => p_effective_date,
p_base_table_name => p_base_table_name,
p_base_key_column => p_base_key_column,
p_base_key_value => p_base_key_value,
p_validation_start_date => p_validation_start_date,
p_validation_end_date => p_validation_end_date);
ElsIf (l_datetrack_mode = hr_api.g_delete) then
-- if (l_datetrack_mode = hr_api.g_delete) then
--
Get_Delete_Dates
(p_effective_date => p_effective_date,
p_base_table_name => p_base_table_name,
p_base_key_column => p_base_key_column,
p_base_key_value => p_base_key_value,
p_child_table_name1 => p_child_table_name1,
p_child_key_column1 => p_child_key_column1,
p_child_fk_column1 => p_child_fk_column1,
p_child_table_name2 => p_child_table_name2,
p_child_key_column2 => p_child_key_column2,
p_child_fk_column2 => p_child_fk_column2,
p_enforce_foreign_locking => p_enforce_foreign_locking,
p_validation_start_date => p_validation_start_date,
p_validation_end_date => p_validation_end_date);
ElsIf (l_datetrack_mode = hr_api.g_delete_next_change) then
--
Get_Delete_Next_Change_Dates
(p_effective_date => p_effective_date,
p_base_table_name => p_base_table_name,
p_base_key_column => p_base_key_column,
p_base_key_value => p_base_key_value,
p_parent_table_name1 => p_parent_table_name1,
p_parent_key_column1 => p_parent_key_column1,
p_parent_key_value1 => p_parent_key_value1,
/*
p_parent_table_name2 => p_parent_table_name2,
p_parent_key_column2 => p_parent_key_column2,
p_parent_key_value2 => p_parent_key_value2,
p_parent_table_name3 => p_parent_table_name3,
p_parent_key_column3 => p_parent_key_column3,
p_parent_key_value3 => p_parent_key_value3,
p_parent_table_name4 => p_parent_table_name4,
p_parent_key_column4 => p_parent_key_column4,
p_parent_key_value4 => p_parent_key_value4,
p_parent_table_name5 => p_parent_table_name5,
p_parent_key_column5 => p_parent_key_column5,
p_parent_key_value5 => p_parent_key_value5,
p_parent_table_name6 => p_parent_table_name6,
p_parent_key_column6 => p_parent_key_column6,
p_parent_key_value6 => p_parent_key_value6,
p_parent_table_name7 => p_parent_table_name7,
p_parent_key_column7 => p_parent_key_column7,
p_parent_key_value7 => p_parent_key_value7,
p_parent_table_name8 => p_parent_table_name8,
p_parent_key_column8 => p_parent_key_column8,
p_parent_key_value8 => p_parent_key_value8,
p_parent_table_name9 => p_parent_table_name9,
p_parent_key_column9 => p_parent_key_column9,
p_parent_key_value9 => p_parent_key_value9,
p_parent_table_name10 => p_parent_table_name10,
p_parent_key_column10 => p_parent_key_column10,
p_parent_key_value10 => p_parent_key_value10,
*/
p_validation_start_date => p_validation_start_date,
p_validation_end_date => p_validation_end_date);
,p_update out nocopy boolean
,p_update_override out nocopy boolean
,p_update_change_insert out nocopy boolean
) is
--
l_proc varchar2(72) := g_package||'find_dt_upd_modes';
,p_update => p_update
,p_update_override => p_update_override
,p_update_change_insert => p_update_change_insert
);
if p_update then
p_update := false;
if p_update_override then
p_update_override := false;
if p_update_change_insert then
p_update_change_insert := false;
,p_delete out nocopy boolean
,p_future_change out nocopy boolean
,p_delete_next_change out nocopy boolean
) is
--
l_proc varchar2(72) := g_package||'find_dt_del_modes';
,p_delete => p_delete
,p_future_change => p_future_change
,p_delete_next_change => p_delete_next_change
);
update pay_run_types_f t
set t.effective_end_date = p_new_effective_end_date
, t.object_version_number = l_object_version_number
where t.run_type_id = p_base_key_value
and p_effective_date
between t.effective_start_date and t.effective_end_date;
select
run_type_id
,run_type_name
,run_method
,effective_start_date
,effective_end_date
,business_group_id
,legislation_code
,shortname
,srs_flag
,run_information_category
,run_information1
,run_information2
,run_information3
,run_information4
,run_information5
,run_information6
,run_information7
,run_information8
,run_information9
,run_information10
,run_information11
,run_information12
,run_information13
,run_information14
,run_information15
,run_information16
,run_information17
,run_information18
,run_information19
,run_information20
,run_information21
,run_information22
,run_information23
,run_information24
,run_information25
,run_information26
,run_information27
,run_information28
,run_information29
,run_information30
,object_version_number
from pay_run_types_f
where run_type_id = p_run_type_id
and p_effective_date
between effective_start_date and effective_end_date
for update nowait;
If (p_datetrack_mode <> hr_api.g_insert) then
--
-- We must select and lock the current row.
--
Open C_Sel1;