1: package body pay_jp_isdf_dml_pkg as
2: /* $Header: pyjpisfa.pkb 120.2.12000000.2 2007/09/20 02:37:45 keyazawa noship $ */
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_life_gen';
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_pens';
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_nonlife';
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
360: l_proc varchar2(80) := c_package||'lock_social';
361: begin
362: --
363: if g_debug then
364: hr_utility.set_location(l_proc,0);
365: end if;
366: --
367: select *
368: into p_rec
375: fnd_message.raise_error;
376: end if;
377: --
378: if g_debug then
379: hr_utility.set_location(l_proc,1000);
380: end if;
381: --
382: exception
383: when hr_api.object_locked then
400: l_proc varchar2(80) := c_package||'lock_mutual_aid';
401: begin
402: --
403: if g_debug then
404: hr_utility.set_location(l_proc,0);
405: end if;
406: --
407: select *
408: into p_rec
415: fnd_message.raise_error;
416: end if;
417: --
418: if g_debug then
419: hr_utility.set_location(l_proc,1000);
420: end if;
421: --
422: exception
423: when hr_api.object_locked then
440: l_proc varchar2(80) := c_package||'lock_spouse';
441: begin
442: --
443: if g_debug then
444: hr_utility.set_location(l_proc,0);
445: end if;
446: --
447: select *
448: into p_rec
455: fnd_message.raise_error;
456: end if;
457: --
458: if g_debug then
459: hr_utility.set_location(l_proc,1000);
460: end if;
461: --
462: exception
463: when hr_api.object_locked then
480: l_proc varchar2(80) := c_package||'lock_spouse_inc';
481: begin
482: --
483: if g_debug then
484: hr_utility.set_location(l_proc,0);
485: end if;
486: --
487: select *
488: into p_rec
495: fnd_message.raise_error;
496: end if;
497: --
498: if g_debug then
499: hr_utility.set_location(l_proc,1000);
500: end if;
501: --
502: exception
503: when hr_api.object_locked then
532: l_proc varchar2(80) := c_package||'create_pact';
533: begin
534: --
535: if g_debug then
536: hr_utility.set_location(l_proc,0);
537: end if;
538: --
539: p_object_version_number := 1;
540: --
571: p_salary_payer_name,
572: p_salary_payer_address);
573: --
574: if g_debug then
575: hr_utility.set_location(l_proc,1000);
576: end if;
577: --
578: end create_pact;
579: --
594: l_proc varchar2(80) := c_package||'update_pact';
595: begin
596: --
597: if g_debug then
598: hr_utility.set_location(l_proc,0);
599: end if;
600: --
601: lock_pact(p_action_information_id, p_object_version_number, l_rec);
602: --
600: --
601: lock_pact(p_action_information_id, p_object_version_number, l_rec);
602: --
603: if g_debug then
604: hr_utility.set_location(l_proc,10);
605: end if;
606: --
607: p_object_version_number := p_object_version_number + 1;
608: --
616: salary_payer_address = p_salary_payer_address
617: where row_id = l_rec.row_id;
618: --
619: if g_debug then
620: hr_utility.set_location(l_proc,1000);
621: end if;
622: --
623: end update_pact;
624: --
646: l_proc varchar2(80) := c_package||'create_assact';
647: begin
648: --
649: if g_debug then
650: hr_utility.set_location(l_proc,0);
651: end if;
652: --
653: p_object_version_number := 1;
654: --
687: fnd_date.date_to_canonical(p_transfer_date),
688: fnd_date.date_to_canonical(p_expiry_date));
689: --
690: if g_debug then
691: hr_utility.set_location(l_proc,1000);
692: end if;
693: --
694: end create_assact;
695: --
712: l_proc varchar2(80) := c_package||'update_assact';
713: begin
714: --
715: if g_debug then
716: hr_utility.set_location(l_proc,0);
717: end if;
718: --
719: lock_assact(p_action_information_id, p_object_version_number, l_rec);
720: --
718: --
719: lock_assact(p_action_information_id, p_object_version_number, l_rec);
720: --
721: if g_debug then
722: hr_utility.set_location(l_proc,10);
723: end if;
724: --
725: p_object_version_number := p_object_version_number + 1;
726: --
736: expiry_date = fnd_date.date_to_canonical(p_expiry_date)
737: where row_id = l_rec.row_id;
738: --
739: if g_debug then
740: hr_utility.set_location(l_proc,1000);
741: end if;
742: --
743: end update_assact;
744: --
764: l_proc varchar2(80) := c_package||'create_emp';
765: begin
766: --
767: if g_debug then
768: hr_utility.set_location(l_proc,0);
769: end if;
770: --
771: p_object_version_number := 1;
772: --
801: p_postal_code,
802: p_address);
803: --
804: if g_debug then
805: hr_utility.set_location(l_proc,1000);
806: end if;
807: --
808: end create_emp;
809: --
820: l_proc varchar2(80) := c_package||'update_emp';
821: begin
822: --
823: if g_debug then
824: hr_utility.set_location(l_proc,0);
825: end if;
826: --
827: lock_emp(p_action_information_id, p_object_version_number, l_rec);
828: --
826: --
827: lock_emp(p_action_information_id, p_object_version_number, l_rec);
828: --
829: if g_debug then
830: hr_utility.set_location(l_proc,10);
831: end if;
832: --
833: p_object_version_number := p_object_version_number + 1;
834: --
838: address = p_address
839: where row_id = l_rec.row_id;
840: --
841: if g_debug then
842: hr_utility.set_location(l_proc,1000);
843: end if;
844: --
845: end update_emp;
846: --
884: l_proc varchar2(80) := c_package||'create_ins_entry';
885: begin
886: --
887: if g_debug then
888: hr_utility.set_location(l_proc,0);
889: end if;
890: --
891: p_object_version_number := 1;
892: --
957: fnd_number.number_to_canonical(p_national_pens_ins_prem),
958: fnd_number.number_to_canonical(p_national_pens_ins_prem_o));
959: --
960: if g_debug then
961: hr_utility.set_location(l_proc,1000);
962: end if;
963: --
964: end create_entry;
965: --
993: l_proc varchar2(80) := c_package||'update_entry';
994: begin
995: --
996: if g_debug then
997: hr_utility.set_location(l_proc,0);
998: end if;
999: --
1000: lock_entry(p_action_information_id, p_object_version_number, l_rec);
1001: --
999: --
1000: lock_entry(p_action_information_id, p_object_version_number, l_rec);
1001: --
1002: if g_debug then
1003: hr_utility.set_location(l_proc,10);
1004: end if;
1005: --
1006: p_object_version_number := p_object_version_number + 1;
1007: --
1028: national_pens_ins_prem_o = fnd_number.number_to_canonical(p_national_pens_ins_prem_o)
1029: where row_id = l_rec.row_id;
1030: --
1031: if g_debug then
1032: hr_utility.set_location(l_proc,1000);
1033: end if;
1034: --
1035: end update_entry;
1036: --
1075: l_proc varchar2(80) := c_package||'create_calc_dct';
1076: begin
1077: --
1078: if g_debug then
1079: hr_utility.set_location(l_proc,0);
1080: end if;
1081: --
1082: p_object_version_number := 1;
1083: --
1150: fnd_number.number_to_canonical(p_spouse_deduction),
1151: fnd_number.number_to_canonical(p_national_pens_ins_prem));
1152: --
1153: if g_debug then
1154: hr_utility.set_location(l_proc,1000);
1155: end if;
1156: --
1157: end create_calc_dct;
1158: --
1193: l_proc varchar2(80) := c_package||'update_calc_dct';
1194: begin
1195: --
1196: if g_debug then
1197: hr_utility.set_location(l_proc,0);
1198: end if;
1199: --
1200: lock_calc_dct(p_action_information_id, p_object_version_number, l_rec);
1201: --
1199: --
1200: lock_calc_dct(p_action_information_id, p_object_version_number, l_rec);
1201: --
1202: if g_debug then
1203: hr_utility.set_location(l_proc,10);
1204: end if;
1205: --
1206: p_object_version_number := p_object_version_number + 1;
1207: --
1235: national_pens_ins_prem = fnd_number.number_to_canonical(p_national_pens_ins_prem)
1236: where row_id = l_rec.row_id;
1237: --
1238: if g_debug then
1239: hr_utility.set_location(l_proc,1000);
1240: end if;
1241: --
1242: end update_calc_dct;
1243: --
1268: l_proc varchar2(80) := c_package||'create_life_gen';
1269: begin
1270: --
1271: if g_debug then
1272: hr_utility.set_location(l_proc,0);
1273: end if;
1274: --
1275: p_object_version_number := 1;
1276: --
1315: p_beneficiary_relship,
1316: fnd_number.number_to_canonical(p_annual_prem));
1317: --
1318: if g_debug then
1319: hr_utility.set_location(l_proc,1000);
1320: end if;
1321: --
1322: end create_life_gen;
1323: --
1340: l_proc varchar2(80) := c_package||'update_life_gen';
1341: begin
1342: --
1343: if g_debug then
1344: hr_utility.set_location(l_proc,0);
1345: end if;
1346: --
1347: lock_life_gen(p_action_information_id, p_object_version_number, l_rec);
1348: --
1346: --
1347: lock_life_gen(p_action_information_id, p_object_version_number, l_rec);
1348: --
1349: if g_debug then
1350: hr_utility.set_location(l_proc,10);
1351: end if;
1352: --
1353: p_object_version_number := p_object_version_number + 1;
1354: --
1364: annual_prem = fnd_number.number_to_canonical(p_annual_prem)
1365: where row_id = l_rec.row_id;
1366: --
1367: if g_debug then
1368: hr_utility.set_location(l_proc,1000);
1369: end if;
1370: --
1371: end update_life_gen;
1372: --
1381: l_proc varchar2(80) := c_package||'delete_life_gen';
1382: begin
1383: --
1384: if g_debug then
1385: hr_utility.set_location(l_proc,0);
1386: end if;
1387: --
1388: lock_life_gen(p_action_information_id, p_object_version_number, l_rec);
1389: --
1387: --
1388: lock_life_gen(p_action_information_id, p_object_version_number, l_rec);
1389: --
1390: if g_debug then
1391: hr_utility.set_location(l_proc,10);
1392: hr_utility.trace('status : ' || l_rec.status);
1393: end if;
1394: --
1395: if l_rec.status = 'I' then
1388: lock_life_gen(p_action_information_id, p_object_version_number, l_rec);
1389: --
1390: if g_debug then
1391: hr_utility.set_location(l_proc,10);
1392: hr_utility.trace('status : ' || l_rec.status);
1393: end if;
1394: --
1395: if l_rec.status = 'I' then
1396: --
1407: --
1408: end if;
1409: --
1410: if g_debug then
1411: hr_utility.set_location(l_proc,1000);
1412: end if;
1413: --
1414: end delete_life_gen;
1415: -- -------------------------------------------------------------------------
1440: l_proc varchar2(80) := c_package||'create_life_pens';
1441: begin
1442: --
1443: if g_debug then
1444: hr_utility.set_location(l_proc,0);
1445: end if;
1446: --
1447: p_object_version_number := 1;
1448: --
1489: p_beneficiary_relship,
1490: fnd_number.number_to_canonical(p_annual_prem));
1491: --
1492: if g_debug then
1493: hr_utility.set_location(l_proc,1000);
1494: end if;
1495: --
1496: end create_life_pens;
1497: --
1515: l_proc varchar2(80) := c_package||'update_life_pens';
1516: begin
1517: --
1518: if g_debug then
1519: hr_utility.set_location(l_proc,0);
1520: end if;
1521: --
1522: lock_life_pens(p_action_information_id, p_object_version_number, l_rec);
1523: --
1521: --
1522: lock_life_pens(p_action_information_id, p_object_version_number, l_rec);
1523: --
1524: if g_debug then
1525: hr_utility.set_location(l_proc,10);
1526: end if;
1527: --
1528: p_object_version_number := p_object_version_number + 1;
1529: --
1540: annual_prem = fnd_number.number_to_canonical(p_annual_prem)
1541: where row_id = l_rec.row_id;
1542: --
1543: if g_debug then
1544: hr_utility.set_location(l_proc,1000);
1545: end if;
1546: --
1547: end update_life_pens;
1548: --
1557: l_proc varchar2(80) := c_package||'delete_life_pens';
1558: begin
1559: --
1560: if g_debug then
1561: hr_utility.set_location(l_proc,0);
1562: end if;
1563: --
1564: lock_life_pens(p_action_information_id, p_object_version_number, l_rec);
1565: --
1563: --
1564: lock_life_pens(p_action_information_id, p_object_version_number, l_rec);
1565: --
1566: if g_debug then
1567: hr_utility.set_location(l_proc,10);
1568: hr_utility.trace('status : ' || l_rec.status);
1569: end if;
1570: --
1571: if l_rec.status = 'I' then
1564: lock_life_pens(p_action_information_id, p_object_version_number, l_rec);
1565: --
1566: if g_debug then
1567: hr_utility.set_location(l_proc,10);
1568: hr_utility.trace('status : ' || l_rec.status);
1569: end if;
1570: --
1571: if l_rec.status = 'I' then
1572: --
1583: --
1584: end if;
1585: --
1586: if g_debug then
1587: hr_utility.set_location(l_proc,1000);
1588: end if;
1589: --
1590: end delete_life_pens;
1591: --
1618: l_proc varchar2(80) := c_package||'create_nonlife';
1619: begin
1620: --
1621: if g_debug then
1622: hr_utility.set_location(l_proc,0);
1623: end if;
1624: --
1625: p_object_version_number := 1;
1626: --
1669: p_maturity_repayment,
1670: fnd_number.number_to_canonical(p_annual_prem));
1671: --
1672: if g_debug then
1673: hr_utility.set_location(l_proc,1000);
1674: end if;
1675: --
1676: end create_nonlife;
1677: --
1696: l_proc varchar2(80) := c_package||'update_nonlife';
1697: begin
1698: --
1699: if g_debug then
1700: hr_utility.set_location(l_proc,0);
1701: end if;
1702: --
1703: lock_nonlife(p_action_information_id, p_object_version_number, l_rec);
1704: --
1702: --
1703: lock_nonlife(p_action_information_id, p_object_version_number, l_rec);
1704: --
1705: if g_debug then
1706: hr_utility.set_location(l_proc,10);
1707: end if;
1708: --
1709: p_object_version_number := p_object_version_number + 1;
1710: --
1721: annual_prem = fnd_number.number_to_canonical(p_annual_prem)
1722: where row_id = l_rec.row_id;
1723: --
1724: if g_debug then
1725: hr_utility.set_location(l_proc,1000);
1726: end if;
1727: --
1728: end update_nonlife;
1729: --
1738: l_proc varchar2(80) := c_package||'delete_nonlife';
1739: begin
1740: --
1741: if g_debug then
1742: hr_utility.set_location(l_proc,0);
1743: end if;
1744: --
1745: lock_nonlife(p_action_information_id, p_object_version_number, l_rec);
1746: --
1744: --
1745: lock_nonlife(p_action_information_id, p_object_version_number, l_rec);
1746: --
1747: if g_debug then
1748: hr_utility.set_location(l_proc,10);
1749: hr_utility.trace('status : ' || l_rec.status);
1750: end if;
1751: --
1752: if l_rec.status = 'I' then
1745: lock_nonlife(p_action_information_id, p_object_version_number, l_rec);
1746: --
1747: if g_debug then
1748: hr_utility.set_location(l_proc,10);
1749: hr_utility.trace('status : ' || l_rec.status);
1750: end if;
1751: --
1752: if l_rec.status = 'I' then
1753: --
1764: --
1765: end if;
1766: --
1767: if g_debug then
1768: hr_utility.set_location(l_proc,1000);
1769: end if;
1770: --
1771: end delete_nonlife;
1772: --
1792: l_proc varchar2(80) := c_package||'create_social';
1793: begin
1794: --
1795: if g_debug then
1796: hr_utility.set_location(l_proc,0);
1797: end if;
1798: --
1799: p_object_version_number := 1;
1800: --
1829: fnd_number.number_to_canonical(p_annual_prem),
1830: p_national_pens_flag);
1831: --
1832: if g_debug then
1833: hr_utility.set_location(l_proc,1000);
1834: end if;
1835: --
1836: end create_social;
1837: --
1853: l_proc varchar2(80) := c_package||'update_social';
1854: begin
1855: --
1856: if g_debug then
1857: hr_utility.set_location(l_proc,0);
1858: end if;
1859: --
1860: lock_social(p_action_information_id, p_object_version_number, l_rec);
1861: --
1859: --
1860: lock_social(p_action_information_id, p_object_version_number, l_rec);
1861: --
1862: if g_debug then
1863: hr_utility.set_location(l_proc,10);
1864: end if;
1865: --
1866: p_object_version_number := p_object_version_number + 1;
1867: --
1876: national_pens_flag = p_national_pens_flag
1877: where row_id = l_rec.row_id;
1878: --
1879: if g_debug then
1880: hr_utility.set_location(l_proc,1000);
1881: end if;
1882: --
1883: end update_social;
1884: --
1893: l_proc varchar2(80) := c_package||'delete_social';
1894: begin
1895: --
1896: if g_debug then
1897: hr_utility.set_location(l_proc,0);
1898: end if;
1899: --
1900: lock_social(p_action_information_id, p_object_version_number, l_rec);
1901: --
1899: --
1900: lock_social(p_action_information_id, p_object_version_number, l_rec);
1901: --
1902: if g_debug then
1903: hr_utility.set_location(l_proc,10);
1904: hr_utility.trace('status : ' || l_rec.status);
1905: end if;
1906: --
1907: if l_rec.status = 'I' then
1900: lock_social(p_action_information_id, p_object_version_number, l_rec);
1901: --
1902: if g_debug then
1903: hr_utility.set_location(l_proc,10);
1904: hr_utility.trace('status : ' || l_rec.status);
1905: end if;
1906: --
1907: if l_rec.status = 'I' then
1908: --
1919: --
1920: end if;
1921: --
1922: if g_debug then
1923: hr_utility.set_location(l_proc,1000);
1924: end if;
1925: --
1926: end delete_social;
1927: --
1944: l_proc varchar2(80) := c_package||'create_mutual_aid';
1945: begin
1946: --
1947: if g_debug then
1948: hr_utility.set_location(l_proc,0);
1949: end if;
1950: --
1951: p_object_version_number := 1;
1952: --
1975: fnd_number.number_to_canonical(p_pension_prem),
1976: fnd_number.number_to_canonical(p_disable_sup_contract_prem));
1977: --
1978: if g_debug then
1979: hr_utility.set_location(l_proc,1000);
1980: end if;
1981: --
1982: end create_mutual_aid;
1983: --
1996: l_proc varchar2(80) := c_package||'update_mutual_aid';
1997: begin
1998: --
1999: if g_debug then
2000: hr_utility.set_location(l_proc,0);
2001: end if;
2002: --
2003: lock_mutual_aid(p_action_information_id, p_object_version_number, l_rec);
2004: --
2002: --
2003: lock_mutual_aid(p_action_information_id, p_object_version_number, l_rec);
2004: --
2005: if g_debug then
2006: hr_utility.set_location(l_proc,10);
2007: end if;
2008: --
2009: p_object_version_number := p_object_version_number + 1;
2010: --
2016: disable_sup_contract_prem = fnd_number.number_to_canonical(p_disable_sup_contract_prem)
2017: where row_id = l_rec.row_id;
2018: --
2019: if g_debug then
2020: hr_utility.set_location(l_proc,1000);
2021: end if;
2022: --
2023: end update_mutual_aid;
2024: --
2033: l_proc varchar2(80) := c_package||'delete_mutual_aid';
2034: begin
2035: --
2036: if g_debug then
2037: hr_utility.set_location(l_proc,0);
2038: end if;
2039: --
2040: lock_mutual_aid(p_action_information_id, p_object_version_number, l_rec);
2041: --
2039: --
2040: lock_mutual_aid(p_action_information_id, p_object_version_number, l_rec);
2041: --
2042: if g_debug then
2043: hr_utility.set_location(l_proc,10);
2044: hr_utility.trace('status : ' || l_rec.status);
2045: end if;
2046: --
2047: if l_rec.status = 'I' then
2040: lock_mutual_aid(p_action_information_id, p_object_version_number, l_rec);
2041: --
2042: if g_debug then
2043: hr_utility.set_location(l_proc,10);
2044: hr_utility.trace('status : ' || l_rec.status);
2045: end if;
2046: --
2047: if l_rec.status = 'I' then
2048: --
2059: --
2060: end if;
2061: --
2062: if g_debug then
2063: hr_utility.set_location(l_proc,1000);
2064: end if;
2065: --
2066: end delete_mutual_aid;
2067: --
2094: l_proc varchar2(80) := c_package||'create_spouse';
2095: begin
2096: --
2097: if g_debug then
2098: hr_utility.set_location(l_proc,0);
2099: end if;
2100: --
2101: p_object_version_number := 1;
2102: --
2145: p_spouse_dct_exclude,
2146: fnd_number.number_to_canonical(p_spouse_income_entry));
2147: --
2148: if g_debug then
2149: hr_utility.set_location(l_proc,1000);
2150: end if;
2151: --
2152: end create_spouse;
2153: --
2176: l_proc varchar2(80) := c_package||'update_spouse';
2177: begin
2178: --
2179: if g_debug then
2180: hr_utility.set_location(l_proc,0);
2181: end if;
2182: --
2183: lock_spouse(p_action_information_id, p_object_version_number, l_rec);
2184: --
2182: --
2183: lock_spouse(p_action_information_id, p_object_version_number, l_rec);
2184: --
2185: if g_debug then
2186: hr_utility.set_location(l_proc,10);
2187: end if;
2188: --
2189: p_object_version_number := p_object_version_number + 1;
2190: --
2206: spouse_income_entry = fnd_number.number_to_canonical(p_spouse_income_entry)
2207: where row_id = l_rec.row_id;
2208: --
2209: if g_debug then
2210: hr_utility.set_location(l_proc,1000);
2211: end if;
2212: --
2213: end update_spouse;
2214: --
2223: l_proc varchar2(80) := c_package||'delete_spouse';
2224: begin
2225: --
2226: if g_debug then
2227: hr_utility.set_location(l_proc,0);
2228: end if;
2229: --
2230: lock_spouse(p_action_information_id, p_object_version_number, l_rec);
2231: --
2229: --
2230: lock_spouse(p_action_information_id, p_object_version_number, l_rec);
2231: --
2232: if g_debug then
2233: hr_utility.set_location(l_proc,10);
2234: hr_utility.trace('status : ' || l_rec.status);
2235: end if;
2236: --
2237: if l_rec.status = 'I' then
2230: lock_spouse(p_action_information_id, p_object_version_number, l_rec);
2231: --
2232: if g_debug then
2233: hr_utility.set_location(l_proc,10);
2234: hr_utility.trace('status : ' || l_rec.status);
2235: end if;
2236: --
2237: if l_rec.status = 'I' then
2238: --
2249: --
2250: end if;
2251: --
2252: if g_debug then
2253: hr_utility.set_location(l_proc,1000);
2254: end if;
2255: --
2256: end delete_spouse;
2257: --
2288: l_proc varchar2(80) := c_package||'create_spouse_inc';
2289: begin
2290: --
2291: if g_debug then
2292: hr_utility.set_location(l_proc,0);
2293: end if;
2294: --
2295: p_object_version_number := 1;
2296: --
2347: fnd_number.number_to_canonical(p_sp_other_income_exp_temp),
2348: fnd_number.number_to_canonical(p_sp_other_income_exp_temp_exp));
2349: --
2350: if g_debug then
2351: hr_utility.set_location(l_proc,1000);
2352: end if;
2353: --
2354: end create_spouse_inc;
2355: --
2382: l_proc varchar2(80) := c_package||'update_spouse_inc';
2383: begin
2384: --
2385: if g_debug then
2386: hr_utility.set_location(l_proc,0);
2387: end if;
2388: --
2389: lock_spouse_inc(p_action_information_id, p_object_version_number, l_rec);
2390: --
2388: --
2389: lock_spouse_inc(p_action_information_id, p_object_version_number, l_rec);
2390: --
2391: if g_debug then
2392: hr_utility.set_location(l_proc,10);
2393: end if;
2394: --
2395: p_object_version_number := p_object_version_number + 1;
2396: --
2416: sp_other_income_exp_temp_exp = fnd_number.number_to_canonical(p_sp_other_income_exp_temp_exp)
2417: where row_id = l_rec.row_id;
2418: --
2419: if g_debug then
2420: hr_utility.set_location(l_proc,1000);
2421: end if;
2422: --
2423: end update_spouse_inc;
2424: --
2433: l_proc varchar2(80) := c_package||'delete_spouse_inc';
2434: begin
2435: --
2436: if g_debug then
2437: hr_utility.set_location(l_proc,0);
2438: end if;
2439: --
2440: lock_spouse_inc(p_action_information_id, p_object_version_number, l_rec);
2441: --
2439: --
2440: lock_spouse_inc(p_action_information_id, p_object_version_number, l_rec);
2441: --
2442: if g_debug then
2443: hr_utility.set_location(l_proc,10);
2444: hr_utility.trace('status : ' || l_rec.status);
2445: end if;
2446: --
2447: if l_rec.status = 'I' then
2440: lock_spouse_inc(p_action_information_id, p_object_version_number, l_rec);
2441: --
2442: if g_debug then
2443: hr_utility.set_location(l_proc,10);
2444: hr_utility.trace('status : ' || l_rec.status);
2445: end if;
2446: --
2447: if l_rec.status = 'I' then
2448: --
2459: --
2460: end if;
2461: --
2462: if g_debug then
2463: hr_utility.set_location(l_proc,1000);
2464: end if;
2465: --
2466: end delete_spouse_inc;
2467: --