eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.IRC_PARTY_BE2

Source


1 package body irc_party_be2 as 
2 --Code generated on 30/03/2009 04:31:25
3 /* $Header: hrapiwfe.pkb 120.4.12010000.2 2008/09/29 12:54:07 srgnanas ship $*/
4 procedure update_registered_user_a (
5 p_effective_date               date,
6 p_person_id                    number,
7 p_first_name                   varchar2,
8 p_last_name                    varchar2,
9 p_date_of_birth                date,
10 p_title                        varchar2,
11 p_gender                       varchar2,
12 p_marital_status               varchar2,
13 p_previous_last_name           varchar2,
14 p_middle_name                  varchar2,
15 p_name_suffix                  varchar2,
16 p_known_as                     varchar2,
17 p_first_name_phonetic          varchar2,
18 p_last_name_phonetic           varchar2,
19 p_attribute_category           varchar2,
20 p_attribute1                   varchar2,
21 p_attribute2                   varchar2,
22 p_attribute3                   varchar2,
23 p_attribute4                   varchar2,
24 p_attribute5                   varchar2,
25 p_attribute6                   varchar2,
26 p_attribute7                   varchar2,
27 p_attribute8                   varchar2,
28 p_attribute9                   varchar2,
29 p_attribute10                  varchar2,
30 p_attribute11                  varchar2,
31 p_attribute12                  varchar2,
32 p_attribute13                  varchar2,
33 p_attribute14                  varchar2,
34 p_attribute15                  varchar2,
35 p_attribute16                  varchar2,
36 p_attribute17                  varchar2,
37 p_attribute18                  varchar2,
38 p_attribute19                  varchar2,
39 p_attribute20                  varchar2,
40 p_attribute21                  varchar2,
41 p_attribute22                  varchar2,
42 p_attribute23                  varchar2,
43 p_attribute24                  varchar2,
44 p_attribute25                  varchar2,
45 p_attribute26                  varchar2,
46 p_attribute27                  varchar2,
47 p_attribute28                  varchar2,
48 p_attribute29                  varchar2,
49 p_attribute30                  varchar2,
50 p_per_information_category     varchar2,
51 p_per_information1             varchar2,
52 p_per_information2             varchar2,
53 p_per_information3             varchar2,
54 p_per_information4             varchar2,
55 p_per_information5             varchar2,
56 p_per_information6             varchar2,
57 p_per_information7             varchar2,
58 p_per_information8             varchar2,
59 p_per_information9             varchar2,
60 p_per_information10            varchar2,
61 p_per_information11            varchar2,
62 p_per_information12            varchar2,
63 p_per_information13            varchar2,
64 p_per_information14            varchar2,
65 p_per_information15            varchar2,
66 p_per_information16            varchar2,
67 p_per_information17            varchar2,
68 p_per_information18            varchar2,
69 p_per_information19            varchar2,
70 p_per_information20            varchar2,
71 p_per_information21            varchar2,
72 p_per_information22            varchar2,
73 p_per_information23            varchar2,
74 p_per_information24            varchar2,
75 p_per_information25            varchar2,
76 p_per_information26            varchar2,
77 p_per_information27            varchar2,
78 p_per_information28            varchar2,
79 p_per_information29            varchar2,
80 p_per_information30            varchar2) is
81   l_event_key number;
82   l_event_data clob;
83   l_event_name varchar2(250);
84   l_text varchar2(2000);
85   l_message varchar2(10);
86   --
87   cursor get_seq is
88   select per_wf_events_s.nextval from dual;
89   --
90   l_proc varchar2(72):='  irc_party_be2.update_registered_user_a';
91 begin
92   hr_utility.set_location('Entering: '||l_proc,10);
93   -- check the status of the business event
94   l_event_name:='oracle.apps.per.irc.api.party.update_registered_user';
95   l_message:=wf_event.test(l_event_name);
96   --
97   if (l_message='MESSAGE') then
98     hr_utility.set_location(l_proc,20);
99     --
100     -- get a key for the event
101     --
102     open get_seq;
103     fetch get_seq into l_event_key;
104     close get_seq;
105     --
106     -- build the xml data for the event
107     --
108     dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
109     l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
110     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
111     l_text:='<party>';
112     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
113     --
114     l_text:='<effective_date>';
115     l_text:=l_text||fnd_date.date_to_canonical(p_effective_date);
116     l_text:=l_text||'</effective_date>';
117     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
118     l_text:='<person_id>';
119     l_text:=l_text||fnd_number.number_to_canonical(p_person_id);
120     l_text:=l_text||'</person_id>';
121     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
122     l_text:='<first_name>';
123     l_text:=l_text||irc_utilities_pkg.removeTags(p_first_name);
124     l_text:=l_text||'</first_name>';
125     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
126     l_text:='<last_name>';
127     l_text:=l_text||irc_utilities_pkg.removeTags(p_last_name);
128     l_text:=l_text||'</last_name>';
129     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
130     l_text:='<date_of_birth>';
131     l_text:=l_text||fnd_date.date_to_canonical(p_date_of_birth);
132     l_text:=l_text||'</date_of_birth>';
133     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
134     l_text:='<title>';
135     l_text:=l_text||irc_utilities_pkg.removeTags(p_title);
136     l_text:=l_text||'</title>';
137     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
138     l_text:='<gender>';
139     l_text:=l_text||irc_utilities_pkg.removeTags(p_gender);
140     l_text:=l_text||'</gender>';
141     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
142     l_text:='<marital_status>';
143     l_text:=l_text||irc_utilities_pkg.removeTags(p_marital_status);
144     l_text:=l_text||'</marital_status>';
145     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
146     l_text:='<previous_last_name>';
147     l_text:=l_text||irc_utilities_pkg.removeTags(p_previous_last_name);
148     l_text:=l_text||'</previous_last_name>';
149     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
150     l_text:='<middle_name>';
151     l_text:=l_text||irc_utilities_pkg.removeTags(p_middle_name);
152     l_text:=l_text||'</middle_name>';
153     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
154     l_text:='<name_suffix>';
155     l_text:=l_text||irc_utilities_pkg.removeTags(p_name_suffix);
156     l_text:=l_text||'</name_suffix>';
157     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
158     l_text:='<known_as>';
159     l_text:=l_text||irc_utilities_pkg.removeTags(p_known_as);
160     l_text:=l_text||'</known_as>';
161     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
162     l_text:='<first_name_phonetic>';
163     l_text:=l_text||irc_utilities_pkg.removeTags(p_first_name_phonetic);
164     l_text:=l_text||'</first_name_phonetic>';
165     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
166     l_text:='<last_name_phonetic>';
167     l_text:=l_text||irc_utilities_pkg.removeTags(p_last_name_phonetic);
168     l_text:=l_text||'</last_name_phonetic>';
169     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
170     l_text:='<attribute_category>';
171     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute_category);
172     l_text:=l_text||'</attribute_category>';
173     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
174     l_text:='<attribute1>';
175     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute1);
176     l_text:=l_text||'</attribute1>';
177     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
178     l_text:='<attribute2>';
179     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute2);
180     l_text:=l_text||'</attribute2>';
181     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
182     l_text:='<attribute3>';
183     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute3);
184     l_text:=l_text||'</attribute3>';
185     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
186     l_text:='<attribute4>';
187     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute4);
188     l_text:=l_text||'</attribute4>';
189     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
190     l_text:='<attribute5>';
191     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute5);
192     l_text:=l_text||'</attribute5>';
193     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
194     l_text:='<attribute6>';
195     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute6);
196     l_text:=l_text||'</attribute6>';
197     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
198     l_text:='<attribute7>';
199     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute7);
200     l_text:=l_text||'</attribute7>';
201     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
202     l_text:='<attribute8>';
203     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute8);
204     l_text:=l_text||'</attribute8>';
205     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
206     l_text:='<attribute9>';
207     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute9);
208     l_text:=l_text||'</attribute9>';
209     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
210     l_text:='<attribute10>';
211     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute10);
212     l_text:=l_text||'</attribute10>';
213     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
214     l_text:='<attribute11>';
215     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute11);
216     l_text:=l_text||'</attribute11>';
217     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
218     l_text:='<attribute12>';
219     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute12);
220     l_text:=l_text||'</attribute12>';
221     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
222     l_text:='<attribute13>';
223     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute13);
224     l_text:=l_text||'</attribute13>';
225     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
226     l_text:='<attribute14>';
227     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute14);
228     l_text:=l_text||'</attribute14>';
229     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
230     l_text:='<attribute15>';
231     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute15);
232     l_text:=l_text||'</attribute15>';
233     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
234     l_text:='<attribute16>';
235     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute16);
236     l_text:=l_text||'</attribute16>';
237     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
238     l_text:='<attribute17>';
239     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute17);
240     l_text:=l_text||'</attribute17>';
241     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
242     l_text:='<attribute18>';
243     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute18);
244     l_text:=l_text||'</attribute18>';
245     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
246     l_text:='<attribute19>';
247     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute19);
248     l_text:=l_text||'</attribute19>';
249     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
250     l_text:='<attribute20>';
251     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute20);
252     l_text:=l_text||'</attribute20>';
253     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
254     l_text:='<attribute21>';
255     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute21);
256     l_text:=l_text||'</attribute21>';
257     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
258     l_text:='<attribute22>';
259     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute22);
260     l_text:=l_text||'</attribute22>';
261     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
262     l_text:='<attribute23>';
263     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute23);
264     l_text:=l_text||'</attribute23>';
265     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
266     l_text:='<attribute24>';
267     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute24);
268     l_text:=l_text||'</attribute24>';
269     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
270     l_text:='<attribute25>';
271     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute25);
272     l_text:=l_text||'</attribute25>';
273     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
274     l_text:='<attribute26>';
275     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute26);
276     l_text:=l_text||'</attribute26>';
277     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
278     l_text:='<attribute27>';
279     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute27);
280     l_text:=l_text||'</attribute27>';
281     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
282     l_text:='<attribute28>';
283     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute28);
284     l_text:=l_text||'</attribute28>';
285     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
286     l_text:='<attribute29>';
287     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute29);
288     l_text:=l_text||'</attribute29>';
289     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
290     l_text:='<attribute30>';
291     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute30);
292     l_text:=l_text||'</attribute30>';
293     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
294     l_text:='<per_information_category>';
295     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information_category);
296     l_text:=l_text||'</per_information_category>';
297     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
298     l_text:='<per_information1>';
299     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information1);
300     l_text:=l_text||'</per_information1>';
301     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
302     l_text:='<per_information2>';
303     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information2);
304     l_text:=l_text||'</per_information2>';
305     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
306     l_text:='<per_information3>';
307     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information3);
308     l_text:=l_text||'</per_information3>';
309     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
310     l_text:='<per_information4>';
311     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information4);
312     l_text:=l_text||'</per_information4>';
313     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
314     l_text:='<per_information5>';
315     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information5);
316     l_text:=l_text||'</per_information5>';
317     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
318     l_text:='<per_information6>';
319     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information6);
320     l_text:=l_text||'</per_information6>';
321     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
322     l_text:='<per_information7>';
323     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information7);
324     l_text:=l_text||'</per_information7>';
325     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
326     l_text:='<per_information8>';
327     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information8);
328     l_text:=l_text||'</per_information8>';
329     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
330     l_text:='<per_information9>';
331     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information9);
332     l_text:=l_text||'</per_information9>';
333     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
334     l_text:='<per_information10>';
335     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information10);
336     l_text:=l_text||'</per_information10>';
337     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
338     l_text:='<per_information11>';
339     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information11);
340     l_text:=l_text||'</per_information11>';
341     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
342     l_text:='<per_information12>';
343     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information12);
344     l_text:=l_text||'</per_information12>';
345     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
346     l_text:='<per_information13>';
347     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information13);
348     l_text:=l_text||'</per_information13>';
349     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
350     l_text:='<per_information14>';
351     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information14);
352     l_text:=l_text||'</per_information14>';
353     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
354     l_text:='<per_information15>';
355     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information15);
356     l_text:=l_text||'</per_information15>';
357     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
358     l_text:='<per_information16>';
359     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information16);
360     l_text:=l_text||'</per_information16>';
361     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
362     l_text:='<per_information17>';
363     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information17);
364     l_text:=l_text||'</per_information17>';
365     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
366     l_text:='<per_information18>';
367     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information18);
368     l_text:=l_text||'</per_information18>';
369     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
370     l_text:='<per_information19>';
371     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information19);
372     l_text:=l_text||'</per_information19>';
373     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
374     l_text:='<per_information20>';
375     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information20);
376     l_text:=l_text||'</per_information20>';
377     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
378     l_text:='<per_information21>';
379     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information21);
380     l_text:=l_text||'</per_information21>';
381     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
382     l_text:='<per_information22>';
383     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information22);
384     l_text:=l_text||'</per_information22>';
385     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
386     l_text:='<per_information23>';
387     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information23);
388     l_text:=l_text||'</per_information23>';
389     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
390     l_text:='<per_information24>';
391     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information24);
392     l_text:=l_text||'</per_information24>';
393     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
394     l_text:='<per_information25>';
395     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information25);
396     l_text:=l_text||'</per_information25>';
397     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
398     l_text:='<per_information26>';
399     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information26);
400     l_text:=l_text||'</per_information26>';
401     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
402     l_text:='<per_information27>';
403     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information27);
404     l_text:=l_text||'</per_information27>';
405     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
406     l_text:='<per_information28>';
407     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information28);
408     l_text:=l_text||'</per_information28>';
409     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
410     l_text:='<per_information29>';
411     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information29);
412     l_text:=l_text||'</per_information29>';
413     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
414     l_text:='<per_information30>';
415     l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information30);
416     l_text:=l_text||'</per_information30>';
417     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
418     l_text:='</party>';
419     --
420     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
421     --
422     -- raise the event with the event data
423     wf_event.raise(p_event_name=>l_event_name
424                   ,p_event_key=>l_event_key
425                   ,p_event_data=>l_event_data);
426   elsif (l_message='KEY') then
427     hr_utility.set_location(l_proc,30);
428     -- get a key for the event
429     open get_seq;
430     fetch get_seq into l_event_key;
431     close get_seq;
432     -- this is a key event, so just raise the event
433     -- without the event data
434     wf_event.raise(p_event_name=>l_event_name
435                   ,p_event_key=>l_event_key);
436   elsif (l_message='NONE') then
437     hr_utility.set_location(l_proc,40);
438     -- no event is required, so do nothing
439     null;
440   end if;
441     hr_utility.set_location('Leaving: '||l_proc,50);
442 end update_registered_user_a;
443 end irc_party_be2;