The following lines contain the word 'select', 'insert', 'update' or 'delete':
ELSIF p_action_key = 'LEAD_UPDATE_LEAD' THEN
LLIST_UPDATE_LEAD
( 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_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data
);
LLIST_UPDATE_LEAD
( 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_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data
);
l_last_update_date DATE := SYSDATE;
l_last_updated_by NUMBER := FND_PROFILE.Value('USER_ID'); --REVIEW
l_last_update_login NUMBER := FND_PROFILE.Value('LOGIN_ID'); -- REVIEW
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 LLIST_UPDATE_LEAD
( p_action_key IN VARCHAR2,
p_resource_id IN NUMBER,
p_work_action_data IN SYSTEM.ACTION_INPUT_DATA_NST,
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_last_update_date DATE;
l_last_updated_by NUMBER := FND_PROFILE.Value('USER_ID'); --REVIEW
l_last_update_login NUMBER := FND_PROFILE.Value('LOGIN_ID'); -- REVIEW
Log_Mesg('Inside Update Lead');
ELSIF l_name = 'LAST_UPDATE_DATE' THEN
l_last_update_date := TO_DATE(l_value, 'DD-MM-YYYY HH24:MI:SS');
Log_Mesg('Before Territory check Has_updatelead ');
AST_ACCESS.Has_UpdateLeadAccess
( p_sales_lead_id => l_sales_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 => l_identity_salesforce_id,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data
);
AST_UWQ_WRAPPER_PKG.UPDATE_LEAD
(
p_sales_lead_id => l_sales_lead_id,
p_admin_group_id => l_admin_group_id,
p_identity_salesforce_id => l_identity_salesforce_id,
p_last_update_date => l_last_update_date,
p_status_code => l_status_code,
p_customer_id => l_customer_id,
p_admin_flag => l_admin_flag,
p_assign_to_salesforce_id => l_assign_to_salesforce_id,
p_assign_sales_group_id => l_assign_sales_group_id,
p_budget_status_code => l_budget_status_code,
p_description => l_description,
p_source_promotion_id => l_source_promotion_id,
p_lead_rank_id => l_lead_rank_id,
p_decision_timeframe_code => l_decision_timeframe_code,
p_initiating_contact_id => l_initiating_contact_id,
p_phone_id => l_phone_id,
p_close_reason_code => l_close_reason_code,
p_accept_flag => l_accept_flag,
p_qualified_flag => l_qualified_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
);
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 => sysdate,
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
);
END; -- End procedure LEAD_UPDATE_LEAD
l_last_update_date DATE := SYSDATE;
l_last_updated_by NUMBER := FND_PROFILE.Value('USER_ID'); --REVIEW
l_last_update_login NUMBER := FND_PROFILE.Value('LOGIN_ID'); -- REVIEW
ELSIF l_name = 'LAST_UPDATE_DATE' THEN
l_last_update_date := TO_DATE(l_value, 'DD-MM-YYYY HH24:MI:SS');
p_last_update_date => l_last_update_date,
p_new_sales_group_id => l_new_sales_group_id,
p_new_owner_id => l_new_owner_id,
p_called_node => l_called_node,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data
);
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
);
-- last update date is now obtained as datetime from bali...fix for bug 2614503.
-- used for update lead.
l_last_update_date DATE;
l_last_updated_by NUMBER := FND_PROFILE.Value('USER_ID'); --REVIEW
l_last_update_login NUMBER := FND_PROFILE.Value('LOGIN_ID'); -- REVIEW
-- last update date is now obtained as datetime from bali...fix for bug 2614503.
-- used for update lead.
ELSIF l_name = 'LAST_UPDATE_DATE' THEN
l_last_update_date := TO_DATE(l_value, 'DD-MM-YYYY HH24:MI:SS');
Log_Mesg('Before Territory check Has_updatelead ');
AST_ACCESS.Has_UpdateLeadAccess
( p_sales_lead_id => l_sales_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 => l_identity_salesforce_id,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data
);
AST_UWQ_WRAPPER_PKG.UPDATE_LEAD
(
p_sales_lead_id => l_sales_lead_id,
p_admin_group_id => l_admin_group_id,
p_identity_salesforce_id => l_identity_salesforce_id,
p_last_update_date => l_last_update_date,
p_status_code => l_status_code,
p_customer_id => l_customer_id,
p_admin_flag => l_admin_flag,
p_assign_to_salesforce_id => l_assign_to_salesforce_id,
p_assign_sales_group_id => l_assign_sales_group_id,
p_budget_status_code => l_budget_status_code,
p_description => l_description,
p_source_promotion_id => l_source_promotion_id,
p_lead_rank_id => l_lead_rank_id,
p_decision_timeframe_code => l_decision_timeframe_code,
p_initiating_contact_id => l_initiating_contact_id,
p_phone_id => l_phone_id,
p_close_reason_code => l_close_reason_code,
p_accept_flag => l_accept_flag,
p_qualified_flag => l_qualified_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
);
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 => sysdate,
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_last_update_date DATE := SYSDATE;
l_last_updated_by NUMBER := FND_PROFILE.Value('USER_ID'); --REVIEW
l_last_update_login NUMBER := FND_PROFILE.Value('LOGIN_ID'); -- REVIEW
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
);