DBA Data[Home] [Help]

APPS.PER_ADDRESSES_PKG dependencies on PER_ADDRESSES

Line 1: PACKAGE BODY PER_ADDRESSES_PKG AS

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: -- ===========================================================================

Line 4: g_pkg CONSTANT Varchar2(150):='PER_Addresses_Pkg.';

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

Line 12: (p_addr_rec_new in per_addresses%ROWTYPE

8: -- p_action : Valid Values INSERT and UPDATE
9: -- p_effective_date :
10: -- ===========================================================================
11: PROCEDURE InsUpd_OSS_Person_Add
12: (p_addr_rec_new in per_addresses%ROWTYPE
13: ,p_addr_rec_old in per_addresses%ROWTYPE
14: ,p_action in varchar2
15: ,p_effective_date in date
16: ) As

Line 13: ,p_addr_rec_old in per_addresses%ROWTYPE

9: -- p_effective_date :
10: -- ===========================================================================
11: PROCEDURE InsUpd_OSS_Person_Add
12: (p_addr_rec_new in per_addresses%ROWTYPE
13: ,p_addr_rec_old in per_addresses%ROWTYPE
14: ,p_action in varchar2
15: ,p_effective_date in date
16: ) As
17: -- Cursor to check if person is student

Line 136: Procedure to perform DML on the table PER_ADDRESSES

132:
133: END InsUpd_OSS_Person_Add;
134:
135: /*
136: Procedure to perform DML on the table PER_ADDRESSES
137: when it is used in Forms which utilise the Base View method
138: */
139: --
140: --

Line 205: per_addresses_pkg.insert_row(p_row_id

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

Line 328: cursor c1 is select per_addresses_s.nextval

324: ,p_end_of_time DATE DEFAULT to_date('31-12-4712','DD-MM-YYYY')
325: ,p_default_primary IN OUT NOCOPY VARCHAR2
326: ) is
327: --
328: cursor c1 is select per_addresses_s.nextval
329: from sys.dual;
330: --
331: cursor c2 is select rowid
332: from per_addresses

Line 332: from per_addresses

328: cursor c1 is select per_addresses_s.nextval
329: from sys.dual;
330: --
331: cursor c2 is select rowid
332: from per_addresses
333: where address_id = p_address_id;
334: -- rpinjala
335:
336: cursor c3 is select *

Line 337: from per_addresses

333: where address_id = p_address_id;
334: -- rpinjala
335:
336: cursor c3 is select *
337: from per_addresses
338: where address_id = p_address_id;
339: l_addr_rec per_addresses%ROWTYPE;
340: -- rpinjala
341: --

Line 339: l_addr_rec per_addresses%ROWTYPE;

335:
336: cursor c3 is select *
337: from per_addresses
338: where address_id = p_address_id;
339: l_addr_rec per_addresses%ROWTYPE;
340: -- rpinjala
341: --
342: cursor csr_get_party_id is
343: select max(party_id)

Line 398: insert into per_addresses(

394: open csr_get_party_id;
395: fetch csr_get_party_id into l_party_id;
396: close csr_get_party_id;
397: --
398: insert into per_addresses(
399: address_id
400: ,business_group_id
401: ,person_id
402: ,date_from

Line 557: p_default_primary := per_addresses_pkg.does_primary_exist(p_person_id

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.

Line 603: per_addresses_pkg.delete_row(p_row_id

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);

Line 617: delete from per_addresses pa

613: ,p_end_of_time DATE
614: ,p_default_primary IN OUT NOCOPY VARCHAR2) is
615: --
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

Line 620: p_default_primary := per_addresses_pkg.does_primary_exist(p_person_id

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;

Line 675: from per_addresses

671: ,p_add_information19 VARCHAR2
672: ,p_add_information20 VARCHAR2
673: ) is
674: cursor addr is select *
675: from per_addresses
676: where rowid = chartorowid(p_row_id)
677: for update nowait;
678: add_rec addr%rowtype;
679: begin

Line 935: PER_ADDRESSES_PKG.update_row(p_row_id

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

Line 1087: from per_addresses

1083:
1084: --
1085: cursor c1 is
1086: select *
1087: from per_addresses
1088: where rowid = chartorowid(p_row_id);
1089: --
1090: l_c1 c1%rowtype;
1091: l_c2 c1%rowtype;

Line 1123: update per_addresses pa set

1119: close c1;
1120: --
1121: -- End of Fix for WWBUG 1408379
1122: --
1123: update per_addresses pa set
1124: pa.address_id = p_address_id
1125: ,pa.business_group_id = p_business_group_id
1126: ,pa.person_id = p_person_id
1127: ,pa.date_from = p_date_from

Line 1224: p_default_primary := per_addresses_pkg.does_primary_exist(p_person_id

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;

Line 1266: from per_addresses pa

1262: ,p_business_group_id NUMBER
1263: ,p_end_of_time DATE) return VARCHAR2 is
1264: cursor primary_address is
1265: select 'Y'
1266: from per_addresses pa
1267: , fnd_sessions fs
1268: where pa.business_group_id + 0 = p_business_group_id
1269: and pa.person_id = p_person_id
1270: and pa.primary_flag = 'Y'

Line 1298: from per_addresses pa1

1294: --
1295: --
1296: cursor get_addr is
1297: select 'Y'
1298: from per_addresses pa1
1299: where pa1.primary_flag = 'N'
1300: and pa1.person_id = p_person_id
1301: and not exists (select 'x'
1302: from per_addresses pa2

Line 1302: from per_addresses pa2

1298: from per_addresses pa1
1299: where pa1.primary_flag = 'N'
1300: and pa1.person_id = p_person_id
1301: and not exists (select 'x'
1302: from per_addresses pa2
1303: where pa2.person_id = pa1.person_id
1304: and pa2.primary_flag = 'Y'
1305: and pa2.address_id <> pa1.address_id
1306: and pa2.date_from <=pa1.date_from

Line 1406: p_primary_flag := per_addresses_pkg.does_primary_exist(p_person_id

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

Line 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;

Line 1423: p_primary_flag := per_addresses_pkg.does_primary_exist(p_person_id

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

Line 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 --------------------

Line 1458: from per_addresses pa

1454: b_date_to date;
1455: --
1456: cursor has_addrs is
1457: select 'Y'
1458: from per_addresses pa
1459: where pa.person_id = p_person_id;
1460: --
1461: cursor check_min_is_primary is
1462: select 'Y'

Line 1463: from per_addresses pa

1459: where pa.person_id = p_person_id;
1460: --
1461: cursor check_min_is_primary is
1462: select 'Y'
1463: from per_addresses pa
1464: where person_id = p_person_id
1465: and date_from = l_date_from
1466: and primary_flag = 'Y';
1467: --

Line 1470: from per_addresses pa

1466: and primary_flag = 'Y';
1467: --
1468: cursor has_primary is
1469: select 'Y'
1470: from per_addresses pa
1471: where person_id = p_person_id
1472: and primary_flag = 'Y';
1473: --
1474: cursor get_mins is

Line 1476: from per_addresses

1472: and primary_flag = 'Y';
1473: --
1474: cursor get_mins is
1475: select min(date_from)
1476: from per_addresses
1477: where person_id = p_person_id;
1478: /*
1479: cursor get_next(l_date_from in date) is
1480: select date_to

Line 1481: from per_addresses pa

1477: where person_id = p_person_id;
1478: /*
1479: cursor get_next(l_date_from in date) is
1480: select date_to
1481: from per_addresses pa
1482: where date_from = l_date_from
1483: and person_id = p_person_id
1484: and primary_flag = 'Y';
1485: */

Line 1489: from per_addresses pa

1485: */
1486: cursor get_next is
1487: select date_from,
1488: date_to
1489: from per_addresses pa
1490: where person_id = p_person_id
1491: and primary_flag = 'Y'
1492: order by date_from;
1493: --

Line 1496: from per_addresses pa

1492: order by date_from;
1493: --
1494: cursor get_overlapping is
1495: select 'Y'
1496: from per_addresses pa
1497: where person_id = p_person_id
1498: and primary_flag = 'Y'
1499: and exists (select 'Y'
1500: from per_addresses pa2

Line 1500: from per_addresses pa2

1496: from per_addresses pa
1497: where person_id = p_person_id
1498: and primary_flag = 'Y'
1499: and exists (select 'Y'
1500: from per_addresses pa2
1501: where pa.person_id = pa2.person_id
1502: and pa.address_id <> pa2.address_id
1503: and pa2.primary_flag = 'Y'
1504: and ((pa2.date_from between pa.date_from and

Line 1521: from per_addresses pa

1517: -- Validate Address type Cursor
1518: --
1519: cursor validate_address_types is
1520: select 1
1521: from per_addresses pa
1522: where pa.address_type is not null
1523: and pa.person_id = p_person_id
1524: and exists( select 1
1525: from per_addresses pa2

Line 1525: from per_addresses pa2

1521: from per_addresses pa
1522: where pa.address_type is not null
1523: and pa.person_id = p_person_id
1524: and exists( select 1
1525: from per_addresses pa2
1526: where pa2.address_id <> pa.address_id
1527: and pa2.address_type is not null
1528: and pa.address_type = pa2.address_type
1529: and pa.person_id = pa2.person_id

Line 1537: l_proc VARCHAR2(50) := 'per_addresses_pkg.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);

Line 1755: END PER_ADDRESSES_PKG;

1751: hr_utility.set_location('Leaving : '||l_proc,999);
1752: --
1753: end validate_address;
1754: --
1755: END PER_ADDRESSES_PKG;