The following lines contain the word 'select', 'insert', 'update' or 'delete':
l_parameter_list.DELETE;
SELECT batch_number,
batch_name,
response_date,
created_by,
total_netted_amt,
agreement_id,
batch_currency
FROM fun_net_batches_all
WHERE batch_id = cp_batch_id;
SELECT employee_id
FROM FND_USER
WHERE user_id = cp_user_id;
SELECT approver_name
FROM fun_net_agreements_all
WHERE agreement_id = cp_agreement_id;
SELECT ORG_ID
INTO L_ORG_ID
FROM FUN_NET_BATCHES_ALL
WHERE BATCH_ID = L_BATCH_ID;
select batch_status_code into l_status from fun_net_batches_all
where batch_id=l_batch_id;
SELECT a.non_response_action_code
FROM fun_net_agreements_all a
WHERE a.agreement_id = (SELECT b.agreement_id
FROM fun_net_batches_all b
WHERE b.batch_id = cp_batch_id);
PROCEDURE Update_Batch_status_rej(p_item_type IN VARCHAR2,
p_item_key IN VARCHAR2,
p_actid IN NUMBER,
p_funmode IN VARCHAR2,
p_result OUT NOCOPY VARCHAR2) IS
l_batch_id fun_net_batches_all.batch_id%TYPE;
l_path := g_path||'Update_Batch_status';
fun_net_util.Log_String(g_state_level,l_path,'Begin Update Batch Status');
FUN_NET_BATCHES_PKG.Update_Row
(x_batch_id => l_batch_id,
x_batch_status_code => 'REJECTED');
fun_net_util.Log_String(g_state_level,l_path,'End Update Batch Status');
END Update_Batch_status_rej;
PROCEDURE Update_Batch_status_err(p_item_type IN VARCHAR2,
p_item_key IN VARCHAR2,
p_actid IN NUMBER,
p_funmode IN VARCHAR2,
p_result OUT NOCOPY VARCHAR2) IS
l_batch_id fun_net_batches_all.batch_id%TYPE;
l_path := g_path||'Update_Batch_status';
fun_net_util.Log_String(g_state_level,l_path,'Begin Update Batch Status');
FUN_NET_BATCHES_PKG.Update_Row
(x_batch_id => l_batch_id,
x_batch_status_code => 'ERROR');
fun_net_util.Log_String(g_state_level,l_path,'End Update Batch Status');
END Update_Batch_status_err;