[Home] [Help]
3: --
4: -- Package Variables
5: --
6: g_package varchar2(33) := 'hr_person_api.';
7: g_debug boolean := hr_utility.debug_enabled;
8: --
9: -- ----------------------------------------------------------------------------
10: -- |---------------------------< update_person >------------------------------|
11: -- ----------------------------------------------------------------------------
230: nvl(phn.date_to,p_effective_date);
231:
232: begin
233: if g_debug then
234: hr_utility.set_location('Entering:'|| l_proc, 5);
235: end if;
236: --
237:
238: -- Store initial values for IN OUT parameters
408: --
409: end;
410: --
411: if g_debug then
412: hr_utility.set_location(l_proc, 6);
413: end if;
414: --
415: -- Validation in addition to Table Handlers
416: --
421: into l_business_group_id;
422: --
423: if csr_bg%notfound then
424: close csr_bg;
425: hr_utility.set_message(801, 'HR_7971_PER_PER_IN_PERSON');
426: hr_utility.raise_error;
427: end if;
428: close csr_bg;
429: --
422: --
423: if csr_bg%notfound then
424: close csr_bg;
425: hr_utility.set_message(801, 'HR_7971_PER_PER_IN_PERSON');
426: hr_utility.raise_error;
427: end if;
428: close csr_bg;
429: --
430: if g_debug then
427: end if;
428: close csr_bg;
429: --
430: if g_debug then
431: hr_utility.set_location(l_proc, 7);
432: end if;
433: --
434: /*
435: This is obsolete. With introduction of Contingent Workers using the PTU model
456: end if;
457: */
458: --
459: if g_debug then
460: hr_utility.set_location(l_proc, 8);
461: end if;
462: --
463: -- Update the person record
464: --
691: open csr_period_of_service;
692: fetch csr_period_of_service
693: into l_period_of_service_id, l_pds_object_version_number,l_pds_adjusted_svc_date;
694: if csr_period_of_service%FOUND then
695: -- Bug#885806. DBMS_OUTPUT.PUT_LINE calls were replaced with HR_UTILITY.TRACE...
696: hr_utility.trace('doing the PDS update');
697: hr_utility.trace('PDS id '||to_char(l_period_of_service_id));
698: hr_utility.trace('PDS ovn '||to_char(l_pds_object_version_number));
699: -- dbms_output.put_line('doing the PDS update');
692: fetch csr_period_of_service
693: into l_period_of_service_id, l_pds_object_version_number,l_pds_adjusted_svc_date;
694: if csr_period_of_service%FOUND then
695: -- Bug#885806. DBMS_OUTPUT.PUT_LINE calls were replaced with HR_UTILITY.TRACE...
696: hr_utility.trace('doing the PDS update');
697: hr_utility.trace('PDS id '||to_char(l_period_of_service_id));
698: hr_utility.trace('PDS ovn '||to_char(l_pds_object_version_number));
699: -- dbms_output.put_line('doing the PDS update');
700: -- dbms_output.put_line('PDS id '||to_char(l_period_of_service_id));
693: into l_period_of_service_id, l_pds_object_version_number,l_pds_adjusted_svc_date;
694: if csr_period_of_service%FOUND then
695: -- Bug#885806. DBMS_OUTPUT.PUT_LINE calls were replaced with HR_UTILITY.TRACE...
696: hr_utility.trace('doing the PDS update');
697: hr_utility.trace('PDS id '||to_char(l_period_of_service_id));
698: hr_utility.trace('PDS ovn '||to_char(l_pds_object_version_number));
699: -- dbms_output.put_line('doing the PDS update');
700: -- dbms_output.put_line('PDS id '||to_char(l_period_of_service_id));
701: -- dbms_output.put_line('PDS ovn '||to_char(l_pds_object_version_number));
694: if csr_period_of_service%FOUND then
695: -- Bug#885806. DBMS_OUTPUT.PUT_LINE calls were replaced with HR_UTILITY.TRACE...
696: hr_utility.trace('doing the PDS update');
697: hr_utility.trace('PDS id '||to_char(l_period_of_service_id));
698: hr_utility.trace('PDS ovn '||to_char(l_pds_object_version_number));
699: -- dbms_output.put_line('doing the PDS update');
700: -- dbms_output.put_line('PDS id '||to_char(l_period_of_service_id));
701: -- dbms_output.put_line('PDS ovn '||to_char(l_pds_object_version_number));
702:
705: if (l_adjusted_svc_date is null or l_adjusted_svc_date <> hr_api.g_date) --fix for 2497699
706: and nvl(l_pds_adjusted_svc_date,hr_api.g_date) <> nvl(l_adjusted_svc_date,hr_api.g_date)
707: then
708: if g_debug then
709: hr_utility.set_location('In '||l_proc||' in the If condition of SVC date ',52);
710: end if;
711: per_pds_upd.upd
712: (p_adjusted_svc_date => l_adjusted_svc_date
713: ,p_effective_date => l_effective_date
718: /* elsif nvl(l_adjusted_svc_date,hr_api.g_date) = hr_api.g_date --fix for 4924261
719: and nvl(l_pds_adjusted_svc_date,hr_api.g_date) <> nvl(l_adjusted_svc_date,hr_api.g_date)
720: then
721: if g_debug then
722: hr_utility.set_location('In '||l_proc||' in the If condition of (SVC -null) date ',54);
723: end if;
724: per_pds_upd.upd
725: (p_adjusted_svc_date => l_adjusted_svc_date
726: ,p_effective_date => l_effective_date
729: );*/
730: /*----------------------- end for the bug 4924261 -----------------------------------*/
731: end if;
732:
733: -- Bug#885806. DBMS_OUTPUT.PUT_LINE calls were replaced with HR_UTILITY.TRACE...
734: -- dbms_output.put_line('PDS id '||to_char(l_period_of_service_id));
735: -- dbms_output.put_line('PDS ovn '||to_char(l_pds_object_version_number));
736: hr_utility.trace('PDS id '||to_char(l_period_of_service_id));
737: hr_utility.trace('PDS ovn '||to_char(l_pds_object_version_number));
732:
733: -- Bug#885806. DBMS_OUTPUT.PUT_LINE calls were replaced with HR_UTILITY.TRACE...
734: -- dbms_output.put_line('PDS id '||to_char(l_period_of_service_id));
735: -- dbms_output.put_line('PDS ovn '||to_char(l_pds_object_version_number));
736: hr_utility.trace('PDS id '||to_char(l_period_of_service_id));
737: hr_utility.trace('PDS ovn '||to_char(l_pds_object_version_number));
738: end if;
739: close csr_period_of_service;
740: --
733: -- Bug#885806. DBMS_OUTPUT.PUT_LINE calls were replaced with HR_UTILITY.TRACE...
734: -- dbms_output.put_line('PDS id '||to_char(l_period_of_service_id));
735: -- dbms_output.put_line('PDS ovn '||to_char(l_pds_object_version_number));
736: hr_utility.trace('PDS id '||to_char(l_period_of_service_id));
737: hr_utility.trace('PDS ovn '||to_char(l_pds_object_version_number));
738: end if;
739: close csr_period_of_service;
740: --
741: -- Beginning of logic for the update of the phones table
750: close csr_phones;
751:
752:
753: if g_debug then
754: hr_utility.set_location('In '||l_proc||' and phone no is: '||p_work_telephone, 63);
755: end if;
756: if g_debug then
757: hr_utility.set_location('In '||l_proc||' and old phone no is: '||l_old_work_telephone, 64);
758: end if;
753: if g_debug then
754: hr_utility.set_location('In '||l_proc||' and phone no is: '||p_work_telephone, 63);
755: end if;
756: if g_debug then
757: hr_utility.set_location('In '||l_proc||' and old phone no is: '||l_old_work_telephone, 64);
758: end if;
759: if g_debug then
760: hr_utility.set_location('In '||l_proc||' and ovn is: '||l_phn_object_version_number, 65);
761: end if;
756: if g_debug then
757: hr_utility.set_location('In '||l_proc||' and old phone no is: '||l_old_work_telephone, 64);
758: end if;
759: if g_debug then
760: hr_utility.set_location('In '||l_proc||' and ovn is: '||l_phn_object_version_number, 65);
761: end if;
762: if g_debug then
763: hr_utility.set_location('In '||l_proc||' and phone id is: '||l_phone_id, 66);
764: end if;
759: if g_debug then
760: hr_utility.set_location('In '||l_proc||' and ovn is: '||l_phn_object_version_number, 65);
761: end if;
762: if g_debug then
763: hr_utility.set_location('In '||l_proc||' and phone id is: '||l_phone_id, 66);
764: end if;
765: --
766: -- If old entry is null and new entry is not null then just use the create
767: -- phone B.P. This step is the same regardless of dt upd mode.
769: if (p_work_telephone <> hr_api.g_varchar2) then
770: if (l_old_work_telephone is null and
771: p_work_telephone is not null) then
772: if g_debug then
773: hr_utility.set_location('Creating new phone', 67);
774: end if;
775: hr_phone_api.create_phone
776: (p_date_from => l_effective_date
777: ,p_date_to => null
793: -- If old entry is not null and corrected entry is null then delete the phone.
794: --
795: if l_old_work_telephone is not null and p_work_telephone is null then
796: if g_debug then
797: hr_utility.set_location('Deleting phone', 68);
798: end if;
799: hr_phone_api.delete_phone(FALSE, l_phone_id, l_phn_object_version_number);
800:
801: --
803: -- no changes to start and to dates.
804: --
805: elsif l_old_work_telephone is not null and p_work_telephone is not null then
806: if g_debug then
807: hr_utility.set_location('Updating phone in correction mode', 67);
808: end if;
809: hr_phone_api.update_phone
810: (p_phone_id => l_phone_id,
811: p_phone_number => p_work_telephone,
823: -- phone to have an end date of the day before the effective date.
824: --
825: if l_old_work_telephone is not null and p_work_telephone is null then
826: if g_debug then
827: hr_utility.set_location('Updating old phone in update mode', 69);
828: end if;
829: hr_phone_api.update_phone
830: (p_phone_id => l_phone_id,
831: p_date_to => l_effective_date - 1,
838: --
839: elsif l_old_work_telephone is not null and p_work_telephone is not null then
840:
841: if g_debug then
842: hr_utility.set_location('Capping old phone in update mode', 70);
843: end if;
844: hr_phone_api.update_phone
845: (p_phone_id => l_phone_id,
846: p_date_to => l_effective_date -1,
847: p_object_version_number => l_phn_object_version_number,
848: p_effective_date => l_effective_date);
849:
850: if g_debug then
851: hr_utility.set_location('Creating new phone in update mode', 71);
852: end if;
853: hr_phone_api.create_phone
854: (p_date_from => l_effective_date
855: ,p_date_to => l_phn_date_to
871: --
872:
873: if l_name_combination_warning = FALSE then
874: if g_debug then
875: hr_utility.set_location(l_proc,87);
876: end if;
877: elsif l_name_combination_warning = TRUE then
878: if g_debug then
879: hr_utility.set_location(l_proc,88);
875: hr_utility.set_location(l_proc,87);
876: end if;
877: elsif l_name_combination_warning = TRUE then
878: if g_debug then
879: hr_utility.set_location(l_proc,88);
880: end if;
881: else
882: if g_debug then
883: hr_utility.set_location(l_proc,89);
879: hr_utility.set_location(l_proc,88);
880: end if;
881: else
882: if g_debug then
883: hr_utility.set_location(l_proc,89);
884: end if;
885: end if;
886: if g_debug then
887: hr_utility.set_location(l_proc, 90);
883: hr_utility.set_location(l_proc,89);
884: end if;
885: end if;
886: if g_debug then
887: hr_utility.set_location(l_proc, 90);
888: end if;
889: begin
890: --
891: -- Start of API User Hook for the after hook of update_person
1059: if p_validate then
1060: raise hr_api.validate_enabled;
1061: end if;
1062: if g_debug then
1063: hr_utility.set_location(' Leaving:'||l_proc, 10);
1064: end if;
1065: exception
1066: when hr_api.validate_enabled then
1067: --
1268: --
1269: begin
1270:
1271: if g_debug then
1272: hr_utility.set_location('Entering:'|| l_proc, 5);
1273: end if;
1274: --
1275: -- Initialise local variables
1276: --
1283: open check_legislation(p_person_id, l_effective_date);
1284: fetch check_legislation into l_legislation_code;
1285: if check_legislation%notfound then
1286: close check_legislation;
1287: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
1288: hr_utility.raise_error;
1289: end if;
1290: close check_legislation;
1291: if g_debug then
1284: fetch check_legislation into l_legislation_code;
1285: if check_legislation%notfound then
1286: close check_legislation;
1287: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
1288: hr_utility.raise_error;
1289: end if;
1290: close check_legislation;
1291: if g_debug then
1292: hr_utility.set_location(l_proc, 20);
1288: hr_utility.raise_error;
1289: end if;
1290: close check_legislation;
1291: if g_debug then
1292: hr_utility.set_location(l_proc, 20);
1293: end if;
1294: --
1295: -- Check that the legislation of the specified business group is 'GB'.
1296: --
1294: --
1295: -- Check that the legislation of the specified business group is 'GB'.
1296: --
1297: if l_legislation_code <> 'GB' then
1298: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
1299: hr_utility.set_message_token('LEG_CODE','GB');
1300: hr_utility.raise_error;
1301: end if;
1302: if g_debug then
1295: -- Check that the legislation of the specified business group is 'GB'.
1296: --
1297: if l_legislation_code <> 'GB' then
1298: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
1299: hr_utility.set_message_token('LEG_CODE','GB');
1300: hr_utility.raise_error;
1301: end if;
1302: if g_debug then
1303: hr_utility.set_location(l_proc, 30);
1296: --
1297: if l_legislation_code <> 'GB' then
1298: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
1299: hr_utility.set_message_token('LEG_CODE','GB');
1300: hr_utility.raise_error;
1301: end if;
1302: if g_debug then
1303: hr_utility.set_location(l_proc, 30);
1304: end if;
1299: hr_utility.set_message_token('LEG_CODE','GB');
1300: hr_utility.raise_error;
1301: end if;
1302: if g_debug then
1303: hr_utility.set_location(l_proc, 30);
1304: end if;
1305: --
1306: -- Update the person record using the update_person BP
1307: --
1429: ,p_orig_hire_warning => p_orig_hire_warning
1430: );
1431: --
1432: if g_debug then
1433: hr_utility.set_location(' Leaving:'||l_proc, 7);
1434: end if;
1435: --
1436: end update_gb_person;
1437: --
1596: begin
1597: l_effective_date := trunc(p_effective_date);
1598: /*
1599: if g_debug then
1600: hr_utility.set_location('Entering:'|| l_proc, 5);
1601: end if;
1602: --
1603: -- Initialise local variables
1604: --
1611: open check_legislation(p_person_id, l_effective_date);
1612: fetch check_legislation into l_legislation_code;
1613: if check_legislation%notfound then
1614: close check_legislation;
1615: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
1616: hr_utility.raise_error;
1617: end if;
1618: close check_legislation;
1619: if g_debug then
1612: fetch check_legislation into l_legislation_code;
1613: if check_legislation%notfound then
1614: close check_legislation;
1615: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
1616: hr_utility.raise_error;
1617: end if;
1618: close check_legislation;
1619: if g_debug then
1620: hr_utility.set_location(l_proc, 20);
1616: hr_utility.raise_error;
1617: end if;
1618: close check_legislation;
1619: if g_debug then
1620: hr_utility.set_location(l_proc, 20);
1621: end if;
1622: --
1623: -- Check that the legislation of the specified business group is 'US'.
1624: --
1622: --
1623: -- Check that the legislation of the specified business group is 'US'.
1624: --
1625: if l_legislation_code <> 'US' then
1626: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
1627: hr_utility.set_message_token('LEG_CODE','US');
1628: hr_utility.raise_error;
1629: end if;
1630: if g_debug then
1623: -- Check that the legislation of the specified business group is 'US'.
1624: --
1625: if l_legislation_code <> 'US' then
1626: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
1627: hr_utility.set_message_token('LEG_CODE','US');
1628: hr_utility.raise_error;
1629: end if;
1630: if g_debug then
1631: hr_utility.set_location(l_proc, 30);
1624: --
1625: if l_legislation_code <> 'US' then
1626: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
1627: hr_utility.set_message_token('LEG_CODE','US');
1628: hr_utility.raise_error;
1629: end if;
1630: if g_debug then
1631: hr_utility.set_location(l_proc, 30);
1632: end if;
1627: hr_utility.set_message_token('LEG_CODE','US');
1628: hr_utility.raise_error;
1629: end if;
1630: if g_debug then
1631: hr_utility.set_location(l_proc, 30);
1632: end if;
1633: */
1634: --
1635: -- Update the person record using the update_person BP
1760: ,p_assign_payroll_warning => p_assign_payroll_warning
1761: ,p_orig_hire_warning => p_orig_hire_warning
1762: );
1763: /* if g_debug then
1764: hr_utility.set_location('Leaving: '||l_proc, 30);
1765: end if;
1766: */
1767: --
1768: end update_us_person;
1917: between per.effective_start_date and per.effective_end_date;
1918: --
1919: begin
1920: if g_debug then
1921: hr_utility.set_location('Entering:'|| l_proc, 5);
1922: end if;
1923: --
1924: -- Initialise local variables
1925: --
1932: open check_legislation(p_person_id, l_effective_date);
1933: fetch check_legislation into l_legislation_code;
1934: if check_legislation%notfound then
1935: close check_legislation;
1936: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
1937: hr_utility.raise_error;
1938: end if;
1939: close check_legislation;
1940: if g_debug then
1933: fetch check_legislation into l_legislation_code;
1934: if check_legislation%notfound then
1935: close check_legislation;
1936: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
1937: hr_utility.raise_error;
1938: end if;
1939: close check_legislation;
1940: if g_debug then
1941: hr_utility.set_location(l_proc, 20);
1937: hr_utility.raise_error;
1938: end if;
1939: close check_legislation;
1940: if g_debug then
1941: hr_utility.set_location(l_proc, 20);
1942: end if;
1943: --
1944: -- Check that the legislation of the specified business group is 'US'.
1945: --
1943: --
1944: -- Check that the legislation of the specified business group is 'US'.
1945: --
1946: if l_legislation_code <> 'US' then
1947: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
1948: hr_utility.set_message_token('LEG_CODE','US');
1949: hr_utility.raise_error;
1950: end if;
1951: if g_debug then
1944: -- Check that the legislation of the specified business group is 'US'.
1945: --
1946: if l_legislation_code <> 'US' then
1947: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
1948: hr_utility.set_message_token('LEG_CODE','US');
1949: hr_utility.raise_error;
1950: end if;
1951: if g_debug then
1952: hr_utility.set_location(l_proc, 30);
1945: --
1946: if l_legislation_code <> 'US' then
1947: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
1948: hr_utility.set_message_token('LEG_CODE','US');
1949: hr_utility.raise_error;
1950: end if;
1951: if g_debug then
1952: hr_utility.set_location(l_proc, 30);
1953: end if;
1948: hr_utility.set_message_token('LEG_CODE','US');
1949: hr_utility.raise_error;
1950: end if;
1951: if g_debug then
1952: hr_utility.set_location(l_proc, 30);
1953: end if;
1954: --
1955: -- Update the person record using the update_person BP
1956: --
2078: ,p_assign_payroll_warning => p_assign_payroll_warning
2079: ,p_orig_hire_warning => p_orig_hire_warning
2080: );
2081: if g_debug then
2082: hr_utility.set_location('Leaving: '||l_proc, 30);
2083: end if;
2084: --
2085: end update_us_person;
2086:
2135: close chk_person_type;
2136: --
2137:
2138: if g_debug then
2139: hr_utility.set_location('Entering:'|| l_proc, 5);
2140: hr_utility.set_location('p_effective_date:'||
2141: to_char(p_effective_date,'DD/MM/YYYY'), 5);
2142: hr_utility.set_location('p_person_id :'|| p_person_id, 5);
2143: end if;
2136: --
2137:
2138: if g_debug then
2139: hr_utility.set_location('Entering:'|| l_proc, 5);
2140: hr_utility.set_location('p_effective_date:'||
2141: to_char(p_effective_date,'DD/MM/YYYY'), 5);
2142: hr_utility.set_location('p_person_id :'|| p_person_id, 5);
2143: end if;
2144: --
2138: if g_debug then
2139: hr_utility.set_location('Entering:'|| l_proc, 5);
2140: hr_utility.set_location('p_effective_date:'||
2141: to_char(p_effective_date,'DD/MM/YYYY'), 5);
2142: hr_utility.set_location('p_person_id :'|| p_person_id, 5);
2143: end if;
2144: --
2145: -- Initialise local variables before call to hr_person_bk2.delete_person_b
2146: --
2171: --
2172: end;
2173: --
2174: if g_debug then
2175: hr_utility.set_location(l_proc, 6);
2176: end if;
2177: --
2178: -- Check whether the person is manager for any organization.
2179: -- If so, set the out warning parameter.
2191: (p_person_id => p_person_id
2192: ,p_effective_date => l_effective_date);
2193: --
2194: if g_debug then
2195: hr_utility.set_location(l_proc, 7);
2196: end if;
2197: --
2198: -- Depending on the parameter p_perform_predel_validation,
2199: -- additional Core HR validations (strong validations).
2216: (p_person_id => p_person_id
2217: ,p_effective_date => l_effective_date);
2218: --
2219: if g_debug then
2220: hr_utility.set_location(l_proc, 8);
2221: end if;
2222: --
2223: begin
2224: --
2247: end if;
2248: --
2249:
2250: /*----- for TCA person Purge Start for the bug 3945358 -*/
2251: hr_utility.set_location('before calling purge_person ', 90);
2252: begin
2253: for I in RelVersion
2254: loop
2255: if I.RELEASE_NAME not in ('11.5.1', '11.5.2','11.5.3','11.5.4','11.5.5') then
2264: ROLLBACK TO hr_delete_person;
2265: end;
2266: end if;
2267: end loop;
2268: hr_utility.set_location('After calling purge_person ', 91);
2269: end;
2270: /*----- End for TCA person Purge -*/
2271:
2272: if g_debug then
2269: end;
2270: /*----- End for TCA person Purge -*/
2271:
2272: if g_debug then
2273: hr_utility.set_location(' Leaving:'||l_proc, 100);
2274: end if;
2275: --
2276: exception
2277: when hr_api.validate_enabled then
2378: CLOSE get_pgp;
2379: END IF;
2380:
2381: if g_debug then
2382: hr_utility.set_location(l_proc, 1);
2383: end if;
2384:
2385: IF ass_rec.soft_coding_keyflex_id IS NOT NULL THEN
2386: OPEN get_scl(ass_rec.soft_coding_keyflex_id);
2410: l_assignment_id := t_assignment_id;
2411: if assignment_record_update%rowcount = 1 then
2412: l_asg_object_version_number:=p_object_version_number;
2413: end if;
2414: hr_utility.set_location('l_assignment_id ' || t_assignment_id,10);
2415: hr_utility.set_location('l_asg_object_version_number' || l_asg_object_version_number,10);
2416:
2417:
2418: open csr_old_asg_status(ass_rec.effective_start_date);
2411: if assignment_record_update%rowcount = 1 then
2412: l_asg_object_version_number:=p_object_version_number;
2413: end if;
2414: hr_utility.set_location('l_assignment_id ' || t_assignment_id,10);
2415: hr_utility.set_location('l_asg_object_version_number' || l_asg_object_version_number,10);
2416:
2417:
2418: open csr_old_asg_status(ass_rec.effective_start_date);
2419: fetch csr_old_asg_status into l_old_asg_status,l_old_asg_status_id;
2429: else
2430: l_assignment_status_type_id :=l_old_asg_status_id;
2431: end if;
2432: if g_debug then
2433: hr_utility.set_location(l_proc, 2);
2434: end if;
2435: hr_assignment_api.update_apl_asg
2436: (p_effective_date => ass_rec.effective_start_date --p_effective_date
2437: ,p_datetrack_update_mode => 'UPDATE'
2656:
2657:
2658: END LOOP;
2659: if g_debug then
2660: hr_utility.set_location(l_proc, 3);
2661: end if;
2662: select max(effective_end_date) into l_max_eff_end_date
2663: from per_all_assignments_f
2664: where assignment_id=s_assignment_id;
2673: );
2674:
2675: end if;
2676: if g_debug then
2677: hr_utility.set_location(l_proc, 4);
2678: end if;
2679: END update_assign_records;
2680:
2681: --
2780: l_new_assgn_status VARCHAR2(50); --fix for bug 9714569
2781:
2782: BEGIN
2783: if g_debug then
2784: hr_utility.set_location('Entering:'|| l_proc, 5);
2785: end if;
2786:
2787: OPEN csr_sys_person_type(p_source_person_id);
2788: FETCH csr_sys_person_type INTO l_s_person_type;
2812: FETCH csr_ptu_details INTO l_ptu_id;
2813: CLOSE csr_ptu_details;
2814:
2815: if g_debug then
2816: hr_utility.set_location(l_proc, 6);
2817: end if;
2818:
2819:
2820: IF (l_exists = 1
2825: p_perform_predel_validation => false,
2826: p_person_org_manager_warning => l_person_org_manager_warning);
2827: ELSIF (l_exists = 1
2828: AND p_term_or_purge_s = 'TERM') THEN
2829: -- hr_utility.set_message(800, 'HR_7092_WFLOW_INV_ACTION'); fix for bug 9691817.
2830: -- hr_utility.raise_error;
2831: null;
2832: END IF;
2833:
2826: p_person_org_manager_warning => l_person_org_manager_warning);
2827: ELSIF (l_exists = 1
2828: AND p_term_or_purge_s = 'TERM') THEN
2829: -- hr_utility.set_message(800, 'HR_7092_WFLOW_INV_ACTION'); fix for bug 9691817.
2830: -- hr_utility.raise_error;
2831: null;
2832: END IF;
2833:
2834: if g_debug then
2831: null;
2832: END IF;
2833:
2834: if g_debug then
2835: hr_utility.set_location(l_proc, 7);
2836: end if;
2837:
2838:
2839: IF (l_s_person_type = 'APL') THEN
2842: IF (hr_person_type_usage_info.Futsyspertypechgexists(l_ptu_id
2843: ,trunc(sysdate)
2844: ,p_source_person_id)
2845: ) THEN
2846: hr_utility.set_message(800, 'HR_7193_PER_FUT_TYPE_EXISTS');
2847: hr_utility.raise_error;
2848: END IF;
2849:
2850: if g_debug then
2843: ,trunc(sysdate)
2844: ,p_source_person_id)
2845: ) THEN
2846: hr_utility.set_message(800, 'HR_7193_PER_FUT_TYPE_EXISTS');
2847: hr_utility.raise_error;
2848: END IF;
2849:
2850: if g_debug then
2851: hr_utility.set_location(l_proc, 8);
2847: hr_utility.raise_error;
2848: END IF;
2849:
2850: if g_debug then
2851: hr_utility.set_location(l_proc, 8);
2852: end if;
2853:
2854: --fix for bug 9692642
2855:
2884: EXCEPTION
2885: WHEN OTHERS THEN
2886: NULL;
2887: if g_debug then
2888: hr_utility.set_location(l_proc, 8.1);
2889: end if;
2890: end;
2891:
2892: IF (l_prev_exists='Y')
2890: end;
2891:
2892: IF (l_prev_exists='Y')
2893: THEN
2894: hr_utility.set_message(800, 'PER_442266_PERSON_CANNOT_MERGE');
2895: hr_utility.raise_error;
2896: END IF;
2897:
2898: if g_debug then
2891:
2892: IF (l_prev_exists='Y')
2893: THEN
2894: hr_utility.set_message(800, 'PER_442266_PERSON_CANNOT_MERGE');
2895: hr_utility.raise_error;
2896: END IF;
2897:
2898: if g_debug then
2899: hr_utility.set_location(l_proc, 9);
2895: hr_utility.raise_error;
2896: END IF;
2897:
2898: if g_debug then
2899: hr_utility.set_location(l_proc, 9);
2900: end if;
2901:
2902: SELECT start_date,party_id
2903: INTO l_t_start_date,l_t_party_id
2970: NULL;
2971: END;
2972:
2973: if g_debug then
2974: hr_utility.set_location(l_proc, 10);
2975: end if;
2976:
2977: IF l_t_person_type IN ('APL','EMP_APL','EX_EMP_APL') and l_vac_exists<>1 and l_create_new_application='Y' THEN
2978:
2976:
2977: IF l_t_person_type IN ('APL','EMP_APL','EX_EMP_APL') and l_vac_exists<>1 and l_create_new_application='Y' THEN
2978:
2979: if g_debug then
2980: hr_utility.set_location(l_proc, 11);
2981: end if;
2982:
2983: BEGIN
2984:
3162: ,p_appl_override_warning => l_appl_override_warning
3163: );
3164:
3165: if g_debug then
3166: hr_utility.set_location(l_proc, 12);
3167: end if;
3168:
3169:
3170: Update_assign_records(l_per_assign_record.assignment_id,
3171: l_assignment_id,
3172: l_apl_ass_start_date,
3173: l_object_version_number);
3174: if g_debug then
3175: hr_utility.set_location(l_proc, 13);
3176: end if;
3177: IRC_INTERVIEW_DETAILS_API.copy_interview_details
3178: (p_source_assignment_id => l_per_assign_record.assignment_id
3179: ,p_target_assignment_id => l_assignment_id
3221: NULL;
3222: END;
3223:
3224: if g_debug then
3225: hr_utility.set_location(l_proc, 14);
3226: end if;
3227:
3228: ELSIF (l_t_person_type IN ('EMP','EX_EMP')
3229: or (l_t_person_type='OTHER' and l_t_party_id is null)
3248: ,p_per_effective_end_date => l_per_effective_end_date
3249: ,p_appl_override_warning => l_appl_override_warning);
3250:
3251: if g_debug then
3252: hr_utility.set_location(l_proc, 15);
3253: end if;
3254:
3255: hr_assignment_api.update_apl_asg
3256: (p_effective_date => l_apl_ass_start_date --p_effective_date
3472: --fix for bug end 9714569 here
3473:
3474:
3475: if g_debug then
3476: hr_utility.set_location(l_proc, 16);
3477: end if;
3478:
3479: Update_assign_records(l_per_assign_record.assignment_id
3480: ,l_assignment_id
3482: ,l_asg_object_version_number
3483: ,l_application_id );
3484:
3485: if g_debug then
3486: hr_utility.set_location(l_proc, 17);
3487: end if;
3488:
3489: IRC_INTERVIEW_DETAILS_API.copy_interview_details
3490: (p_source_assignment_id => l_per_assign_record.assignment_id
3521: END IF;
3522: END LOOP;
3523:
3524: if g_debug then
3525: hr_utility.set_location(l_proc, 18);
3526: end if;
3527:
3528: DECLARE
3529: l_object_version_number NUMBER;
3539: p_effective_start_date => l_effective_start_date,
3540: p_effective_end_date => l_effective_end_date);
3541:
3542: if g_debug then
3543: hr_utility.set_location(l_proc, 19);
3544: end if;
3545:
3546:
3547:
3555: END IF;
3556: END;
3557:
3558: if g_debug then
3559: hr_utility.set_location(l_proc, 20);
3560: end if;
3561:
3562:
3563: elsif l_exists <> 1 then
3560: end if;
3561:
3562:
3563: elsif l_exists <> 1 then
3564: hr_utility.set_message(800, 'HR_7092_WFLOW_INV_ACTION');
3565: hr_utility.raise_error;
3566:
3567: END IF;
3568: END merge_person;
3561:
3562:
3563: elsif l_exists <> 1 then
3564: hr_utility.set_message(800, 'HR_7092_WFLOW_INV_ACTION');
3565: hr_utility.raise_error;
3566:
3567: END IF;
3568: END merge_person;
3569:
3591: begin
3592:
3593:
3594: if g_debug then
3595: hr_utility.set_location('Entering:'|| l_proc, 5);
3596: hr_utility.set_location('p_target_party_id:'|| p_target_party_id, 5);
3597: hr_utility.set_location('p_source_party_id:'|| p_source_party_id, 5);
3598: end if;
3599:
3592:
3593:
3594: if g_debug then
3595: hr_utility.set_location('Entering:'|| l_proc, 5);
3596: hr_utility.set_location('p_target_party_id:'|| p_target_party_id, 5);
3597: hr_utility.set_location('p_source_party_id:'|| p_source_party_id, 5);
3598: end if;
3599:
3600: savepoint hr_merge_party;
3593:
3594: if g_debug then
3595: hr_utility.set_location('Entering:'|| l_proc, 5);
3596: hr_utility.set_location('p_target_party_id:'|| p_target_party_id, 5);
3597: hr_utility.set_location('p_source_party_id:'|| p_source_party_id, 5);
3598: end if;
3599:
3600: savepoint hr_merge_party;
3601:
3607: l_t_person_id:=null;
3608: l_t_bg_id :=null;
3609:
3610: if g_debug then
3611: hr_utility.set_location(l_proc, 6);
3612: end if;
3613:
3614: begin
3615: -- check if person exists with target party_id in same bg as of source person.
3632: end;
3633:
3634: end loop;
3635: if g_debug then
3636: hr_utility.set_location(l_proc, 7);
3637: end if;
3638:
3639: update per_all_people_f paaf
3640: set party_id=p_target_party_id