[Home] [Help]
119: l_tgt_res_asg_id_tab PA_PLSQL_DATATYPES.IdTabTyp;
120: l_txn_src_code_tab PA_PLSQL_DATATYPES.Char30TabTyp;
121:
122: l_sysdate DATE;
123: l_last_updated_by PA_RESOURCE_ASSIGNMENTS.LAST_UPDATED_BY%TYPE;
124: l_last_update_login PA_RESOURCE_ASSIGNMENTS.LAST_UPDATE_LOGIN%TYPE;
125:
126: /* Local copy of target version details for getting source version ids. */
127: l_fp_cols_rec PA_FP_GEN_AMOUNT_UTILS.FP_COLS;
120: l_txn_src_code_tab PA_PLSQL_DATATYPES.Char30TabTyp;
121:
122: l_sysdate DATE;
123: l_last_updated_by PA_RESOURCE_ASSIGNMENTS.LAST_UPDATED_BY%TYPE;
124: l_last_update_login PA_RESOURCE_ASSIGNMENTS.LAST_UPDATE_LOGIN%TYPE;
125:
126: /* Local copy of target version details for getting source version ids. */
127: l_fp_cols_rec PA_FP_GEN_AMOUNT_UTILS.FP_COLS;
128: l_resource_list_id PA_BUDGET_VERSIONS.RESOURCE_LIST_ID%TYPE;
385:
386: /* end if for calling the mapping api for the target version */
387:
388: --select count(*) into l_count_tmp
389: --from pa_resource_assignments where budget_version_id = P_BUDGET_VERSION_ID;
390: --dbms_output.put_line('@@before maintain_res_asg, count of pa_resource_asgs:' ||l_count_tmp);
391: --hr_utility.trace('before calling maintain res asg');
392:
393: IF P_PA_DEBUG_MODE = 'Y' THEN
414: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
415: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
416: END IF;
417: --select count(*) into l_count_tmp
418: --from pa_resource_assignments where budget_version_id = P_BUDGET_VERSION_ID;
419: --dbms_output.put_line('@@after maintain_res_asg,count of pa_resource_asgs:' ||l_count_tmp);
420:
421: -- Bug 3982592: Between forecast generation processes users may have changed
422: -- planning resource start and end dates. Thus, we must update the resource
451: INTO l_res_asg_id_tab,
452: l_start_date_tab,
453: l_end_date_tab
454: FROM pa_fp_planning_res_tmp1 tmp1,
455: pa_resource_assignments ra
456: WHERE ra.budget_version_id = p_budget_version_id
457: AND ra.task_id = tmp1.task_id
458: AND ra.resource_list_member_id = tmp1.resource_list_member_id
459: --AND ra.resource_assignment_id = tmp1.resource_assignment_id
475: INTO l_res_asg_id_tab,
476: l_start_date_tab,
477: l_end_date_tab
478: FROM pa_fp_planning_res_tmp1 tmp1,
479: pa_resource_assignments ra
480: WHERE ra.budget_version_id = p_budget_version_id
481: AND ra.task_id = tmp1.task_id
482: AND ra.resource_list_member_id = tmp1.resource_list_member_id
483: --AND ra.resource_assignment_id = tmp1.resource_assignment_id
498: l_last_update_login := FND_GLOBAL.LOGIN_ID;
499: l_sysdate := SYSDATE;
500:
501: FORALL i in 1..l_res_asg_id_tab.count
502: UPDATE pa_resource_assignments
503: SET planning_start_date = l_start_date_tab(i),
504: planning_end_date = l_end_date_tab(i),
505: last_update_date = l_sysdate,
506: last_updated_by = l_last_updated_by,
580: BULK COLLECT
581: INTO l_tgt_res_asg_id_tab,
582: l_txn_src_code_tab
583: FROM PA_FP_CALC_AMT_TMP1 tmp1,
584: pa_resource_assignments ra
585: WHERE ra.budget_version_id = p_budget_version_id
586: AND ra.resource_assignment_id = tmp1.target_res_asg_id
587: AND ( ra.transaction_source_code IS NOT NULL
588: OR ( ra.transaction_source_code IS NULL
598: BULK COLLECT
599: INTO l_tgt_res_asg_id_tab,
600: l_txn_src_code_tab
601: FROM PA_FP_CALC_AMT_TMP1 tmp1,
602: pa_resource_assignments ra
603: WHERE ra.budget_version_id = p_budget_version_id
604: AND ra.resource_assignment_id = tmp1.target_res_asg_id
605: AND ( ra.transaction_source_code IS NOT NULL
606: OR ( ra.transaction_source_code IS NULL
618: l_last_updated_by := FND_GLOBAL.USER_ID;
619: l_last_update_login := FND_GLOBAL.LOGIN_ID;
620:
621: FORALL i in 1..l_tgt_res_asg_id_tab.count
622: UPDATE pa_resource_assignments
623: SET transaction_source_code = l_txn_src_code_tab(i),
624: last_update_date = l_sysdate,
625: last_updated_by = l_last_updated_by,
626: last_update_login = l_last_update_login,