The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Update_Customer_Anual_Revenue(
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
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
,p_entity IN VARCHAR2
,p_entity_id IN NUMBER
,p_attr_value IN VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_Customer_Anual_Revenue';
l_partner_update_text VARCHAR2(2000) :=
' update hz_organization_profiles org set org.curr_fy_potential_revenue= :attr_value where ' ||
' org.party_id = :party_id'
;
l_oppty_update_text VARCHAR2(2000) := '';
l_lead_update_text VARCHAR2(2000) := '';
select orgp.party_id from hz_organization_profiles orgp, hz_relationships hz,
hz_organization_profiles orgp2 where hz.party_id = pc_entity_id and
hz.subject_id = orgp.party_id and hz.object_id = orgp2.party_id and orgp2.internal_flag = 'Y'
and orgp2.effective_end_date is null and nvl(orgp.effective_end_date, sysdate+1) > sysdate
;
select object_version_number from hz_parties where party_id = pc_party_id
;
SAVEPOINT Update_Customer_Anual_Revenue;
HZ_PARTY_V2PUB.update_organization (
p_init_msg_list => FND_API.G_FALSE
,p_organization_rec => l_org_rec
,p_party_object_version_number => l_object_version_number
,x_profile_id => x_profile_id
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
);
ROLLBACK TO Update_Customer_Anual_Revenue;
ROLLBACK TO Update_Customer_Anual_Revenue;
ROLLBACK TO Update_Customer_Anual_Revenue;
End Update_Customer_Anual_Revenue;