The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure get_update_mode_list
(p_effective_date in date
,p_package_name in varchar2
,p_procedure_name in varchar2
,p_base_key_value in number
,p_correction out nocopy boolean
,p_update out nocopy boolean
,p_update_override out nocopy boolean
,p_update_change_insert out nocopy boolean
) is
--
-- Local constants
--
c_out_len constant integer := 6; -- Value must correspond to the length
l_update varchar2(6); -- Char version of boolean OUT value
l_update_override varchar2(6); -- Char version of boolean OUT value
l_update_change_insert varchar2(6); -- Char version of boolean OUT value
l_proc varchar2(72) := g_package||'get_update_mode_list';
'l_update boolean; ' ||
'l_update_override boolean; ' ||
'l_update_change_insert boolean; ' ||
',p_update =>l_update ' ||
',p_update_override =>l_update_override ' ||
',p_update_change_insert =>l_update_change_insert ' ||
'); ' ||
'if l_update then ' ||
' :update := '||''''||g_true_str||''''||'; ' ||
' :update := '||''''||g_false_str||''''||'; ' ||
'if l_update_override then ' ||
' :update_override := '||''''||g_true_str||''''||'; ' ||
' :update_override := '||''''||g_false_str||''''||'; ' ||
'if l_update_change_insert then ' ||
' :update_change_insert := '||''''||g_true_str||''''||'; ' ||
' :update_change_insert := '||''''||g_false_str||''''||'; ' ||
dbms_sql.bind_variable(l_cursor, ':update', l_update, c_out_len);
dbms_sql.bind_variable(l_cursor, ':update_override'
,l_update_override, c_out_len);
dbms_sql.bind_variable(l_cursor, ':update_change_insert'
,l_update_change_insert, c_out_len);
dbms_sql.variable_value(l_cursor, ':update', l_update);
dbms_sql.variable_value(l_cursor, ':update_override', l_update_override);
dbms_sql.variable_value(l_cursor, ':update_change_insert'
,l_update_change_insert);
if l_update = g_true_str then
p_update := true;
p_update := false;
if l_update_override = g_true_str then
p_update_override := true;
p_update_override := false;
if l_update_change_insert = g_true_str then
p_update_change_insert := true;
p_update_change_insert := false;
end get_update_mode_list;
procedure get_delete_mode_list
(p_effective_date in date
,p_package_name in varchar2
,p_procedure_name in varchar2
,p_base_key_value in number
,p_zap out nocopy boolean
,p_delete out nocopy boolean
,p_future_change out nocopy boolean
,p_delete_next_change out nocopy boolean
) is
--
-- Local constants
--
c_out_len constant integer := 6; -- Value must correspond to the length
l_delete varchar2(6); -- Char version of boolean OUT value
l_delete_next_change varchar2(6); -- Char version of boolean OUT value
l_proc varchar2(72) := g_package||'get_delete_mode_list';
'l_delete boolean; ' ||
'l_delete_next_change boolean; ' ||
',p_delete =>l_delete ' ||
',p_future_change =>l_future_change ' ||
',p_delete_next_change =>l_delete_next_change ' ||
'); ' ||
'if l_delete then ' ||
' :delete := '||''''||g_true_str||''''||'; ' ||
' :delete := '||''''||g_false_str||''''||'; ' ||
'if l_delete_next_change then ' ||
' :delete_next_change := '||''''||g_true_str||''''||'; ' ||
' :delete_next_change := '||''''||g_false_str||''''||'; ' ||
dbms_sql.bind_variable(l_cursor, ':delete', l_delete, c_out_len);
dbms_sql.bind_variable(l_cursor, ':delete_next_change'
,l_delete_next_change, c_out_len);
dbms_sql.variable_value(l_cursor, ':delete', l_delete);
dbms_sql.variable_value(l_cursor, ':delete_next_change'
,l_delete_next_change);
if l_delete = g_true_str then
p_delete := true;
p_delete := false;
if l_delete_next_change = g_true_str then
p_delete_next_change := true;
p_delete_next_change := false;
end get_delete_mode_list;
procedure get_update_modes_and_dates
(p_effective_date in date
,p_package_name in varchar2
,p_procedure_name in varchar2
,p_base_key_value in number
,p_correction out nocopy number
,p_update out nocopy number
,p_update_override out nocopy number
,p_update_change_insert out nocopy number
,p_correction_start_date out nocopy date
,p_correction_end_date out nocopy date
,p_update_start_date out nocopy date
,p_update_end_date out nocopy date
,p_override_start_date out nocopy date
,p_override_end_date out nocopy date
,p_upd_chg_start_date out nocopy date
,p_upd_chg_end_date out nocopy date
) IS
--
-- Local variables
--
l_cursor integer; -- Dynamic sql cursor identifier
l_proc varchar2(72) := g_package||'get_update_modes_and_dates';
' l_update BOOLEAN; ' ||
' l_update_override BOOLEAN; ' ||
' l_update_change_insert BOOLEAN; ' ||
',p_update => l_update ' ||
',p_update_override => l_update_override ' ||
',p_update_change_insert => l_update_change_insert ' ||
',p_correction_start_date => :p_correction_start_date ' ||
',p_correction_end_date => :p_correction_end_date ' ||
',p_update_start_date => :p_update_start_date ' ||
',p_update_end_date => :p_update_end_date ' ||
',p_override_start_date => :p_override_start_date ' ||
',p_override_end_date => :p_override_end_date ' ||
',p_upd_chg_start_date => :p_upd_chg_start_date ' ||
',p_upd_chg_end_date => :p_upd_chg_end_date ' ||
'); ' ||
':p_update := hr_api.boolean_to_constant(l_update); ' ||
':p_update_override
:= hr_api.boolean_to_constant(l_update_override); ' ||
':p_update_change_insert
:= hr_api.boolean_to_constant(l_update_change_insert); ' ||
OUT p_update_start_date,
OUT p_update_end_date,
OUT p_override_start_date,
OUT p_override_end_date,
OUT p_upd_chg_start_date,
OUT p_upd_chg_end_date,
OUT p_correction,
OUT p_update,
OUT p_update_override,
OUT p_update_change_insert;
end get_update_modes_and_dates;
procedure get_delete_modes_and_dates
(p_effective_date in date
,p_package_name in varchar2
,p_procedure_name in varchar2
,p_base_key_value in number
,p_zap out nocopy number
,p_delete out nocopy number
,p_future_change out nocopy number
,p_delete_next_change out nocopy number
,p_zap_start_date out nocopy date
,p_zap_end_date out nocopy date
,p_delete_start_date out nocopy date
,p_delete_end_date out nocopy date
,p_del_future_start_date out nocopy date
,p_del_future_end_date out nocopy date
,p_del_next_start_date out nocopy date
,p_del_next_end_date out nocopy date
) IS
--
-- Local variables
--
l_cursor integer; -- Dynamic sql cursor identifier
l_proc varchar2(72) := g_package||'get_delete_modes_and_dates';
' l_delete BOOLEAN; ' ||
' l_delete_next_change BOOLEAN; ' ||
',p_delete => l_delete ' ||
',p_future_change => l_future_change ' ||
',p_delete_next_change => l_delete_next_change ' ||
',p_zap_start_date => :p_zap_start_date ' ||
',p_zap_end_date => :p_zap_end_date ' ||
',p_del_future_start_date =>:p_del_future_start_date ' ||
',p_del_future_end_date => :p_del_future_end_date ' ||
',p_delete_start_date => :p_delete_start_date ' ||
',p_delete_end_date => :p_delete_end_date ' ||
',p_del_next_start_date => :p_del_next_start_date ' ||
',p_del_next_end_date => :p_del_next_end_date ' ||
'); ' ||
':p_delete := hr_api.boolean_to_constant(l_delete); ' ||
':p_delete_next_change :=
hr_api.boolean_to_constant(l_delete_next_change); ' ||
OUT p_delete_start_date,
OUT p_delete_end_date,
OUT p_del_next_start_date,
OUT p_del_next_end_date,
OUT p_zap,
OUT p_delete,
OUT p_future_change,
OUT p_delete_next_change;
end get_delete_modes_and_dates;