[Home] [Help]
95: /*after calling create_res_asg and update_res_asg
96: *we will create the new res_asg_id for the mapped
97: *rlm_id and task id for target budget_version; and
98: *also, the newly created res_asg_id is written back
99: *to PA_FP_PLANNING_RES_TMP1. We need to update this
100: *value to calc_amt_tmp1 and calc_amt_tmp2 to facilitae
101: *our future operation. */
102: CURSOR update_res_asg IS
103: SELECT task_id,
102: CURSOR update_res_asg IS
103: SELECT task_id,
104: resource_list_member_id,
105: resource_assignment_id
106: FROM PA_FP_PLANNING_RES_TMP1;
107:
108: l_upd_task_id_tab PA_PLSQL_DATATYPES.NumTabTyp;
109: l_upd_rlm_id_tab PA_PLSQL_DATATYPES.NumTabTyp;
110: l_upd_target_ra_id_tab PA_PLSQL_DATATYPES.NumTabTyp;
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
423: -- assignments table with the source dates in pa_fp_planning_res_tmp1.
424: -- Bug 4114589: Moved logic for bug 3982592 from UPDATE_RES_ASG to here
425: -- so that we only update the planning dates once. Added manual lines logic.
426:
427: -- Bug 4301959: Modified the Retain Manually Added Lines logic to
435: BULK COLLECT
436: INTO l_res_asg_id_tab,
437: l_start_date_tab,
438: l_end_date_tab
439: FROM pa_fp_planning_res_tmp1
440: GROUP BY resource_assignment_id;
441: ELSIF p_fp_cols_rec.X_GEN_RET_MANUAL_LINE_FLAG = 'Y' THEN
442: IF p_fp_cols_rec.x_time_phased_code IN ('P','G') THEN
443: l_etc_start_date :=
442: IF p_fp_cols_rec.x_time_phased_code IN ('P','G') THEN
443: l_etc_start_date :=
444: PA_FP_GEN_AMOUNT_UTILS.GET_ETC_START_DATE(p_budget_version_id);
445:
446: SELECT /*+ INDEX(tmp1,PA_FP_PLANNING_RES_TMP1_N1)*/
447: tmp1.resource_assignment_id,
448: MIN(tmp1.planning_start_date),
449: MAX(tmp1.planning_end_date)
450: BULK COLLECT
450: BULK COLLECT
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
466: AND bl.start_date >= l_etc_start_date
467: AND rownum = 1 )))
468: GROUP BY tmp1.resource_assignment_id;
469: ELSIF p_fp_cols_rec.x_time_phased_code = 'N' THEN
470: SELECT /*+ INDEX(tmp1,PA_FP_PLANNING_RES_TMP1_N1)*/
471: tmp1.resource_assignment_id,
472: MIN(tmp1.planning_start_date),
473: MAX(tmp1.planning_end_date)
474: BULK COLLECT
474: BULK COLLECT
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