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_ELIG_DPNT

Source


1 package body hrdpp_UPDATE_ELIG_DPNT as
2 /*
3  * Generated by hr_pump_meta_mapper at: 2007/01/04 02:01:11
4  * Generated for API: ben_elig_dpnt_api.UPDATE_ELIG_DPNT
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_CREATE_DT in date default null
83 ,I_CREATE_DT in varchar2 default 'N'
84 ,P_ELIG_STRT_DT in date default null
85 ,I_ELIG_STRT_DT in varchar2 default 'N'
86 ,P_ELIG_THRU_DT in date default null
87 ,I_ELIG_THRU_DT in varchar2 default 'N'
88 ,P_OVRDN_FLAG in varchar2 default null
89 ,P_OVRDN_THRU_DT in date default null
90 ,I_OVRDN_THRU_DT in varchar2 default 'N'
91 ,P_INELG_RSN_CD in varchar2 default null
92 ,P_DPNT_INELIG_FLAG in varchar2 default null
93 ,P_EGD_ATTRIBUTE_CATEGORY in varchar2 default null
94 ,P_EGD_ATTRIBUTE1 in varchar2 default null
95 ,P_EGD_ATTRIBUTE2 in varchar2 default null
96 ,P_EGD_ATTRIBUTE3 in varchar2 default null
97 ,P_EGD_ATTRIBUTE4 in varchar2 default null
98 ,P_EGD_ATTRIBUTE5 in varchar2 default null
99 ,P_EGD_ATTRIBUTE6 in varchar2 default null
100 ,P_EGD_ATTRIBUTE7 in varchar2 default null
101 ,P_EGD_ATTRIBUTE8 in varchar2 default null
102 ,P_EGD_ATTRIBUTE9 in varchar2 default null
103 ,P_EGD_ATTRIBUTE10 in varchar2 default null
104 ,P_EGD_ATTRIBUTE11 in varchar2 default null
105 ,P_EGD_ATTRIBUTE12 in varchar2 default null
106 ,P_EGD_ATTRIBUTE13 in varchar2 default null
107 ,P_EGD_ATTRIBUTE14 in varchar2 default null
108 ,P_EGD_ATTRIBUTE15 in varchar2 default null
109 ,P_EGD_ATTRIBUTE16 in varchar2 default null
110 ,P_EGD_ATTRIBUTE17 in varchar2 default null
111 ,P_EGD_ATTRIBUTE18 in varchar2 default null
112 ,P_EGD_ATTRIBUTE19 in varchar2 default null
113 ,P_EGD_ATTRIBUTE20 in varchar2 default null
114 ,P_EGD_ATTRIBUTE21 in varchar2 default null
115 ,P_EGD_ATTRIBUTE22 in varchar2 default null
116 ,P_EGD_ATTRIBUTE23 in varchar2 default null
117 ,P_EGD_ATTRIBUTE24 in varchar2 default null
118 ,P_EGD_ATTRIBUTE25 in varchar2 default null
119 ,P_EGD_ATTRIBUTE26 in varchar2 default null
120 ,P_EGD_ATTRIBUTE27 in varchar2 default null
121 ,P_EGD_ATTRIBUTE28 in varchar2 default null
122 ,P_EGD_ATTRIBUTE29 in varchar2 default null
123 ,P_EGD_ATTRIBUTE30 in varchar2 default null
124 ,P_PROGRAM_UPDATE_DATE in date default null
125 ,I_PROGRAM_UPDATE_DATE in varchar2 default 'N'
126 ,P_EFFECTIVE_DATE in date
127 ,P_ELIG_DPNT_USER_KEY in varchar2
128 ,P_ELIG_PER_ELCTBL_CHC_USER_KEY in varchar2 default null
129 ,P_PER_IN_LER_USER_KEY in varchar2 default null
130 ,P_ELIG_PER_USER_KEY in varchar2 default null
131 ,P_ELIG_PER_OPT_USER_KEY in varchar2 default null
132 ,P_ELIG_CVRD_DPNT_USER_KEY in varchar2 default null
133 ,P_DPNT_PERSON_USER_KEY in varchar2 default null) is
134 blid number := p_data_pump_batch_line_id;
135 begin
136 if blid is not null then
137 delete from hr_pump_batch_lines where batch_line_id = blid;
138 delete from hr_pump_batch_exceptions
139 where source_type = 'BATCH_LINE' and source_id = blid;
140 end if;
141 insert into hr_pump_batch_lines
142 (batch_id
143 ,batch_line_id
144 ,business_group_name
145 ,api_module_id
146 ,line_status
147 ,user_sequence
148 ,link_value
149 ,pval001
150 ,pval002
151 ,pval003
152 ,pval004
153 ,pval005
154 ,pval006
155 ,pval007
156 ,pval008
157 ,pval009
158 ,pval010
159 ,pval011
160 ,pval012
161 ,pval013
162 ,pval014
163 ,pval015
164 ,pval016
165 ,pval017
166 ,pval018
167 ,pval019
168 ,pval020
169 ,pval021
170 ,pval022
171 ,pval023
172 ,pval024
173 ,pval025
174 ,pval026
175 ,pval027
176 ,pval028
177 ,pval029
178 ,pval030
179 ,pval031
180 ,pval032
181 ,pval033
182 ,pval034
183 ,pval035
184 ,pval036
185 ,pval037
186 ,pval038
187 ,pval039
188 ,pval040
189 ,pval041
190 ,pval042
191 ,pval043
192 ,pval044
193 ,pval045
194 ,pval046
195 ,pval047)
196 values
197 (p_batch_id
198 ,nvl(blid,hr_pump_batch_lines_s.nextval)
199 ,p_data_pump_business_grp_name
200 ,1078
201 ,'U'
202 ,p_user_sequence
203 ,p_link_value
204 ,dd(P_CREATE_DT,I_CREATE_DT)
205 ,dd(P_ELIG_STRT_DT,I_ELIG_STRT_DT)
206 ,dd(P_ELIG_THRU_DT,I_ELIG_THRU_DT)
207 ,P_OVRDN_FLAG
208 ,dd(P_OVRDN_THRU_DT,I_OVRDN_THRU_DT)
209 ,P_INELG_RSN_CD
210 ,P_DPNT_INELIG_FLAG
211 ,P_EGD_ATTRIBUTE_CATEGORY
212 ,P_EGD_ATTRIBUTE1
213 ,P_EGD_ATTRIBUTE2
214 ,P_EGD_ATTRIBUTE3
215 ,P_EGD_ATTRIBUTE4
216 ,P_EGD_ATTRIBUTE5
217 ,P_EGD_ATTRIBUTE6
218 ,P_EGD_ATTRIBUTE7
219 ,P_EGD_ATTRIBUTE8
220 ,P_EGD_ATTRIBUTE9
221 ,P_EGD_ATTRIBUTE10
222 ,P_EGD_ATTRIBUTE11
223 ,P_EGD_ATTRIBUTE12
224 ,P_EGD_ATTRIBUTE13
225 ,P_EGD_ATTRIBUTE14
226 ,P_EGD_ATTRIBUTE15
227 ,P_EGD_ATTRIBUTE16
228 ,P_EGD_ATTRIBUTE17
229 ,P_EGD_ATTRIBUTE18
230 ,P_EGD_ATTRIBUTE19
231 ,P_EGD_ATTRIBUTE20
232 ,P_EGD_ATTRIBUTE21
233 ,P_EGD_ATTRIBUTE22
234 ,P_EGD_ATTRIBUTE23
235 ,P_EGD_ATTRIBUTE24
236 ,P_EGD_ATTRIBUTE25
237 ,P_EGD_ATTRIBUTE26
238 ,P_EGD_ATTRIBUTE27
239 ,P_EGD_ATTRIBUTE28
240 ,P_EGD_ATTRIBUTE29
241 ,P_EGD_ATTRIBUTE30
242 ,dd(P_PROGRAM_UPDATE_DATE,I_PROGRAM_UPDATE_DATE)
243 ,dc(P_EFFECTIVE_DATE)
244 ,P_ELIG_DPNT_USER_KEY
245 ,P_ELIG_PER_ELCTBL_CHC_USER_KEY
246 ,P_PER_IN_LER_USER_KEY
247 ,P_ELIG_PER_USER_KEY
248 ,P_ELIG_PER_OPT_USER_KEY
249 ,P_ELIG_CVRD_DPNT_USER_KEY
250 ,P_DPNT_PERSON_USER_KEY);
251 end insert_batch_lines;
252 --
253 procedure call
254 (p_business_group_id in number,
255 p_batch_line_id     in number) is
256 cursor cr is
257 select l.rowid myrowid,
258 decode(l.pval001,cn,dn,vn,dh,d(l.pval001)) p1,
259 l.pval001 d1,
260 decode(l.pval002,cn,dn,vn,dh,d(l.pval002)) p2,
261 l.pval002 d2,
262 decode(l.pval003,cn,dn,vn,dh,d(l.pval003)) p3,
263 l.pval003 d3,
264 decode(l.pval004,cn,vn,vn,vh,
265  hr_pump_get.gl(l.pval004,'YES_NO',d(l.pval040),vn)) p4,
266 l.pval004 d4,
267 decode(l.pval005,cn,dn,vn,dh,d(l.pval005)) p5,
268 l.pval005 d5,
269 decode(l.pval006,cn,vn,vn,vh,
270  hr_pump_get.gl(l.pval006,'BEN_INELG_RSN',d(l.pval040),vn)) p6,
271 l.pval006 d6,
272 decode(l.pval007,cn,vn,vn,vh,
273  hr_pump_get.gl(l.pval007,'YES_NO',d(l.pval040),vn)) p7,
274 l.pval007 d7,
275 decode(l.pval008,cn,vn,vn,vh,l.pval008) p8,
276 l.pval008 d8,
277 decode(l.pval009,cn,vn,vn,vh,l.pval009) p9,
278 l.pval009 d9,
279 decode(l.pval010,cn,vn,vn,vh,l.pval010) p10,
280 l.pval010 d10,
281 decode(l.pval011,cn,vn,vn,vh,l.pval011) p11,
282 l.pval011 d11,
283 decode(l.pval012,cn,vn,vn,vh,l.pval012) p12,
284 l.pval012 d12,
285 decode(l.pval013,cn,vn,vn,vh,l.pval013) p13,
286 l.pval013 d13,
287 decode(l.pval014,cn,vn,vn,vh,l.pval014) p14,
288 l.pval014 d14,
289 decode(l.pval015,cn,vn,vn,vh,l.pval015) p15,
290 l.pval015 d15,
291 decode(l.pval016,cn,vn,vn,vh,l.pval016) p16,
292 l.pval016 d16,
293 decode(l.pval017,cn,vn,vn,vh,l.pval017) p17,
294 l.pval017 d17,
295 decode(l.pval018,cn,vn,vn,vh,l.pval018) p18,
296 l.pval018 d18,
297 decode(l.pval019,cn,vn,vn,vh,l.pval019) p19,
298 l.pval019 d19,
299 decode(l.pval020,cn,vn,vn,vh,l.pval020) p20,
300 l.pval020 d20,
301 decode(l.pval021,cn,vn,vn,vh,l.pval021) p21,
302 l.pval021 d21,
303 decode(l.pval022,cn,vn,vn,vh,l.pval022) p22,
304 l.pval022 d22,
305 decode(l.pval023,cn,vn,vn,vh,l.pval023) p23,
306 l.pval023 d23,
307 decode(l.pval024,cn,vn,vn,vh,l.pval024) p24,
308 l.pval024 d24,
309 decode(l.pval025,cn,vn,vn,vh,l.pval025) p25,
310 l.pval025 d25,
311 decode(l.pval026,cn,vn,vn,vh,l.pval026) p26,
312 l.pval026 d26,
313 decode(l.pval027,cn,vn,vn,vh,l.pval027) p27,
314 l.pval027 d27,
315 decode(l.pval028,cn,vn,vn,vh,l.pval028) p28,
316 l.pval028 d28,
317 decode(l.pval029,cn,vn,vn,vh,l.pval029) p29,
318 l.pval029 d29,
319 decode(l.pval030,cn,vn,vn,vh,l.pval030) p30,
320 l.pval030 d30,
321 decode(l.pval031,cn,vn,vn,vh,l.pval031) p31,
322 l.pval031 d31,
323 decode(l.pval032,cn,vn,vn,vh,l.pval032) p32,
324 l.pval032 d32,
325 decode(l.pval033,cn,vn,vn,vh,l.pval033) p33,
326 l.pval033 d33,
327 decode(l.pval034,cn,vn,vn,vh,l.pval034) p34,
328 l.pval034 d34,
329 decode(l.pval035,cn,vn,vn,vh,l.pval035) p35,
330 l.pval035 d35,
331 decode(l.pval036,cn,vn,vn,vh,l.pval036) p36,
332 l.pval036 d36,
333 decode(l.pval037,cn,vn,vn,vh,l.pval037) p37,
334 l.pval037 d37,
335 decode(l.pval038,cn,vn,vn,vh,l.pval038) p38,
336 l.pval038 d38,
337 decode(l.pval039,cn,dn,vn,dh,d(l.pval039)) p39,
338 l.pval039 d39,
339 decode(l.pval040,cn,dn,d(l.pval040)) p40,
340 decode(l.pval041,cn,vn,l.pval041) p41,
341 decode(l.pval042,cn,vn,vn,vn,l.pval042) p42,
342 l.pval042 d42,
343 decode(l.pval043,cn,vn,vn,vn,l.pval043) p43,
344 l.pval043 d43,
345 decode(l.pval044,cn,vn,vn,vn,l.pval044) p44,
346 l.pval044 d44,
347 decode(l.pval045,cn,vn,vn,vn,l.pval045) p45,
348 l.pval045 d45,
349 decode(l.pval046,cn,vn,vn,vn,l.pval046) p46,
350 l.pval046 d46,
351 decode(l.pval047,cn,vn,vn,vn,l.pval047) p47,
352 l.pval047 d47
353 from hr_pump_batch_lines l
354 where l.batch_line_id = p_batch_line_id;
355 --
356 c cr%rowtype;
357 l_validate boolean := false;
358 L_ELIG_DPNT_ID number;
359 L_ELIG_PER_ELCTBL_CHC_ID number;
360 L_PER_IN_LER_ID number;
361 L_ELIG_PER_ID number;
362 L_ELIG_PER_OPT_ID number;
363 L_ELIG_CVRD_DPNT_ID number;
364 L_DPNT_PERSON_ID number;
365 L_REQUEST_ID number;
366 L_PROGRAM_APPLICATION_ID number;
367 L_PROGRAM_ID number;
368 L_OBJECT_VERSION_NUMBER number;
369 --
370 begin
371 hr_data_pump.entry('call');
372 open cr;
373 fetch cr into c;
374 if cr%notfound then
375 hr_utility.set_message(800,'HR_50326_DP_NO_ROW');
376 hr_utility.set_message_token('TABLE','HR_PUMP_BATCH_LINES');
377 hr_utility.set_message_token('COLUMN','P_BATCH_LINE_ID');
378 hr_utility.set_message_token('VALUE',p_batch_line_id);
379 hr_utility.raise_error;
380 end if;
381 --
382 if c.p41 is null then
383 L_ELIG_DPNT_ID:=nn;
384 else
385 L_ELIG_DPNT_ID := 
386 hr_pump_get.get_elig_dpnt_id
387 (P_ELIG_DPNT_USER_KEY => c.p41);
388 end if;
389 --
390 if c.d42=cn then
391 L_ELIG_PER_ELCTBL_CHC_ID:=nn;
392 elsif c.d42 is null then 
393 L_ELIG_PER_ELCTBL_CHC_ID:=nh;
394 else
395 L_ELIG_PER_ELCTBL_CHC_ID := 
396 hr_pump_get.get_elig_per_elctbl_chc_id
400 if c.d43=cn then
397 (P_ELIG_PER_ELCTBL_CHC_USER_KEY => c.p42);
398 end if;
399 --
401 L_PER_IN_LER_ID:=nn;
402 elsif c.d43 is null then 
403 L_PER_IN_LER_ID:=nh;
404 else
405 L_PER_IN_LER_ID := 
406 hr_pump_get.get_per_in_ler_id
407 (P_PER_IN_LER_USER_KEY => c.p43);
408 end if;
409 --
410 if c.d44=cn then
411 L_ELIG_PER_ID:=nn;
412 elsif c.d44 is null then 
413 L_ELIG_PER_ID:=nh;
414 else
415 L_ELIG_PER_ID := 
416 hr_pump_get.get_elig_per_id
417 (P_ELIG_PER_USER_KEY => c.p44);
418 end if;
419 --
420 if c.d45=cn then
421 L_ELIG_PER_OPT_ID:=nn;
422 elsif c.d45 is null then 
423 L_ELIG_PER_OPT_ID:=nh;
424 else
425 L_ELIG_PER_OPT_ID := 
426 hr_pump_get.get_elig_per_opt_id
427 (P_ELIG_PER_OPT_USER_KEY => c.p45);
428 end if;
429 --
430 if c.d46=cn then
431 L_ELIG_CVRD_DPNT_ID:=nn;
432 elsif c.d46 is null then 
433 L_ELIG_CVRD_DPNT_ID:=nh;
434 else
435 L_ELIG_CVRD_DPNT_ID := 
436 hr_pump_get.get_elig_cvrd_dpnt_id
437 (P_ELIG_CVRD_DPNT_USER_KEY => c.p46);
438 end if;
439 --
440 if c.d47=cn then
441 L_DPNT_PERSON_ID:=nn;
442 elsif c.d47 is null then 
443 L_DPNT_PERSON_ID:=nh;
444 else
445 L_DPNT_PERSON_ID := 
446 hr_pump_get.get_dpnt_person_id
447 (P_DPNT_PERSON_USER_KEY => c.p47);
448 end if;
449 --
450 L_REQUEST_ID := 
451 hr_pump_get.get_request_id;
452 --
453 L_PROGRAM_APPLICATION_ID := 
454 hr_pump_get.get_program_application_id;
455 --
456 L_PROGRAM_ID := 
457 hr_pump_get.get_program_id;
458 --
459 if c.p41 is null then
460 L_OBJECT_VERSION_NUMBER:=nn;
461 else
462 L_OBJECT_VERSION_NUMBER := 
463 hr_pump_get.GET_ELIG_DPNT_OVN
464 (P_ELIG_DPNT_USER_KEY => c.p41);
465 end if;
466 --
467 hr_data_pump.api_trc_on;
468 ben_elig_dpnt_api.UPDATE_ELIG_DPNT
469 (p_validate => l_validate
470 ,P_ELIG_DPNT_ID => L_ELIG_DPNT_ID
471 ,P_CREATE_DT => c.p1
472 ,P_ELIG_STRT_DT => c.p2
473 ,P_ELIG_THRU_DT => c.p3
474 ,P_OVRDN_FLAG => c.p4
475 ,P_OVRDN_THRU_DT => c.p5
476 ,P_INELG_RSN_CD => c.p6
477 ,P_DPNT_INELIG_FLAG => c.p7
478 ,P_ELIG_PER_ELCTBL_CHC_ID => L_ELIG_PER_ELCTBL_CHC_ID
479 ,P_PER_IN_LER_ID => L_PER_IN_LER_ID
480 ,P_ELIG_PER_ID => L_ELIG_PER_ID
481 ,P_ELIG_PER_OPT_ID => L_ELIG_PER_OPT_ID
482 ,P_ELIG_CVRD_DPNT_ID => L_ELIG_CVRD_DPNT_ID
483 ,P_DPNT_PERSON_ID => L_DPNT_PERSON_ID
484 ,p_business_group_id => p_business_group_id
485 ,P_EGD_ATTRIBUTE_CATEGORY => c.p8
486 ,P_EGD_ATTRIBUTE1 => c.p9
487 ,P_EGD_ATTRIBUTE2 => c.p10
488 ,P_EGD_ATTRIBUTE3 => c.p11
489 ,P_EGD_ATTRIBUTE4 => c.p12
490 ,P_EGD_ATTRIBUTE5 => c.p13
491 ,P_EGD_ATTRIBUTE6 => c.p14
492 ,P_EGD_ATTRIBUTE7 => c.p15
493 ,P_EGD_ATTRIBUTE8 => c.p16
494 ,P_EGD_ATTRIBUTE9 => c.p17
495 ,P_EGD_ATTRIBUTE10 => c.p18
496 ,P_EGD_ATTRIBUTE11 => c.p19
497 ,P_EGD_ATTRIBUTE12 => c.p20
498 ,P_EGD_ATTRIBUTE13 => c.p21
499 ,P_EGD_ATTRIBUTE14 => c.p22
500 ,P_EGD_ATTRIBUTE15 => c.p23
501 ,P_EGD_ATTRIBUTE16 => c.p24
502 ,P_EGD_ATTRIBUTE17 => c.p25
503 ,P_EGD_ATTRIBUTE18 => c.p26
504 ,P_EGD_ATTRIBUTE19 => c.p27
505 ,P_EGD_ATTRIBUTE20 => c.p28
506 ,P_EGD_ATTRIBUTE21 => c.p29
507 ,P_EGD_ATTRIBUTE22 => c.p30
508 ,P_EGD_ATTRIBUTE23 => c.p31
509 ,P_EGD_ATTRIBUTE24 => c.p32
510 ,P_EGD_ATTRIBUTE25 => c.p33
511 ,P_EGD_ATTRIBUTE26 => c.p34
512 ,P_EGD_ATTRIBUTE27 => c.p35
513 ,P_EGD_ATTRIBUTE28 => c.p36
514 ,P_EGD_ATTRIBUTE29 => c.p37
515 ,P_EGD_ATTRIBUTE30 => c.p38
516 ,P_REQUEST_ID => L_REQUEST_ID
517 ,P_PROGRAM_APPLICATION_ID => L_PROGRAM_APPLICATION_ID
518 ,P_PROGRAM_ID => L_PROGRAM_ID
519 ,P_PROGRAM_UPDATE_DATE => c.p39
520 ,P_OBJECT_VERSION_NUMBER => L_OBJECT_VERSION_NUMBER
521 ,P_EFFECTIVE_DATE => c.p40);
522 hr_data_pump.api_trc_off;
523 
524 --
525 
526 --
527 close cr;
528 --
529 hr_data_pump.exit('call');
530 exception
531  when hr_multi_message.error_message_exist then
532    if cr%isopen then
533     close cr;
534    end if;
535    hr_pump_utils.set_multi_msg_error_flag(true);
539  end if;
536  when others then
537  if cr%isopen then
538   close cr;
540  raise;
541 end call;
542 end hrdpp_UPDATE_ELIG_DPNT;