DBA Data[Home] [Help]

PACKAGE BODY: APPS.HR_SIT_BE2

Source


1 package body hr_sit_be2 as 
2 --Code generated on 30/03/2009 04:46:44
3 /* $Header: hrapiwfe.pkb 120.4.12010000.2 2008/09/29 12:54:07 srgnanas ship $*/
4 procedure update_sit_a (
5 p_person_analysis_id           number,
6 p_pea_object_version_number    number,
7 p_comments                     varchar2,
8 p_date_from                    date,
9 p_date_to                      date,
10 p_request_id                   number,
11 p_program_application_id       number,
12 p_program_id                   number,
13 p_program_update_date          date,
14 p_attribute_category           varchar2,
15 p_attribute1                   varchar2,
16 p_attribute2                   varchar2,
17 p_attribute3                   varchar2,
18 p_attribute4                   varchar2,
19 p_attribute5                   varchar2,
20 p_attribute6                   varchar2,
21 p_attribute7                   varchar2,
22 p_attribute8                   varchar2,
23 p_attribute9                   varchar2,
24 p_attribute10                  varchar2,
25 p_attribute11                  varchar2,
26 p_attribute12                  varchar2,
27 p_attribute13                  varchar2,
28 p_attribute14                  varchar2,
29 p_attribute15                  varchar2,
30 p_attribute16                  varchar2,
31 p_attribute17                  varchar2,
32 p_attribute18                  varchar2,
33 p_attribute19                  varchar2,
34 p_attribute20                  varchar2,
35 p_segment1                     varchar2,
36 p_segment2                     varchar2,
37 p_segment3                     varchar2,
38 p_segment4                     varchar2,
39 p_segment5                     varchar2,
40 p_segment6                     varchar2,
41 p_segment7                     varchar2,
42 p_segment8                     varchar2,
43 p_segment9                     varchar2,
44 p_segment10                    varchar2,
45 p_segment11                    varchar2,
46 p_segment12                    varchar2,
47 p_segment13                    varchar2,
48 p_segment14                    varchar2,
49 p_segment15                    varchar2,
50 p_segment16                    varchar2,
51 p_segment17                    varchar2,
52 p_segment18                    varchar2,
53 p_segment19                    varchar2,
54 p_segment20                    varchar2,
55 p_segment21                    varchar2,
56 p_segment22                    varchar2,
57 p_segment23                    varchar2,
58 p_segment24                    varchar2,
59 p_segment25                    varchar2,
60 p_segment26                    varchar2,
61 p_segment27                    varchar2,
62 p_segment28                    varchar2,
63 p_segment29                    varchar2,
64 p_segment30                    varchar2,
65 p_concat_segments              varchar2,
66 p_analysis_criteria_id         number) is
67   l_event_key number;
68   l_event_data clob;
69   l_event_name varchar2(250);
70   l_text varchar2(2000);
71   l_message varchar2(10);
72   --
73   cursor get_seq is
74   select per_wf_events_s.nextval from dual;
75   --
76   l_proc varchar2(72):='  hr_sit_be2.update_sit_a';
77 begin
78   hr_utility.set_location('Entering: '||l_proc,10);
79   -- check the status of the business event
80   l_event_name:='oracle.apps.per.api.sit.update_sit';
81   l_message:=wf_event.test(l_event_name);
82   --
83   if (l_message='MESSAGE') then
84     hr_utility.set_location(l_proc,20);
85     --
86     -- get a key for the event
87     --
88     open get_seq;
89     fetch get_seq into l_event_key;
90     close get_seq;
91     --
92     -- build the xml data for the event
93     --
94     dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
95     l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
96     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
97     l_text:='<sit>';
98     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
99     --
100     l_text:='<person_analysis_id>';
101     l_text:=l_text||fnd_number.number_to_canonical(p_person_analysis_id);
102     l_text:=l_text||'</person_analysis_id>';
103     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
104     l_text:='<pea_object_version_number>';
105     l_text:=l_text||fnd_number.number_to_canonical(p_pea_object_version_number);
106     l_text:=l_text||'</pea_object_version_number>';
107     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
108     l_text:='<comments>';
109     l_text:=l_text||irc_utilities_pkg.removeTags(p_comments);
110     l_text:=l_text||'</comments>';
111     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
112     l_text:='<date_from>';
113     l_text:=l_text||fnd_date.date_to_canonical(p_date_from);
114     l_text:=l_text||'</date_from>';
115     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
116     l_text:='<date_to>';
117     l_text:=l_text||fnd_date.date_to_canonical(p_date_to);
118     l_text:=l_text||'</date_to>';
119     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
120     l_text:='<request_id>';
121     l_text:=l_text||fnd_number.number_to_canonical(p_request_id);
122     l_text:=l_text||'</request_id>';
123     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
124     l_text:='<program_application_id>';
125     l_text:=l_text||fnd_number.number_to_canonical(p_program_application_id);
126     l_text:=l_text||'</program_application_id>';
127     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
128     l_text:='<program_id>';
129     l_text:=l_text||fnd_number.number_to_canonical(p_program_id);
130     l_text:=l_text||'</program_id>';
131     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
132     l_text:='<program_update_date>';
133     l_text:=l_text||fnd_date.date_to_canonical(p_program_update_date);
134     l_text:=l_text||'</program_update_date>';
135     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
136     l_text:='<attribute_category>';
137     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute_category);
138     l_text:=l_text||'</attribute_category>';
139     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
140     l_text:='<attribute1>';
141     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute1);
142     l_text:=l_text||'</attribute1>';
143     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
144     l_text:='<attribute2>';
145     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute2);
146     l_text:=l_text||'</attribute2>';
147     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
148     l_text:='<attribute3>';
149     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute3);
150     l_text:=l_text||'</attribute3>';
151     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
152     l_text:='<attribute4>';
153     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute4);
154     l_text:=l_text||'</attribute4>';
155     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
156     l_text:='<attribute5>';
157     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute5);
158     l_text:=l_text||'</attribute5>';
159     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
160     l_text:='<attribute6>';
161     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute6);
162     l_text:=l_text||'</attribute6>';
163     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
164     l_text:='<attribute7>';
165     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute7);
166     l_text:=l_text||'</attribute7>';
167     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
168     l_text:='<attribute8>';
169     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute8);
170     l_text:=l_text||'</attribute8>';
171     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
172     l_text:='<attribute9>';
173     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute9);
174     l_text:=l_text||'</attribute9>';
175     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
176     l_text:='<attribute10>';
177     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute10);
178     l_text:=l_text||'</attribute10>';
179     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
180     l_text:='<attribute11>';
181     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute11);
182     l_text:=l_text||'</attribute11>';
183     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
184     l_text:='<attribute12>';
185     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute12);
186     l_text:=l_text||'</attribute12>';
187     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
188     l_text:='<attribute13>';
189     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute13);
190     l_text:=l_text||'</attribute13>';
191     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
192     l_text:='<attribute14>';
193     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute14);
194     l_text:=l_text||'</attribute14>';
195     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
196     l_text:='<attribute15>';
197     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute15);
198     l_text:=l_text||'</attribute15>';
199     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
200     l_text:='<attribute16>';
201     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute16);
202     l_text:=l_text||'</attribute16>';
203     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
204     l_text:='<attribute17>';
205     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute17);
206     l_text:=l_text||'</attribute17>';
207     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
208     l_text:='<attribute18>';
209     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute18);
210     l_text:=l_text||'</attribute18>';
211     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
212     l_text:='<attribute19>';
213     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute19);
214     l_text:=l_text||'</attribute19>';
215     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
216     l_text:='<attribute20>';
217     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute20);
218     l_text:=l_text||'</attribute20>';
219     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
220     l_text:='<segment1>';
221     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment1);
222     l_text:=l_text||'</segment1>';
223     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
224     l_text:='<segment2>';
225     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment2);
226     l_text:=l_text||'</segment2>';
227     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
228     l_text:='<segment3>';
229     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment3);
230     l_text:=l_text||'</segment3>';
231     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
232     l_text:='<segment4>';
233     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment4);
234     l_text:=l_text||'</segment4>';
235     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
236     l_text:='<segment5>';
237     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment5);
238     l_text:=l_text||'</segment5>';
239     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
240     l_text:='<segment6>';
241     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment6);
242     l_text:=l_text||'</segment6>';
243     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
244     l_text:='<segment7>';
245     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment7);
246     l_text:=l_text||'</segment7>';
247     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
248     l_text:='<segment8>';
249     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment8);
250     l_text:=l_text||'</segment8>';
251     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
252     l_text:='<segment9>';
253     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment9);
254     l_text:=l_text||'</segment9>';
255     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
256     l_text:='<segment10>';
257     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment10);
258     l_text:=l_text||'</segment10>';
259     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
260     l_text:='<segment11>';
261     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment11);
262     l_text:=l_text||'</segment11>';
263     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
264     l_text:='<segment12>';
265     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment12);
266     l_text:=l_text||'</segment12>';
267     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
268     l_text:='<segment13>';
269     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment13);
270     l_text:=l_text||'</segment13>';
271     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
272     l_text:='<segment14>';
273     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment14);
274     l_text:=l_text||'</segment14>';
275     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
276     l_text:='<segment15>';
277     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment15);
278     l_text:=l_text||'</segment15>';
279     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
280     l_text:='<segment16>';
281     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment16);
282     l_text:=l_text||'</segment16>';
283     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
284     l_text:='<segment17>';
285     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment17);
286     l_text:=l_text||'</segment17>';
287     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
288     l_text:='<segment18>';
289     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment18);
290     l_text:=l_text||'</segment18>';
291     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
292     l_text:='<segment19>';
293     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment19);
294     l_text:=l_text||'</segment19>';
295     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
296     l_text:='<segment20>';
297     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment20);
298     l_text:=l_text||'</segment20>';
299     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
300     l_text:='<segment21>';
301     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment21);
302     l_text:=l_text||'</segment21>';
303     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
304     l_text:='<segment22>';
305     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment22);
306     l_text:=l_text||'</segment22>';
307     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
308     l_text:='<segment23>';
309     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment23);
310     l_text:=l_text||'</segment23>';
311     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
312     l_text:='<segment24>';
313     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment24);
314     l_text:=l_text||'</segment24>';
315     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
316     l_text:='<segment25>';
317     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment25);
318     l_text:=l_text||'</segment25>';
319     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
320     l_text:='<segment26>';
321     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment26);
322     l_text:=l_text||'</segment26>';
323     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
324     l_text:='<segment27>';
325     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment27);
326     l_text:=l_text||'</segment27>';
327     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
328     l_text:='<segment28>';
329     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment28);
330     l_text:=l_text||'</segment28>';
331     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
332     l_text:='<segment29>';
333     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment29);
334     l_text:=l_text||'</segment29>';
335     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
336     l_text:='<segment30>';
337     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment30);
338     l_text:=l_text||'</segment30>';
339     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
340     l_text:='<concat_segments>';
341     l_text:=l_text||irc_utilities_pkg.removeTags(p_concat_segments);
342     l_text:=l_text||'</concat_segments>';
343     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
344     l_text:='<analysis_criteria_id>';
345     l_text:=l_text||fnd_number.number_to_canonical(p_analysis_criteria_id);
346     l_text:=l_text||'</analysis_criteria_id>';
347     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
348     l_text:='</sit>';
349     --
350     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
351     --
352     -- raise the event with the event data
353     wf_event.raise(p_event_name=>l_event_name
354                   ,p_event_key=>l_event_key
355                   ,p_event_data=>l_event_data);
356   elsif (l_message='KEY') then
357     hr_utility.set_location(l_proc,30);
358     -- get a key for the event
359     open get_seq;
360     fetch get_seq into l_event_key;
361     close get_seq;
362     -- this is a key event, so just raise the event
363     -- without the event data
364     wf_event.raise(p_event_name=>l_event_name
365                   ,p_event_key=>l_event_key);
366   elsif (l_message='NONE') then
367     hr_utility.set_location(l_proc,40);
368     -- no event is required, so do nothing
369     null;
370   end if;
371     hr_utility.set_location('Leaving: '||l_proc,50);
372 end update_sit_a;
373 end hr_sit_be2;