The following lines contain the word 'select', 'insert', 'update' or 'delete':
l_update_access_flag VARCHAR2(1);
SELECT lead_contact_id
FROM as_lead_contacts
WHERE lead_id = c_LEAD_ID
--and enabled_flag = 'Y' fix for 5285071
and primary_contact_flag = 'Y';
AS_ACCESS_PUB.has_updateOpportunityAccess
( p_api_version_number => 2.0
,p_init_msg_list => p_init_msg_list
,p_validation_level => p_validation_level
,p_access_profile_rec => l_access_profile_rec
,p_admin_flag => p_admin_flag
,p_admin_group_id => p_admin_group_id
,p_person_id => l_identity_sales_member_rec.employee_person_id
,p_opportunity_id => p_contact_tbl(1).LEAD_ID
,p_check_access_flag => p_check_access_flag
,p_identity_salesforce_id => p_identity_salesforce_id
,p_partner_cont_party_id => p_partner_cont_party_id
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
,x_update_access_flag => l_update_access_flag );
'has_updateOpportunityAccess fail');
IF (l_update_access_flag <> 'Y') THEN
IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
FND_MESSAGE.Set_Name('AS', 'API_NO_UPDATE_PRIVILEGE');
UPDATE AS_LEAD_CONTACTS
SET primary_contact_flag = 'N'
WHERE lead_contact_id = l_lead_contact_id;
AS_LEAD_CONTACTS_PKG.Insert_Row(
px_LEAD_CONTACT_ID => l_LEAD_CONTACT_ID,
p_LEAD_ID => l_Contact_rec.LEAD_ID,
p_CONTACT_ID => l_Contact_rec.CONTACT_ID,
p_LAST_UPDATE_DATE => SYSDATE,
p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
p_CREATION_DATE => SYSDATE,
p_CREATED_BY => FND_GLOBAL.USER_ID,
p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID,
p_REQUEST_ID => l_Contact_rec.REQUEST_ID,
p_PROGRAM_APPLICATION_ID => l_Contact_rec.PROGRAM_APPLICATION_ID,
p_PROGRAM_ID => l_Contact_rec.PROGRAM_ID,
p_PROGRAM_UPDATE_DATE => l_Contact_rec.PROGRAM_UPDATE_DATE,
p_ENABLED_FLAG => l_Contact_rec.ENABLED_FLAG,
p_CUSTOMER_ID => l_Contact_rec.CUSTOMER_ID,
p_ADDRESS_ID => l_Contact_rec.ADDRESS_ID,
p_RANK => l_Contact_rec.RANK,
p_PHONE_ID => l_Contact_rec.PHONE_ID,
p_ATTRIBUTE_CATEGORY => l_Contact_rec.ATTRIBUTE_CATEGORY,
p_ATTRIBUTE1 => l_Contact_rec.ATTRIBUTE1,
p_ATTRIBUTE2 => l_Contact_rec.ATTRIBUTE2,
p_ATTRIBUTE3 => l_Contact_rec.ATTRIBUTE3,
p_ATTRIBUTE4 => l_Contact_rec.ATTRIBUTE4,
p_ATTRIBUTE5 => l_Contact_rec.ATTRIBUTE5,
p_ATTRIBUTE6 => l_Contact_rec.ATTRIBUTE6,
p_ATTRIBUTE7 => l_Contact_rec.ATTRIBUTE7,
p_ATTRIBUTE8 => l_Contact_rec.ATTRIBUTE8,
p_ATTRIBUTE9 => l_Contact_rec.ATTRIBUTE9,
p_ATTRIBUTE10 => l_Contact_rec.ATTRIBUTE10,
p_ATTRIBUTE11 => l_Contact_rec.ATTRIBUTE11,
p_ATTRIBUTE12 => l_Contact_rec.ATTRIBUTE12,
p_ATTRIBUTE13 => l_Contact_rec.ATTRIBUTE13,
p_ATTRIBUTE14 => l_Contact_rec.ATTRIBUTE14,
p_ATTRIBUTE15 => l_Contact_rec.ATTRIBUTE15,
p_ORG_ID => l_Contact_rec.ORG_ID,
p_PRIMARY_CONTACT_FLAG => l_Contact_rec.PRIMARY_CONTACT_FLAG,
p_ROLE => l_Contact_rec.ROLE,
p_CONTACT_PARTY_ID => l_Contact_rec.CONTACT_PARTY_ID);
PROCEDURE Update_opp_contacts(
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_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
P_Admin_Group_Id IN NUMBER,
P_Identity_Salesforce_Id IN NUMBER,
P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
P_Partner_Cont_Party_id IN NUMBER := FND_API.G_MISS_NUM,
P_Contact_Tbl IN AS_OPPORTUNITY_PUB.Contact_Tbl_Type,
X_contact_out_tbl OUT NOCOPY AS_OPPORTUNITY_PUB.contact_out_tbl_type,
X_Return_Status OUT NOCOPY VARCHAR2,
X_Msg_Count OUT NOCOPY NUMBER,
X_Msg_Data OUT NOCOPY VARCHAR2
)
IS
Cursor C_Get_opp_contact(c_LEAD_CONTACT_ID Number) IS
Select LAST_UPDATE_DATE
From AS_LEAD_CONTACTS
WHERE LEAD_CONTACT_ID = c_LEAD_CONTACT_ID
For Update NOWAIT;
l_api_name CONSTANT VARCHAR2(30) := 'Update_opp_contacts';
l_last_update_date DATE;
l_update_access_flag VARCHAR2(1);
l_module CONSTANT VARCHAR2(255) := 'as.plsql.lcnpv.Update_opp_contacts';
SAVEPOINT UPDATE_OPP_CONTACTS_PVT;
AS_CALLOUT_PKG.Update_opp_contacts_BU(
p_api_version_number => 2.0,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
p_validation_level => p_validation_level,
p_identity_salesforce_id => p_identity_salesforce_id,
P_Contact_Rec => P_Contact_Rec,
-- Hint: Add detail tables as parameter lists if it's master-detail
-- relationship.
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
AS_ACCESS_PUB.has_updateOpportunityAccess
( p_api_version_number => 2.0
,p_init_msg_list => p_init_msg_list
,p_validation_level => p_validation_level
,p_access_profile_rec => l_access_profile_rec
,p_admin_flag => p_admin_flag
,p_admin_group_id => p_admin_group_id
,p_person_id => l_identity_sales_member_rec.employee_person_id
,p_opportunity_id => p_contact_tbl(1).LEAD_ID
,p_check_access_flag => p_check_access_flag
,p_identity_salesforce_id => p_identity_salesforce_id
,p_partner_cont_party_id => p_partner_cont_party_id
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
,x_update_access_flag => l_update_access_flag );
'has_updateOpportunityAccess fail');
IF (l_update_access_flag <> 'Y') THEN
IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
FND_MESSAGE.Set_Name('AS', 'API_NO_UPDATE_PRIVILEGE');
'Private API: - Open Cursor to Select');
Fetch C_Get_opp_contact into l_last_update_date;
FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
If (l_Contact_rec.last_update_date is NULL or
l_Contact_rec.last_update_date = FND_API.G_MISS_Date ) Then
IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
THEN
FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
If (l_Contact_rec.last_update_date <> l_last_update_date) Then
IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
THEN
FND_MESSAGE.Set_Name('AS', 'API_RECORD_CHANGED');
p_validation_mode => AS_UTILITY_PVT.G_UPDATE,
P_Contact_Rec => l_Contact_Rec,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
'Private API: Calling update table handler');
AS_LEAD_CONTACTS_PKG.Update_Row(
p_LEAD_CONTACT_ID => l_Contact_rec.LEAD_CONTACT_ID,
p_LEAD_ID => l_Contact_rec.LEAD_ID,
p_CONTACT_ID => l_Contact_rec.CONTACT_ID,
p_LAST_UPDATE_DATE => SYSDATE,
p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
p_CREATION_DATE => SYSDATE,
p_CREATED_BY => FND_GLOBAL.USER_ID,
p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID,
p_REQUEST_ID => l_Contact_rec.REQUEST_ID,
p_PROGRAM_APPLICATION_ID => l_Contact_rec.PROGRAM_APPLICATION_ID,
p_PROGRAM_ID => l_Contact_rec.PROGRAM_ID,
p_PROGRAM_UPDATE_DATE => l_Contact_rec.PROGRAM_UPDATE_DATE,
p_ENABLED_FLAG => l_Contact_rec.ENABLED_FLAG,
p_CUSTOMER_ID => l_Contact_rec.CUSTOMER_ID,
p_ADDRESS_ID => l_Contact_rec.ADDRESS_ID,
p_RANK => l_Contact_rec.RANK,
p_PHONE_ID => l_Contact_rec.PHONE_ID,
p_ATTRIBUTE_CATEGORY => l_Contact_rec.ATTRIBUTE_CATEGORY,
p_ATTRIBUTE1 => l_Contact_rec.ATTRIBUTE1,
p_ATTRIBUTE2 => l_Contact_rec.ATTRIBUTE2,
p_ATTRIBUTE3 => l_Contact_rec.ATTRIBUTE3,
p_ATTRIBUTE4 => l_Contact_rec.ATTRIBUTE4,
p_ATTRIBUTE5 => l_Contact_rec.ATTRIBUTE5,
p_ATTRIBUTE6 => l_Contact_rec.ATTRIBUTE6,
p_ATTRIBUTE7 => l_Contact_rec.ATTRIBUTE7,
p_ATTRIBUTE8 => l_Contact_rec.ATTRIBUTE8,
p_ATTRIBUTE9 => l_Contact_rec.ATTRIBUTE9,
p_ATTRIBUTE10 => l_Contact_rec.ATTRIBUTE10,
p_ATTRIBUTE11 => l_Contact_rec.ATTRIBUTE11,
p_ATTRIBUTE12 => l_Contact_rec.ATTRIBUTE12,
p_ATTRIBUTE13 => l_Contact_rec.ATTRIBUTE13,
p_ATTRIBUTE14 => l_Contact_rec.ATTRIBUTE14,
p_ATTRIBUTE15 => l_Contact_rec.ATTRIBUTE15,
p_ORG_ID => l_Contact_rec.ORG_ID,
p_PRIMARY_CONTACT_FLAG => l_Contact_rec.PRIMARY_CONTACT_FLAG,
p_ROLE => l_Contact_rec.ROLE,
p_CONTACT_PARTY_ID => l_Contact_rec.CONTACT_PARTY_ID);
'Private API: Updated lead_contact_id = ' ||l_Contact_rec.LEAD_CONTACT_ID );
AS_CALLOUT_PKG.Update_opp_contacts_AU(
p_api_version_number => 2.0,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
p_validation_level => p_validation_level,
p_identity_salesforce_id => p_identity_salesforce_id,
P_Contact_Rec => P_Contact_Rec,
-- Hint: Add detail tables as parameter lists if it's master-detail
-- relationship.
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
End Update_opp_contacts;
PROCEDURE Delete_opp_contacts(
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_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
P_Admin_Group_Id IN NUMBER,
P_identity_salesforce_id IN NUMBER := NULL,
P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
P_Partner_Cont_Party_id IN NUMBER := FND_API.G_MISS_NUM,
P_Contact_Tbl IN AS_OPPORTUNITY_PUB.Contact_Tbl_Type,
X_contact_out_tbl OUT NOCOPY AS_OPPORTUNITY_PUB.contact_out_tbl_type,
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_opp_contacts';
l_update_access_flag VARCHAR2(1);
l_module CONSTANT VARCHAR2(255) := 'as.plsql.lcnpv.Delete_opp_contacts';
SAVEPOINT DELETE_OPP_CONTACTS_PVT;
AS_CALLOUT_PKG.Delete_opp_contacts_BD(
p_api_version_number => 2.0,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
p_validation_level => p_validation_level,
p_identity_salesforce_id => p_identity_salesforce_id,
P_Contact_Rec => P_Contact_Rec,
-- Hint: Add detail tables as parameter lists if it's master-detail
-- relationship.
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
AS_ACCESS_PUB.has_updateOpportunityAccess
( p_api_version_number => 2.0
,p_init_msg_list => p_init_msg_list
,p_validation_level => p_validation_level
,p_access_profile_rec => l_access_profile_rec
,p_admin_flag => p_admin_flag
,p_admin_group_id => p_admin_group_id
,p_person_id => l_identity_sales_member_rec.employee_person_id
,p_opportunity_id => p_contact_tbl(1).LEAD_ID
,p_check_access_flag => p_check_access_flag
,p_identity_salesforce_id => p_identity_salesforce_id
,p_partner_cont_party_id => p_partner_cont_party_id
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
,x_update_access_flag => l_update_access_flag );
'has_updateOpportunityAccess fail');
IF (l_update_access_flag <> 'Y') THEN
IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
FND_MESSAGE.Set_Name('AS', 'API_NO_UPDATE_PRIVILEGE');
'Private API: Calling delete table handler');
AS_LEAD_CONTACTS_PKG.Delete_Row(
p_LEAD_CONTACT_ID => l_Contact_rec.LEAD_CONTACT_ID);
AS_CALLOUT_PKG.Delete_opp_contacts_AD(
p_api_version_number => 2.0,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
p_validation_level => p_validation_level,
p_identity_salesforce_id => p_identity_salesforce_id,
P_Contact_Rec => P_Contact_Rec,
-- Hint: Add detail tables as parameter lists if it's master-detail
-- relationship.
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
End Delete_opp_contacts;
SELECT 'X'
FROM as_lead_contacts
WHERE lead_contact_id = c_Lead_Contact_Id;
ELSIF(p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
THEN
-- validate NOT NULL column
IF (p_LEAD_CONTACT_ID is NULL) or (p_LEAD_CONTACT_ID = FND_API.G_MISS_NUM)
THEN
IF l_debug THEN
AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
'Private API: Violate NOT NULL constraint(LEAD_CONTACT_ID)');
SELECT 'X'
FROM as_leads
WHERE lead_id = c_Lead_Id
AND nvl(DELETED_FLAG, 'N') <> 'Y';
SELECT 'X'
FROM AS_PARTY_ORG_CONTACTS_V
WHERE contact_id = c_contact_id
AND customer_id = P_CUSTOMER_ID;
SELECT 'X'
FROM AS_PARTY_CUSTOMERS_V
WHERE customer_id = c_Customer_Id;
SELECT 'X'
FROM AS_PARTY_ADDRESSES_V
WHERE address_id = c_address_id
AND customer_id = P_CUSTOMER_ID;
SELECT 'X'
FROM as_lookups
WHERE lookup_type = 'CONTACT_RANK_ON_OPPORTUNITY'
and lookup_code = c_RANK
and enabled_flag = 'Y';
SELECT 'X'
FROM AS_PARTY_PHONES_V
WHERE phone_id = c_phone_id
AND owner_table_name = 'HZ_PARTIES'
AND owner_table_id = P_CONTACT_PARTY_ID;
SELECT 'X'
FROM HZ_RELATIONSHIPS
WHERE object_id = P_CUSTOMER_ID
AND party_id = c_CONTACT_PARTY_ID
AND OBJECT_TABLE_NAME = 'HZ_PARTIES'
AND SUBJECT_TABLE_NAME = 'HZ_PARTIES'
AND STATUS in ('A', 'I');
SELECT contact_party_id
from as_lead_contacts
where lead_id = c_lead_id
and contact_party_id = c_contact_party_id;