DBA Data[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;