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_PLAN_BENEFICIARY

Source


1 package body hrdpp_UPDATE_PLAN_BENEFICIARY as
2 /*
3  * Generated by hr_pump_meta_mapper at: 2012/11/27 04:11:51
4  * Generated for API: ben_plan_beneficiary_api.UPDATE_PLAN_BENEFICIARY
8 nh constant number := hr_api.g_number;
5  */
6 --
7 dh constant date := hr_api.g_date;
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_PRMRY_CNTNGNT_CD in varchar2 default null
83 ,P_PCT_DSGD_NUM in number default null
84 ,I_PCT_DSGD_NUM in varchar2 default 'N'
85 ,P_AMT_DSGD_VAL in number default null
86 ,I_AMT_DSGD_VAL in varchar2 default 'N'
87 ,P_DSGN_STRT_DT in date default null
88 ,I_DSGN_STRT_DT in varchar2 default 'N'
89 ,P_DSGN_THRU_DT in date default null
90 ,I_DSGN_THRU_DT in varchar2 default 'N'
91 ,P_ADDL_INSTRN_TXT in varchar2 default null
92 ,P_PBN_ATTRIBUTE_CATEGORY in varchar2 default null
93 ,P_PBN_ATTRIBUTE1 in varchar2 default null
94 ,P_PBN_ATTRIBUTE2 in varchar2 default null
95 ,P_PBN_ATTRIBUTE3 in varchar2 default null
96 ,P_PBN_ATTRIBUTE4 in varchar2 default null
97 ,P_PBN_ATTRIBUTE5 in varchar2 default null
98 ,P_PBN_ATTRIBUTE6 in varchar2 default null
99 ,P_PBN_ATTRIBUTE7 in varchar2 default null
100 ,P_PBN_ATTRIBUTE8 in varchar2 default null
101 ,P_PBN_ATTRIBUTE9 in varchar2 default null
102 ,P_PBN_ATTRIBUTE10 in varchar2 default null
103 ,P_PBN_ATTRIBUTE11 in varchar2 default null
104 ,P_PBN_ATTRIBUTE12 in varchar2 default null
105 ,P_PBN_ATTRIBUTE13 in varchar2 default null
106 ,P_PBN_ATTRIBUTE14 in varchar2 default null
107 ,P_PBN_ATTRIBUTE15 in varchar2 default null
108 ,P_PBN_ATTRIBUTE16 in varchar2 default null
109 ,P_PBN_ATTRIBUTE17 in varchar2 default null
110 ,P_PBN_ATTRIBUTE18 in varchar2 default null
111 ,P_PBN_ATTRIBUTE19 in varchar2 default null
112 ,P_PBN_ATTRIBUTE20 in varchar2 default null
113 ,P_PBN_ATTRIBUTE21 in varchar2 default null
114 ,P_PBN_ATTRIBUTE22 in varchar2 default null
115 ,P_PBN_ATTRIBUTE23 in varchar2 default null
116 ,P_PBN_ATTRIBUTE24 in varchar2 default null
117 ,P_PBN_ATTRIBUTE25 in varchar2 default null
118 ,P_PBN_ATTRIBUTE26 in varchar2 default null
119 ,P_PBN_ATTRIBUTE27 in varchar2 default null
120 ,P_PBN_ATTRIBUTE28 in varchar2 default null
121 ,P_PBN_ATTRIBUTE29 in varchar2 default null
122 ,P_PBN_ATTRIBUTE30 in varchar2 default null
123 ,P_PROGRAM_UPDATE_DATE in date default null
124 ,I_PROGRAM_UPDATE_DATE in varchar2 default 'N'
125 ,P_EFFECTIVE_DATE in date
126 ,P_DATETRACK_MODE in varchar2
127 ,P_MULTI_ROW_ACTN in boolean default null
128 ,P_PL_BNF_USER_KEY in varchar2
129 ,P_PRTT_ENRT_RSLT_USER_KEY in varchar2 default null
130 ,P_BNF_PERSON_USER_KEY in varchar2 default null
131 ,P_ORGANIZATION_NAME in varchar2 default null
132 ,P_LANGUAGE_CODE in varchar2 default null
133 ,P_TTEE_PERSON_USER_KEY in varchar2 default null
134 ,P_AMT_DSGD_UOM in varchar2 default null
135 ,P_PER_IN_LER_USER_KEY in varchar2 default null) is
136 blid number := p_data_pump_batch_line_id;
137  L_MULTI_ROW_ACTN varchar2(5);
138 begin
139 if P_MULTI_ROW_ACTN is null then
140  L_MULTI_ROW_ACTN := null;
141 elsif P_MULTI_ROW_ACTN then
142  L_MULTI_ROW_ACTN := 'TRUE';
143 else 
144  L_MULTI_ROW_ACTN := 'FALSE';
145 end if;
146 if blid is not null then
147 delete from hr_pump_batch_lines where batch_line_id = blid;
148 delete from hr_pump_batch_exceptions
149 where source_type = 'BATCH_LINE' and source_id = blid;
150 end if;
151 insert into hr_pump_batch_lines
152 (batch_id
153 ,batch_line_id
157 ,user_sequence
154 ,business_group_name
155 ,api_module_id
156 ,line_status
158 ,link_value
159 ,pval003
160 ,pval004
161 ,pval005
162 ,pval006
163 ,pval007
164 ,pval008
165 ,pval009
166 ,pval010
167 ,pval011
168 ,pval012
169 ,pval013
170 ,pval014
171 ,pval015
172 ,pval016
173 ,pval017
174 ,pval018
175 ,pval019
176 ,pval020
177 ,pval021
178 ,pval022
179 ,pval023
180 ,pval024
181 ,pval025
182 ,pval026
183 ,pval027
184 ,pval028
185 ,pval029
186 ,pval030
187 ,pval031
188 ,pval032
189 ,pval033
190 ,pval034
191 ,pval035
192 ,pval036
193 ,pval037
194 ,pval038
195 ,pval039
196 ,pval040
197 ,pval041
198 ,pval042
199 ,pval043
200 ,pval044
201 ,pval045
202 ,pval046
203 ,pval047
204 ,pval048
205 ,pval049
206 ,pval050
207 ,pval051)
208 values
209 (p_batch_id
210 ,nvl(blid,hr_pump_batch_lines_s.nextval)
211 ,p_data_pump_business_grp_name
212 ,567
213 ,'U'
214 ,p_user_sequence
215 ,p_link_value
216 ,P_PRMRY_CNTNGNT_CD
217 ,nd(P_PCT_DSGD_NUM,I_PCT_DSGD_NUM)
218 ,nd(P_AMT_DSGD_VAL,I_AMT_DSGD_VAL)
219 ,dd(P_DSGN_STRT_DT,I_DSGN_STRT_DT)
220 ,dd(P_DSGN_THRU_DT,I_DSGN_THRU_DT)
221 ,P_ADDL_INSTRN_TXT
222 ,P_PBN_ATTRIBUTE_CATEGORY
223 ,P_PBN_ATTRIBUTE1
224 ,P_PBN_ATTRIBUTE2
225 ,P_PBN_ATTRIBUTE3
226 ,P_PBN_ATTRIBUTE4
227 ,P_PBN_ATTRIBUTE5
228 ,P_PBN_ATTRIBUTE6
229 ,P_PBN_ATTRIBUTE7
230 ,P_PBN_ATTRIBUTE8
231 ,P_PBN_ATTRIBUTE9
232 ,P_PBN_ATTRIBUTE10
233 ,P_PBN_ATTRIBUTE11
234 ,P_PBN_ATTRIBUTE12
235 ,P_PBN_ATTRIBUTE13
236 ,P_PBN_ATTRIBUTE14
237 ,P_PBN_ATTRIBUTE15
238 ,P_PBN_ATTRIBUTE16
239 ,P_PBN_ATTRIBUTE17
240 ,P_PBN_ATTRIBUTE18
241 ,P_PBN_ATTRIBUTE19
242 ,P_PBN_ATTRIBUTE20
243 ,P_PBN_ATTRIBUTE21
244 ,P_PBN_ATTRIBUTE22
245 ,P_PBN_ATTRIBUTE23
246 ,P_PBN_ATTRIBUTE24
247 ,P_PBN_ATTRIBUTE25
248 ,P_PBN_ATTRIBUTE26
249 ,P_PBN_ATTRIBUTE27
250 ,P_PBN_ATTRIBUTE28
251 ,P_PBN_ATTRIBUTE29
252 ,P_PBN_ATTRIBUTE30
253 ,dd(P_PROGRAM_UPDATE_DATE,I_PROGRAM_UPDATE_DATE)
254 ,dc(P_EFFECTIVE_DATE)
255 ,P_DATETRACK_MODE
256 ,L_MULTI_ROW_ACTN
257 ,P_PL_BNF_USER_KEY
258 ,P_PRTT_ENRT_RSLT_USER_KEY
259 ,P_BNF_PERSON_USER_KEY
260 ,P_ORGANIZATION_NAME
261 ,P_LANGUAGE_CODE
262 ,P_TTEE_PERSON_USER_KEY
263 ,P_AMT_DSGD_UOM
264 ,P_PER_IN_LER_USER_KEY);
265 end insert_batch_lines;
266 --
267 procedure call
268 (p_business_group_id in number,
269 p_batch_line_id     in number) is
270 cursor cr is
271 select l.rowid myrowid,
272 decode(l.pval001,cn,dn,d(l.pval001)) p1,
273 decode(l.pval002,cn,dn,d(l.pval002)) p2,
274 decode(l.pval003,cn,vn,vn,vh,
275  hr_pump_get.gl(l.pval003,'BEN_PRMRY_CNTNGNT',d(l.pval041),l.pval048)) p3,
276 l.pval003 d3,
277 decode(l.pval004,cn,nn,vn,nh,n(l.pval004)) p4,
278 l.pval004 d4,
279 decode(l.pval005,cn,nn,vn,nh,n(l.pval005)) p5,
280 l.pval005 d5,
281 decode(l.pval006,cn,dn,vn,dh,d(l.pval006)) p6,
282 l.pval006 d6,
283 decode(l.pval007,cn,dn,vn,dh,d(l.pval007)) p7,
284 l.pval007 d7,
285 decode(l.pval008,cn,vn,vn,vh,l.pval008) p8,
286 l.pval008 d8,
287 decode(l.pval009,cn,vn,vn,vh,l.pval009) p9,
288 l.pval009 d9,
289 decode(l.pval010,cn,vn,vn,vh,l.pval010) p10,
290 l.pval010 d10,
291 decode(l.pval011,cn,vn,vn,vh,l.pval011) p11,
292 l.pval011 d11,
293 decode(l.pval012,cn,vn,vn,vh,l.pval012) p12,
294 l.pval012 d12,
295 decode(l.pval013,cn,vn,vn,vh,l.pval013) p13,
296 l.pval013 d13,
297 decode(l.pval014,cn,vn,vn,vh,l.pval014) p14,
298 l.pval014 d14,
299 decode(l.pval015,cn,vn,vn,vh,l.pval015) p15,
300 l.pval015 d15,
301 decode(l.pval016,cn,vn,vn,vh,l.pval016) p16,
302 l.pval016 d16,
303 decode(l.pval017,cn,vn,vn,vh,l.pval017) p17,
304 l.pval017 d17,
305 decode(l.pval018,cn,vn,vn,vh,l.pval018) p18,
306 l.pval018 d18,
307 decode(l.pval019,cn,vn,vn,vh,l.pval019) p19,
308 l.pval019 d19,
309 decode(l.pval020,cn,vn,vn,vh,l.pval020) p20,
310 l.pval020 d20,
311 decode(l.pval021,cn,vn,vn,vh,l.pval021) p21,
312 l.pval021 d21,
313 decode(l.pval022,cn,vn,vn,vh,l.pval022) p22,
314 l.pval022 d22,
315 decode(l.pval023,cn,vn,vn,vh,l.pval023) p23,
316 l.pval023 d23,
317 decode(l.pval024,cn,vn,vn,vh,l.pval024) p24,
318 l.pval024 d24,
319 decode(l.pval025,cn,vn,vn,vh,l.pval025) p25,
320 l.pval025 d25,
321 decode(l.pval026,cn,vn,vn,vh,l.pval026) p26,
322 l.pval026 d26,
323 decode(l.pval027,cn,vn,vn,vh,l.pval027) p27,
324 l.pval027 d27,
325 decode(l.pval028,cn,vn,vn,vh,l.pval028) p28,
326 l.pval028 d28,
327 decode(l.pval029,cn,vn,vn,vh,l.pval029) p29,
328 l.pval029 d29,
329 decode(l.pval030,cn,vn,vn,vh,l.pval030) p30,
330 l.pval030 d30,
331 decode(l.pval031,cn,vn,vn,vh,l.pval031) p31,
332 l.pval031 d31,
333 decode(l.pval032,cn,vn,vn,vh,l.pval032) p32,
334 l.pval032 d32,
335 decode(l.pval033,cn,vn,vn,vh,l.pval033) p33,
336 l.pval033 d33,
337 decode(l.pval034,cn,vn,vn,vh,l.pval034) p34,
338 l.pval034 d34,
339 decode(l.pval035,cn,vn,vn,vh,l.pval035) p35,
340 l.pval035 d35,
341 decode(l.pval036,cn,vn,vn,vh,l.pval036) p36,
342 l.pval036 d36,
343 decode(l.pval037,cn,vn,vn,vh,l.pval037) p37,
344 l.pval037 d37,
345 decode(l.pval038,cn,vn,vn,vh,l.pval038) p38,
346 l.pval038 d38,
347 decode(l.pval039,cn,vn,vn,vh,l.pval039) p39,
348 l.pval039 d39,
349 decode(l.pval040,cn,dn,vn,dh,d(l.pval040)) p40,
350 l.pval040 d40,
354 l.pval043 d43,
351 decode(l.pval041,cn,dn,d(l.pval041)) p41,
352 decode(l.pval042,cn,vn,l.pval042) p42,
353 decode(l.pval043,cn,vn,vn,null,l.pval043) p43,
355 decode(l.pval044,cn,vn,l.pval044) p44,
356 decode(l.pval045,cn,vn,vn,vn,l.pval045) p45,
357 l.pval045 d45,
358 decode(l.pval046,cn,vn,vn,vn,l.pval046) p46,
359 l.pval046 d46,
360 decode(l.pval047,cn,vn,vn,vh,l.pval047) p47,
361 l.pval047 d47,
362 decode(l.pval048,cn,vn,vn,vh,l.pval048) p48,
363 l.pval048 d48,
364 decode(l.pval049,cn,vn,vn,vn,l.pval049) p49,
365 l.pval049 d49,
366 decode(l.pval050,cn,vn,vn,vh,l.pval050) p50,
367 l.pval050 d50,
368 decode(l.pval051,cn,vn,vn,vn,l.pval051) p51,
369 l.pval051 d51
370 from hr_pump_batch_lines l
371 where l.batch_line_id = p_batch_line_id;
372 --
373 c cr%rowtype;
374 l_validate boolean := false;
375 L_MULTI_ROW_ACTN boolean;
376 L_PL_BNF_ID number;
377 L_PRTT_ENRT_RSLT_ID number;
378 L_BNF_PERSON_ID number;
379 L_ORGANIZATION_ID number;
380 L_TTEE_PERSON_ID number;
381 L_AMT_DSGD_UOM varchar2(2000);
382 L_REQUEST_ID number;
383 L_PROGRAM_APPLICATION_ID number;
384 L_PROGRAM_ID number;
385 L_OBJECT_VERSION_NUMBER number;
386 L_PER_IN_LER_ID number;
387 --
388 begin
389 hr_data_pump.entry('call');
390 open cr;
391 fetch cr into c;
392 if cr%notfound then
393 hr_utility.set_message(800,'HR_50326_DP_NO_ROW');
394 hr_utility.set_message_token('TABLE','HR_PUMP_BATCH_LINES');
395 hr_utility.set_message_token('COLUMN','P_BATCH_LINE_ID');
396 hr_utility.set_message_token('VALUE',p_batch_line_id);
397 hr_utility.raise_error;
398 end if;
399 --
400 if upper(c.p43) = 'TRUE' then
401 L_MULTI_ROW_ACTN := true;
402 elsif upper(c.p43) = 'FALSE' then
403 L_MULTI_ROW_ACTN := false;
404 elsif c.p43 is not null then
405 hr_utility.set_message(800,'HR_50327_DP_TYPE_ERR');
406 hr_utility.set_message_token('TYPE','BOOLEAN');
407 hr_utility.set_message_token('PARAMETER','P_MULTI_ROW_ACTN');
408 hr_utility.set_message_token('VALUE',c.p43);
409 hr_utility.set_message_token('TABLE','HR_PUMP_BATCH_LINES');
410 hr_utility.raise_error;
411 end if;
412 --
413 if c.p44 is null then
414 L_PL_BNF_ID:=nn;
415 else
416 L_PL_BNF_ID := 
417 hr_pump_get.get_pl_bnf_id
418 (P_PL_BNF_USER_KEY => c.p44);
419 end if;
420 --
421 if c.d45=cn then
422 L_PRTT_ENRT_RSLT_ID:=nn;
423 elsif c.d45 is null then 
424 L_PRTT_ENRT_RSLT_ID:=nh;
425 else
426 L_PRTT_ENRT_RSLT_ID := 
427 hr_pump_get.get_prtt_enrt_rslt_id
428 (P_PRTT_ENRT_RSLT_USER_KEY => c.p45);
429 end if;
430 --
431 if c.d46=cn then
432 L_BNF_PERSON_ID:=nn;
433 elsif c.d46 is null then 
434 L_BNF_PERSON_ID:=nh;
435 else
436 L_BNF_PERSON_ID := 
437 hr_pump_get.get_bnf_person_id
438 (P_BNF_PERSON_USER_KEY => c.p46);
439 end if;
440 --
441 if c.d47=cn or
442 c.p41 is null or
443 c.d48=cn then
444 L_ORGANIZATION_ID:=nn;
445 elsif c.d47 is null or
446 c.d48 is null then 
447 L_ORGANIZATION_ID:=nh;
448 else
449 L_ORGANIZATION_ID := 
450 hr_pump_get.get_organization_id
451 (P_ORGANIZATION_NAME => c.p47
452 ,P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
453 ,P_EFFECTIVE_DATE => c.p41
454 ,P_LANGUAGE_CODE => c.p48);
455 end if;
456 --
457 if c.d49=cn then
458 L_TTEE_PERSON_ID:=nn;
459 elsif c.d49 is null then 
460 L_TTEE_PERSON_ID:=nh;
461 else
462 L_TTEE_PERSON_ID := 
463 hr_pump_get.get_ttee_person_id
464 (P_TTEE_PERSON_USER_KEY => c.p49);
465 end if;
466 --
467 if c.d50=cn or
468 c.p41 is null then
469 L_AMT_DSGD_UOM:=vn;
470 elsif c.d50 is null then 
471 L_AMT_DSGD_UOM:=vh;
472 else
473 L_AMT_DSGD_UOM := 
474 hr_pump_get.GET_AMT_DSGD_UOM_CODE
475 (P_AMT_DSGD_UOM => c.p50
476 ,P_EFFECTIVE_DATE => c.p41);
477 end if;
478 --
479 L_REQUEST_ID := 
480 hr_pump_get.get_request_id;
481 --
482 L_PROGRAM_APPLICATION_ID := 
483 hr_pump_get.get_program_application_id;
484 --
485 L_PROGRAM_ID := 
486 hr_pump_get.get_program_id;
487 --
488 if c.p44 is null or
489 c.p41 is null then
490 L_OBJECT_VERSION_NUMBER:=nn;
491 else
492 L_OBJECT_VERSION_NUMBER := 
493 hr_pump_get.GET_PL_BNF_OVN
494 (P_PL_BNF_USER_KEY => c.p44
495 ,P_EFFECTIVE_DATE => c.p41);
496 end if;
497 --
498 if c.d51=cn then
499 L_PER_IN_LER_ID:=nn;
500 elsif c.d51 is null then 
501 L_PER_IN_LER_ID:=nh;
502 else
503 L_PER_IN_LER_ID := 
504 hr_pump_get.get_per_in_ler_id
505 (P_PER_IN_LER_USER_KEY => c.p51);
506 end if;
507 --
508 hr_data_pump.api_trc_on;
509 ben_plan_beneficiary_api.UPDATE_PLAN_BENEFICIARY
510 (p_validate => l_validate
511 ,P_PL_BNF_ID => L_PL_BNF_ID
512 ,P_EFFECTIVE_START_DATE => c.p1
513 ,P_EFFECTIVE_END_DATE => c.p2
514 ,p_business_group_id => p_business_group_id
515 ,P_PRTT_ENRT_RSLT_ID => L_PRTT_ENRT_RSLT_ID
516 ,P_BNF_PERSON_ID => L_BNF_PERSON_ID
517 ,P_ORGANIZATION_ID => L_ORGANIZATION_ID
518 ,P_TTEE_PERSON_ID => L_TTEE_PERSON_ID
519 ,P_PRMRY_CNTNGNT_CD => c.p3
520 ,P_PCT_DSGD_NUM => c.p4
521 ,P_AMT_DSGD_VAL => c.p5
522 ,P_AMT_DSGD_UOM => L_AMT_DSGD_UOM
523 ,P_DSGN_STRT_DT => c.p6
524 ,P_DSGN_THRU_DT => c.p7
525 ,P_ADDL_INSTRN_TXT => c.p8
526 ,P_PBN_ATTRIBUTE_CATEGORY => c.p9
527 ,P_PBN_ATTRIBUTE1 => c.p10
528 ,P_PBN_ATTRIBUTE2 => c.p11
529 ,P_PBN_ATTRIBUTE3 => c.p12
530 ,P_PBN_ATTRIBUTE4 => c.p13
531 ,P_PBN_ATTRIBUTE5 => c.p14
532 ,P_PBN_ATTRIBUTE6 => c.p15
533 ,P_PBN_ATTRIBUTE7 => c.p16
534 ,P_PBN_ATTRIBUTE8 => c.p17
535 ,P_PBN_ATTRIBUTE9 => c.p18
536 ,P_PBN_ATTRIBUTE10 => c.p19
537 ,P_PBN_ATTRIBUTE11 => c.p20
538 ,P_PBN_ATTRIBUTE12 => c.p21
539 ,P_PBN_ATTRIBUTE13 => c.p22
540 ,P_PBN_ATTRIBUTE14 => c.p23
541 ,P_PBN_ATTRIBUTE15 => c.p24
542 ,P_PBN_ATTRIBUTE16 => c.p25
543 ,P_PBN_ATTRIBUTE17 => c.p26
544 ,P_PBN_ATTRIBUTE18 => c.p27
545 ,P_PBN_ATTRIBUTE19 => c.p28
546 ,P_PBN_ATTRIBUTE20 => c.p29
547 ,P_PBN_ATTRIBUTE21 => c.p30
548 ,P_PBN_ATTRIBUTE22 => c.p31
549 ,P_PBN_ATTRIBUTE23 => c.p32
550 ,P_PBN_ATTRIBUTE24 => c.p33
551 ,P_PBN_ATTRIBUTE25 => c.p34
552 ,P_PBN_ATTRIBUTE26 => c.p35
553 ,P_PBN_ATTRIBUTE27 => c.p36
554 ,P_PBN_ATTRIBUTE28 => c.p37
555 ,P_PBN_ATTRIBUTE29 => c.p38
556 ,P_PBN_ATTRIBUTE30 => c.p39
557 ,P_REQUEST_ID => L_REQUEST_ID
558 ,P_PROGRAM_APPLICATION_ID => L_PROGRAM_APPLICATION_ID
559 ,P_PROGRAM_ID => L_PROGRAM_ID
560 ,P_PROGRAM_UPDATE_DATE => c.p40
561 ,P_OBJECT_VERSION_NUMBER => L_OBJECT_VERSION_NUMBER
562 ,P_PER_IN_LER_ID => L_PER_IN_LER_ID
563 ,P_EFFECTIVE_DATE => c.p41
564 ,P_DATETRACK_MODE => c.p42
565 ,P_MULTI_ROW_ACTN => L_MULTI_ROW_ACTN);
566 hr_data_pump.api_trc_off;
567 
568 --
569 update hr_pump_batch_lines l set
570 l.pval001 = decode(c.p1,null,cn,dc(c.p1)),
571 l.pval002 = decode(c.p2,null,cn,dc(c.p2))
572 where l.rowid = c.myrowid;
573 --
574 close cr;
575 --
576 hr_data_pump.exit('call');
577 exception
578  when hr_multi_message.error_message_exist then
579    if cr%isopen then
580     close cr;
581    end if;
582    hr_pump_utils.set_multi_msg_error_flag(true);
583  when others then
584  if cr%isopen then
585   close cr;
586  end if;
587  raise;
588 end call;
589 end hrdpp_UPDATE_PLAN_BENEFICIARY;