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