[Home] [Help]
PACKAGE BODY: APPS.PQH_DFLT_BUDGET_ELEMENTS_API
Source
1 Package Body pqh_dflt_budget_elements_api as
2 /* $Header: pqdelapi.pkb 115.4 2002/12/05 19:31:38 rpasapul ship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' pqh_dflt_budget_elements_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |------------------------< create_dflt_budget_element >----------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_dflt_budget_element
13 (p_validate in boolean default false
14 ,p_dflt_budget_element_id out nocopy number
15 ,p_dflt_budget_set_id in number default null
16 ,p_element_type_id in number default null
17 ,p_dflt_dist_percentage in number default null
18 ,p_object_version_number out nocopy number
19 ) is
20 --
21 -- Declare cursors and local variables
22 --
23 l_dflt_budget_element_id pqh_dflt_budget_elements.dflt_budget_element_id%TYPE;
24 l_proc varchar2(72) := g_package||'create_dflt_budget_element';
25 l_object_version_number pqh_dflt_budget_elements.object_version_number%TYPE;
26 --
27 begin
28 --
29 hr_utility.set_location('Entering:'|| l_proc, 10);
30 --
31 -- Issue a savepoint if operating in validation only mode
32 --
33 savepoint create_dflt_budget_element;
34 --
35 hr_utility.set_location(l_proc, 20);
36 --
37 -- Process Logic
38 --
39 begin
40 --
41 -- Start of API User Hook for the before hook of create_dflt_budget_element
42 --
43 pqh_dflt_budget_elements_bk1.create_dflt_budget_element_b
44 (
45 p_dflt_budget_set_id => p_dflt_budget_set_id
46 ,p_element_type_id => p_element_type_id
47 ,p_dflt_dist_percentage => p_dflt_dist_percentage
48 );
49 exception
50 when hr_api.cannot_find_prog_unit then
51 hr_api.cannot_find_prog_unit_error
52 (
53 p_module_name => 'create_dflt_budget_element'
54 ,p_hook_type => 'BP'
55 );
56 --
57 -- End of API User Hook for the before hook of create_dflt_budget_element
58 --
59 end;
60 --
61 pqh_del_ins.ins
62 (
63 p_dflt_budget_element_id => l_dflt_budget_element_id
64 ,p_dflt_budget_set_id => p_dflt_budget_set_id
65 ,p_element_type_id => p_element_type_id
66 ,p_dflt_dist_percentage => p_dflt_dist_percentage
67 ,p_object_version_number => l_object_version_number
68 );
69 --
70 begin
71 --
72 -- Start of API User Hook for the after hook of create_dflt_budget_element
73 --
74 pqh_dflt_budget_elements_bk1.create_dflt_budget_element_a
75 (
76 p_dflt_budget_element_id => l_dflt_budget_element_id
77 ,p_dflt_budget_set_id => p_dflt_budget_set_id
78 ,p_element_type_id => p_element_type_id
79 ,p_dflt_dist_percentage => p_dflt_dist_percentage
80 ,p_object_version_number => l_object_version_number
81 );
82 exception
83 when hr_api.cannot_find_prog_unit then
84 hr_api.cannot_find_prog_unit_error
85 (p_module_name => 'create_dflt_budget_element'
86 ,p_hook_type => 'AP'
87 );
88 --
89 -- End of API User Hook for the after hook of create_dflt_budget_element
90 --
91 end;
92 --
93 hr_utility.set_location(l_proc, 60);
94 --
95 -- When in validation only mode raise the Validate_Enabled exception
96 --
97 if p_validate then
98 raise hr_api.validate_enabled;
99 end if;
100 --
101 -- Set all output arguments
102 --
103 p_dflt_budget_element_id := l_dflt_budget_element_id;
104 p_object_version_number := l_object_version_number;
105 --
106 hr_utility.set_location(' Leaving:'||l_proc, 70);
107 --
108 exception
109 --
110 when hr_api.validate_enabled then
111 --
112 -- As the Validate_Enabled exception has been raised
113 -- we must rollback to the savepoint
114 --
115 ROLLBACK TO create_dflt_budget_element;
116 --
117 -- Only set output warning arguments
118 -- (Any key or derived arguments must be set to null
119 -- when validation only mode is being used.)
120 --
121 p_dflt_budget_element_id := null;
122 p_object_version_number := null;
123 hr_utility.set_location(' Leaving:'||l_proc, 80);
124 --
125 when others then
126 p_dflt_budget_element_id := null;
127 p_object_version_number := null;
128 --
129 -- A validation or unexpected error has occured
130 --
131 ROLLBACK TO create_dflt_budget_element;
132 raise;
133 --
134 end create_dflt_budget_element;
135 -- ----------------------------------------------------------------------------
136 -- |------------------------< update_dflt_budget_element >--- ------------------|
137 -- ----------------------------------------------------------------------------
138 --
139 procedure update_dflt_budget_element
140 (p_validate in boolean default false
141 ,p_dflt_budget_element_id in number
142 ,p_dflt_budget_set_id in number default hr_api.g_number
143 ,p_element_type_id in number default hr_api.g_number
144 ,p_dflt_dist_percentage in number default hr_api.g_number
145 ,p_object_version_number in out nocopy number
146 ) is
147 --
148 -- Declare cursors and local variables
149 --
150 l_proc varchar2(72) := g_package||'update_dflt_budget_element';
151 l_object_version_number pqh_dflt_budget_elements.object_version_number%TYPE;
152 --
153 begin
154 --
155 hr_utility.set_location('Entering:'|| l_proc, 10);
156 --
157 -- Issue a savepoint if operating in validation only mode
158 --
159 savepoint update_dflt_budget_element;
160 --
161 hr_utility.set_location(l_proc, 20);
162 --
163 -- Process Logic
164 --
165 l_object_version_number := p_object_version_number;
166 --
167 begin
168 --
169 -- Start of API User Hook for the before hook of update_dflt_budget_element
170 --
171 pqh_dflt_budget_elements_bk2.update_dflt_budget_element_b
172 (
173 p_dflt_budget_element_id => p_dflt_budget_element_id
174 ,p_dflt_budget_set_id => p_dflt_budget_set_id
175 ,p_element_type_id => p_element_type_id
176 ,p_dflt_dist_percentage => p_dflt_dist_percentage
177 ,p_object_version_number => p_object_version_number
178 );
179 exception
180 when hr_api.cannot_find_prog_unit then
181 hr_api.cannot_find_prog_unit_error
182 (p_module_name => 'update_dflt_budget_element'
183 ,p_hook_type => 'BP'
184 );
185 --
186 -- End of API User Hook for the before hook of update_dflt_budget_element
187 --
188 end;
189 --
190 pqh_del_upd.upd
191 (
192 p_dflt_budget_element_id => p_dflt_budget_element_id
193 ,p_dflt_budget_set_id => p_dflt_budget_set_id
194 ,p_element_type_id => p_element_type_id
195 ,p_dflt_dist_percentage => p_dflt_dist_percentage
196 ,p_object_version_number => l_object_version_number
197 );
198 --
199 begin
200 --
201 -- Start of API User Hook for the after hook of update_dflt_budget_element
202 --
203 pqh_dflt_budget_elements_bk2.update_dflt_budget_element_a
204 (
205 p_dflt_budget_element_id => p_dflt_budget_element_id
206 ,p_dflt_budget_set_id => p_dflt_budget_set_id
207 ,p_element_type_id => p_element_type_id
208 ,p_dflt_dist_percentage => p_dflt_dist_percentage
209 ,p_object_version_number => l_object_version_number
210 );
211 exception
212 when hr_api.cannot_find_prog_unit then
213 hr_api.cannot_find_prog_unit_error
214 (p_module_name => 'update_dflt_budget_element'
215 ,p_hook_type => 'AP'
216 );
217 --
218 -- End of API User Hook for the after hook of update_dflt_budget_element
219 --
220 end;
221 --
222 hr_utility.set_location(l_proc, 60);
223 --
224 -- When in validation only mode raise the Validate_Enabled exception
225 --
226 if p_validate then
227 raise hr_api.validate_enabled;
228 end if;
229 --
230 -- Set all output arguments
231 --
232 p_object_version_number := l_object_version_number;
233 --
234 hr_utility.set_location(' Leaving:'||l_proc, 70);
235 --
236 exception
237 --
238 when hr_api.validate_enabled then
239 --
240 -- As the Validate_Enabled exception has been raised
241 -- we must rollback to the savepoint
242 --
243 ROLLBACK TO update_dflt_budget_element;
244 --
245 -- Only set output warning arguments
246 -- (Any key or derived arguments must be set to null
247 -- when validation only mode is being used.)
248 --
249 hr_utility.set_location(' Leaving:'||l_proc, 80);
250 --
251 when others then
252 p_object_version_number := l_object_version_number;
253 --
254 -- A validation or unexpected error has occured
255 --
256 ROLLBACK TO update_dflt_budget_element;
257 raise;
258 --
259 end update_dflt_budget_element;
260 -- ----------------------------------------------------------------------------
261 -- |------------------------< delete_dflt_budget_element >----------------------|
262 -- ----------------------------------------------------------------------------
263 --
264 procedure delete_dflt_budget_element
265 (p_validate in boolean default false
266 ,p_dflt_budget_element_id in number
267 ,p_object_version_number in number
268 ) is
269 --
270 -- Declare cursors and local variables
271 --
272 l_proc varchar2(72) := g_package||'delete_dflt_budget_element';
273 l_object_version_number pqh_dflt_budget_elements.object_version_number%TYPE;
274 --
275 begin
276 --
277 hr_utility.set_location('Entering:'|| l_proc, 10);
278 --
279 -- Issue a savepoint if operating in validation only mode
280 --
281 savepoint delete_dflt_budget_element;
282 --
283 hr_utility.set_location(l_proc, 20);
284 --
285 -- Process Logic
286 --
287 l_object_version_number := p_object_version_number;
288 --
289 --
290 begin
291 --
292 -- Start of API User Hook for the before hook of delete_dflt_budget_element
293 --
294 pqh_dflt_budget_elements_bk3.delete_dflt_budget_element_b
295 (
296 p_dflt_budget_element_id => p_dflt_budget_element_id
297 ,p_object_version_number => p_object_version_number
298 );
299 exception
300 when hr_api.cannot_find_prog_unit then
301 hr_api.cannot_find_prog_unit_error
302 (p_module_name => 'delete_dflt_budget_element'
303 ,p_hook_type => 'BP'
304 );
305 --
306 -- End of API User Hook for the before hook of delete_dflt_budget_element
307 --
308 end;
309 --
310 pqh_del_del.del
311 (
312 p_dflt_budget_element_id => p_dflt_budget_element_id
313 ,p_object_version_number => l_object_version_number
314 );
315 --
316 begin
317 --
318 -- Start of API User Hook for the after hook of delete_dflt_budget_element
319 --
320 pqh_dflt_budget_elements_bk3.delete_dflt_budget_element_a
321 (
322 p_dflt_budget_element_id => p_dflt_budget_element_id
323 ,p_object_version_number => l_object_version_number
324 );
325 exception
326 when hr_api.cannot_find_prog_unit then
327 hr_api.cannot_find_prog_unit_error
328 (p_module_name => 'delete_dflt_budget_element'
329 ,p_hook_type => 'AP'
330 );
331 --
332 -- End of API User Hook for the after hook of delete_dflt_budget_element
333 --
334 end;
335 --
336 hr_utility.set_location(l_proc, 60);
337 --
338 -- When in validation only mode raise the Validate_Enabled exception
339 --
340 if p_validate then
341 raise hr_api.validate_enabled;
342 end if;
343 --
344 hr_utility.set_location(' Leaving:'||l_proc, 70);
345 --
346 exception
347 --
348 when hr_api.validate_enabled then
349 --
350 -- As the Validate_Enabled exception has been raised
351 -- we must rollback to the savepoint
352 --
353 ROLLBACK TO delete_dflt_budget_element;
354 --
355 -- Only set output warning arguments
356 -- (Any key or derived arguments must be set to null
357 -- when validation only mode is being used.)
358 --
359 --
360 when others then
361 --
362 -- A validation or unexpected error has occured
363 --
364 ROLLBACK TO delete_dflt_budget_element;
365 raise;
366 --
367 end delete_dflt_budget_element;
368 --
369 -- ----------------------------------------------------------------------------
370 -- |-------------------------------< lck >------------------------------------|
371 -- ----------------------------------------------------------------------------
372 --
373 procedure lck
374 (
375 p_dflt_budget_element_id in number
376 ,p_object_version_number in number
377 ) is
378 --
379 --
380 -- Declare cursors and local variables
381 --
382 l_proc varchar2(72) := g_package||'lck';
383 --
384 begin
385 --
386 hr_utility.set_location('Entering:'|| l_proc, 10);
387 --
388 pqh_del_shd.lck
389 (
390 p_dflt_budget_element_id => p_dflt_budget_element_id
391 ,p_object_version_number => p_object_version_number
392 );
393 --
394 hr_utility.set_location(' Leaving:'||l_proc, 70);
395 --
396 end lck;
397 --
398 end pqh_dflt_budget_elements_api;