[Home] [Help]
121: l_tgt_res_asg_id_tab PA_PLSQL_DATATYPES.IdTabTyp;
122: l_txn_src_code_tab PA_PLSQL_DATATYPES.Char30TabTyp;
123:
124: l_sysdate DATE;
125: l_last_updated_by PA_RESOURCE_ASSIGNMENTS.LAST_UPDATED_BY%TYPE;
126: l_last_update_login PA_RESOURCE_ASSIGNMENTS.LAST_UPDATE_LOGIN%TYPE;
127:
128: /* Local copy of target version details for getting source version ids. */
129: l_fp_cols_rec PA_FP_GEN_AMOUNT_UTILS.FP_COLS;
122: l_txn_src_code_tab PA_PLSQL_DATATYPES.Char30TabTyp;
123:
124: l_sysdate DATE;
125: l_last_updated_by PA_RESOURCE_ASSIGNMENTS.LAST_UPDATED_BY%TYPE;
126: l_last_update_login PA_RESOURCE_ASSIGNMENTS.LAST_UPDATE_LOGIN%TYPE;
127:
128: /* Local copy of target version details for getting source version ids. */
129: l_fp_cols_rec PA_FP_GEN_AMOUNT_UTILS.FP_COLS;
130: l_resource_list_id PA_BUDGET_VERSIONS.RESOURCE_LIST_ID%TYPE;
387:
388: /* end if for calling the mapping api for the target version */
389:
390: --select count(*) into l_count_tmp
391: --from pa_resource_assignments where budget_version_id = P_BUDGET_VERSION_ID;
392: --dbms_output.put_line('@@before maintain_res_asg, count of pa_resource_asgs:' ||l_count_tmp);
393: --hr_utility.trace('before calling maintain res asg');
394:
395: IF P_PA_DEBUG_MODE = 'Y' THEN
416: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
417: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
418: END IF;
419: --select count(*) into l_count_tmp
420: --from pa_resource_assignments where budget_version_id = P_BUDGET_VERSION_ID;
421: --dbms_output.put_line('@@after maintain_res_asg,count of pa_resource_asgs:' ||l_count_tmp);
422:
423: -- Bug 3982592: Between forecast generation processes users may have changed
424: -- planning resource start and end dates. Thus, we must update the resource
453: INTO l_res_asg_id_tab,
454: l_start_date_tab,
455: l_end_date_tab
456: FROM pa_fp_planning_res_tmp1 tmp1,
457: pa_resource_assignments ra
458: WHERE ra.budget_version_id = p_budget_version_id
459: AND ra.task_id = tmp1.task_id
460: AND ra.resource_list_member_id = tmp1.resource_list_member_id
461: AND nvl(ra.cbs_element_id,-1) = nvl(tmp1.cbs_element_id,-1) --bug#16791711
478: INTO l_res_asg_id_tab,
479: l_start_date_tab,
480: l_end_date_tab
481: FROM pa_fp_planning_res_tmp1 tmp1,
482: pa_resource_assignments ra
483: WHERE ra.budget_version_id = p_budget_version_id
484: AND ra.task_id = tmp1.task_id
485: AND ra.resource_list_member_id = tmp1.resource_list_member_id
486: AND nvl(ra.cbs_element_id,-1) = nvl(tmp1.cbs_element_id,-1) --bug#16791711
502: l_last_update_login := FND_GLOBAL.LOGIN_ID;
503: l_sysdate := SYSDATE;
504:
505: FORALL i in 1..l_res_asg_id_tab.count
506: UPDATE pa_resource_assignments
507: SET planning_start_date = l_start_date_tab(i),
508: planning_end_date = l_end_date_tab(i),
509: last_update_date = l_sysdate,
510: last_updated_by = l_last_updated_by,
591: BULK COLLECT
592: INTO l_tgt_res_asg_id_tab,
593: l_txn_src_code_tab
594: FROM PA_FP_CALC_AMT_TMP1 tmp1,
595: pa_resource_assignments ra
596: WHERE ra.budget_version_id = p_budget_version_id
597: AND ra.resource_assignment_id = tmp1.target_res_asg_id
598: AND ( ra.transaction_source_code IS NOT NULL
599: OR ( ra.transaction_source_code IS NULL
609: BULK COLLECT
610: INTO l_tgt_res_asg_id_tab,
611: l_txn_src_code_tab
612: FROM PA_FP_CALC_AMT_TMP1 tmp1,
613: pa_resource_assignments ra
614: WHERE ra.budget_version_id = p_budget_version_id
615: AND ra.resource_assignment_id = tmp1.target_res_asg_id
616: AND ( ra.transaction_source_code IS NOT NULL
617: OR ( ra.transaction_source_code IS NULL
629: l_last_updated_by := FND_GLOBAL.USER_ID;
630: l_last_update_login := FND_GLOBAL.LOGIN_ID;
631:
632: FORALL i in 1..l_tgt_res_asg_id_tab.count
633: UPDATE pa_resource_assignments
634: SET transaction_source_code = l_txn_src_code_tab(i),
635: last_update_date = l_sysdate,
636: last_updated_by = l_last_updated_by,
637: last_update_login = l_last_update_login,