[Home] [Help]
11228: * as the same is being called here to pinpoint exact nature of failure in the subsidy / subsidy pool configuration.
11229: * Modification introduced as part of subsidy pools enhancement
11230: * START code changes
11231: */
11232: subsidy_applicable_yn := Okl_Asset_Subsidy_Pvt.validate_subsidy_applicability(p_subsidy_id => l_subsidy_id
11233: ,p_asset_cle_id => l_asset_id
11234: ,p_qa_checker_call => 'Y');
11235: /*
11236: * END code changes
11273: */
11274: 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
11275: -- check if the subsidy has been associated with a subsidy pool, further pool validation depends only if the
11276: -- subsidy has an association with the pool
11277: lv_subsidy_pool_applicable_yn := Okl_Asset_Subsidy_Pvt.is_sub_assoc_with_pool(p_subsidy_id => l_subsidy_id
11278: ,x_subsidy_pool_id => lx_subsidy_pool_id
11279: ,x_sub_pool_curr_code => lx_sub_pool_curr_code);
11280: IF(lv_subsidy_pool_applicable_yn = 'Y')THEN
11281: -- write to log
11287: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
11288:
11289: -- is active by code is called first as reading from a column is more economical than comparing date values
11290: -- if the pool status code is not ACTIVE then no date comparision would be done.
11291: lv_subsidy_pool_applicable_yn := Okl_Asset_Subsidy_Pvt.is_sub_pool_active(p_subsidy_pool_id => lx_subsidy_pool_id
11292: ,x_pool_status => lx_pool_status );
11293: IF(lv_subsidy_pool_applicable_yn <> 'Y')THEN
11294: x_return_status := Okl_Api.G_RET_STS_ERROR;
11295: Okl_Api.set_message(
11301: p_token2_value => get_subsidy_for_asset_rec.asset_number);
11302: RAISE G_EXCEPTION_HALT_VALIDATION;
11303: END IF;
11304: -- validate if the asset start date lies between the effective dates of the subsidy pool
11305: lv_subsidy_pool_applicable_yn := Okl_Asset_Subsidy_Pvt.is_sub_pool_active_by_date(p_subsidy_pool_id => lx_subsidy_pool_id
11306: ,p_asset_date => get_subsidy_for_asset_rec.asset_start_date );
11307: IF(lv_subsidy_pool_applicable_yn <> 'Y')THEN
11308: x_return_status := Okl_Api.G_RET_STS_ERROR;
11309: Okl_Api.set_message(
11316: RAISE G_EXCEPTION_HALT_VALIDATION;
11317: END IF;
11318:
11319: lx_pool_balance := 0;
11320: lv_subsidy_pool_applicable_yn := Okl_Asset_Subsidy_Pvt.is_balance_valid_before_add(p_subsidy_pool_id => lx_subsidy_pool_id
11321: ,x_pool_balance => lx_pool_balance);
11322: IF(lv_subsidy_pool_applicable_yn <> 'Y')THEN
11323: x_return_status := Okl_Api.G_RET_STS_ERROR;
11324: Okl_Api.set_message(
11334: -- block as we dont stop processing if error occurs here. all the assets should be processed
11335: BEGIN
11336: lv_subsidy_amount := 0;
11337: lv_subsidy_amount := NVL(get_subsidy_for_asset_rec.subsidy_override_amount,NVL(get_subsidy_for_asset_rec.amount,0));
11338: Okl_Asset_Subsidy_Pvt.is_balance_valid_after_add (p_subsidy_id => l_subsidy_id
11339: ,p_asset_id => l_asset_id
11340: ,p_subsidy_amount => lv_subsidy_amount
11341: ,p_subsidy_name => get_subsidy_for_asset_rec.subsidy_name
11342: ,x_return_status => x_return_status
11345: -- write to log
11346: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
11347: Okl_Debug_Pub.log_debug(Fnd_Log.LEVEL_STATEMENT,
11348: l_module,
11349: 'okl_asset_subsidy_pvt.is_balance_valid_after_add returned with '|| x_return_status||' x_msg_data '||x_msg_data
11350: );
11351: END IF; -- end of NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on
11352: EXCEPTION WHEN OTHERS THEN
11353: x_return_status := Okl_Api.G_RET_STS_ERROR;