DBA Data[Home] [Help]

PACKAGE: APPS.PA_FP_UPGRADE_PKG

Source


1 PACKAGE pa_fp_upgrade_pkg AUTHID CURRENT_USER AS
2 /* $Header: PAFPUPGS.pls 120.3 2007/02/06 10:12:49 dthakker ship $ */
3 
4 TYPE upgrade_elements_rec_type IS RECORD (
5  basis_cost_version_id          pa_budget_versions.budget_version_id%TYPE
6 ,basis_rev_version_id           pa_budget_versions.budget_version_id%TYPE
7 ,basis_cost_bem                 pa_budget_versions.budget_entry_method_code%TYPE
8 ,basis_rev_bem                  pa_budget_versions.budget_entry_method_code%TYPE
9 ,basis_cost_res_list_id         pa_budget_versions.resource_list_id%TYPE
10 ,basis_rev_res_list_id          pa_budget_versions.resource_list_id%TYPE
11 ,basis_cost_planning_level      pa_budget_entry_methods.entry_level_code%TYPE
12 ,basis_rev_planning_level       pa_budget_entry_methods.entry_level_code%TYPE
13 ,basis_cost_time_phased_code    pa_budget_entry_methods.time_phased_type_code%TYPE
14 ,basis_rev_time_phased_code     pa_budget_entry_methods.time_phased_type_code%TYPE
15 ,basis_cost_amount_set_id       pa_fin_plan_amount_sets.fin_plan_amount_set_id%TYPE
16 ,basis_rev_amount_Set_id        pa_fin_plan_amount_sets.fin_plan_amount_set_id%TYPE
17 ,curr_option_preference_code    pa_proj_fp_options.fin_plan_preference_code%TYPE
18 ,curr_option_project_id         pa_proj_fp_options.project_id%TYPE
19 ,curr_option_plan_type_id       pa_proj_fp_options.fin_plan_type_id%TYPE
20 ,curr_option_plan_version_id    pa_proj_fp_options.fin_plan_version_id%TYPE
21 ,curr_option_level_code         pa_proj_fp_options.fin_plan_option_level_code%TYPE
22 ,curr_option_budget_type_code   pa_budget_versions.budget_type_code%TYPE
23 );
24 
25 Procedure Populate_Local_Variables(
26            p_project_id                 IN           pa_proj_fp_options.project_id%TYPE
27           ,p_budget_type_code           IN           pa_budget_versions.budget_type_code%TYPE
28           ,p_fin_plan_version_id        IN           pa_proj_fp_options.fin_plan_version_id%TYPE
29           ,p_fin_plan_option_level      IN           pa_proj_fp_options.fin_plan_option_level_code%TYPE
30          ,x_upgrade_elements_rec         OUT  NOCOPY  pa_fp_upgrade_pkg.upgrade_elements_rec_type
31           ,x_return_status              OUT          NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
32           ,x_msg_count                  OUT          NOCOPY NUMBER --File.Sql.39 bug 4440895
33           ,x_msg_data                   OUT          NOCOPY VARCHAR2); --File.Sql.39 bug 4440895
34 
35 PROCEDURE Upgrade_Budgets(
36            p_from_project_number        IN           VARCHAR2
37           ,p_to_project_number          IN           VARCHAR2
38           ,p_budget_types               IN           VARCHAR2
39           ,p_budget_statuses            IN           VARCHAR2
40           ,p_project_type               IN           VARCHAR2
41           ,p_project_statuses           IN           VARCHAR2
42           ,x_return_status              OUT          NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
43           ,x_msg_count                  OUT          NOCOPY NUMBER --File.Sql.39 bug 4440895
44           ,x_msg_data                   OUT          NOCOPY VARCHAR2); --File.Sql.39 bug 4440895
45 
46 PROCEDURE Upgrade_Budget_Types(
47            p_budget_types               IN           VARCHAR2
48           ,x_return_status              OUT          NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
49           ,x_msg_count                  OUT          NOCOPY NUMBER --File.Sql.39 bug 4440895
50           ,x_msg_data                   OUT          NOCOPY VARCHAR2) ; --File.Sql.39 bug 4440895
51 
52 PROCEDURE Create_fp_options(
53            p_project_id                 IN           pa_proj_fp_options.project_id%TYPE
54           ,p_budget_type_code           IN           pa_budget_versions.budget_type_code%TYPE
55           ,p_fin_plan_version_id        IN           pa_proj_fp_options.fin_plan_version_id%TYPE
56           ,p_fin_plan_option_level      IN           pa_proj_fp_options.fin_plan_option_level_code%TYPE
57           ,x_proj_fp_options_id         OUT          NOCOPY pa_proj_fp_options.proj_fp_options_id%TYPE --File.Sql.39 bug 4440895
58          ,x_upgrade_elements_rec       OUT  NOCOPY  pa_fp_upgrade_pkg.upgrade_elements_rec_type
59           ,x_return_status              OUT          NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
60           ,x_msg_count                  OUT          NOCOPY NUMBER --File.Sql.39 bug 4440895
61           ,x_msg_data                   OUT          NOCOPY VARCHAR2) ; --File.Sql.39 bug 4440895
62 
63 Procedure Add_Plan_Types(
64            p_project_id                 IN           pa_projects.project_id%TYPE
68           ,x_msg_data                   OUT          NOCOPY VARCHAR2) ; --File.Sql.39 bug 4440895
65           ,p_budget_types               IN           VARCHAR2
66           ,x_return_status              OUT          NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
67           ,x_msg_count                  OUT          NOCOPY NUMBER --File.Sql.39 bug 4440895
69 
70 PROCEDURE Upgrade_Budget_Versions (
71            p_project_id                 IN           pa_projects.project_id%TYPE
72           ,p_budget_types               IN           VARCHAR2
73           ,p_budget_statuses            IN           VARCHAR2
74           ,x_return_status              OUT          NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
75           ,x_msg_count                  OUT          NOCOPY NUMBER --File.Sql.39 bug 4440895
76           ,x_msg_data                   OUT          NOCOPY VARCHAR2); --File.Sql.39 bug 4440895
77 
78 PROCEDURE Insert_Audit_Record(
79            p_project_id                      IN        PA_FP_UPGRADE_AUDIT.PROJECT_ID%TYPE
80           ,p_budget_type_code                IN        PA_FP_UPGRADE_AUDIT.BUDGET_TYPE_CODE%TYPE
81           ,p_proj_fp_options_id              IN        PA_FP_UPGRADE_AUDIT.PROJ_FP_OPTIONS_ID%TYPE
82           ,p_fin_plan_option_level_code      IN        PA_FP_UPGRADE_AUDIT.FIN_PLAN_OPTION_LEVEL_CODE%TYPE
83           ,p_basis_cost_version_id           IN        PA_FP_UPGRADE_AUDIT.BASIS_COST_VERSION_ID%TYPE
84           ,p_basis_rev_version_id            IN        PA_FP_UPGRADE_AUDIT.BASIS_REV_VERSION_ID%TYPE
85           ,p_basis_cost_bem                  IN        PA_FP_UPGRADE_AUDIT.BASIS_COST_BEM%TYPE
86           ,p_basis_rev_bem                   IN        PA_FP_UPGRADE_AUDIT.BASIS_REV_BEM%TYPE
87           ,p_upgraded_flag                   IN        PA_FP_UPGRADE_AUDIT.UPGRADED_FLAG%TYPE
88           ,p_failure_reason_code             IN        PA_FP_UPGRADE_AUDIT.FAILURE_REASON_CODE%TYPE
89           ,p_proj_fp_options_id_rup          IN        PA_FP_UPGRADE_AUDIT.PROJ_FP_OPTIONS_ID%TYPE  DEFAULT NULL); -- bug 5144013:IPM RUP3 Merge
90 
91 PROCEDURE VALIDATE_BUDGETS (
92            p_from_project_number             IN        VARCHAR2
93           ,p_to_project_number               IN        VARCHAR2
94           ,p_budget_types                    IN        VARCHAR2
95           ,p_budget_statuses                 IN        VARCHAR2
96           ,p_project_type                    IN        VARCHAR2
97           ,p_project_statuses                IN        VARCHAR2
98           ,x_return_status                   OUT       NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
99           ,x_msg_count                       OUT       NOCOPY NUMBER --File.Sql.39 bug 4440895
100           ,x_msg_data                        OUT       NOCOPY VARCHAR2); --File.Sql.39 bug 4440895
101 
102 PROCEDURE validate_project (
103            p_project_id                      IN        pa_budget_versions.project_id%TYPE
104           ,x_validation_status               OUT       NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
105           ,x_return_status                   OUT       NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
106           ,x_msg_count                       OUT       NOCOPY NUMBER --File.Sql.39 bug 4440895
107           ,x_msg_data                        OUT       NOCOPY VARCHAR2); --File.Sql.39 bug 4440895
108 
109 PROCEDURE validate_project_plan_type (
110            p_project_id                      IN        pa_budget_versions.project_id%TYPE
111           ,p_budget_type_code                IN        pa_budget_versions.budget_type_code%TYPE
112           ,x_validation_status               OUT       NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
113           ,x_return_status                   OUT       NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
114           ,x_msg_count                       OUT       NOCOPY NUMBER --File.Sql.39 bug 4440895
115           ,x_msg_data                        OUT       NOCOPY VARCHAR2); --File.Sql.39 bug 4440895
116 
117 PROCEDURE validate_budget_version (
118            p_budget_version_id               IN        pa_budget_versions.budget_version_id%TYPE
119           ,x_return_status                   OUT       NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
120           ,x_msg_count                       OUT       NOCOPY NUMBER --File.Sql.39 bug 4440895
121           ,x_msg_data                        OUT       NOCOPY VARCHAR2); --File.Sql.39 bug 4440895
122 
123 --This procedure will upgrade the budget lines of a budget version so that all the amount/quantity columns
124 --are populated. Please refer to the bug to see more discussion on this matter
125 
126 --ASSUMPTIONS
127 --1.Input is ordered by resource assignment id ,quantities with NULLS coming first
128 --2.0(Zero)s are passed as input for amounts instead of NULL.
129 
130 -- bug 5144013: added a new Added a new IN parameter p_calling_module in the
131 -- with a default value of 'UI_FLOW'.
132 
133 PROCEDURE Apply_Calculate_FPM_Rules
134 ( p_preference_code              IN   pa_proj_fp_options.fin_plan_preference_code%TYPE
135  ,p_resource_assignment_id_tbl   IN   SYSTEM.pa_num_tbl_type
136  ,p_rate_based_flag_tbl          IN   SYSTEM.pa_varchar2_1_tbl_type
137  ,p_quantity_tbl                 IN   SYSTEM.pa_num_tbl_type
138  ,p_txn_raw_cost_tbl             IN   SYSTEM.pa_num_tbl_type
139  ,p_txn_burdened_cost_tbl        IN   SYSTEM.pa_num_tbl_type
140  ,p_txn_revenue_tbl              IN   SYSTEM.pa_num_tbl_type
141  ,p_calling_module               IN   VARCHAR2   DEFAULT  'UI_FLOW'    -- bug 5144013
142  ,x_quantity_tbl                 OUT  NOCOPY SYSTEM.pa_num_tbl_type --File.Sql.39 bug 4440895
143  ,x_txn_raw_cost_tbl             OUT  NOCOPY SYSTEM.pa_num_tbl_type --File.Sql.39 bug 4440895
144  ,x_txn_burdened_cost_tbl        OUT  NOCOPY SYSTEM.pa_num_tbl_type --File.Sql.39 bug 4440895
145  ,x_txn_revenue_tbl              OUT  NOCOPY SYSTEM.pa_num_tbl_type --File.Sql.39 bug 4440895
146  ,x_raw_cost_override_rate_tbl   OUT  NOCOPY SYSTEM.pa_num_tbl_type  --File.Sql.39 bug 4440895
147  ,x_burd_cost_override_rate_tbl  OUT  NOCOPY SYSTEM.pa_num_tbl_type  --File.Sql.39 bug 4440895
148  ,x_bill_override_rate_tbl       OUT  NOCOPY SYSTEM.pa_num_tbl_type  --File.Sql.39 bug 4440895
149  ,x_non_rb_ra_id_tbl             OUT  NOCOPY SYSTEM.pa_num_tbl_type --File.Sql.39 bug 4440895
150  ,x_return_status                OUT  NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
151  ,x_msg_count                    OUT  NOCOPY NUMBER --File.Sql.39 bug 4440895
152  ,x_msg_data                     OUT  NOCOPY VARCHAR2); --File.Sql.39 bug 4440895
153 
154 -- bug 5144013:IPM RUP3 Merge :Optional upgrade code. created new procedure rollup_rejected_bl_amounts
155 
156 PROCEDURE rollup_rejected_bl_amounts(
157            p_from_project_number        IN           VARCHAR2 DEFAULT NULL
158           ,p_to_project_number          IN           VARCHAR2 DEFAULT NULL
159           ,p_fin_plan_type_id           IN           NUMBER   DEFAULT NULL
160           ,p_project_statuses           IN           VARCHAR2
161           ,x_return_status              OUT NOCOPY   VARCHAR2
162           ,x_msg_count                  OUT NOCOPY   NUMBER
163           ,x_msg_data                   OUT NOCOPY   VARCHAR2);
164 
165 END pa_fp_upgrade_pkg;