1 PACKAGE body hr_kr_utility as
2 /* $Header: hrkrutil.pkb 115.1 2003/04/15 08:16:22 agore noship $ */
3 FUNCTION per_kr_full_name(
4 p_first_name in varchar2
5 ,p_middle_names in varchar2
6 ,p_last_name in varchar2
7 ,p_known_as in varchar2
8 ,p_title in varchar2
9 ,p_suffix in varchar2
10 ,p_pre_name_adjunct in varchar2
11 ,p_per_information1 in varchar2
12 ,p_per_information2 in varchar2
13 ,p_per_information3 in varchar2
14 ,p_per_information4 in varchar2
15 ,p_per_information5 in varchar2
16 ,p_per_information6 in varchar2
17 ,p_per_information7 in varchar2
18 ,p_per_information8 in varchar2
19 ,p_per_information9 in varchar2
20 ,p_per_information10 in varchar2
21 ,p_per_information11 in varchar2
22 ,p_per_information12 in varchar2
23 ,p_per_information13 in varchar2
24 ,p_per_information14 in varchar2
25 ,p_per_information15 in varchar2
26 ,p_per_information16 in varchar2
27 ,p_per_information17 in varchar2
28 ,p_per_information18 in varchar2
29 ,p_per_information19 in varchar2
30 ,p_per_information20 in varchar2
31 ,p_per_information21 in varchar2
32 ,p_per_information22 in varchar2
33 ,p_per_information23 in varchar2
34 ,p_per_information24 in varchar2
35 ,p_per_information25 in varchar2
36 ,p_per_information26 in varchar2
37 ,p_per_information27 in varchar2
38 ,p_per_information28 in varchar2
39 ,p_per_information29 in varchar2
40 ,p_per_information30 in varchar2
41 ) return varchar2 as
42 l_full_name VARCHAR2(240);
43 begin
44 --
45 if p_per_information1 is not null and p_per_information2 is not null then
46 l_full_name:= p_last_name || p_first_name || '.' ||
47 p_per_information1 || ' ' || p_per_information2;
48 elsif p_per_information1 is not null then
49 l_full_name:= p_last_name || p_first_name || '.' ||
50 p_per_information1;
51 elsif p_per_information2 is not null then
52 l_full_name:= p_last_name || p_first_name || '.' ||
53 p_per_information2;
54 else
55 l_full_name:= p_last_name || p_first_name;
56 end if;
57 --
58 RETURN (l_full_name);
59 END per_kr_full_name;
60 end hr_kr_utility;