[Home] [Help]
9: */
10:
11: FUNCTION calculate_gl_total
12: (p_amount_code IN pa_amount_types_b.amount_type_code%TYPE,
13: p_project_id IN pa_resource_assignments.project_id%TYPE,
14: p_task_id IN pa_resource_assignments.task_id%TYPE,
15: p_resource_list_member_id IN pa_resource_assignments.resource_list_member_id%TYPE)
16: return NUMBER
17: is
10:
11: FUNCTION calculate_gl_total
12: (p_amount_code IN pa_amount_types_b.amount_type_code%TYPE,
13: p_project_id IN pa_resource_assignments.project_id%TYPE,
14: p_task_id IN pa_resource_assignments.task_id%TYPE,
15: p_resource_list_member_id IN pa_resource_assignments.resource_list_member_id%TYPE)
16: return NUMBER
17: is
18: l_burdened_cost NUMBER := 0;
11: FUNCTION calculate_gl_total
12: (p_amount_code IN pa_amount_types_b.amount_type_code%TYPE,
13: p_project_id IN pa_resource_assignments.project_id%TYPE,
14: p_task_id IN pa_resource_assignments.task_id%TYPE,
15: p_resource_list_member_id IN pa_resource_assignments.resource_list_member_id%TYPE)
16: return NUMBER
17: is
18: l_burdened_cost NUMBER := 0;
19: l_revenue NUMBER := 0;
77: /* ------------------------------------------------------------------ */
78:
79: FUNCTION calculate_pa_total
80: (p_amount_code IN pa_amount_types_b.amount_type_code%TYPE,
81: p_project_id IN pa_resource_assignments.project_id%TYPE,
82: p_task_id IN pa_resource_assignments.task_id%TYPE,
83: p_resource_list_member_id IN pa_resource_assignments.resource_list_member_id%TYPE)
84: return NUMBER
85: is
78:
79: FUNCTION calculate_pa_total
80: (p_amount_code IN pa_amount_types_b.amount_type_code%TYPE,
81: p_project_id IN pa_resource_assignments.project_id%TYPE,
82: p_task_id IN pa_resource_assignments.task_id%TYPE,
83: p_resource_list_member_id IN pa_resource_assignments.resource_list_member_id%TYPE)
84: return NUMBER
85: is
86: l_burdened_cost NUMBER := 0;
79: FUNCTION calculate_pa_total
80: (p_amount_code IN pa_amount_types_b.amount_type_code%TYPE,
81: p_project_id IN pa_resource_assignments.project_id%TYPE,
82: p_task_id IN pa_resource_assignments.task_id%TYPE,
83: p_resource_list_member_id IN pa_resource_assignments.resource_list_member_id%TYPE)
84: return NUMBER
85: is
86: l_burdened_cost NUMBER := 0;
87: l_revenue NUMBER := 0;
207: end check_compatible_pd_profiles;
208: /* -------------------------------------------------------------------- */
209:
210: FUNCTION assign_row_level
211: (p_project_id IN pa_resource_assignments.project_id%TYPE,
212: p_task_id IN pa_resource_assignments.task_id%TYPE,
213: p_resource_list_member_id IN pa_resource_assignments.resource_list_member_id%TYPE)
214: return NUMBER
215: is
208: /* -------------------------------------------------------------------- */
209:
210: FUNCTION assign_row_level
211: (p_project_id IN pa_resource_assignments.project_id%TYPE,
212: p_task_id IN pa_resource_assignments.task_id%TYPE,
213: p_resource_list_member_id IN pa_resource_assignments.resource_list_member_id%TYPE)
214: return NUMBER
215: is
216: /* local variables */
209:
210: FUNCTION assign_row_level
211: (p_project_id IN pa_resource_assignments.project_id%TYPE,
212: p_task_id IN pa_resource_assignments.task_id%TYPE,
213: p_resource_list_member_id IN pa_resource_assignments.resource_list_member_id%TYPE)
214: return NUMBER
215: is
216: /* local variables */
217: l_return_value NUMBER;
317: END assign_row_level;
318: /* -------------------------------------------------------------------- */
319:
320: FUNCTION assign_parent_element
321: (p_project_id IN pa_resource_assignments.project_id%TYPE,
322: p_task_id IN pa_resource_assignments.task_id%TYPE,
323: p_resource_list_member_id IN pa_resource_assignments.resource_list_member_id%TYPE)
324: return VARCHAR2
325: as
318: /* -------------------------------------------------------------------- */
319:
320: FUNCTION assign_parent_element
321: (p_project_id IN pa_resource_assignments.project_id%TYPE,
322: p_task_id IN pa_resource_assignments.task_id%TYPE,
323: p_resource_list_member_id IN pa_resource_assignments.resource_list_member_id%TYPE)
324: return VARCHAR2
325: as
326: /* local variables */
319:
320: FUNCTION assign_parent_element
321: (p_project_id IN pa_resource_assignments.project_id%TYPE,
322: p_task_id IN pa_resource_assignments.task_id%TYPE,
323: p_resource_list_member_id IN pa_resource_assignments.resource_list_member_id%TYPE)
324: return VARCHAR2
325: as
326: /* local variables */
327: l_return_value VARCHAR2(2000);
475: END assign_parent_element;
476: /* --------------------------------------------------------------------- */
477:
478: FUNCTION assign_element_name
479: (p_project_id IN pa_resource_assignments.project_id%TYPE,
480: p_task_id IN pa_resource_assignments.task_id%TYPE,
481: p_resource_list_member_id IN pa_resource_assignments.resource_list_member_id%TYPE)
482: return VARCHAR2
483: is
476: /* --------------------------------------------------------------------- */
477:
478: FUNCTION assign_element_name
479: (p_project_id IN pa_resource_assignments.project_id%TYPE,
480: p_task_id IN pa_resource_assignments.task_id%TYPE,
481: p_resource_list_member_id IN pa_resource_assignments.resource_list_member_id%TYPE)
482: return VARCHAR2
483: is
484: /* local variables */
477:
478: FUNCTION assign_element_name
479: (p_project_id IN pa_resource_assignments.project_id%TYPE,
480: p_task_id IN pa_resource_assignments.task_id%TYPE,
481: p_resource_list_member_id IN pa_resource_assignments.resource_list_member_id%TYPE)
482: return VARCHAR2
483: is
484: /* local variables */
485: l_return_value VARCHAR2(2000);
560: END assign_element_name;
561: /* --------------------------------------------------------------------- */
562:
563: FUNCTION assign_element_level
564: (p_project_id IN pa_resource_assignments.project_id%TYPE,
565: p_budget_version_id IN pa_resource_assignments.budget_version_id%TYPE,
566: p_task_id IN pa_resource_assignments.task_id%TYPE,
567: p_resource_list_member_id IN pa_resource_assignments.resource_list_member_id%TYPE)
568: return VARCHAR2
561: /* --------------------------------------------------------------------- */
562:
563: FUNCTION assign_element_level
564: (p_project_id IN pa_resource_assignments.project_id%TYPE,
565: p_budget_version_id IN pa_resource_assignments.budget_version_id%TYPE,
566: p_task_id IN pa_resource_assignments.task_id%TYPE,
567: p_resource_list_member_id IN pa_resource_assignments.resource_list_member_id%TYPE)
568: return VARCHAR2
569: is
562:
563: FUNCTION assign_element_level
564: (p_project_id IN pa_resource_assignments.project_id%TYPE,
565: p_budget_version_id IN pa_resource_assignments.budget_version_id%TYPE,
566: p_task_id IN pa_resource_assignments.task_id%TYPE,
567: p_resource_list_member_id IN pa_resource_assignments.resource_list_member_id%TYPE)
568: return VARCHAR2
569: is
570: /* local variables */
563: FUNCTION assign_element_level
564: (p_project_id IN pa_resource_assignments.project_id%TYPE,
565: p_budget_version_id IN pa_resource_assignments.budget_version_id%TYPE,
566: p_task_id IN pa_resource_assignments.task_id%TYPE,
567: p_resource_list_member_id IN pa_resource_assignments.resource_list_member_id%TYPE)
568: return VARCHAR2
569: is
570: /* local variables */
571: l_return_value VARCHAR2(2000);
572: l_parent_task_id pa_tasks.parent_task_id%TYPE;
573: l_parent_wbs_level pa_tasks.wbs_level%TYPE;
574: l_res_parent_member_id pa_resource_list_members.parent_member_id%TYPE;
575: l_resource_list_id pa_resource_list_members.resource_list_id%TYPE;
576: l_labor_res_flag pa_resource_assignments.track_as_labor_flag%TYPE;
577:
578: BEGIN
579: l_return_value := 'dummy element level';
580:
608: else
609: -- resource is RESOURCE child; need to determine if LABOR or NON_LABOR
610: select nvl(track_as_labor_flag, 'N')
611: into l_labor_res_flag
612: from pa_resource_assignments
613: where project_id = p_project_id and
614: budget_version_id = p_budget_version_id and
615: task_id = p_task_id and
616: resource_list_member_id = p_resource_list_member_id;
628: -- this procedure populates task, resource_group, or resource field for the
629: -- user_entered view (flat hierarchy; no HGrid)
630:
631: FUNCTION assign_flat_element_names
632: (p_project_id IN pa_resource_assignments.project_id%TYPE,
633: p_task_id IN pa_resource_assignments.task_id%TYPE,
634: p_resource_list_member_id IN pa_resource_assignments.resource_list_member_id%TYPE,
635: p_element_type IN VARCHAR2)
636: return VARCHAR2
629: -- user_entered view (flat hierarchy; no HGrid)
630:
631: FUNCTION assign_flat_element_names
632: (p_project_id IN pa_resource_assignments.project_id%TYPE,
633: p_task_id IN pa_resource_assignments.task_id%TYPE,
634: p_resource_list_member_id IN pa_resource_assignments.resource_list_member_id%TYPE,
635: p_element_type IN VARCHAR2)
636: return VARCHAR2
637: is
630:
631: FUNCTION assign_flat_element_names
632: (p_project_id IN pa_resource_assignments.project_id%TYPE,
633: p_task_id IN pa_resource_assignments.task_id%TYPE,
634: p_resource_list_member_id IN pa_resource_assignments.resource_list_member_id%TYPE,
635: p_element_type IN VARCHAR2)
636: return VARCHAR2
637: is
638: l_return_value VARCHAR2(80);
4941: is
4942:
4943: cursor l_ra_csr is
4944: select resource_assignment_id
4945: from pa_resource_assignments
4946: where budget_version_id = p_budget_version_id;
4947: l_ra_rec l_ra_csr%ROWTYPE;
4948:
4949: /* local variables */
4946: where budget_version_id = p_budget_version_id;
4947: l_ra_rec l_ra_csr%ROWTYPE;
4948:
4949: /* local variables */
4950: l_resource_assignment_id pa_resource_assignments.resource_assignment_id%TYPE;
4951: l_line_costrev_total pa_resource_assignments.total_plan_revenue%TYPE;
4952: l_line_quantity_total pa_resource_assignments.total_plan_quantity%TYPE;
4953: begin
4954: open l_ra_csr;
4947: l_ra_rec l_ra_csr%ROWTYPE;
4948:
4949: /* local variables */
4950: l_resource_assignment_id pa_resource_assignments.resource_assignment_id%TYPE;
4951: l_line_costrev_total pa_resource_assignments.total_plan_revenue%TYPE;
4952: l_line_quantity_total pa_resource_assignments.total_plan_quantity%TYPE;
4953: begin
4954: open l_ra_csr;
4955: if p_cost_or_rev = 'REVENUE' then
4948:
4949: /* local variables */
4950: l_resource_assignment_id pa_resource_assignments.resource_assignment_id%TYPE;
4951: l_line_costrev_total pa_resource_assignments.total_plan_revenue%TYPE;
4952: l_line_quantity_total pa_resource_assignments.total_plan_quantity%TYPE;
4953: begin
4954: open l_ra_csr;
4955: if p_cost_or_rev = 'REVENUE' then
4956: -- roll up the revenue budget version
4963: l_line_costrev_total
4964: from pa_budget_lines
4965: where resource_assignment_id = l_ra_rec.resource_assignment_id
4966: group by resource_assignment_id;
4967: update pa_resource_assignments
4968: set total_plan_revenue = l_line_costrev_total,
4969: total_utilization_hours = l_line_quantity_total
4970: where
4971: resource_assignment_id = l_ra_rec.resource_assignment_id;
4981: l_line_costrev_total
4982: from pa_budget_lines
4983: where resource_assignment_id = l_ra_rec.resource_assignment_id
4984: group by resource_assignment_id;
4985: update pa_resource_assignments
4986: set total_plan_burdened_cost = l_line_costrev_total,
4987: total_utilization_hours = l_line_quantity_total
4988: where
4989: resource_assignment_id = l_ra_rec.resource_assignment_id;
5059: -- FP L: used in View/Edit Plan page whenever navigation option to View/Edit
5060: -- Plan Line page is chosen. If the resource assignment has been deleted by
5061: -- WBS, an error needs to be displayed
5062: procedure check_res_assignment_exists
5063: (p_resource_assignment_id IN pa_resource_assignments.resource_assignment_id%TYPE,
5064: x_res_assignment_exists OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
5065: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
5066: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
5067: x_msg_data OUT NOCOPY VARCHAR2) is --File.Sql.39 bug 4440895
5074: into l_res_assignment_exists
5075: from dual
5076: where exists
5077: (select resource_assignment_id
5078: from pa_resource_assignments
5079: where resource_assignment_id = p_resource_assignment_id);
5080: if l_res_assignment_exists = 'Y' then
5081: x_res_assignment_exists := 'Y';
5082: else
5224: /*** PROJECT-LEVEL PLANNING ***/
5225: begin
5226: select ra.resource_list_member_id
5227: into l_prj_rlm_id
5228: from pa_resource_assignments ra
5229: where ra.budget_version_id = p_budget_version_id and
5230: nvl(ra.resource_assignment_type,'USER_ENTERED') = 'USER_ENTERED' and
5231: rownum < 2;
5232: exception