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