[Home] [Help]
PACKAGE: APPS.PA_FP_VIEW_PLANS_TXN_PUB
Source
1 PACKAGE pa_fp_view_plans_txn_pub as
2 /* $Header: PAFPVPNS.pls 120.1 2005/08/19 16:31:34 mwasowic noship $
3 Start of Comments
4 Package name : pa_fp_view_plans_txn_pub
5 Purpose : API's for Financial Planning: View Plans Non-Hgrid Page
6 History :
7 NOTE :
8 End of Comments
9 */
10
11 type vptxn_project_id_tab is
12 TABLE of pa_resource_assignments.project_id%TYPE index by BINARY_INTEGER;
13 type vptxn_task_id_tab is
14 TABLE of pa_resource_assignments.task_id%TYPE index by BINARY_INTEGER;
15 type vptxn_res_list_member_id_tab is
16 TABLE of pa_resource_assignments.resource_list_member_id%TYPE index by BINARY_INTEGER;
17 type vptxn_res_assignment_id_tab is
18 TABLE of pa_resource_assignments.resource_assignment_id%TYPE index by BINARY_INTEGER;
19 type vptxn_grouping_type_tab is
20 TABLE OF VARCHAR2(30) index by BINARY_INTEGER;
21 type vptxn_unit_of_measure_tab is
22 TABLE of pa_resource_assignments.unit_of_measure%TYPE index by BINARY_INTEGER;
23 type vptxn_quantity_tab is
24 TABLE of pa_budget_lines.quantity%TYPE index by BINARY_INTEGER;
25 type vptxn_txn_currency_code_tab is
26 TABLE of pa_budget_lines.txn_currency_code%TYPE index by BINARY_INTEGER;
27 type vptxn_txn_revenue_tab is
28 TABLE of pa_budget_lines.txn_revenue%TYPE index by BINARY_INTEGER;
29 type vptxn_txn_burdened_cost_tab is
30 TABLE of pa_budget_lines.txn_burdened_cost%TYPE index by BINARY_INTEGER;
31 type vptxn_txn_raw_cost_tab is
32 TABLE of pa_budget_lines.txn_raw_cost%TYPE index by BINARY_INTEGER;
33
34
35 G_MULTI_CURR_FLAG VARCHAR2(30); --Y/N
36 G_PLAN_TYPE_ID NUMBER(15);
37 G_COST_VERSION_ID NUMBER(15);
38 G_REV_VERSION_ID NUMBER(15);
39 G_SINGLE_VERSION_ID NUMBER(15); -- used only for gathering summary #'s
40 G_COST_RESOURCE_LIST_ID NUMBER(15); -- for Resource Group, Resource LOV filter
41 G_REVENUE_RESOURCE_LIST_ID NUMBER(15); -- for Resource Group, Resource LOV filter
42 G_REPORT_LABOR_HRS_FROM_CODE pa_proj_fp_options.report_labor_hrs_from_code%TYPE;
43 G_DERIVE_MARGIN_FROM_CODE VARCHAR2(30); -- R=rawcost, B=burdenedcost
44 G_DISPLAY_FROM VARCHAR2(30); -- 'COST' = COST_ONLY version
45 -- 'REVENUE' = REVENUE_ONLY version
46 -- 'BOTH' = COST_AND_REV_SEP
47 -- 'ANY' = 'COST_AND_REV_SAME'
48 G_COST_VERSION_GROUPING VARCHAR2(30); -- used in VO Decode for resource/resource group
49 G_REV_VERSION_GROUPING VARCHAR2(30); -- used in VO Decode for resource/resource group
50 G_COST_RECORD_VERSION_NUM pa_budget_versions.record_version_number%TYPE;
51 G_REV_RECORD_VERSION_NUM pa_budget_versions.record_version_number%TYPE;
52 G_DISPLAY_CURRENCY_TYPE VARCHAR2(30); -- 'PROJECT' or 'PROJFUNC' currency
53
54 function Get_Multicurrency_Flag return VARCHAR2;
55 function Get_Plan_Type_Id return NUMBER;
56 function Get_Cost_Version_Id return NUMBER;
57 function Get_Rev_Version_Id return NUMBER;
58 function Get_Single_Version_Id return NUMBER; -- stores the passed-in budget version id
59 function Get_Cost_Resource_List_Id return NUMBER;
60 function Get_Revenue_Resource_List_Id return NUMBER;
61 function Get_Report_Labor_Hrs_From_Code return VARCHAR2;
62 function Get_Derive_Margin_From_Code return VARCHAR2;
63 function Get_Display_From return VARCHAR2;
64 function Get_Cost_Version_Grouping return VARCHAR2;
65 function Get_Rev_Version_Grouping return VARCHAR2;
66 function Get_Cost_RV_Num return NUMBER;
67 function Get_Rev_RV_Num return NUMBER;
68
69 -- BUG FIX 2615852: need to recognize if all txn currencies entered for a ra
70 function all_txn_currencies_entered
71 (p_resource_assignment_id IN pa_resource_assignments.resource_assignment_id%TYPE)
72 return VARCHAR2;
73
74 function get_task_name
75 (p_task_id IN pa_tasks.task_id%TYPE) return VARCHAR2;
76 function get_task_number
77 (p_task_id IN pa_tasks.task_id%TYPE) return VARCHAR2;
78 function get_resource_name
79 (p_resource_id IN pa_resources.resource_id%TYPE) return VARCHAR2;
80
81 procedure nonhgrid_view_initialize
82 (p_project_id IN pa_budget_versions.project_id%TYPE,
83 p_cost_version_id IN pa_budget_versions.budget_version_id%TYPE,
84 p_rev_version_id IN pa_budget_versions.budget_version_id%TYPE,
85 p_user_id IN NUMBER,
86 -- x_budget_status_code OUT pa_budget_versions.budget_status_code%TYPE,
87 x_cost_budget_status_code OUT NOCOPY pa_budget_versions.budget_status_code%TYPE, --File.Sql.39 bug 4440895
88 x_rev_budget_status_code OUT NOCOPY pa_budget_versions.budget_status_code%TYPE, --File.Sql.39 bug 4440895
89 x_cost_version_id OUT NOCOPY pa_budget_versions.budget_version_id%TYPE, --File.Sql.39 bug 4440895
90 x_rev_version_id OUT NOCOPY pa_budget_versions.budget_version_id%TYPE, --File.Sql.39 bug 4440895
91 x_cost_rl_id OUT NOCOPY pa_budget_versions.resource_list_id%TYPE, --File.Sql.39 bug 4440895
92 x_rev_rl_id OUT NOCOPY pa_budget_versions.resource_list_id%TYPE, --File.Sql.39 bug 4440895
93 -- x_cost_locked_id OUT pa_budget_versions.locked_by_person_id%TYPE,
94 -- x_rev_locked_id OUT pa_budget_versions.locked_by_person_id%TYPE,
95 x_display_from OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
96 x_planned_resources_flag OUT NOCOPY VARCHAR2, -- valid values: 'Y', 'N' --File.Sql.39 bug 4440895
97 x_grouping_type OUT NOCOPY VARCHAR2, -- valid values: 'GROUPED', 'NONGROUPED', 'MIXED' --File.Sql.39 bug 4440895
98 x_planning_level OUT NOCOPY VARCHAR2, -- valid values: 'P', 'T', 'L', 'M' --File.Sql.39 bug 4440895
99 x_multicurrency_flag OUT NOCOPY VARCHAR2, -- valid values: 'Y', 'N' --File.Sql.39 bug 4440895
100 x_plan_type_name OUT NOCOPY pa_fin_plan_types_tl.name%TYPE, --File.Sql.39 bug 4440895
101 x_project_currency OUT NOCOPY pa_projects_all.project_currency_code%TYPE, --File.Sql.39 bug 4440895
102 x_labor_hrs_from_code OUT NOCOPY pa_proj_fp_options.report_labor_hrs_from_code%TYPE, --File.Sql.39 bug 4440895
103 x_cost_rv_number OUT NOCOPY pa_budget_versions.record_version_number%TYPE, --File.Sql.39 bug 4440895
104 x_rev_rv_number OUT NOCOPY pa_budget_versions.record_version_number%TYPE, --File.Sql.39 bug 4440895
105 x_cost_locked_name OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
106 x_rev_locked_name OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
107 x_ar_ac_flag OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
108 x_plan_type_fp_options_id OUT NOCOPY pa_proj_fp_options.proj_fp_options_id%TYPE, --File.Sql.39 bug 4440895
109 x_fin_plan_type_id OUT NOCOPY pa_fin_plan_types_b.fin_plan_type_id%TYPE, --File.Sql.39 bug 4440895
110 x_plan_class_code OUT NOCOPY VARCHAR2, -- FP L: Plan Class Security --File.Sql.39 bug 4440895
111 x_display_res_flag OUT NOCOPY VARCHAR2, -- bug 3081511 --File.Sql.39 bug 4440895
112 x_display_resgp_flag OUT NOCOPY VARCHAR2, -- bug 3081511 --File.Sql.39 bug 4440895
113 x_auto_baselined_flag OUT NOCOPY VARCHAR2, -- bug 3146974 --File.Sql.39 bug 4440895
114 x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
115 x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
116 x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
117 );
118 procedure nonhgrid_edit_initialize
119 (p_project_id IN pa_budget_versions.project_id%TYPE,
120 p_budget_version_id IN pa_budget_versions.budget_version_id%TYPE,
121 -- p_fin_plan_type_id IN pa_proj_fp_options.fin_plan_type_id%TYPE,
122 -- p_proj_fp_options_id IN pa_proj_fp_options.proj_fp_options_id%TYPE,
123 -- p_working_or_baselined IN VARCHAR2,
124 -- p_cost_or_revenue IN VARCHAR2,
125 x_budget_status_code OUT NOCOPY pa_budget_versions.budget_status_code%TYPE, --File.Sql.39 bug 4440895
126 x_current_working_flag OUT NOCOPY pa_budget_versions.current_working_flag%TYPE, --File.Sql.39 bug 4440895
127 x_cost_version_id OUT NOCOPY pa_budget_versions.budget_version_id%TYPE, --File.Sql.39 bug 4440895
128 x_rev_version_id OUT NOCOPY pa_budget_versions.budget_version_id%TYPE, --File.Sql.39 bug 4440895
129 x_cost_rl_id OUT NOCOPY pa_budget_versions.resource_list_id%TYPE, --File.Sql.39 bug 4440895
130 x_rev_rl_id OUT NOCOPY pa_budget_versions.resource_list_id%TYPE, --File.Sql.39 bug 4440895
131 x_display_from OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
132 x_planned_resources_flag OUT NOCOPY VARCHAR2, -- valid values: 'Y', 'N' --File.Sql.39 bug 4440895
133 x_grouping_type OUT NOCOPY VARCHAR2, -- valid values: 'GROUPED', 'NONGROUPED', 'MIXED' --File.Sql.39 bug 4440895
134 x_planning_level OUT NOCOPY VARCHAR2, -- valid values: 'P', 'T', 'L', 'M' --File.Sql.39 bug 4440895
135 x_multicurrency_flag OUT NOCOPY VARCHAR2, -- valid values: 'Y', 'N' --File.Sql.39 bug 4440895
136 x_plan_type_name OUT NOCOPY pa_fin_plan_types_tl.name%TYPE, --File.Sql.39 bug 4440895
137 x_project_currency OUT NOCOPY pa_projects_all.project_currency_code%TYPE, --File.Sql.39 bug 4440895
138 x_record_version_number OUT NOCOPY pa_budget_versions.record_version_number%TYPE, --File.Sql.39 bug 4440895
139 x_plan_type_fp_options_id OUT NOCOPY pa_proj_fp_options.proj_fp_options_id%TYPE, --File.Sql.39 bug 4440895
140 x_plan_version_fp_options_id OUT NOCOPY pa_proj_fp_options.proj_fp_options_id%TYPE, --File.Sql.39 bug 4440895
141 x_fin_plan_type_id OUT NOCOPY pa_fin_plan_types_b.fin_plan_type_id%TYPE, --File.Sql.39 bug 4440895
142 x_ar_ac_flag OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
143 x_auto_baselined_flag OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
144 x_plan_class_code OUT NOCOPY VARCHAR2, -- FP L: Plan Class Security --File.Sql.39 bug 4440895
145 x_display_res_flag OUT NOCOPY VARCHAR2, -- bug 3081511 --File.Sql.39 bug 4440895
146 x_display_resgp_flag OUT NOCOPY VARCHAR2, -- bug 3081511 --File.Sql.39 bug 4440895
147 x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
148 x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
149 x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
150 );
151
152 procedure view_plans_txn_populate_tmp
153 (p_page_mode IN VARCHAR2, /* V - View mode ; E - Edit Mode */
154 p_project_id IN pa_budget_versions.project_id%TYPE,
155 p_cost_version_id IN pa_budget_versions.budget_version_id%TYPE,
156 p_revenue_version_id IN pa_budget_versions.budget_version_id%TYPE,
157 p_both_version_id IN pa_budget_versions.budget_version_id%TYPE,
158 p_project_currency IN pa_projects_all.project_currency_code%TYPE,
159 p_get_display_from IN VARCHAR2, -- 'COST', 'REVENUE', 'BOTH', 'ANY'
160 p_filter_task_id IN pa_resource_assignments.task_id%TYPE,
161 p_filter_resource_id IN pa_resource_list_members.resource_id%TYPE,
162 p_filter_rlm_id IN pa_resource_assignments.resource_list_member_id%TYPE,
163 p_filter_txncurrency IN pa_budget_lines.txn_currency_code%TYPE,
164 x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
165 x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
166 x_msg_data OUT NOCOPY VARCHAR2); --File.Sql.39 bug 4440895
167
168 ----------- BEGIN OF CHANGE ORDER / CONTROL ITEM -------------
169
170 procedure nonhgrid_view_initialize_ci
171 (p_project_id IN pa_budget_versions.project_id%TYPE,
172 p_ci_id IN pa_budget_versions.ci_id%TYPE,
173 p_user_id IN NUMBER,
174 x_budget_status_code OUT NOCOPY pa_budget_versions.budget_status_code%TYPE, --File.Sql.39 bug 4440895
175 x_cost_version_id OUT NOCOPY pa_budget_versions.budget_version_id%TYPE, --File.Sql.39 bug 4440895
176 x_rev_version_id OUT NOCOPY pa_budget_versions.budget_version_id%TYPE, --File.Sql.39 bug 4440895
177 x_cost_rl_id OUT NOCOPY pa_budget_versions.resource_list_id%TYPE, --File.Sql.39 bug 4440895
178 x_rev_rl_id OUT NOCOPY pa_budget_versions.resource_list_id%TYPE, --File.Sql.39 bug 4440895
179 x_display_from OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
180 x_planned_resources_flag OUT NOCOPY VARCHAR2, -- valid values: 'Y', 'N' --File.Sql.39 bug 4440895
181 x_grouping_type OUT NOCOPY VARCHAR2, -- valid values: 'GROUPED', 'NONGROUPED', 'MIXED' --File.Sql.39 bug 4440895
182 x_planning_level OUT NOCOPY VARCHAR2, -- valid values: 'P', 'T', 'L', 'M' --File.Sql.39 bug 4440895
183 x_multicurrency_flag OUT NOCOPY VARCHAR2, -- valid values: 'Y', 'N' --File.Sql.39 bug 4440895
184 x_plan_type_name OUT NOCOPY pa_fin_plan_types_tl.name%TYPE, --File.Sql.39 bug 4440895
185 x_project_currency OUT NOCOPY pa_projects_all.project_currency_code%TYPE, --File.Sql.39 bug 4440895
186 x_labor_hrs_from_code OUT NOCOPY pa_proj_fp_options.report_labor_hrs_from_code%TYPE, --File.Sql.39 bug 4440895
187 x_cost_rv_number OUT NOCOPY pa_budget_versions.record_version_number%TYPE, --File.Sql.39 bug 4440895
188 x_rev_rv_number OUT NOCOPY pa_budget_versions.record_version_number%TYPE, --File.Sql.39 bug 4440895
189 x_cost_locked_name OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
190 x_rev_locked_name OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
191 x_ar_ac_flag OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
192 x_plan_type_fp_options_id OUT NOCOPY pa_proj_fp_options.proj_fp_options_id%TYPE, --File.Sql.39 bug 4440895
193 x_fin_plan_type_id OUT NOCOPY pa_fin_plan_types_b.fin_plan_type_id%TYPE, --File.Sql.39 bug 4440895
194 x_auto_baselined_flag OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
195 x_display_res_flag OUT NOCOPY VARCHAR2, -- bug 3081511 --File.Sql.39 bug 4440895
196 x_display_resgp_flag OUT NOCOPY VARCHAR2, -- bug 3081511 --File.Sql.39 bug 4440895
197 x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
198 x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
199 x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
200 );
201
202 procedure calculate_amounts_for_version
203 ( p_budget_version_id IN pa_budget_versions.budget_version_id%TYPE
204 ,p_calling_context IN VARCHAR2
205 ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
206 ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
207 ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
208 );
209
210 end pa_fp_view_plans_txn_pub;