DBA Data[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;