The following lines contain the word 'select', 'insert', 'update' or 'delete':
p_mode IN VARCHAR2, -- The mode can be CREATE, UPDATE, DELETE
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2) is
l_api_name CONSTANT VARCHAR2(30) := 'Validate_Salesteam';
SELECT
PTORG.relationship_code
FROM
hz_relationships CONTACT,
hz_relationships PTORG,
pv_partner_profiles PVPP,
jtf_rs_resource_extns EXTN
WHERE EXTN.resource_id = pc_salesforce_id
AND EXTN.source_id = CONTACT.party_id
AND EXTN.category = 'PARTY'
AND CONTACT.subject_table_name = 'HZ_PARTIES'
AND CONTACT.object_table_name = 'HZ_PARTIES'
AND CONTACT.RELATIONSHIP_TYPE = 'EMPLOYMENT'
AND CONTACT.RELATIONSHIP_CODE = 'EMPLOYEE_OF'
AND CONTACT.directional_flag = 'F'
AND CONTACT.STATUS = 'A'
AND CONTACT.start_date <= SYSDATE
AND nvl(CONTACT.end_date, SYSDATE) >= SYSDATE
AND PTORG.subject_id = CONTACT.object_id
AND PTORG.subject_table_name = 'HZ_PARTIES'
AND PTORG.object_table_name = 'HZ_PARTIES'
AND PTORG.RELATIONSHIP_TYPE = 'PARTNER'
AND PTORG.STATUS = 'A'
AND PTORG.start_date <= SYSDATE
AND nvl(PTORG.end_date, SYSDATE) >= SYSDATE
AND PVPP.partner_party_id = PTORG.object_id
AND PVPP.partner_id = PTORG.party_id
AND PVPP.SALES_PARTNER_FLAG = 'Y'
AND PVPP.status = 'A'
ORDER BY PTORG.relationship_code desc;
SELECT prm_keep_flag
FROM as_accesses_all
WHERE access_id = pc_access_id;
SELECT
1 from as_accesses_all acc , hz_relationships hzpp , hz_parties ptorg,
fnd_user fndu, jtf_rs_resource_extns jtfre,
hz_parties ptorg1 ,hz_relationships hzpp1
WHERE
acc.partner_cont_party_id = hzpp.party_id and
hzpp.object_id = ptorg.party_id and
ptorg.party_type = 'ORGANIZATION' and
--acc.salesforce_id = pc_sales_force_id and
acc.access_id = pc_access_id and
fndu.user_id = fnd_global.user_id and
jtfre.user_id = fndu.user_id and
jtfre.source_id = hzpp1.party_id and
hzpp1.object_id = ptorg1.party_id and
ptorg1.party_type = 'ORGANIZATION' and
acc.lead_id = pc_lead_id and
ptorg1.party_id=ptorg.party_id
;
SELECT 'PARTNER_OF'
FROM
hz_relationships CONTACT,
pv_partner_profiles PVPP,
jtf_rs_resource_extns EXTN,
fnd_user fndu
WHERE fndu.user_id = fnd_global.user_id
AND EXTN.user_id = fndu.user_id
AND CONTACT.party_id = EXTN.source_id
AND CONTACT.subject_table_name = 'HZ_PARTIES'
AND CONTACT.object_table_name = 'HZ_PARTIES'
AND CONTACT.RELATIONSHIP_TYPE = 'EMPLOYMENT'
AND CONTACT.RELATIONSHIP_CODE = 'EMPLOYEE_OF'
AND CONTACT.directional_flag = 'F'
AND CONTACT.STATUS = 'A'
AND CONTACT.start_date <= SYSDATE
AND nvl(CONTACT.end_date, SYSDATE) >= SYSDATE
AND PVPP.partner_party_id = CONTACT.object_id
;
ELSIF p_mode = 'DELETE' or p_mode = 'UPDATE' then
IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW) THEN
fnd_message.Set_Name('PV', 'PV_DEBUG_MESSAGE');
fnd_message.Set_Token('TEXT', 'In Delete / Update block ');
IF p_mode = 'DELETE' or p_mode = 'UPDATE' then
for x in lc_get_upd_del_check_perm(pc_lead_id =>p_lead_id,pc_access_id => p_access_id)
loop
l_get_upd_del_check_perm := 'Y' ;
procedure Update_Salesteam_Pre (
p_api_version_number IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
p_access_id IN NUMBER,
p_lead_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2) is
l_api_name CONSTANT VARCHAR2(30) := 'Update_Salesteam_Pre';
l_mode CONSTANT VARCHAR2(20) := 'UPDATE';
END Update_Salesteam_Pre;
procedure Delete_Salesteam_Pre (
p_api_version_number IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
p_access_id IN NUMBER,
p_lead_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2) is
l_api_name CONSTANT VARCHAR2(30) := 'Delete_Salesteam_Pre';
l_mode CONSTANT VARCHAR2(20) := 'DELETE';
END Delete_Salesteam_Pre;