1 PACKAGE BODY HR_CA_UTILITY AS
2 /* $Header: hrcautil.pkb 120.2.12020000.2 2012/11/12 20:02:16 rgottipa ship $ */
3 --
4 FUNCTION per_ca_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 default hr_api.g_varchar2
13 ,p_per_information2 in varchar2 default hr_api.g_varchar2
14 ,p_per_information3 in varchar2 default hr_api.g_varchar2
15 ,p_per_information4 in varchar2 default hr_api.g_varchar2
16 ,p_per_information5 in varchar2 default hr_api.g_varchar2
17 ,p_per_information6 in varchar2 default hr_api.g_varchar2
18 ,p_per_information7 in varchar2 default hr_api.g_varchar2
19 ,p_per_information8 in varchar2 default hr_api.g_varchar2
20 ,p_per_information9 in varchar2 default hr_api.g_varchar2
21 ,p_per_information10 in varchar2 default hr_api.g_varchar2
22 ,p_per_information11 in varchar2 default hr_api.g_varchar2
23 ,p_per_information12 in varchar2 default hr_api.g_varchar2
24 ,p_per_information13 in varchar2 default hr_api.g_varchar2
25 ,p_per_information14 in varchar2 default hr_api.g_varchar2
26 ,p_per_information15 in varchar2 default hr_api.g_varchar2
27 ,p_per_information16 in varchar2 default hr_api.g_varchar2
28 ,p_per_information17 in varchar2 default hr_api.g_varchar2
29 ,p_per_information18 in varchar2 default hr_api.g_varchar2
30 ,p_per_information19 in varchar2 default hr_api.g_varchar2
31 ,p_per_information20 in varchar2 default hr_api.g_varchar2
32 ,p_per_information21 in varchar2 default hr_api.g_varchar2
33 ,p_per_information22 in varchar2 default hr_api.g_varchar2
34 ,p_per_information23 in varchar2 default hr_api.g_varchar2
35 ,p_per_information24 in varchar2 default hr_api.g_varchar2
36 ,p_per_information25 in varchar2 default hr_api.g_varchar2
37 ,p_per_information26 in varchar2 default hr_api.g_varchar2
38 ,p_per_information27 in varchar2 default hr_api.g_varchar2
39 ,p_per_information28 in varchar2 default hr_api.g_varchar2
40 ,p_per_information29 in varchar2 default hr_api.g_varchar2
41 ,p_per_information30 in VARCHAR2 default hr_api.g_varchar2
42 )
43 RETURN VARCHAR2 IS
44 --
45 l_full_name varchar2(240);
46 --Start of fix for Bug 2470801
47 l_title_meaning varchar2(80);
48 --End of fix for Bug 2470801
49
50 --
51 BEGIN
52 --
53 --Start of fix for Bug 2470801
54 if p_title IS NOT NULL and
55 fnd_profile.value('PER_USE_TITLE_IN_FULL_NAME') = 'Y' then
56 SELECT meaning
57 INTO l_title_meaning
58 FROM hr_lookups
59 WHERE lookup_type = 'TITLE'
60 AND p_title = lookup_code;
61 end if;
62 --End of fix for Bug 2470801
63
64 SELECT SUBSTR(DECODE(p_pre_name_adjunct,'','',p_pre_name_adjunct||' ')||
65 p_last_name||','||DECODE(l_title_meaning,'','',
66 ' '||l_title_meaning)|| DECODE(p_first_name,'','',
67 ' '||p_first_name)||DECODE(p_middle_names,'','',
68 ' '||p_middle_names)||
69 DECODE(p_suffix,'','',' '||p_suffix),1,240)
70 INTO l_full_name
71 FROM sys.dual ;
72
73 hr_utility.set_location('hr_us_utility',1);
74 return l_full_name;
75 --
76 END;
77 --
78 --
79 FUNCTION per_ca_order_name(
80 p_first_name in varchar2
81 ,p_middle_names in varchar2
82 ,p_last_name in varchar2
83 ,p_known_as in varchar2
84 ,p_title in varchar2
85 ,p_suffix in varchar2
86 ,p_pre_name_adjunct in varchar2
87 ,p_per_information1 in varchar2 default hr_api.g_varchar2
88 ,p_per_information2 in varchar2 default hr_api.g_varchar2
89 ,p_per_information3 in varchar2 default hr_api.g_varchar2
90 ,p_per_information4 in varchar2 default hr_api.g_varchar2
91 ,p_per_information5 in varchar2 default hr_api.g_varchar2
92 ,p_per_information6 in varchar2 default hr_api.g_varchar2
93 ,p_per_information7 in varchar2 default hr_api.g_varchar2
94 ,p_per_information8 in varchar2 default hr_api.g_varchar2
95 ,p_per_information9 in varchar2 default hr_api.g_varchar2
96 ,p_per_information10 in varchar2 default hr_api.g_varchar2
97 ,p_per_information11 in varchar2 default hr_api.g_varchar2
98 ,p_per_information12 in varchar2 default hr_api.g_varchar2
99 ,p_per_information13 in varchar2 default hr_api.g_varchar2
100 ,p_per_information14 in varchar2 default hr_api.g_varchar2
101 ,p_per_information15 in varchar2 default hr_api.g_varchar2
102 ,p_per_information16 in varchar2 default hr_api.g_varchar2
103 ,p_per_information17 in varchar2 default hr_api.g_varchar2
104 ,p_per_information18 in varchar2 default hr_api.g_varchar2
105 ,p_per_information19 in varchar2 default hr_api.g_varchar2
106 ,p_per_information20 in varchar2 default hr_api.g_varchar2
107 ,p_per_information21 in varchar2 default hr_api.g_varchar2
108 ,p_per_information22 in varchar2 default hr_api.g_varchar2
109 ,p_per_information23 in varchar2 default hr_api.g_varchar2
110 ,p_per_information24 in varchar2 default hr_api.g_varchar2
111 ,p_per_information25 in varchar2 default hr_api.g_varchar2
112 ,p_per_information26 in varchar2 default hr_api.g_varchar2
113 ,p_per_information27 in varchar2 default hr_api.g_varchar2
114 ,p_per_information28 in varchar2 default hr_api.g_varchar2
115 ,p_per_information29 in varchar2 default hr_api.g_varchar2
116 ,p_per_information30 in VARCHAR2 default hr_api.g_varchar2
117 )
118 RETURN VARCHAR2 IS
119 --
120 l_order_name varchar2(240);
121 --
122 BEGIN
123 --
124
125 SELECT SUBSTR(DECODE(p_pre_name_adjunct,'','',p_pre_name_adjunct||' ')||
126 p_last_name||','||
127 DECODE(p_first_name,'','',
128 ' '||p_first_name)||DECODE(p_middle_names,'','',
129 ' '||p_middle_names)||
130 DECODE(p_suffix,'','',' '||p_suffix)||
131 DECODE(p_known_as,'','',
132 ' ('||p_known_as||')'),1,240)
133 INTO l_order_name
134 FROM sys.dual ;
135
136 return (l_order_name);
137 --
138 END;
139 --
140 --
141 procedure DERIVE_HR_LOC_ADDRESS
142 (p_tax_name in varchar2,
143 p_style in varchar2,
144 p_address_line_1 in varchar2,
145 p_address_line_2 in varchar2,
146 p_address_line_3 in varchar2,
147 p_town_or_city in varchar2,
148 p_country in varchar2,
149 p_postal_code in varchar2,
150 p_region_1 in varchar2,
151 p_region_2 in varchar2,
152 p_region_3 in varchar2,
153 p_telephone_number_1 in varchar2,
154 p_telephone_number_2 in varchar2,
155 p_telephone_number_3 in varchar2,
156 p_loc_information13 in varchar2,
157 p_loc_information14 in varchar2,
158 p_loc_information15 in varchar2,
159 p_loc_information16 in varchar2,
160 p_loc_information17 in varchar2,
161 p_attribute_category in varchar2,
162 p_attribute1 in varchar2,
163 p_attribute2 in varchar2,
164 p_attribute3 in varchar2,
165 p_attribute4 in varchar2,
166 p_attribute5 in varchar2,
167 p_attribute6 in varchar2,
168 p_attribute7 in varchar2,
169 p_attribute8 in varchar2,
170 p_attribute9 in varchar2,
171 p_attribute10 in varchar2,
172 p_attribute11 in varchar2,
173 p_attribute12 in varchar2,
174 p_attribute13 in varchar2,
175 p_attribute14 in varchar2,
176 p_attribute15 in varchar2,
177 p_attribute16 in varchar2,
178 p_attribute17 in varchar2,
179 p_attribute18 in varchar2,
180 p_attribute19 in varchar2,
181 p_attribute20 in varchar2,
182 p_global_attribute_category in varchar2,
183 p_global_attribute1 in varchar2,
184 p_global_attribute2 in varchar2,
185 p_global_attribute3 in varchar2,
186 p_global_attribute4 in varchar2,
187 p_global_attribute5 in varchar2,
188 p_global_attribute6 in varchar2,
189 p_global_attribute7 in varchar2,
190 p_global_attribute8 in varchar2,
191 p_global_attribute9 in varchar2,
192 p_global_attribute10 in varchar2,
193 p_global_attribute11 in varchar2,
194 p_global_attribute12 in varchar2,
195 p_global_attribute13 in varchar2,
196 p_global_attribute14 in varchar2,
197 p_global_attribute15 in varchar2,
198 p_global_attribute16 in varchar2,
199 p_global_attribute17 in varchar2,
200 p_global_attribute18 in varchar2,
201 p_global_attribute19 in varchar2,
202 p_global_attribute20 in varchar2,
203 p_loc_information18 in varchar2,
204 p_loc_information19 in varchar2,
205 p_loc_information20 in varchar2,
206 p_derived_locale out nocopy varchar2
207 ) is
208 begin
209 if (ltrim(p_town_or_city) is not null) then
210 p_derived_locale := p_town_or_city || ', ';
211 end if;
212 if (ltrim(p_region_1) is not null) then
213 p_derived_locale := p_derived_locale || p_region_1 || ', ';
214 end if;
215 if (ltrim(p_country) is null) then
216 p_derived_locale := rtrim(p_derived_locale, ',');
217 else
218 p_derived_locale := p_derived_locale || p_country;
219 end if;
220 end;
221 --
222 procedure DERIVE_PER_ADD_ADDRESS
223 (p_style in varchar2,
224 p_address_line1 in varchar2,
225 p_address_line2 in varchar2,
226 p_address_line3 in varchar2,
227 p_country in varchar2,
228 p_date_to in date,
229 p_postal_code in varchar2,
230 p_region_1 in varchar2,
231 p_region_2 in varchar2,
232 p_region_3 in varchar2,
233 p_telephone_number_1 in varchar2,
234 p_telephone_number_2 in varchar2,
235 p_telephone_number_3 in varchar2,
236 p_town_or_city in varchar2,
237 p_addr_attribute_category in varchar2,
238 p_addr_attribute1 in varchar2,
239 p_addr_attribute2 in varchar2,
240 p_addr_attribute3 in varchar2,
241 p_addr_attribute4 in varchar2,
242 p_addr_attribute5 in varchar2,
243 p_addr_attribute6 in varchar2,
244 p_addr_attribute7 in varchar2,
245 p_addr_attribute8 in varchar2,
246 p_addr_attribute9 in varchar2,
247 p_addr_attribute10 in varchar2,
248 p_addr_attribute11 in varchar2,
249 p_addr_attribute12 in varchar2,
250 p_addr_attribute13 in varchar2,
251 p_addr_attribute14 in varchar2,
252 p_addr_attribute15 in varchar2,
253 p_addr_attribute16 in varchar2,
254 p_addr_attribute17 in varchar2,
255 p_addr_attribute18 in varchar2,
256 p_addr_attribute19 in varchar2,
257 p_addr_attribute20 in varchar2,
258 p_add_information13 in varchar2,
259 p_add_information14 in varchar2,
260 p_add_information15 in varchar2,
261 p_add_information16 in varchar2,
262 p_add_information17 in varchar2,
263 p_add_information18 in varchar2,
264 p_add_information19 in varchar2,
265 p_add_information20 in varchar2,
266 p_derived_locale out nocopy varchar2
267 ) is
268 begin
269 if (ltrim(p_town_or_city) is not null) then
270 p_derived_locale := p_town_or_city || ', ';
271 end if;
272 if (ltrim(p_region_1) is not null) then
273 p_derived_locale := p_derived_locale || p_region_1 || ', ';
274 end if;
275 if (ltrim(p_country) is null) then
276 p_derived_locale := rtrim(p_derived_locale, ',');
277 else
278 p_derived_locale := p_derived_locale || p_country;
279 end if;
280 end;
281
282 --
283 --------------------------------------------------------------------------
284 -- --
285 -- Name : get_IANA_charset --
286 -- Type : Function --
287 -- Access : Public --
288 -- Description : Function to IANA charset equivalent of --
289 -- NLS_CHARACTERSET --
290 -- Parameters : --
291 -- IN : N/A --
292 -- OUT : N/A --
293 -- RETURN : VARCHAR2 --
294 -- --
295 --------------------------------------------------------------------------
296
297 function get_IANA_charset return VARCHAR2 is
298 cursor csr_get_iana_charset is
299 select tag
300 from fnd_lookup_values
301 where lookup_type = 'FND_ISO_CHARACTER_SET_MAP'
302 and lookup_code = SUBSTR(USERENV('LANGUAGE'),
303 INSTR(USERENV('LANGUAGE'), '.') + 1)
304 and language = 'US';
305
306 lv_iana_charset fnd_lookup_values.tag%type;
307
308 begin
309 open csr_get_iana_charset;
310 fetch csr_get_iana_charset into lv_iana_charset;
311 close csr_get_iana_charset;
312
313 hr_utility.trace('IANA Charset = '||lv_iana_charset);
314 return (lv_iana_charset);
315
316 end get_IANA_charset;
317 --
318
319 END HR_CA_UTILITY;