1 package PA_PROGRESS_PVT as
2 /* $Header: PAPCPVTS.pls 120.4 2007/02/06 10:21:27 dthakker ship $ */
3
4 -- Start of comments
5 -- API name : ROLLUP_PROGRESS_PVT
6 -- Type : Public
7 -- Pre-reqs : For Program Rollup, the sub project buckets should be populated.
8 -- Purpose : Rolls up the structure
9 -- Parameters Desc :
10 -- P_OBJECT_TYPE Possible values PA_ASSIGNMENTS, PA_DELIVERABLES, PA_TASKS
11 -- P_OBJECT_ID For assignments, pass resource_assignment_id, otherwise
12 -- proj_element_id of the deliverable and task
13 -- p_object_version_id For Assignments, pass task_version_id, otherwise
14 -- element_version_id of the deliverable and task
15 -- p_task_version_id For tasks, assignments, deliverables pass the task version id
16 -- , for struture pass null
17 -- p_lowest_level_task Does not seem to be required
18 -- p_process_whole_tree To indicate if whole tree rollup is not required. It will
19 -- do just 2 level rollup if N
20 -- p_structure_version_id Structure version id of the publsihed or working structure version
21 -- p_structure_type Possible values WORKPLAN, FINANCIAL
22 -- p_fin_rollup_method Possible values are COST, EFFORT
23 -- p_wp_rollup_method Possible values are COST, EFFORT, MANUAL, DURATION
24 -- p_rollup_entire_wbs To indicate if it requires the whole structure rollup, in this
25 -- case it will ignore the passed object and starts with the lowest
26 -- task
27 -- History : 17-MAR-04 amksingh Rewritten For FPM Development Tracking Bug 3420093
28 -- End of comments
29
30 PROCEDURE ROLLUP_PROGRESS_PVT(
31 p_api_version IN NUMBER :=1.0
32 ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
33 ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
34 ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
35 ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
36 ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
37 ,p_calling_mode IN VARCHAR2 :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR -- Bug 4097710
38 ,p_debug_mode IN VARCHAR2 :='N'
39 ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
40 ,p_progress_mode IN VARCHAR2 := 'FUTURE'
41 ,p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
42 ,p_object_type IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
43 ,p_object_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
44 ,p_object_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
45 ,p_task_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
46 ,p_as_of_date IN DATE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
47 ,p_lowest_level_task IN VARCHAR2 := 'N'
48 ,p_process_whole_tree IN VARCHAR2 := 'Y'
49 ,p_structure_version_id IN NUMBER
50 ,p_structure_type IN VARCHAR2 := 'WORKPLAN'
51 ,p_fin_rollup_method IN VARCHAR2 := 'COST'
52 ,p_wp_rollup_method IN VARCHAR2 := 'COST'
53 ,p_rollup_entire_wbs IN VARCHAR2 := 'N'
54 ,p_task_version_id_tbl IN SYSTEM.pa_num_tbl_type := SYSTEM.pa_num_tbl_type() -- Bug 4218507
55 ,p_working_wp_prog_flag IN VARCHAR2 := 'N' --maansari7/18 to be passed form apply lp progress to select regular planned amounts to send to schduling api for percent comnplete and earned value calculations.
56 ,p_upd_new_elem_ver_id_flag IN VARCHAR2 := 'Y' -- rtarway, 3951024
57 ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
58 ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
59 ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
60 );
61
62 -- Start of comments
63 -- API name : UPDATE_ROLLUP_PROGRESS_PVT
64 -- Type : Private
65 -- Pre-reqs : ROLLUP_PROGRESS_PVT shd have been called.
66 -- Purpose : Updates the Rolled up data
67 -- Parameters Desc :
68 -- P_OBJECT_TYPE Possible values PA_ASSIGNMENTS, PA_DELIVERABLES, PA_TASKS
69 -- P_OBJECT_ID For assignments, pass resource_assignment_id, otherwise
70 -- proj_element_id of the deliverable and task
71 -- p_object_version_id For Assignments, pass task_version_id, otherwise
72 -- element_version_id of the deliverable and task
73 -- p_task_version_id For tasks, assignments, deliverables pass the task version id
74 -- , for struture pass null
75 -- p_lowest_level_task Does not seem to be required
76 -- p_structure_version_id Structure version id of the publsihed or working structure version
77 -- p_structure_type Possible values WORKPLAN, FINANCIAL
78 -- p_fin_rollup_method Possible values are COST, EFFORT
79 -- p_wp_rollup_method Possible values are COST, EFFORT, MANUAL, DURATION
80 -- p_published_structure To indicate if the passed structure version is published
81 -- History : 17-MAR-04 amksingh Rewritten For FPM Development Tracking Bug 3420093
82 -- End of comments
83
84 PROCEDURE UPDATE_ROLLUP_PROGRESS_PVT(
85 p_api_version IN NUMBER :=1.0
86 ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
87 ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
88 ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
89 ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
90 ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
91 ,p_calling_mode IN VARCHAR2 :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR -- Bug 4097710
92 ,p_debug_mode IN VARCHAR2 :='N'
93 ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
94 ,p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
95 ,p_object_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
96 ,p_as_of_date IN DATE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
97 ,p_rollup_table IN PA_SCHEDULE_OBJECTS_PVT.PA_SCHEDULE_OBJECTS_TBL_TYPE
98 ,p_lowest_level_task IN VARCHAR2 := 'N'
99 ,p_task_version_id IN NUMBER
100 ,p_structure_version_id IN NUMBER
101 ,p_structure_type IN VARCHAR2 := 'WORKPLAN'
102 ,p_fin_rollup_method IN VARCHAR2 := 'COST'
103 ,p_wp_rollup_method IN VARCHAR2 := 'COST'
104 ,p_published_structure IN VARCHAR2
105 ,p_rollup_entire_wbs IN VARCHAR2 := 'N' -- FPM Dev CR 7
106 ,p_working_wp_prog_flag IN VARCHAR2 := 'N' --bug 3829341
107 ,p_upd_new_elem_ver_id_flag IN VARCHAR2 := 'Y' -- rtarway, for BUG 3951024
108 ,p_progress_mode IN VARCHAR2 := 'FUTURE' -- 4091457
109 ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
110 ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
111 ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
112 );
113
114 PROCEDURE ROLLUP_FUTURE_PROGRESS_PVT(
115 p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
116 ,P_OBJECT_TYPE IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
117 ,P_OBJECT_ID IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
118 ,p_object_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
119 ,p_as_of_date IN DATE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
120 ,p_lowest_level_task IN VARCHAR2 := 'N'
121 ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
122 ,p_calling_mode IN VARCHAR2 :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR -- Bug 4097710
123 ,p_structure_type IN VARCHAR2 := 'WORKPLAN'
124 ,p_structure_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
125 ,p_fin_rollup_method IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
126 ,p_wp_rollup_method IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
127 ,p_rollup_entire_wbs IN VARCHAR2 := 'N' -- Bug 3606627
128 ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
129 ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
130 ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
131 );
132
133 PROCEDURE program_rollup_pvt(
134 p_api_version IN NUMBER :=1.0
135 ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
136 ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
137 ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
138 ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
139 ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
140 ,p_debug_mode IN VARCHAR2 :='N'
141 ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
142 ,p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
143 ,p_as_of_date IN DATE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
144 ,p_structure_type IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
145 ,p_structure_ver_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
146 ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
147 ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
148 ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
149 );
150
151 -- Start of comments
152 -- API name : ASGN_DLV_TO_TASK_ROLLUP_PVT
153 -- Type : Private
154 -- Pre-reqs : None.
155 -- Purpose : This API is intdended to be called for Assignment, Deliverables in Task Progress Details page when user clicks Recalculate button
156 -- : This does partial rollup of working progress records
157 -- History : 15-JUNE-04 amksingh Rewritten For FPM Development Bug 3614828
158 -- End of comments
159
160 PROCEDURE ASGN_DLV_TO_TASK_ROLLUP_PVT(
161 p_api_version IN NUMBER :=1.0
162 ,p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE -- Since it is a private API so false
163 ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
164 ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
165 ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
166 ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
167 ,p_debug_mode IN VARCHAR2 :='N'
168 ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
169 ,p_project_id IN NUMBER
170 ,p_task_id IN NUMBER
171 ,p_task_version_id IN NUMBER
172 ,p_as_of_date IN DATE
173 ,p_structure_version_id IN NUMBER
174 ,p_wp_rollup_method IN VARCHAR2 := 'COST'
175 ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
176 ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
177 ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
178 );
179
180 --bug 3935699
181 PROCEDURE convert_task_prog_to_assgn
182 (
183 p_api_version IN NUMBER :=1.0
184 ,p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE -- Since it is a private API so false
185 ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
186 ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
187 ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
188 ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
189 ,p_debug_mode IN VARCHAR2 :='N'
190 ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
191 ,p_resource_list_mem_id IN NUMBER
192 ,p_project_id IN NUMBER
193 ,p_task_id IN NUMBER
194 ,p_structure_version_id IN NUMBER
195 ,p_as_of_date IN DATE -- Bug 3958686
196 ,p_action IN VARCHAR2 -- Bug 3958686
197 ,p_subprj_actual_exists IN VARCHAR2 := 'N' -- Bug 4490532
198 ,p_object_version_id IN NUMBER := null -- Bug 4490532
199 ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
200 ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
201 ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
202 ) ;
203
204 --bug 4046422
205 /*=============================================================================
206 This is a private api that copies progress/actuals from one workplan version
207 to another with in the project. Functionally this is called to copy progress
208 from last published version while publishing a new version
209
210 p_calling_context will have values WP_PROGRESS and WP_APPLY_PROGRESS_TO_WORKING.
211 ==============================================================================*/
212
213 PROCEDURE copy_actuals_for_workplan(
214 p_calling_context IN VARCHAR2 DEFAULT 'WP_PROGRESS'
215 ,p_project_id IN pa_projects_all.project_id%TYPE
216 ,p_source_struct_ver_id IN pa_proj_element_versions.element_version_id%TYPE
217 ,p_target_struct_ver_id IN pa_proj_element_versions.element_version_id%TYPE
218 ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
219 ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
220 ,x_msg_data OUT NOCOPY VARCHAR2); --File.Sql.39 bug 4440895
221
222 -- Bug 4575855 : Added rollup_prog_from_subprojs
223 PROCEDURE ROLLUP_PROG_FROM_SUBPROJS(
224 p_api_version IN NUMBER :=1.0
225 ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
226 ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
227 ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
228 ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
229 ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
230 ,p_debug_mode IN VARCHAR2 :='N'
231 ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
232 ,p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
233 ,p_structure_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
234 ,x_return_status OUT NOCOPY VARCHAR2 -- 4565506 Added while merging
235 ,x_msg_count OUT NOCOPY NUMBER -- 4565506 Added while merging
236 ,x_msg_data OUT NOCOPY VARCHAR2 -- 4565506 Added while merging
237 );
238
239 --Added following procedure for MRup3 merge
240 PROCEDURE UPD_PROG_RECS_STR_DELETE(p_project_id IN NUMBER,
241 p_str_ver_id_to_del IN NUMBER,
242 x_return_status OUT NOCOPY VARCHAR2,
243 x_msg_count OUT NOCOPY NUMBER,
244 x_msg_data OUT NOCOPY VARCHAR2);
245
246 end PA_PROGRESS_PVT;