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