The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insert_open_int_hst(
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_iohv_rec IN iohv_rec_type
,x_iohv_rec OUT NOCOPY iohv_rec_type) AS
l_api_version NUMBER ;
SAVEPOINT open_int_hst_insert;
IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'insert_open_int_hst', 'B', 'C')) THEN
iex_open_int_hst_cuhk.insert_open_int_hst_pre (
p_init_msg_list => l_init_msg_list
,x_msg_data => l_msg_data
,x_msg_count => l_msg_count
,x_return_status => l_return_status
,p_iohv_rec => lp_iohv_rec
,x_iohv_rec => lx_iohv_rec) ;
IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'insert_open_int_hst', 'B', 'V')) THEN
iex_open_int_hst_vuhk.insert_open_int_hst_pre (
p_init_msg_list => l_init_msg_list
,x_msg_data => l_msg_data
,x_msg_count => l_msg_count
,x_return_status => l_return_status
,p_iohv_rec => lp_iohv_rec
,x_iohv_rec => lx_iohv_rec );
iex_ioh_pvt.insert_row(
l_api_version
,l_init_msg_list
,l_return_status
,l_msg_count
,l_msg_data
,lp_iohv_rec
,lx_iohv_rec);
IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'insert_open_int_hst', 'A', 'V')) THEN
iex_open_int_hst_vuhk.insert_open_int_hst_post(
p_init_msg_list => l_init_msg_list
,x_msg_data => l_msg_data
,x_msg_count => l_msg_count
,x_return_status => l_return_status
,p_iohv_rec => lp_iohv_rec);
IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'insert_open_int_hst', 'A', 'C')) THEN
iex_open_int_hst_cuhk.insert_open_int_hst_post(
p_init_msg_list => l_init_msg_list
,x_msg_data => l_msg_data
,x_msg_count => l_msg_count
,x_return_status => l_return_status
,p_iohv_rec => lp_iohv_rec);
ROLLBACK TO open_int_hst_insert;
ROLLBACK TO open_int_hst_insert;
ROLLBACK TO open_int_hst_insert;
FND_MSG_PUB.ADD_EXC_MSG('IEX_OPEN_INT_HST_PUB','insert_open_int_hst');
END insert_open_int_hst;
PROCEDURE insert_open_int_hst(
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_iohv_tbl IN iohv_tbl_type
,x_iohv_tbl OUT NOCOPY iohv_tbl_type) AS
l_api_version NUMBER;
SAVEPOINT open_int_hst_insert;
IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'insert_open_int_hst', 'B', 'C')) THEN
iex_open_int_hst_cuhk.insert_open_int_hst_pre(
p_init_msg_list => l_init_msg_list
,x_msg_data => l_msg_data
,x_msg_count => l_msg_count
,x_return_status => l_return_status
,p_iohv_tbl => lp_iohv_tbl
,x_iohv_tbl => lx_iohv_tbl);
IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'insert_open_int_hst', 'B', 'V')) THEN
iex_open_int_hst_vuhk.insert_open_int_hst_pre(
p_init_msg_list => l_init_msg_list
,x_msg_data => l_msg_data
,x_msg_count => l_msg_count
,x_return_status => l_return_status
,p_iohv_tbl => lp_iohv_tbl
,x_iohv_tbl => lx_iohv_tbl);
iex_ioh_pvt.insert_row(
l_api_version
,l_init_msg_list
,l_return_status
,l_msg_count
,l_msg_data
,lp_iohv_tbl
,lx_iohv_tbl);
IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'insert_open_int_hst', 'A', 'V')) THEN
iex_open_int_hst_vuhk.insert_open_int_hst_post (
p_init_msg_list => l_init_msg_list
,x_msg_data => l_msg_data
,x_msg_count => l_msg_count
,x_return_status => l_return_status
,p_iohv_tbl => lp_iohv_tbl) ;
IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'insert_open_int_hst', 'A', 'C')) THEN
iex_open_int_hst_cuhk.insert_open_int_hst_post (
p_init_msg_list => l_init_msg_list
,x_msg_data => l_msg_data
,x_msg_count => l_msg_count
,x_return_status => l_return_status
,p_iohv_tbl => lp_iohv_tbl) ;
ROLLBACK TO open_int_hst_insert;
ROLLBACK TO open_int_hst_insert;
ROLLBACK TO open_int_hst_insert;
FND_MSG_PUB.ADD_EXC_MSG('IEX_OPEN_INT_HST_PUB','insert_open_int_hst');
END insert_open_int_hst;
PROCEDURE update_open_int_hst(
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_iohv_rec IN iohv_rec_type
,x_iohv_rec OUT NOCOPY iohv_rec_type) AS
l_api_version NUMBER ;
SAVEPOINT open_int_hst_update;
IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'update_open_int_hst', 'B', 'C')) THEN
iex_open_int_hst_cuhk.update_open_int_hst_pre (
p_init_msg_list => l_init_msg_list
,x_msg_data => l_msg_data
,x_msg_count => l_msg_count
,x_return_status => l_return_status
,p_iohv_rec => lp_iohv_rec
,x_iohv_rec => lx_iohv_rec) ;
IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'update_open_int_hst', 'B', 'V')) THEN
iex_open_int_hst_vuhk.update_open_int_hst_pre (
p_init_msg_list => l_init_msg_list
,x_msg_data => l_msg_data
,x_msg_count => l_msg_count
,x_return_status => l_return_status
,p_iohv_rec => lp_iohv_rec
,x_iohv_rec => lx_iohv_rec) ;
iex_ioh_pvt.update_row(
l_api_version
,l_init_msg_list
,l_return_status
,l_msg_count
,l_msg_data
,lp_iohv_rec
,lx_iohv_rec);
IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'update_open_int_hst', 'A', 'V')) THEN
iex_open_int_hst_vuhk.update_open_int_hst_post (
p_init_msg_list => l_init_msg_list
,x_msg_data => l_msg_data
,x_msg_count => l_msg_count
,x_return_status => l_return_status
,p_iohv_rec => lp_iohv_rec) ;
IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'update_open_int_hst', 'A', 'C')) THEN
iex_open_int_hst_cuhk.update_open_int_hst_post (
p_init_msg_list=>l_init_msg_list
,x_msg_data => l_msg_data
,x_msg_count => l_msg_count
,x_return_status => l_return_status
,p_iohv_rec => lp_iohv_rec) ;
ROLLBACK TO open_int_hst_update;
ROLLBACK TO open_int_hst_update;
ROLLBACK TO open_int_hst_update;
FND_MSG_PUB.ADD_EXC_MSG('IEX_OPEN_INT_HST_PUB','update_open_int_hst');
END update_open_int_hst;
PROCEDURE update_open_int_hst(
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_iohv_tbl IN iohv_tbl_type
,x_iohv_tbl OUT NOCOPY iohv_tbl_type) AS
l_api_version NUMBER;
SAVEPOINT open_int_hst_update;
IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'update_open_int_hst', 'B', 'C')) THEN
iex_open_int_hst_cuhk.update_open_int_hst_pre (
p_init_msg_list => l_init_msg_list
,x_msg_data => l_msg_data
,x_msg_count => l_msg_count
,x_return_status => l_return_status
,p_iohv_tbl => lp_iohv_tbl
,x_iohv_tbl => lx_iohv_tbl) ;
IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'update_open_int_hst', 'B', 'V')) THEN
iex_open_int_hst_vuhk.update_open_int_hst_pre (
p_init_msg_list => l_init_msg_list
,x_msg_data => l_msg_data
,x_msg_count => l_msg_count
,x_return_status => l_return_status
,p_iohv_tbl => lp_iohv_tbl
,x_iohv_tbl => lx_iohv_tbl) ;
iex_ioh_pvt.update_row(
l_api_version
,l_init_msg_list
,l_return_status
,l_msg_count
,l_msg_data
,lp_iohv_tbl
,lx_iohv_tbl);
IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'update_open_int_hst', 'A', 'V')) THEN
iex_open_int_hst_vuhk.update_open_int_hst_post (
p_init_msg_list => l_init_msg_list
,x_msg_data => l_msg_data
,x_msg_count => l_msg_count
,x_return_status => l_return_status
,p_iohv_tbl => lp_iohv_tbl) ;
IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'update_open_int_hst', 'A', 'C')) THEN
iex_open_int_hst_cuhk.update_open_int_hst_post (
p_init_msg_list => l_init_msg_list
,x_msg_data => l_msg_data
,x_msg_count => l_msg_count
,x_return_status => l_return_status
,p_iohv_tbl => lp_iohv_tbl) ;
ROLLBACK TO open_int_hst_update;
ROLLBACK TO open_int_hst_update;
ROLLBACK TO open_int_hst_update;
FND_MSG_PUB.ADD_EXC_MSG('IEX_OPEN_INT_HST_PUB','update_open_int_hst');
END update_open_int_hst;
PROCEDURE delete_open_int_hst(
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_iohv_rec IN iohv_rec_type) AS
i NUMBER;
SAVEPOINT open_int_hst_delete_rec;
IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'delete_open_int_hst', 'B', 'C')) THEN
iex_open_int_hst_cuhk.delete_open_int_hst_pre (
p_init_msg_list => l_init_msg_list
,x_msg_data => l_msg_data
,x_msg_count => l_msg_count
,x_return_status => l_return_status
,p_iohv_rec => lp_iohv_rec
,x_iohv_rec => lx_iohv_rec) ;
IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'delete_open_int_hst', 'B', 'V')) THEN
iex_open_int_hst_vuhk.delete_open_int_hst_pre (
p_init_msg_list => l_init_msg_list
,x_msg_data => l_msg_data
,x_msg_count => l_msg_count
,x_return_status => l_return_status
,p_iohv_rec => lp_iohv_rec
,x_iohv_rec => lx_iohv_rec) ;
iex_ioh_pvt.delete_row(
l_api_version
,l_init_msg_list
,l_return_status
,l_msg_count
,l_msg_data
,lp_iohv_rec);
IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'delete_open_int_hst', 'A', 'V')) THEN
iex_open_int_hst_vuhk.delete_open_int_hst_post (
p_init_msg_list => l_init_msg_list
,x_msg_data => l_msg_data
,x_msg_count => l_msg_count
,x_return_status => l_return_status
,p_iohv_rec => lp_iohv_rec) ;
IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'delete_open_int_hst', 'A', 'C')) THEN
iex_open_int_hst_cuhk.delete_open_int_hst_post (
p_init_msg_list => l_init_msg_list
,x_msg_data => l_msg_data
,x_msg_count => l_msg_count
,x_return_status => l_return_status
,p_iohv_rec => lp_iohv_rec) ;
ROLLBACK TO open_int_hst_delete_rec;
ROLLBACK TO open_int_hst_delete_rec;
ROLLBACK TO open_int_hst_delete_rec;
FND_MSG_PUB.ADD_EXC_MSG('IEX_OPEN_INT_HST_PUB','delete_open_int_hst');
END delete_open_int_hst;
PROCEDURE delete_open_int_hst(
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_iohv_tbl IN iohv_tbl_type) AS
i NUMBER := 0;
SAVEPOINT open_int_hst_delete_tbl;
IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'delete_open_int_hst', 'B', 'C')) THEN
iex_open_int_hst_cuhk.delete_open_int_hst_pre (
p_init_msg_list => l_init_msg_list
,x_msg_data => l_msg_data
,x_msg_count => l_msg_count
,x_return_status => l_return_status
,p_iohv_tbl => lp_iohv_tbl
,x_iohv_tbl => lx_iohv_tbl) ;
IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'delete_open_int_hst', 'B', 'V')) THEN
iex_open_int_hst_vuhk.delete_open_int_hst_pre (
p_init_msg_list => l_init_msg_list
,x_msg_data => l_msg_data
,x_msg_count => l_msg_count
,x_return_status => l_return_status
,p_iohv_tbl => lp_iohv_tbl
,x_iohv_tbl => lx_iohv_tbl) ;
delete_open_int_hst(
l_api_version
,l_init_msg_list
,l_return_status
,l_msg_count
,l_msg_data
,lp_iohv_tbl(i));
IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'delete_open_int_hst', 'A', 'V')) THEN
iex_open_int_hst_vuhk.delete_open_int_hst_post (
p_init_msg_list => l_init_msg_list
,x_msg_data => l_msg_data
,x_msg_count => l_msg_count
,x_return_status => l_return_status
,p_iohv_tbl => lp_iohv_tbl) ;
IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'delete_open_int_hst', 'A', 'C')) THEN
iex_open_int_hst_cuhk.delete_open_int_hst_post (
p_init_msg_list => l_init_msg_list
,x_msg_data => l_msg_data
,x_msg_count => l_msg_count
,x_return_status => l_return_status
,p_iohv_tbl => lp_iohv_tbl) ;
ROLLBACK TO open_int_hst_delete_tbl;
ROLLBACK TO open_int_hst_delete_tbl;
ROLLBACK TO open_int_hst_delete_tbl;
FND_MSG_PUB.ADD_EXC_MSG('IEX_OPEN_INT_HST_PUB','delete_open_int_hst');
END delete_open_int_hst;