The following lines contain the word 'select', 'insert', 'update' or 'delete':
, p_contr_update_cust IN NUMBER
, x_return_status OUT NOCOPY VARCHAR2 -- 4537865 Added the nocopy hint
, x_msg_count OUT NOCOPY NUMBER -- 4537865 Added the nocopy hint
, x_msg_data OUT NOCOPY VARCHAR2 -- 4537865 Added the nocopy hint
) IS
l_msg_count NUMBER := 0;
SELECT
nvl(DATE_EFF_FUNDS_CONSUMPTION,'N')
FROM
pa_projects_all
WHERE project_id = c_project_id ;
Pa_Debug.WRITE(g_module_name,'p_contr_update_cust'||':'||p_contr_update_cust,
l_debug_level3);
( p_contr_update_cust IS NULL OR p_contr_update_cust = FND_API.G_MISS_NUM )
)
THEN
IF l_debug_mode = 'Y' THEN
Pa_Debug.g_err_stage:= 'PA_TOP_TASK_CUST_INVOICE_PVT : enbl_disbl_cust_at_top_task :
p_mode, p_project_id, p_def_top_task_cust, p_contr_update_cust are NULL';
UPDATE pa_tasks SET customer_id = null
WHERE project_id = p_project_id;
UPDATE pa_project_customers SET default_top_task_cust_flag = 'N'
WHERE customer_id = p_def_top_task_cust AND project_id = p_project_id;
UPDATE pa_project_customers SET customer_bill_split = 100
WHERE customer_id = p_contr_update_cust AND project_id = p_project_id;
UPDATE pa_project_customers SET customer_bill_split = 0
WHERE customer_id <> p_contr_update_cust AND project_id = p_project_id;
UPDATE pa_tasks SET customer_id = p_def_top_task_cust
WHERE project_id = p_project_id;
UPDATE pa_project_customers SET default_top_task_cust_flag = 'Y'
WHERE customer_id = p_def_top_task_cust AND project_id = p_project_id;
UPDATE pa_project_customers SET customer_bill_split = null
WHERE project_id = p_project_id;
SELECT ra_cust.customer_id , ra_cust.customer_name , ra_cust.customer_number, 'Y'
FROM pa_project_customers proj_cust, ra_customers ra_cust
WHERE proj_cust.project_id = p_project_id
AND proj_cust.customer_id = ra_cust.customer_id
ORDER BY proj_cust.customer_bill_split desc, ra_cust.customer_name, ra_cust.customer_number ;
SELECT HZ_C.cust_account_id , HZ_P.party_name , HZ_P.party_number, 'Y'
FROM pa_project_customers proj_cust, hz_cust_accounts HZ_C, HZ_PARTIES HZ_P
WHERE proj_cust.project_id = p_project_id
AND proj_cust.customer_id = hz_c.cust_account_id
AND hz_c.party_id = hz_p.party_id
ORDER BY proj_cust.customer_bill_split desc, hz_p.party_name, HZ_P.party_number ;
UPDATE pa_tasks SET revenue_accrual_method = p_rev_acc
WHERE project_id = p_project_id;
UPDATE pa_tasks SET invoice_method = p_inv_mth
WHERE project_id = p_project_id;
UPDATE pa_projects_all SET project_level_funding_flag = 'N'
WHERE project_id = p_project_id;
PROCEDURE check_delete_customer(
p_api_version IN NUMBER := 1.0
, p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
, p_commit IN VARCHAR2 := FND_API.G_FALSE
, p_validate_only IN VARCHAR2 := FND_API.G_TRUE
, p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
, p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
, p_debug_mode IN VARCHAR2 := 'N'
, p_project_id IN NUMBER
, p_customer_id IN NUMBER
, x_cust_assoc OUT NOCOPY VARCHAR2 -- 4537865
, x_cust_id OUT NOCOPY NUMBER -- 4537865
, x_cust_name OUT NOCOPY VARCHAR2 -- 4537865
, x_cust_num OUT NOCOPY VARCHAR2 -- 4537865
, x_return_status OUT NOCOPY VARCHAR2 -- 4537865
, x_msg_count OUT NOCOPY NUMBER -- 4537865
, x_msg_data OUT NOCOPY VARCHAR2 -- 4537865
) IS
CURSOR task_assoc_exists IS
SELECT 'Y'
FROM PA_TASKS
WHERE project_id = p_project_id
AND customer_id = p_customer_id;
SELECT ppc.customer_id, rc.customer_name, rc.customer_number
FROM pa_project_customers ppc, ra_customers rc
WHERE ppc.project_id = p_project_id
AND ppc.default_top_task_cust_flag = 'Y'
AND ppc.customer_id = rc.customer_id ;
SELECT ppc.customer_id, hz_p.party_name, hz_p.party_number
FROM pa_project_customers ppc, hz_cust_accounts HZ_C, hz_parties HZ_P
WHERE ppc.project_id = p_project_id
AND ppc.default_top_task_cust_flag = 'Y'
AND ppc.customer_id = hz_c.cust_account_id
AND hz_c.party_id = hz_p.party_id;
savepoint check_delete_customer;
PA_DEBUG.set_curr_function( p_function => 'check_delete_customer',
p_debug_mode => l_debug_mode );
Pa_Debug.g_err_stage:= 'PA_TOP_TASK_CUST_INVOICE_PVT : check_delete_customer :
p_project_id AND p_customer_id are NULL';
UPDATE pa_tasks SET customer_id = l_def_top_task_cust_id
WHERE project_id = p_project_id
AND customer_id = p_customer_id ;
UPDATE pa_tasks SET customer_id = x_cust_id
WHERE project_id = p_project_id
AND customer_id = p_customer_id ;
UPDATE pa_project_customers SET default_top_task_cust_flag = 'Y'
WHERE project_id = p_project_id
AND customer_id = x_cust_id;
UPDATE pa_project_customers SET default_top_task_cust_flag = 'Y'
WHERE project_id = p_project_id
AND customer_id = x_cust_id;
ROLLBACK TO check_customer_delete;
x_msg_data := ' PA_TOP_TASK_CUST_INVOICE_PVT : check_delete_customer : NULL parameters passed';
ROLLBACK TO check_delete_customer;
, p_procedure_name => 'check_delete_customer'
, p_error_text => x_msg_data);
ROLLBACK TO check_delete_customer;
, p_procedure_name => 'check_delete_customer'
, p_error_text => x_msg_data);
END check_delete_customer;