The following lines contain the word 'select', 'insert', 'update' or 'delete':
G_ACCESS_REC_TYPE.Mgr_Update_Profile_Value := NVL(FND_PROFILE.VALUE('AS_MGR_UPDATE'),'R');
G_ACCESS_REC_TYPE.Admin_Update_Profile_Value := NVL(FND_PROFILE.VALUE('AS_ADMIN_UPDATE'),'R');
PROCEDURE Has_UpdateLeadAccess
( p_sales_lead_id NUMBER,
p_admin_flag VARCHAR2,
p_admin_group_id NUMBER,
p_person_id NUMBER,
p_resource_id NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_accessFlag VARCHAR2(1);
AS_ACCESS_PUB.Has_UpdateLeadAccess
( p_api_version_Number => 2.0,
p_init_msg_list => l_false,
p_validation_level => l_validation_level_full,
p_access_profile_rec => G_Access_Rec_Type,
p_admin_flag => p_admin_flag,
p_admin_group_id => p_admin_group_id,
p_person_id => p_person_id,
p_sales_lead_id => p_sales_lead_Id,
p_check_access_flag => 'Y',
p_identity_salesforce_id => p_resource_id,
p_partner_cont_party_id => NULL,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
x_update_access_flag => l_accessflag
);
FND_MESSAGE.Set_Name('AST', 'AST_LEAD_NOUPDATE_ACCESS');
END Has_UpdateLeadAccess;
x_update_access_flag => l_accessFlag
);
PROCEDURE Has_UpdateOpportunityAccess
( p_lead_id NUMBER,
p_admin_flag VARCHAR2,
p_admin_group_id NUMBER,
p_person_id NUMBER,
p_resource_id NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_accessFlag VARCHAR2(1);
AS_ACCESS_PUB.has_updateOpportunityAccess
( p_api_version_Number => 2.0,
p_init_msg_list => l_false,
p_validation_level => l_validation_level_full,
p_access_profile_rec => G_Access_Rec_Type,
p_admin_flag => p_admin_flag,
p_admin_group_id => p_admin_group_id,
p_person_id => p_person_id,
p_opportunity_id => p_lead_Id,
p_check_access_flag => 'Y',
p_identity_salesforce_id => p_resource_id,
p_partner_cont_party_id => NULL,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
x_update_access_flag => l_accessflag
);
FND_MESSAGE.Set_Name('AST', 'AST_OPP_NOUPDATE_ACCESS');
END Has_UpdateOpportunityAccess;