[Home] [Help]
PACKAGE BODY: APPS.PAY_KR_AEI_API
Source
1 Package Body pay_kr_aei_api as
2 /* $Header: pykraei.pkb 115.5 2003/12/15 02:00:14 viagarwa noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' pay_kr_aei_api.';
7 g_debug boolean := hr_utility.debug_enabled;
8 --
9 -- Common business group and legislation code check function
10 --
11 procedure check_bg_lc
12 ( p_business_group_id in number
13 ) is
14 l_legislation_code varchar2(2);
15 --
16 cursor csr_bg is
17 select legislation_code
18 from per_business_groups pbg
19 where pbg.business_group_id = p_business_group_id;
20 --
21 begin
22 --
23 -- Check that the specified business group is valid.
24 --
25 open csr_bg;
26 fetch csr_bg
27 into l_legislation_code;
28 if csr_bg%notfound then
29 close csr_bg;
30 hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
31 hr_utility.raise_error;
32 end if;
33 close csr_bg;
34 --
35 -- Check that the legislation of the specified business group is 'KR'.
36 --
37 if l_legislation_code <> 'KR' then
38 hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
39 hr_utility.set_message_token('LEG_CODE','KR');
40 hr_utility.raise_error;
41 end if;
42 end check_bg_lc;
43 -- ---------------------------------------------------------------------
44 -- |------------------< ins_yea_tax_break_info >-----------------------|
45 -- ---------------------------------------------------------------------
46 procedure ins_yea_tax_break_info
47 (p_validate in boolean default null
48 ,p_assignment_id in number
49 ,p_business_group_id in number
50 ,p_information_type in varchar2
51 ,p_aei_information_category in varchar2 default null
52 ,p_aei_information1 in varchar2 default null
53 ,p_aei_information2 in varchar2 default null
54 ,p_aei_information3 in varchar2 default null
55 ,p_aei_information4 in varchar2 default null
56 ,p_object_version_number out NOCOPY number
57 ,p_assignment_extra_info_id out NOCOPY number
58 ) is
59 --
60 -- Declare cursors and local variables
61 --
62 l_proc varchar2(72) := g_package||'ins_yea_tax_break_info';
63 --
64 begin
65 if g_debug then
66 hr_utility.set_location('Entering:'|| l_proc, 10);
67 hr_utility.trace('Inside ins_yea_tax_break_info');
68 end if;
69
70 -- Check business group and legislation code
71 check_bg_lc
72 (p_business_group_id => p_business_group_id
73 );
74
75 if g_debug then
76 hr_utility.set_location(l_proc, 6);
77 end if;
78 --
79 -- Call the Assignment Extra Information Business API
80 --
81 hr_assignment_extra_info_api.create_assignment_extra_info
82 (p_validate => p_validate
83 ,p_assignment_id => p_assignment_id
84 ,p_information_type => p_information_type
85 ,p_aei_information_category => p_aei_information_category
86 ,p_aei_information1 => p_aei_information1
87 ,p_aei_information2 => p_aei_information2
88 ,p_aei_information3 => p_aei_information3
89 ,p_aei_information4 => p_aei_information4
90 ,p_object_version_number => p_object_version_number
91 ,p_assignment_extra_info_id => p_assignment_extra_info_id
92 );
93
94 if g_debug then
95 hr_utility.set_location(' Leaving:'||l_proc, 40);
96 end if;
97 end ins_yea_tax_break_info;
98 --
99 -- ---------------------------------------------------------------------
100 -- |------------------< upd_yea_tax_break_info >-----------------------|
101 -- ---------------------------------------------------------------------
102 procedure upd_yea_tax_break_info
103 (p_validate in boolean default null
104 ,p_assignment_extra_info_id in number
105 ,p_business_group_id in number
106 ,p_object_version_number in out NOCOPY number
107 ,p_aei_information_category in varchar2 default null
108 ,p_aei_information1 in varchar2 default null
109 ,p_aei_information2 in varchar2 default null
110 ,p_aei_information3 in varchar2 default null
111 ,p_aei_information4 in varchar2 default null
112 )is
113 --
114 -- Declare cursors and local variables
115 --
116 l_proc varchar2(72) := g_package||'upd_yea_tax_break_info';
117 --
118 begin
119 if g_debug then
120 hr_utility.set_location('Entering:'|| l_proc, 10);
121 end if;
122
123 -- Check business group and legislation code
124 check_bg_lc
125 (p_business_group_id => p_business_group_id
126 );
127
128 if g_debug then
129 hr_utility.set_location(l_proc, 6);
130 end if;
131 --
132 -- Call the Assignment Extra Information Business API
133 --
134 hr_assignment_extra_info_api.update_assignment_extra_info
135 (p_validate => p_validate
136 ,p_assignment_extra_info_id => p_assignment_extra_info_id
137 ,p_object_version_number => p_object_version_number
138 ,p_aei_information_category => p_aei_information_category
139 ,p_aei_information1 => p_aei_information1
140 ,p_aei_information2 => p_aei_information2
141 ,p_aei_information3 => p_aei_information3
142 ,p_aei_information4 => p_aei_information4
143 );
144
145 if g_debug then
146 hr_utility.set_location(' Leaving:'||l_proc, 40);
147 end if;
148 end upd_yea_tax_break_info;
149 --
150 -- ---------------------------------------------------------------------
151 -- |------------------< ins_yea_tax_exem_info >------------------------|
152 -- ---------------------------------------------------------------------
153 procedure ins_yea_tax_exem_info
154 (p_validate in boolean default null
155 ,p_assignment_id in number
156 ,p_business_group_id in number
157 ,p_information_type in varchar2
158 ,p_aei_information_category in varchar2 default null
159 ,p_aei_information1 in varchar2 default null
160 ,p_aei_information2 in varchar2 default null
161 ,p_aei_information3 in varchar2 default null
162 ,p_aei_information4 in varchar2 default null
163 ,p_aei_information5 in varchar2 default null
164 ,p_aei_information6 in varchar2 default null
165 ,p_aei_information7 in varchar2 default null
166 ,p_object_version_number out NOCOPY number
167 ,p_assignment_extra_info_id out NOCOPY number
168 ) is
169 --
170 -- Declare cursors and local variables
171 --
172 l_proc varchar2(72) := g_package||'ins_yea_tax_exem_info';
173 --
174 begin
175 if g_debug then
176 hr_utility.set_location('Entering:'|| l_proc, 10);
177 hr_utility.trace('Inside ins_yea_tax_exem_info');
178 end if;
179
180 -- Check business group and legislation code
181 check_bg_lc
182 (p_business_group_id => p_business_group_id
183 );
184
185 if g_debug then
186 hr_utility.set_location(l_proc, 6);
187 end if;
188 --
189 -- Call the Assignment Extra Information Business API
190 --
191 hr_assignment_extra_info_api.create_assignment_extra_info
192 (p_validate => p_validate
193 ,p_assignment_id => p_assignment_id
194 ,p_information_type => p_information_type
195 ,p_aei_information_category => p_aei_information_category
196 ,p_aei_information1 => p_aei_information1
197 ,p_aei_information2 => p_aei_information2
198 ,p_aei_information3 => p_aei_information3
199 ,p_aei_information4 => p_aei_information4
200 ,p_aei_information5 => p_aei_information5
201 ,p_aei_information6 => p_aei_information6
202 ,p_aei_information7 => p_aei_information7
203 ,p_object_version_number => p_object_version_number
204 ,p_assignment_extra_info_id => p_assignment_extra_info_id
205 );
206
207 if g_debug then
208 hr_utility.set_location(' Leaving:'||l_proc, 40);
209 end if;
210 end ins_yea_tax_exem_info;
211 --
212 -- ---------------------------------------------------------------------
213 -- |-------------------< upd_yea_tax_exem_info >-----------------------|
214 -- ---------------------------------------------------------------------
215 procedure upd_yea_tax_exem_info
216 (p_validate in boolean default null
217 ,p_assignment_extra_info_id in number
218 ,p_business_group_id in number
219 ,p_object_version_number in out NOCOPY number
220 ,p_aei_information_category in varchar2 default null
221 ,p_aei_information1 in varchar2 default null
222 ,p_aei_information2 in varchar2 default null
223 ,p_aei_information3 in varchar2 default null
224 ,p_aei_information4 in varchar2 default null
225 ,p_aei_information5 in varchar2 default null
226 ,p_aei_information6 in varchar2 default null
227 ,p_aei_information7 in varchar2 default null
228 )is
229 --
230 -- Declare cursors and local variables
231 --
232 l_proc varchar2(72) := g_package||'upd_yea_tax_exem_info';
233 --
234 begin
235 if g_debug then
236 hr_utility.set_location('Entering:'|| l_proc, 10);
237 end if;
238
239 -- Check business group and legislation code
240 check_bg_lc
241 (p_business_group_id => p_business_group_id
242 );
243
244 if g_debug then
245 hr_utility.set_location(l_proc, 6);
246 end if;
247 --
248 -- Call the Assignment Extra Information Business API
249 --
250 hr_assignment_extra_info_api.update_assignment_extra_info
251 (p_validate => p_validate
252 ,p_assignment_extra_info_id => p_assignment_extra_info_id
253 ,p_object_version_number => p_object_version_number
254 ,p_aei_information_category => p_aei_information_category
255 ,p_aei_information1 => p_aei_information1
256 ,p_aei_information2 => p_aei_information2
257 ,p_aei_information3 => p_aei_information3
258 ,p_aei_information4 => p_aei_information4
259 ,p_aei_information5 => p_aei_information5
260 ,p_aei_information6 => p_aei_information6
261 ,p_aei_information7 => p_aei_information7
262 );
263
264 if g_debug then
265 hr_utility.set_location(' Leaving:'||l_proc, 40);
266 end if;
267 end upd_yea_tax_exem_info;
268 --
269 -- ---------------------------------------------------------------------
270 -- |------------------< ins_yea_sp_tax_exem_info >---------------------|
271 -- ---------------------------------------------------------------------
272 procedure ins_yea_sp_tax_exem_info
273 (p_validate in boolean default null
274 ,p_assignment_id in number
275 ,p_business_group_id in number
276 ,p_information_type in varchar2
277 ,p_aei_information_category in varchar2 default null
278 ,p_aei_information1 in varchar2 default null
279 ,p_aei_information2 in varchar2 default null
280 ,p_aei_information3 in varchar2 default null
281 ,p_aei_information4 in varchar2 default null
282 ,p_aei_information5 in varchar2 default null
283 ,p_aei_information6 in varchar2 default null
284 ,p_aei_information7 in varchar2 default null
285 ,p_aei_information8 in varchar2 default null
286 ,p_aei_information9 in varchar2 default null
287 ,p_aei_information10 in varchar2 default null
288 ,p_aei_information11 in varchar2 default null
289 ,p_aei_information12 in varchar2 default null
290 ,p_aei_information13 in varchar2 default null
291 ,p_aei_information14 in varchar2 default null
292 ,p_aei_information15 in varchar2 default null
293 ,p_aei_information16 in varchar2 default null
294 ,p_aei_information17 in varchar2 default null
295 ,p_aei_information18 in varchar2 default null
296 ,p_aei_information19 in varchar2 default null
297 ,p_aei_information20 in varchar2 default null
298 ,p_aei_information21 in varchar2 default null
299 ,p_aei_information22 in varchar2 default null
300 ,p_object_version_number out NOCOPY number
301 ,p_assignment_extra_info_id out NOCOPY number
302 ) is
303 --
304 -- Declare cursors and local variables
305 --
306 l_proc varchar2(72) := g_package||'ins_yea_sp_tax_exem_info';
307 --
308 begin
309 if g_debug then
310 hr_utility.set_location('Entering:'|| l_proc, 10);
314 -- Check business group and legislation code
311 hr_utility.trace('Inside ins_yea_sp_tax_exem_info');
312 end if;
313
315 check_bg_lc
316 (p_business_group_id => p_business_group_id
317 );
318
319 if g_debug then
320 hr_utility.set_location(l_proc, 6);
321 end if;
322 --
323 -- Call the Assignment Extra Information Business API
324 --
325 hr_assignment_extra_info_api.create_assignment_extra_info
326 (p_validate => p_validate
327 ,p_assignment_id => p_assignment_id
328 ,p_information_type => p_information_type
329 ,p_aei_information_category => p_aei_information_category
330 ,p_aei_information1 => p_aei_information1
331 ,p_aei_information2 => p_aei_information2
332 ,p_aei_information3 => p_aei_information3
333 ,p_aei_information4 => p_aei_information4
334 ,p_aei_information5 => p_aei_information5
335 ,p_aei_information6 => p_aei_information6
336 ,p_aei_information7 => p_aei_information7
337 ,p_aei_information8 => p_aei_information8
338 ,p_aei_information9 => p_aei_information9
339 ,p_aei_information10 => p_aei_information10
340 ,p_aei_information11 => p_aei_information11
341 ,p_aei_information12 => p_aei_information12
342 ,p_aei_information13 => p_aei_information13
343 ,p_aei_information14 => p_aei_information14
344 ,p_aei_information15 => p_aei_information15
345 ,p_aei_information16 => p_aei_information16
346 ,p_aei_information17 => p_aei_information17
347 ,p_aei_information18 => p_aei_information18
348 ,p_aei_information19 => p_aei_information19
349 ,p_aei_information20 => p_aei_information20
350 ,p_aei_information21 => p_aei_information21
351 ,p_aei_information22 => p_aei_information22
352 ,p_object_version_number => p_object_version_number
353 ,p_assignment_extra_info_id => p_assignment_extra_info_id
354 );
355
356 if g_debug then
357 hr_utility.set_location(' Leaving:'||l_proc, 40);
358 end if;
359 end ins_yea_sp_tax_exem_info;
360 --
361 -- ---------------------------------------------------------------------
362 -- |-------------------< upd_yea_sp_tax_exem_info >--------------------|
363 -- ---------------------------------------------------------------------
364 procedure upd_yea_sp_tax_exem_info
365 (p_validate in boolean default null
366 ,p_assignment_extra_info_id in number
367 ,p_business_group_id in number
368 ,p_object_version_number in out NOCOPY number
369 ,p_aei_information_category in varchar2 default null
370 ,p_aei_information1 in varchar2 default null
371 ,p_aei_information2 in varchar2 default null
372 ,p_aei_information3 in varchar2 default null
373 ,p_aei_information4 in varchar2 default null
374 ,p_aei_information5 in varchar2 default null
375 ,p_aei_information6 in varchar2 default null
376 ,p_aei_information7 in varchar2 default null
377 ,p_aei_information8 in varchar2 default null
378 ,p_aei_information9 in varchar2 default null
379 ,p_aei_information10 in varchar2 default null
380 ,p_aei_information11 in varchar2 default null
381 ,p_aei_information12 in varchar2 default null
382 ,p_aei_information13 in varchar2 default null
383 ,p_aei_information14 in varchar2 default null
384 ,p_aei_information15 in varchar2 default null
385 ,p_aei_information16 in varchar2 default null
386 ,p_aei_information17 in varchar2 default null
387 ,p_aei_information18 in varchar2 default null
388 ,p_aei_information19 in varchar2 default null
389 ,p_aei_information20 in varchar2 default null
390 ,p_aei_information21 in varchar2 default null
391 ,p_aei_information22 in varchar2 default null
392 )is
393 --
394 -- Declare cursors and local variables
395 --
396 l_proc varchar2(72) := g_package||'upd_yea_sp_tax_exem_info';
397 --
398 begin
399 if g_debug then
400 hr_utility.set_location('Entering:'|| l_proc, 10);
401 end if;
402
403 -- Check business group and legislation code
404 check_bg_lc
405 (p_business_group_id => p_business_group_id
406 );
407
408 if g_debug then
409 hr_utility.set_location(l_proc, 6);
410 end if;
411 --
412 -- Call the Assignment Extra Information Business API
413 --
414 hr_assignment_extra_info_api.update_assignment_extra_info
415 (p_validate => p_validate
416 ,p_assignment_extra_info_id => p_assignment_extra_info_id
417 ,p_object_version_number => p_object_version_number
418 ,p_aei_information_category => p_aei_information_category
419 ,p_aei_information1 => p_aei_information1
420 ,p_aei_information2 => p_aei_information2
421 ,p_aei_information3 => p_aei_information3
422 ,p_aei_information4 => p_aei_information4
423 ,p_aei_information5 => p_aei_information5
424 ,p_aei_information6 => p_aei_information6
425 ,p_aei_information7 => p_aei_information7
426 ,p_aei_information8 => p_aei_information8
427 ,p_aei_information9 => p_aei_information9
428 ,p_aei_information10 => p_aei_information10
429 ,p_aei_information11 => p_aei_information11
430 ,p_aei_information12 => p_aei_information12
431 ,p_aei_information13 => p_aei_information13
432 ,p_aei_information14 => p_aei_information14
433 ,p_aei_information15 => p_aei_information15
434 ,p_aei_information16 => p_aei_information16
435 ,p_aei_information17 => p_aei_information17
436 ,p_aei_information18 => p_aei_information18
437 ,p_aei_information19 => p_aei_information19
438 ,p_aei_information20 => p_aei_information20
439 ,p_aei_information21 => p_aei_information21
440 ,p_aei_information22 => p_aei_information22
441 );
442
443 if g_debug then
444 hr_utility.set_location(' Leaving:'||l_proc, 40);
445 end if;
446 end upd_yea_sp_tax_exem_info;
447 --
448 -- ---------------------------------------------------------------------
449 -- |------------< ins_yea_dpnteduc_tax_exem_info >---------------------|
450 -- ---------------------------------------------------------------------
451 procedure ins_yea_dpnteduc_tax_exem_info
452 (p_validate in boolean default null
453 ,p_assignment_id in number
454 ,p_business_group_id in number
455 ,p_information_type in varchar2
456 ,p_aei_information_category in varchar2 default null
457 ,p_aei_information1 in varchar2 default null
458 ,p_aei_information2 in varchar2 default null
459 ,p_aei_information3 in varchar2 default null
460 ,p_aei_information4 in varchar2 default null
461 ,p_object_version_number out NOCOPY number
462 ,p_assignment_extra_info_id out NOCOPY number
463 ) is
464 --
465 -- Declare cursors and local variables
466 --
467 l_proc varchar2(72) := g_package||'ins_yea_dpnteduc_tax_exem_info';
468 --
469 begin
470 if g_debug then
471 hr_utility.set_location('Entering:'|| l_proc, 10);
472 hr_utility.trace('Inside ins_yea_dpnteduc_tax_exem_info');
473 end if;
474
475 -- Check business group and legislation code
476 check_bg_lc
477 (p_business_group_id => p_business_group_id
478 );
479
480 if g_debug then
481 hr_utility.set_location(l_proc, 6);
482 end if;
483 --
484 -- Call the Assignment Extra Information Business API
485 --
486 hr_assignment_extra_info_api.create_assignment_extra_info
487 (p_validate => p_validate
488 ,p_assignment_id => p_assignment_id
489 ,p_information_type => p_information_type
490 ,p_aei_information_category => p_aei_information_category
491 ,p_aei_information1 => p_aei_information1
492 ,p_aei_information2 => p_aei_information2
493 ,p_aei_information3 => p_aei_information3
494 ,p_aei_information4 => p_aei_information4
495 ,p_object_version_number => p_object_version_number
496 ,p_assignment_extra_info_id => p_assignment_extra_info_id
497 );
498
499 if g_debug then
500 hr_utility.set_location(' Leaving:'||l_proc, 40);
501 end if;
502 end ins_yea_dpnteduc_tax_exem_info;
503 --
504 -- ---------------------------------------------------------------------
505 -- |-------------< upd_yea_dpnteduc_tax_exem_info >--------------------|
506 -- ---------------------------------------------------------------------
507 procedure upd_yea_dpnteduc_tax_exem_info
508 (p_validate in boolean default null
509 ,p_assignment_extra_info_id in number
510 ,p_business_group_id in number
511 ,p_object_version_number in out NOCOPY number
512 ,p_aei_information_category in varchar2 default null
513 ,p_aei_information1 in varchar2 default null
514 ,p_aei_information2 in varchar2 default null
515 ,p_aei_information3 in varchar2 default null
516 ,p_aei_information4 in varchar2 default null
517 )is
518 --
519 -- Declare cursors and local variables
520 --
521 l_proc varchar2(72) := g_package||'upd_yea_dpnteduc_tax_exem_info';
522 --
523 begin
524 if g_debug then
525 hr_utility.set_location('Entering:'|| l_proc, 10);
526 end if;
527
528 -- Check business group and legislation code
529 check_bg_lc
530 (p_business_group_id => p_business_group_id
531 );
532
533 if g_debug then
534 hr_utility.set_location(l_proc, 6);
535 end if;
536 --
537 -- Call the Assignment Extra Information Business API
538 --
539 hr_assignment_extra_info_api.update_assignment_extra_info
540 (p_validate => p_validate
541 ,p_assignment_extra_info_id => p_assignment_extra_info_id
542 ,p_object_version_number => p_object_version_number
543 ,p_aei_information_category => p_aei_information_category
544 ,p_aei_information1 => p_aei_information1
545 ,p_aei_information2 => p_aei_information2
546 ,p_aei_information3 => p_aei_information3
547 ,p_aei_information4 => p_aei_information4
548 );
549
550 if g_debug then
551 hr_utility.set_location(' Leaving:'||l_proc, 40);
552 end if;
553 end upd_yea_dpnteduc_tax_exem_info;
554 --
555 -- ---------------------------------------------------------------------
556 -- |------------< ins_yea_fw_tax_break_info >--------------------------|
557 -- ---------------------------------------------------------------------
558 procedure ins_yea_fw_tax_break_info
559 (p_validate in boolean default null
560 ,p_assignment_id in number
561 ,p_business_group_id in number
562 ,p_information_type in varchar2
563 ,p_aei_information_category in varchar2 default null
564 ,p_aei_information1 in varchar2 default null
565 ,p_aei_information2 in varchar2 default null
566 ,p_aei_information3 in varchar2 default null
567 ,p_aei_information4 in varchar2 default null
568 ,p_aei_information5 in varchar2 default null
569 ,p_aei_information6 in varchar2 default null
570 ,p_object_version_number out NOCOPY number
571 ,p_assignment_extra_info_id out NOCOPY number
572 ) is
573 --
574 -- Declare cursors and local variables
575 --
576 l_proc varchar2(72) := g_package||'ins_yea_fw_tax_break_info';
577 --
578 begin
579 if g_debug then
580 hr_utility.set_location('Entering:'|| l_proc, 10);
581 hr_utility.trace('Inside ins_yea_fw_tax_break_info');
582 end if;
583
584 -- Check business group and legislation code
585 check_bg_lc
586 (p_business_group_id => p_business_group_id
587 );
588
589 if g_debug then
590 hr_utility.set_location(l_proc, 6);
591 end if;
592 --
593 -- Call the Assignment Extra Information Business API
594 --
595 hr_assignment_extra_info_api.create_assignment_extra_info
596 (p_validate => p_validate
597 ,p_assignment_id => p_assignment_id
598 ,p_information_type => p_information_type
599 ,p_aei_information_category => p_aei_information_category
600 ,p_aei_information1 => p_aei_information1
601 ,p_aei_information2 => p_aei_information2
602 ,p_aei_information3 => p_aei_information3
603 ,p_aei_information4 => p_aei_information4
604 ,p_aei_information5 => p_aei_information5
605 ,p_aei_information6 => p_aei_information6
606 ,p_object_version_number => p_object_version_number
607 ,p_assignment_extra_info_id => p_assignment_extra_info_id
608 );
609
610 if g_debug then
611 hr_utility.set_location(' Leaving:'||l_proc, 40);
612 end if;
613 end ins_yea_fw_tax_break_info;
614 --
615 -- ---------------------------------------------------------------------
616 -- |-------------< upd_yea_fw_tax_break_info >-------------------------|
617 -- ---------------------------------------------------------------------
618 procedure upd_yea_fw_tax_break_info
619 (p_validate in boolean default null
620 ,p_assignment_extra_info_id in number
621 ,p_business_group_id in number
622 ,p_object_version_number in out NOCOPY number
623 ,p_aei_information_category in varchar2 default null
624 ,p_aei_information1 in varchar2 default null
625 ,p_aei_information2 in varchar2 default null
626 ,p_aei_information3 in varchar2 default null
627 ,p_aei_information4 in varchar2 default null
628 ,p_aei_information5 in varchar2 default null
629 ,p_aei_information6 in varchar2 default null
630 )is
631 --
632 -- Declare cursors and local variables
633 --
634 l_proc varchar2(72) := g_package||'upd_yea_fw_tax_break_info';
635 --
636 begin
637 if g_debug then
638 hr_utility.set_location('Entering:'|| l_proc, 10);
639 end if;
640
641 -- Check business group and legislation code
642 check_bg_lc
643 (p_business_group_id => p_business_group_id
644 );
645
646 if g_debug then
647 hr_utility.set_location(l_proc, 6);
648 end if;
649 --
650 -- Call the Assignment Extra Information Business API
651 --
652 hr_assignment_extra_info_api.update_assignment_extra_info
653 (p_validate => p_validate
654 ,p_assignment_extra_info_id => p_assignment_extra_info_id
655 ,p_object_version_number => p_object_version_number
656 ,p_aei_information_category => p_aei_information_category
657 ,p_aei_information1 => p_aei_information1
658 ,p_aei_information2 => p_aei_information2
659 ,p_aei_information3 => p_aei_information3
660 ,p_aei_information4 => p_aei_information4
661 ,p_aei_information5 => p_aei_information5
662 ,p_aei_information6 => p_aei_information6
663 );
664
665 if g_debug then
666 hr_utility.set_location(' Leaving:'||l_proc, 40);
667 end if;
668 end upd_yea_fw_tax_break_info;
669 --
670 -- ---------------------------------------------------------------------
671 -- |------------< ins_yea_ovs_tax_break_info >-------------------------|
672 -- ---------------------------------------------------------------------
673 procedure ins_yea_ovs_tax_break_info
674 (p_validate in boolean default null
675 ,p_assignment_id in number
676 ,p_business_group_id in number
677 ,p_information_type in varchar2
678 ,p_aei_information_category in varchar2 default null
679 ,p_aei_information1 in varchar2 default null
680 ,p_aei_information2 in varchar2 default null
681 ,p_aei_information3 in varchar2 default null
682 ,p_aei_information4 in varchar2 default null
683 ,p_aei_information5 in varchar2 default null
684 ,p_aei_information6 in varchar2 default null
685 ,p_aei_information7 in varchar2 default null
686 ,p_aei_information8 in varchar2 default null
687 ,p_aei_information9 in varchar2 default null
688 ,p_aei_information10 in varchar2 default null
689 ,p_object_version_number out NOCOPY number
690 ,p_assignment_extra_info_id out NOCOPY number
691 ) is
692 --
693 -- Declare cursors and local variables
694 --
695 l_proc varchar2(72) := g_package||'ins_yea_ovs_tax_break_info';
696 --
697 begin
698 if g_debug then
699 hr_utility.set_location('Entering:'|| l_proc, 10);
700 hr_utility.trace('Inside ins_yea_ovs_tax_break_info');
701 end if;
702
703 -- Check business group and legislation code
704 check_bg_lc
705 (p_business_group_id => p_business_group_id
706 );
707
708 if g_debug then
709 hr_utility.set_location(l_proc, 6);
710 end if;
711 --
712 -- Call the Assignment Extra Information Business API
713 --
714 hr_assignment_extra_info_api.create_assignment_extra_info
715 (p_validate => p_validate
716 ,p_assignment_id => p_assignment_id
717 ,p_information_type => p_information_type
718 ,p_aei_information_category => p_aei_information_category
719 ,p_aei_information1 => p_aei_information1
720 ,p_aei_information2 => p_aei_information2
721 ,p_aei_information3 => p_aei_information3
722 ,p_aei_information4 => p_aei_information4
723 ,p_aei_information5 => p_aei_information5
724 ,p_aei_information6 => p_aei_information6
725 ,p_aei_information7 => p_aei_information7
726 ,p_aei_information8 => p_aei_information8
727 ,p_aei_information9 => p_aei_information9
728 ,p_aei_information10 => p_aei_information10
729 ,p_object_version_number => p_object_version_number
730 ,p_assignment_extra_info_id => p_assignment_extra_info_id
731 );
732
733 if g_debug then
734 hr_utility.set_location(' Leaving:'||l_proc, 40);
735 end if;
736 end ins_yea_ovs_tax_break_info;
737 --
738 -- ---------------------------------------------------------------------
739 -- |-------------< upd_yea_ovs_tax_break_info >------------------------|
740 -- ---------------------------------------------------------------------
741 procedure upd_yea_ovs_tax_break_info
742 (p_validate in boolean default null
743 ,p_assignment_extra_info_id in number
744 ,p_business_group_id in number
745 ,p_object_version_number in out NOCOPY number
746 ,p_aei_information_category in varchar2 default null
747 ,p_aei_information1 in varchar2 default null
748 ,p_aei_information2 in varchar2 default null
749 ,p_aei_information3 in varchar2 default null
750 ,p_aei_information4 in varchar2 default null
751 ,p_aei_information5 in varchar2 default null
752 ,p_aei_information6 in varchar2 default null
753 ,p_aei_information7 in varchar2 default null
754 ,p_aei_information8 in varchar2 default null
755 ,p_aei_information9 in varchar2 default null
756 ,p_aei_information10 in varchar2 default null
757 )is
758 --
759 -- Declare cursors and local variables
760 --
761 l_proc varchar2(72) := g_package||'upd_yea_ovs_tax_break_info';
762 --
763 begin
764 if g_debug then
765 hr_utility.set_location('Entering:'|| l_proc, 10);
766 end if;
767
768 -- Check business group and legislation code
769 check_bg_lc
770 (p_business_group_id => p_business_group_id
771 );
772
773 if g_debug then
774 hr_utility.set_location(l_proc, 6);
775 end if;
776 --
777 -- Call the Assignment Extra Information Business API
778 --
782 ,p_object_version_number => p_object_version_number
779 hr_assignment_extra_info_api.update_assignment_extra_info
780 (p_validate => p_validate
781 ,p_assignment_extra_info_id => p_assignment_extra_info_id
783 ,p_aei_information_category => p_aei_information_category
784 ,p_aei_information1 => p_aei_information1
785 ,p_aei_information2 => p_aei_information2
786 ,p_aei_information3 => p_aei_information3
787 ,p_aei_information4 => p_aei_information4
788 ,p_aei_information5 => p_aei_information5
789 ,p_aei_information6 => p_aei_information6
790 ,p_aei_information7 => p_aei_information7
791 ,p_aei_information8 => p_aei_information8
792 ,p_aei_information9 => p_aei_information9
793 ,p_aei_information10 => p_aei_information10
794 );
795
796 if g_debug then
797 hr_utility.set_location(' Leaving:'||l_proc, 40);
798 end if;
799 end upd_yea_ovs_tax_break_info;
800 --
801 -- ---------------------------------------------------------------------
802 -- |-------------< upd_yea_prev_er_info >------------------------------|
803 -- ---------------------------------------------------------------------
804 procedure upd_yea_prev_er_info
805 (p_validate in boolean default null
806 ,p_assignment_extra_info_id in number
807 ,p_business_group_id in number
808 ,p_object_version_number in out NOCOPY number
809 ,p_aei_information_category in varchar2 default null
810 ,p_aei_information1 in varchar2 default null
811 ,p_aei_information2 in varchar2 default null
812 ,p_aei_information3 in varchar2 default null
813 ,p_aei_information4 in varchar2 default null
814 ,p_aei_information5 in varchar2 default null
815 ,p_aei_information6 in varchar2 default null
816 ,p_aei_information7 in varchar2 default null
817 ,p_aei_information8 in varchar2 default null
818 ,p_aei_information9 in varchar2 default null
819 ,p_aei_information10 in varchar2 default null
820 ,p_aei_information11 in varchar2 default null
821 ,p_aei_information12 in varchar2 default null
822 ,p_aei_information13 in varchar2 default null
823 ,p_aei_information14 in varchar2 default null
824 ,p_aei_information15 in varchar2 default null
825 )is
826 --
827 -- Declare cursors and local variables
828 --
829 l_proc varchar2(72) := g_package||'upd_yea_prev_er_info';
830 --
831 begin
832 if g_debug then
833 hr_utility.set_location('Entering:'|| l_proc, 10);
834 end if;
835
836 -- Check business group and legislation code
837 check_bg_lc
838 (p_business_group_id => p_business_group_id
839 );
840
841 if g_debug then
842 hr_utility.set_location(l_proc, 6);
843 end if;
844 --
845 -- Call the Assignment Extra Information Business API
846 --
847 hr_assignment_extra_info_api.update_assignment_extra_info
848 (p_validate => p_validate
849 ,p_assignment_extra_info_id => p_assignment_extra_info_id
850 ,p_object_version_number => p_object_version_number
851 ,p_aei_information_category => p_aei_information_category
852 ,p_aei_information1 => p_aei_information1
853 ,p_aei_information2 => p_aei_information2
854 ,p_aei_information3 => p_aei_information3
855 ,p_aei_information4 => p_aei_information4
856 ,p_aei_information5 => p_aei_information5
857 ,p_aei_information6 => p_aei_information6
858 ,p_aei_information7 => p_aei_information7
859 ,p_aei_information8 => p_aei_information8
860 ,p_aei_information9 => p_aei_information9
861 ,p_aei_information10 => p_aei_information10
862 ,p_aei_information11 => p_aei_information11
863 ,p_aei_information12 => p_aei_information12
864 ,p_aei_information13 => p_aei_information13
865 ,p_aei_information14 => p_aei_information14
866 ,p_aei_information15 => p_aei_information15
867 );
868
869 if g_debug then
870 hr_utility.set_location(' Leaving:'||l_proc, 40);
871 end if;
872 end upd_yea_prev_er_info;
873
874 -- ---------------------------------------------------------------------
875 -- |------------< ins_yea_prev_er_info >-------------------------------|
876 -- ---------------------------------------------------------------------
877 procedure ins_yea_prev_er_info
878 (p_validate in boolean default null
879 ,p_assignment_id in number
880 ,p_business_group_id in number
881 ,p_information_type in varchar2
882 ,p_aei_information_category in varchar2 default null
883 ,p_aei_information1 in varchar2 default null
884 ,p_aei_information2 in varchar2 default null
885 ,p_aei_information3 in varchar2 default null
886 ,p_aei_information4 in varchar2 default null
887 ,p_aei_information5 in varchar2 default null
888 ,p_aei_information6 in varchar2 default null
889 ,p_aei_information7 in varchar2 default null
890 ,p_aei_information8 in varchar2 default null
891 ,p_aei_information9 in varchar2 default null
892 ,p_aei_information10 in varchar2 default null
893 ,p_aei_information11 in varchar2 default null
894 ,p_aei_information12 in varchar2 default null
895 ,p_aei_information13 in varchar2 default null
896 ,p_aei_information14 in varchar2 default null
897 ,p_aei_information15 in varchar2 default null
898 ,p_object_version_number out NOCOPY number
899 ,p_assignment_extra_info_id out NOCOPY number
900 ) is
901 --
902 -- Declare cursors and local variables
903 --
904 l_proc varchar2(72) := g_package||'ins_yea_prev_er_info';
905 --
906 begin
907 if g_debug then
908 hr_utility.set_location('Entering:'|| l_proc, 10);
909 hr_utility.trace('Inside ins_yea_prev_er_info');
910 end if;
911
912 -- Check business group and legislation code
913 check_bg_lc
914 (p_business_group_id => p_business_group_id
915 );
916
917 if g_debug then
918 hr_utility.set_location(l_proc, 6);
919 end if;
920 --
921 -- Call the Assignment Extra Information Business API
922 --
923 hr_assignment_extra_info_api.create_assignment_extra_info
924 (p_validate => p_validate
925 ,p_assignment_id => p_assignment_id
926 ,p_information_type => p_information_type
927 ,p_aei_information_category => p_aei_information_category
928 ,p_aei_information1 => p_aei_information1
929 ,p_aei_information2 => p_aei_information2
930 ,p_aei_information3 => p_aei_information3
931 ,p_aei_information4 => p_aei_information4
932 ,p_aei_information5 => p_aei_information5
933 ,p_aei_information6 => p_aei_information6
934 ,p_aei_information7 => p_aei_information7
935 ,p_aei_information8 => p_aei_information8
936 ,p_aei_information9 => p_aei_information9
937 ,p_aei_information10 => p_aei_information10
938 ,p_aei_information11 => p_aei_information11
939 ,p_aei_information12 => p_aei_information12
940 ,p_aei_information13 => p_aei_information13
941 ,p_aei_information14 => p_aei_information14
942 ,p_aei_information15 => p_aei_information15
943 ,p_object_version_number => p_object_version_number
944 ,p_assignment_extra_info_id => p_assignment_extra_info_id
945 );
946
947 if g_debug then
948 hr_utility.set_location(' Leaving:'||l_proc, 40);
949 end if;
950 end ins_yea_prev_er_info;
951 --
952 --
953 procedure chk_date_in_current_year
954 (p_session_date in date
955 ,p_entry_date in date
956 ) is
957 begin
958 if p_entry_date is null
959 then return;
960 end if;
961
962 if substr(to_char(p_session_date, 'DD-MON-YYYY'), 8, 4)
963 <> substr(to_char(p_entry_date, 'DD-MON-YYYY'), 8, 4) then
964 hr_utility.set_message(801, 'PAY_KR_NOT_WITHIN_CURRENT_YEAR');
965 hr_utility.raise_error;
966 end if;
967 end chk_date_in_current_year;
968 --
969 --
970 end pay_kr_aei_api;