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