The following lines contain the word 'select', 'insert', 'update' or 'delete':
If ((p_flag = 'Y') AND (p_event = 'ON-INSERT')) then
qa_grants(v_grantee_type, v_grantee_key, p_plan_id, p_menu_name, x_guid);
Elsif ((p_flag = 'Y') AND (p_event = 'ON-UPDATE') AND (x_guid IS NULL)) then
qa_grants(v_grantee_type, v_grantee_key, p_plan_id, p_menu_name, x_guid);
Elsif ((p_flag <> 'Y') AND (p_event = 'ON-UPDATE') AND (x_guid IS NOT NULL)) then
qa_revoke(x_guid);
Elsif ((x_guid IS NOT NULL) AND (p_event = 'ON-DELETE')) then
qa_revoke(x_guid);
p_update_flag in varchar2, x_update_guid in out NOCOPY raw,
p_delete_flag in varchar2, x_delete_guid in out NOCOPY raw) IS
----------------------------------------------------------------------------------
begin
CALL_GRANTS(EVENT, 'QA_PLANS_SETUP_USER', p_grantee_id, p_plan_id,
p_setup_flag, x_setup_guid);
CALL_GRANTS(EVENT, 'QA_RESULTS_UPDATE_USER', p_grantee_id, p_plan_id,
p_update_flag, x_update_guid);
CALL_GRANTS(EVENT, 'QA_RESULTS_DELETE_USER', p_grantee_id, p_plan_id,
p_delete_flag, x_delete_guid);
SELECT child_plan_id,data_entry_mode
FROM qa_pc_plan_relationship
WHERE parent_plan_id = p_parent_plan_id
AND child_plan_id = l_child_plan_id;
PROCEDURE Delete_Relationship(p_relationship_id in number) IS
---------------------------------------------------------------
begin
--Put No Op
NULL;
HZ_RELATIONSHIPS_PKG.Delete_Row(
x_relationship_id => p_relationship_id);
end Delete_Relationship;
PROCEDURE Update_Person(p_fname in varchar2,
p_lname in varchar2,
p_party_id in number,
p_date in date,
x1_msg_data out NOCOPY varchar2,
x1_return_status out NOCOPY varchar2) IS
---------------------------------------------------------------
--
-- R12 ER 2648803. Rewritten to use TCA V2 APIs.
-- Parameter p_date is no longer used in V2.
--
-- bso Thu Jul 14 13:55:27 PDT 2005
--
v_object_version number;
SELECT object_version_number INTO v_object_version
FROM hz_parties
WHERE party_id = p_party_id;
hz_party_v2pub.update_person (
p_person_rec => v_person,
p_party_object_version_number => v_object_version,
x_profile_id => v_profile_id,
x_return_status => x1_return_status,
x_msg_count => v_msg_count,
x_msg_data => x1_msg_data);
end Update_Person;
PROCEDURE Update_Group(p_group_name in varchar2,
p_party_id in number,
p_date in date,
x1_msg_data out NOCOPY varchar2,
x1_return_status out NOCOPY varchar2) IS
---------------------------------------------------------------
--
-- R12 ER 2648803. Rewritten to use TCA V2 APIs.
-- Parameter p_date is no longer used in V2.
--
-- bso Thu Jul 14 13:55:27 PDT 2005
--
v_object_version number;
SELECT object_version_number INTO v_object_version
FROM hz_parties
WHERE party_id = p_party_id;
hz_party_v2pub.update_group (
p_group_rec => v_grp,
p_party_object_version_number => v_object_version,
x_return_status => x1_return_status,
x_msg_count => v_msg_count,
x_msg_data => x1_msg_data);
end Update_Group;
PROCEDURE Update_Relationship( p_relationship_id in number,
p_subject_id in number,
p_object_id in number,
p_party_id in number,
p_status in varchar2,
p_rel_date in date, -- Unused in V2
p_party_date in date, -- Unused in V2
x1_return_status out NOCOPY varchar2,
x1_msg_data out NOCOPY varchar2) IS
-----------------------------------------------------------------------
-- R12 ER 2648803/4614568. Rewritten to use TCA V2 APIs.
-- bso Fri Sep 16 13:37:14 PDT 2005
l_rel_rec hz_relationship_v2pub.relationship_rec_type;
SELECT object_version_number
INTO l_object_ver
FROM qa_hz_party_relationships_v
WHERE party_relationship_id = p_relationship_id;
SELECT object_version_number
INTO l_dummy_party_object_ver
FROM hz_parties
WHERE party_id = p_party_id;
hz_relationship_v2pub.update_relationship (
p_relationship_rec => l_rel_rec,
p_object_version_number => l_object_ver,
p_party_object_version_number => l_dummy_party_object_ver,
x_return_status => x1_return_status,
x_msg_count => x1_msg_count,
x_msg_data => x1_msg_data);
end Update_Relationship;
SELECT NVL(person_party_id, -1)
FROM fnd_user
WHERE user_id = p_user_id;