The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE update_existing_assignment
(p_sec_profile_assignment_id IN NUMBER
,p_object_version_number IN NUMBER
,p_start_date IN DATE
,p_end_date IN DATE
)
IS
--
l_object_version_number NUMBER;
PROCEDURE insert_update
(p_sec_profile_assignment_id in number,
p_user_id in number,
p_security_group_id in number,
p_business_group_id in number,
p_security_profile_id in number,
p_responsibility_id in number,
p_responsibility_application_i in number,
p_start_date in date,
p_end_date in date default null,
p_object_version_number in number
)
IS
--
l_security_group_id NUMBER;
l_proc varchar2(72) := g_package|| 'insert_update';
update_existing_assignment
(p_sec_profile_assignment_id => l_clashing_id
,p_object_version_number => l_clashing_ovn
,p_start_date => l_clashing_start_date
,p_end_date => p_start_date - 1
);
update_existing_assignment
(p_sec_profile_assignment_id => l_clashing_id
,p_object_version_number => l_clashing_ovn
,p_start_date => p_end_date + 1
,p_end_date => l_clashing_end_date
);
END insert_update;
insert_update
(p_sec_profile_assignment_id => p_sec_profile_assignment_id,
p_user_id => p_user_id,
p_security_group_id => p_security_group_id,
p_business_group_id => p_business_group_id,
p_security_profile_id => p_security_profile_id,
p_responsibility_id => p_responsibility_id,
p_responsibility_application_i => p_responsibility_application_i,
p_start_date => p_start_date,
p_end_date => p_end_date,
p_object_version_number => p_object_version_number
);
procedure update_security_profile_asg
(p_validate in boolean default false,
p_sec_profile_assignment_id in number,
p_user_id in number,
p_security_group_id in number,
p_business_group_id in number,
p_security_profile_id in number,
p_responsibility_id in number,
p_responsibility_application_i in number,
p_start_date in date,
p_end_date in date,
p_object_version_number in out nocopy number
) is
--
-- Declare cursors and local variables
--
l_object_version_number number := p_object_version_number;
l_proc varchar2(72) := g_package||'update_security_profile_asg';
savepoint update_security_profile_asg;
per_sec_profile_asg_BK_1.update_security_profile_asg_b
(p_sec_profile_assignment_id =>p_sec_profile_assignment_id,
p_start_date => p_start_date,
p_end_date => p_end_date,
p_object_version_number => p_object_version_number
);
(p_module_name => 'update_security_profile_asg_b'
,p_hook_type => 'BP'
);
insert_update
(p_sec_profile_assignment_id => p_sec_profile_assignment_id,
p_user_id => p_user_id,
p_security_group_id => p_security_group_id,
p_business_group_id => p_business_group_id,
p_security_profile_id => p_security_profile_id,
p_responsibility_id => p_responsibility_id,
p_responsibility_application_i => p_responsibility_application_i,
p_start_date => p_start_date,
p_end_date => p_end_date,
p_object_version_number => p_object_version_number
);
per_sec_profile_asg_BK_1.update_security_profile_asg_a
(p_sec_profile_assignment_id => p_sec_profile_assignment_id,
p_start_date => p_start_date,
p_end_date => p_end_date,
p_object_version_number => p_object_version_number
);
(p_module_name => 'update_security_profile_asg_a'
,p_hook_type => 'AP'
);
rollback to update_security_profile_asg;
rollback to update_security_profile_asg;
end update_security_profile_asg;