[Home] [Help]
PACKAGE BODY: APPS.PQH_WORKSHEET_BUDGET_SETS_API
Source
4 -- Package Variables
1 Package Body pqh_WORKSHEET_BUDGET_SETS_api as
2 /* $Header: pqwstapi.pkb 115.3 2002/12/06 23:50:22 rpasapul noship $ */
3 --
5 --
6 g_package varchar2(33) := ' pqh_WORKSHEET_BUDGET_SETS_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |------------------------< create_WORKSHEET_BUDGET_SET >----------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_WORKSHEET_BUDGET_SET
13 (p_validate in boolean default false
14 ,p_worksheet_budget_set_id out nocopy number
15 ,p_dflt_budget_set_id in number
16 ,p_worksheet_period_id in number
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_object_version_number out nocopy number
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
31 ) is
28 ,p_budget_unit2_available in number default null
29 ,p_budget_unit3_available in number default null
30 ,p_effective_date in date
32 --
33 -- Declare cursors and local variables
34 --
35 l_worksheet_budget_set_id pqh_worksheet_budget_sets.worksheet_budget_set_id%TYPE;
36 l_proc varchar2(72) := g_package||'create_WORKSHEET_BUDGET_SET';
37 l_object_version_number pqh_worksheet_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_WORKSHEET_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_WORKSHEET_BUDGET_SET
54 --
55 pqh_WORKSHEET_BUDGET_SETS_bk1.create_WORKSHEET_BUDGET_SET_b
56 (
57 p_dflt_budget_set_id => p_dflt_budget_set_id
58 ,p_worksheet_period_id => p_worksheet_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_value_type_cd => p_budget_unit1_value_type_cd
66 ,p_budget_unit2_value_type_cd => p_budget_unit2_value_type_cd
67 ,p_budget_unit3_value_type_cd => p_budget_unit3_value_type_cd
68 ,p_budget_unit1_available => p_budget_unit1_available
69 ,p_budget_unit2_available => p_budget_unit2_available
70 ,p_budget_unit3_available => p_budget_unit3_available
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_WORKSHEET_BUDGET_SET'
78 ,p_hook_type => 'BP'
79 );
80 --
81 -- End of API User Hook for the before hook of create_WORKSHEET_BUDGET_SET
82 --
83 end;
84 --
85 PQH_WST_ins.ins
86 (
87 p_worksheet_budget_set_id => l_worksheet_budget_set_id
88 ,p_dflt_budget_set_id => p_dflt_budget_set_id
89 ,p_worksheet_period_id => p_worksheet_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_object_version_number => l_object_version_number
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_effective_date => trunc(p_effective_date)
104 );
105 --
106 begin
107 --
108 -- Start of API User Hook for the after hook of create_WORKSHEET_BUDGET_SET
109 --
110 pqh_WORKSHEET_BUDGET_SETS_bk1.create_WORKSHEET_BUDGET_SET_a
111 (
112 p_worksheet_budget_set_id => l_worksheet_budget_set_id
113 ,p_dflt_budget_set_id => p_dflt_budget_set_id
114 ,p_worksheet_period_id => p_worksheet_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_object_version_number => l_object_version_number
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_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_WORKSHEET_BUDGET_SET'
134 ,p_hook_type => 'AP'
135 );
136 --
137 -- End of API User Hook for the after hook of create_WORKSHEET_BUDGET_SET
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_worksheet_budget_set_id := l_worksheet_budget_set_id;
152 p_object_version_number := l_object_version_number;
156 exception
153 --
154 hr_utility.set_location(' Leaving:'||l_proc, 70);
155 --
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_WORKSHEET_BUDGET_SET;
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_worksheet_budget_set_id := null;
170 p_object_version_number := null;
171 hr_utility.set_location(' Leaving:'||l_proc, 80);
172 --
173 when others then
174 p_worksheet_budget_set_id := null;
175 p_object_version_number := null;
176 --
177 -- A validation or unexpected error has occured
178 --
179 ROLLBACK TO create_WORKSHEET_BUDGET_SET;
180 raise;
181 --
182 end create_WORKSHEET_BUDGET_SET;
183 -- ----------------------------------------------------------------------------
184 -- |------------------------< update_WORKSHEET_BUDGET_SET >--- ------------------|
185 -- ----------------------------------------------------------------------------
186 --
187 procedure update_WORKSHEET_BUDGET_SET
188 (p_validate in boolean default false
189 ,p_worksheet_budget_set_id in number
190 ,p_dflt_budget_set_id in number default hr_api.g_number
191 ,p_worksheet_period_id in number default hr_api.g_number
192 ,p_budget_unit1_percent in number default hr_api.g_number
193 ,p_budget_unit2_percent in number default hr_api.g_number
194 ,p_budget_unit3_percent in number default hr_api.g_number
195 ,p_budget_unit1_value in number default hr_api.g_number
196 ,p_budget_unit2_value in number default hr_api.g_number
197 ,p_budget_unit3_value in number default hr_api.g_number
198 ,p_object_version_number in out nocopy 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_effective_date in date
206 ) is
207 --
208 -- Declare cursors and local variables
209 --
210 l_proc varchar2(72) := g_package||'update_WORKSHEET_BUDGET_SET';
211 l_object_version_number pqh_worksheet_budget_sets.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_WORKSHEET_BUDGET_SET;
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_WORKSHEET_BUDGET_SET
230 --
231 pqh_WORKSHEET_BUDGET_SETS_bk2.update_WORKSHEET_BUDGET_SET_b
232 (
233 p_worksheet_budget_set_id => p_worksheet_budget_set_id
234 ,p_dflt_budget_set_id => p_dflt_budget_set_id
235 ,p_worksheet_period_id => p_worksheet_period_id
236 ,p_budget_unit1_percent => p_budget_unit1_percent
237 ,p_budget_unit2_percent => p_budget_unit2_percent
238 ,p_budget_unit3_percent => p_budget_unit3_percent
239 ,p_budget_unit1_value => p_budget_unit1_value
240 ,p_budget_unit2_value => p_budget_unit2_value
241 ,p_budget_unit3_value => p_budget_unit3_value
242 ,p_object_version_number => p_object_version_number
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_effective_date => trunc(p_effective_date)
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_WORKSHEET_BUDGET_SET'
255 ,p_hook_type => 'BP'
256 );
257 --
258 -- End of API User Hook for the before hook of update_WORKSHEET_BUDGET_SET
259 --
260 end;
261 --
262 PQH_WST_upd.upd
263 (
264 p_worksheet_budget_set_id => p_worksheet_budget_set_id
265 ,p_dflt_budget_set_id => p_dflt_budget_set_id
266 ,p_worksheet_period_id => p_worksheet_period_id
267 ,p_budget_unit1_percent => p_budget_unit1_percent
268 ,p_budget_unit2_percent => p_budget_unit2_percent
269 ,p_budget_unit3_percent => p_budget_unit3_percent
270 ,p_budget_unit1_value => p_budget_unit1_value
271 ,p_budget_unit2_value => p_budget_unit2_value
272 ,p_budget_unit3_value => p_budget_unit3_value
273 ,p_object_version_number => l_object_version_number
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
279 ,p_budget_unit3_available => p_budget_unit3_available
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
280 ,p_effective_date => trunc(p_effective_date)
281 );
282 --
283 begin
284 --
285 -- Start of API User Hook for the after hook of update_WORKSHEET_BUDGET_SET
286 --
287 pqh_WORKSHEET_BUDGET_SETS_bk2.update_WORKSHEET_BUDGET_SET_a
288 (
289 p_worksheet_budget_set_id => p_worksheet_budget_set_id
290 ,p_dflt_budget_set_id => p_dflt_budget_set_id
291 ,p_worksheet_period_id => p_worksheet_period_id
292 ,p_budget_unit1_percent => p_budget_unit1_percent
293 ,p_budget_unit2_percent => p_budget_unit2_percent
294 ,p_budget_unit3_percent => p_budget_unit3_percent
295 ,p_budget_unit1_value => p_budget_unit1_value
296 ,p_budget_unit2_value => p_budget_unit2_value
297 ,p_budget_unit3_value => p_budget_unit3_value
298 ,p_object_version_number => l_object_version_number
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_effective_date => trunc(p_effective_date)
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_WORKSHEET_BUDGET_SET'
311 ,p_hook_type => 'AP'
312 );
313 --
314 -- End of API User Hook for the after hook of update_WORKSHEET_BUDGET_SET
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_WORKSHEET_BUDGET_SET;
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_WORKSHEET_BUDGET_SET;
353 raise;
354 --
355 end update_WORKSHEET_BUDGET_SET;
356 -- ----------------------------------------------------------------------------
357 -- |------------------------< delete_WORKSHEET_BUDGET_SET >----------------------|
358 -- ----------------------------------------------------------------------------
359 --
360 procedure delete_WORKSHEET_BUDGET_SET
361 (p_validate in boolean default false
362 ,p_worksheet_budget_set_id in number
363 ,p_object_version_number in number
364 ,p_effective_date in date
365 ) is
366 --
367 -- Declare cursors and local variables
368 --
369 l_proc varchar2(72) := g_package||'delete_WORKSHEET_BUDGET_SET';
370 l_object_version_number pqh_worksheet_budget_sets.object_version_number%TYPE;
371 --
372 begin
373 --
374 hr_utility.set_location('Entering:'|| l_proc, 10);
375 --
376 -- Issue a savepoint if operating in validation only mode
377 --
378 savepoint delete_WORKSHEET_BUDGET_SET;
379 --
380 hr_utility.set_location(l_proc, 20);
381 --
382 -- Process Logic
383 --
384 l_object_version_number := p_object_version_number;
385 --
386 --
387 begin
388 --
389 -- Start of API User Hook for the before hook of delete_WORKSHEET_BUDGET_SET
390 --
391 pqh_WORKSHEET_BUDGET_SETS_bk3.delete_WORKSHEET_BUDGET_SET_b
392 (
393 p_worksheet_budget_set_id => p_worksheet_budget_set_id
394 ,p_object_version_number => p_object_version_number
395 ,p_effective_date => trunc(p_effective_date)
396 );
397 exception
398 when hr_api.cannot_find_prog_unit then
399 hr_api.cannot_find_prog_unit_error
400 (p_module_name => 'DELETE_WORKSHEET_BUDGET_SET'
401 ,p_hook_type => 'BP'
402 );
403 --
404 -- End of API User Hook for the before hook of delete_WORKSHEET_BUDGET_SET
405 --
406 end;
407 --
408 PQH_WST_del.del
409 (
410 p_worksheet_budget_set_id => p_worksheet_budget_set_id
411 ,p_object_version_number => l_object_version_number
412 ,p_effective_date => p_effective_date
413 );
414 --
415 begin
416 --
417 -- Start of API User Hook for the after hook of delete_WORKSHEET_BUDGET_SET
418 --
419 pqh_WORKSHEET_BUDGET_SETS_bk3.delete_WORKSHEET_BUDGET_SET_a
420 (
421 p_worksheet_budget_set_id => p_worksheet_budget_set_id
422 ,p_object_version_number => l_object_version_number
423 ,p_effective_date => trunc(p_effective_date)
424 );
425 exception
426 when hr_api.cannot_find_prog_unit then
427 hr_api.cannot_find_prog_unit_error
428 (p_module_name => 'DELETE_WORKSHEET_BUDGET_SET'
429 ,p_hook_type => 'AP'
430 );
431 --
432 -- End of API User Hook for the after hook of delete_WORKSHEET_BUDGET_SET
433 --
434 end;
435 --
436 hr_utility.set_location(l_proc, 60);
437 --
438 -- When in validation only mode raise the Validate_Enabled exception
439 --
440 if p_validate then
441 raise hr_api.validate_enabled;
442 end if;
443 --
444 hr_utility.set_location(' Leaving:'||l_proc, 70);
445 --
446 exception
447 --
448 when hr_api.validate_enabled then
449 --
450 -- As the Validate_Enabled exception has been raised
451 -- we must rollback to the savepoint
452 --
453 ROLLBACK TO delete_WORKSHEET_BUDGET_SET;
454 --
455 -- Only set output warning arguments
456 -- (Any key or derived arguments must be set to null
457 -- when validation only mode is being used.)
458 --
459 --
460 when others then
461 --
462 -- A validation or unexpected error has occured
463 --
464 ROLLBACK TO delete_WORKSHEET_BUDGET_SET;
465 raise;
466 --
467 end delete_WORKSHEET_BUDGET_SET;
468 --
469 -- ----------------------------------------------------------------------------
470 -- |-------------------------------< lck >------------------------------------|
471 -- ----------------------------------------------------------------------------
472 --
473 procedure lck
474 (
475 p_worksheet_budget_set_id in number
476 ,p_object_version_number in number
477 ) is
478 --
479 --
480 -- Declare cursors and local variables
481 --
482 l_proc varchar2(72) := g_package||'lck';
483 --
484 begin
485 --
486 hr_utility.set_location('Entering:'|| l_proc, 10);
487 --
488 PQH_WST_shd.lck
489 (
490 p_worksheet_budget_set_id => p_worksheet_budget_set_id
491 ,p_object_version_number => p_object_version_number
492 );
493 --
494 hr_utility.set_location(' Leaving:'||l_proc, 70);
495 --
496 end lck;
497 --
498 end pqh_WORKSHEET_BUDGET_SETS_api;