[Home] [Help]
4086: END Copy_Resource_Assignments;
4087:
4088: --Bug 4290043.This private API will be called from copy_budget_lines and Copy_Budget_Lines_Appr_Rev in this package
4089: --This API will
4090: ----1. Call pa_fp_upgrade_pkg.Apply_Calculate_FPM_Rules to get the missing amounts/rates in the target version
4091: ----2. Call PA_FP_CALC_PLAN_PKG.CheckZeroQTyNegETC to check for the negative ETC/Qty in the target version
4092: ----3. Update rate based flag for RAs in the target version if any RAs have to be converted to non rate based
4093: ----4. Update the budget lines with the missing amounts
4094: PROCEDURE derv_missing_amts_chk_neg_qty
4250: IF p_derv_rates_missing_amts_flag='Y' THEN
4251:
4252: IF l_debug_mode='Y' THEN
4253:
4254: pa_debug.g_err_stage:= 'Calling pa_fp_upgrade_pkg.Apply_Calculate_FPM_Rules';
4255: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4256:
4257: END IF;
4258:
4255: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4256:
4257: END IF;
4258:
4259: pa_fp_upgrade_pkg.Apply_Calculate_FPM_Rules
4260: ( p_preference_code => p_targ_pref_code
4261: ,p_resource_assignment_id_tbl => l_ra_id_tbl
4262: ,p_rate_based_flag_tbl => l_rate_based_flag_tbl
4263: ,p_quantity_tbl => l_quantity_tbl
4277: ,x_msg_data => l_msg_data);
4278:
4279: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4280: IF l_debug_mode = 'Y' THEN
4281: pa_debug.g_err_stage:= 'Error in pa_fp_upgrade_pkg.Apply_Calculate_FPM_Rules';
4282: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4283: END IF;
4284: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4285: END IF;
4438: SET rate_based_flag = 'N'
4439: ,unit_of_measure = 'DOLLARS'
4440: WHERE resource_assignment_id=l_non_rb_ra_id_tbl(kk);
4441:
4442: --The pa_fp_upgrade_pkg.Apply_Calculate_FPM_Rules API will return a pl-sql tbl of RA ids which can
4443: --be made non rate based. Note that this might not be equal in length to the input l_ra_id_tbl to that API
4444: --The below block will prepare a pl-sql tbl l_bl_rb_flag_chg_tbl which will be equal in length to l_ra_id_tbl
4445: --This tbl will have Y if the ra id is made non rate based . Otherwise it will contain N
4446: l_bl_rb_flag_chg_tbl := SYSTEM.pa_varchar2_1_tbl_type();