[Home] [Help]
PACKAGE BODY: APPS.HR_FR_UTILITY
Source
1 PACKAGE BODY HR_FR_UTILITY AS
2 /* $Header: hrfrutl1.pkb 115.6 2002/06/07 10:18:54 pkm ship $ */
3 --
4 FUNCTION per_fr_full_name(
5 p_first_name in varchar2
6 ,p_middle_names in varchar2
7 ,p_last_name in varchar2
8 ,p_known_as in varchar2
9 ,p_title in varchar2
10 ,p_suffix in varchar2
11 ,p_pre_name_adjunct in varchar2
12 ,p_per_information1 in varchar2
13 ,p_per_information2 in varchar2
14 ,p_per_information3 in varchar2
15 ,p_per_information4 in varchar2
16 ,p_per_information5 in varchar2
17 ,p_per_information6 in varchar2
18 ,p_per_information7 in varchar2
19 ,p_per_information8 in varchar2
20 ,p_per_information9 in varchar2
21 ,p_per_information10 in varchar2
22 ,p_per_information11 in varchar2
23 ,p_per_information12 in varchar2
24 ,p_per_information13 in varchar2
25 ,p_per_information14 in varchar2
26 ,p_per_information15 in varchar2
27 ,p_per_information16 in varchar2
28 ,p_per_information17 in varchar2
29 ,p_per_information18 in varchar2
30 ,p_per_information19 in varchar2
31 ,p_per_information20 in varchar2
32 ,p_per_information21 in varchar2
33 ,p_per_information22 in varchar2
34 ,p_per_information23 in varchar2
35 ,p_per_information24 in varchar2
36 ,p_per_information25 in varchar2
37 ,p_per_information26 in varchar2
38 ,p_per_information27 in varchar2
39 ,p_per_information28 in varchar2
40 ,p_per_information29 in varchar2
41 ,p_per_information30 in VARCHAR2
42 )
43 RETURN VARCHAR2 IS
44 --
45 l_full_name per_all_people_f.full_name%type;
46 --
47 BEGIN
48 --
49 -- l_full_name := p_title || ' ' || p_last_name || ' ' || p_first_name;
50 if p_title is null then
51 l_full_name := substr(p_last_name || ', ' || p_first_name,1,240);
52 else
53 l_full_name := substr(p_last_name || ', ' || hr_general.decode_lookup('TITLE',p_title) || ' ' || p_first_name,1,240);
54 end if;
55 return (rtrim(l_full_name));
56 --
57 END;
58 --
59 --
60 FUNCTION per_fr_order_name(
61 p_first_name in varchar2
62 ,p_middle_names in varchar2
63 ,p_last_name in varchar2
64 ,p_known_as in varchar2
65 ,p_title in varchar2
66 ,p_suffix in varchar2
67 ,p_pre_name_adjunct in varchar2
68 ,p_per_information1 in varchar2
69 ,p_per_information2 in varchar2
70 ,p_per_information3 in varchar2
71 ,p_per_information4 in varchar2
72 ,p_per_information5 in varchar2
73 ,p_per_information6 in varchar2
74 ,p_per_information7 in varchar2
75 ,p_per_information8 in varchar2
76 ,p_per_information9 in varchar2
77 ,p_per_information10 in varchar2
78 ,p_per_information11 in varchar2
79 ,p_per_information12 in varchar2
80 ,p_per_information13 in varchar2
81 ,p_per_information14 in varchar2
82 ,p_per_information15 in varchar2
83 ,p_per_information16 in varchar2
84 ,p_per_information17 in varchar2
85 ,p_per_information18 in varchar2
86 ,p_per_information19 in varchar2
87 ,p_per_information20 in varchar2
88 ,p_per_information21 in varchar2
89 ,p_per_information22 in varchar2
90 ,p_per_information23 in varchar2
91 ,p_per_information24 in varchar2
92 ,p_per_information25 in varchar2
93 ,p_per_information26 in varchar2
94 ,p_per_information27 in varchar2
95 ,p_per_information28 in varchar2
96 ,p_per_information29 in varchar2
97 ,p_per_information30 in VARCHAR2
98 )
99 RETURN VARCHAR2 IS
100 --
101 l_order_name per_all_people_f.order_name%type;
102 --
103 BEGIN
104 --
105 l_order_name := substr(p_last_name || ' ' || p_first_name,1,240);
106 return (rtrim(l_order_name));
107 --
108 END;
109 --
110 --
111 END HR_FR_UTILITY;