[Home] [Help]
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: --
7: -- -------------------------------------------------------------------------
8: -- next_action_information_id
9: -- -------------------------------------------------------------------------
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
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: --
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
335: fnd_message.raise_error;
336: end if;
337: --
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
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
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
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
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
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
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
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
496: fnd_message.raise_error;
497: end if;
498: --
499: if g_debug then
500: hr_utility.set_location(l_proc,1000);
501: end if;
502: --
503: exception
504: when hr_api.object_locked then
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
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
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
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
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: --
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;
658: --
659: end create_pact;
660: --
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: --
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: --
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: --
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: --
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: --
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: --
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: --
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: --
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: --
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: --
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: --
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: --
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: --
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: --
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: --
1086: l_proc varchar2(80) := c_package||'update_entry';
1087: begin
1088: --
1089: if g_debug then
1090: hr_utility.set_location(l_proc,0);
1091: end if;
1092: --
1093: lock_entry(p_action_information_id, p_object_version_number, l_rec);
1094: --
1092: --
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: --
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: --
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: --
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: --
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: --
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: --
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: --
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: --
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: --
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: --
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: --
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: --
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: --
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: --
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: --
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: --
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: --
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: --
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);
1605: hr_utility.trace('status : ' || l_rec.status);
1606: end if;
1607: --
1608: if l_rec.status = 'I' then
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);
1605: hr_utility.trace('status : ' || l_rec.status);
1606: end if;
1607: --
1608: if l_rec.status = 'I' then
1609: --
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:
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: --
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: --
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: --
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: --
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);
1759: end if;
1760: --
1761: end update_care_med;
1762: --
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: --
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
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: --
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:
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: --
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: --
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: --
1917: lock_life_pens(p_action_information_id, p_object_version_number, l_rec);
1918: --
1916: --
1917: lock_life_pens(p_action_information_id, p_object_version_number, l_rec);
1918: --
1919: if g_debug then
1920: hr_utility.set_location(l_proc,10);
1921: end if;
1922: --
1923: p_object_version_number := p_object_version_number + 1;
1924: --
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: --
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: --
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
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: --
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: --
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: --
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;
2073: --
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: --
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: --
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: --
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: --
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
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: --
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: --
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: --
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);
2230: end if;
2231: --
2232: end create_social;
2233: --
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: --
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: --
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: --
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: --
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
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: --
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: --
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: --
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: --
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: --
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: --
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: --
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: --
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
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: --
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: --
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: --
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: --
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: --
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: --
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: --
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: --
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
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: --
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: --
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: --
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: --
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: --
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: --
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: --
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: --
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
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: --
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: --