[Home] [Help]
PACKAGE BODY: APPS.PAY_JP_ISDF_DML_PKG
Source
1 package body pay_jp_isdf_dml_pkg as
2 /* $Header: pyjpisfa.pkb 120.3.12020000.3 2012/09/20 19:29:10 dduvvuri ship $ */
3 --
4 c_package constant varchar2(30) := 'pay_jp_isdf_dml_pkg.';
5 g_debug boolean := hr_utility.debug_enabled;
6 --
10 function next_action_information_id return number
7 -- -------------------------------------------------------------------------
8 -- next_action_information_id
9 -- -------------------------------------------------------------------------
11 is
12 l_action_information_id number;
13 l_proc varchar2(80) := c_package||'next_action_information_id';
14 begin
15 --
16 if g_debug then
17 hr_utility.set_location(l_proc,0);
18 end if;
19 --
20 select pay_action_information_s.nextval
21 into l_action_information_id
22 from dual;
23 --
24 if g_debug then
25 hr_utility.set_location(l_proc,1000);
26 end if;
27 --
28 return l_action_information_id;
29 --
30 end next_action_information_id;
31 --
32 -- -------------------------------------------------------------------------
33 -- lock_pact
34 -- -------------------------------------------------------------------------
35 procedure lock_pact(
36 p_action_information_id in number,
37 p_object_version_number in number,
38 p_rec out nocopy pay_jp_isdf_pact_v%rowtype)
39 is
40 l_proc varchar2(80) := c_package||'lock_pact';
41 begin
42 --
43 if g_debug then
44 hr_utility.set_location(l_proc,0);
45 end if;
46 --
47 select *
48 into p_rec
49 from pay_jp_isdf_pact_v
50 where action_information_id = p_action_information_id
51 for update nowait;
52 --
53 if p_rec.object_version_number <> p_object_version_number then
54 fnd_message.set_name('FND', 'FND_RECORD_CHANGED_ERROR');
55 fnd_message.raise_error;
56 end if;
57 --
58 if g_debug then
59 hr_utility.set_location(l_proc,1000);
60 end if;
61 --
62 exception
63 when hr_api.object_locked then
64 fnd_message.set_name('FND','FND_LOCK_RECORD_ERROR');
65 fnd_message.raise_error;
66 when no_data_found then
67 fnd_message.set_name('FND','FND_RECORD_DELETED_ERROR');
68 fnd_message.raise_error;
69 --
70 end lock_pact;
71 --
72 -- -------------------------------------------------------------------------
73 -- lock_assact
74 -- -------------------------------------------------------------------------
75 procedure lock_assact(
76 p_action_information_id in number,
77 p_object_version_number in number,
78 p_rec out nocopy pay_jp_isdf_assact_v%rowtype)
79 is
80 l_proc varchar2(80) := c_package||'lock_assact';
81 begin
82 --
83 if g_debug then
84 hr_utility.set_location(l_proc,0);
85 end if;
86 --
87 select *
88 into p_rec
89 from pay_jp_isdf_assact_v
90 where action_information_id = p_action_information_id
91 for update nowait;
92 --
93 if p_rec.object_version_number <> p_object_version_number then
94 fnd_message.set_name('FND','FND_RECORD_CHANGED_ERROR');
95 fnd_message.raise_error;
96 end if;
97 --
98 if g_debug then
99 hr_utility.set_location(l_proc,1000);
100 end if;
101 --
102 exception
103 when hr_api.object_locked then
104 fnd_message.set_name('FND','FND_LOCK_RECORD_ERROR');
105 fnd_message.raise_error;
106 when no_data_found then
107 fnd_message.set_name('FND','FND_RECORD_DELETED_ERROR');
108 fnd_message.raise_error;
109 --
110 end lock_assact;
111 --
112 -- -------------------------------------------------------------------------
113 -- lock_emp
114 -- -------------------------------------------------------------------------
115 procedure lock_emp(
116 p_action_information_id in number,
117 p_object_version_number in number,
118 p_rec out nocopy pay_jp_isdf_emp_v%rowtype)
119 is
120 l_proc varchar2(80) := c_package||'lock_emp';
121 begin
122 --
123 if g_debug then
124 hr_utility.set_location(l_proc,0);
125 end if;
126 --
127 select *
128 into p_rec
129 from pay_jp_isdf_emp_v
130 where action_information_id = p_action_information_id
131 for update nowait;
132 --
133 if p_rec.object_version_number <> p_object_version_number then
134 fnd_message.set_name('FND', 'FND_RECORD_CHANGED_ERROR');
135 fnd_message.raise_error;
136 end if;
137 --
138 if g_debug then
139 hr_utility.set_location(l_proc,1000);
140 end if;
141 --
142 exception
143 when hr_api.object_locked then
144 fnd_message.set_name('FND','FND_LOCK_RECORD_ERROR');
145 fnd_message.raise_error;
146 when no_data_found then
147 fnd_message.set_name('FND','FND_RECORD_DELETED_ERROR');
148 fnd_message.raise_error;
149 --
150 end lock_emp;
151 --
152 -- -------------------------------------------------------------------------
153 -- lock_entry
154 -- -------------------------------------------------------------------------
155 procedure lock_entry(
156 p_action_information_id in number,
157 p_object_version_number in number,
158 p_rec out nocopy pay_jp_isdf_entry_v%rowtype)
159 is
160 l_proc varchar2(80) := c_package||'lock_entry';
161 begin
162 --
163 if g_debug then
164 hr_utility.set_location(l_proc,0);
165 end if;
166 --
167 select *
168 into p_rec
169 from pay_jp_isdf_entry_v
173 if p_rec.object_version_number <> p_object_version_number then
170 where action_information_id = p_action_information_id
171 for update nowait;
172 --
174 fnd_message.set_name('FND','FND_RECORD_CHANGED_ERROR');
175 fnd_message.raise_error;
176 end if;
177 --
178 if g_debug then
179 hr_utility.set_location(l_proc,1000);
180 end if;
181 --
182 exception
183 when hr_api.object_locked then
184 fnd_message.set_name('FND','FND_LOCK_RECORD_ERROR');
185 fnd_message.raise_error;
186 when no_data_found then
187 fnd_message.set_name('FND','FND_RECORD_DELETED_ERROR');
188 fnd_message.raise_error;
189 --
190 end lock_entry;
191 --
192 -- -------------------------------------------------------------------------
193 -- lock_calc_dct
194 -- -------------------------------------------------------------------------
195 procedure lock_calc_dct(
196 p_action_information_id in number,
197 p_object_version_number in number,
198 p_rec out nocopy pay_jp_isdf_calc_dct_v%rowtype)
199 is
200 l_proc varchar2(80) := c_package||'lock_calc_dct';
201 begin
202 --
203 if g_debug then
204 hr_utility.set_location(l_proc,0);
205 end if;
206 --
207 select *
208 into p_rec
209 from pay_jp_isdf_calc_dct_v
210 where action_information_id = p_action_information_id
211 for update nowait;
212 --
213 if p_rec.object_version_number <> p_object_version_number then
214 fnd_message.set_name('FND','FND_RECORD_CHANGED_ERROR');
215 fnd_message.raise_error;
216 end if;
217 --
218 if g_debug then
219 hr_utility.set_location(l_proc,1000);
220 end if;
221 --
222 exception
223 when hr_api.object_locked then
224 fnd_message.set_name('FND','FND_LOCK_RECORD_ERROR');
225 fnd_message.raise_error;
226 when no_data_found then
227 fnd_message.set_name('FND','FND_RECORD_DELETED_ERROR');
228 fnd_message.raise_error;
229 --
230 end lock_calc_dct;
231 --
232 -- -------------------------------------------------------------------------
233 -- lock_calc_dct2
234 -- -------------------------------------------------------------------------
235 procedure lock_calc_dct2(
236 p_action_information_id in number,
237 p_object_version_number in number,
238 p_rec out nocopy pay_jp_isdf_calc_dct_v2%rowtype)
239 is
240 l_proc varchar2(80) := c_package||'lock_calc_dct2';
241 begin
242 --
243 if g_debug then
244 hr_utility.set_location(l_proc,0);
245 end if;
246 --
247 select *
248 into p_rec
249 from pay_jp_isdf_calc_dct_v2
250 where action_information_id = p_action_information_id
251 for update nowait;
252 --
253 if p_rec.object_version_number <> p_object_version_number then
254 fnd_message.set_name('FND','FND_RECORD_CHANGED_ERROR');
255 fnd_message.raise_error;
256 end if;
257 --
258 if g_debug then
259 hr_utility.set_location(l_proc,1000);
260 end if;
261 --
262 exception
263 when hr_api.object_locked then
264 fnd_message.set_name('FND','FND_LOCK_RECORD_ERROR');
265 fnd_message.raise_error;
266 when no_data_found then
267 fnd_message.set_name('FND','FND_RECORD_DELETED_ERROR');
268 fnd_message.raise_error;
269 --
270 end lock_calc_dct2;
271 --
272 -- -------------------------------------------------------------------------
273 -- lock_life_gen
274 -- -------------------------------------------------------------------------
275 procedure lock_life_gen(
276 p_action_information_id in number,
277 p_object_version_number in number,
278 p_rec out nocopy pay_jp_isdf_life_gen_v%rowtype)
279 is
280 l_proc varchar2(80) := c_package||'lock_life_gen';
281 begin
282 --
283 if g_debug then
284 hr_utility.set_location(l_proc,0);
285 end if;
286 --
287 select *
288 into p_rec
289 from pay_jp_isdf_life_gen_v
290 where action_information_id = p_action_information_id
291 for update nowait;
292 --
293 if p_rec.object_version_number <> p_object_version_number then
294 fnd_message.set_name('FND','FND_RECORD_CHANGED_ERROR');
295 fnd_message.raise_error;
296 end if;
297 --
298 if g_debug then
299 hr_utility.set_location(l_proc,1000);
300 end if;
301 --
302 exception
303 when hr_api.object_locked then
304 fnd_message.set_name('FND','FND_LOCK_RECORD_ERROR');
305 fnd_message.raise_error;
306 when no_data_found then
307 fnd_message.set_name('FND','FND_RECORD_DELETED_ERROR');
308 fnd_message.raise_error;
309 --
310 end lock_life_gen;
311
312 -- -------------------------------------------------------------------------
313 -- lock_care_med
314 -- -------------------------------------------------------------------------
315 procedure lock_care_med(
316 p_action_information_id in number,
317 p_object_version_number in number,
318 p_rec out nocopy pay_jp_isdf_care_med_v%rowtype)
319 is
320 l_proc varchar2(80) := c_package||'lock_care_med';
321 begin
322 --
323 if g_debug then
324 hr_utility.set_location(l_proc,0);
325 end if;
326 --
327 select *
328 into p_rec
329 from pay_jp_isdf_care_med_v
330 where action_information_id = p_action_information_id
331 for update nowait;
332 --
333 if p_rec.object_version_number <> p_object_version_number then
337 --
334 fnd_message.set_name('FND','FND_RECORD_CHANGED_ERROR');
335 fnd_message.raise_error;
336 end if;
338 if g_debug then
339 hr_utility.set_location(l_proc,1000);
340 end if;
341 --
342 exception
343 when hr_api.object_locked then
344 fnd_message.set_name('FND','FND_LOCK_RECORD_ERROR');
345 fnd_message.raise_error;
346 when no_data_found then
347 fnd_message.set_name('FND','FND_RECORD_DELETED_ERROR');
348 fnd_message.raise_error;
349 --
350 end lock_care_med;
351 --
352 --
353 -- -------------------------------------------------------------------------
354 -- lock_life_pens
355 -- -------------------------------------------------------------------------
356 procedure lock_life_pens(
357 p_action_information_id in number,
358 p_object_version_number in number,
359 p_rec out nocopy pay_jp_isdf_life_pens_v%rowtype)
360 is
361 l_proc varchar2(80) := c_package||'lock_life_pens';
362 begin
363 --
364 if g_debug then
365 hr_utility.set_location(l_proc,0);
366 end if;
367 --
368 select *
369 into p_rec
370 from pay_jp_isdf_life_pens_v
371 where action_information_id = p_action_information_id
372 for update nowait;
373 --
374 if p_rec.object_version_number <> p_object_version_number then
375 fnd_message.set_name('FND','FND_RECORD_CHANGED_ERROR');
376 fnd_message.raise_error;
377 end if;
378 --
379 if g_debug then
380 hr_utility.set_location(l_proc,1000);
381 end if;
382 --
383 exception
384 when hr_api.object_locked then
385 fnd_message.set_name('FND','FND_LOCK_RECORD_ERROR');
386 fnd_message.raise_error;
387 when no_data_found then
388 fnd_message.set_name('FND','FND_RECORD_DELETED_ERROR');
389 fnd_message.raise_error;
390 --
391 end lock_life_pens;
392 --
393 -- -------------------------------------------------------------------------
394 -- lock_nonlife
395 -- -------------------------------------------------------------------------
396 procedure lock_nonlife(
397 p_action_information_id in number,
398 p_object_version_number in number,
399 p_rec out nocopy pay_jp_isdf_nonlife_v%rowtype)
400 is
401 l_proc varchar2(80) := c_package||'lock_nonlife';
402 begin
403 --
404 if g_debug then
405 hr_utility.set_location(l_proc,0);
406 end if;
407 --
408 select *
409 into p_rec
410 from pay_jp_isdf_nonlife_v
411 where action_information_id = p_action_information_id
412 for update nowait;
413 --
414 if p_rec.object_version_number <> p_object_version_number then
415 fnd_message.set_name('FND','FND_RECORD_CHANGED_ERROR');
416 fnd_message.raise_error;
417 end if;
418 --
419 if g_debug then
420 hr_utility.set_location(l_proc,1000);
421 end if;
422 --
423 exception
424 when hr_api.object_locked then
425 fnd_message.set_name('FND','FND_LOCK_RECORD_ERROR');
426 fnd_message.raise_error;
427 when no_data_found then
428 fnd_message.set_name('FND','FND_RECORD_DELETED_ERROR');
429 fnd_message.raise_error;
430 --
431 end lock_nonlife;
432 --
433 -- -------------------------------------------------------------------------
434 -- lock_social
435 -- -------------------------------------------------------------------------
436 procedure lock_social(
437 p_action_information_id in number,
438 p_object_version_number in number,
439 p_rec out nocopy pay_jp_isdf_social_v%rowtype)
440 is
441 l_proc varchar2(80) := c_package||'lock_social';
442 begin
443 --
444 if g_debug then
445 hr_utility.set_location(l_proc,0);
446 end if;
447 --
448 select *
449 into p_rec
450 from pay_jp_isdf_social_v
451 where action_information_id = p_action_information_id
452 for update nowait;
453 --
454 if p_rec.object_version_number <> p_object_version_number then
455 fnd_message.set_name('FND','FND_RECORD_CHANGED_ERROR');
456 fnd_message.raise_error;
457 end if;
458 --
459 if g_debug then
460 hr_utility.set_location(l_proc,1000);
461 end if;
462 --
463 exception
464 when hr_api.object_locked then
465 fnd_message.set_name('FND','FND_LOCK_RECORD_ERROR');
466 fnd_message.raise_error;
467 when no_data_found then
468 fnd_message.set_name('FND','FND_RECORD_DELETED_ERROR');
469 fnd_message.raise_error;
470 --
471 end lock_social;
472 --
473 -- -------------------------------------------------------------------------
474 -- lock_mutual_aid
475 -- -------------------------------------------------------------------------
476 procedure lock_mutual_aid(
477 p_action_information_id in number,
478 p_object_version_number in number,
479 p_rec out nocopy pay_jp_isdf_mutual_aid_v%rowtype)
480 is
481 l_proc varchar2(80) := c_package||'lock_mutual_aid';
482 begin
483 --
484 if g_debug then
485 hr_utility.set_location(l_proc,0);
486 end if;
487 --
488 select *
489 into p_rec
490 from pay_jp_isdf_mutual_aid_v
491 where action_information_id = p_action_information_id
492 for update nowait;
493 --
494 if p_rec.object_version_number <> p_object_version_number then
495 fnd_message.set_name('FND','FND_RECORD_CHANGED_ERROR');
496 fnd_message.raise_error;
497 end if;
498 --
502 --
499 if g_debug then
500 hr_utility.set_location(l_proc,1000);
501 end if;
503 exception
504 when hr_api.object_locked then
505 fnd_message.set_name('FND','FND_LOCK_RECORD_ERROR');
506 fnd_message.raise_error;
507 when no_data_found then
508 fnd_message.set_name('FND','FND_RECORD_DELETED_ERROR');
509 fnd_message.raise_error;
510 --
511 end lock_mutual_aid;
512 --
513 -- -------------------------------------------------------------------------
514 -- lock_spouse
515 -- -------------------------------------------------------------------------
516 procedure lock_spouse(
517 p_action_information_id in number,
518 p_object_version_number in number,
519 p_rec out nocopy pay_jp_isdf_spouse_v%rowtype)
520 is
521 l_proc varchar2(80) := c_package||'lock_spouse';
522 begin
523 --
524 if g_debug then
525 hr_utility.set_location(l_proc,0);
526 end if;
527 --
528 select *
529 into p_rec
530 from pay_jp_isdf_spouse_v
531 where action_information_id = p_action_information_id
532 for update nowait;
533 --
534 if p_rec.object_version_number <> p_object_version_number then
535 fnd_message.set_name('FND','FND_RECORD_CHANGED_ERROR');
536 fnd_message.raise_error;
537 end if;
538 --
539 if g_debug then
540 hr_utility.set_location(l_proc,1000);
541 end if;
542 --
543 exception
544 when hr_api.object_locked then
545 fnd_message.set_name('FND','FND_LOCK_RECORD_ERROR');
546 fnd_message.raise_error;
547 when no_data_found then
548 fnd_message.set_name('FND','FND_RECORD_DELETED_ERROR');
549 fnd_message.raise_error;
550 --
551 end lock_spouse;
552 --
553 -- -------------------------------------------------------------------------
554 -- lock_spouse_inc
555 -- -------------------------------------------------------------------------
556 procedure lock_spouse_inc(
557 p_action_information_id in number,
558 p_object_version_number in number,
559 p_rec out nocopy pay_jp_isdf_spouse_inc_v%rowtype)
560 is
561 l_proc varchar2(80) := c_package||'lock_spouse_inc';
562 begin
563 --
564 if g_debug then
565 hr_utility.set_location(l_proc,0);
566 end if;
567 --
568 select *
569 into p_rec
570 from pay_jp_isdf_spouse_inc_v
571 where action_information_id = p_action_information_id
572 for update nowait;
573 --
574 if p_rec.object_version_number <> p_object_version_number then
575 fnd_message.set_name('FND','FND_RECORD_CHANGED_ERROR');
576 fnd_message.raise_error;
577 end if;
578 --
579 if g_debug then
580 hr_utility.set_location(l_proc,1000);
581 end if;
582 --
583 exception
584 when hr_api.object_locked then
585 fnd_message.set_name('FND','FND_LOCK_RECORD_ERROR');
586 fnd_message.raise_error;
587 when no_data_found then
588 fnd_message.set_name('FND','FND_RECORD_DELETED_ERROR');
589 fnd_message.raise_error;
590 --
591 end lock_spouse_inc;
592 --
593 -- -------------------------------------------------------------------------
594 -- create_pact
595 -- -------------------------------------------------------------------------
596 procedure create_pact(
597 p_action_information_id in number,
598 p_payroll_action_id in number,
599 p_action_context_type in varchar2,
600 p_effective_date in date,
601 p_action_information_category in varchar2,
602 p_payroll_id in number,
603 p_organization_id in number,
604 p_assignment_set_id in number,
605 p_submission_period_status in varchar2,
606 p_submission_start_date in date,
607 p_submission_end_date in date,
608 p_tax_office_name in varchar2,
609 p_salary_payer_name in varchar2,
610 p_salary_payer_address in varchar2,
611 p_object_version_number out nocopy number)
612 is
613 l_proc varchar2(80) := c_package||'create_pact';
614 begin
615 --
616 if g_debug then
617 hr_utility.set_location(l_proc,0);
618 end if;
619 --
620 p_object_version_number := 1;
621 --
622 insert into pay_jp_isdf_pact_dml_v(
623 action_information_id,
624 object_version_number,
625 payroll_action_id,
626 action_context_type,
627 effective_date,
628 action_information_category,
629 payroll_id,
630 organization_id,
631 assignment_set_id,
632 submission_period_status,
633 submission_start_date,
634 submission_end_date,
635 tax_office_name,
636 salary_payer_name,
637 salary_payer_address)
638 values(
639 p_action_information_id,
640 p_object_version_number,
641 p_payroll_action_id,
642 p_action_context_type,
643 p_effective_date,
644 p_action_information_category,
645 fnd_number.number_to_canonical(p_payroll_id),
646 fnd_number.number_to_canonical(p_organization_id),
647 fnd_number.number_to_canonical(p_assignment_set_id),
648 p_submission_period_status,
649 fnd_date.date_to_canonical(p_submission_start_date),
650 fnd_date.date_to_canonical(p_submission_end_date),
651 p_tax_office_name,
652 p_salary_payer_name,
653 p_salary_payer_address);
654 --
655 if g_debug then
656 hr_utility.set_location(l_proc,1000);
657 end if;
661 -- -------------------------------------------------------------------------
658 --
659 end create_pact;
660 --
662 -- update_pact
663 -- -------------------------------------------------------------------------
664 procedure update_pact(
665 p_action_information_id in number,
666 p_object_version_number in out nocopy number,
667 p_submission_period_status in varchar2,
668 p_submission_start_date in date,
669 p_submission_end_date in date,
670 p_tax_office_name in varchar2,
671 p_salary_payer_name in varchar2,
672 p_salary_payer_address in varchar2)
673 is
674 l_rec pay_jp_isdf_pact_v%rowtype;
675 l_proc varchar2(80) := c_package||'update_pact';
676 begin
677 --
678 if g_debug then
679 hr_utility.set_location(l_proc,0);
680 end if;
681 --
682 lock_pact(p_action_information_id, p_object_version_number, l_rec);
683 --
684 if g_debug then
685 hr_utility.set_location(l_proc,10);
686 end if;
687 --
688 p_object_version_number := p_object_version_number + 1;
689 --
690 update pay_jp_isdf_pact_dml_v
691 set object_version_number = p_object_version_number,
692 submission_period_status = p_submission_period_status,
693 submission_start_date = fnd_date.date_to_canonical(p_submission_start_date),
694 submission_end_date = fnd_date.date_to_canonical(p_submission_end_date),
695 tax_office_name = p_tax_office_name,
696 salary_payer_name = p_salary_payer_name,
697 salary_payer_address = p_salary_payer_address
698 where row_id = l_rec.row_id;
699 --
700 if g_debug then
701 hr_utility.set_location(l_proc,1000);
702 end if;
703 --
704 end update_pact;
705 --
706 -- -------------------------------------------------------------------------
707 -- create_assact
708 -- -------------------------------------------------------------------------
709 procedure create_assact(
710 p_action_information_id in number,
711 p_assignment_action_id in number,
712 p_action_context_type in varchar2,
713 p_assignment_id in number,
714 p_effective_date in date,
715 p_action_information_category in varchar2,
716 p_tax_type in varchar2,
717 p_transaction_status in varchar2,
718 p_finalized_date in date,
719 p_finalized_by in number,
720 p_user_comments in varchar2,
721 p_admin_comments in varchar2,
722 p_transfer_status in varchar2,
723 p_transfer_date in date,
724 p_expiry_date in date,
725 p_object_version_number out nocopy number)
726 is
727 l_proc varchar2(80) := c_package||'create_assact';
728 begin
729 --
730 if g_debug then
731 hr_utility.set_location(l_proc,0);
732 end if;
733 --
734 p_object_version_number := 1;
735 --
736 insert into pay_jp_isdf_assact_dml_v(
737 action_information_id,
738 object_version_number,
739 assignment_action_id,
740 action_context_type,
741 assignment_id,
742 effective_date,
743 action_information_category,
744 tax_type,
745 transaction_status,
746 finalized_date,
747 finalized_by,
748 user_comments,
749 admin_comments,
750 transfer_status,
751 transfer_date,
752 expiry_date)
753 values(
754 p_action_information_id,
755 p_object_version_number,
756 p_assignment_action_id,
757 p_action_context_type,
758 p_assignment_id,
759 p_effective_date,
760 p_action_information_category,
761 p_tax_type,
762 p_transaction_status,
763 fnd_date.date_to_canonical(p_finalized_date),
764 fnd_number.number_to_canonical(p_finalized_by),
765 p_user_comments,
766 p_admin_comments,
767 p_transfer_status,
768 fnd_date.date_to_canonical(p_transfer_date),
769 fnd_date.date_to_canonical(p_expiry_date));
770 --
771 if g_debug then
772 hr_utility.set_location(l_proc,1000);
773 end if;
774 --
775 end create_assact;
776 --
777 -- -------------------------------------------------------------------------
778 -- update_assact
779 -- -------------------------------------------------------------------------
780 procedure update_assact(
781 p_action_information_id in number,
782 p_object_version_number in out nocopy number,
783 p_transaction_status in varchar2,
784 p_finalized_date in date,
785 p_finalized_by in number,
786 p_user_comments in varchar2,
787 p_admin_comments in varchar2,
788 p_transfer_status in varchar2,
789 p_transfer_date in date,
790 p_expiry_date in date)
791 is
792 l_rec pay_jp_isdf_assact_v%rowtype;
793 l_proc varchar2(80) := c_package||'update_assact';
794 begin
795 --
796 if g_debug then
797 hr_utility.set_location(l_proc,0);
798 end if;
799 --
800 lock_assact(p_action_information_id, p_object_version_number, l_rec);
801 --
802 if g_debug then
803 hr_utility.set_location(l_proc,10);
804 end if;
805 --
806 p_object_version_number := p_object_version_number + 1;
807 --
808 update pay_jp_isdf_assact_dml_v
809 set object_version_number = p_object_version_number,
813 user_comments = p_user_comments,
810 transaction_status = p_transaction_status,
811 finalized_date = fnd_date.date_to_canonical(p_finalized_date),
812 finalized_by = fnd_number.number_to_canonical(p_finalized_by),
814 admin_comments = p_admin_comments,
815 transfer_status = p_transfer_status,
816 transfer_date = fnd_date.date_to_canonical(p_transfer_date),
817 expiry_date = fnd_date.date_to_canonical(p_expiry_date)
818 where row_id = l_rec.row_id;
819 --
820 if g_debug then
821 hr_utility.set_location(l_proc,1000);
822 end if;
823 --
824 end update_assact;
825 --
826 -- -------------------------------------------------------------------------
827 -- create_emp
828 -- -------------------------------------------------------------------------
829 procedure create_emp(
830 p_action_information_id in number,
831 p_assignment_action_id in number,
832 p_action_context_type in varchar2,
833 p_assignment_id in number,
834 p_effective_date in date,
835 p_action_information_category in varchar2,
836 p_employee_number in varchar2,
837 p_last_name_kana in varchar2,
838 p_first_name_kana in varchar2,
839 p_last_name in varchar2,
840 p_first_name in varchar2,
841 p_postal_code in varchar2,
842 p_address in varchar2,
843 p_object_version_number out nocopy number)
844 is
845 l_proc varchar2(80) := c_package||'create_emp';
846 begin
847 --
848 if g_debug then
849 hr_utility.set_location(l_proc,0);
850 end if;
851 --
852 p_object_version_number := 1;
853 --
854 insert into pay_jp_isdf_emp_dml_v(
855 action_information_id,
856 object_version_number,
857 assignment_action_id,
858 action_context_type,
859 assignment_id,
860 effective_date,
861 action_information_category,
862 employee_number,
863 last_name_kana,
864 first_name_kana,
865 last_name,
866 first_name,
867 postal_code,
868 address)
869 values(
870 p_action_information_id,
871 p_object_version_number,
872 p_assignment_action_id,
873 p_action_context_type,
874 p_assignment_id,
875 p_effective_date,
876 p_action_information_category,
877 p_employee_number,
878 p_last_name_kana,
879 p_first_name_kana,
880 p_last_name,
881 p_first_name,
882 p_postal_code,
883 p_address);
884 --
885 if g_debug then
886 hr_utility.set_location(l_proc,1000);
887 end if;
888 --
889 end create_emp;
890 --
891 -- -------------------------------------------------------------------------
892 -- update_emp
893 -- -------------------------------------------------------------------------
894 procedure update_emp(
895 p_action_information_id in number,
896 p_object_version_number in out nocopy number,
897 p_postal_code in varchar2,
898 p_address in varchar2)
899 is
900 l_rec pay_jp_isdf_emp_v%rowtype;
901 l_proc varchar2(80) := c_package||'update_emp';
902 begin
903 --
904 if g_debug then
905 hr_utility.set_location(l_proc,0);
906 end if;
907 --
908 lock_emp(p_action_information_id, p_object_version_number, l_rec);
909 --
910 if g_debug then
911 hr_utility.set_location(l_proc,10);
912 end if;
913 --
914 p_object_version_number := p_object_version_number + 1;
915 --
916 update pay_jp_isdf_emp_dml_v
917 set object_version_number = p_object_version_number,
918 postal_code = p_postal_code,
919 address = p_address
920 where row_id = l_rec.row_id;
921 --
922 if g_debug then
923 hr_utility.set_location(l_proc,1000);
924 end if;
925 --
926 end update_emp;
927 --
928 -- -------------------------------------------------------------------------
929 -- create_entry
930 -- -------------------------------------------------------------------------
931 procedure create_entry(
932 p_action_information_id in number,
933 p_assignment_action_id in number,
934 p_action_context_type in varchar2,
935 p_assignment_id in number,
936 p_effective_date in date,
937 p_action_information_category in varchar2,
938 p_status in varchar2,
939 p_ins_datetrack_update_mode in varchar2,
940 p_ins_element_entry_id in number,
941 p_ins_ee_object_version_number in number,
942 p_life_gen_ins_prem in number,
943 p_life_gen_ins_prem_o in number,
944 p_life_pens_ins_prem in number,
945 p_life_pens_ins_prem_o in number,
946 p_nonlife_long_ins_prem in number,
947 p_nonlife_long_ins_prem_o in number,
948 p_nonlife_short_ins_prem in number default null,
949 p_nonlife_short_ins_prem_o in number default null,
950 p_earthquake_ins_prem in number,
951 p_earthquake_ins_prem_o in number,
952 p_is_datetrack_update_mode in varchar2,
953 p_is_element_entry_id in number,
954 p_is_ee_object_version_number in number,
958 p_mutual_aid_prem_o in number,
955 p_social_ins_prem in number,
956 p_social_ins_prem_o in number,
957 p_mutual_aid_prem in number,
959 p_spouse_income in number,
960 p_spouse_income_o in number,
961 p_national_pens_ins_prem in number,
962 p_national_pens_ins_prem_o in number,
963 p_life_gen_ins_prem_new in number,
964 p_life_pens_ins_prem_new in number,
965 p_care_med_ins_prem_new in number,
966 p_object_version_number out nocopy number)
967 is
968 l_proc varchar2(80) := c_package||'create_ins_entry';
969 begin
970 --
971 if g_debug then
972 hr_utility.set_location(l_proc,0);
973 end if;
974 --
975 p_object_version_number := 1;
976 --
977 insert into pay_jp_isdf_entry_dml_v(
978 action_information_id,
979 object_version_number,
980 assignment_action_id,
981 action_context_type,
982 assignment_id,
983 effective_date,
984 action_information_category,
985 status,
986 ins_datetrack_update_mode,
987 ins_element_entry_id,
988 ins_ee_object_version_number,
989 life_gen_ins_prem,
990 life_gen_ins_prem_o,
991 life_pens_ins_prem,
992 life_pens_ins_prem_o,
993 nonlife_long_ins_prem,
994 nonlife_long_ins_prem_o,
995 nonlife_short_ins_prem,
996 nonlife_short_ins_prem_o,
997 earthquake_ins_prem,
998 earthquake_ins_prem_o,
999 is_datetrack_update_mode,
1000 is_element_entry_id,
1001 is_ee_object_version_number,
1002 social_ins_prem,
1003 social_ins_prem_o,
1004 mutual_aid_prem,
1005 mutual_aid_prem_o,
1006 spouse_income,
1007 spouse_income_o,
1008 national_pens_ins_prem,
1009 national_pens_ins_prem_o,
1010 life_gen_ins_prem_new,
1011 life_pens_ins_prem_new,
1012 care_med_ins_prem_new )
1013 values(
1014 p_action_information_id,
1015 p_object_version_number,
1016 p_assignment_action_id,
1017 p_action_context_type,
1018 p_assignment_id,
1019 p_effective_date,
1020 p_action_information_category,
1021 p_status,
1022 p_ins_datetrack_update_mode,
1023 fnd_number.number_to_canonical(p_ins_element_entry_id),
1024 fnd_number.number_to_canonical(p_ins_ee_object_version_number),
1025 fnd_number.number_to_canonical(p_life_gen_ins_prem),
1026 fnd_number.number_to_canonical(p_life_gen_ins_prem_o),
1027 fnd_number.number_to_canonical(p_life_pens_ins_prem),
1028 fnd_number.number_to_canonical(p_life_pens_ins_prem_o),
1029 fnd_number.number_to_canonical(p_nonlife_long_ins_prem),
1030 fnd_number.number_to_canonical(p_nonlife_long_ins_prem_o),
1031 fnd_number.number_to_canonical(p_nonlife_short_ins_prem),
1032 fnd_number.number_to_canonical(p_nonlife_short_ins_prem_o),
1033 fnd_number.number_to_canonical(p_earthquake_ins_prem),
1034 fnd_number.number_to_canonical(p_earthquake_ins_prem_o),
1035 p_is_datetrack_update_mode,
1036 fnd_number.number_to_canonical(p_is_element_entry_id),
1037 fnd_number.number_to_canonical(p_is_ee_object_version_number),
1038 fnd_number.number_to_canonical(p_social_ins_prem),
1039 fnd_number.number_to_canonical(p_social_ins_prem_o),
1040 fnd_number.number_to_canonical(p_mutual_aid_prem),
1041 fnd_number.number_to_canonical(p_mutual_aid_prem_o),
1042 fnd_number.number_to_canonical(p_spouse_income),
1043 fnd_number.number_to_canonical(p_spouse_income_o),
1044 fnd_number.number_to_canonical(p_national_pens_ins_prem),
1045 fnd_number.number_to_canonical(p_national_pens_ins_prem_o),
1046 fnd_number.number_to_canonical(p_life_gen_ins_prem_new),
1047 fnd_number.number_to_canonical(p_life_pens_ins_prem_new),
1048 fnd_number.number_to_canonical(p_care_med_ins_prem_new));
1049 --
1050 if g_debug then
1051 hr_utility.set_location(l_proc,1000);
1052 end if;
1053 --
1054 end create_entry;
1055 --
1056 -- -------------------------------------------------------------------------
1057 -- update_entry
1058 -- -------------------------------------------------------------------------
1059 procedure update_entry(
1060 p_action_information_id in number,
1061 p_object_version_number in out nocopy number,
1062 p_status in varchar2,
1063 p_life_gen_ins_prem in number,
1064 p_life_gen_ins_prem_o in number,
1065 p_life_pens_ins_prem in number,
1066 p_life_pens_ins_prem_o in number,
1067 p_nonlife_long_ins_prem in number,
1068 p_nonlife_long_ins_prem_o in number,
1069 p_nonlife_short_ins_prem in number default null,
1070 p_nonlife_short_ins_prem_o in number default null,
1071 p_earthquake_ins_prem in number,
1072 p_earthquake_ins_prem_o in number,
1073 p_social_ins_prem in number,
1074 p_social_ins_prem_o in number,
1075 p_mutual_aid_prem in number,
1076 p_mutual_aid_prem_o in number,
1077 p_spouse_income in number,
1078 p_spouse_income_o in number,
1079 p_national_pens_ins_prem in number,
1080 p_national_pens_ins_prem_o in number,
1081 p_life_gen_ins_prem_new in number,
1082 p_life_pens_ins_prem_new in number,
1083 p_care_med_ins_prem_new in number)
1084 is
1085 l_rec pay_jp_isdf_entry_v%rowtype;
1086 l_proc varchar2(80) := c_package||'update_entry';
1087 begin
1088 --
1092 --
1089 if g_debug then
1090 hr_utility.set_location(l_proc,0);
1091 end if;
1093 lock_entry(p_action_information_id, p_object_version_number, l_rec);
1094 --
1095 if g_debug then
1096 hr_utility.set_location(l_proc,10);
1097 end if;
1098 --
1099 p_object_version_number := p_object_version_number + 1;
1100 --
1101 update pay_jp_isdf_entry_dml_v
1102 set object_version_number = p_object_version_number,
1103 status = p_status,
1104 life_gen_ins_prem = fnd_number.number_to_canonical(p_life_gen_ins_prem),
1105 life_gen_ins_prem_o = fnd_number.number_to_canonical(p_life_gen_ins_prem_o),
1106 life_pens_ins_prem = fnd_number.number_to_canonical(p_life_pens_ins_prem),
1107 life_pens_ins_prem_o = fnd_number.number_to_canonical(p_life_pens_ins_prem_o),
1108 nonlife_long_ins_prem = fnd_number.number_to_canonical(p_nonlife_long_ins_prem),
1109 nonlife_long_ins_prem_o = fnd_number.number_to_canonical(p_nonlife_long_ins_prem_o),
1110 nonlife_short_ins_prem = fnd_number.number_to_canonical(p_nonlife_short_ins_prem),
1111 nonlife_short_ins_prem_o = fnd_number.number_to_canonical(p_nonlife_short_ins_prem_o),
1112 earthquake_ins_prem = fnd_number.number_to_canonical(p_earthquake_ins_prem),
1113 earthquake_ins_prem_o = fnd_number.number_to_canonical(p_earthquake_ins_prem_o),
1114 social_ins_prem = fnd_number.number_to_canonical(p_social_ins_prem),
1115 social_ins_prem_o = fnd_number.number_to_canonical(p_social_ins_prem_o),
1116 mutual_aid_prem = fnd_number.number_to_canonical(p_mutual_aid_prem),
1117 mutual_aid_prem_o = fnd_number.number_to_canonical(p_mutual_aid_prem_o),
1118 spouse_income = fnd_number.number_to_canonical(p_spouse_income),
1119 spouse_income_o = fnd_number.number_to_canonical(p_spouse_income_o),
1120 national_pens_ins_prem = fnd_number.number_to_canonical(p_national_pens_ins_prem),
1121 national_pens_ins_prem_o = fnd_number.number_to_canonical(p_national_pens_ins_prem_o),
1122 life_gen_ins_prem_new = fnd_number.number_to_canonical(p_life_gen_ins_prem_new),
1123 life_pens_ins_prem_new = fnd_number.number_to_canonical(p_life_pens_ins_prem_new),
1124 care_med_ins_prem_new = fnd_number.number_to_canonical(p_care_med_ins_prem_new)
1125 where row_id = l_rec.row_id;
1126 --
1127 if g_debug then
1128 hr_utility.set_location(l_proc,1000);
1129 end if;
1130 --
1131 end update_entry;
1132 --
1133 -- -------------------------------------------------------------------------
1134 -- create_calc_dct
1135 -- -------------------------------------------------------------------------
1136 procedure create_calc_dct(
1137 p_action_information_id in number,
1138 p_assignment_action_id in number,
1139 p_action_context_type in varchar2,
1140 p_assignment_id in number,
1141 p_effective_date in date,
1142 p_action_information_category in varchar2,
1143 p_status in varchar2,
1144 p_life_gen_ins_prem in number,
1145 p_life_pens_ins_prem in number,
1146 p_life_gen_ins_calc_prem in number,
1147 p_life_pens_ins_calc_prem in number,
1148 p_life_ins_deduction in number,
1149 p_nonlife_long_ins_prem in number,
1150 p_nonlife_short_ins_prem in number default null,
1151 p_earthquake_ins_prem in number,
1152 p_nonlife_long_ins_calc_prem in number,
1153 p_nonlife_short_ins_calc_prem in number default null,
1154 p_earthquake_ins_calc_prem in number,
1155 p_nonlife_ins_deduction in number,
1156 p_national_pens_ins_prem in number,
1157 p_social_ins_deduction in number,
1158 p_mutual_aid_deduction in number,
1159 p_sp_earned_income_calc in number,
1160 p_sp_business_income_calc in number,
1161 p_sp_miscellaneous_income_calc in number,
1162 p_sp_dividend_income_calc in number,
1163 p_sp_real_estate_income_calc in number,
1164 p_sp_retirement_income_calc in number,
1165 p_sp_other_income_calc in number,
1166 p_sp_income_calc in number,
1167 p_spouse_income in number,
1168 p_spouse_deduction in number,
1169 p_object_version_number out nocopy number,
1170 p_life_gen_new_ins_prem in number,
1171 p_life_pens_new_ins_prem in number,
1172 p_life_gen_new_ins_calc_prem in number,
1173 p_life_pens_new_ins_calc_prem in number)
1174 is
1175 l_proc varchar2(80) := c_package||'create_calc_dct';
1176 begin
1177 --
1178 if g_debug then
1179 hr_utility.set_location(l_proc,0);
1180 end if;
1181 --
1182 p_object_version_number := 1;
1183 --
1184 insert into pay_jp_isdf_calc_dct_dml_v(
1185 action_information_id,
1186 object_version_number,
1187 assignment_action_id,
1188 action_context_type,
1189 assignment_id,
1190 effective_date,
1191 action_information_category,
1192 status,
1193 life_gen_ins_prem,
1194 life_pens_ins_prem,
1195 life_gen_ins_calc_prem,
1196 life_pens_ins_calc_prem,
1197 life_ins_deduction,
1198 nonlife_long_ins_prem,
1199 nonlife_short_ins_prem,
1200 earthquake_ins_prem,
1201 nonlife_long_ins_calc_prem,
1202 nonlife_short_ins_calc_prem,
1203 earthquake_ins_calc_prem,
1204 nonlife_ins_deduction,
1205 social_ins_deduction,
1206 mutual_aid_deduction,
1207 sp_earned_income_calc,
1208 sp_business_income_calc,
1209 sp_miscellaneous_income_calc,
1210 sp_dividend_income_calc,
1211 sp_real_estate_income_calc,
1215 spouse_income,
1212 sp_retirement_income_calc,
1213 sp_other_income_calc,
1214 sp_income_calc,
1216 spouse_deduction,
1217 national_pens_ins_prem,
1218 life_gen_new_ins_prem,
1219 life_pens_new_ins_prem,
1220 life_gen_new_ins_calc_prem,
1221 life_pens_new_ins_calc_prem)
1222 values(
1223 p_action_information_id,
1224 p_object_version_number,
1225 p_assignment_action_id,
1226 p_action_context_type,
1227 p_assignment_id,
1228 p_effective_date,
1229 p_action_information_category,
1230 p_status,
1231 fnd_number.number_to_canonical(p_life_gen_ins_prem),
1232 fnd_number.number_to_canonical(p_life_pens_ins_prem),
1233 fnd_number.number_to_canonical(p_life_gen_ins_calc_prem),
1234 fnd_number.number_to_canonical(p_life_pens_ins_calc_prem),
1235 fnd_number.number_to_canonical(p_life_ins_deduction),
1236 fnd_number.number_to_canonical(p_nonlife_long_ins_prem),
1237 fnd_number.number_to_canonical(p_nonlife_short_ins_prem),
1238 fnd_number.number_to_canonical(p_earthquake_ins_prem),
1239 fnd_number.number_to_canonical(p_nonlife_long_ins_calc_prem),
1240 fnd_number.number_to_canonical(p_nonlife_short_ins_calc_prem),
1241 fnd_number.number_to_canonical(p_earthquake_ins_calc_prem),
1242 fnd_number.number_to_canonical(p_nonlife_ins_deduction),
1243 fnd_number.number_to_canonical(p_social_ins_deduction),
1244 fnd_number.number_to_canonical(p_mutual_aid_deduction),
1245 fnd_number.number_to_canonical(p_sp_earned_income_calc),
1246 fnd_number.number_to_canonical(p_sp_business_income_calc),
1247 fnd_number.number_to_canonical(p_sp_miscellaneous_income_calc),
1248 fnd_number.number_to_canonical(p_sp_dividend_income_calc),
1249 fnd_number.number_to_canonical(p_sp_real_estate_income_calc),
1250 fnd_number.number_to_canonical(p_sp_retirement_income_calc),
1251 fnd_number.number_to_canonical(p_sp_other_income_calc),
1252 fnd_number.number_to_canonical(p_sp_income_calc),
1253 fnd_number.number_to_canonical(p_spouse_income),
1254 fnd_number.number_to_canonical(p_spouse_deduction),
1255 fnd_number.number_to_canonical(p_national_pens_ins_prem),
1256 fnd_number.number_to_canonical(p_life_gen_new_ins_prem),
1257 fnd_number.number_to_canonical(p_life_pens_new_ins_prem),
1258 fnd_number.number_to_canonical(p_life_gen_new_ins_calc_prem),
1259 fnd_number.number_to_canonical(p_life_pens_new_ins_calc_prem));
1260 --
1261 if g_debug then
1262 hr_utility.set_location(l_proc,1000);
1263 end if;
1264 --
1265 end create_calc_dct;
1266 --
1267 -- -------------------------------------------------------------------------
1268 -- update_calc_dct
1269 -- -------------------------------------------------------------------------
1270 procedure update_calc_dct(
1271 p_action_information_id in number,
1272 p_object_version_number in out nocopy number,
1273 p_status in varchar2,
1274 p_life_gen_ins_prem in number,
1275 p_life_pens_ins_prem in number,
1276 p_life_gen_ins_calc_prem in number,
1277 p_life_pens_ins_calc_prem in number,
1278 p_life_ins_deduction in number,
1279 p_nonlife_long_ins_prem in number,
1280 p_nonlife_short_ins_prem in number default null,
1281 p_earthquake_ins_prem in number,
1282 p_nonlife_long_ins_calc_prem in number,
1283 p_nonlife_short_ins_calc_prem in number default null,
1284 p_earthquake_ins_calc_prem in number,
1285 p_nonlife_ins_deduction in number,
1286 p_national_pens_ins_prem in number,
1287 p_social_ins_deduction in number,
1288 p_mutual_aid_deduction in number,
1289 p_sp_earned_income_calc in number,
1290 p_sp_business_income_calc in number,
1291 p_sp_miscellaneous_income_calc in number,
1292 p_sp_dividend_income_calc in number,
1293 p_sp_real_estate_income_calc in number,
1294 p_sp_retirement_income_calc in number,
1295 p_sp_other_income_calc in number,
1296 p_sp_income_calc in number,
1297 p_spouse_income in number,
1298 p_spouse_deduction in number,
1299 p_life_gen_new_ins_prem in number,
1300 p_life_pens_new_ins_prem in number,
1301 p_life_gen_new_ins_calc_prem in number,
1302 p_life_pens_new_ins_calc_prem in number)
1303 is
1304 l_rec pay_jp_isdf_calc_dct_v%rowtype;
1305 l_proc varchar2(80) := c_package||'update_calc_dct';
1306 begin
1307 --
1308 if g_debug then
1309 hr_utility.set_location(l_proc,0);
1310 end if;
1311 --
1312 lock_calc_dct(p_action_information_id, p_object_version_number, l_rec);
1313 --
1314 if g_debug then
1315 hr_utility.set_location(l_proc,10);
1316 end if;
1317 --
1318 p_object_version_number := p_object_version_number + 1;
1319 --
1320 update pay_jp_isdf_calc_dct_dml_v
1321 set object_version_number = p_object_version_number,
1322 status = p_status,
1323 life_gen_ins_prem = fnd_number.number_to_canonical(p_life_gen_ins_prem),
1324 life_pens_ins_prem = fnd_number.number_to_canonical(p_life_pens_ins_prem),
1325 life_gen_ins_calc_prem = fnd_number.number_to_canonical(p_life_gen_ins_calc_prem),
1326 life_pens_ins_calc_prem = fnd_number.number_to_canonical(p_life_pens_ins_calc_prem),
1327 life_ins_deduction = fnd_number.number_to_canonical(p_life_ins_deduction),
1328 nonlife_long_ins_prem = fnd_number.number_to_canonical(p_nonlife_long_ins_prem),
1329 nonlife_short_ins_prem = fnd_number.number_to_canonical(p_nonlife_short_ins_prem),
1333 earthquake_ins_calc_prem = fnd_number.number_to_canonical(p_earthquake_ins_calc_prem),
1330 earthquake_ins_prem = fnd_number.number_to_canonical(p_earthquake_ins_prem),
1331 nonlife_long_ins_calc_prem = fnd_number.number_to_canonical(p_nonlife_long_ins_calc_prem),
1332 nonlife_short_ins_calc_prem = fnd_number.number_to_canonical(p_nonlife_short_ins_calc_prem),
1334 nonlife_ins_deduction = fnd_number.number_to_canonical(p_nonlife_ins_deduction),
1335 social_ins_deduction = fnd_number.number_to_canonical(p_social_ins_deduction),
1336 mutual_aid_deduction = fnd_number.number_to_canonical(p_mutual_aid_deduction),
1337 sp_earned_income_calc = fnd_number.number_to_canonical(p_sp_earned_income_calc),
1338 sp_business_income_calc = fnd_number.number_to_canonical(p_sp_business_income_calc),
1339 sp_miscellaneous_income_calc = fnd_number.number_to_canonical(p_sp_miscellaneous_income_calc),
1340 sp_dividend_income_calc = fnd_number.number_to_canonical(p_sp_dividend_income_calc),
1341 sp_real_estate_income_calc = fnd_number.number_to_canonical(p_sp_real_estate_income_calc),
1342 sp_retirement_income_calc = fnd_number.number_to_canonical(p_sp_retirement_income_calc),
1343 sp_other_income_calc = fnd_number.number_to_canonical(p_sp_other_income_calc),
1344 sp_income_calc = fnd_number.number_to_canonical(p_sp_income_calc),
1345 spouse_income = fnd_number.number_to_canonical(p_spouse_income),
1346 spouse_deduction = fnd_number.number_to_canonical(p_spouse_deduction),
1347 national_pens_ins_prem = fnd_number.number_to_canonical(p_national_pens_ins_prem),
1348 life_gen_new_ins_prem = fnd_number.number_to_canonical(p_life_gen_new_ins_prem),
1349 life_pens_new_ins_prem = fnd_number.number_to_canonical(p_life_pens_new_ins_prem),
1350 life_gen_new_ins_calc_prem = fnd_number.number_to_canonical(p_life_gen_new_ins_calc_prem),
1351 life_pens_new_ins_calc_prem = fnd_number.number_to_canonical(p_life_pens_new_ins_calc_prem)
1352 where row_id = l_rec.row_id;
1353 --
1354 if g_debug then
1355 hr_utility.set_location(l_proc,1000);
1356 end if;
1357 --
1358 end update_calc_dct;
1359 --
1360 -- -------------------------------------------------------------------------
1361 -- create_calc_dct2
1362 -- -------------------------------------------------------------------------
1363 procedure create_calc_dct2(
1364 p_action_information_id in number,
1365 p_assignment_action_id in number,
1366 p_action_context_type in varchar2,
1367 p_assignment_id in number,
1368 p_effective_date in date,
1369 p_action_information_category in varchar2,
1370 p_status in varchar2,
1371 p_object_version_number out nocopy number,
1372 p_care_med_new_ins_prem in number,
1373 p_care_med_new_ins_calc_prem in number)
1374 is
1375 l_proc varchar2(80) := c_package||'create_calc_dct2';
1376 begin
1377 --
1378 if g_debug then
1379 hr_utility.set_location(l_proc,0);
1380 end if;
1381 --
1382 p_object_version_number := 1;
1383 --
1384 insert into pay_jp_isdf_calc_dct_dml_v2(
1385 action_information_id,
1386 object_version_number,
1387 assignment_action_id,
1388 action_context_type,
1389 assignment_id,
1390 effective_date,
1391 action_information_category,
1392 status,
1393 care_med_new_ins_prem,
1394 care_med_new_ins_calc_prem)
1395 values(
1396 p_action_information_id,
1397 p_object_version_number,
1398 p_assignment_action_id,
1399 p_action_context_type,
1400 p_assignment_id,
1401 p_effective_date,
1402 p_action_information_category,
1403 p_status,
1404 fnd_number.number_to_canonical(p_care_med_new_ins_prem),
1405 fnd_number.number_to_canonical(p_care_med_new_ins_calc_prem));
1406 --
1407 if g_debug then
1408 hr_utility.set_location(l_proc,1000);
1409 end if;
1410 --
1411 end create_calc_dct2;
1412 --
1413 -- -------------------------------------------------------------------------
1414 -- update_calc_dct2
1415 -- -------------------------------------------------------------------------
1416 procedure update_calc_dct2(
1417 p_action_information_id in number,
1418 p_object_version_number in out nocopy number,
1419 p_status in varchar2,
1420 p_care_med_new_ins_prem in number,
1421 p_care_med_new_ins_calc_prem in number)
1422 is
1423 l_rec pay_jp_isdf_calc_dct_v2%rowtype;
1424 l_proc varchar2(80) := c_package||'update_calc_dct2';
1425 begin
1426 --
1427 if g_debug then
1428 hr_utility.set_location(l_proc,0);
1429 end if;
1430 --
1431 lock_calc_dct2(p_action_information_id, p_object_version_number, l_rec);
1432 --
1433 if g_debug then
1434 hr_utility.set_location(l_proc,10);
1435 end if;
1436 --
1437 p_object_version_number := p_object_version_number + 1;
1438 --
1439 update pay_jp_isdf_calc_dct_dml_v2
1440 set object_version_number = p_object_version_number,
1441 status = p_status,
1442 care_med_new_ins_prem = fnd_number.number_to_canonical(p_care_med_new_ins_prem),
1443 care_med_new_ins_calc_prem = fnd_number.number_to_canonical(p_care_med_new_ins_calc_prem)
1444 where row_id = l_rec.row_id;
1445 --
1446 if g_debug then
1447 hr_utility.set_location(l_proc,1000);
1448 end if;
1449 --
1450 end update_calc_dct2;
1451 --
1452 -- -------------------------------------------------------------------------
1456 p_action_information_id in number,
1453 -- create_life_gen
1454 -- -------------------------------------------------------------------------
1455 procedure create_life_gen(
1457 p_assignment_action_id in number,
1458 p_action_context_type in varchar2,
1459 p_assignment_id in number,
1460 p_effective_date in date,
1461 p_action_information_category in varchar2,
1462 p_status in varchar2,
1463 p_assignment_extra_info_id in number,
1464 p_aei_object_version_number in number,
1465 p_gen_ins_class in varchar2,
1466 p_gen_ins_company_code in varchar2,
1467 p_ins_company_name in varchar2,
1468 p_ins_type in varchar2,
1469 p_ins_period in varchar2,
1470 p_contractor_name in varchar2,
1471 p_beneficiary_name in varchar2,
1472 p_beneficiary_relship in varchar2,
1473 p_annual_prem in number,
1474 p_object_version_number out nocopy number,
1475 p_gen_ins_old_new in varchar2)
1476 is
1477 l_proc varchar2(80) := c_package||'create_life_gen';
1478 begin
1479 --
1480 if g_debug then
1481 hr_utility.set_location(l_proc,0);
1482 end if;
1483 --
1484 p_object_version_number := 1;
1485 --
1486 insert into pay_jp_isdf_life_gen_dml_v(
1487 action_information_id,
1488 object_version_number,
1489 assignment_action_id,
1490 action_context_type,
1491 assignment_id,
1492 effective_date,
1493 action_information_category,
1494 status,
1495 assignment_extra_info_id,
1496 aei_object_version_number,
1497 gen_ins_class,
1498 gen_ins_company_code,
1499 ins_company_name,
1500 ins_type,
1501 ins_period,
1502 contractor_name,
1503 beneficiary_name,
1504 beneficiary_relship,
1505 annual_prem,
1506 gen_ins_class_old_new)
1507 values(
1508 p_action_information_id,
1509 p_object_version_number,
1510 p_assignment_action_id,
1511 p_action_context_type,
1512 p_assignment_id,
1513 p_effective_date,
1514 p_action_information_category,
1515 p_status,
1516 fnd_number.number_to_canonical(p_assignment_extra_info_id),
1517 fnd_number.number_to_canonical(p_aei_object_version_number),
1518 p_gen_ins_class,
1519 p_gen_ins_company_code,
1520 p_ins_company_name,
1521 p_ins_type,
1522 p_ins_period,
1523 p_contractor_name,
1524 p_beneficiary_name,
1525 p_beneficiary_relship,
1526 fnd_number.number_to_canonical(p_annual_prem),
1527 p_gen_ins_old_new);
1528 --
1529 if g_debug then
1530 hr_utility.set_location(l_proc,1000);
1531 end if;
1532 --
1533 end create_life_gen;
1534 --
1535 -- -------------------------------------------------------------------------
1536 -- update_life_gen
1537 -- -------------------------------------------------------------------------
1538 procedure update_life_gen(
1539 p_action_information_id in number,
1540 p_object_version_number in out nocopy number,
1541 p_status in varchar2,
1542 p_ins_company_name in varchar2,
1543 p_ins_type in varchar2,
1544 p_ins_period in varchar2,
1545 p_contractor_name in varchar2,
1546 p_beneficiary_name in varchar2,
1547 p_beneficiary_relship in varchar2,
1548 p_annual_prem in number,
1549 p_ins_old_new in varchar2)
1550 is
1551 l_rec pay_jp_isdf_life_gen_v%rowtype;
1552 l_proc varchar2(80) := c_package||'update_life_gen';
1553 begin
1554 --
1555 if g_debug then
1556 hr_utility.set_location(l_proc,0);
1557 end if;
1558 --
1559 lock_life_gen(p_action_information_id, p_object_version_number, l_rec);
1560 --
1561 if g_debug then
1562 hr_utility.set_location(l_proc,10);
1563 end if;
1564 --
1565 p_object_version_number := p_object_version_number + 1;
1566 --
1567 update pay_jp_isdf_life_gen_dml_v
1568 set object_version_number = p_object_version_number,
1569 status = p_status,
1570 ins_company_name = p_ins_company_name,
1571 ins_type = p_ins_type,
1572 ins_period = p_ins_period,
1573 contractor_name = p_contractor_name,
1574 beneficiary_name = p_beneficiary_name,
1575 beneficiary_relship = p_beneficiary_relship,
1576 annual_prem = fnd_number.number_to_canonical(p_annual_prem),
1577 gen_ins_class_old_new = p_ins_old_new
1578 where row_id = l_rec.row_id;
1579 --
1580 if g_debug then
1581 hr_utility.set_location(l_proc,1000);
1582 end if;
1583 --
1584 end update_life_gen;
1585 --
1586 -- -------------------------------------------------------------------------
1587 -- delete_life_gen
1588 -- -------------------------------------------------------------------------
1589 procedure delete_life_gen(
1590 p_action_information_id in number,
1591 p_object_version_number in number)
1592 is
1593 l_rec pay_jp_isdf_life_gen_v%rowtype;
1594 l_proc varchar2(80) := c_package||'delete_life_gen';
1595 begin
1596 --
1597 if g_debug then
1598 hr_utility.set_location(l_proc,0);
1599 end if;
1600 --
1601 lock_life_gen(p_action_information_id, p_object_version_number, l_rec);
1602 --
1603 if g_debug then
1604 hr_utility.set_location(l_proc,10);
1608 if l_rec.status = 'I' then
1605 hr_utility.trace('status : ' || l_rec.status);
1606 end if;
1607 --
1609 --
1610 delete
1611 from pay_action_information
1612 where rowid = l_rec.row_id;
1613 --
1614 elsif l_rec.status = 'Q' then
1615 --
1616 update pay_jp_isdf_life_gen_dml_v
1617 set object_version_number = l_rec.object_version_number + 1,
1618 status = 'D'
1619 where rowid = l_rec.row_id;
1620 --
1621 end if;
1622 --
1623 if g_debug then
1624 hr_utility.set_location(l_proc,1000);
1625 end if;
1626 --
1627 end delete_life_gen;
1628
1629 -- -------------------------------------------------------------------------
1630 -- create_care_med
1631 -- -------------------------------------------------------------------------
1632 procedure create_care_med(
1633 p_action_information_id in number,
1634 p_assignment_action_id in number,
1635 p_action_context_type in varchar2,
1636 p_assignment_id in number,
1637 p_effective_date in date,
1638 p_action_information_category in varchar2,
1639 p_status in varchar2,
1640 p_assignment_extra_info_id in number,
1641 p_aei_object_version_number in number,
1642 p_care_ins_class in varchar2,
1643 p_care_ins_company_code in varchar2,
1644 p_ins_company_name in varchar2,
1645 p_ins_type in varchar2,
1646 p_ins_period in varchar2,
1647 p_contractor_name in varchar2,
1648 p_beneficiary_name in varchar2,
1649 p_beneficiary_relship in varchar2,
1650 p_annual_prem in number,
1651 p_object_version_number out nocopy number,
1652 p_care_ins_old_new in varchar2)
1653 is
1654 l_proc varchar2(80) := c_package||'create_care_med';
1655 begin
1656 --
1657 if g_debug then
1658 hr_utility.set_location(l_proc,0);
1659 end if;
1660 --
1661 p_object_version_number := 1;
1662 --
1663 insert into pay_jp_isdf_care_med_dml_v(
1664 action_information_id,
1665 object_version_number,
1666 assignment_action_id,
1667 action_context_type,
1668 assignment_id,
1669 effective_date,
1670 action_information_category,
1671 status,
1672 assignment_extra_info_id,
1673 aei_object_version_number,
1674 care_ins_class,
1675 care_ins_company_code,
1676 ins_company_name,
1677 ins_type,
1678 ins_period,
1679 contractor_name,
1680 beneficiary_name,
1681 beneficiary_relship,
1682 annual_prem,
1683 care_ins_class_old_new)
1684 values(
1685 p_action_information_id,
1686 p_object_version_number,
1687 p_assignment_action_id,
1688 p_action_context_type,
1689 p_assignment_id,
1690 p_effective_date,
1691 p_action_information_category,
1692 p_status,
1693 fnd_number.number_to_canonical(p_assignment_extra_info_id),
1694 fnd_number.number_to_canonical(p_aei_object_version_number),
1695 p_care_ins_class,
1696 p_care_ins_company_code,
1697 p_ins_company_name,
1698 p_ins_type,
1699 p_ins_period,
1700 p_contractor_name,
1701 p_beneficiary_name,
1702 p_beneficiary_relship,
1703 fnd_number.number_to_canonical(p_annual_prem),
1704 p_care_ins_old_new);
1705 --
1706 if g_debug then
1707 hr_utility.set_location(l_proc,1000);
1708 end if;
1709 --
1710 end create_care_med;
1711 --
1712 -- -------------------------------------------------------------------------
1713 -- update_care_med
1714 -- -------------------------------------------------------------------------
1715 procedure update_care_med(
1716 p_action_information_id in number,
1717 p_object_version_number in out nocopy number,
1718 p_status in varchar2,
1719 p_ins_company_name in varchar2,
1720 p_ins_type in varchar2,
1721 p_ins_period in varchar2,
1722 p_contractor_name in varchar2,
1723 p_beneficiary_name in varchar2,
1724 p_beneficiary_relship in varchar2,
1725 p_annual_prem in number,
1726 p_ins_old_new in varchar2)
1727 is
1728 l_rec pay_jp_isdf_care_med_v%rowtype;
1729 l_proc varchar2(80) := c_package||'update_care_med';
1730 begin
1731 --
1732 if g_debug then
1733 hr_utility.set_location(l_proc,0);
1734 end if;
1735 --
1736 lock_care_med(p_action_information_id, p_object_version_number, l_rec);
1737 --
1738 if g_debug then
1739 hr_utility.set_location(l_proc,10);
1740 end if;
1741 --
1742 p_object_version_number := p_object_version_number + 1;
1743 --
1744 update pay_jp_isdf_care_med_dml_v
1745 set object_version_number = p_object_version_number,
1746 status = p_status,
1747 ins_company_name = p_ins_company_name,
1748 ins_type = p_ins_type,
1749 ins_period = p_ins_period,
1750 contractor_name = p_contractor_name,
1751 beneficiary_name = p_beneficiary_name,
1752 beneficiary_relship = p_beneficiary_relship,
1753 annual_prem = fnd_number.number_to_canonical(p_annual_prem),
1754 care_ins_class_old_new = p_ins_old_new
1755 where row_id = l_rec.row_id;
1756 --
1757 if g_debug then
1758 hr_utility.set_location(l_proc,1000);
1762 --
1759 end if;
1760 --
1761 end update_care_med;
1763 -- -------------------------------------------------------------------------
1764 -- delete_care_med
1765 -- -------------------------------------------------------------------------
1766 procedure delete_care_med(
1767 p_action_information_id in number,
1768 p_object_version_number in number)
1769 is
1770 l_rec pay_jp_isdf_care_med_v%rowtype;
1771 l_proc varchar2(80) := c_package||'delete_care_med';
1772 begin
1773 --
1774 if g_debug then
1775 hr_utility.set_location(l_proc,0);
1776 end if;
1777 --
1778 lock_care_med(p_action_information_id, p_object_version_number, l_rec);
1779 --
1780 if g_debug then
1781 hr_utility.set_location(l_proc,10);
1782 hr_utility.trace('status : ' || l_rec.status);
1783 end if;
1784 --
1785 if l_rec.status = 'I' then
1786 --
1787 delete
1788 from pay_action_information
1789 where rowid = l_rec.row_id;
1790 --
1791 elsif l_rec.status = 'Q' then
1792 --
1793 update pay_jp_isdf_care_med_dml_v
1794 set object_version_number = l_rec.object_version_number + 1,
1795 status = 'D'
1796 where rowid = l_rec.row_id;
1797 --
1798 end if;
1799 --
1800 if g_debug then
1801 hr_utility.set_location(l_proc,1000);
1802 end if;
1803 --
1804 end delete_care_med;
1805
1806 -- -------------------------------------------------------------------------
1807 -- create_life_pens
1808 -- -------------------------------------------------------------------------
1809 procedure create_life_pens(
1810 p_action_information_id in number,
1811 p_assignment_action_id in number,
1812 p_action_context_type in varchar2,
1813 p_assignment_id in number,
1814 p_effective_date in date,
1815 p_action_information_category in varchar2,
1816 p_status in varchar2,
1817 p_assignment_extra_info_id in number,
1818 p_aei_object_version_number in number,
1819 p_pens_ins_class in varchar2,
1820 p_pens_ins_company_code in varchar2,
1821 p_ins_company_name in varchar2,
1822 p_ins_type in varchar2,
1823 p_ins_period_start_date in date,
1824 p_ins_period in varchar2,
1825 p_contractor_name in varchar2,
1826 p_beneficiary_name in varchar2,
1827 p_beneficiary_relship in varchar2,
1828 p_annual_prem in number,
1829 p_object_version_number out nocopy number,
1830 p_pens_ins_old_new in varchar2)
1831 is
1832 l_proc varchar2(80) := c_package||'create_life_pens';
1833 begin
1834 --
1835 if g_debug then
1836 hr_utility.set_location(l_proc,0);
1837 end if;
1838 --
1839 p_object_version_number := 1;
1840 --
1841 insert into pay_jp_isdf_life_pens_dml_v(
1842 action_information_id,
1843 object_version_number,
1844 assignment_action_id,
1845 action_context_type,
1846 assignment_id,
1847 effective_date,
1848 action_information_category,
1849 status,
1850 assignment_extra_info_id,
1851 aei_object_version_number,
1852 pens_ins_class,
1853 pens_ins_company_code,
1854 ins_company_name,
1855 ins_type,
1856 ins_period_start_date,
1857 ins_period,
1858 contractor_name,
1859 beneficiary_name,
1860 beneficiary_relship,
1861 annual_prem,
1862 pens_ins_class_old_new)
1863 values(
1864 p_action_information_id,
1865 p_object_version_number,
1866 p_assignment_action_id,
1867 p_action_context_type,
1868 p_assignment_id,
1869 p_effective_date,
1870 p_action_information_category,
1871 p_status,
1872 fnd_number.number_to_canonical(p_assignment_extra_info_id),
1873 fnd_number.number_to_canonical(p_aei_object_version_number),
1874 p_pens_ins_class,
1875 p_pens_ins_company_code,
1876 p_ins_company_name,
1877 p_ins_type,
1878 fnd_date.date_to_canonical(p_ins_period_start_date),
1879 p_ins_period,
1880 p_contractor_name,
1881 p_beneficiary_name,
1882 p_beneficiary_relship,
1883 fnd_number.number_to_canonical(p_annual_prem),
1884 p_pens_ins_old_new);
1885 --
1886 if g_debug then
1887 hr_utility.set_location(l_proc,1000);
1888 end if;
1889 --
1890 end create_life_pens;
1891 --
1892 -- -------------------------------------------------------------------------
1893 -- update_life_pens
1894 -- -------------------------------------------------------------------------
1895 procedure update_life_pens(
1896 p_action_information_id in number,
1897 p_object_version_number in out nocopy number,
1898 p_status in varchar2,
1899 p_ins_company_name in varchar2,
1900 p_ins_type in varchar2,
1901 p_ins_period_start_date in date,
1902 p_ins_period in varchar2,
1903 p_contractor_name in varchar2,
1904 p_beneficiary_name in varchar2,
1905 p_beneficiary_relship in varchar2,
1906 p_annual_prem in number,
1907 p_ins_old_new in varchar2)
1908 is
1909 l_rec pay_jp_isdf_life_pens_v%rowtype;
1910 l_proc varchar2(80) := c_package||'update_life_pens';
1911 begin
1912 --
1913 if g_debug then
1914 hr_utility.set_location(l_proc,0);
1915 end if;
1916 --
1920 hr_utility.set_location(l_proc,10);
1917 lock_life_pens(p_action_information_id, p_object_version_number, l_rec);
1918 --
1919 if g_debug then
1921 end if;
1922 --
1923 p_object_version_number := p_object_version_number + 1;
1924 --
1925 update pay_jp_isdf_life_pens_dml_v
1926 set object_version_number = p_object_version_number,
1927 status = p_status,
1928 ins_company_name = p_ins_company_name,
1929 ins_type = p_ins_type,
1930 ins_period_start_date = fnd_date.date_to_canonical(p_ins_period_start_date),
1931 ins_period = p_ins_period,
1932 contractor_name = p_contractor_name,
1933 beneficiary_name = p_beneficiary_name,
1934 beneficiary_relship = p_beneficiary_relship,
1935 annual_prem = fnd_number.number_to_canonical(p_annual_prem),
1936 pens_ins_class_old_new = p_ins_old_new
1937 where row_id = l_rec.row_id;
1938 --
1939 if g_debug then
1940 hr_utility.set_location(l_proc,1000);
1941 end if;
1942 --
1943 end update_life_pens;
1944 --
1945 -- -------------------------------------------------------------------------
1946 -- delete_life_pens
1947 -- -------------------------------------------------------------------------
1948 procedure delete_life_pens(
1949 p_action_information_id in number,
1950 p_object_version_number in number)
1951 is
1952 l_rec pay_jp_isdf_life_pens_v%rowtype;
1953 l_proc varchar2(80) := c_package||'delete_life_pens';
1954 begin
1955 --
1956 if g_debug then
1957 hr_utility.set_location(l_proc,0);
1958 end if;
1959 --
1960 lock_life_pens(p_action_information_id, p_object_version_number, l_rec);
1961 --
1962 if g_debug then
1963 hr_utility.set_location(l_proc,10);
1964 hr_utility.trace('status : ' || l_rec.status);
1965 end if;
1966 --
1967 if l_rec.status = 'I' then
1968 --
1969 delete
1970 from pay_action_information
1971 where rowid = l_rec.row_id;
1972 --
1973 elsif l_rec.status = 'Q' then
1974 --
1975 update pay_jp_isdf_life_pens_dml_v
1976 set object_version_number = l_rec.object_version_number + 1,
1977 status = 'D'
1978 where rowid = l_rec.row_id;
1979 --
1980 end if;
1981 --
1982 if g_debug then
1983 hr_utility.set_location(l_proc,1000);
1984 end if;
1985 --
1986 end delete_life_pens;
1987 --
1988 -- -------------------------------------------------------------------------
1989 -- create_nonlife
1990 -- -------------------------------------------------------------------------
1991 procedure create_nonlife(
1992 p_action_information_id in number,
1993 p_assignment_action_id in number,
1994 p_action_context_type in varchar2,
1995 p_assignment_id in number,
1996 p_effective_date in date,
1997 p_action_information_category in varchar2,
1998 p_status in varchar2,
1999 p_assignment_extra_info_id in number,
2000 p_aei_object_version_number in number,
2001 p_nonlife_ins_class in varchar2,
2002 p_nonlife_ins_term_type in varchar2,
2003 p_nonlife_ins_company_code in varchar2,
2004 p_ins_company_name in varchar2,
2005 p_ins_type in varchar2,
2006 p_ins_period in varchar2,
2007 p_contractor_name in varchar2,
2008 p_beneficiary_name in varchar2,
2009 p_beneficiary_relship in varchar2,
2010 p_maturity_repayment in varchar2 default null,
2011 p_annual_prem in number,
2012 p_object_version_number out nocopy number)
2013 is
2014 l_proc varchar2(80) := c_package||'create_nonlife';
2015 begin
2016 --
2017 if g_debug then
2018 hr_utility.set_location(l_proc,0);
2019 end if;
2020 --
2021 p_object_version_number := 1;
2022 --
2023 insert into pay_jp_isdf_nonlife_dml_v(
2024 action_information_id,
2025 object_version_number,
2026 assignment_action_id,
2027 action_context_type,
2028 assignment_id,
2029 effective_date,
2030 action_information_category,
2031 status,
2032 assignment_extra_info_id,
2033 aei_object_version_number,
2034 nonlife_ins_class,
2035 nonlife_ins_term_type,
2036 nonlife_ins_company_code,
2037 ins_company_name,
2038 ins_type,
2039 ins_period,
2040 contractor_name,
2041 beneficiary_name,
2042 beneficiary_relship,
2043 maturity_repayment,
2044 annual_prem)
2045 values(
2046 p_action_information_id,
2047 p_object_version_number,
2048 p_assignment_action_id,
2049 p_action_context_type,
2050 p_assignment_id,
2051 p_effective_date,
2052 p_action_information_category,
2053 p_status,
2054 fnd_number.number_to_canonical(p_assignment_extra_info_id),
2055 fnd_number.number_to_canonical(p_aei_object_version_number),
2056 p_nonlife_ins_class,
2057 p_nonlife_ins_term_type,
2058 p_nonlife_ins_company_code,
2059 p_ins_company_name,
2060 p_ins_type,
2061 p_ins_period,
2062 p_contractor_name,
2063 p_beneficiary_name,
2064 p_beneficiary_relship,
2065 p_maturity_repayment,
2066 fnd_number.number_to_canonical(p_annual_prem));
2067 --
2068 if g_debug then
2069 hr_utility.set_location(l_proc,1000);
2070 end if;
2071 --
2072 end create_nonlife;
2076 -- -------------------------------------------------------------------------
2073 --
2074 -- -------------------------------------------------------------------------
2075 -- update_nonlife
2077 procedure update_nonlife(
2078 p_action_information_id in number,
2079 p_object_version_number in out nocopy number,
2080 p_status in varchar2,
2081 p_nonlife_ins_term_type in varchar2,
2082 p_ins_company_name in varchar2,
2083 p_ins_type in varchar2,
2084 p_ins_period in varchar2,
2085 p_contractor_name in varchar2,
2086 p_beneficiary_name in varchar2,
2087 p_beneficiary_relship in varchar2,
2088 p_maturity_repayment in varchar2 default null,
2089 p_annual_prem in number)
2090 is
2091 l_rec pay_jp_isdf_nonlife_v%rowtype;
2092 l_proc varchar2(80) := c_package||'update_nonlife';
2093 begin
2094 --
2095 if g_debug then
2096 hr_utility.set_location(l_proc,0);
2097 end if;
2098 --
2099 lock_nonlife(p_action_information_id, p_object_version_number, l_rec);
2100 --
2101 if g_debug then
2102 hr_utility.set_location(l_proc,10);
2103 end if;
2104 --
2105 p_object_version_number := p_object_version_number + 1;
2106 --
2107 update pay_jp_isdf_nonlife_dml_v
2108 set object_version_number = p_object_version_number,
2109 status = p_status,
2110 ins_company_name = p_ins_company_name,
2111 ins_type = p_ins_type,
2112 ins_period = p_ins_period,
2113 contractor_name = p_contractor_name,
2114 beneficiary_name = p_beneficiary_name,
2115 beneficiary_relship = p_beneficiary_relship,
2116 maturity_repayment = p_maturity_repayment,
2117 annual_prem = fnd_number.number_to_canonical(p_annual_prem)
2118 where row_id = l_rec.row_id;
2119 --
2120 if g_debug then
2121 hr_utility.set_location(l_proc,1000);
2122 end if;
2123 --
2124 end update_nonlife;
2125 --
2126 -- -------------------------------------------------------------------------
2127 -- delete_nonlife
2128 -- -------------------------------------------------------------------------
2129 procedure delete_nonlife(
2130 p_action_information_id in number,
2131 p_object_version_number in number)
2132 is
2133 l_rec pay_jp_isdf_nonlife_v%rowtype;
2134 l_proc varchar2(80) := c_package||'delete_nonlife';
2135 begin
2136 --
2137 if g_debug then
2138 hr_utility.set_location(l_proc,0);
2139 end if;
2140 --
2141 lock_nonlife(p_action_information_id, p_object_version_number, l_rec);
2142 --
2143 if g_debug then
2144 hr_utility.set_location(l_proc,10);
2145 hr_utility.trace('status : ' || l_rec.status);
2146 end if;
2147 --
2148 if l_rec.status = 'I' then
2149 --
2150 delete
2151 from pay_action_information
2152 where rowid = l_rec.row_id;
2153 --
2154 elsif l_rec.status = 'Q' then
2155 --
2156 update pay_jp_isdf_nonlife_dml_v
2157 set object_version_number = l_rec.object_version_number + 1,
2158 status = 'D'
2159 where rowid = l_rec.row_id;
2160 --
2161 end if;
2162 --
2163 if g_debug then
2164 hr_utility.set_location(l_proc,1000);
2165 end if;
2166 --
2167 end delete_nonlife;
2168 --
2169 -- -------------------------------------------------------------------------
2170 -- create_social
2171 -- -------------------------------------------------------------------------
2172 procedure create_social(
2173 p_action_information_id in number,
2174 p_assignment_action_id in number,
2175 p_action_context_type in varchar2,
2176 p_assignment_id in number,
2177 p_effective_date in date,
2178 p_action_information_category in varchar2,
2179 p_status in varchar2,
2180 p_ins_type in varchar2,
2181 p_ins_payee_name in varchar2,
2182 p_debtor_name in varchar2,
2183 p_beneficiary_relship in varchar2,
2184 p_annual_prem in number,
2185 p_national_pens_flag in varchar2,
2186 p_object_version_number out nocopy number)
2187 is
2188 l_proc varchar2(80) := c_package||'create_social';
2189 begin
2190 --
2191 if g_debug then
2192 hr_utility.set_location(l_proc,0);
2193 end if;
2194 --
2195 p_object_version_number := 1;
2196 --
2197 insert into pay_jp_isdf_social_dml_v(
2198 action_information_id,
2199 object_version_number,
2200 assignment_action_id,
2201 action_context_type,
2202 assignment_id,
2203 effective_date,
2204 action_information_category,
2205 status,
2206 ins_type,
2207 ins_payee_name,
2208 debtor_name,
2209 beneficiary_relship,
2210 annual_prem,
2211 national_pens_flag)
2212 values(
2213 p_action_information_id,
2214 p_object_version_number,
2215 p_assignment_action_id,
2216 p_action_context_type,
2217 p_assignment_id,
2218 p_effective_date,
2219 p_action_information_category,
2220 p_status,
2221 p_ins_type,
2222 p_ins_payee_name,
2223 p_debtor_name,
2224 p_beneficiary_relship,
2225 fnd_number.number_to_canonical(p_annual_prem),
2226 p_national_pens_flag);
2227 --
2228 if g_debug then
2229 hr_utility.set_location(l_proc,1000);
2233 --
2230 end if;
2231 --
2232 end create_social;
2234 -- -------------------------------------------------------------------------
2235 -- update_social
2236 -- -------------------------------------------------------------------------
2237 procedure update_social(
2238 p_action_information_id in number,
2239 p_object_version_number in out nocopy number,
2240 p_status in varchar2,
2241 p_ins_type in varchar2,
2242 p_ins_payee_name in varchar2,
2243 p_debtor_name in varchar2,
2244 p_beneficiary_relship in varchar2,
2245 p_annual_prem in number,
2246 p_national_pens_flag in varchar2)
2247 is
2248 l_rec pay_jp_isdf_social_v%rowtype;
2249 l_proc varchar2(80) := c_package||'update_social';
2250 begin
2251 --
2252 if g_debug then
2253 hr_utility.set_location(l_proc,0);
2254 end if;
2255 --
2256 lock_social(p_action_information_id, p_object_version_number, l_rec);
2257 --
2258 if g_debug then
2259 hr_utility.set_location(l_proc,10);
2260 end if;
2261 --
2262 p_object_version_number := p_object_version_number + 1;
2263 --
2264 update pay_jp_isdf_social_dml_v
2265 set object_version_number = p_object_version_number,
2266 status = p_status,
2267 ins_type = p_ins_type,
2268 ins_payee_name = p_ins_payee_name,
2269 debtor_name = p_debtor_name,
2270 beneficiary_relship = p_beneficiary_relship,
2271 annual_prem = fnd_number.number_to_canonical(p_annual_prem),
2272 national_pens_flag = p_national_pens_flag
2273 where row_id = l_rec.row_id;
2274 --
2275 if g_debug then
2276 hr_utility.set_location(l_proc,1000);
2277 end if;
2278 --
2279 end update_social;
2280 --
2281 -- -------------------------------------------------------------------------
2282 -- delete_social
2283 -- -------------------------------------------------------------------------
2284 procedure delete_social(
2285 p_action_information_id in number,
2286 p_object_version_number in number)
2287 is
2288 l_rec pay_jp_isdf_social_v%rowtype;
2289 l_proc varchar2(80) := c_package||'delete_social';
2290 begin
2291 --
2292 if g_debug then
2293 hr_utility.set_location(l_proc,0);
2294 end if;
2295 --
2296 lock_social(p_action_information_id, p_object_version_number, l_rec);
2297 --
2298 if g_debug then
2299 hr_utility.set_location(l_proc,10);
2300 hr_utility.trace('status : ' || l_rec.status);
2301 end if;
2302 --
2303 if l_rec.status = 'I' then
2304 --
2305 delete
2306 from pay_action_information
2307 where rowid = l_rec.row_id;
2308 --
2309 elsif l_rec.status = 'Q' then
2310 --
2311 update pay_jp_isdf_social_dml_v
2312 set object_version_number = l_rec.object_version_number + 1,
2313 status = 'D'
2314 where rowid = l_rec.row_id;
2315 --
2316 end if;
2317 --
2318 if g_debug then
2319 hr_utility.set_location(l_proc,1000);
2320 end if;
2321 --
2322 end delete_social;
2323 --
2324 -- -------------------------------------------------------------------------
2325 -- create_mutual_aid
2326 -- -------------------------------------------------------------------------
2327 procedure create_mutual_aid(
2328 p_action_information_id in number,
2329 p_assignment_action_id in number,
2330 p_action_context_type in varchar2,
2331 p_assignment_id in number,
2332 p_effective_date in date,
2333 p_action_information_category in varchar2,
2334 p_status in varchar2,
2335 p_enterprise_contract_prem in number,
2336 p_pension_prem in number,
2337 p_disable_sup_contract_prem in number,
2338 p_object_version_number out nocopy number)
2339 is
2340 l_proc varchar2(80) := c_package||'create_mutual_aid';
2341 begin
2342 --
2343 if g_debug then
2344 hr_utility.set_location(l_proc,0);
2345 end if;
2346 --
2347 p_object_version_number := 1;
2348 --
2349 insert into pay_jp_isdf_mutual_aid_dml_v(
2350 action_information_id,
2351 object_version_number,
2352 assignment_action_id,
2353 action_context_type,
2354 assignment_id,
2355 effective_date,
2356 action_information_category,
2357 status,
2358 enterprise_contract_prem,
2359 pension_prem,
2360 disable_sup_contract_prem)
2361 values(
2362 p_action_information_id,
2363 p_object_version_number,
2364 p_assignment_action_id,
2365 p_action_context_type,
2366 p_assignment_id,
2367 p_effective_date,
2368 p_action_information_category,
2369 p_status,
2370 fnd_number.number_to_canonical(p_enterprise_contract_prem),
2371 fnd_number.number_to_canonical(p_pension_prem),
2372 fnd_number.number_to_canonical(p_disable_sup_contract_prem));
2373 --
2374 if g_debug then
2375 hr_utility.set_location(l_proc,1000);
2376 end if;
2377 --
2378 end create_mutual_aid;
2379 --
2380 -- -------------------------------------------------------------------------
2381 -- update_mutual_aid
2382 -- -------------------------------------------------------------------------
2383 procedure update_mutual_aid(
2384 p_action_information_id in number,
2385 p_object_version_number in out nocopy number,
2386 p_status in varchar2,
2390 is
2387 p_enterprise_contract_prem in number,
2388 p_pension_prem in number,
2389 p_disable_sup_contract_prem in number)
2391 l_rec pay_jp_isdf_mutual_aid_v%rowtype;
2392 l_proc varchar2(80) := c_package||'update_mutual_aid';
2393 begin
2394 --
2395 if g_debug then
2396 hr_utility.set_location(l_proc,0);
2397 end if;
2398 --
2399 lock_mutual_aid(p_action_information_id, p_object_version_number, l_rec);
2400 --
2401 if g_debug then
2402 hr_utility.set_location(l_proc,10);
2403 end if;
2404 --
2405 p_object_version_number := p_object_version_number + 1;
2406 --
2407 update pay_jp_isdf_mutual_aid_dml_v
2408 set object_version_number = p_object_version_number,
2409 status = p_status,
2410 enterprise_contract_prem = fnd_number.number_to_canonical(p_enterprise_contract_prem),
2411 pension_prem = fnd_number.number_to_canonical(p_pension_prem),
2412 disable_sup_contract_prem = fnd_number.number_to_canonical(p_disable_sup_contract_prem)
2413 where row_id = l_rec.row_id;
2414 --
2415 if g_debug then
2416 hr_utility.set_location(l_proc,1000);
2417 end if;
2418 --
2419 end update_mutual_aid;
2420 --
2421 -- -------------------------------------------------------------------------
2422 -- delete_mutual_aid
2423 -- -------------------------------------------------------------------------
2424 procedure delete_mutual_aid(
2425 p_action_information_id in number,
2426 p_object_version_number in number)
2427 is
2428 l_rec pay_jp_isdf_mutual_aid_v%rowtype;
2429 l_proc varchar2(80) := c_package||'delete_mutual_aid';
2430 begin
2431 --
2432 if g_debug then
2433 hr_utility.set_location(l_proc,0);
2434 end if;
2435 --
2436 lock_mutual_aid(p_action_information_id, p_object_version_number, l_rec);
2437 --
2438 if g_debug then
2439 hr_utility.set_location(l_proc,10);
2440 hr_utility.trace('status : ' || l_rec.status);
2441 end if;
2442 --
2443 if l_rec.status = 'I' then
2444 --
2445 delete
2446 from pay_action_information
2447 where rowid = l_rec.row_id;
2448 --
2449 elsif l_rec.status = 'Q' then
2450 --
2451 update pay_jp_isdf_mutual_aid_dml_v
2452 set object_version_number = l_rec.object_version_number + 1,
2453 status = 'D'
2454 where rowid = l_rec.row_id;
2455 --
2456 end if;
2457 --
2458 if g_debug then
2459 hr_utility.set_location(l_proc,1000);
2460 end if;
2461 --
2462 end delete_mutual_aid;
2463 --
2464 -- -------------------------------------------------------------------------
2465 -- create_spouse
2466 -- -------------------------------------------------------------------------
2467 procedure create_spouse(
2468 p_action_information_id in number,
2469 p_assignment_action_id in number,
2470 p_action_context_type in varchar2,
2471 p_assignment_id in number,
2472 p_effective_date in date,
2473 p_action_information_category in varchar2,
2474 p_status in varchar2,
2475 p_full_name_kana in varchar2,
2476 --p_last_name_kana in varchar2,
2477 --p_first_name_kana in varchar2,
2478 p_full_name in varchar2,
2479 --p_last_name in varchar2,
2480 --p_first_name in varchar2,
2481 p_postal_code in varchar2,
2482 p_address in varchar2,
2483 p_emp_income in number,
2484 p_spouse_type in varchar2,
2485 p_widow_type in varchar2,
2486 p_spouse_dct_exclude in varchar2,
2487 p_spouse_income_entry in number,
2488 p_object_version_number out nocopy number)
2489 is
2490 l_proc varchar2(80) := c_package||'create_spouse';
2491 begin
2492 --
2493 if g_debug then
2494 hr_utility.set_location(l_proc,0);
2495 end if;
2496 --
2497 p_object_version_number := 1;
2498 --
2499 insert into pay_jp_isdf_spouse_dml_v(
2500 action_information_id,
2501 object_version_number,
2502 assignment_action_id,
2503 action_context_type,
2504 assignment_id,
2505 effective_date,
2506 action_information_category,
2507 status,
2508 full_name_kana,
2509 --last_name_kana,
2510 --first_name_kana,
2511 full_name,
2512 --last_name,
2513 --first_name,
2514 postal_code,
2515 address,
2516 emp_income,
2517 spouse_type,
2518 widow_type,
2519 spouse_dct_exclude,
2520 spouse_income_entry)
2521 values(
2522 p_action_information_id,
2523 p_object_version_number,
2524 p_assignment_action_id,
2525 p_action_context_type,
2526 p_assignment_id,
2527 p_effective_date,
2528 p_action_information_category,
2529 p_status,
2530 p_full_name_kana,
2531 --p_last_name_kana,
2532 --p_first_name_kana,
2533 p_full_name,
2534 --p_last_name,
2535 --p_first_name,
2536 p_postal_code,
2537 p_address,
2538 fnd_number.number_to_canonical(p_emp_income),
2539 p_spouse_type,
2540 p_widow_type,
2541 p_spouse_dct_exclude,
2542 fnd_number.number_to_canonical(p_spouse_income_entry));
2543 --
2544 if g_debug then
2545 hr_utility.set_location(l_proc,1000);
2546 end if;
2547 --
2548 end create_spouse;
2549 --
2553 procedure update_spouse(
2550 -- -------------------------------------------------------------------------
2551 -- update_spouse
2552 -- -------------------------------------------------------------------------
2554 p_action_information_id in number,
2555 p_object_version_number in out nocopy number,
2556 p_status in varchar2,
2557 p_full_name_kana in varchar2,
2558 --p_last_name_kana in varchar2,
2559 --p_first_name_kana in varchar2,
2560 p_full_name in varchar2,
2561 --p_last_name in varchar2,
2562 --p_first_name in varchar2,
2563 p_postal_code in varchar2,
2564 p_address in varchar2,
2565 p_emp_income in number,
2566 p_spouse_type in varchar2,
2567 p_widow_type in varchar2,
2568 p_spouse_dct_exclude in varchar2,
2569 p_spouse_income_entry in number)
2570 is
2571 l_rec pay_jp_isdf_spouse_v%rowtype;
2572 l_proc varchar2(80) := c_package||'update_spouse';
2573 begin
2574 --
2575 if g_debug then
2576 hr_utility.set_location(l_proc,0);
2577 end if;
2578 --
2579 lock_spouse(p_action_information_id, p_object_version_number, l_rec);
2580 --
2581 if g_debug then
2582 hr_utility.set_location(l_proc,10);
2583 end if;
2584 --
2585 p_object_version_number := p_object_version_number + 1;
2586 --
2587 update pay_jp_isdf_spouse_dml_v
2588 set object_version_number = p_object_version_number,
2589 status = p_status,
2590 full_name_kana = p_full_name_kana,
2591 --last_name_kana = p_last_name_kana,
2592 --first_name_kana = p_first_name_kana,
2593 full_name = p_full_name,
2594 --last_name = p_last_name,
2595 --first_name = p_first_name,
2596 postal_code = p_postal_code,
2597 address = p_address,
2598 emp_income = fnd_number.number_to_canonical(p_emp_income),
2599 spouse_type = p_spouse_type,
2600 widow_type = p_widow_type,
2601 spouse_dct_exclude = p_spouse_dct_exclude,
2602 spouse_income_entry = fnd_number.number_to_canonical(p_spouse_income_entry)
2603 where row_id = l_rec.row_id;
2604 --
2605 if g_debug then
2606 hr_utility.set_location(l_proc,1000);
2607 end if;
2608 --
2609 end update_spouse;
2610 --
2611 -- -------------------------------------------------------------------------
2612 -- delete_spouse
2613 -- -------------------------------------------------------------------------
2614 procedure delete_spouse(
2615 p_action_information_id in number,
2616 p_object_version_number in number)
2617 is
2618 l_rec pay_jp_isdf_spouse_v%rowtype;
2619 l_proc varchar2(80) := c_package||'delete_spouse';
2620 begin
2621 --
2622 if g_debug then
2623 hr_utility.set_location(l_proc,0);
2624 end if;
2625 --
2626 lock_spouse(p_action_information_id, p_object_version_number, l_rec);
2627 --
2628 if g_debug then
2629 hr_utility.set_location(l_proc,10);
2630 hr_utility.trace('status : ' || l_rec.status);
2631 end if;
2632 --
2633 if l_rec.status = 'I' then
2634 --
2635 delete
2636 from pay_action_information
2637 where rowid = l_rec.row_id;
2638 --
2639 elsif l_rec.status = 'Q' then
2640 --
2641 update pay_jp_isdf_spouse_dml_v
2642 set object_version_number = l_rec.object_version_number + 1,
2643 status = 'D'
2644 where rowid = l_rec.row_id;
2645 --
2646 end if;
2647 --
2648 if g_debug then
2649 hr_utility.set_location(l_proc,1000);
2650 end if;
2651 --
2652 end delete_spouse;
2653 --
2654 -- -------------------------------------------------------------------------
2655 -- create_spouse_inc
2656 -- -------------------------------------------------------------------------
2657 procedure create_spouse_inc(
2658 p_action_information_id in number,
2659 p_assignment_action_id in number,
2660 p_action_context_type in varchar2,
2661 p_assignment_id in number,
2662 p_effective_date in date,
2663 p_action_information_category in varchar2,
2664 p_status in varchar2,
2665 p_sp_earned_income in number,
2666 p_sp_earned_income_exp in number,
2667 p_sp_business_income in number,
2668 p_sp_business_income_exp in number,
2669 p_sp_miscellaneous_income in number,
2670 p_sp_miscellaneous_income_exp in number,
2671 p_sp_dividend_income in number,
2672 p_sp_dividend_income_exp in number,
2673 p_sp_real_estate_income in number,
2674 p_sp_real_estate_income_exp in number,
2675 p_sp_retirement_income in number,
2676 p_sp_retirement_income_exp in number,
2677 p_sp_other_income in number,
2678 p_sp_other_income_exp in number,
2679 p_sp_other_income_exp_dct in number,
2680 p_sp_other_income_exp_temp in number,
2681 p_sp_other_income_exp_temp_exp in number,
2682 p_object_version_number out nocopy number)
2683 is
2684 l_proc varchar2(80) := c_package||'create_spouse_inc';
2685 begin
2686 --
2687 if g_debug then
2688 hr_utility.set_location(l_proc,0);
2689 end if;
2690 --
2691 p_object_version_number := 1;
2692 --
2696 assignment_action_id,
2693 insert into pay_jp_isdf_spouse_inc_dml_v(
2694 action_information_id,
2695 object_version_number,
2697 action_context_type,
2698 assignment_id,
2699 effective_date,
2700 action_information_category,
2701 status,
2702 sp_earned_income,
2703 sp_earned_income_exp,
2704 sp_business_income,
2705 sp_business_income_exp,
2706 sp_miscellaneous_income,
2707 sp_miscellaneous_income_exp,
2708 sp_dividend_income,
2709 sp_dividend_income_exp,
2710 sp_real_estate_income,
2711 sp_real_estate_income_exp,
2712 sp_retirement_income,
2713 sp_retirement_income_exp,
2714 sp_other_income,
2715 sp_other_income_exp,
2716 sp_other_income_exp_dct,
2717 sp_other_income_exp_temp,
2718 sp_other_income_exp_temp_exp)
2719 values(
2720 p_action_information_id,
2721 p_object_version_number,
2722 p_assignment_action_id,
2723 p_action_context_type,
2724 p_assignment_id,
2725 p_effective_date,
2726 p_action_information_category,
2727 p_status,
2728 fnd_number.number_to_canonical(p_sp_earned_income),
2729 fnd_number.number_to_canonical(p_sp_earned_income_exp),
2730 fnd_number.number_to_canonical(p_sp_business_income),
2731 fnd_number.number_to_canonical(p_sp_business_income_exp),
2732 fnd_number.number_to_canonical(p_sp_miscellaneous_income),
2733 fnd_number.number_to_canonical(p_sp_miscellaneous_income_exp),
2734 fnd_number.number_to_canonical(p_sp_dividend_income),
2735 fnd_number.number_to_canonical(p_sp_dividend_income_exp),
2736 fnd_number.number_to_canonical(p_sp_real_estate_income),
2737 fnd_number.number_to_canonical(p_sp_real_estate_income_exp),
2738 fnd_number.number_to_canonical(p_sp_retirement_income),
2739 fnd_number.number_to_canonical(p_sp_retirement_income_exp),
2740 fnd_number.number_to_canonical(p_sp_other_income),
2741 fnd_number.number_to_canonical(p_sp_other_income_exp),
2742 fnd_number.number_to_canonical(p_sp_other_income_exp_dct),
2743 fnd_number.number_to_canonical(p_sp_other_income_exp_temp),
2744 fnd_number.number_to_canonical(p_sp_other_income_exp_temp_exp));
2745 --
2746 if g_debug then
2747 hr_utility.set_location(l_proc,1000);
2748 end if;
2749 --
2750 end create_spouse_inc;
2751 --
2752 -- -------------------------------------------------------------------------
2753 -- update_spouse_inc
2754 -- -------------------------------------------------------------------------
2755 procedure update_spouse_inc(
2756 p_action_information_id in number,
2757 p_object_version_number in out nocopy number,
2758 p_status in varchar2,
2759 p_sp_earned_income in number,
2760 p_sp_earned_income_exp in number,
2761 p_sp_business_income in number,
2762 p_sp_business_income_exp in number,
2763 p_sp_miscellaneous_income in number,
2764 p_sp_miscellaneous_income_exp in number,
2765 p_sp_dividend_income in number,
2766 p_sp_dividend_income_exp in number,
2767 p_sp_real_estate_income in number,
2768 p_sp_real_estate_income_exp in number,
2769 p_sp_retirement_income in number,
2770 p_sp_retirement_income_exp in number,
2771 p_sp_other_income in number,
2772 p_sp_other_income_exp in number,
2773 p_sp_other_income_exp_dct in number,
2774 p_sp_other_income_exp_temp in number,
2775 p_sp_other_income_exp_temp_exp in number)
2776 is
2777 l_rec pay_jp_isdf_spouse_inc_v%rowtype;
2778 l_proc varchar2(80) := c_package||'update_spouse_inc';
2779 begin
2780 --
2781 if g_debug then
2782 hr_utility.set_location(l_proc,0);
2783 end if;
2784 --
2785 lock_spouse_inc(p_action_information_id, p_object_version_number, l_rec);
2786 --
2787 if g_debug then
2788 hr_utility.set_location(l_proc,10);
2789 end if;
2790 --
2791 p_object_version_number := p_object_version_number + 1;
2792 --
2793 update pay_jp_isdf_spouse_inc_dml_v
2794 set object_version_number = p_object_version_number,
2795 status = p_status,
2796 sp_earned_income = fnd_number.number_to_canonical(p_sp_earned_income),
2797 sp_earned_income_exp = fnd_number.number_to_canonical(p_sp_earned_income_exp),
2798 sp_business_income = fnd_number.number_to_canonical(p_sp_business_income),
2799 sp_business_income_exp = fnd_number.number_to_canonical(p_sp_business_income_exp),
2800 sp_miscellaneous_income = fnd_number.number_to_canonical(p_sp_miscellaneous_income),
2801 sp_miscellaneous_income_exp = fnd_number.number_to_canonical(p_sp_miscellaneous_income_exp),
2802 sp_dividend_income = fnd_number.number_to_canonical(p_sp_dividend_income),
2803 sp_dividend_income_exp = fnd_number.number_to_canonical(p_sp_dividend_income_exp),
2804 sp_real_estate_income = fnd_number.number_to_canonical(p_sp_real_estate_income),
2805 sp_real_estate_income_exp = fnd_number.number_to_canonical(p_sp_real_estate_income_exp),
2806 sp_retirement_income = fnd_number.number_to_canonical(p_sp_retirement_income),
2807 sp_retirement_income_exp = fnd_number.number_to_canonical(p_sp_retirement_income_exp),
2808 sp_other_income = fnd_number.number_to_canonical(p_sp_other_income),
2809 sp_other_income_exp = fnd_number.number_to_canonical(p_sp_other_income_exp),
2810 sp_other_income_exp_dct = fnd_number.number_to_canonical(p_sp_other_income_exp_dct),
2811 sp_other_income_exp_temp = fnd_number.number_to_canonical(p_sp_other_income_exp_temp),
2812 sp_other_income_exp_temp_exp = fnd_number.number_to_canonical(p_sp_other_income_exp_temp_exp)
2813 where row_id = l_rec.row_id;
2814 --
2815 if g_debug then
2816 hr_utility.set_location(l_proc,1000);
2817 end if;
2818 --
2819 end update_spouse_inc;
2820 --
2821 -- -------------------------------------------------------------------------
2822 -- delete_spouse_inc
2823 -- -------------------------------------------------------------------------
2824 procedure delete_spouse_inc(
2825 p_action_information_id in number,
2826 p_object_version_number in number)
2827 is
2828 l_rec pay_jp_isdf_spouse_inc_v%rowtype;
2829 l_proc varchar2(80) := c_package||'delete_spouse_inc';
2830 begin
2831 --
2832 if g_debug then
2833 hr_utility.set_location(l_proc,0);
2834 end if;
2835 --
2836 lock_spouse_inc(p_action_information_id, p_object_version_number, l_rec);
2837 --
2838 if g_debug then
2839 hr_utility.set_location(l_proc,10);
2840 hr_utility.trace('status : ' || l_rec.status);
2841 end if;
2842 --
2843 if l_rec.status = 'I' then
2844 --
2845 delete
2846 from pay_action_information
2847 where rowid = l_rec.row_id;
2848 --
2849 elsif l_rec.status = 'Q' then
2850 --
2851 update pay_jp_isdf_spouse_inc_dml_v
2852 set object_version_number = l_rec.object_version_number + 1,
2853 status = 'D'
2854 where rowid = l_rec.row_id;
2855 --
2856 end if;
2857 --
2858 if g_debug then
2859 hr_utility.set_location(l_proc,1000);
2860 end if;
2861 --
2862 end delete_spouse_inc;
2863 --
2864 end pay_jp_isdf_dml_pkg;