[Home] [Help]
PACKAGE BODY: APPS.HR_PERSON_ADDRESS_BE3
Source
1 package body hr_person_address_be3 as
2 --Code generated on 30/03/2009 04:46:17
3 /* $Header: hrapiwfe.pkb 120.4.12010000.2 2008/09/29 12:54:07 srgnanas ship $*/
4 procedure update_pers_addr_with_style_a (
5 p_effective_date date,
6 p_validate_county boolean,
7 p_address_id number,
8 p_object_version_number number,
9 p_date_from date,
10 p_date_to date,
11 p_address_type varchar2,
12 p_comments long,
13 p_address_line1 varchar2,
14 p_address_line2 varchar2,
15 p_address_line3 varchar2,
16 p_town_or_city varchar2,
17 p_region_1 varchar2,
18 p_region_2 varchar2,
19 p_region_3 varchar2,
20 p_postal_code varchar2,
21 p_country varchar2,
22 p_telephone_number_1 varchar2,
23 p_telephone_number_2 varchar2,
24 p_telephone_number_3 varchar2,
25 p_addr_attribute_category varchar2,
26 p_addr_attribute1 varchar2,
27 p_addr_attribute2 varchar2,
28 p_addr_attribute3 varchar2,
29 p_addr_attribute4 varchar2,
30 p_addr_attribute5 varchar2,
31 p_addr_attribute6 varchar2,
32 p_addr_attribute7 varchar2,
33 p_addr_attribute8 varchar2,
34 p_addr_attribute9 varchar2,
35 p_addr_attribute10 varchar2,
36 p_addr_attribute11 varchar2,
37 p_addr_attribute12 varchar2,
38 p_addr_attribute13 varchar2,
39 p_addr_attribute14 varchar2,
40 p_addr_attribute15 varchar2,
41 p_addr_attribute16 varchar2,
42 p_addr_attribute17 varchar2,
43 p_addr_attribute18 varchar2,
44 p_addr_attribute19 varchar2,
45 p_addr_attribute20 varchar2,
46 p_add_information13 varchar2,
47 p_add_information14 varchar2,
48 p_add_information15 varchar2,
49 p_add_information16 varchar2,
50 p_add_information17 varchar2,
51 p_add_information18 varchar2,
52 p_add_information19 varchar2,
53 p_add_information20 varchar2,
54 p_style varchar2) is
55 l_event_key number;
56 l_event_data clob;
57 l_event_name varchar2(250);
58 l_text varchar2(2000);
59 l_message varchar2(10);
60 --
61 cursor get_seq is
62 select per_wf_events_s.nextval from dual;
63 --
64 l_proc varchar2(72):=' hr_person_address_be3.update_pers_addr_with_style_a';
65 begin
66 hr_utility.set_location('Entering: '||l_proc,10);
67 -- check the status of the business event
68 l_event_name:='oracle.apps.per.api.person_address.update_pers_addr_with_style';
69 l_message:=wf_event.test(l_event_name);
70 --
71 if (l_message='MESSAGE') then
72 hr_utility.set_location(l_proc,20);
73 --
74 -- get a key for the event
75 --
76 open get_seq;
77 fetch get_seq into l_event_key;
78 close get_seq;
79 --
80 -- build the xml data for the event
81 --
82 dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
83 l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
84 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
85 l_text:='<person_address>';
86 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
87 --
88 l_text:='<effective_date>';
89 l_text:=l_text||fnd_date.date_to_canonical(p_effective_date);
90 l_text:=l_text||'</effective_date>';
91 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
92 l_text:='<validate_county>';
93 if(P_VALIDATE_COUNTY) then
94 l_text:=l_text||'TRUE';
95 else
96 l_text:=l_text||'FALSE';
97 end if;
98 l_text:=l_text||'</validate_county>';
99 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
100 l_text:='<address_id>';
101 l_text:=l_text||fnd_number.number_to_canonical(p_address_id);
102 l_text:=l_text||'</address_id>';
103 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
104 l_text:='<object_version_number>';
105 l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number);
106 l_text:=l_text||'</object_version_number>';
107 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
108 l_text:='<date_from>';
109 l_text:=l_text||fnd_date.date_to_canonical(p_date_from);
110 l_text:=l_text||'</date_from>';
111 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
112 l_text:='<date_to>';
113 l_text:=l_text||fnd_date.date_to_canonical(p_date_to);
114 l_text:=l_text||'</date_to>';
115 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
116 l_text:='<address_type>';
117 l_text:=l_text||irc_utilities_pkg.removeTags(p_address_type);
118 l_text:=l_text||'</address_type>';
119 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
120 l_text:='<comments>';
121 l_text:=l_text||irc_utilities_pkg.removeTags(p_comments);
122 l_text:=l_text||'</comments>';
123 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
124 l_text:='<address_line1>';
125 l_text:=l_text||irc_utilities_pkg.removeTags(p_address_line1);
126 l_text:=l_text||'</address_line1>';
127 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
128 l_text:='<address_line2>';
129 l_text:=l_text||irc_utilities_pkg.removeTags(p_address_line2);
130 l_text:=l_text||'</address_line2>';
131 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
132 l_text:='<address_line3>';
133 l_text:=l_text||irc_utilities_pkg.removeTags(p_address_line3);
134 l_text:=l_text||'</address_line3>';
135 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
136 l_text:='<town_or_city>';
137 l_text:=l_text||irc_utilities_pkg.removeTags(p_town_or_city);
138 l_text:=l_text||'</town_or_city>';
139 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
140 l_text:='<region_1>';
141 l_text:=l_text||irc_utilities_pkg.removeTags(p_region_1);
142 l_text:=l_text||'</region_1>';
143 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
144 l_text:='<region_2>';
145 l_text:=l_text||irc_utilities_pkg.removeTags(p_region_2);
146 l_text:=l_text||'</region_2>';
147 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
148 l_text:='<region_3>';
149 l_text:=l_text||irc_utilities_pkg.removeTags(p_region_3);
150 l_text:=l_text||'</region_3>';
151 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
152 l_text:='<postal_code>';
153 l_text:=l_text||irc_utilities_pkg.removeTags(p_postal_code);
154 l_text:=l_text||'</postal_code>';
155 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
156 l_text:='<country>';
157 l_text:=l_text||irc_utilities_pkg.removeTags(p_country);
158 l_text:=l_text||'</country>';
159 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
160 l_text:='<telephone_number_1>';
161 l_text:=l_text||irc_utilities_pkg.removeTags(p_telephone_number_1);
162 l_text:=l_text||'</telephone_number_1>';
163 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
164 l_text:='<telephone_number_2>';
165 l_text:=l_text||irc_utilities_pkg.removeTags(p_telephone_number_2);
166 l_text:=l_text||'</telephone_number_2>';
167 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
168 l_text:='<telephone_number_3>';
169 l_text:=l_text||irc_utilities_pkg.removeTags(p_telephone_number_3);
170 l_text:=l_text||'</telephone_number_3>';
171 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
172 l_text:='<addr_attribute_category>';
173 l_text:=l_text||irc_utilities_pkg.removeTags(p_addr_attribute_category);
174 l_text:=l_text||'</addr_attribute_category>';
175 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
176 l_text:='<addr_attribute1>';
177 l_text:=l_text||irc_utilities_pkg.removeTags(p_addr_attribute1);
178 l_text:=l_text||'</addr_attribute1>';
179 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
180 l_text:='<addr_attribute2>';
181 l_text:=l_text||irc_utilities_pkg.removeTags(p_addr_attribute2);
182 l_text:=l_text||'</addr_attribute2>';
183 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
184 l_text:='<addr_attribute3>';
185 l_text:=l_text||irc_utilities_pkg.removeTags(p_addr_attribute3);
186 l_text:=l_text||'</addr_attribute3>';
187 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
188 l_text:='<addr_attribute4>';
189 l_text:=l_text||irc_utilities_pkg.removeTags(p_addr_attribute4);
190 l_text:=l_text||'</addr_attribute4>';
191 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
192 l_text:='<addr_attribute5>';
193 l_text:=l_text||irc_utilities_pkg.removeTags(p_addr_attribute5);
194 l_text:=l_text||'</addr_attribute5>';
195 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
196 l_text:='<addr_attribute6>';
197 l_text:=l_text||irc_utilities_pkg.removeTags(p_addr_attribute6);
198 l_text:=l_text||'</addr_attribute6>';
199 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
200 l_text:='<addr_attribute7>';
201 l_text:=l_text||irc_utilities_pkg.removeTags(p_addr_attribute7);
202 l_text:=l_text||'</addr_attribute7>';
203 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
204 l_text:='<addr_attribute8>';
205 l_text:=l_text||irc_utilities_pkg.removeTags(p_addr_attribute8);
206 l_text:=l_text||'</addr_attribute8>';
207 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
208 l_text:='<addr_attribute9>';
209 l_text:=l_text||irc_utilities_pkg.removeTags(p_addr_attribute9);
210 l_text:=l_text||'</addr_attribute9>';
211 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
212 l_text:='<addr_attribute10>';
213 l_text:=l_text||irc_utilities_pkg.removeTags(p_addr_attribute10);
214 l_text:=l_text||'</addr_attribute10>';
215 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
216 l_text:='<addr_attribute11>';
217 l_text:=l_text||irc_utilities_pkg.removeTags(p_addr_attribute11);
218 l_text:=l_text||'</addr_attribute11>';
219 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
220 l_text:='<addr_attribute12>';
221 l_text:=l_text||irc_utilities_pkg.removeTags(p_addr_attribute12);
222 l_text:=l_text||'</addr_attribute12>';
223 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
224 l_text:='<addr_attribute13>';
225 l_text:=l_text||irc_utilities_pkg.removeTags(p_addr_attribute13);
226 l_text:=l_text||'</addr_attribute13>';
227 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
228 l_text:='<addr_attribute14>';
229 l_text:=l_text||irc_utilities_pkg.removeTags(p_addr_attribute14);
230 l_text:=l_text||'</addr_attribute14>';
231 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
232 l_text:='<addr_attribute15>';
233 l_text:=l_text||irc_utilities_pkg.removeTags(p_addr_attribute15);
234 l_text:=l_text||'</addr_attribute15>';
235 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
236 l_text:='<addr_attribute16>';
237 l_text:=l_text||irc_utilities_pkg.removeTags(p_addr_attribute16);
238 l_text:=l_text||'</addr_attribute16>';
239 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
240 l_text:='<addr_attribute17>';
241 l_text:=l_text||irc_utilities_pkg.removeTags(p_addr_attribute17);
242 l_text:=l_text||'</addr_attribute17>';
243 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
244 l_text:='<addr_attribute18>';
245 l_text:=l_text||irc_utilities_pkg.removeTags(p_addr_attribute18);
246 l_text:=l_text||'</addr_attribute18>';
247 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
248 l_text:='<addr_attribute19>';
249 l_text:=l_text||irc_utilities_pkg.removeTags(p_addr_attribute19);
250 l_text:=l_text||'</addr_attribute19>';
251 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
252 l_text:='<addr_attribute20>';
253 l_text:=l_text||irc_utilities_pkg.removeTags(p_addr_attribute20);
254 l_text:=l_text||'</addr_attribute20>';
255 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
256 l_text:='<add_information13>';
257 l_text:=l_text||irc_utilities_pkg.removeTags(p_add_information13);
258 l_text:=l_text||'</add_information13>';
259 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
260 l_text:='<add_information14>';
261 l_text:=l_text||irc_utilities_pkg.removeTags(p_add_information14);
262 l_text:=l_text||'</add_information14>';
263 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
264 l_text:='<add_information15>';
265 l_text:=l_text||irc_utilities_pkg.removeTags(p_add_information15);
266 l_text:=l_text||'</add_information15>';
267 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
268 l_text:='<add_information16>';
269 l_text:=l_text||irc_utilities_pkg.removeTags(p_add_information16);
270 l_text:=l_text||'</add_information16>';
271 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
272 l_text:='<add_information17>';
273 l_text:=l_text||irc_utilities_pkg.removeTags(p_add_information17);
274 l_text:=l_text||'</add_information17>';
275 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
276 l_text:='<add_information18>';
277 l_text:=l_text||irc_utilities_pkg.removeTags(p_add_information18);
278 l_text:=l_text||'</add_information18>';
279 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
280 l_text:='<add_information19>';
281 l_text:=l_text||irc_utilities_pkg.removeTags(p_add_information19);
282 l_text:=l_text||'</add_information19>';
283 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
284 l_text:='<add_information20>';
285 l_text:=l_text||irc_utilities_pkg.removeTags(p_add_information20);
286 l_text:=l_text||'</add_information20>';
287 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
288 l_text:='<style>';
289 l_text:=l_text||irc_utilities_pkg.removeTags(p_style);
290 l_text:=l_text||'</style>';
291 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
292 l_text:='</person_address>';
293 --
294 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
295 --
296 -- raise the event with the event data
297 wf_event.raise(p_event_name=>l_event_name
298 ,p_event_key=>l_event_key
299 ,p_event_data=>l_event_data);
300 elsif (l_message='KEY') then
301 hr_utility.set_location(l_proc,30);
302 -- get a key for the event
303 open get_seq;
304 fetch get_seq into l_event_key;
305 close get_seq;
306 -- this is a key event, so just raise the event
307 -- without the event data
308 wf_event.raise(p_event_name=>l_event_name
309 ,p_event_key=>l_event_key);
310 elsif (l_message='NONE') then
311 hr_utility.set_location(l_proc,40);
312 -- no event is required, so do nothing
313 null;
314 end if;
315 hr_utility.set_location('Leaving: '||l_proc,50);
316 end update_pers_addr_with_style_a;
317 end hr_person_address_be3;