[Home] [Help]
213: -- Declare cursors and local variables
214: --
215: l_proc varchar2(72) := g_package||'create_contact';
216: l_contact_relationship_id
217: per_contact_relationships.contact_relationship_id%TYPE;
218: l_per_object_version_number number(9);
219: l_ctr_object_version_number number(9);
220: l_name_combination_warning boolean;
221: l_orig_hire_warning boolean;
226: -- dummy variables for rh outs
227: --
228: l_date_employee_data_verified date;
229: l_employee_number varchar2(30);
230: l_contact_person_id per_contact_relationships.contact_person_id%TYPE;
231: l_contact_person_id_save per_contact_relationships.contact_person_id%TYPE;
232: l_person_id per_contact_relationships.person_id%TYPE;
233: l_contact_type varchar2(30);
234: l_third_party_pay_flag varchar2(1);
227: --
228: l_date_employee_data_verified date;
229: l_employee_number varchar2(30);
230: l_contact_person_id per_contact_relationships.contact_person_id%TYPE;
231: l_contact_person_id_save per_contact_relationships.contact_person_id%TYPE;
232: l_person_id per_contact_relationships.person_id%TYPE;
233: l_contact_type varchar2(30);
234: l_third_party_pay_flag varchar2(1);
235: l_primary_contact_flag varchar2(1);
228: l_date_employee_data_verified date;
229: l_employee_number varchar2(30);
230: l_contact_person_id per_contact_relationships.contact_person_id%TYPE;
231: l_contact_person_id_save per_contact_relationships.contact_person_id%TYPE;
232: l_person_id per_contact_relationships.person_id%TYPE;
233: l_contact_type varchar2(30);
234: l_third_party_pay_flag varchar2(1);
235: l_primary_contact_flag varchar2(1);
236: l_bondholder_flag varchar2(1);
464: end;
465: --
466: -- Process Logic
467: -- Check that the contact person is not null. If not, go straight to
468: -- entering the details into per_contact_relationships. If it is null,
469: -- call hr_contact_api.create_person
470: --
471: if p_contact_person_id is null then
472: --
577: --
578: end if;
579: --
580: -- Now we are sure of having a person_id for a contact, insert the
581: -- details by calling the per_contact_relationships row handler.
582: --
583: hr_utility.set_location(l_proc, 40);
584: --
585: per_ctr_ins.ins(p_contact_relationship_id => l_contact_relationship_id
1142: --
1143: l_proc varchar2(72) := g_package||'update_contact';
1144: --
1145: l_object_version_number
1146: per_contact_relationships.object_version_number%TYPE;
1147: l_ovn number;
1148: l_effective_date date;
1149: l_date_start date;
1150: l_date_end date;
1157: --
1158: cursor check_mirror is
1159: select pcr2.contact_relationship_id,
1160: pcr2.object_version_number
1161: from per_contact_relationships pcr1,
1162: per_contact_relationships pcr2
1163: where pcr2.contact_person_id = pcr1.person_id
1164: and pcr2.person_id = pcr1.contact_person_id
1165: and (pcr2.date_start = pcr1.date_start
1158: cursor check_mirror is
1159: select pcr2.contact_relationship_id,
1160: pcr2.object_version_number
1161: from per_contact_relationships pcr1,
1162: per_contact_relationships pcr2
1163: where pcr2.contact_person_id = pcr1.person_id
1164: and pcr2.person_id = pcr1.contact_person_id
1165: and (pcr2.date_start = pcr1.date_start
1166: or (pcr2.date_start is null and pcr1.date_start is null))
1177: pcr.end_life_reason_id,
1178: pcr.rltd_per_rsds_w_dsgntr_flag,
1179: pcr.personal_flag,
1180: pcr.contact_person_id
1181: from per_contact_relationships pcr
1182: where pcr.contact_relationship_id = p_contact_relationship_id;
1183: --
1184: l_start_life_reason_id number;
1185: l_end_life_reason_id number;
1375: and (p_contact_type = hr_api.g_varchar2
1376: or p_contact_type = l_contact_type)
1377: then
1378: --
1379: l_mirror_contact_type := per_contact_relationships_pkg.get_mirror_contact_type
1380: (l_contact_type);
1381: --
1382: open check_mirror;
1383: fetch check_mirror into l_mirror_rec;
1570: --
1571: cursor check_mirror is
1572: select pcr2.contact_relationship_id,
1573: pcr2.object_version_number
1574: from per_contact_relationships pcr1,
1575: per_contact_relationships pcr2
1576: where pcr2.contact_person_id = pcr1.person_id
1577: and pcr2.person_id = pcr1.contact_person_id
1578: and pcr1.contact_relationship_id = p_contact_relationship_id
1571: cursor check_mirror is
1572: select pcr2.contact_relationship_id,
1573: pcr2.object_version_number
1574: from per_contact_relationships pcr1,
1575: per_contact_relationships pcr2
1576: where pcr2.contact_person_id = pcr1.person_id
1577: and pcr2.person_id = pcr1.contact_person_id
1578: and pcr1.contact_relationship_id = p_contact_relationship_id
1579: and pcr2.contact_type = l_mirror_contact_type -- bug# 2742210
1592: and effective_end_date = hr_general.end_of_time;
1593: --
1594: cursor csr_contact_person is
1595: select contact_person_id,contact_type
1596: from per_contact_relationships
1597: where contact_relationship_id = p_contact_relationship_id;
1598: --
1599: l_mirror_rec check_mirror%ROWTYPE;
1600: l_effective_start_date date;
1644: --
1645: -- If Relationship has a mirror row then then we have to delete the mirror rel.
1646: -- Have to do this first otherwise the cursor will always fail.
1647: -- start of code for bug 2742210
1648: l_mirror_contact_type := per_contact_relationships_pkg.get_mirror_contact_type
1649: (l_contact_type);
1650: -- end of code for bug 2742210
1651: open check_mirror;
1652: fetch check_mirror into l_mirror_rec;
1681: and hr_contact_relationships.multiple_contacts(l_contact_person_id) = 'N') then
1682: --
1683: hr_utility.set_location(l_proc, 31);
1684: --
1685: per_contact_relationships_pkg.delete_validation
1686: (l_contact_person_id
1687: ,p_contact_relationship_id
1688: );
1689: -- delete the person