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_UPDATE_PERSON_LIFE_EVENT

Source


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