[Home] [Help]
PACKAGE BODY: APPS.PQH_BUDGET_PERIODS_API
Source
1 Package Body pqh_budget_periods_api as
2 /* $Header: pqbprapi.pkb 115.5 2002/12/05 19:29:54 rpasapul ship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' pqh_budget_periods_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |------------------------< create_budget_period >----------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_budget_period
13 (p_validate in boolean default false
14 ,p_budget_period_id out nocopy number
15 ,p_budget_detail_id in number default null
16 ,p_start_time_period_id in number default null
17 ,p_end_time_period_id in number default null
18 ,p_budget_unit1_percent in number default null
19 ,p_budget_unit2_percent in number default null
20 ,p_budget_unit3_percent in number default null
21 ,p_budget_unit1_value in number default null
22 ,p_budget_unit2_value in number default null
23 ,p_budget_unit3_value in number default null
24 ,p_budget_unit1_value_type_cd in varchar2 default null
25 ,p_budget_unit2_value_type_cd in varchar2 default null
26 ,p_budget_unit3_value_type_cd in varchar2 default null
27 ,p_budget_unit1_available in number default null
28 ,p_budget_unit2_available in number default null
29 ,p_budget_unit3_available in number default null
30 ,p_object_version_number out nocopy number
31 ) is
32 --
33 -- Declare cursors and local variables
34 --
35 l_budget_period_id pqh_budget_periods.budget_period_id%TYPE;
36 l_proc varchar2(72) := g_package||'create_budget_period';
37 l_object_version_number pqh_budget_periods.object_version_number%TYPE;
38 --
39 begin
40 --
41 hr_utility.set_location('Entering:'|| l_proc, 10);
42 --
43 -- Issue a savepoint if operating in validation only mode
44 --
45 savepoint create_budget_period;
46 --
47 hr_utility.set_location(l_proc, 20);
48 --
49 -- Process Logic
50 --
51 begin
52 --
53 -- Start of API User Hook for the before hook of create_budget_period
54 --
55 pqh_budget_periods_bk1.create_budget_period_b
56 (
57 p_budget_detail_id => p_budget_detail_id
58 ,p_start_time_period_id => p_start_time_period_id
59 ,p_end_time_period_id => p_end_time_period_id
60 ,p_budget_unit1_percent => p_budget_unit1_percent
61 ,p_budget_unit2_percent => p_budget_unit2_percent
62 ,p_budget_unit3_percent => p_budget_unit3_percent
63 ,p_budget_unit1_value => p_budget_unit1_value
64 ,p_budget_unit2_value => p_budget_unit2_value
65 ,p_budget_unit3_value => p_budget_unit3_value
66 ,p_budget_unit1_value_type_cd => p_budget_unit1_value_type_cd
67 ,p_budget_unit2_value_type_cd => p_budget_unit2_value_type_cd
68 ,p_budget_unit3_value_type_cd => p_budget_unit3_value_type_cd
69 ,p_budget_unit1_available => p_budget_unit1_available
70 ,p_budget_unit2_available => p_budget_unit2_available
71 ,p_budget_unit3_available => p_budget_unit3_available
72 );
73 exception
74 when hr_api.cannot_find_prog_unit then
75 hr_api.cannot_find_prog_unit_error
76 (
77 p_module_name => 'create_budget_period'
78 ,p_hook_type => 'BP'
79 );
80 --
81 -- End of API User Hook for the before hook of create_budget_period
82 --
83 end;
84 --
85 pqh_bpr_ins.ins
86 (
87 p_budget_period_id => l_budget_period_id
88 ,p_budget_detail_id => p_budget_detail_id
89 ,p_start_time_period_id => p_start_time_period_id
90 ,p_end_time_period_id => p_end_time_period_id
91 ,p_budget_unit1_percent => p_budget_unit1_percent
92 ,p_budget_unit2_percent => p_budget_unit2_percent
93 ,p_budget_unit3_percent => p_budget_unit3_percent
94 ,p_budget_unit1_value => p_budget_unit1_value
95 ,p_budget_unit2_value => p_budget_unit2_value
96 ,p_budget_unit3_value => p_budget_unit3_value
97 ,p_budget_unit1_value_type_cd => p_budget_unit1_value_type_cd
98 ,p_budget_unit2_value_type_cd => p_budget_unit2_value_type_cd
99 ,p_budget_unit3_value_type_cd => p_budget_unit3_value_type_cd
100 ,p_budget_unit1_available => p_budget_unit1_available
101 ,p_budget_unit2_available => p_budget_unit2_available
102 ,p_budget_unit3_available => p_budget_unit3_available
103 ,p_object_version_number => l_object_version_number
104 );
105 --
106 begin
107 --
108 -- Start of API User Hook for the after hook of create_budget_period
109 --
110 pqh_budget_periods_bk1.create_budget_period_a
111 (
112 p_budget_period_id => l_budget_period_id
113 ,p_budget_detail_id => p_budget_detail_id
114 ,p_start_time_period_id => p_start_time_period_id
115 ,p_end_time_period_id => p_end_time_period_id
116 ,p_budget_unit1_percent => p_budget_unit1_percent
117 ,p_budget_unit2_percent => p_budget_unit2_percent
118 ,p_budget_unit3_percent => p_budget_unit3_percent
119 ,p_budget_unit1_value => p_budget_unit1_value
120 ,p_budget_unit2_value => p_budget_unit2_value
121 ,p_budget_unit3_value => p_budget_unit3_value
122 ,p_budget_unit1_value_type_cd => p_budget_unit1_value_type_cd
123 ,p_budget_unit2_value_type_cd => p_budget_unit2_value_type_cd
124 ,p_budget_unit3_value_type_cd => p_budget_unit3_value_type_cd
125 ,p_budget_unit1_available => p_budget_unit1_available
126 ,p_budget_unit2_available => p_budget_unit2_available
127 ,p_budget_unit3_available => p_budget_unit3_available
128 ,p_object_version_number => l_object_version_number
129 );
130 exception
131 when hr_api.cannot_find_prog_unit then
132 hr_api.cannot_find_prog_unit_error
133 (p_module_name => 'create_budget_period'
134 ,p_hook_type => 'AP'
135 );
136 --
137 -- End of API User Hook for the after hook of create_budget_period
138 --
139 end;
140 --
141 hr_utility.set_location(l_proc, 60);
142 --
143 -- When in validation only mode raise the Validate_Enabled exception
144 --
145 if p_validate then
146 raise hr_api.validate_enabled;
147 end if;
148 --
149 -- Set all output arguments
150 --
151 p_budget_period_id := l_budget_period_id;
152 p_object_version_number := l_object_version_number;
153 --
154 hr_utility.set_location(' Leaving:'||l_proc, 70);
155 --
156 exception
157 --
158 when hr_api.validate_enabled then
159 --
160 -- As the Validate_Enabled exception has been raised
161 -- we must rollback to the savepoint
162 --
163 ROLLBACK TO create_budget_period;
164 --
165 -- Only set output warning arguments
166 -- (Any key or derived arguments must be set to null
167 -- when validation only mode is being used.)
168 --
169 p_budget_period_id := null;
170 p_object_version_number := null;
171 hr_utility.set_location(' Leaving:'||l_proc, 80);
172 --
173 when others then
174 p_budget_period_id := null;
175 p_object_version_number := null;
176 --
177 -- A validation or unexpected error has occured
178 --
179 ROLLBACK TO create_budget_period;
180 raise;
181 --
182 end create_budget_period;
183 -- ----------------------------------------------------------------------------
184 -- |------------------------< update_budget_period >--- ------------------|
185 -- ----------------------------------------------------------------------------
186 --
187 procedure update_budget_period
188 (p_validate in boolean default false
189 ,p_budget_period_id in number
190 ,p_budget_detail_id in number default hr_api.g_number
191 ,p_start_time_period_id in number default hr_api.g_number
192 ,p_end_time_period_id in number default hr_api.g_number
193 ,p_budget_unit1_percent in number default hr_api.g_number
194 ,p_budget_unit2_percent in number default hr_api.g_number
195 ,p_budget_unit3_percent in number default hr_api.g_number
196 ,p_budget_unit1_value in number default hr_api.g_number
197 ,p_budget_unit2_value in number default hr_api.g_number
198 ,p_budget_unit3_value in number default hr_api.g_number
199 ,p_budget_unit1_value_type_cd in varchar2 default hr_api.g_varchar2
200 ,p_budget_unit2_value_type_cd in varchar2 default hr_api.g_varchar2
201 ,p_budget_unit3_value_type_cd in varchar2 default hr_api.g_varchar2
202 ,p_budget_unit1_available in number default hr_api.g_number
203 ,p_budget_unit2_available in number default hr_api.g_number
204 ,p_budget_unit3_available in number default hr_api.g_number
205 ,p_object_version_number in out nocopy number
206 ) is
207 --
208 -- Declare cursors and local variables
209 --
210 l_proc varchar2(72) := g_package||'update_budget_period';
211 l_object_version_number pqh_budget_periods.object_version_number%TYPE;
212 --
213 begin
214 --
215 hr_utility.set_location('Entering:'|| l_proc, 10);
216 --
217 -- Issue a savepoint if operating in validation only mode
218 --
219 savepoint update_budget_period;
220 --
221 hr_utility.set_location(l_proc, 20);
222 --
223 -- Process Logic
224 --
225 l_object_version_number := p_object_version_number;
226 --
227 begin
228 --
229 -- Start of API User Hook for the before hook of update_budget_period
230 --
231 pqh_budget_periods_bk2.update_budget_period_b
232 (
233 p_budget_period_id => p_budget_period_id
234 ,p_budget_detail_id => p_budget_detail_id
235 ,p_start_time_period_id => p_start_time_period_id
236 ,p_end_time_period_id => p_end_time_period_id
237 ,p_budget_unit1_percent => p_budget_unit1_percent
238 ,p_budget_unit2_percent => p_budget_unit2_percent
239 ,p_budget_unit3_percent => p_budget_unit3_percent
240 ,p_budget_unit1_value => p_budget_unit1_value
241 ,p_budget_unit2_value => p_budget_unit2_value
242 ,p_budget_unit3_value => p_budget_unit3_value
243 ,p_budget_unit1_value_type_cd => p_budget_unit1_value_type_cd
244 ,p_budget_unit2_value_type_cd => p_budget_unit2_value_type_cd
245 ,p_budget_unit3_value_type_cd => p_budget_unit3_value_type_cd
246 ,p_budget_unit1_available => p_budget_unit1_available
247 ,p_budget_unit2_available => p_budget_unit2_available
248 ,p_budget_unit3_available => p_budget_unit3_available
249 ,p_object_version_number => p_object_version_number
250 );
251 exception
252 when hr_api.cannot_find_prog_unit then
253 hr_api.cannot_find_prog_unit_error
254 (p_module_name => 'update_budget_period'
255 ,p_hook_type => 'BP'
256 );
257 --
258 -- End of API User Hook for the before hook of update_budget_period
259 --
260 end;
261 --
262 pqh_bpr_upd.upd
263 (
264 p_budget_period_id => p_budget_period_id
265 ,p_budget_detail_id => p_budget_detail_id
266 ,p_start_time_period_id => p_start_time_period_id
267 ,p_end_time_period_id => p_end_time_period_id
268 ,p_budget_unit1_percent => p_budget_unit1_percent
269 ,p_budget_unit2_percent => p_budget_unit2_percent
270 ,p_budget_unit3_percent => p_budget_unit3_percent
271 ,p_budget_unit1_value => p_budget_unit1_value
272 ,p_budget_unit2_value => p_budget_unit2_value
273 ,p_budget_unit3_value => p_budget_unit3_value
274 ,p_budget_unit1_value_type_cd => p_budget_unit1_value_type_cd
275 ,p_budget_unit2_value_type_cd => p_budget_unit2_value_type_cd
276 ,p_budget_unit3_value_type_cd => p_budget_unit3_value_type_cd
277 ,p_budget_unit1_available => p_budget_unit1_available
278 ,p_budget_unit2_available => p_budget_unit2_available
279 ,p_budget_unit3_available => p_budget_unit3_available
280 ,p_object_version_number => l_object_version_number
281 );
282 --
283 begin
284 --
285 -- Start of API User Hook for the after hook of update_budget_period
286 --
287 pqh_budget_periods_bk2.update_budget_period_a
288 (
289 p_budget_period_id => p_budget_period_id
290 ,p_budget_detail_id => p_budget_detail_id
291 ,p_start_time_period_id => p_start_time_period_id
292 ,p_end_time_period_id => p_end_time_period_id
293 ,p_budget_unit1_percent => p_budget_unit1_percent
294 ,p_budget_unit2_percent => p_budget_unit2_percent
295 ,p_budget_unit3_percent => p_budget_unit3_percent
296 ,p_budget_unit1_value => p_budget_unit1_value
297 ,p_budget_unit2_value => p_budget_unit2_value
298 ,p_budget_unit3_value => p_budget_unit3_value
299 ,p_budget_unit1_value_type_cd => p_budget_unit1_value_type_cd
300 ,p_budget_unit2_value_type_cd => p_budget_unit2_value_type_cd
301 ,p_budget_unit3_value_type_cd => p_budget_unit3_value_type_cd
302 ,p_budget_unit1_available => p_budget_unit1_available
303 ,p_budget_unit2_available => p_budget_unit2_available
304 ,p_budget_unit3_available => p_budget_unit3_available
305 ,p_object_version_number => l_object_version_number
306 );
307 exception
308 when hr_api.cannot_find_prog_unit then
309 hr_api.cannot_find_prog_unit_error
310 (p_module_name => 'update_budget_period'
311 ,p_hook_type => 'AP'
312 );
313 --
314 -- End of API User Hook for the after hook of update_budget_period
315 --
316 end;
317 --
318 hr_utility.set_location(l_proc, 60);
319 --
320 -- When in validation only mode raise the Validate_Enabled exception
321 --
322 if p_validate then
323 raise hr_api.validate_enabled;
324 end if;
325 --
326 -- Set all output arguments
327 --
328 p_object_version_number := l_object_version_number;
329 --
330 hr_utility.set_location(' Leaving:'||l_proc, 70);
331 --
332 exception
333 --
334 when hr_api.validate_enabled then
335 --
336 -- As the Validate_Enabled exception has been raised
337 -- we must rollback to the savepoint
338 --
339 ROLLBACK TO update_budget_period;
340 --
341 -- Only set output warning arguments
342 -- (Any key or derived arguments must be set to null
343 -- when validation only mode is being used.)
344 --
345 hr_utility.set_location(' Leaving:'||l_proc, 80);
346 --
347 when others then
348 p_object_version_number := l_object_version_number;
349 --
350 -- A validation or unexpected error has occured
351 --
352 ROLLBACK TO update_budget_period;
353 raise;
354 --
355 end update_budget_period;
356 -- ----------------------------------------------------------------------------
357 -- |------------------------< delete_budget_period >----------------------|
358 -- ----------------------------------------------------------------------------
359 --
360 procedure delete_budget_period
361 (p_validate in boolean default false
362 ,p_budget_period_id in number
363 ,p_object_version_number in number
364 ) is
365 --
366 -- Declare cursors and local variables
367 --
368 l_proc varchar2(72) := g_package||'delete_budget_period';
369 l_object_version_number pqh_budget_periods.object_version_number%TYPE;
370 --
371 begin
372 --
373 hr_utility.set_location('Entering:'|| l_proc, 10);
374 --
375 -- Issue a savepoint if operating in validation only mode
376 --
377 savepoint delete_budget_period;
378 --
379 hr_utility.set_location(l_proc, 20);
380 --
381 -- Process Logic
382 --
383 l_object_version_number := p_object_version_number;
384 --
385 --
386 begin
387 --
388 -- Start of API User Hook for the before hook of delete_budget_period
389 --
390 pqh_budget_periods_bk3.delete_budget_period_b
391 (
392 p_budget_period_id => p_budget_period_id
393 ,p_object_version_number => p_object_version_number
394 );
395 exception
396 when hr_api.cannot_find_prog_unit then
397 hr_api.cannot_find_prog_unit_error
398 (p_module_name => 'delete_budget_period'
399 ,p_hook_type => 'BP'
400 );
401 --
402 -- End of API User Hook for the before hook of delete_budget_period
403 --
404 end;
405 --
406 pqh_bpr_del.del
407 (
408 p_budget_period_id => p_budget_period_id
409 ,p_object_version_number => l_object_version_number
410 );
411 --
412 begin
413 --
414 -- Start of API User Hook for the after hook of delete_budget_period
415 --
416 pqh_budget_periods_bk3.delete_budget_period_a
417 (
418 p_budget_period_id => p_budget_period_id
419 ,p_object_version_number => l_object_version_number
420 );
421 exception
422 when hr_api.cannot_find_prog_unit then
423 hr_api.cannot_find_prog_unit_error
424 (p_module_name => 'delete_budget_period'
425 ,p_hook_type => 'AP'
426 );
427 --
428 -- End of API User Hook for the after hook of delete_budget_period
429 --
430 end;
431 --
432 hr_utility.set_location(l_proc, 60);
433 --
434 -- When in validation only mode raise the Validate_Enabled exception
435 --
436 if p_validate then
437 raise hr_api.validate_enabled;
438 end if;
439 --
440 hr_utility.set_location(' Leaving:'||l_proc, 70);
441 --
442 exception
443 --
444 when hr_api.validate_enabled then
445 --
446 -- As the Validate_Enabled exception has been raised
447 -- we must rollback to the savepoint
448 --
449 ROLLBACK TO delete_budget_period;
450 --
451 -- Only set output warning arguments
452 -- (Any key or derived arguments must be set to null
453 -- when validation only mode is being used.)
454 --
455 --
456 when others then
457 --
458 -- A validation or unexpected error has occured
459 --
460 ROLLBACK TO delete_budget_period;
461 raise;
462 --
463 end delete_budget_period;
464 --
465 -- ----------------------------------------------------------------------------
466 -- |-------------------------------< lck >------------------------------------|
467 -- ----------------------------------------------------------------------------
468 --
469 procedure lck
470 (
471 p_budget_period_id in number
472 ,p_object_version_number in number
473 ) is
474 --
475 --
476 -- Declare cursors and local variables
477 --
478 l_proc varchar2(72) := g_package||'lck';
479 --
480 begin
481 --
482 hr_utility.set_location('Entering:'|| l_proc, 10);
483 --
484 pqh_bpr_shd.lck
485 (
486 p_budget_period_id => p_budget_period_id
487 ,p_object_version_number => p_object_version_number
488 );
489 --
490 hr_utility.set_location(' Leaving:'||l_proc, 70);
491 --
492 end lck;
493 --
494 end pqh_budget_periods_api;