1: package body hr_tca_utility as
2: /* $Header: petcautl.pkb 115.3 2004/06/29 10:09:41 tpapired noship $ */
3:
4: g_package varchar2(30) := 'hr_tca_utility.';
5: -- ----------------------------------------------------------------------------
1: package body hr_tca_utility as
2: /* $Header: petcautl.pkb 115.3 2004/06/29 10:09:41 tpapired noship $ */
3:
4: g_package varchar2(30) := 'hr_tca_utility.';
5: -- ----------------------------------------------------------------------------
6: -- |------------------------------< get_person_id >---------------------------|
7: -- ----------------------------------------------------------------------------
8: PROCEDURE get_person_id
97: hr_utility.set_location('Leaving '||l_proc,100);
98: --
99: end;
100: --
101: end hr_tca_utility;
102: --