[Home] [Help]
4074: END Copy_Resource_Assignments;
4075:
4076: --Bug 4290043.This private API will be called from copy_budget_lines and Copy_Budget_Lines_Appr_Rev in this package
4077: --This API will
4078: ----1. Call pa_fp_upgrade_pkg.Apply_Calculate_FPM_Rules to get the missing amounts/rates in the target version
4079: ----2. Call PA_FP_CALC_PLAN_PKG.CheckZeroQTyNegETC to check for the negative ETC/Qty in the target version
4080: ----3. Update rate based flag for RAs in the target version if any RAs have to be converted to non rate based
4081: ----4. Update the budget lines with the missing amounts
4082: PROCEDURE derv_missing_amts_chk_neg_qty
4238: IF p_derv_rates_missing_amts_flag='Y' THEN
4239:
4240: IF l_debug_mode='Y' THEN
4241:
4242: pa_debug.g_err_stage:= 'Calling pa_fp_upgrade_pkg.Apply_Calculate_FPM_Rules';
4243: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4244:
4245: END IF;
4246:
4243: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4244:
4245: END IF;
4246:
4247: pa_fp_upgrade_pkg.Apply_Calculate_FPM_Rules
4248: ( p_preference_code => p_targ_pref_code
4249: ,p_resource_assignment_id_tbl => l_ra_id_tbl
4250: ,p_rate_based_flag_tbl => l_rate_based_flag_tbl
4251: ,p_quantity_tbl => l_quantity_tbl
4265: ,x_msg_data => l_msg_data);
4266:
4267: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4268: IF l_debug_mode = 'Y' THEN
4269: pa_debug.g_err_stage:= 'Error in pa_fp_upgrade_pkg.Apply_Calculate_FPM_Rules';
4270: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
4271: END IF;
4272: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4273: END IF;
4426: SET rate_based_flag = 'N'
4427: ,unit_of_measure = 'DOLLARS'
4428: WHERE resource_assignment_id=l_non_rb_ra_id_tbl(kk);
4429:
4430: --The pa_fp_upgrade_pkg.Apply_Calculate_FPM_Rules API will return a pl-sql tbl of RA ids which can
4431: --be made non rate based. Note that this might not be equal in length to the input l_ra_id_tbl to that API
4432: --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
4433: --This tbl will have Y if the ra id is made non rate based . Otherwise it will contain N
4434: l_bl_rb_flag_chg_tbl := SYSTEM.pa_varchar2_1_tbl_type();