The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 'Y'
FROM fnd_application a,
fnd_descr_flex_contexts dfc
WHERE a.application_short_name = p_appl_short_name
AND a.application_id = dfc.application_id
AND dfc.descriptive_flexfield_name = p_flexfield_name
AND dfc.descriptive_flex_context_code = p_context;
PROCEDURE update_contract_add_info
(p_api_version IN NUMBER
,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
,p_chr_id IN NUMBER
,p_add_info_rec IN DFF_Rec_type
)
IS
--
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_ADD_INFO';
OKL_CONTRACT_PUB.update_contract_header(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_restricted_update => 'F',
p_chrv_rec => lp_chrv_rec,
p_khrv_rec => lp_khrv_rec,
x_chrv_rec => lx_chrv_rec,
x_khrv_rec => lx_khrv_rec);
END update_contract_add_info;
PROCEDURE update_line_add_info
(p_api_version IN NUMBER
,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
,p_cle_id IN NUMBER
,p_add_info_rec IN DFF_Rec_type
)
IS
--
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_LINE_ADD_INFO';
OKL_LLA_UTIL_PVT.check_line_update_allowed
(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cle_id => p_cle_id);
OKL_CONTRACT_PUB.update_contract_line(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_rec => lp_clev_rec,
p_klev_rec => lp_klev_rec,
x_clev_rec => lx_clev_rec,
x_klev_rec => lx_klev_rec);
END update_line_add_info;