The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insert_trx_types(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_tryv_rec IN tryv_rec_type,
x_tryv_rec OUT NOCOPY tryv_rec_type)
IS
l_api_version NUMBER := 1.0;
l_api_name VARCHAR2(30) := 'INSERT_TRX_TYPES';
OKL_TRX_TYPES_PUB.insert_trx_types(p_api_version => l_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_tryv_rec => p_tryv_rec,
x_tryv_rec => x_tryv_rec);
END insert_trx_types;
PROCEDURE insert_trx_types(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_tryv_tbl IN tryv_tbl_type,
x_tryv_tbl OUT NOCOPY tryv_tbl_type)
IS
l_api_version NUMBER := 1.0;
l_api_name VARCHAR2(30) := 'INSERT_TRX_TYPES';
OKL_TRX_TYPES_PUB.insert_trx_types(p_api_version => l_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_tryv_tbl => p_tryv_tbl,
x_tryv_tbl => x_tryv_tbl);
END insert_trx_types;
FUNCTION Check_Update_Allowed (p_tryv_rec IN tryv_rec_type )
RETURN VARCHAR2
IS
CURSOR try_lub_cur (l_id NUMBER) IS
SELECT last_updated_by
FROM okl_trx_types_v
WHERE id = l_id;
l_last_updated_by okl_trx_types_v.last_updated_by%TYPE;
l_update_allowed VARCHAR2(1) := 'Y';
l_last_updated_by := try_lub_rec.last_updated_by;
IF l_last_updated_by = 1 THEN
l_update_allowed := 'N';
RETURN l_update_allowed;
END Check_Update_Allowed;
PROCEDURE update_trx_types(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_tryv_rec IN tryv_rec_type,
x_tryv_rec OUT NOCOPY tryv_rec_type)
IS
l_api_version NUMBER := 1.0;
l_update_allowed VARCHAR2(1) := 'Y';
l_api_name VARCHAR2(30) := 'UPDATE_TRX_TYPES';
l_update_allowed := Check_Update_Allowed(p_tryv_rec);
IF l_update_allowed = 'N' THEN
OKC_API.SET_MESSAGE(p_app_name => 'OKL',
p_msg_name => 'OKL_NO_UPD_TRX_TYPE' );
OKL_TRX_TYPES_PUB.update_trx_types(p_api_version => l_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_tryv_rec => p_tryv_rec,
x_tryv_rec => x_tryv_rec);
END update_trx_types;
PROCEDURE update_trx_types(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_tryv_tbl IN tryv_tbl_type,
x_tryv_tbl OUT NOCOPY tryv_tbl_type)
IS
l_api_version NUMBER := 1.0;
l_update_allowed VARCHAR2(1) := 'Y';
l_api_name VARCHAR2(30) := 'UPDATE_TRX_TYPES';
l_update_allowed := Check_Update_Allowed(p_tryv_tbl(i));
IF l_update_allowed = 'N' THEN
OKC_API.SET_MESSAGE(p_app_name => 'OKL',
p_msg_name => 'OKL_NO_UPD_TRX_TYPE' );
OKL_TRX_TYPES_PUB.update_trx_types(p_api_version => l_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_tryv_tbl => p_tryv_tbl,
x_tryv_tbl => x_tryv_tbl);
END update_trx_types;
PROCEDURE delete_trx_types(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_tryv_rec IN tryv_rec_type)
IS
l_api_version NUMBER := 1.0;
l_api_name VARCHAR2(30) := 'DELETE_TRX_TYPES';
OKL_TRX_TYPES_PUB.delete_trx_types(p_api_version => l_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_tryv_rec => p_tryv_rec);
END delete_trx_types;
PROCEDURE delete_trx_types(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_tryv_tbl IN tryv_tbl_type)
IS
l_api_version NUMBER := 1.0;
l_api_name VARCHAR2(30) := 'DELETE_TRX_TYPES';
OKL_TRX_TYPES_PUB.delete_trx_types(p_api_version => l_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_tryv_tbl => p_tryv_tbl);
END delete_trx_types;