[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;
1374: and (p_contact_type = hr_api.g_varchar2
1375: or p_contact_type = l_contact_type)
1376: then
1377: --
1378: l_mirror_contact_type := per_contact_relationships_pkg.get_mirror_contact_type
1379: (l_contact_type);
1380: --
1381: open check_mirror;
1382: fetch check_mirror into l_mirror_rec;
1569: --
1570: cursor check_mirror is
1571: select pcr2.contact_relationship_id,
1572: pcr2.object_version_number
1573: from per_contact_relationships pcr1,
1574: per_contact_relationships pcr2
1575: where pcr2.contact_person_id = pcr1.person_id
1576: and pcr2.person_id = pcr1.contact_person_id
1577: and pcr1.contact_relationship_id = p_contact_relationship_id
1570: cursor check_mirror is
1571: select pcr2.contact_relationship_id,
1572: pcr2.object_version_number
1573: from per_contact_relationships pcr1,
1574: per_contact_relationships pcr2
1575: where pcr2.contact_person_id = pcr1.person_id
1576: and pcr2.person_id = pcr1.contact_person_id
1577: and pcr1.contact_relationship_id = p_contact_relationship_id
1578: and pcr2.contact_type = l_mirror_contact_type; -- bug# 2742210
1585: and effective_end_date = hr_general.end_of_time;
1586: --
1587: cursor csr_contact_person is
1588: select contact_person_id,contact_type
1589: from per_contact_relationships
1590: where contact_relationship_id = p_contact_relationship_id;
1591: --
1592: l_mirror_rec check_mirror%ROWTYPE;
1593: l_effective_start_date date;
1637: --
1638: -- If Relationship has a mirror row then then we have to delete the mirror rel.
1639: -- Have to do this first otherwise the cursor will always fail.
1640: -- start of code for bug 2742210
1641: l_mirror_contact_type := per_contact_relationships_pkg.get_mirror_contact_type
1642: (l_contact_type);
1643: -- end of code for bug 2742210
1644: open check_mirror;
1645: fetch check_mirror into l_mirror_rec;
1674: and hr_contact_relationships.multiple_contacts(l_contact_person_id) = 'N') then
1675: --
1676: hr_utility.set_location(l_proc, 31);
1677: --
1678: per_contact_relationships_pkg.delete_validation
1679: (l_contact_person_id
1680: ,p_contact_relationship_id
1681: );
1682: -- delete the person