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