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