The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insert_row (
p_insurance_estimate_rec IN OUT NOCOPY ins_est_rec_type
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
) IS
l_program_name CONSTANT VARCHAR2(30) := 'insert_row';
okl_que_pvt.insert_row (
p_api_version => G_API_VERSION
,p_init_msg_list => G_FALSE
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
,p_quev_rec => l_quev_rec
,x_quev_rec => lx_quev_rec
);
END insert_row;
PROCEDURE update_row (
p_insurance_estimate_rec IN ins_est_rec_type
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
) IS
l_program_name CONSTANT VARCHAR2(30) := 'update_row';
okl_que_pvt.update_row (
p_api_version => G_API_VERSION
,p_init_msg_list => G_FALSE
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
,p_quev_rec => l_quev_rec
,x_quev_rec => lx_quev_rec
);
END update_row;
PROCEDURE update_cashflow (
p_insurance_estimate_rec IN ins_est_rec_type
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
) IS
l_program_name CONSTANT VARCHAR2(30) := 'update_cashflow';
l_cashflow_level_tbl(1).record_mode := 'UPDATE';
okl_lease_quote_cashflow_pvt.update_cashflow (
p_api_version => G_API_VERSION
,p_init_msg_list => G_FALSE
,p_transaction_control => G_FALSE
,p_cashflow_header_rec => l_cashflow_header_rec
,p_cashflow_level_tbl => l_cashflow_level_tbl
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
);
END update_cashflow;
SELECT parent_object_code
FROM okl_lease_quotes_b
WHERE id = p_insurance_estimate_rec.lease_quote_id;
insert_row (
p_insurance_estimate_rec => l_insurance_estimate_rec
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
);
PROCEDURE update_insurance_estimate (
p_api_version IN NUMBER
,p_init_msg_list IN VARCHAR2
,p_transaction_control IN VARCHAR2
,p_insurance_estimate_rec IN ins_est_rec_type
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
) IS
l_program_name CONSTANT VARCHAR2(30) := 'update_insurance_estimate';
SELECT parent_object_code
FROM okl_lease_quotes_b
WHERE id = p_insurance_estimate_rec.lease_quote_id;
update_row (
p_insurance_estimate_rec => l_insurance_estimate_rec
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
);
update_cashflow (
p_insurance_estimate_rec => l_insurance_estimate_rec
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
);
END update_insurance_estimate;
PROCEDURE delete_insurance_estimate (
p_api_version IN NUMBER
,p_init_msg_list IN VARCHAR2
,p_transaction_control IN VARCHAR2
,p_insurance_estimate_id IN NUMBER
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
) IS
l_program_name CONSTANT VARCHAR2(30) := 'delete_insurance_estimate';
okl_lease_quote_cashflow_pvt.delete_cashflows (
p_api_version => G_API_VERSION
,p_init_msg_list => G_FALSE
,p_transaction_control => G_FALSE
,p_source_object_code => 'QUOTED_INSURANCE'
,p_source_object_id => p_insurance_estimate_id
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
);
DELETE FROM okl_insurance_estimates_tl WHERE id = p_insurance_estimate_id;
DELETE FROM okl_insurance_estimates_b WHERE id = p_insurance_estimate_id;
END delete_insurance_estimate;