DBA Data[Home] [Help]

APPS.PER_KAD_BUS dependencies on PER_KAD_SHD

Line 144: l_api_updating := per_kad_shd.api_updating

140: -- Only proceed with validation if :
141: -- a) The current g_old_rec is current and
142: -- b) The value for address type has changed
143: --
144: l_api_updating := per_kad_shd.api_updating
145: (p_address_id => p_address_id
146: ,p_object_version_number => p_object_version_number);
147: --
148: if ((l_api_updating and

Line 149: nvl(per_kad_shd.g_old_rec.address_type, hr_api.g_varchar2) <>

145: (p_address_id => p_address_id
146: ,p_object_version_number => p_object_version_number);
147: --
148: if ((l_api_updating and
149: nvl(per_kad_shd.g_old_rec.address_type, hr_api.g_varchar2) <>
150: nvl(p_address_type, hr_api.g_varchar2)) or
151: (NOT l_api_updating)) then
152: hr_utility.set_location(l_proc, 2);
153: --

Line 228: l_api_updating := per_kad_shd.api_updating

224: -- Only proceed with validation if :
225: -- a) The current g_old_rec is current and
226: -- b) The value for country has changed
227: --
228: l_api_updating := per_kad_shd.api_updating
229: (p_address_id => p_address_id
230: ,p_object_version_number => p_object_version_number);
231: --
232: if ((l_api_updating and

Line 233: nvl(per_kad_shd.g_old_rec.country, hr_api.g_varchar2) <>

229: (p_address_id => p_address_id
230: ,p_object_version_number => p_object_version_number);
231: --
232: if ((l_api_updating and
233: nvl(per_kad_shd.g_old_rec.country, hr_api.g_varchar2) <>
234: nvl(p_country, hr_api.g_varchar2)) or
235: (NOT l_api_updating)) then
236: hr_utility.set_location(l_proc, 2);
237: --

Line 315: l_api_updating := per_kad_shd.api_updating

311: -- Only proceed with validation if :
312: -- a) The current g_old_rec is current and
313: -- b) The value for date to has changed
314: --
315: l_api_updating := per_kad_shd.api_updating
316: (p_address_id => p_address_id
317: ,p_object_version_number => p_object_version_number);
318: --
319: if ((l_api_updating and

Line 320: nvl(per_kad_shd.g_old_rec.date_to, hr_api.g_eot) <>

316: (p_address_id => p_address_id
317: ,p_object_version_number => p_object_version_number);
318: --
319: if ((l_api_updating and
320: nvl(per_kad_shd.g_old_rec.date_to, hr_api.g_eot) <>
321: nvl(p_date_to, hr_api.g_eot)) or
322: (NOT l_api_updating)) then
323: --
324: hr_utility.set_location(l_proc, 2);

Line 395: l_api_updating := per_kad_shd.api_updating

391: -- Only proceed with validation if :
392: -- a) The current g_old_rec is current and
393: -- b) The date_from value has changed
394: --
395: l_api_updating := per_kad_shd.api_updating
396: (p_address_id => p_address_id
397: ,p_object_version_number => p_object_version_number);
398: --
399: if ((l_api_updating and per_kad_shd.g_old_rec.date_from <> p_date_from) or

Line 399: if ((l_api_updating and per_kad_shd.g_old_rec.date_from <> p_date_from) or

395: l_api_updating := per_kad_shd.api_updating
396: (p_address_id => p_address_id
397: ,p_object_version_number => p_object_version_number);
398: --
399: if ((l_api_updating and per_kad_shd.g_old_rec.date_from <> p_date_from) or
400: (NOT l_api_updating)) then
401: hr_utility.set_location(l_proc, 2);
402: --
403: -- Check that the date_from values is less than

Line 702: l_api_updating := per_kad_shd.api_updating

698: -- Only proceed with validation if :
699: -- a) The current g_old_rec is current and
700: -- b) The value for address_line1 has changed
701: --
702: l_api_updating := per_kad_shd.api_updating
703: (p_address_id => p_address_id
704: ,p_object_version_number => p_object_version_number);
705: --
706: if ((l_api_updating and

Line 707: nvl(per_kad_shd.g_old_rec.address_line1, hr_api.g_varchar2) <>

703: (p_address_id => p_address_id
704: ,p_object_version_number => p_object_version_number);
705: --
706: if ((l_api_updating and
707: nvl(per_kad_shd.g_old_rec.address_line1, hr_api.g_varchar2) <>
708: nvl(p_address_line1, hr_api.g_varchar2)) or
709: (NOT l_api_updating)) then
710: hr_utility.set_location(l_proc, 2);
711: --

Line 798: l_api_updating := per_kad_shd_t.api_updating

794: -- Only proceed with validation if :
795: -- a) The current g_old_rec is current and
796: -- b) The value for town_or_city, address_line1, or region_1 have changed
797: --
798: l_api_updating := per_kad_shd_t.api_updating
799: (p_address_id => p_address_id
800: ,p_object_version_number => p_object_version_number);
801:
802: if ((l_api_updating and

Line 803: (nvl(per_kad_shd_t.g_old_rec.town_or_city, hr_api.g_varchar2) <>

799: (p_address_id => p_address_id
800: ,p_object_version_number => p_object_version_number);
801:
802: if ((l_api_updating and
803: (nvl(per_kad_shd_t.g_old_rec.town_or_city, hr_api.g_varchar2) <>
804: nvl(p_town_or_city, hr_api.g_varchar2) or
805: nvl(per_kad_shd_t.g_old_rec.address_line1, hr_api.g_varchar2) <>
806: nvl(p_address_line1, hr_api.g_varchar2) or
807: nvl(per_kad_shd_t.g_old_rec.region_1, hr_api.g_varchar2) <>

Line 805: nvl(per_kad_shd_t.g_old_rec.address_line1, hr_api.g_varchar2) <>

801:
802: if ((l_api_updating and
803: (nvl(per_kad_shd_t.g_old_rec.town_or_city, hr_api.g_varchar2) <>
804: nvl(p_town_or_city, hr_api.g_varchar2) or
805: nvl(per_kad_shd_t.g_old_rec.address_line1, hr_api.g_varchar2) <>
806: nvl(p_address_line1, hr_api.g_varchar2) or
807: nvl(per_kad_shd_t.g_old_rec.region_1, hr_api.g_varchar2) <>
808: nvl(p_region_1, hr_api.g_varchar2)
809: )) or (NOT l_api_updating)) then

Line 807: nvl(per_kad_shd_t.g_old_rec.region_1, hr_api.g_varchar2) <>

803: (nvl(per_kad_shd_t.g_old_rec.town_or_city, hr_api.g_varchar2) <>
804: nvl(p_town_or_city, hr_api.g_varchar2) or
805: nvl(per_kad_shd_t.g_old_rec.address_line1, hr_api.g_varchar2) <>
806: nvl(p_address_line1, hr_api.g_varchar2) or
807: nvl(per_kad_shd_t.g_old_rec.region_1, hr_api.g_varchar2) <>
808: nvl(p_region_1, hr_api.g_varchar2)
809: )) or (NOT l_api_updating)) then
810:
811: hr_utility.set_location(l_proc, 2);

Line 880: l_api_updating := per_kad_shd_t.api_updating

876: -- Only proceed with validation if :
877: -- a) The current g_old_rec is current and
878: -- b) The value for address_line2, or region_2 have changed
879: --
880: l_api_updating := per_kad_shd_t.api_updating
881: (p_address_id => p_address_id
882: ,p_object_version_number => p_object_version_number);
883:
884: if ((l_api_updating and

Line 885: (nvl(per_kad_shd_t.g_old_rec.address_line2, hr_api.g_varchar2) <>

881: (p_address_id => p_address_id
882: ,p_object_version_number => p_object_version_number);
883:
884: if ((l_api_updating and
885: (nvl(per_kad_shd_t.g_old_rec.address_line2, hr_api.g_varchar2) <>
886: nvl(p_address_line2, hr_api.g_varchar2) or
887: nvl(per_kad_shd_t.g_old_rec.region_2, hr_api.g_varchar2) <>
888: nvl(p_region_2, hr_api.g_varchar2)
889: )) or (NOT l_api_updating)) then

Line 887: nvl(per_kad_shd_t.g_old_rec.region_2, hr_api.g_varchar2) <>

883:
884: if ((l_api_updating and
885: (nvl(per_kad_shd_t.g_old_rec.address_line2, hr_api.g_varchar2) <>
886: nvl(p_address_line2, hr_api.g_varchar2) or
887: nvl(per_kad_shd_t.g_old_rec.region_2, hr_api.g_varchar2) <>
888: nvl(p_region_2, hr_api.g_varchar2)
889: )) or (NOT l_api_updating)) then
890:
891: hr_utility.set_location(l_proc, 2);

Line 926: l_api_updating := per_kad_shd_t.api_updating

922: -- Only proceed with validation if :
923: -- a) The current g_old_rec is current and
924: -- b) The value for address_line3, or region_3 have changed
925: --
926: l_api_updating := per_kad_shd_t.api_updating
927: (p_address_id => p_address_id
928: ,p_object_version_number => p_object_version_number);
929:
930: if ((l_api_updating and

Line 931: (nvl(per_kad_shd_t.g_old_rec.address_line3, hr_api.g_varchar2) <>

927: (p_address_id => p_address_id
928: ,p_object_version_number => p_object_version_number);
929:
930: if ((l_api_updating and
931: (nvl(per_kad_shd_t.g_old_rec.address_line3, hr_api.g_varchar2) <>
932: nvl(p_address_line3, hr_api.g_varchar2) or
933: nvl(per_kad_shd_t.g_old_rec.region_3, hr_api.g_varchar2) <>
934: nvl(p_region_3, hr_api.g_varchar2)
935: )) or (NOT l_api_updating)) then

Line 933: nvl(per_kad_shd_t.g_old_rec.region_3, hr_api.g_varchar2) <>

929:
930: if ((l_api_updating and
931: (nvl(per_kad_shd_t.g_old_rec.address_line3, hr_api.g_varchar2) <>
932: nvl(p_address_line3, hr_api.g_varchar2) or
933: nvl(per_kad_shd_t.g_old_rec.region_3, hr_api.g_varchar2) <>
934: nvl(p_region_3, hr_api.g_varchar2)
935: )) or (NOT l_api_updating)) then
936:
937: hr_utility.set_location(l_proc, 2);

Line 1078: l_api_updating := per_kad_shd.api_updating

1074: -- Only proceed with validation if :
1075: -- a) The current g_old_rec is current and
1076: -- b) The value for postal code has changed
1077: --
1078: l_api_updating := per_kad_shd.api_updating
1079: (p_address_id => p_address_id
1080: ,p_object_version_number => p_object_version_number);
1081: --
1082: if ((l_api_updating

Line 1083: and nvl(per_kad_shd.g_old_rec.postal_code, hr_api.g_varchar2) <>

1079: (p_address_id => p_address_id
1080: ,p_object_version_number => p_object_version_number);
1081: --
1082: if ((l_api_updating
1083: and nvl(per_kad_shd.g_old_rec.postal_code, hr_api.g_varchar2) <>
1084: nvl(p_postal_code, hr_api.g_varchar2)) or
1085: (NOT l_api_updating)) then
1086: hr_utility.set_location(l_proc, 2);
1087: --

Line 1272: l_api_updating := per_kad_shd.api_updating

1268: -- Only proceed with validation if :
1269: -- a) The current g_old_rec is current and
1270: -- b) The value for region_1 has changed
1271: --
1272: l_api_updating := per_kad_shd.api_updating
1273: (p_address_id => p_address_id
1274: ,p_object_version_number => p_object_version_number);
1275: --
1276: if ((l_api_updating and

Line 1277: nvl(per_kad_shd.g_old_rec.region_1, hr_api.g_varchar2) <>

1273: (p_address_id => p_address_id
1274: ,p_object_version_number => p_object_version_number);
1275: --
1276: if ((l_api_updating and
1277: nvl(per_kad_shd.g_old_rec.region_1, hr_api.g_varchar2) <>
1278: nvl(p_region_1, hr_api.g_varchar2)) or
1279: (NOT l_api_updating)) then
1280: hr_utility.set_location(l_proc, 2);
1281: --

Line 1404: l_api_updating := per_kad_shd.api_updating

1400: -- Only proceed with validation if :
1401: -- a) The current g_old_rec is current and
1402: -- b) The value for region_2 has changed
1403: --
1404: l_api_updating := per_kad_shd.api_updating
1405: (p_address_id => p_address_id
1406: ,p_object_version_number => p_object_version_number);
1407: --
1408: if ((l_api_updating and

Line 1409: nvl(per_kad_shd.g_old_rec.region_2, hr_api.g_varchar2) <>

1405: (p_address_id => p_address_id
1406: ,p_object_version_number => p_object_version_number);
1407: --
1408: if ((l_api_updating and
1409: nvl(per_kad_shd.g_old_rec.region_2, hr_api.g_varchar2) <>
1410: nvl(p_region_2, hr_api.g_varchar2)) or
1411: (NOT l_api_updating)) then
1412: hr_utility.set_location(l_proc, 2);
1413: --

Line 1531: l_api_updating := per_kad_shd.api_updating

1527: -- Only proceed with validation if :
1528: -- a) The current g_old_rec is current and
1529: -- b) The value for town_or_city has changed
1530: --
1531: l_api_updating := per_kad_shd.api_updating
1532: (p_address_id => p_address_id
1533: ,p_object_version_number => p_object_version_number);
1534: --
1535: if ((l_api_updating and

Line 1536: nvl(per_kad_shd.g_old_rec.town_or_city, hr_api.g_varchar2) <>

1532: (p_address_id => p_address_id
1533: ,p_object_version_number => p_object_version_number);
1534: --
1535: if ((l_api_updating and
1536: nvl(per_kad_shd.g_old_rec.town_or_city, hr_api.g_varchar2) <>
1537: nvl(p_town_or_city, hr_api.g_varchar2)) or
1538: (NOT l_api_updating)) then
1539: hr_utility.set_location(l_proc, 2);
1540: --

Line 1643: l_api_updating := per_kad_shd.api_updating

1639: -- a) US address style and payroll is installed under US legislation and
1640: -- b) The current g_old_rec is current and
1641: -- c) The value for postal_code/region_2/town_or_city has changed.
1642: --
1643: l_api_updating := per_kad_shd.api_updating
1644: (p_address_id => p_address_id
1645: ,p_object_version_number => p_object_version_number);
1646: --
1647: if ((l_api_updating and

Line 1648: (nvl(per_kad_shd.g_old_rec.region_2, hr_api.g_varchar2) <>

1644: (p_address_id => p_address_id
1645: ,p_object_version_number => p_object_version_number);
1646: --
1647: if ((l_api_updating and
1648: (nvl(per_kad_shd.g_old_rec.region_2, hr_api.g_varchar2) <>
1649: nvl(p_region_2, hr_api.g_varchar2)) or
1650: (nvl(per_kad_shd.g_old_rec.postal_code, hr_api.g_varchar2) <>
1651: nvl(p_postal_code, hr_api.g_varchar2)) or
1652: (nvl(per_kad_shd.g_old_rec.town_or_city, hr_api.g_varchar2) <>

Line 1650: (nvl(per_kad_shd.g_old_rec.postal_code, hr_api.g_varchar2) <>

1646: --
1647: if ((l_api_updating and
1648: (nvl(per_kad_shd.g_old_rec.region_2, hr_api.g_varchar2) <>
1649: nvl(p_region_2, hr_api.g_varchar2)) or
1650: (nvl(per_kad_shd.g_old_rec.postal_code, hr_api.g_varchar2) <>
1651: nvl(p_postal_code, hr_api.g_varchar2)) or
1652: (nvl(per_kad_shd.g_old_rec.town_or_city, hr_api.g_varchar2) <>
1653: nvl(p_town_or_city, hr_api.g_varchar2))) or
1654: (NOT l_api_updating)) then

Line 1652: (nvl(per_kad_shd.g_old_rec.town_or_city, hr_api.g_varchar2) <>

1648: (nvl(per_kad_shd.g_old_rec.region_2, hr_api.g_varchar2) <>
1649: nvl(p_region_2, hr_api.g_varchar2)) or
1650: (nvl(per_kad_shd.g_old_rec.postal_code, hr_api.g_varchar2) <>
1651: nvl(p_postal_code, hr_api.g_varchar2)) or
1652: (nvl(per_kad_shd.g_old_rec.town_or_city, hr_api.g_varchar2) <>
1653: nvl(p_town_or_city, hr_api.g_varchar2))) or
1654: (NOT l_api_updating)) then
1655: --
1656: hr_utility.set_location(l_proc, 2);

Line 1746: where pa.date_from between per_kad_shd.g_old_rec.date_from

1742: --
1743: cursor csr_del_address is
1744: select null
1745: from per_addresses pa
1746: where pa.date_from between per_kad_shd.g_old_rec.date_from
1747: and l_date
1748: and pa.person_id = per_kad_shd.g_old_rec.person_id
1749: and pa.primary_flag = 'N';
1750: --

Line 1748: and pa.person_id = per_kad_shd.g_old_rec.person_id

1744: select null
1745: from per_addresses pa
1746: where pa.date_from between per_kad_shd.g_old_rec.date_from
1747: and l_date
1748: and pa.person_id = per_kad_shd.g_old_rec.person_id
1749: and pa.primary_flag = 'N';
1750: --
1751: cursor csr_no_del_contig_add is
1752: select null

Line 1757: and pa2.person_id = per_kad_shd.g_old_rec.person_id

1753: from sys.dual
1754: where exists(select null
1755: from per_addresses pa2
1756: where pa2.date_from > l_date
1757: and pa2.person_id = per_kad_shd.g_old_rec.person_id
1758: and pa2.primary_flag = 'Y');
1759: --
1760: begin
1761: l_date := nvl(per_kad_shd.g_old_rec.date_to, hr_api.g_eot);

Line 1761: l_date := nvl(per_kad_shd.g_old_rec.date_to, hr_api.g_eot);

1757: and pa2.person_id = per_kad_shd.g_old_rec.person_id
1758: and pa2.primary_flag = 'Y');
1759: --
1760: begin
1761: l_date := nvl(per_kad_shd.g_old_rec.date_to, hr_api.g_eot);
1762: hr_utility.set_location('Entering:'|| l_proc, 1);
1763: --
1764: -- For primary addresses only
1765: -- ==========================

Line 1767: if per_kad_shd.g_old_rec.primary_flag = 'Y' then

1763: --
1764: -- For primary addresses only
1765: -- ==========================
1766: --
1767: if per_kad_shd.g_old_rec.primary_flag = 'Y' then
1768: --
1769: -- Check that no non primary addresses
1770: -- exist within the date range of the
1771: -- currently selected primary address.

Line 1829: Procedure check_non_updateable_args(p_rec in per_kad_shd.g_rec_type) is

1825: -- (business_group_id, person_id, address_id, primary_flag or style)
1826: -- have been altered.
1827: --
1828: -- {End Of Comments}
1829: Procedure check_non_updateable_args(p_rec in per_kad_shd.g_rec_type) is
1830: --
1831: l_proc varchar2(72) := g_package||'check_non_updateable_args';
1832: l_error exception;
1833: l_argument varchar2(30);

Line 1841: if not per_kad_shd.api_updating

1837: --
1838: -- Only proceed with validation if a row exists for
1839: -- the current record in the HR Schema
1840: --
1841: if not per_kad_shd.api_updating
1842: (p_address_id => p_rec.address_id,
1843: p_object_version_number => p_rec.object_version_number) then
1844: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1845: hr_utility.set_message_token('PROCEDURE', l_proc);

Line 1852: per_kad_shd.g_old_rec.business_group_id then

1848: --
1849: hr_utility.set_location(l_proc, 6);
1850: --
1851: if nvl(p_rec.business_group_id, hr_api.g_number) <>
1852: per_kad_shd.g_old_rec.business_group_id then
1853: l_argument := 'business_group_id';
1854: raise l_error;
1855: end if;
1856: hr_utility.set_location(l_proc, 7);

Line 1859: per_kad_shd.g_old_rec.person_id then

1855: end if;
1856: hr_utility.set_location(l_proc, 7);
1857: --
1858: if nvl(p_rec.person_id, hr_api.g_number) <>
1859: per_kad_shd.g_old_rec.person_id then
1860: l_argument := 'person_id';
1861: raise l_error;
1862: end if;
1863: hr_utility.set_location(l_proc, 8);

Line 1866: per_kad_shd.g_old_rec.primary_flag then

1862: end if;
1863: hr_utility.set_location(l_proc, 8);
1864: --
1865: if nvl(p_rec.primary_flag, hr_api.g_varchar2) <>
1866: per_kad_shd.g_old_rec.primary_flag then
1867: l_argument := 'primary_flag';
1868: raise l_error;
1869: end if;
1870: hr_utility.set_location(l_proc, 10);

Line 1873: per_kad_shd.g_old_rec.style then

1869: end if;
1870: hr_utility.set_location(l_proc, 10);
1871: --
1872: if nvl(p_rec.style, hr_api.g_varchar2) <>
1873: per_kad_shd.g_old_rec.style then
1874: l_argument := 'style';
1875: raise l_error;
1876: end if;
1877: hr_utility.set_location(l_proc, 11);

Line 1893: (p_rec in out nocopy per_kad_shd.g_rec_type

1889: -- ----------------------------------------------------------------------------
1890: -- |---------------------------< insert_validate >----------------------------|
1891: -- ----------------------------------------------------------------------------
1892: Procedure insert_validate
1893: (p_rec in out nocopy per_kad_shd.g_rec_type
1894: ,p_effective_date in date
1895: ) is
1896: --
1897: l_proc varchar2(72) := g_package||'insert_validate';

Line 2122: (p_rec in out nocopy per_kad_shd.g_rec_type

2118: -- ----------------------------------------------------------------------------
2119: -- |---------------------------< update_validate >----------------------------|
2120: -- ----------------------------------------------------------------------------
2121: Procedure update_validate
2122: (p_rec in out nocopy per_kad_shd.g_rec_type
2123: ,p_effective_date in date
2124: ) is
2125: --
2126: l_proc varchar2(72) := g_package||'update_validate';

Line 2337: Procedure delete_validate(p_rec in out nocopy per_kad_shd.g_rec_type) is

2333: --
2334: -- ----------------------------------------------------------------------------
2335: -- |---------------------------< delete_validate >----------------------------|
2336: -- ----------------------------------------------------------------------------
2337: Procedure delete_validate(p_rec in out nocopy per_kad_shd.g_rec_type) is
2338: --
2339: l_proc varchar2(72) := g_package||'delete_validate';
2340: --
2341: Begin