1 PACKAGE pa_fp_org_fcst_gen_pub AUTHID CURRENT_USER as
2 /* $Header: PAFPORGS.pls 120.1 2005/08/19 16:27:46 mwasowic noship $ */
3 -- Start of Comments
4 -- Package name : PA_FP_ORG_FCST_GEN_PUB
5 -- Purpose :
6 -- History :
7 -- NOTE :
8 -- End of Comments
9
10 TYPE number_data_type_table IS TABLE OF NUMBER
11 INDEX BY BINARY_INTEGER;
12
13 TYPE date_data_type_table IS TABLE OF DATE
14 INDEX BY BINARY_INTEGER;
15
16 TYPE char240_data_type_table IS TABLE OF VARCHAR2(240)
17 INDEX BY BINARY_INTEGER;
18
19 TYPE budget_lines_record IS RECORD ( quantity number
20 ,raw_cost number
21 ,burdened_cost number
22 ,lent_resource_cost number
23 ,unassigned_time_cost number
24 ,tp_cost_in number
25 ,tp_cost_out number
26 ,revenue number
27 ,borrowed_revenue number
28 ,tp_revenue_in number
29 ,tp_revenue_out number
30 ,utilization_percent number
31 ,utilization_hours number
32 ,capacity number
33 ,head_count number);
34
35 TYPE budget_lines_record_table_type IS TABLE OF budget_lines_record
36 INDEX BY BINARY_INTEGER;
37 error_reloop EXCEPTION;
38 proj_action_reloop EXCEPTION;
39
40 PROCEDURE gen_org_fcst
41 ( errbuff OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
42 ,retcode OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
43 ,p_selection_criteria IN VARCHAR2
44 := NULL
45 ,p_is_org IN VARCHAR2
46 := NULL
47 ,p_organization_id IN hr_organization_units.organization_id%TYPE
48 := NULL
49 ,p_is_start_org IN VARCHAR2
50 := NULL
51 ,p_starting_organization_id IN hr_organization_units.organization_id%TYPE
52 := NULL
53 ,p_budget_version_id IN pa_budget_versions.budget_version_id%TYPE
54 := NULL);
55
56
57 /*************************************************************************
58 sgoteti 03/03/2005.This API was previously in PAFPCPFS.pls, Copied it here as this will be used
59 only in Org Forecasting Context. The code is copied without any change from the version
60 115.36 of PAFPCPFS.pls
61 **************************************************************************/
62
63 PROCEDURE create_res_task_maps(
64 p_source_project_id IN NUMBER
65 ,p_target_project_id IN NUMBER
66 ,p_source_plan_version_id IN NUMBER
67 ,p_adj_percentage IN NUMBER
68 ,p_copy_mode IN VARCHAR2 DEFAULT 'W' /* 2920954 */
69 ,p_calling_module IN VARCHAR2 DEFAULT PA_FP_CONSTANTS_PKG.G_CALLING_MODULE_FIN_PLAN /* 2920954 */
70 ,p_shift_days IN NUMBER DEFAULT NULL -- 3/28/2004 FP M Dev Phase II Effort
71 ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
72 ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
73 ,x_msg_data OUT NOCOPY VARCHAR2) ; --File.Sql.39 bug 4440895
74
75 /*************************************************************************
76 sgoteti 03/03/2005.This API was previously in PAFPCPFS.pls, Copied it here as this will be used
77 only in Org Forecasting Context. (Note: copy_resource_assignments in latest PAFPCPFB.pls will not
78 go thru pa_fp_ra_map_tmp). The code is copied without any change from the version 115.36 of P
79 PAFPCPFS.pls to reduce the impact. The parameter p_rbs_map_diff_flag can be considered as an
80 obsolete parameter in org forecasting flow.
81 **************************************************************************/
82 PROCEDURE copy_resource_assignments(
83 p_source_plan_version_id IN NUMBER
84 ,p_target_plan_version_id IN NUMBER
85 ,p_adj_percentage IN NUMBER
86 ,p_rbs_map_diff_flag IN VARCHAR2 DEFAULT 'N'
87 ,p_calling_context IN VARCHAR2 DEFAULT NULL --Bug 4065314
88 ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
89 ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
90 ,x_msg_data OUT NOCOPY VARCHAR2); --File.Sql.39 bug 4440895
91
92 /*===================================================================
93 sgoteti 03/03/2005.This API was previously in PAFPCPFS.pls, Copied it here as this will be used
94 only in Org Forecasting Context. (Note: Copy_Budget_Lines in latest PAFPCPFB.pls will not
95 go thru pa_fp_ra_map_tmp). The code is copied without any change from the version 115.36 of P
96 PAFPCPFS.pls to reduce the impact.
97 ===================================================================*/
98
99 PROCEDURE Copy_Budget_Lines(
100 p_source_plan_version_id IN NUMBER
101 ,p_target_plan_version_id IN NUMBER
102 ,p_adj_percentage IN NUMBER
103 ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
104 ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
105 ,x_msg_data OUT NOCOPY VARCHAR2); --File.Sql.39 bug 4440895
106
107 END pa_fp_org_fcst_gen_pub;