DBA Data[Home] [Help]

PACKAGE BODY: APPS.HRDPP_UPDATE_OUTCOME

Source


1 package body hrdpp_UPDATE_OUTCOME as
2 /*
3  * Generated by hr_pump_meta_mapper at: 2012/11/27 04:11:38
4  * Generated for API: HR_COMPETENCE_OUTCOME_API.UPDATE_OUTCOME
5  */
6 --
7 dh constant date := hr_api.g_date;
8 nh constant number := hr_api.g_number;
9 vh constant varchar2(64) := hr_api.g_varchar2;
10 c_sot constant date := to_date('01010001','DDMMYYYY');
11 cn constant varchar2(32) := '<NULL>';
12 dn constant date := null;
13 nn constant number := null;
14 vn constant varchar2(1) := null;
15 --
16 function dc(p in date) return varchar2 is
17 begin
18 if p<c_sot then
19  if p<>trunc(p) then
20   return to_char(p,'SYYYY/MM/DD HH24:MI:SS');
21  end if;
22  return to_char(p,'SYYYY/MM/DD');
23 elsif p<>trunc(p) then
24  return to_char(p,'YYYY/MM/DD HH24:MI:SS');
25 end if;
26 return to_char(p,'YYYY/MM/DD');
27 end dc;
28 function d(p in varchar2) return date is
29 begin
30 if length(p)=10 then
31 return to_date(p,'YYYY/MM/DD');
32 elsif length(p)=19 then
33 return to_date(p,'YYYY/MM/DD HH24:MI:SS');
34 elsif length(p)=11 then
35 return to_date(p,'SYYYY/MM/DD');
36 elsif length(p)=20 then
37 return to_date(p,'SYYYY/MM/DD HH24:MI:SS');
38 end if;
39 -- Try default format as last resort.
40 return to_date(p,'YYYY/MM/DD');
41 end d;
42 function n(p in varchar2) return number is
43 begin
44 return to_number(p);
45 end n;
46 function dd(p in date,i in varchar2)
47 return varchar2 is
48 begin
49 if upper(i) = 'N' then return dc(p);
50 else return cn; end if;
51 end dd;
52 function nd(p in number,i in varchar2)
53 return varchar2 is
54 begin
55 if upper(i) = 'N' then return to_char(p);
56 else return cn; end if;
57 end nd;
58 --
59 procedure iuk
60 (p_batch_line_id  in number,
61 p_user_key_value in varchar2,
62 p_unique_key_id  in number)
63 is
64 begin
65 hr_data_pump.entry('ins_user_key');
66 insert into hr_pump_batch_line_user_keys
67 (user_key_id, batch_line_id,user_key_value,unique_key_id)
68 values
69 (hr_pump_batch_line_user_keys_s.nextval,
70 p_batch_line_id,
71 p_user_key_value,
72 p_unique_key_id);
73 hr_data_pump.exit('ins_user_key');
74 end iuk;
75 --
76 procedure insert_batch_lines
77 (p_batch_id      in number
78 ,p_data_pump_batch_line_id in number default null
79 ,p_data_pump_business_grp_name in varchar2 default null
80 ,p_user_sequence in number default null
81 ,p_link_value    in number default null
82 ,P_EFFECTIVE_DATE in date
83 ,P_LANGUAGE_CODE in varchar2 default null
84 ,P_OUTCOME_NUMBER in number default null
85 ,I_OUTCOME_NUMBER in varchar2 default 'N'
86 ,P_NAME in varchar2 default null
87 ,P_DATE_FROM in date default null
88 ,I_DATE_FROM in varchar2 default 'N'
89 ,P_DATE_TO in date default null
90 ,I_DATE_TO in varchar2 default 'N'
91 ,P_ASSESSMENT_CRITERIA in varchar2 default null
92 ,P_ATTRIBUTE_CATEGORY in varchar2 default null
93 ,P_ATTRIBUTE1 in varchar2 default null
94 ,P_ATTRIBUTE2 in varchar2 default null
95 ,P_ATTRIBUTE3 in varchar2 default null
96 ,P_ATTRIBUTE4 in varchar2 default null
97 ,P_ATTRIBUTE5 in varchar2 default null
98 ,P_ATTRIBUTE6 in varchar2 default null
99 ,P_ATTRIBUTE7 in varchar2 default null
100 ,P_ATTRIBUTE8 in varchar2 default null
101 ,P_ATTRIBUTE9 in varchar2 default null
102 ,P_ATTRIBUTE10 in varchar2 default null
103 ,P_ATTRIBUTE11 in varchar2 default null
104 ,P_ATTRIBUTE12 in varchar2 default null
105 ,P_ATTRIBUTE13 in varchar2 default null
106 ,P_ATTRIBUTE14 in varchar2 default null
107 ,P_ATTRIBUTE15 in varchar2 default null
108 ,P_ATTRIBUTE16 in varchar2 default null
109 ,P_ATTRIBUTE17 in varchar2 default null
110 ,P_ATTRIBUTE18 in varchar2 default null
111 ,P_ATTRIBUTE19 in varchar2 default null
112 ,P_ATTRIBUTE20 in varchar2 default null
113 ,P_INFORMATION_CATEGORY in varchar2 default null
114 ,P_INFORMATION1 in varchar2 default null
115 ,P_INFORMATION2 in varchar2 default null
116 ,P_INFORMATION3 in varchar2 default null
117 ,P_INFORMATION4 in varchar2 default null
118 ,P_INFORMATION5 in varchar2 default null
119 ,P_INFORMATION6 in varchar2 default null
120 ,P_INFORMATION7 in varchar2 default null
121 ,P_INFORMATION8 in varchar2 default null
122 ,P_INFORMATION9 in varchar2 default null
123 ,P_INFORMATION10 in varchar2 default null
124 ,P_INFORMATION11 in varchar2 default null
125 ,P_INFORMATION12 in varchar2 default null
126 ,P_INFORMATION13 in varchar2 default null
127 ,P_INFORMATION14 in varchar2 default null
128 ,P_INFORMATION15 in varchar2 default null
129 ,P_INFORMATION16 in varchar2 default null
130 ,P_INFORMATION17 in varchar2 default null
131 ,P_INFORMATION18 in varchar2 default null
132 ,P_INFORMATION19 in varchar2 default null
133 ,P_INFORMATION20 in varchar2 default null
134 ,P_OUTCOME_NAME in varchar2
135 ,P_COMPETENCE_NAME in varchar2 default null) is
136 blid number := p_data_pump_batch_line_id;
137 begin
138 if blid is not null then
139 delete from hr_pump_batch_lines where batch_line_id = blid;
140 delete from hr_pump_batch_exceptions
141 where source_type = 'BATCH_LINE' and source_id = blid;
142 end if;
143 insert into hr_pump_batch_lines
144 (batch_id
145 ,batch_line_id
146 ,business_group_name
147 ,api_module_id
148 ,line_status
149 ,user_sequence
150 ,link_value
151 ,pval001
152 ,pval002
153 ,pval003
154 ,pval004
155 ,pval005
156 ,pval006
157 ,pval007
158 ,pval008
159 ,pval009
160 ,pval010
164 ,pval014
161 ,pval011
162 ,pval012
163 ,pval013
165 ,pval015
166 ,pval016
167 ,pval017
168 ,pval018
169 ,pval019
170 ,pval020
171 ,pval021
172 ,pval022
173 ,pval023
174 ,pval024
175 ,pval025
176 ,pval026
177 ,pval027
178 ,pval028
179 ,pval029
180 ,pval030
181 ,pval031
182 ,pval032
183 ,pval033
184 ,pval034
185 ,pval035
186 ,pval036
187 ,pval037
188 ,pval038
189 ,pval039
190 ,pval040
191 ,pval041
192 ,pval042
193 ,pval043
194 ,pval044
195 ,pval045
196 ,pval046
197 ,pval047
198 ,pval048
199 ,pval049
200 ,pval050
201 ,pval051)
202 values
203 (p_batch_id
204 ,nvl(blid,hr_pump_batch_lines_s.nextval)
205 ,p_data_pump_business_grp_name
206 ,3106
207 ,'U'
208 ,p_user_sequence
209 ,p_link_value
210 ,dc(P_EFFECTIVE_DATE)
211 ,P_LANGUAGE_CODE
212 ,nd(P_OUTCOME_NUMBER,I_OUTCOME_NUMBER)
213 ,P_NAME
214 ,dd(P_DATE_FROM,I_DATE_FROM)
215 ,dd(P_DATE_TO,I_DATE_TO)
216 ,P_ASSESSMENT_CRITERIA
217 ,P_ATTRIBUTE_CATEGORY
218 ,P_ATTRIBUTE1
219 ,P_ATTRIBUTE2
220 ,P_ATTRIBUTE3
221 ,P_ATTRIBUTE4
222 ,P_ATTRIBUTE5
223 ,P_ATTRIBUTE6
224 ,P_ATTRIBUTE7
225 ,P_ATTRIBUTE8
226 ,P_ATTRIBUTE9
227 ,P_ATTRIBUTE10
228 ,P_ATTRIBUTE11
229 ,P_ATTRIBUTE12
230 ,P_ATTRIBUTE13
231 ,P_ATTRIBUTE14
232 ,P_ATTRIBUTE15
233 ,P_ATTRIBUTE16
234 ,P_ATTRIBUTE17
235 ,P_ATTRIBUTE18
236 ,P_ATTRIBUTE19
237 ,P_ATTRIBUTE20
238 ,P_INFORMATION_CATEGORY
239 ,P_INFORMATION1
240 ,P_INFORMATION2
241 ,P_INFORMATION3
242 ,P_INFORMATION4
243 ,P_INFORMATION5
244 ,P_INFORMATION6
245 ,P_INFORMATION7
246 ,P_INFORMATION8
247 ,P_INFORMATION9
248 ,P_INFORMATION10
249 ,P_INFORMATION11
250 ,P_INFORMATION12
251 ,P_INFORMATION13
252 ,P_INFORMATION14
253 ,P_INFORMATION15
254 ,P_INFORMATION16
255 ,P_INFORMATION17
256 ,P_INFORMATION18
257 ,P_INFORMATION19
258 ,P_INFORMATION20
259 ,P_OUTCOME_NAME
260 ,P_COMPETENCE_NAME);
261 end insert_batch_lines;
262 --
263 procedure call
264 (p_business_group_id in number,
265 p_batch_line_id     in number) is
266 cursor cr is
267 select l.rowid myrowid,
268 decode(l.pval001,cn,dn,d(l.pval001)) p1,
269 decode(l.pval002,cn,vn,vn,vh,l.pval002) p2,
270 l.pval002 d2,
271 decode(l.pval003,cn,nn,vn,nh,n(l.pval003)) p3,
272 l.pval003 d3,
273 decode(l.pval004,cn,vn,vn,vh,l.pval004) p4,
274 l.pval004 d4,
275 decode(l.pval005,cn,dn,vn,dh,d(l.pval005)) p5,
276 l.pval005 d5,
277 decode(l.pval006,cn,dn,vn,dh,d(l.pval006)) p6,
278 l.pval006 d6,
279 decode(l.pval007,cn,vn,vn,vh,l.pval007) p7,
280 l.pval007 d7,
281 decode(l.pval008,cn,vn,vn,vh,l.pval008) p8,
282 l.pval008 d8,
283 decode(l.pval009,cn,vn,vn,vh,l.pval009) p9,
284 l.pval009 d9,
285 decode(l.pval010,cn,vn,vn,vh,l.pval010) p10,
286 l.pval010 d10,
287 decode(l.pval011,cn,vn,vn,vh,l.pval011) p11,
288 l.pval011 d11,
289 decode(l.pval012,cn,vn,vn,vh,l.pval012) p12,
290 l.pval012 d12,
291 decode(l.pval013,cn,vn,vn,vh,l.pval013) p13,
292 l.pval013 d13,
293 decode(l.pval014,cn,vn,vn,vh,l.pval014) p14,
294 l.pval014 d14,
295 decode(l.pval015,cn,vn,vn,vh,l.pval015) p15,
296 l.pval015 d15,
297 decode(l.pval016,cn,vn,vn,vh,l.pval016) p16,
298 l.pval016 d16,
299 decode(l.pval017,cn,vn,vn,vh,l.pval017) p17,
300 l.pval017 d17,
301 decode(l.pval018,cn,vn,vn,vh,l.pval018) p18,
302 l.pval018 d18,
303 decode(l.pval019,cn,vn,vn,vh,l.pval019) p19,
304 l.pval019 d19,
305 decode(l.pval020,cn,vn,vn,vh,l.pval020) p20,
306 l.pval020 d20,
307 decode(l.pval021,cn,vn,vn,vh,l.pval021) p21,
308 l.pval021 d21,
309 decode(l.pval022,cn,vn,vn,vh,l.pval022) p22,
310 l.pval022 d22,
311 decode(l.pval023,cn,vn,vn,vh,l.pval023) p23,
312 l.pval023 d23,
313 decode(l.pval024,cn,vn,vn,vh,l.pval024) p24,
314 l.pval024 d24,
315 decode(l.pval025,cn,vn,vn,vh,l.pval025) p25,
316 l.pval025 d25,
317 decode(l.pval026,cn,vn,vn,vh,l.pval026) p26,
318 l.pval026 d26,
319 decode(l.pval027,cn,vn,vn,vh,l.pval027) p27,
320 l.pval027 d27,
321 decode(l.pval028,cn,vn,vn,vh,l.pval028) p28,
322 l.pval028 d28,
323 decode(l.pval029,cn,vn,vn,vh,l.pval029) p29,
324 l.pval029 d29,
325 decode(l.pval030,cn,vn,vn,vh,l.pval030) p30,
326 l.pval030 d30,
327 decode(l.pval031,cn,vn,vn,vh,l.pval031) p31,
328 l.pval031 d31,
329 decode(l.pval032,cn,vn,vn,vh,l.pval032) p32,
330 l.pval032 d32,
331 decode(l.pval033,cn,vn,vn,vh,l.pval033) p33,
332 l.pval033 d33,
333 decode(l.pval034,cn,vn,vn,vh,l.pval034) p34,
334 l.pval034 d34,
335 decode(l.pval035,cn,vn,vn,vh,l.pval035) p35,
336 l.pval035 d35,
337 decode(l.pval036,cn,vn,vn,vh,l.pval036) p36,
338 l.pval036 d36,
339 decode(l.pval037,cn,vn,vn,vh,l.pval037) p37,
340 l.pval037 d37,
341 decode(l.pval038,cn,vn,vn,vh,l.pval038) p38,
342 l.pval038 d38,
343 decode(l.pval039,cn,vn,vn,vh,l.pval039) p39,
344 l.pval039 d39,
345 decode(l.pval040,cn,vn,vn,vh,l.pval040) p40,
346 l.pval040 d40,
347 decode(l.pval041,cn,vn,vn,vh,l.pval041) p41,
348 l.pval041 d41,
349 decode(l.pval042,cn,vn,vn,vh,l.pval042) p42,
350 l.pval042 d42,
351 decode(l.pval043,cn,vn,vn,vh,l.pval043) p43,
352 l.pval043 d43,
353 decode(l.pval044,cn,vn,vn,vh,l.pval044) p44,
354 l.pval044 d44,
355 decode(l.pval045,cn,vn,vn,vh,l.pval045) p45,
356 l.pval045 d45,
357 decode(l.pval046,cn,vn,vn,vh,l.pval046) p46,
358 l.pval046 d46,
359 decode(l.pval047,cn,vn,vn,vh,l.pval047) p47,
360 l.pval047 d47,
361 decode(l.pval048,cn,vn,vn,vh,l.pval048) p48,
362 l.pval048 d48,
363 decode(l.pval049,cn,vn,vn,vh,l.pval049) p49,
364 l.pval049 d49,
365 decode(l.pval050,cn,vn,l.pval050) p50,
366 decode(l.pval051,cn,vn,vn,vh,l.pval051) p51,
367 l.pval051 d51
368 from hr_pump_batch_lines l
369 where l.batch_line_id = p_batch_line_id;
370 --
371 c cr%rowtype;
372 l_validate boolean := false;
373 L_OUTCOME_ID number;
374 L_OBJECT_VERSION_NUMBER number;
375 L_COMPETENCE_ID number;
376 --
377 begin
378 hr_data_pump.entry('call');
379 open cr;
380 fetch cr into c;
381 if cr%notfound then
382 hr_utility.set_message(800,'HR_50326_DP_NO_ROW');
383 hr_utility.set_message_token('TABLE','HR_PUMP_BATCH_LINES');
384 hr_utility.set_message_token('COLUMN','P_BATCH_LINE_ID');
385 hr_utility.set_message_token('VALUE',p_batch_line_id);
386 hr_utility.raise_error;
387 end if;
388 --
389 L_OUTCOME_ID := 
390 hr_pump_get.get_outcome_id
391 (P_DATA_PUMP_ALWAYS_CALL => null
392 ,P_OUTCOME_NAME => c.p50);
393 --
394 L_OBJECT_VERSION_NUMBER := 
395 hr_pump_get.GET_CPO_OVN
396 (P_DATA_PUMP_ALWAYS_CALL => null
397 ,P_OUTCOME_NAME => c.p50);
398 --
399 L_COMPETENCE_ID := 
400 hr_pump_get.GET_COMPETENCE_ID
401 (P_DATA_PUMP_ALWAYS_CALL => null
402 ,P_COMPETENCE_NAME => c.p51
403 ,P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID);
404 --
405 hr_data_pump.api_trc_on;
406 HR_COMPETENCE_OUTCOME_API.UPDATE_OUTCOME
407 (p_validate => l_validate
408 ,P_EFFECTIVE_DATE => c.p1
409 ,P_LANGUAGE_CODE => c.p2
410 ,P_OUTCOME_ID => L_OUTCOME_ID
411 ,P_OBJECT_VERSION_NUMBER => L_OBJECT_VERSION_NUMBER
412 ,P_COMPETENCE_ID => L_COMPETENCE_ID
413 ,P_OUTCOME_NUMBER => c.p3
414 ,P_NAME => c.p4
415 ,P_DATE_FROM => c.p5
416 ,P_DATE_TO => c.p6
417 ,P_ASSESSMENT_CRITERIA => c.p7
418 ,P_ATTRIBUTE_CATEGORY => c.p8
419 ,P_ATTRIBUTE1 => c.p9
420 ,P_ATTRIBUTE2 => c.p10
421 ,P_ATTRIBUTE3 => c.p11
422 ,P_ATTRIBUTE4 => c.p12
423 ,P_ATTRIBUTE5 => c.p13
424 ,P_ATTRIBUTE6 => c.p14
425 ,P_ATTRIBUTE7 => c.p15
426 ,P_ATTRIBUTE8 => c.p16
427 ,P_ATTRIBUTE9 => c.p17
428 ,P_ATTRIBUTE10 => c.p18
429 ,P_ATTRIBUTE11 => c.p19
430 ,P_ATTRIBUTE12 => c.p20
431 ,P_ATTRIBUTE13 => c.p21
432 ,P_ATTRIBUTE14 => c.p22
433 ,P_ATTRIBUTE15 => c.p23
434 ,P_ATTRIBUTE16 => c.p24
435 ,P_ATTRIBUTE17 => c.p25
436 ,P_ATTRIBUTE18 => c.p26
437 ,P_ATTRIBUTE19 => c.p27
438 ,P_ATTRIBUTE20 => c.p28
439 ,P_INFORMATION_CATEGORY => c.p29
440 ,P_INFORMATION1 => c.p30
441 ,P_INFORMATION2 => c.p31
442 ,P_INFORMATION3 => c.p32
443 ,P_INFORMATION4 => c.p33
444 ,P_INFORMATION5 => c.p34
445 ,P_INFORMATION6 => c.p35
446 ,P_INFORMATION7 => c.p36
447 ,P_INFORMATION8 => c.p37
448 ,P_INFORMATION9 => c.p38
449 ,P_INFORMATION10 => c.p39
450 ,P_INFORMATION11 => c.p40
451 ,P_INFORMATION12 => c.p41
452 ,P_INFORMATION13 => c.p42
453 ,P_INFORMATION14 => c.p43
454 ,P_INFORMATION15 => c.p44
455 ,P_INFORMATION16 => c.p45
456 ,P_INFORMATION17 => c.p46
457 ,P_INFORMATION18 => c.p47
458 ,P_INFORMATION19 => c.p48
459 ,P_INFORMATION20 => c.p49);
460 hr_data_pump.api_trc_off;
461 
462 --
463 
464 --
465 close cr;
466 --
467 hr_data_pump.exit('call');
468 exception
469  when hr_multi_message.error_message_exist then
470    if cr%isopen then
471     close cr;
472    end if;
473    hr_pump_utils.set_multi_msg_error_flag(true);
474  when others then
475  if cr%isopen then
476   close cr;
477  end if;
478  raise;
479 end call;
480 end hrdpp_UPDATE_OUTCOME;