eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.PER_CONTACT_RELATIONSHIPS_PKG dependencies on PER_CONTACT_RELATIONSHIPS

Line 1: PACKAGE BODY PER_CONTACT_RELATIONSHIPS_PKG AS

1: PACKAGE BODY PER_CONTACT_RELATIONSHIPS_PKG AS
2: /* $Header: pecon01t.pkb 120.8.12010000.3 2009/04/09 13:39:34 pchowdav ship $ */
3: /*---------------------------------------------------------------------------
4: --
5: Change List

Line 29: into PER_CONTACT_RELATIONSHIPS for the

25: 04-MAR-97 JAlloun 70.13 Changed all occurances of system.dual to
26: sys.dual for next release requirements.
27: 18-JUL-97 RKAMIYAM 70.14 Added per_information1 to 30 and know_as cols
28: 11-Sep-97 IHARDING 110.1 505202 Insert value 'N' for all relationship flags
29: into PER_CONTACT_RELATIONSHIPS for the
30: mirror contact.
31: 04-DEC-97 IHARDING 110.2 568596 Set p_comments to null when creating
32: a mirror contact relationship row.
33: 05-MAY-98 CCARTER 115.1 Changes to the following procedures resulting

Line 73: 14-Feb-02 hnarayan 115.27 1772037 added code to pass dff attributes of per_contact_relationships

69: 19-Oct-01 wstallar 115.21 add support for TCA-mapped columns
70: 24-Oct-01 adhunter 115.23 1931258 added ben_person_delete calls in delete_row
71: 15-Nov-01 adhunter 115.24 2073795 added validation for X_Contact_Person_Id.
72: 16-Nov-01 adhunter 115.25 added dbdrv line
73: 14-Feb-02 hnarayan 115.27 1772037 added code to pass dff attributes of per_contact_relationships
74: table to ben_con_ler.ler_chk procedure
75: Makiko Iwamoto 2002/03/05 115.28 2225930 Added procedure chk_dates to validate
76: if new date_start is earlier than the
77: effective_start_date of child contact extra

Line 169: FROM per_contact_relationships

165: ,p_date_end DATE
166: ) RETURN BOOLEAN IS
167: CURSOR c IS
168: SELECT 'Y'
169: FROM per_contact_relationships
170: WHERE person_id = p_person_id
171: AND primary_contact_flag = 'Y'
172: AND NVL(date_start, Hr_General.start_of_time) <=
173: NVL(p_date_end,Hr_General.end_of_time)

Line 206: FROM per_contact_relationships per

202: l_start_of_time DATE := Hr_General.start_of_time;
203: l_end_of_time DATE := Hr_General.end_of_time;
204: CURSOR c IS
205: SELECT 'X'
206: FROM per_contact_relationships per
207: WHERE per.person_id = p_person_id
208: AND per.contact_person_id = p_contact_person_id
209: AND (per.contact_relationship_id <> p_contact_relationship_id
210: OR p_contact_relationship_id IS NULL)

Line 263: x_contact_relationship_id IN per_contact_relationships.contact_relationship_id%TYPE,

259: --
260: -- {End Of Comments}
261: -- ---------------------------------------------------------------------------
262: PROCEDURE chk_dates(
263: x_contact_relationship_id IN per_contact_relationships.contact_relationship_id%TYPE,
264: x_date_start IN per_contact_relationships.date_start%TYPE,
265: x_date_end IN per_contact_relationships.date_end%TYPE) IS
266: --
267: CURSOR cel_earlier_child_exists IS

Line 264: x_date_start IN per_contact_relationships.date_start%TYPE,

260: -- {End Of Comments}
261: -- ---------------------------------------------------------------------------
262: PROCEDURE chk_dates(
263: x_contact_relationship_id IN per_contact_relationships.contact_relationship_id%TYPE,
264: x_date_start IN per_contact_relationships.date_start%TYPE,
265: x_date_end IN per_contact_relationships.date_end%TYPE) IS
266: --
267: CURSOR cel_earlier_child_exists IS
268: SELECT 1

Line 265: x_date_end IN per_contact_relationships.date_end%TYPE) IS

261: -- ---------------------------------------------------------------------------
262: PROCEDURE chk_dates(
263: x_contact_relationship_id IN per_contact_relationships.contact_relationship_id%TYPE,
264: x_date_start IN per_contact_relationships.date_start%TYPE,
265: x_date_end IN per_contact_relationships.date_end%TYPE) IS
266: --
267: CURSOR cel_earlier_child_exists IS
268: SELECT 1
269: FROM per_contact_extra_info_f

Line 550: SELECT ROWID FROM PER_CONTACT_RELATIONSHIPS

546: -- Local procedure to insert individual contact row
547: --
548: PROCEDURE Insert_Contact IS
549: CURSOR C IS
550: SELECT ROWID FROM PER_CONTACT_RELATIONSHIPS
551: WHERE contact_relationship_id = X_Contact_Relationship_Id;
552: --
553: CURSOR C2 IS
554: SELECT per_contact_relationships_s.NEXTVAL FROM sys.dual;

Line 554: SELECT per_contact_relationships_s.NEXTVAL FROM sys.dual;

550: SELECT ROWID FROM PER_CONTACT_RELATIONSHIPS
551: WHERE contact_relationship_id = X_Contact_Relationship_Id;
552: --
553: CURSOR C2 IS
554: SELECT per_contact_relationships_s.NEXTVAL FROM sys.dual;
555: --
556: -- Start of Fix for WWBUG 1408379
557: --
558: l_old ben_con_ler.g_con_ler_rec;

Line 595: INSERT INTO PER_CONTACT_RELATIONSHIPS(

591: hr_utility.set_message(800,'PER_6996_REL_CURR_EXISTS');
592: hr_utility.raise_error;
593: END IF;
594: --
595: INSERT INTO PER_CONTACT_RELATIONSHIPS(
596: contact_relationship_id,
597: business_group_id,
598: person_id,
599: contact_person_id,

Line 1491: FROM PER_CONTACT_RELATIONSHIPS

1487:
1488: ) IS
1489: CURSOR C IS
1490: SELECT *
1491: FROM PER_CONTACT_RELATIONSHIPS
1492: WHERE ROWID = X_Rowid
1493: FOR UPDATE OF Contact_Relationship_Id NOWAIT;
1494: Recinfo C%ROWTYPE;
1495: BEGIN

Line 1839: FROM per_contact_relationships

1835: --
1836: --fix for bug 4867048.
1837: CURSOR Check_Mirror_Update IS
1838: SELECT 'Y'
1839: FROM per_contact_relationships
1840: WHERE ROWID = CHARTOROWID(X_Rowid)
1841: AND( nvl(date_start,hr_api.g_date) <> nvl(X_date_start,hr_api.g_date)
1842: OR nvl(start_life_reason_id,hr_api.g_number) <> nvl(X_start_life_reason_Id,hr_api.g_number)
1843: OR nvl(date_end,hr_api.g_date) <> nvl(X_date_end,hr_api.g_date)

Line 1850: FROM per_contact_relationships

1846: OR nvl(personal_flag,hr_api.g_varchar2) <> nvl(X_personal_flag,hr_api.g_varchar2));
1847: --
1848: CURSOR Check_Mirror IS
1849: SELECT ROWIDTOCHAR(ROWID)
1850: FROM per_contact_relationships
1851: WHERE contact_person_id = X_Person_Id
1852: AND person_id = X_Contact_Person_Id
1853: AND contact_type = l_old_mirror_contact_type
1854: AND nvl(date_start,hr_api.g_date) =nvl(l_date_start,hr_api.g_date)--fix for bug 4867048.

Line 1859: FROM per_contact_relationships

1855: FOR UPDATE OF Contact_Type;
1856: --
1857: CURSOR Check_Relationship_Changed IS
1858: SELECT 'Y'
1859: FROM per_contact_relationships
1860: WHERE contact_relationship_id = X_Contact_Relationship_Id
1861: AND contact_type <> X_Contact_Type
1862: AND EXISTS
1863: (SELECT NULL

Line 1872: FROM per_contact_relationships

1868: -- Start of Fix for WWBUG 1408379
1869: --
1870: CURSOR c1 IS
1871: SELECT *
1872: FROM per_contact_relationships
1873: WHERE ROWID = CHARTOROWID(l_mirror_rowid);
1874: --
1875: CURSOR c2 IS
1876: SELECT *

Line 1877: FROM per_contact_relationships

1873: WHERE ROWID = CHARTOROWID(l_mirror_rowid);
1874: --
1875: CURSOR c2 IS
1876: SELECT *
1877: FROM per_contact_relationships
1878: WHERE ROWID = x_rowid;
1879: --
1880: l_c1 c1%ROWTYPE;
1881: l_rows_found BOOLEAN := FALSE;

Line 1905: FROM per_contact_relationships

1901:
1902:
1903: SELECT date_start, contact_type
1904: INTO l_date_start, l_contact_type
1905: FROM per_contact_relationships
1906: WHERE ROWID = CHARTOROWID(X_rowid);
1907: --
1908: -- Find the mirror_contact_type before update to locate
1909: -- the correct mirror relationship for update.

Line 1986: UPDATE per_contact_relationships

1982: END IF;
1983: --
1984: CLOSE c1;
1985: --
1986: UPDATE per_contact_relationships
1987: SET
1988: date_start = X_date_start
1989: ,start_life_reason_id = X_start_life_reason_id
1990: ,date_end = X_date_end

Line 2096: UPDATE PER_CONTACT_RELATIONSHIPS

2092: END IF;
2093: --
2094: CLOSE c2;
2095: --
2096: UPDATE PER_CONTACT_RELATIONSHIPS
2097: SET
2098: contact_relationship_id = X_Contact_Relationship_Id,
2099: business_group_id = X_Business_Group_Id,
2100: person_id = X_Person_Id,

Line 2266: DELETE FROM PER_CONTACT_RELATIONSHIPS

2262: -- for function multiple_contacts
2263:
2264: -- Delete the base contact relationship
2265: --
2266: DELETE FROM PER_CONTACT_RELATIONSHIPS
2267: WHERE ROWID = X_Rowid;
2268:
2269: IF (SQL%NOTFOUND) THEN
2270: RAISE NO_DATA_FOUND;

Line 2278: DELETE FROM PER_CONTACT_RELATIONSHIPS

2274: --
2275: IF X_contact_type IN ('C','P','S') THEN
2276: l_mirror_type := Get_Mirror_Contact_Type(p_contact_type =>X_Contact_Type);
2277: --
2278: DELETE FROM PER_CONTACT_RELATIONSHIPS
2279: WHERE person_id = X_Contact_Person_Id
2280: AND contact_person_id = X_Person_Id
2281: AND contact_type = l_mirror_type
2282: AND date_start = X_date_start;

Line 2428: FROM per_contact_relationships con

2424: l_old_seq_number NUMBER;
2425: --
2426: CURSOR csr_seq IS
2427: SELECT sequence_number
2428: FROM per_contact_relationships con
2429: WHERE con.person_id = p_person_id
2430: AND con.contact_person_id = p_contact_person_id
2431: AND con.sequence_number <> p_sequence_number;
2432: --

Line 2435: FROM per_contact_relationships con

2431: AND con.sequence_number <> p_sequence_number;
2432: --
2433: CURSOR csr_old_seq IS
2434: SELECT sequence_number
2435: FROM per_contact_relationships con
2436: WHERE con.person_id = p_person_id
2437: AND con.contact_person_id = p_contact_person_id
2438: AND con.contact_relationship_id = p_contact_relationship_id;
2439: --

Line 2442: FROM per_contact_relationships con

2438: AND con.contact_relationship_id = p_contact_relationship_id;
2439: --
2440: CURSOR csr_seq_others IS
2441: SELECT sequence_number
2442: FROM per_contact_relationships con
2443: WHERE con.person_id = p_person_id
2444: AND con.contact_person_id <> p_contact_person_id
2445: AND con.sequence_number = p_sequence_number;
2446: --

Line 2745: from per_contact_relationships

2741: -- earlier than date of brith exists.
2742:
2743: cursor csr_chk_rel is
2744: select contact_relationship_id
2745: from per_contact_relationships
2746: where contact_person_id = X_contact_Person_Id
2747: and date_end < x_date_of_birth;
2748:
2749: l_con_rel_id per_contact_relationships.contact_relationship_id%type;

Line 2749: l_con_rel_id per_contact_relationships.contact_relationship_id%type;

2745: from per_contact_relationships
2746: where contact_person_id = X_contact_Person_Id
2747: and date_end < x_date_of_birth;
2748:
2749: l_con_rel_id per_contact_relationships.contact_relationship_id%type;
2750:
2751: -- cursor to fetch contact relationship details
2752: -- of the records to be updated.
2753:

Line 2756: from per_contact_relationships c

2752: -- of the records to be updated.
2753:
2754: cursor csr_rel is
2755: select c.*,rowidtochar(rowid) row_id
2756: from per_contact_relationships c
2757: where c.contact_person_id = X_contact_Person_Id
2758: and c.date_start < x_date_of_birth;
2759:
2760: -- bug fix 4281500 ends here -----

Line 3136: hr_utility.set_location('per_contact_relationships_pkg.update_contact',1);

3132: -- i.e. check whether the Contact Only flag = 'Y' and if it is then
3133: -- check that the actual values have changed on the person record
3134: -- for the current person record
3135: --
3136: hr_utility.set_location('per_contact_relationships_pkg.update_contact',1);
3137: IF X_Contact_Only = 'Y' THEN
3138: -- bug fix 4281500 starts here --
3139: -- check if there exist a reslationship record with end date
3140: -- earlier than new DOB.

Line 3189: PER_CONTACT_RELATIONSHIPS_PKG.Update_Row(

3185: if x_date_of_birth is not null then
3186: for rel_rec in csr_rel
3187: loop
3188: --
3189: PER_CONTACT_RELATIONSHIPS_PKG.Update_Row(
3190: X_Rowid => rel_rec.Row_Id,
3191: X_Contact_Relationship_Id=> rel_rec.Contact_Relationship_Id,
3192: X_Business_Group_Id => rel_rec.Business_Group_Id,
3193: X_Person_Id => rel_rec.Person_Id,

Line 3270: END PER_CONTACT_RELATIONSHIPS_PKG;

3266: END IF;*/-- fix for bug 4763755.
3267:
3268: END Update_Contact;
3269:
3270: END PER_CONTACT_RELATIONSHIPS_PKG;