The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Contacts_Delete(P_LEAD_ID IN NUMBER,
p_resource_id IN NUMBER,
p_admin_flag IN VARCHAR2,
p_admin_group_id IN NUMBER,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2) IS
v_profile_tbl AS_UTILITY_PUB.profile_tbl_type:=as_api_records_pkg.get_p_profile_tbl;
SELECT LEAD_CONTACT_ID
FROM
AS_OPPORTUNITY_CONTACTS_V
WHERE LEAD_ID= P_lead_id;
AS_OPPORTUNITY_PUB.DELETE_CONTACTS(
p_api_version_number => 2.0,
p_init_msg_list => v_true,
p_commit => v_true,
p_validation_level => 100,
p_identity_salesforce_id => p_resource_id,
p_contact_tbl => v_contact_tbl,
p_check_access_flag => 'N',
p_admin_flag => nvl(p_admin_flag,'N'),
p_admin_group_id => p_admin_group_id,
p_partner_cont_party_id => NULL,
p_profile_tbl => v_profile_tbl,
x_contact_out_tbl => v_contact_out_tbl,
x_return_status => v_return_status,
x_msg_count => v_msg_count,
x_msg_data => v_msg_data
);
END Contacts_Delete;
PROCEDURE Salesteam_Update(
p_customer_id IN NUMBER,
p_lead_id IN NUMBER) IS
BEGIN
UPDATE AS_ACCESSES_ALL SET CUSTOMER_ID = p_customer_id
WHERE LEAD_ID=p_lead_id;
END Salesteam_Update;
PROCEDURE Notes_Update( p_lead_id IN NUMBER,
p_last_update_date IN DATE,
p_customer_id IN NUMBER
) IS
l_lead_id number := p_lead_id;
SELECT C.NOTE_CONTEXT_ID,
C.JTF_NOTE_ID,
C.OBJECT_ID
FROM AST_NOTES_DETAILS_VL NT,
AST_NOTES_CONTEXTS_V C
WHERE NT.SOURCE_OBJECT_ID = p_lead_id
AND C.OBJECT_CODE='PARTY'
AND NT.JTF_NOTE_ID = C.JTF_NOTE_ID;
JTF_NOTES_PUB.Update_note_context(
p_validation_level => 100
, x_return_status => l_return_status
, p_note_context_id => CUR_NOTE_REC.NOTE_CONTEXT_ID
, p_jtf_note_id => CUR_NOTE_REC.JTF_NOTE_ID
, p_note_context_type_id => p_customer_id
, p_note_context_type => 'PARTY'
, p_last_updated_by => FND_PROFILE.Value('USER_ID')
, p_last_update_date => p_last_update_date
, p_last_update_login =>FND_PROFILE.Value('LOGIN_ID')
);
END Notes_Update;
ELSIF p_action_key = 'OPP_UPDATE_OPPORTUNITY' THEN
OLIST_UPDATE_OPPORTUNITY
( p_action_key => p_action_key,
p_resource_id => p_resource_id,
p_work_action_data => p_action_input_data,
x_uwq_actions_list => x_uwq_actions_list,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
x_return_status => l_return_status
);
OLIST_UPDATE_OPPORTUNITY
( p_action_key => p_action_key,
p_resource_id => p_resource_id,
p_work_action_data => p_action_input_data,
x_uwq_actions_list => x_uwq_actions_list,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
x_return_status => l_return_status
);
l_last_update_date DATE := SYSDATE;
l_last_updated_by NUMBER := FND_PROFILE.Value('USER_ID');
l_last_update_login NUMBER := FND_PROFILE.Value('LOGIN_ID');
p_entered_by => l_last_updated_by,
p_entered_date => l_last_update_date,
p_last_update_date => l_last_update_date,
p_last_updated_by => l_last_updated_by,
p_creation_date => l_creation_date,
p_created_by => l_created_by,
p_last_update_login => l_last_update_login,
p_party_id => l_party_id,
x_jtf_note_id => l_jtf_note_id,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data
);
PROCEDURE OLIST_UPDATE_OPPORTUNITY
( p_action_key IN VARCHAR2,
p_resource_id IN NUMBER,
p_work_action_data IN SYSTEM.ACTION_INPUT_DATA_NST DEFAULT NULL,
x_uwq_actions_list OUT NOCOPY SYSTEM.IEU_UWQ_WORK_ACTIONS_NST,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2
) IS
l_list_source_type VARCHAR2(30);
l_last_update_date DATE;
l_p_last_update_date DATE;
l_last_updated_by NUMBER := FND_PROFILE.Value('USER_ID');
l_last_update_login NUMBER := FND_PROFILE.Value('LOGIN_ID');
cursor c_loc(p_cust_id in number) is select
party_site_id from
hz_party_sites site
where site.party_id = p_cust_id
and site.identifying_address_flag = 'Y';
cursor c_prop(p_lead_id number) is select 'x'
from PRP_PROP_OBJECTS_V
where object_id=p_lead_id
and object_type='OPPORTUNITY';
cursor c_quote(p_lead_id number) is select 'x'
from ASO_I_QUOTE_HEADERS_BALI_V
where QUOTE_HEADER_ID in
(select QUOTE_OBJECT_ID
from aso_quote_related_objects_v
where object_type_code = 'LDID'
and object_id = p_lead_id);
Log_Mesg('Inside Update Opportunity Action');
ELSIF l_name = 'LAST_UPDATE_DATE' THEN
l_last_update_date := TO_DATE(l_value, 'dd/mon/yyyy hh24:mi:ss');
l_p_last_update_date := TO_DATE(l_value, 'dd/mon/yyyy hh24:mi:ss');
ELSIF l_name = 'LAST_UPDATE_DATE' AND
l_p_last_update_date IS NULL THEN
l_last_update_date := TO_DATE(l_value, 'DD-MM-YYYY HH24:MI:SS');
Log_Mesg('Before has_updateOpportunityAccess ');
AST_ACCESS.has_updateOpportunityAccess
(
p_lead_id => l_lead_id,
p_admin_flag => l_admin_flag,
p_admin_group_id => l_admin_group_id,
p_person_id => l_person_id,
p_resource_id => p_resource_id,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data
);
AST_UWQ_WRAPPER_PKG.UPDATE_OPPORTUNITY
( p_admin_group_id => l_admin_group_id,
p_admin_flag => l_admin_flag,
p_resource_id => l_resource_id,
p_last_update_date => l_last_update_date,
p_lead_id => l_lead_id,
p_lead_number => l_lead_number,
p_description => l_description,
p_status_code => l_status_code,
p_close_reason_code => l_close_reason_code,
p_source_promotion_id => l_source_promotion_id,
p_customer_id => l_customer_id,
p_contact_party_id => l_contact_party_id,
p_address_id => l_address_id,
p_sales_stage_id => l_sales_stage_id,
p_win_probability => l_win_probability,
p_total_amount => l_total_amount,
p_total_revenue_forecast_amt => l_total_revenue_forecast_amt ,--Code added for R12
p_channel_code => l_channel_code,
p_decision_date => l_decision_date,
p_currency_code => l_currency_code,
p_vehicle_response_code => l_vehicle_response_code,
p_customer_budget => l_customer_budget,
--Code commented for R12 Enhancement --Start
/* p_close_competitor_code => l_close_competitor_code,
p_close_competitor_id => l_p_close_competitor_id,--Earlier l_close_competitor_id was passed. Bug # 3516066
p_close_competitor => l_close_competitor, */
--Code commented for R12 Enhancement --End
p_close_comment => l_close_comment,
p_parent_project => l_parent_project,
p_freeze_flag => l_freeze_flag,
p_called_node => l_called_node,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
x_lead_id => l_temp_id
);
Contacts_Delete(
p_lead_id => l_lead_id,
p_resource_id => l_resource_id,
p_admin_flag => l_admin_flag,
p_admin_group_id => l_admin_group_id,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
x_return_status => l_return_status);
Salesteam_Update(p_customer_id => l_customer_id,
p_lead_id=> l_lead_id);
Notes_Update(
p_lead_id =>l_lead_id,
p_last_update_date => l_last_update_date,
p_customer_id => l_customer_id
);
p_entered_by => l_last_updated_by,
p_entered_date => SYSDATE,
p_last_update_date => SYSDATE,
p_last_updated_by => l_last_updated_by,
p_creation_date => l_creation_date,
p_created_by => l_created_by,
p_last_update_login => l_last_update_login,
p_party_id => l_party_id,
x_jtf_note_id => l_jtf_note_id,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data
);
l_uwq_actions_list(1).message := 'Please note, changing the customer for this opportunity will update the
address, remove all contacts and allow the sales team to be reassigned.';
END; -- End procedure OLIST_UPDATE_OPPORTUNITY
l_last_update_date DATE := SYSDATE;
l_last_updated_by NUMBER := FND_PROFILE.Value('USER_ID');
l_last_update_login NUMBER := FND_PROFILE.Value('LOGIN_ID');
p_entered_by => l_last_updated_by,
p_entered_date => l_last_update_date,
p_last_update_date => l_last_update_date,
p_last_updated_by => l_last_updated_by,
p_creation_date => l_creation_date,
p_created_by => l_created_by,
p_last_update_login => l_last_update_login,
p_party_id => l_party_id,
x_jtf_note_id => l_jtf_note_id,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data
);