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.HRDPP_CREATE_PERSON_LIFE_EVENT

Source


1 package body hrdpp_CREATE_PERSON_LIFE_EVENT as
2 /*
3  * Generated by hr_pump_meta_mapper at: 2009/03/30 04:03:33
4  * Generated for API: ben_person_life_event_api.CREATE_PERSON_LIFE_EVENT
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_PER_IN_LER_USER_KEY in varchar2
83 ,P_PER_IN_LER_STAT_CD in varchar2 default null
84 ,P_PRVS_STAT_CD in varchar2 default null
85 ,P_LF_EVT_OCRD_DT in date default null
86 ,P_BCKT_DT in date default null
87 ,P_CLSD_DT in date default null
88 ,P_NTFN_DT in date default null
89 ,P_MGR_OVRID_DT in date default null
90 ,P_PIL_ATTRIBUTE_CATEGORY in varchar2 default null
91 ,P_PIL_ATTRIBUTE1 in varchar2 default null
92 ,P_PIL_ATTRIBUTE2 in varchar2 default null
93 ,P_PIL_ATTRIBUTE3 in varchar2 default null
94 ,P_PIL_ATTRIBUTE4 in varchar2 default null
95 ,P_PIL_ATTRIBUTE5 in varchar2 default null
96 ,P_PIL_ATTRIBUTE6 in varchar2 default null
97 ,P_PIL_ATTRIBUTE7 in varchar2 default null
98 ,P_PIL_ATTRIBUTE8 in varchar2 default null
99 ,P_PIL_ATTRIBUTE9 in varchar2 default null
100 ,P_PIL_ATTRIBUTE10 in varchar2 default null
101 ,P_PIL_ATTRIBUTE11 in varchar2 default null
102 ,P_PIL_ATTRIBUTE12 in varchar2 default null
103 ,P_PIL_ATTRIBUTE13 in varchar2 default null
104 ,P_PIL_ATTRIBUTE14 in varchar2 default null
105 ,P_PIL_ATTRIBUTE15 in varchar2 default null
106 ,P_PIL_ATTRIBUTE16 in varchar2 default null
107 ,P_PIL_ATTRIBUTE17 in varchar2 default null
108 ,P_PIL_ATTRIBUTE18 in varchar2 default null
109 ,P_PIL_ATTRIBUTE19 in varchar2 default null
110 ,P_PIL_ATTRIBUTE20 in varchar2 default null
111 ,P_PIL_ATTRIBUTE21 in varchar2 default null
112 ,P_PIL_ATTRIBUTE22 in varchar2 default null
113 ,P_PIL_ATTRIBUTE23 in varchar2 default null
114 ,P_PIL_ATTRIBUTE24 in varchar2 default null
115 ,P_PIL_ATTRIBUTE25 in varchar2 default null
116 ,P_PIL_ATTRIBUTE26 in varchar2 default null
117 ,P_PIL_ATTRIBUTE27 in varchar2 default null
118 ,P_PIL_ATTRIBUTE28 in varchar2 default null
119 ,P_PIL_ATTRIBUTE29 in varchar2 default null
120 ,P_PIL_ATTRIBUTE30 in varchar2 default null
121 ,P_PROGRAM_UPDATE_DATE in date default null
122 ,P_EFFECTIVE_DATE in date
123 ,P_TRGR_TABLE_PK_USER_KEY in varchar2 default null
124 ,P_PTNL_LER_FOR_PER_USER_KEY in varchar2 default null
125 ,P_BCKT_PER_IN_LER_USER_KEY in varchar2 default null
126 ,P_LIFE_EVENT_REASON in varchar2 default null
127 ,P_PERSON_USER_KEY in varchar2 default null
128 ,P_ASSIGNMENT_USER_KEY in varchar2 default null
129 ,P_WS_MGR_USER_KEY in varchar2 default null
130 ,P_GROUP_PL_USER_KEY in varchar2 default null
131 ,P_MGR_OVRID_PERSON_USER_KEY in varchar2 default null) is
132 blid number := p_data_pump_batch_line_id;
133 begin
134 if blid is not null then
135 delete from hr_pump_batch_lines where batch_line_id = blid;
136 delete from hr_pump_batch_exceptions
137 where source_type = 'BATCH_LINE' and source_id = blid;
138 end if;
139 insert into hr_pump_batch_lines
140 (batch_id
141 ,batch_line_id
142 ,business_group_name
143 ,api_module_id
144 ,line_status
145 ,user_sequence
146 ,link_value
147 ,pval001
148 ,pval002
149 ,pval003
150 ,pval004
151 ,pval008
152 ,pval009
153 ,pval010
154 ,pval011
155 ,pval012
156 ,pval013
157 ,pval014
158 ,pval015
159 ,pval016
160 ,pval017
161 ,pval018
162 ,pval019
163 ,pval020
164 ,pval021
165 ,pval022
166 ,pval023
167 ,pval024
168 ,pval025
169 ,pval026
170 ,pval027
171 ,pval028
172 ,pval029
173 ,pval030
174 ,pval031
175 ,pval032
176 ,pval033
177 ,pval034
178 ,pval035
179 ,pval036
180 ,pval037
181 ,pval038
182 ,pval039
183 ,pval040
184 ,pval041
185 ,pval042
186 ,pval043
187 ,pval045
188 ,pval046
189 ,pval047
190 ,pval048
191 ,pval049
192 ,pval050
193 ,pval051
194 ,pval052
195 ,pval053
196 ,pval054)
197 values
198 (p_batch_id
199 ,nvl(blid,hr_pump_batch_lines_s.nextval)
200 ,p_data_pump_business_grp_name
201 ,651
202 ,'U'
203 ,p_user_sequence
204 ,p_link_value
205 ,P_PER_IN_LER_USER_KEY
206 ,P_PER_IN_LER_STAT_CD
207 ,P_PRVS_STAT_CD
208 ,dc(P_LF_EVT_OCRD_DT)
209 ,dc(P_BCKT_DT)
210 ,dc(P_CLSD_DT)
211 ,dc(P_NTFN_DT)
212 ,dc(P_MGR_OVRID_DT)
213 ,P_PIL_ATTRIBUTE_CATEGORY
214 ,P_PIL_ATTRIBUTE1
215 ,P_PIL_ATTRIBUTE2
216 ,P_PIL_ATTRIBUTE3
217 ,P_PIL_ATTRIBUTE4
218 ,P_PIL_ATTRIBUTE5
219 ,P_PIL_ATTRIBUTE6
220 ,P_PIL_ATTRIBUTE7
221 ,P_PIL_ATTRIBUTE8
222 ,P_PIL_ATTRIBUTE9
223 ,P_PIL_ATTRIBUTE10
224 ,P_PIL_ATTRIBUTE11
225 ,P_PIL_ATTRIBUTE12
226 ,P_PIL_ATTRIBUTE13
227 ,P_PIL_ATTRIBUTE14
228 ,P_PIL_ATTRIBUTE15
229 ,P_PIL_ATTRIBUTE16
230 ,P_PIL_ATTRIBUTE17
231 ,P_PIL_ATTRIBUTE18
232 ,P_PIL_ATTRIBUTE19
233 ,P_PIL_ATTRIBUTE20
234 ,P_PIL_ATTRIBUTE21
235 ,P_PIL_ATTRIBUTE22
236 ,P_PIL_ATTRIBUTE23
237 ,P_PIL_ATTRIBUTE24
238 ,P_PIL_ATTRIBUTE25
239 ,P_PIL_ATTRIBUTE26
240 ,P_PIL_ATTRIBUTE27
241 ,P_PIL_ATTRIBUTE28
242 ,P_PIL_ATTRIBUTE29
243 ,P_PIL_ATTRIBUTE30
244 ,dc(P_PROGRAM_UPDATE_DATE)
245 ,dc(P_EFFECTIVE_DATE)
246 ,P_TRGR_TABLE_PK_USER_KEY
247 ,P_PTNL_LER_FOR_PER_USER_KEY
248 ,P_BCKT_PER_IN_LER_USER_KEY
249 ,P_LIFE_EVENT_REASON
250 ,P_PERSON_USER_KEY
251 ,P_ASSIGNMENT_USER_KEY
252 ,P_WS_MGR_USER_KEY
253 ,P_GROUP_PL_USER_KEY
254 ,P_MGR_OVRID_PERSON_USER_KEY);
255 end insert_batch_lines;
256 --
257 procedure call
258 (p_business_group_id in number,
259 p_batch_line_id     in number) is
260 cursor cr is
261 select l.rowid myrowid,
262 l.pval001 p1,
263 decode(l.pval002,cn,vn,vn,vn,
264  hr_pump_get.gl(l.pval002,'BEN_PER_IN_LER_STAT',d(l.pval045),vn)) p2,
265 l.pval002 d2,
266 decode(l.pval003,cn,vn,vn,vn,
267  hr_pump_get.gl(l.pval003,'BEN_PER_IN_LER_STAT',d(l.pval045),vn)) p3,
268 l.pval003 d3,
269 decode(l.pval004,cn,dn,vn,dn,d(l.pval004)) p4,
270 l.pval004 d4,
271 decode(l.pval005,cn,dn,d(l.pval005)) p5,
272 decode(l.pval006,cn,dn,d(l.pval006)) p6,
273 decode(l.pval007,cn,dn,d(l.pval007)) p7,
274 decode(l.pval008,cn,dn,vn,dn,d(l.pval008)) p8,
275 l.pval008 d8,
276 decode(l.pval009,cn,dn,vn,dn,d(l.pval009)) p9,
277 l.pval009 d9,
278 decode(l.pval010,cn,dn,vn,dn,d(l.pval010)) p10,
279 l.pval010 d10,
280 decode(l.pval011,cn,dn,vn,dn,d(l.pval011)) p11,
281 l.pval011 d11,
282 decode(l.pval012,cn,vn,vn,vn,l.pval012) p12,
283 l.pval012 d12,
284 decode(l.pval013,cn,vn,vn,vn,l.pval013) p13,
285 l.pval013 d13,
286 decode(l.pval014,cn,vn,vn,vn,l.pval014) p14,
287 l.pval014 d14,
288 decode(l.pval015,cn,vn,vn,vn,l.pval015) p15,
289 l.pval015 d15,
290 decode(l.pval016,cn,vn,vn,vn,l.pval016) p16,
291 l.pval016 d16,
292 decode(l.pval017,cn,vn,vn,vn,l.pval017) p17,
293 l.pval017 d17,
294 decode(l.pval018,cn,vn,vn,vn,l.pval018) p18,
295 l.pval018 d18,
296 decode(l.pval019,cn,vn,vn,vn,l.pval019) p19,
297 l.pval019 d19,
298 decode(l.pval020,cn,vn,vn,vn,l.pval020) p20,
299 l.pval020 d20,
300 decode(l.pval021,cn,vn,vn,vn,l.pval021) p21,
301 l.pval021 d21,
302 decode(l.pval022,cn,vn,vn,vn,l.pval022) p22,
303 l.pval022 d22,
304 decode(l.pval023,cn,vn,vn,vn,l.pval023) p23,
305 l.pval023 d23,
306 decode(l.pval024,cn,vn,vn,vn,l.pval024) p24,
307 l.pval024 d24,
308 decode(l.pval025,cn,vn,vn,vn,l.pval025) p25,
309 l.pval025 d25,
310 decode(l.pval026,cn,vn,vn,vn,l.pval026) p26,
311 l.pval026 d26,
312 decode(l.pval027,cn,vn,vn,vn,l.pval027) p27,
313 l.pval027 d27,
314 decode(l.pval028,cn,vn,vn,vn,l.pval028) p28,
315 l.pval028 d28,
316 decode(l.pval029,cn,vn,vn,vn,l.pval029) p29,
317 l.pval029 d29,
318 decode(l.pval030,cn,vn,vn,vn,l.pval030) p30,
319 l.pval030 d30,
320 decode(l.pval031,cn,vn,vn,vn,l.pval031) p31,
321 l.pval031 d31,
322 decode(l.pval032,cn,vn,vn,vn,l.pval032) p32,
323 l.pval032 d32,
324 decode(l.pval033,cn,vn,vn,vn,l.pval033) p33,
325 l.pval033 d33,
326 decode(l.pval034,cn,vn,vn,vn,l.pval034) p34,
327 l.pval034 d34,
328 decode(l.pval035,cn,vn,vn,vn,l.pval035) p35,
329 l.pval035 d35,
330 decode(l.pval036,cn,vn,vn,vn,l.pval036) p36,
331 l.pval036 d36,
335 l.pval038 d38,
332 decode(l.pval037,cn,vn,vn,vn,l.pval037) p37,
333 l.pval037 d37,
334 decode(l.pval038,cn,vn,vn,vn,l.pval038) p38,
336 decode(l.pval039,cn,vn,vn,vn,l.pval039) p39,
337 l.pval039 d39,
338 decode(l.pval040,cn,vn,vn,vn,l.pval040) p40,
339 l.pval040 d40,
340 decode(l.pval041,cn,vn,vn,vn,l.pval041) p41,
341 l.pval041 d41,
342 decode(l.pval042,cn,vn,vn,vn,l.pval042) p42,
343 l.pval042 d42,
344 decode(l.pval043,cn,dn,vn,dn,d(l.pval043)) p43,
345 l.pval043 d43,
346 l.pval044 p44,
347 decode(l.pval045,cn,dn,d(l.pval045)) p45,
348 decode(l.pval046,cn,vn,vn,vn,l.pval046) p46,
349 l.pval046 d46,
350 decode(l.pval047,cn,vn,vn,vn,l.pval047) p47,
351 l.pval047 d47,
352 decode(l.pval048,cn,vn,vn,vn,l.pval048) p48,
353 l.pval048 d48,
354 decode(l.pval049,cn,vn,vn,vn,l.pval049) p49,
355 l.pval049 d49,
356 decode(l.pval050,cn,vn,vn,vn,l.pval050) p50,
357 l.pval050 d50,
358 decode(l.pval051,cn,vn,vn,vn,l.pval051) p51,
359 l.pval051 d51,
360 decode(l.pval052,cn,vn,vn,vn,l.pval052) p52,
361 l.pval052 d52,
362 decode(l.pval053,cn,vn,vn,vn,l.pval053) p53,
363 l.pval053 d53,
364 decode(l.pval054,cn,vn,vn,vn,l.pval054) p54,
365 l.pval054 d54
366 from hr_pump_batch_lines l
367 where l.batch_line_id = p_batch_line_id;
368 --
369 c cr%rowtype;
370 l_validate boolean := false;
371 L_PER_IN_LER_ID number;
372 L_TRGR_TABLE_PK_ID number;
373 L_PTNL_LER_FOR_PER_ID number;
374 L_BCKT_PER_IN_LER_ID number;
375 L_LER_ID number;
376 L_PERSON_ID number;
377 L_ASSIGNMENT_ID number;
378 L_WS_MGR_ID number;
379 L_GROUP_PL_ID number;
380 L_MGR_OVRID_PERSON_ID number;
381 L_REQUEST_ID number;
382 L_PROGRAM_APPLICATION_ID number;
383 L_PROGRAM_ID number;
384 --
385 begin
386 hr_data_pump.entry('call');
387 open cr;
388 fetch cr into c;
389 if cr%notfound then
390 hr_utility.set_message(800,'HR_50326_DP_NO_ROW');
391 hr_utility.set_message_token('TABLE','HR_PUMP_BATCH_LINES');
392 hr_utility.set_message_token('COLUMN','P_BATCH_LINE_ID');
393 hr_utility.set_message_token('VALUE',p_batch_line_id);
394 hr_utility.raise_error;
395 end if;
396 --
397 if c.p46 is null then
398 L_TRGR_TABLE_PK_ID:=nn;
399 else
400 L_TRGR_TABLE_PK_ID := 
401 hr_pump_get.get_trgr_table_pk_id
402 (P_TRGR_TABLE_PK_USER_KEY => c.p46);
403 end if;
404 --
405 if c.p47 is null then
406 L_PTNL_LER_FOR_PER_ID:=nn;
407 else
408 L_PTNL_LER_FOR_PER_ID := 
409 hr_pump_get.get_ptnl_ler_for_per_id
410 (P_PTNL_LER_FOR_PER_USER_KEY => c.p47);
411 end if;
412 --
413 if c.p48 is null then
414 L_BCKT_PER_IN_LER_ID:=nn;
415 else
416 L_BCKT_PER_IN_LER_ID := 
417 hr_pump_get.get_bckt_per_in_ler_id
418 (P_BCKT_PER_IN_LER_USER_KEY => c.p48);
419 end if;
420 --
421 if c.p49 is null or
422 c.p45 is null then
423 L_LER_ID:=nn;
424 else
425 L_LER_ID := 
426 hr_pump_get.get_ler_id
427 (P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
428 ,P_LIFE_EVENT_REASON => c.p49
429 ,P_EFFECTIVE_DATE => c.p45);
430 end if;
431 --
432 if c.p50 is null then
433 L_PERSON_ID:=nn;
434 else
435 L_PERSON_ID := 
436 hr_pump_get.get_person_id
437 (P_PERSON_USER_KEY => c.p50);
438 end if;
439 --
440 if c.p51 is null then
441 L_ASSIGNMENT_ID:=nn;
442 else
443 L_ASSIGNMENT_ID := 
444 hr_pump_get.get_assignment_id
445 (P_ASSIGNMENT_USER_KEY => c.p51);
446 end if;
447 --
448 if c.p52 is null then
449 L_WS_MGR_ID:=nn;
450 else
451 L_WS_MGR_ID := 
452 hr_pump_get.get_ws_mgr_id
453 (P_WS_MGR_USER_KEY => c.p52);
454 end if;
455 --
456 if c.p53 is null then
457 L_GROUP_PL_ID:=nn;
458 else
459 L_GROUP_PL_ID := 
460 hr_pump_get.get_group_pl_id
461 (P_GROUP_PL_USER_KEY => c.p53);
462 end if;
463 --
464 if c.p54 is null then
465 L_MGR_OVRID_PERSON_ID:=nn;
466 else
467 L_MGR_OVRID_PERSON_ID := 
468 hr_pump_get.get_mgr_ovrid_person_id
469 (P_MGR_OVRID_PERSON_USER_KEY => c.p54);
470 end if;
471 --
472 L_REQUEST_ID := 
473 hr_pump_get.get_request_id;
474 --
475 L_PROGRAM_APPLICATION_ID := 
476 hr_pump_get.get_program_application_id;
477 --
478 L_PROGRAM_ID := 
479 hr_pump_get.get_program_id;
480 --
481 hr_data_pump.api_trc_on;
482 ben_person_life_event_api.CREATE_PERSON_LIFE_EVENT
483 (p_validate => l_validate
484 ,P_PER_IN_LER_ID => L_PER_IN_LER_ID
485 ,P_PER_IN_LER_STAT_CD => c.p2
486 ,P_PRVS_STAT_CD => c.p3
487 ,P_LF_EVT_OCRD_DT => c.p4
488 ,P_TRGR_TABLE_PK_ID => L_TRGR_TABLE_PK_ID
489 ,P_PROCD_DT => c.p5
490 ,P_STRTD_DT => c.p6
491 ,P_VOIDD_DT => c.p7
492 ,P_BCKT_DT => c.p8
493 ,P_CLSD_DT => c.p9
494 ,P_NTFN_DT => c.p10
495 ,P_PTNL_LER_FOR_PER_ID => L_PTNL_LER_FOR_PER_ID
496 ,P_BCKT_PER_IN_LER_ID => L_BCKT_PER_IN_LER_ID
497 ,P_LER_ID => L_LER_ID
498 ,P_PERSON_ID => L_PERSON_ID
499 ,p_business_group_id => p_business_group_id
500 ,P_ASSIGNMENT_ID => L_ASSIGNMENT_ID
501 ,P_WS_MGR_ID => L_WS_MGR_ID
502 ,P_GROUP_PL_ID => L_GROUP_PL_ID
503 ,P_MGR_OVRID_PERSON_ID => L_MGR_OVRID_PERSON_ID
504 ,P_MGR_OVRID_DT => c.p11
505 ,P_PIL_ATTRIBUTE_CATEGORY => c.p12
506 ,P_PIL_ATTRIBUTE1 => c.p13
507 ,P_PIL_ATTRIBUTE2 => c.p14
508 ,P_PIL_ATTRIBUTE3 => c.p15
509 ,P_PIL_ATTRIBUTE4 => c.p16
510 ,P_PIL_ATTRIBUTE5 => c.p17
511 ,P_PIL_ATTRIBUTE6 => c.p18
512 ,P_PIL_ATTRIBUTE7 => c.p19
513 ,P_PIL_ATTRIBUTE8 => c.p20
517 ,P_PIL_ATTRIBUTE12 => c.p24
514 ,P_PIL_ATTRIBUTE9 => c.p21
515 ,P_PIL_ATTRIBUTE10 => c.p22
516 ,P_PIL_ATTRIBUTE11 => c.p23
518 ,P_PIL_ATTRIBUTE13 => c.p25
519 ,P_PIL_ATTRIBUTE14 => c.p26
520 ,P_PIL_ATTRIBUTE15 => c.p27
521 ,P_PIL_ATTRIBUTE16 => c.p28
522 ,P_PIL_ATTRIBUTE17 => c.p29
523 ,P_PIL_ATTRIBUTE18 => c.p30
524 ,P_PIL_ATTRIBUTE19 => c.p31
525 ,P_PIL_ATTRIBUTE20 => c.p32
526 ,P_PIL_ATTRIBUTE21 => c.p33
527 ,P_PIL_ATTRIBUTE22 => c.p34
528 ,P_PIL_ATTRIBUTE23 => c.p35
529 ,P_PIL_ATTRIBUTE24 => c.p36
530 ,P_PIL_ATTRIBUTE25 => c.p37
531 ,P_PIL_ATTRIBUTE26 => c.p38
532 ,P_PIL_ATTRIBUTE27 => c.p39
533 ,P_PIL_ATTRIBUTE28 => c.p40
534 ,P_PIL_ATTRIBUTE29 => c.p41
535 ,P_PIL_ATTRIBUTE30 => c.p42
536 ,P_REQUEST_ID => L_REQUEST_ID
537 ,P_PROGRAM_APPLICATION_ID => L_PROGRAM_APPLICATION_ID
538 ,P_PROGRAM_ID => L_PROGRAM_ID
539 ,P_PROGRAM_UPDATE_DATE => c.p43
540 ,P_OBJECT_VERSION_NUMBER => c.p44
541 ,P_EFFECTIVE_DATE => c.p45);
542 hr_data_pump.api_trc_off;
543 --
544 iuk(p_batch_line_id,c.p1,L_PER_IN_LER_ID);
545 --
546 update hr_pump_batch_lines l set
547 l.pval001 = decode(c.p1,null,cn,c.p1),
548 l.pval005 = decode(c.p5,null,cn,dc(c.p5)),
549 l.pval006 = decode(c.p6,null,cn,dc(c.p6)),
550 l.pval007 = decode(c.p7,null,cn,dc(c.p7)),
551 l.pval044 = decode(c.p44,null,cn,c.p44)
552 where l.rowid = c.myrowid;
553 --
554 close cr;
555 --
556 hr_data_pump.exit('call');
557 exception
558  when hr_multi_message.error_message_exist then
559    if cr%isopen then
560     close cr;
561    end if;
562    hr_pump_utils.set_multi_msg_error_flag(true);
563  when others then
564  if cr%isopen then
565   close cr;
566  end if;
567  raise;
568 end call;
569 end hrdpp_CREATE_PERSON_LIFE_EVENT;