[Home] [Help]
79: CURSOR C_Res_Asgmt_Data(p_resource_assignment_id IN NUMBER) IS
80: select task_id, wbs_element_version_id, supplier_id, resource_class_code, resource_assignment_id,
81: project_role_id, organization_id,
82: fc_res_type_code, named_role,res_type_code, planning_start_date, planning_end_date,
83: procure_resource_flag, use_task_schedule_flag, rate_based_flag from pa_resource_assignments where
84: resource_assignment_id = p_resource_assignment_id;
85: C_Res_Asgmt_Data_Rec C_Res_Asgmt_Data%ROWTYPE;
86:
87: CURSOR C_Get_res_info(p_resource_assignment_id IN NUMBER) IS
85: C_Res_Asgmt_Data_Rec C_Res_Asgmt_Data%ROWTYPE;
86:
87: CURSOR C_Get_res_info(p_resource_assignment_id IN NUMBER) IS
88: select rate_based_flag , resource_list_member_id, planning_start_date, planning_end_date
89: from pa_resource_assignments r
90: where resource_assignment_id = p_resource_assignment_id;
91: C_Get_res_info_rec C_Get_res_info%ROWTYPE;
92:
93: CURSOR C_Get_Budget_Version_Id(p_structure_version_id IN NUMBER, p_project_id IN NUMBER) is
141: CURSOR C_Prog_Date(p_resource_assignment_id IN NUMBER) IS
142: select ppr.as_of_date
143: from pa_progress_rollup ppr,
144: pa_proj_element_versions ppv,
145: pa_resource_assignments pra
146: where ppv.parent_structure_version_id=p_pa_structure_version_id
147: and ppv.project_id=p_pa_project_id
148: and pra.resource_assignment_id=p_resource_assignment_id
149: and pra.project_id=ppv.project_id
177: p_project_id IN NUMBER,
178: p_wbs_version_id IN NUMBER,
179: p_resource_list_member_id IN NUMBER ) IS
180: Select a.alias, b.resource_assignment_id
181: from pa_resource_list_members a, pa_resource_assignments b, pa_budget_versions bv
182: where a.resource_list_member_id = b.resource_list_member_id
183: and b.resource_list_member_id = p_resource_list_member_id
184: and b.ta_display_flag = 'Y'
185: and b.budget_version_id = bv.budget_version_id
1071: ELSE
1072: delete from pa_budget_lines where resource_assignment_id = l_resource_assignment_id_tbl(i);
1073: END IF;
1074:
1075: update pa_resource_assignments set sp_fixed_date=null,spread_curve_id =null, record_version_number=(record_version_number+1)
1076: where resource_assignment_id = l_FINPLAN_LINES_TAB(l_finplan_line_count).resource_assignment_id;
1077:
1078: -- 10/22/04: Increment the l_finplan_lines table coutn
1079: l_finplan_line_count := l_finplan_line_count+1;
1526: ,p_scheduled_start IN DATE
1527: ,p_scheduled_end IN DATE
1528: ,p_resource_class_code IN PA_RESOURCE_LIST_MEMBERS.resource_class_code%TYPE
1529: ,p_resource_list_member_id IN PA_RESOURCE_LIST_MEMBERS.resource_list_member_id%TYPE
1530: ,p_unplanned_flag IN PA_RESOURCE_ASSIGNMENTS.unplanned_flag%TYPE
1531: ,x_resource_assignment_id OUT NOCOPY NUMBER -- 4537865 Added Nocopy hint
1532: ,x_task_version_id OUT NOCOPY NUMBER -- 4537865 Added Nocopy hint
1533: ,x_resource_list_member_id OUT NOCOPY NUMBER -- 4537865 Added Nocopy hint
1534: ,x_currency_code OUT NOCOPY VARCHAR2 -- 4537865 Added Nocopy hint
1544: SELECT resource_assignment_id,
1545: DECODE(ta_display_flag, 'N', wbs_element_version_id, NULL),
1546: rate_based_flag,
1547: rbs_element_id
1548: FROM pa_resource_assignments
1549: WHERE resource_list_member_id = c_resource_list_member_id
1550: AND wbs_element_version_id = p_task_version_id
1551: AND ta_display_flag IS NOT NULL
1552: AND rownum = 1;
1552: AND rownum = 1;
1553:
1554: CURSOR get_task_level_rec IS
1555: SELECT resource_assignment_id, resource_list_member_id
1556: FROM pa_resource_assignments
1557: WHERE wbs_element_version_id = p_task_version_id
1558: AND ta_display_flag = 'N'
1559: AND rownum = 1;
1560:
1559: AND rownum = 1;
1560:
1561: CURSOR get_people_class_asgmt IS
1562: SELECT resource_assignment_id, resource_list_member_id
1563: FROM pa_resource_assignments
1564: WHERE wbs_element_version_id = p_task_version_id
1565: AND ta_display_flag = 'Y'
1566: AND resource_class_code = 'PEOPLE'
1567: AND rownum = 1;
1788: -- 2. in shared case, the RL is None and the rlm is of People class
1789: -- AND no assignment exists on the task version
1790: IF l_toggle_ta_display_flag = 'Y' THEN
1791:
1792: UPDATE pa_resource_assignments
1793: SET ta_display_flag = 'N'
1794: WHERE resource_assignment_id = l_resource_assignment_id;
1795:
1796: END IF;
1896: 0,
1897: 'Y',
1898: ra_old.ta_display_flag
1899: FROM
1900: pa_resource_assignments ra_old,
1901: pa_proj_element_versions pev,
1902: pa_proj_elem_ver_schedule pevs
1903: WHERE
1904: ra_old.budget_version_id = old_budget_version_id AND
1918: (
1919: SELECT
1920: ra_new.resource_assignment_id
1921: FROM
1922: pa_resource_assignments ra_new
1923: WHERE
1924: ra_new.resource_list_member_id = ra_old.resource_list_member_id AND
1925: ra_new.task_id = ra_old.task_id AND
1926: ra_new.project_id = ra_old.project_id AND
1992:
1993: -- Workaround to the fact that Add_Planning_Transactions only accept planning_*_date
1994: -- which are then stemed to schedule_*_date in Validate_Create_Assignment
1995: FORALL i IN 1..l_element_version_id_tbl.COUNT
1996: UPDATE pa_resource_assignments
1997: SET planning_start_date = l_planning_start_date_tbl(i),
1998: planning_end_date = l_planning_end_date_tbl(i),
1999: ta_display_flag = l_ta_display_flag_tbl(i)
2000: WHERE wbs_element_version_id = l_element_version_id_tbl(i)