[Home] [Help]
11651: * as the same is being called here to pinpoint exact nature of failure in the subsidy / subsidy pool configuration.
11652: * Modification introduced as part of subsidy pools enhancement
11653: * START code changes
11654: */
11655: subsidy_applicable_yn := Okl_Asset_Subsidy_Pvt.validate_subsidy_applicability(p_subsidy_id => l_subsidy_id
11656: ,p_asset_cle_id => l_asset_id
11657: ,p_qa_checker_call => 'Y');
11658: /*
11659: * END code changes
11696: */
11697: lv_subsidy_pool_applicable_yn := 'N'; -- need to reset this var as this is being used in a loop. the last usage should not be compared
11698: -- check if the subsidy has been associated with a subsidy pool, further pool validation depends only if the
11699: -- subsidy has an association with the pool
11700: lv_subsidy_pool_applicable_yn := Okl_Asset_Subsidy_Pvt.is_sub_assoc_with_pool(p_subsidy_id => l_subsidy_id
11701: ,x_subsidy_pool_id => lx_subsidy_pool_id
11702: ,x_sub_pool_curr_code => lx_sub_pool_curr_code);
11703: IF(lv_subsidy_pool_applicable_yn = 'Y')THEN
11704: -- write to log
11710: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
11711:
11712: -- is active by code is called first as reading from a column is more economical than comparing date values
11713: -- if the pool status code is not ACTIVE then no date comparision would be done.
11714: lv_subsidy_pool_applicable_yn := Okl_Asset_Subsidy_Pvt.is_sub_pool_active(p_subsidy_pool_id => lx_subsidy_pool_id
11715: ,x_pool_status => lx_pool_status );
11716: IF(lv_subsidy_pool_applicable_yn <> 'Y')THEN
11717: x_return_status := Okl_Api.G_RET_STS_ERROR;
11718: Okl_Api.set_message(
11724: p_token2_value => get_subsidy_for_asset_rec.asset_number);
11725: RAISE G_EXCEPTION_HALT_VALIDATION;
11726: END IF;
11727: -- validate if the asset start date lies between the effective dates of the subsidy pool
11728: lv_subsidy_pool_applicable_yn := Okl_Asset_Subsidy_Pvt.is_sub_pool_active_by_date(p_subsidy_pool_id => lx_subsidy_pool_id
11729: ,p_asset_date => get_subsidy_for_asset_rec.asset_start_date );
11730: IF(lv_subsidy_pool_applicable_yn <> 'Y')THEN
11731: x_return_status := Okl_Api.G_RET_STS_ERROR;
11732: Okl_Api.set_message(
11739: RAISE G_EXCEPTION_HALT_VALIDATION;
11740: END IF;
11741:
11742: lx_pool_balance := 0;
11743: lv_subsidy_pool_applicable_yn := Okl_Asset_Subsidy_Pvt.is_balance_valid_before_add(p_subsidy_pool_id => lx_subsidy_pool_id
11744: ,x_pool_balance => lx_pool_balance);
11745: IF(lv_subsidy_pool_applicable_yn <> 'Y')THEN
11746: x_return_status := Okl_Api.G_RET_STS_ERROR;
11747: Okl_Api.set_message(
11757: -- block as we dont stop processing if error occurs here. all the assets should be processed
11758: BEGIN
11759: lv_subsidy_amount := 0;
11760: lv_subsidy_amount := NVL(get_subsidy_for_asset_rec.subsidy_override_amount,NVL(get_subsidy_for_asset_rec.amount,0));
11761: Okl_Asset_Subsidy_Pvt.is_balance_valid_after_add (p_subsidy_id => l_subsidy_id
11762: ,p_asset_id => l_asset_id
11763: ,p_subsidy_amount => lv_subsidy_amount
11764: ,p_subsidy_name => get_subsidy_for_asset_rec.subsidy_name
11765: ,x_return_status => x_return_status
11768: -- write to log
11769: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
11770: Okl_Debug_Pub.log_debug(Fnd_Log.LEVEL_STATEMENT,
11771: l_module,
11772: 'okl_asset_subsidy_pvt.is_balance_valid_after_add returned with '|| x_return_status||' x_msg_data '||x_msg_data
11773: );
11774: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
11775: EXCEPTION WHEN OTHERS THEN
11776: x_return_status := Okl_Api.G_RET_STS_ERROR;