DBA Data[Home] [Help]

APPS.HR_PERSON_API dependencies on HR_UTILITY

Line 7: g_debug boolean := hr_utility.debug_enabled;

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

Line 234: hr_utility.set_location('Entering:'|| l_proc, 5);

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

Line 412: hr_utility.set_location(l_proc, 6);

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

Line 425: hr_utility.set_message(801, 'HR_7971_PER_PER_IN_PERSON');

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

Line 426: hr_utility.raise_error;

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

Line 431: hr_utility.set_location(l_proc, 7);

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

Line 460: hr_utility.set_location(l_proc, 8);

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

Line 695: -- Bug#885806. DBMS_OUTPUT.PUT_LINE calls were replaced with HR_UTILITY.TRACE...

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

Line 696: hr_utility.trace('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));

Line 697: hr_utility.trace('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));

Line 698: hr_utility.trace('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:

Line 709: hr_utility.set_location('In '||l_proc||' in the If condition of SVC date ',52);

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

Line 722: hr_utility.set_location('In '||l_proc||' in the If condition of (SVC -null) date ',54);

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

Line 733: -- Bug#885806. DBMS_OUTPUT.PUT_LINE calls were replaced with HR_UTILITY.TRACE...

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

Line 736: hr_utility.trace('PDS id '||to_char(l_period_of_service_id));

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

Line 737: hr_utility.trace('PDS ovn '||to_char(l_pds_object_version_number));

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

Line 754: hr_utility.set_location('In '||l_proc||' and phone no is: '||p_work_telephone, 63);

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;

Line 757: hr_utility.set_location('In '||l_proc||' and old phone no is: '||l_old_work_telephone, 64);

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;

Line 760: hr_utility.set_location('In '||l_proc||' and ovn is: '||l_phn_object_version_number, 65);

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;

Line 763: hr_utility.set_location('In '||l_proc||' and phone id is: '||l_phone_id, 66);

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.

Line 773: hr_utility.set_location('Creating new phone', 67);

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

Line 797: hr_utility.set_location('Deleting phone', 68);

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

Line 807: hr_utility.set_location('Updating phone in correction mode', 67);

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,

Line 827: hr_utility.set_location('Updating old phone in update mode', 69);

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,

Line 842: hr_utility.set_location('Capping old phone in update mode', 70);

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,

Line 851: hr_utility.set_location('Creating new phone in update mode', 71);

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

Line 875: hr_utility.set_location(l_proc,87);

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

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

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

Line 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

Line 1063: hr_utility.set_location(' Leaving:'||l_proc, 10);

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

Line 1272: hr_utility.set_location('Entering:'|| l_proc, 5);

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

Line 1287: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');

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

Line 1288: hr_utility.raise_error;

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

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

Line 1298: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');

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

Line 1299: hr_utility.set_message_token('LEG_CODE','GB');

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

Line 1300: hr_utility.raise_error;

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;

Line 1303: hr_utility.set_location(l_proc, 30);

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

Line 1433: hr_utility.set_location(' Leaving:'||l_proc, 7);

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

Line 1589: hr_utility.set_location('Entering:'|| l_proc, 5);

1585: between per.effective_start_date and per.effective_end_date;
1586: --
1587: begin
1588: if g_debug then
1589: hr_utility.set_location('Entering:'|| l_proc, 5);
1590: end if;
1591: --
1592: -- Initialise local variables
1593: --

Line 1604: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');

1600: open check_legislation(p_person_id, l_effective_date);
1601: fetch check_legislation into l_legislation_code;
1602: if check_legislation%notfound then
1603: close check_legislation;
1604: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
1605: hr_utility.raise_error;
1606: end if;
1607: close check_legislation;
1608: if g_debug then

Line 1605: hr_utility.raise_error;

1601: fetch check_legislation into l_legislation_code;
1602: if check_legislation%notfound then
1603: close check_legislation;
1604: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
1605: hr_utility.raise_error;
1606: end if;
1607: close check_legislation;
1608: if g_debug then
1609: hr_utility.set_location(l_proc, 20);

Line 1609: hr_utility.set_location(l_proc, 20);

1605: hr_utility.raise_error;
1606: end if;
1607: close check_legislation;
1608: if g_debug then
1609: hr_utility.set_location(l_proc, 20);
1610: end if;
1611: --
1612: -- Check that the legislation of the specified business group is 'US'.
1613: --

Line 1615: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');

1611: --
1612: -- Check that the legislation of the specified business group is 'US'.
1613: --
1614: if l_legislation_code <> 'US' then
1615: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
1616: hr_utility.set_message_token('LEG_CODE','US');
1617: hr_utility.raise_error;
1618: end if;
1619: if g_debug then

Line 1616: hr_utility.set_message_token('LEG_CODE','US');

1612: -- Check that the legislation of the specified business group is 'US'.
1613: --
1614: if l_legislation_code <> 'US' then
1615: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
1616: hr_utility.set_message_token('LEG_CODE','US');
1617: hr_utility.raise_error;
1618: end if;
1619: if g_debug then
1620: hr_utility.set_location(l_proc, 30);

Line 1617: hr_utility.raise_error;

1613: --
1614: if l_legislation_code <> 'US' then
1615: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
1616: hr_utility.set_message_token('LEG_CODE','US');
1617: hr_utility.raise_error;
1618: end if;
1619: if g_debug then
1620: hr_utility.set_location(l_proc, 30);
1621: end if;

Line 1620: hr_utility.set_location(l_proc, 30);

1616: hr_utility.set_message_token('LEG_CODE','US');
1617: hr_utility.raise_error;
1618: end if;
1619: if g_debug then
1620: hr_utility.set_location(l_proc, 30);
1621: end if;
1622: --
1623: -- Update the person record using the update_person BP
1624: --

Line 1749: hr_utility.set_location('Leaving: '||l_proc, 30);

1745: ,p_assign_payroll_warning => p_assign_payroll_warning
1746: ,p_orig_hire_warning => p_orig_hire_warning
1747: );
1748: if g_debug then
1749: hr_utility.set_location('Leaving: '||l_proc, 30);
1750: end if;
1751: --
1752: end update_us_person;
1753: --

Line 1806: hr_utility.set_location('Entering:'|| l_proc, 5);

1802: close chk_person_type;
1803: --
1804:
1805: if g_debug then
1806: hr_utility.set_location('Entering:'|| l_proc, 5);
1807: hr_utility.set_location('p_effective_date:'||
1808: to_char(p_effective_date,'DD/MM/YYYY'), 5);
1809: hr_utility.set_location('p_person_id :'|| p_person_id, 5);
1810: end if;

Line 1807: hr_utility.set_location('p_effective_date:'||

1803: --
1804:
1805: if g_debug then
1806: hr_utility.set_location('Entering:'|| l_proc, 5);
1807: hr_utility.set_location('p_effective_date:'||
1808: to_char(p_effective_date,'DD/MM/YYYY'), 5);
1809: hr_utility.set_location('p_person_id :'|| p_person_id, 5);
1810: end if;
1811: --

Line 1809: hr_utility.set_location('p_person_id :'|| p_person_id, 5);

1805: if g_debug then
1806: hr_utility.set_location('Entering:'|| l_proc, 5);
1807: hr_utility.set_location('p_effective_date:'||
1808: to_char(p_effective_date,'DD/MM/YYYY'), 5);
1809: hr_utility.set_location('p_person_id :'|| p_person_id, 5);
1810: end if;
1811: --
1812: -- Initialise local variables before call to hr_person_bk2.delete_person_b
1813: --

Line 1842: hr_utility.set_location(l_proc, 6);

1838: --
1839: end;
1840: --
1841: if g_debug then
1842: hr_utility.set_location(l_proc, 6);
1843: end if;
1844: --
1845: -- Check whether the person is manager for any organization.
1846: -- If so, set the out warning parameter.

Line 1862: hr_utility.set_location(l_proc, 7);

1858: (p_person_id => p_person_id
1859: ,p_effective_date => l_effective_date);
1860: --
1861: if g_debug then
1862: hr_utility.set_location(l_proc, 7);
1863: end if;
1864: --
1865: -- Depending on the parameter p_perform_predel_validation,
1866: -- additional Core HR validations (strong validations).

Line 1887: hr_utility.set_location(l_proc, 8);

1883: (p_person_id => p_person_id
1884: ,p_effective_date => l_effective_date);
1885: --
1886: if g_debug then
1887: hr_utility.set_location(l_proc, 8);
1888: end if;
1889: --
1890: begin
1891: --

Line 1918: hr_utility.set_location('before calling purge_person ', 90);

1914: end if;
1915: --
1916:
1917: /*----- for TCA person Purge Start for the bug 3945358 -*/
1918: hr_utility.set_location('before calling purge_person ', 90);
1919: begin
1920: for I in RelVersion
1921: loop
1922: if I.RELEASE_NAME not in ('11.5.1', '11.5.2','11.5.3','11.5.4','11.5.5') then

Line 1935: hr_utility.set_location('After calling purge_person ', 91);

1931: ROLLBACK TO hr_delete_person;
1932: end;
1933: end if;
1934: end loop;
1935: hr_utility.set_location('After calling purge_person ', 91);
1936: end;
1937: /*----- End for TCA person Purge -*/
1938:
1939: if g_debug then

Line 1940: hr_utility.set_location(' Leaving:'||l_proc, 100);

1936: end;
1937: /*----- End for TCA person Purge -*/
1938:
1939: if g_debug then
1940: hr_utility.set_location(' Leaving:'||l_proc, 100);
1941: end if;
1942: --
1943: exception
1944: when hr_api.validate_enabled then