1 PACKAGE PA_FP_ADJUSTMENT_UTILS AUTHID CURRENT_USER AS
2 -- $Header: PAFPADJS.pls 120.1 2005/08/19 16:23:44 mwasowic noship $
3
4
5 -- This procedure will Get Summary Information on a
6 -- given Budget Version Id/Name
7
8
9
10 PROCEDURE Get_Summary_Info
11 ( p_project_id IN NUMBER
12 ,p_cost_budget_version_id IN NUMBER
13 ,p_rev_budget_version_id IN NUMBER
14 ,p_WBS_Element_Id IN NUMBER DEFAULT NULL
15 ,p_RBS_Element_Id IN NUMBER DEFAULT NULL
16 ,p_WBS_Structure_Version_Id IN NUMBER DEFAULT NULL
17 ,p_RBS_Version_Id IN NUMBER DEFAULT NULL
18 ,p_WBS_Rollup_Flag IN VARCHAR2
19 ,p_RBS_Rollup_Flag IN VARCHAR2
20 ,p_resource_tbl_flag IN VARCHAR2 DEFAULT 'N'
21 ,p_resource_assignment_id_tbl IN SYSTEM.PA_NUM_TBL_TYPE DEFAULT SYSTEM.PA_NUM_TBL_TYPE()
22 ,p_txn_currency_code_tbl IN SYSTEM.PA_VARCHAR2_15_TBL_TYPE DEFAULT SYSTEM.PA_VARCHAR2_15_TBL_TYPE()
23 ,x_version OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
24 ,x_version_name OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
25 ,x_project_id OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
26 ,x_structure_version_id OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
27 ,x_rev_version OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
28 ,x_rev_version_name OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
29 ,x_task_number OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
30 ,x_task_name OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
31 ,x_resource_name OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
32 ,x_plan_setup OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
33 ,x_plan_type_name OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
34 ,x_fin_plan_type_id OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
35 ,x_version_type OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
36 ,x_rev_plan_type_name OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
37 ,x_rev_workplan_flag OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
38 ,x_rev_plan_setup OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
39 ,x_rev_plan_class_code OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
40 ,x_rev_fin_plan_type_id OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
41 ,x_rev_version_type OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
42 ,x_workplan_flag OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
43 ,x_plan_class_code OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
44 ,x_pc_raw_cost OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
45 ,x_pc_burdened_cost OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
46 ,x_pc_revenue OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
47 ,x_pc_currency OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
48 ,x_pfc_raw_cost OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
49 ,x_pfc_burdened_cost OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
50 ,x_pfc_revenue OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
51 ,x_pfc_currency OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
52 ,x_pc_margin OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
53 ,x_pfc_margin OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
54 ,x_margin_percent OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
55 ,x_total_labor_hours OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
56 ,x_total_equip_hours OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
57 ,x_rev_total_labor_hours OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
58 ,x_rev_total_equip_hours OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
59 ,x_resource_assignment_id_tbl OUT NOCOPY SYSTEM.PA_NUM_TBL_TYPE --File.Sql.39 bug 4440895
60 ,x_txn_currency_code_tbl OUT NOCOPY SYSTEM.PA_VARCHAR2_15_TBL_TYPE --File.Sql.39 bug 4440895
61 ,x_workplan_costs_enabled_flag OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
62 ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
63 ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
64 ,x_msg_data OUT NOCOPY VARCHAR2 ) ; --File.Sql.39 bug 4440895
65
66
67 -- Purpose: Private Specific to compute relevant planning transaction id's affected in computing summary amounts/adjusting plan via Adjust/Mass Adjust.
68 -- Called by Get_Summary_Info and AMG Adjust Interface API.
69 PROCEDURE COMPUTE_HIERARCHY(
70 p_cost_budget_version_id IN NUMBER
71 ,p_rev_budget_version_id IN NUMBER
72 ,p_WBS_Element_Id IN NUMBER DEFAULT NULL
73 ,p_RBS_Element_Id IN NUMBER DEFAULT NULL
74 ,p_WBS_Structure_Version_Id IN NUMBER DEFAULT NULL
75 ,p_RBS_Version_Id IN NUMBER DEFAULT NULL
76 ,p_WBS_Rollup_Flag IN VARCHAR2
77 ,p_RBS_Rollup_Flag IN VARCHAR2
78 ,X_res_assignment_id_tbl OUT NOCOPY SYSTEM.PA_NUM_TBL_TYPE --File.Sql.39 bug 4440895
79 ,X_txn_currency_code_tbl OUT NOCOPY SYSTEM.pa_varchar2_15_tbl_type --File.Sql.39 bug 4440895
80 ,X_rev_res_assignment_id_tbl OUT NOCOPY SYSTEM.PA_NUM_TBL_TYPE --File.Sql.39 bug 4440895
81 ,X_rev_txn_currency_code_tbl OUT NOCOPY SYSTEM.pa_varchar2_15_tbl_type --File.Sql.39 bug 4440895
82 ,X_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
83 ) ;
84
85
86 -- This procedure is an interface to Adjust the relevant Planning Versions /transactions
87 -- based on a percentage
88 -- for the relevant parameters
89
90 PROCEDURE Adjust_Planning_Transactions
91 (
92 p_Project_Id IN NUMBER
93 ,p_Context IN VARCHAR2
94 ,p_user_id IN NUMBER DEFAULT FND_GLOBAL.USER_ID
95 ,p_cost_budget_version_id IN NUMBER
96 ,p_rev_budget_version_id IN NUMBER DEFAULT NULL
97 ,p_cost_fin_plan_type_id IN NUMBER
98 ,p_cost_version_type IN VARCHAR2
99 ,p_cost_plan_setup IN VARCHAR2
100 ,p_rev_fin_plan_type_id IN NUMBER DEFAULT NULL
101 ,p_rev_version_type IN VARCHAR2 DEFAULT NULL
102 ,p_rev_plan_setup IN VARCHAR2 DEFAULT NULL
103 ,p_new_version_flag IN VARCHAR2 DEFAULT 'N'
104 ,p_new_version_name IN VARCHAR2 DEFAULT NULL
105 ,p_new_version_desc IN VARCHAR2 DEFAULT NULL
106 ,p_adjustment_type IN VARCHAR2 DEFAULT NULL
107 ,p_adjustment_percentage IN NUMBER
108 ,p_WBS_Element_Id IN NUMBER DEFAULT NULL
109 ,p_RBS_Element_Id IN NUMBER DEFAULT NULL
110 ,p_WBS_Structure_Version_Id IN NUMBER DEFAULT NULL
111 ,p_RBS_Version_Id IN NUMBER DEFAULT NULL
112 ,p_WBS_Rollup_Flag IN VARCHAR2
113 ,p_RBS_Rollup_Flag IN VARCHAR2
114 ,p_resource_assignment_id_tbl IN SYSTEM.PA_NUM_TBL_TYPE
115 ,p_txn_currency_code_tbl IN SYSTEM.pa_varchar2_15_tbl_type
116 ,x_cost_budget_version_id OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
117 ,x_rev_budget_version_id OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
118 ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
119 ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
120 ,x_msg_data OUT NOCOPY VARCHAR2 ); --File.Sql.39 bug 4440895
121
122 FUNCTION CLASS_HOURS(p_current_budget_version_id IN NUMBER, p_input_budget_version_id IN NUMBER,
123 p_rev_budget_version_id IN NUMBER, p_report_using IN VARCHAR2,
124 p_mode IN VARCHAR2, p_resource_class_code IN VARCHAR2,
125 p_total_plan_quantity IN NUMBER, p_rate_based_flag IN VARCHAR2 ) RETURN NUMBER ;
126
127 FUNCTION REVENUE(p_current_budget_version_id IN NUMBER, p_input_budget_version_id IN NUMBER,
128 p_rev_budget_version_id IN NUMBER, p_REVENUE IN NUMBER) RETURN NUMBER ;
129
130
131 end PA_FP_ADJUSTMENT_UTILS ;