[Home] [Help]
1: PACKAGE BODY PER_ADDRESSES_PKG AS
2: /* $Header: peadd01t.pkb 120.0 2005/05/31 04:51:59 appldev noship $ */
3:
4: g_pkg CONSTANT Varchar2(150):='PER_Addresses_Pkg.';
5: -- ===========================================================================
1: PACKAGE BODY PER_ADDRESSES_PKG AS
2: /* $Header: peadd01t.pkb 120.0 2005/05/31 04:51:59 appldev noship $ */
3:
4: g_pkg CONSTANT Varchar2(150):='PER_Addresses_Pkg.';
5: -- ===========================================================================
6: -- InsUpd_OSS_Person_Add: Insert or Update address into hz_locations only if
7: -- the person is a student or faculty employee.
8: -- p_action : Valid Values INSERT and UPDATE
201: -- Local Variables
202: --
203: l_default_primary VARCHAR2(1);
204: begin
205: per_addresses_pkg.insert_row(p_row_id
206: ,p_address_id
207: ,p_business_group_id
208: ,p_person_id
209: ,p_date_from
553: fetch c2 into p_row_id;
554: --
555: close c2;
556: --
557: p_default_primary := per_addresses_pkg.does_primary_exist(p_person_id
558: ,p_business_group_id
559: ,p_end_of_time);
560: -- Now need to insure that tax record exists if this is the Primary address.
561: -- For US Payroll installed, employees only.
599: l_business_group_id NUMBER;
600: l_end_of_time DATE;
601: l_default_primary VARCHAR2(1);
602: begin
603: per_addresses_pkg.delete_row(p_row_id
604: ,l_person_id
605: ,l_business_group_id
606: ,l_end_of_time
607: ,l_default_primary);
616: begin
617: delete from per_addresses pa
618: where pa.rowid = chartorowid(p_row_id);
619: --
620: p_default_primary := per_addresses_pkg.does_primary_exist(p_person_id
621: ,p_business_group_id
622: ,p_end_of_time);
623: --
624: end delete_row;
931: l_return_text varchar2(240);
932:
933: begin
934: hr_utility.set_location('update_row',1);
935: PER_ADDRESSES_PKG.update_row(p_row_id
936: ,p_address_id
937: ,p_business_group_id
938: ,p_person_id
939: ,p_date_from
1220: -- ==============================================================
1221: --
1222: -- End of Fix for WWBUG 1408379
1223: --
1224: p_default_primary := per_addresses_pkg.does_primary_exist(p_person_id
1225: ,p_business_group_id
1226: ,p_end_of_time);
1227: --
1228: --OPEN get_install_info;
1402: ,p_legislation_code VARCHAR2
1403: ,p_default_country IN OUT NOCOPY VARCHAR2
1404: ,p_default_style IN OUT NOCOPY VARCHAR2) is
1405: begin
1406: p_primary_flag := per_addresses_pkg.does_primary_exist(p_person_id
1407: ,p_business_group_id
1408: ,p_end_of_time);
1409: --
1410: per_addresses_pkg.get_default_style(p_legislation_code
1406: p_primary_flag := per_addresses_pkg.does_primary_exist(p_person_id
1407: ,p_business_group_id
1408: ,p_end_of_time);
1409: --
1410: per_addresses_pkg.get_default_style(p_legislation_code
1411: ,p_default_country
1412: ,p_default_style);
1413: --
1414: end form_startup1;
1419: ,p_primary_flag IN OUT NOCOPY VARCHAR2
1420: ,p_legislation_code VARCHAR2
1421: ,p_default_country IN OUT NOCOPY VARCHAR2) is
1422: begin
1423: p_primary_flag := per_addresses_pkg.does_primary_exist(p_person_id
1424: ,p_business_group_id
1425: ,p_end_of_time);
1426: --
1427: per_addresses_pkg.get_addresses(p_legislation_code
1423: p_primary_flag := per_addresses_pkg.does_primary_exist(p_person_id
1424: ,p_business_group_id
1425: ,p_end_of_time);
1426: --
1427: per_addresses_pkg.get_addresses(p_legislation_code
1428: ,p_default_country);
1429: --
1430: end form_startup;
1431: ------------------------- BEGIN: validate_address --------------------
1533: (nvl(pa.date_to,p_end_of_time) between pa2.date_from and
1534: nvl(pa2.date_to, p_end_of_time))
1535: ));
1536: --
1537: l_proc VARCHAR2(50) := 'per_addresses_pkg.validate_address';
1538: --
1539: begin
1540: --
1541: hr_utility.set_location('Entering : '||l_proc,10);
1751: hr_utility.set_location('Leaving : '||l_proc,999);
1752: --
1753: end validate_address;
1754: --
1755: END PER_ADDRESSES_PKG;