The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
MAX(TO_NUMBER(ICPV.VERSION_NUMBER))
FROM
OKL_ITM_CAT_RV_PRCS_V ICPV
WHERE
ICPV.ITEM_RESIDUAL_ID = p_item_residual_id;
SELECT
MAX(TO_NUMBER(ICPV.VERSION_NUMBER))
FROM
OKL_ITM_CAT_RV_PRCS_V ICPV
WHERE
ICPV.STS_CODE = G_STS_ACTIVE
AND ICPV.ITEM_RESIDUAL_ID = p_item_residual_id ;
SELECT
ICPV.START_DATE
, ICPV.END_DATE
FROM
OKL_ITM_CAT_RV_PRCS_V ICPV
WHERE
ICPV.ITEM_RESIDUAL_ID = p_residual_id
AND TO_NUMBER(ICPV.VERSION_NUMBER) = TO_NUMBER(p_version_number)-1 ;
SELECT max(expected_start_date) start_date FROM okl_lease_quotes_b
WHERE rate_card_id IN(SELECT
LRFVERV.RATE_SET_ID LRS_ID
FROM
OKL_FE_ITEM_RESIDUAL IRHV
, OKL_ITM_CAT_RV_PRCS_V ICPV
, OKL_FE_EO_TERM_OBJECTS EOTL
, OKL_FE_EO_TERM_VERS_V EOTVERV
, OKL_FE_RATE_SET_VERSIONS_V LRFVERV
WHERE
EOTL.END_OF_TERM_VER_ID = EOTVERV.END_OF_TERM_VER_ID
AND EOTVERV.END_OF_TERM_VER_ID = LRFVERV.END_OF_TERM_VER_ID
AND EOTVERV.EOT_TYPE_CODE IN ('RESIDUAL_PERCENT','RESIDUAL_AMOUNT')
AND IRHV.INVENTORY_ITEM_ID = EOTL.INVENTORY_ITEM_ID
AND IRHV.ORGANIZATION_ID = EOTL.ORGANIZATION_ID
AND IRHV.CATEGORY_SET_ID = EOTL.CATEGORY_SET_ID
AND ICPV.ITEM_RESIDUAL_ID = IRHV.ITEM_RESIDUAL_ID
AND LRFVERV.EFFECTIVE_FROM_DATE BETWEEN ICPV.START_DATE AND NVL(ICPV.END_DATE,TO_DATE('31-12-9999','dd-mm-yyyy'))
AND ICPV.ID = p_version_id);
SELECT max(expected_start_date) start_date FROM okl_lease_quotes_b
WHERE rate_card_id IN(SELECT
LRFVERV.RATE_SET_ID LRS_ID
FROM
OKL_FE_ITEM_RESIDUAL IRHV
, OKL_ITM_CAT_RV_PRCS_V ICPV
, OKL_FE_EO_TERM_OBJECTS EOTL
, OKL_FE_EO_TERM_VERS_V EOTVERV
, OKL_FE_RATE_SET_VERSIONS_V LRFVERV
WHERE
EOTL.END_OF_TERM_VER_ID = EOTVERV.END_OF_TERM_VER_ID
AND EOTVERV.END_OF_TERM_VER_ID = LRFVERV.END_OF_TERM_VER_ID
AND EOTVERV.EOT_TYPE_CODE IN ('RESIDUAL_PERCENT','RESIDUAL_AMOUNT')
AND IRHV.CATEGORY_ID = EOTL.CATEGORY_ID
AND IRHV.CATEGORY_SET_ID = EOTL.CATEGORY_SET_ID
AND ICPV.ITEM_RESIDUAL_ID = IRHV.ITEM_RESIDUAL_ID
AND LRFVERV.EFFECTIVE_FROM_DATE BETWEEN ICPV.START_DATE AND NVL(ICPV.END_DATE,TO_DATE('31-12-9999','dd-mm-yyyy'))
AND ICPV.ID = p_version_id);
SELECT max(expected_start_date) start_date FROM okl_lease_quotes_b
WHERE rate_card_id IN(SELECT
LRFVERV.RATE_SET_ID LRS_ID
FROM
OKL_FE_ITEM_RESIDUAL IRHV
, OKL_ITM_CAT_RV_PRCS_V ICPV
, OKL_FE_EO_TERM_OBJECTS EOTL
, OKL_FE_EO_TERM_VERS_V EOTVERV
, OKL_FE_RATE_SET_VERSIONS_V LRFVERV
WHERE
EOTL.END_OF_TERM_VER_ID = EOTVERV.END_OF_TERM_VER_ID
AND EOTVERV.END_OF_TERM_VER_ID = LRFVERV.END_OF_TERM_VER_ID
AND EOTVERV.EOT_TYPE_CODE IN ('RESIDUAL_PERCENT','RESIDUAL_AMOUNT')
AND IRHV.RESI_CATEGORY_SET_ID = EOTL.RESI_CATEGORY_SET_ID
AND ICPV.ITEM_RESIDUAL_ID = IRHV.ITEM_RESIDUAL_ID
AND LRFVERV.EFFECTIVE_FROM_DATE BETWEEN ICPV.START_DATE AND NVL(ICPV.END_DATE,TO_DATE('31-12-9999','dd-mm-yyyy'))
AND ICPV.ID = p_version_id);
SELECT max(expected_start_date) start_date FROM okl_quick_quotes_b
WHERE rate_card_id IN (SELECT
LRFVERV.RATE_SET_ID LRS_ID
FROM
OKL_FE_ITEM_RESIDUAL IRHV
, OKL_ITM_CAT_RV_PRCS_V ICPV
, OKL_FE_EO_TERM_OBJECTS EOTL
, OKL_FE_EO_TERM_VERS_V EOTVERV
, OKL_FE_RATE_SET_VERSIONS_V LRFVERV
WHERE
EOTL.END_OF_TERM_VER_ID = EOTVERV.END_OF_TERM_VER_ID
AND EOTVERV.END_OF_TERM_VER_ID = LRFVERV.END_OF_TERM_VER_ID
AND EOTVERV.EOT_TYPE_CODE IN ('RESIDUAL_PERCENT','RESIDUAL_AMOUNT')
AND IRHV.INVENTORY_ITEM_ID = EOTL.INVENTORY_ITEM_ID
AND IRHV.ORGANIZATION_ID = EOTL.ORGANIZATION_ID
AND IRHV.CATEGORY_SET_ID = EOTL.CATEGORY_SET_ID
AND ICPV.ITEM_RESIDUAL_ID = IRHV.ITEM_RESIDUAL_ID
AND LRFVERV.EFFECTIVE_FROM_DATE BETWEEN ICPV.START_DATE AND NVL(ICPV.END_DATE,TO_DATE('31-12-9999','dd-mm-yyyy'))
AND ICPV.ID = p_version_id);
SELECT max(expected_start_date) start_date FROM okl_quick_quotes_b
WHERE rate_card_id IN (SELECT
LRFVERV.RATE_SET_ID LRS_ID
FROM
OKL_FE_ITEM_RESIDUAL IRHV
, OKL_ITM_CAT_RV_PRCS_V ICPV
, OKL_FE_EO_TERM_OBJECTS EOTL
, OKL_FE_EO_TERM_VERS_V EOTVERV
, OKL_FE_RATE_SET_VERSIONS_V LRFVERV
WHERE
EOTL.END_OF_TERM_VER_ID = EOTVERV.END_OF_TERM_VER_ID
AND EOTVERV.END_OF_TERM_VER_ID = LRFVERV.END_OF_TERM_VER_ID
AND EOTVERV.EOT_TYPE_CODE IN ('RESIDUAL_PERCENT','RESIDUAL_AMOUNT')
AND IRHV.CATEGORY_ID = EOTL.CATEGORY_ID
AND IRHV.CATEGORY_SET_ID = EOTL.CATEGORY_SET_ID
AND ICPV.ITEM_RESIDUAL_ID = IRHV.ITEM_RESIDUAL_ID
AND LRFVERV.EFFECTIVE_FROM_DATE BETWEEN ICPV.START_DATE AND NVL(ICPV.END_DATE,TO_DATE('31-12-9999','dd-mm-yyyy'))
AND ICPV.ID = p_version_id);
SELECT max(expected_start_date) start_date FROM okl_quick_quotes_b
WHERE rate_card_id IN (SELECT
LRFVERV.RATE_SET_ID LRS_ID
FROM
OKL_FE_ITEM_RESIDUAL IRHV
, OKL_ITM_CAT_RV_PRCS_V ICPV
, OKL_FE_EO_TERM_OBJECTS EOTL
, OKL_FE_EO_TERM_VERS_V EOTVERV
, OKL_FE_RATE_SET_VERSIONS_V LRFVERV
WHERE
EOTL.END_OF_TERM_VER_ID = EOTVERV.END_OF_TERM_VER_ID
AND EOTVERV.END_OF_TERM_VER_ID = LRFVERV.END_OF_TERM_VER_ID
AND EOTVERV.EOT_TYPE_CODE IN ('RESIDUAL_PERCENT','RESIDUAL_AMOUNT')
AND IRHV.RESI_CATEGORY_SET_ID = EOTL.RESI_CATEGORY_SET_ID
AND ICPV.ITEM_RESIDUAL_ID = IRHV.ITEM_RESIDUAL_ID
AND LRFVERV.EFFECTIVE_FROM_DATE BETWEEN ICPV.START_DATE AND NVL(ICPV.END_DATE,TO_DATE('31-12-9999','dd-mm-yyyy'))
AND ICPV.ID = p_version_id);
SELECT
ICPV.START_DATE
, ICPV.END_DATE
, ICPV.VERSION_NUMBER
, ICPV.STS_CODE
, ICPV.ITEM_RESIDUAL_ID
, IRHV.CATEGORY_TYPE_CODE
FROM
OKL_ITM_CAT_RV_PRCS_V ICPV
, OKL_FE_ITEM_RESIDUAL IRHV
WHERE
IRHV.ITEM_RESIDUAL_ID = ICPV.ITEM_RESIDUAL_ID
AND ICPV.ID = p_ver_id;
OKL_IRH_PVT.insert_row(
p_api_version => p_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_irhv_rec => p_irhv_rec
, x_irhv_rec => x_irhv_rec);
OKL_ICP_PVT.insert_row(
p_api_version => p_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_icpv_rec => lp_icpv_rec
, x_icpv_rec => x_icpv_rec);
OKL_IRV_PVT.insert_row(
p_api_version => p_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_irv_tbl => lp_irv_tbl
, x_irv_tbl => lx_irv_tbl );
PROCEDURE update_version_irs (
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_irhv_rec IN okl_irhv_rec
, p_icpv_rec IN okl_icpv_rec
, p_irv_tbl IN okl_irv_tbl
, x_irhv_rec OUT NOCOPY okl_irhv_rec
, x_icpv_rec OUT NOCOPY okl_icpv_rec
) IS
l_api_name CONSTANT VARCHAR2(40) := 'update_version_irs';
l_module CONSTANT fnd_log_messages.module%TYPE :='okl.plsql.OKL_ITEM_RESIDUALS_PVT.update_version_irs';
SELECT
ICP.END_DATE
FROM
OKL_ITM_CAT_RV_PRCS ICP
WHERE
ICP.ID = p_version_id;
okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRIRSB.pls call update_version_irs');
OKL_ICP_PVT.update_row(
p_api_version => p_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_icpv_rec => lp_icpv_rec
, x_icpv_rec => x_icpv_rec);
OKL_IRV_PVT.update_row(
p_api_version => p_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_irv_tbl => lp_upd_irv_tbl
, x_irv_tbl => lx_upd_irv_tbl );
OKL_IRV_PVT.insert_row(
p_api_version => p_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_irv_tbl => lp_crt_irv_tbl
, x_irv_tbl => lx_crt_irv_tbl );
OKL_IRH_PVT.update_row(
p_api_version => p_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_irhv_rec => lp_irhv_rec
, x_irhv_rec => x_irhv_rec);
okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRIRSB.pls call update_version_irs');
END update_version_irs;
OKL_ICP_PVT.insert_row(
p_api_version => p_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_icpv_rec => lp_icpv_rec
, x_icpv_rec => x_icpv_rec);
OKL_IRV_PVT.insert_row(
p_api_version => p_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_irv_tbl => lp_irv_tbl
, x_irv_tbl => lx_irv_tbl );
OKL_IRH_PVT.update_row(
p_api_version => p_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_irhv_rec => lp_irhv_rec
, x_irhv_rec => x_irhv_rec);
SELECT
LRFVERV.RATE_SET_VERSION_ID LRS_VERSION_ID
, LRFV.NAME LRS_NAME
, LRFVERV.VERSION_NUMBER LRS_VERSION_NUMBER
FROM
OKL_FE_ITEM_RESIDUAL IRHV
, OKL_ITM_CAT_RV_PRCS_V ICPV
, OKL_FE_EO_TERM_OBJECTS EOTL
, OKL_FE_EO_TERM_VERS_V EOTVERV
, OKL_FE_RATE_SET_VERSIONS_V LRFVERV
, OKL_LS_RT_FCTR_SETS_V LRFV
WHERE
EOTL.END_OF_TERM_VER_ID = EOTVERV.END_OF_TERM_VER_ID
AND EOTVERV.END_OF_TERM_VER_ID = LRFVERV.END_OF_TERM_VER_ID
AND EOTVERV.EOT_TYPE_CODE = 'RESIDUAL_PERCENT'
AND EOTVERV.CATEGORY_TYPE_CODE = IRHV.CATEGORY_TYPE_CODE
AND EOTVERV.END_OF_TERM_ID = LRFV.END_OF_TERM_ID
AND LRFVERV.RATE_SET_ID = LRFV.ID
AND LRFVERV.STS_CODE = 'ACTIVE'
AND IRHV.INVENTORY_ITEM_ID = EOTL.INVENTORY_ITEM_ID
AND IRHV.ORGANIZATION_ID = EOTL.ORGANIZATION_ID
-- AND IRHV.CATEGORY_SET_ID = EOTL.CATEGORY_SET_ID
AND ICPV.ITEM_RESIDUAL_ID = IRHV.ITEM_RESIDUAL_ID
AND NVL(p_icpv_rec.end_date,LRFVERV.EFFECTIVE_FROM_DATE +1) < LRFVERV.EFFECTIVE_FROM_DATE
AND LRFVERV.EFFECTIVE_FROM_DATE >= ICPV.START_DATE
AND ICPV.ID = p_ver_id;
SELECT
LRFVERV.RATE_SET_VERSION_ID LRS_VERSION_ID
, LRFV.NAME LRS_NAME
, LRFVERV.VERSION_NUMBER LRS_VERSION_NUMBER
FROM
OKL_FE_ITEM_RESIDUAL IRHV
, OKL_ITM_CAT_RV_PRCS_V ICPV
, OKL_FE_EO_TERM_OBJECTS EOTL
, OKL_FE_EO_TERM_VERS_V EOTVERV
, OKL_FE_RATE_SET_VERSIONS_V LRFVERV
, OKL_LS_RT_FCTR_SETS_V LRFV
WHERE
EOTL.END_OF_TERM_VER_ID = EOTVERV.END_OF_TERM_VER_ID
AND EOTVERV.END_OF_TERM_VER_ID = LRFVERV.END_OF_TERM_VER_ID
AND EOTVERV.EOT_TYPE_CODE = 'RESIDUAL_PERCENT'
AND EOTVERV.CATEGORY_TYPE_CODE = IRHV.CATEGORY_TYPE_CODE
AND EOTVERV.END_OF_TERM_ID = LRFV.END_OF_TERM_ID
AND LRFVERV.RATE_SET_ID = LRFV.ID
AND LRFVERV.STS_CODE = 'ACTIVE'
AND IRHV.CATEGORY_ID = EOTL.CATEGORY_ID
AND IRHV.CATEGORY_SET_ID = EOTL.CATEGORY_SET_ID
AND ICPV.ITEM_RESIDUAL_ID = IRHV.ITEM_RESIDUAL_ID
AND NVL(p_icpv_rec.end_date,LRFVERV.EFFECTIVE_FROM_DATE +1) < LRFVERV.EFFECTIVE_FROM_DATE
AND LRFVERV.EFFECTIVE_FROM_DATE >= ICPV.START_DATE
AND ICPV.ID = p_ver_id;
SELECT
LRFVERV.RATE_SET_VERSION_ID LRS_VERSION_ID
, LRFV.NAME LRS_NAME
, LRFVERV.VERSION_NUMBER LRS_VERSION_NUMBER
FROM
OKL_FE_ITEM_RESIDUAL IRHV
, OKL_ITM_CAT_RV_PRCS_V ICPV
, OKL_FE_EO_TERM_OBJECTS EOTL
, OKL_FE_EO_TERM_VERS_V EOTVERV
, OKL_FE_RATE_SET_VERSIONS_V LRFVERV
, OKL_LS_RT_FCTR_SETS_V LRFV
WHERE
EOTL.END_OF_TERM_VER_ID = EOTVERV.END_OF_TERM_VER_ID
AND EOTVERV.END_OF_TERM_VER_ID = LRFVERV.END_OF_TERM_VER_ID
AND EOTVERV.EOT_TYPE_CODE = 'RESIDUAL_PERCENT'
AND EOTVERV.CATEGORY_TYPE_CODE = IRHV.CATEGORY_TYPE_CODE
AND EOTVERV.END_OF_TERM_ID = LRFV.END_OF_TERM_ID
AND LRFVERV.RATE_SET_ID = LRFV.ID
AND LRFVERV.STS_CODE = 'ACTIVE'
AND IRHV.RESI_CATEGORY_SET_ID = EOTL.RESI_CATEGORY_SET_ID
AND ICPV.ITEM_RESIDUAL_ID = IRHV.ITEM_RESIDUAL_ID
AND NVL(p_icpv_rec.end_date,LRFVERV.EFFECTIVE_FROM_DATE +1) < LRFVERV.EFFECTIVE_FROM_DATE
AND LRFVERV.EFFECTIVE_FROM_DATE >= ICPV.START_DATE
AND ICPV.ID = p_ver_id;
SELECT
CATEGORY_TYPE_CODE
FROM
OKL_FE_ITEM_RESIDUAL
WHERE
ITEM_RESIDUAL_ID = p_item_residual_id; -- Item residual ID
SELECT
end_date
FROM
OKL_ITM_CAT_RV_PRCS_V
WHERE
ID = p_version_id;
Select the category type of the item residual.
*/
OPEN get_category_type(p_icpv_rec.item_residual_id);
SELECT
ICPV.STS_CODE STATUS_CODE
FROM
OKL_ITM_CAT_RV_PRCS_V ICPV
WHERE
ICPV.ITEM_RESIDUAL_ID = residual_id;
SELECT
ICPV.ITEM_RESIDUAL_ID
, ICPV.VERSION_NUMBER
, IRHV.OBJECT_VERSION_NUMBER HDR_OBJECT_VERSION_NUMBER
FROM
OKL_ITM_CAT_RV_PRCS ICPV
, OKL_FE_ITEM_RESIDUAL IRHV
WHERE
IRHV.ITEM_RESIDUAL_ID = ICPV.ITEM_RESIDUAL_ID
AND ICPV.ID = var_version_id;
SELECT
ICPV.ID ID
, ICPV.OBJECT_VERSION_NUMBER OBJECT_VERSION_NUMBER
, ICPV.ITEM_RESIDUAL_ID ITEM_RESIDUAL_ID
, ICPV.STS_CODE STS_CODE
, ICPV.VERSION_NUMBER VERSION_NUMBER
, ICPV.START_DATE EFFECTIVE_FROM_DATE
, ICPV.END_DATE EFFECTIVE_TO_DATE
FROM
OKL_ITM_CAT_RV_PRCS_V ICPV
WHERE
ICPV.ITEM_RESIDUAL_ID = var_residual_id
AND ICPV.VERSION_NUMBER = ver_no;
OKL_ICP_PVT.update_row(
p_api_version => p_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_icpv_rec => lp_icpv_prev_rec
, x_icpv_rec => lx_icpv_prev_rec);
OKL_ICP_PVT.update_row(
p_api_version => p_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_icpv_rec => lp_icpv_curr_rec
, x_icpv_rec => lx_icpv_curr_rec);
OKL_IRH_PVT.update_row(
p_api_version => p_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_irhv_rec => lp_irhv_rec
, x_irhv_rec => lx_irhv_rec);
SELECT
ICPV.ITEM_RESIDUAL_ID
FROM
OKL_ITM_CAT_RV_PRCS_V ICPV
WHERE
ICPV.ID = p_itm_rsdl_version_id;
SELECT
IRESDV.CATEGORY_TYPE_CODE
FROM
OKL_FE_ITEM_RESIDUAL IRESDV
WHERE
IRESDV.item_residual_id = p_itm_rsdl_id;
SELECT
RCSV.RESI_CATEGORY_SET_ID ID
, RCSV.RESI_CAT_NAME NAME
FROM
OKL_FE_RESI_CAT_V RCSV
, OKL_FE_ITEM_RESIDUAL IRESDV
WHERE
IRESDV.CATEGORY_TYPE_CODE = G_CAT_RES_CAT
AND IRESDV.RESI_CATEGORY_SET_ID = RCSV.RESI_CATEGORY_SET_ID
AND RCSV.STS_CODE <> p_rcs_sts_code
AND IRESDV.item_residual_id = p_itm_rsdl_id;
PROCEDURE update_version_irs_submit (
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_irhv_rec IN okl_irhv_rec
, p_icpv_rec IN okl_icpv_rec
, p_irv_tbl IN okl_irv_tbl
, x_irhv_rec OUT NOCOPY okl_irhv_rec
, x_icpv_rec OUT NOCOPY okl_icpv_rec
) IS
l_api_name CONSTANT VARCHAR2(40) := 'update_version_irs_submit';
l_module CONSTANT fnd_log_messages.module%TYPE :='okl.plsql.OKL_ITEM_RESIDUALS_PVT.update_version_irs_submit';
okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRIRSB.pls call update_version_irs_submit');
update_version_irs (
p_api_version => l_api_version
, p_init_msg_list => l_init_msg_list
, x_return_status => l_return_status
, x_msg_count => x_msg_count
, x_msg_data => x_msg_data
, p_irhv_rec => p_irhv_rec
, p_icpv_rec => lp_icpv_rec
, p_irv_tbl => p_irv_tbl
, x_irhv_rec => x_irhv_rec
, x_icpv_rec => x_icpv_rec
);
okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRIRSB.pls call update_version_irs_submit');
END update_version_irs_submit;
SELECT
ID
FROM
OKL_ITM_CAT_RV_PRCS_V
WHERE
ITEM_RESIDUAL_ID = p_item_residual_id
AND TO_NUMBER(VERSION_NUMBER) = p_ver_no - 1;
OKL_IRV_PVT.delete_row(
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_irv_tbl => p_irv_tbl);