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_PERSONAL_PAY_METH

Source


1 package body hrdpp_UPDATE_PERSONAL_PAY_METH as
2 /*
3  * Generated by hr_pump_meta_mapper at: 2012/11/27 04:11:01
4  * Generated for API: HR_PERSONAL_PAY_METHOD_API.UPDATE_PERSONAL_PAY_METHOD
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_DATETRACK_UPDATE_MODE in varchar2
84 ,P_AMOUNT in number default null
85 ,I_AMOUNT in varchar2 default 'N'
86 ,P_COMMENTS in varchar2 default null
87 ,P_PERCENTAGE in number default null
88 ,I_PERCENTAGE in varchar2 default 'N'
89 ,P_PRIORITY in number default null
90 ,I_PRIORITY in varchar2 default 'N'
91 ,P_ATTRIBUTE_CATEGORY in varchar2 default null
92 ,P_ATTRIBUTE1 in varchar2 default null
93 ,P_ATTRIBUTE2 in varchar2 default null
94 ,P_ATTRIBUTE3 in varchar2 default null
95 ,P_ATTRIBUTE4 in varchar2 default null
96 ,P_ATTRIBUTE5 in varchar2 default null
97 ,P_ATTRIBUTE6 in varchar2 default null
98 ,P_ATTRIBUTE7 in varchar2 default null
99 ,P_ATTRIBUTE8 in varchar2 default null
100 ,P_ATTRIBUTE9 in varchar2 default null
101 ,P_ATTRIBUTE10 in varchar2 default null
102 ,P_ATTRIBUTE11 in varchar2 default null
103 ,P_ATTRIBUTE12 in varchar2 default null
104 ,P_ATTRIBUTE13 in varchar2 default null
105 ,P_ATTRIBUTE14 in varchar2 default null
106 ,P_ATTRIBUTE15 in varchar2 default null
107 ,P_ATTRIBUTE16 in varchar2 default null
108 ,P_ATTRIBUTE17 in varchar2 default null
109 ,P_ATTRIBUTE18 in varchar2 default null
110 ,P_ATTRIBUTE19 in varchar2 default null
111 ,P_ATTRIBUTE20 in varchar2 default null
112 ,P_TERRITORY_CODE in varchar2 default null
113 ,P_SEGMENT1 in varchar2 default null
114 ,P_SEGMENT2 in varchar2 default null
115 ,P_SEGMENT3 in varchar2 default null
116 ,P_SEGMENT4 in varchar2 default null
117 ,P_SEGMENT5 in varchar2 default null
118 ,P_SEGMENT6 in varchar2 default null
119 ,P_SEGMENT7 in varchar2 default null
120 ,P_SEGMENT8 in varchar2 default null
121 ,P_SEGMENT9 in varchar2 default null
122 ,P_SEGMENT10 in varchar2 default null
123 ,P_SEGMENT11 in varchar2 default null
124 ,P_SEGMENT12 in varchar2 default null
125 ,P_SEGMENT13 in varchar2 default null
126 ,P_SEGMENT14 in varchar2 default null
127 ,P_SEGMENT15 in varchar2 default null
128 ,P_SEGMENT16 in varchar2 default null
129 ,P_SEGMENT17 in varchar2 default null
130 ,P_SEGMENT18 in varchar2 default null
134 ,P_SEGMENT22 in varchar2 default null
131 ,P_SEGMENT19 in varchar2 default null
132 ,P_SEGMENT20 in varchar2 default null
133 ,P_SEGMENT21 in varchar2 default null
135 ,P_SEGMENT23 in varchar2 default null
136 ,P_SEGMENT24 in varchar2 default null
137 ,P_SEGMENT25 in varchar2 default null
138 ,P_SEGMENT26 in varchar2 default null
139 ,P_SEGMENT27 in varchar2 default null
140 ,P_SEGMENT28 in varchar2 default null
141 ,P_SEGMENT29 in varchar2 default null
142 ,P_SEGMENT30 in varchar2 default null
143 ,P_CONCAT_SEGMENTS in varchar2 default null
144 ,P_PAYEE_TYPE in varchar2 default null
145 ,P_PPM_INFORMATION_CATEGORY in varchar2 default null
146 ,P_PPM_INFORMATION1 in varchar2 default null
147 ,P_PPM_INFORMATION2 in varchar2 default null
148 ,P_PPM_INFORMATION3 in varchar2 default null
149 ,P_PPM_INFORMATION4 in varchar2 default null
150 ,P_PPM_INFORMATION5 in varchar2 default null
151 ,P_PPM_INFORMATION6 in varchar2 default null
152 ,P_PPM_INFORMATION7 in varchar2 default null
153 ,P_PPM_INFORMATION8 in varchar2 default null
154 ,P_PPM_INFORMATION9 in varchar2 default null
155 ,P_PPM_INFORMATION10 in varchar2 default null
156 ,P_PPM_INFORMATION11 in varchar2 default null
157 ,P_PPM_INFORMATION12 in varchar2 default null
158 ,P_PPM_INFORMATION13 in varchar2 default null
159 ,P_PPM_INFORMATION14 in varchar2 default null
160 ,P_PPM_INFORMATION15 in varchar2 default null
161 ,P_PPM_INFORMATION16 in varchar2 default null
162 ,P_PPM_INFORMATION17 in varchar2 default null
163 ,P_PPM_INFORMATION18 in varchar2 default null
164 ,P_PPM_INFORMATION19 in varchar2 default null
165 ,P_PPM_INFORMATION20 in varchar2 default null
166 ,P_PPM_INFORMATION21 in varchar2 default null
167 ,P_PPM_INFORMATION22 in varchar2 default null
168 ,P_PPM_INFORMATION23 in varchar2 default null
169 ,P_PPM_INFORMATION24 in varchar2 default null
170 ,P_PPM_INFORMATION25 in varchar2 default null
171 ,P_PPM_INFORMATION26 in varchar2 default null
172 ,P_PPM_INFORMATION27 in varchar2 default null
173 ,P_PPM_INFORMATION28 in varchar2 default null
174 ,P_PPM_INFORMATION29 in varchar2 default null
175 ,P_PPM_INFORMATION30 in varchar2 default null
176 ,P_PERSONAL_PAY_METHOD_USER_KEY in varchar2
177 ,P_PAYEE_ORG in varchar2 default null
178 ,P_PAYEE_PERSON_USER_KEY in varchar2 default null
179 ,P_LANGUAGE_CODE in varchar2 default null) is
180 blid number := p_data_pump_batch_line_id;
181 begin
182 if blid is not null then
183 delete from hr_pump_batch_lines where batch_line_id = blid;
184 delete from hr_pump_batch_exceptions
185 where source_type = 'BATCH_LINE' and source_id = blid;
186 end if;
187 insert into hr_pump_batch_lines
188 (batch_id
189 ,batch_line_id
190 ,business_group_name
191 ,api_module_id
192 ,line_status
193 ,user_sequence
194 ,link_value
195 ,pval001
196 ,pval002
197 ,pval003
198 ,pval004
199 ,pval005
200 ,pval006
201 ,pval007
202 ,pval008
203 ,pval009
204 ,pval010
205 ,pval011
206 ,pval012
207 ,pval013
208 ,pval014
209 ,pval015
210 ,pval016
211 ,pval017
212 ,pval018
213 ,pval019
214 ,pval020
215 ,pval021
216 ,pval022
217 ,pval023
218 ,pval024
219 ,pval025
220 ,pval026
221 ,pval027
222 ,pval028
223 ,pval029
224 ,pval030
225 ,pval031
226 ,pval032
227 ,pval033
228 ,pval034
229 ,pval035
230 ,pval036
231 ,pval037
232 ,pval038
233 ,pval039
234 ,pval040
235 ,pval041
236 ,pval042
237 ,pval043
238 ,pval044
239 ,pval045
240 ,pval046
241 ,pval047
242 ,pval048
243 ,pval049
244 ,pval050
245 ,pval051
246 ,pval052
247 ,pval053
248 ,pval054
249 ,pval055
250 ,pval056
251 ,pval057
252 ,pval058
253 ,pval059
254 ,pval060
255 ,pval061
256 ,pval062
257 ,pval063
258 ,pval064
259 ,pval065
260 ,pval066
261 ,pval067
262 ,pval068
263 ,pval069
264 ,pval070
265 ,pval071
266 ,pval072
267 ,pval073
268 ,pval074
269 ,pval075
270 ,pval076
271 ,pval077
272 ,pval078
273 ,pval079
274 ,pval080
275 ,pval081
276 ,pval082
277 ,pval083
278 ,pval084
279 ,pval085
280 ,pval086
281 ,pval087
282 ,pval088
283 ,pval089
284 ,pval090
285 ,pval091
286 ,pval096
287 ,pval097
288 ,pval098
289 ,pval099)
290 values
291 (p_batch_id
292 ,nvl(blid,hr_pump_batch_lines_s.nextval)
293 ,p_data_pump_business_grp_name
294 ,1146
295 ,'U'
296 ,p_user_sequence
297 ,p_link_value
298 ,dc(P_EFFECTIVE_DATE)
299 ,P_DATETRACK_UPDATE_MODE
300 ,nd(P_AMOUNT,I_AMOUNT)
301 ,P_COMMENTS
302 ,nd(P_PERCENTAGE,I_PERCENTAGE)
303 ,nd(P_PRIORITY,I_PRIORITY)
304 ,P_ATTRIBUTE_CATEGORY
305 ,P_ATTRIBUTE1
306 ,P_ATTRIBUTE2
307 ,P_ATTRIBUTE3
308 ,P_ATTRIBUTE4
309 ,P_ATTRIBUTE5
310 ,P_ATTRIBUTE6
311 ,P_ATTRIBUTE7
312 ,P_ATTRIBUTE8
313 ,P_ATTRIBUTE9
314 ,P_ATTRIBUTE10
315 ,P_ATTRIBUTE11
316 ,P_ATTRIBUTE12
317 ,P_ATTRIBUTE13
318 ,P_ATTRIBUTE14
319 ,P_ATTRIBUTE15
320 ,P_ATTRIBUTE16
321 ,P_ATTRIBUTE17
322 ,P_ATTRIBUTE18
323 ,P_ATTRIBUTE19
324 ,P_ATTRIBUTE20
325 ,P_TERRITORY_CODE
326 ,P_SEGMENT1
327 ,P_SEGMENT2
328 ,P_SEGMENT3
329 ,P_SEGMENT4
330 ,P_SEGMENT5
331 ,P_SEGMENT6
332 ,P_SEGMENT7
333 ,P_SEGMENT8
334 ,P_SEGMENT9
335 ,P_SEGMENT10
336 ,P_SEGMENT11
337 ,P_SEGMENT12
338 ,P_SEGMENT13
339 ,P_SEGMENT14
343 ,P_SEGMENT18
340 ,P_SEGMENT15
341 ,P_SEGMENT16
342 ,P_SEGMENT17
344 ,P_SEGMENT19
345 ,P_SEGMENT20
346 ,P_SEGMENT21
347 ,P_SEGMENT22
348 ,P_SEGMENT23
349 ,P_SEGMENT24
350 ,P_SEGMENT25
351 ,P_SEGMENT26
352 ,P_SEGMENT27
353 ,P_SEGMENT28
354 ,P_SEGMENT29
355 ,P_SEGMENT30
356 ,P_CONCAT_SEGMENTS
357 ,P_PAYEE_TYPE
358 ,P_PPM_INFORMATION_CATEGORY
359 ,P_PPM_INFORMATION1
360 ,P_PPM_INFORMATION2
361 ,P_PPM_INFORMATION3
362 ,P_PPM_INFORMATION4
363 ,P_PPM_INFORMATION5
364 ,P_PPM_INFORMATION6
365 ,P_PPM_INFORMATION7
366 ,P_PPM_INFORMATION8
367 ,P_PPM_INFORMATION9
368 ,P_PPM_INFORMATION10
369 ,P_PPM_INFORMATION11
370 ,P_PPM_INFORMATION12
371 ,P_PPM_INFORMATION13
372 ,P_PPM_INFORMATION14
373 ,P_PPM_INFORMATION15
374 ,P_PPM_INFORMATION16
375 ,P_PPM_INFORMATION17
376 ,P_PPM_INFORMATION18
377 ,P_PPM_INFORMATION19
378 ,P_PPM_INFORMATION20
379 ,P_PPM_INFORMATION21
380 ,P_PPM_INFORMATION22
381 ,P_PPM_INFORMATION23
382 ,P_PPM_INFORMATION24
383 ,P_PPM_INFORMATION25
384 ,P_PPM_INFORMATION26
385 ,P_PPM_INFORMATION27
386 ,P_PPM_INFORMATION28
387 ,P_PPM_INFORMATION29
388 ,P_PPM_INFORMATION30
389 ,P_PERSONAL_PAY_METHOD_USER_KEY
390 ,P_PAYEE_ORG
391 ,P_PAYEE_PERSON_USER_KEY
392 ,P_LANGUAGE_CODE);
393 end insert_batch_lines;
394 --
395 procedure call
396 (p_business_group_id in number,
397 p_batch_line_id     in number) is
398 cursor cr is
399 select l.rowid myrowid,
400 decode(l.pval001,cn,dn,d(l.pval001)) p1,
401 decode(l.pval002,cn,vn,l.pval002) p2,
402 decode(l.pval003,cn,nn,vn,nh,n(l.pval003)) p3,
403 l.pval003 d3,
404 decode(l.pval004,cn,vn,vn,vh,l.pval004) p4,
405 l.pval004 d4,
406 decode(l.pval005,cn,nn,vn,nh,n(l.pval005)) p5,
407 l.pval005 d5,
408 decode(l.pval006,cn,nn,vn,nh,n(l.pval006)) p6,
409 l.pval006 d6,
410 decode(l.pval007,cn,vn,vn,vh,l.pval007) p7,
411 l.pval007 d7,
412 decode(l.pval008,cn,vn,vn,vh,l.pval008) p8,
413 l.pval008 d8,
414 decode(l.pval009,cn,vn,vn,vh,l.pval009) p9,
415 l.pval009 d9,
416 decode(l.pval010,cn,vn,vn,vh,l.pval010) p10,
417 l.pval010 d10,
418 decode(l.pval011,cn,vn,vn,vh,l.pval011) p11,
419 l.pval011 d11,
420 decode(l.pval012,cn,vn,vn,vh,l.pval012) p12,
421 l.pval012 d12,
422 decode(l.pval013,cn,vn,vn,vh,l.pval013) p13,
423 l.pval013 d13,
424 decode(l.pval014,cn,vn,vn,vh,l.pval014) p14,
425 l.pval014 d14,
426 decode(l.pval015,cn,vn,vn,vh,l.pval015) p15,
427 l.pval015 d15,
428 decode(l.pval016,cn,vn,vn,vh,l.pval016) p16,
429 l.pval016 d16,
430 decode(l.pval017,cn,vn,vn,vh,l.pval017) p17,
431 l.pval017 d17,
432 decode(l.pval018,cn,vn,vn,vh,l.pval018) p18,
433 l.pval018 d18,
434 decode(l.pval019,cn,vn,vn,vh,l.pval019) p19,
435 l.pval019 d19,
436 decode(l.pval020,cn,vn,vn,vh,l.pval020) p20,
437 l.pval020 d20,
438 decode(l.pval021,cn,vn,vn,vh,l.pval021) p21,
439 l.pval021 d21,
440 decode(l.pval022,cn,vn,vn,vh,l.pval022) p22,
441 l.pval022 d22,
442 decode(l.pval023,cn,vn,vn,vh,l.pval023) p23,
443 l.pval023 d23,
444 decode(l.pval024,cn,vn,vn,vh,l.pval024) p24,
445 l.pval024 d24,
446 decode(l.pval025,cn,vn,vn,vh,l.pval025) p25,
447 l.pval025 d25,
448 decode(l.pval026,cn,vn,vn,vh,l.pval026) p26,
449 l.pval026 d26,
450 decode(l.pval027,cn,vn,vn,vh,l.pval027) p27,
451 l.pval027 d27,
452 decode(l.pval028,cn,vn,vn,vh,l.pval028) p28,
453 l.pval028 d28,
454 decode(l.pval029,cn,vn,vn,vh,l.pval029) p29,
455 l.pval029 d29,
456 decode(l.pval030,cn,vn,vn,vh,l.pval030) p30,
457 l.pval030 d30,
458 decode(l.pval031,cn,vn,vn,vh,l.pval031) p31,
459 l.pval031 d31,
460 decode(l.pval032,cn,vn,vn,vh,l.pval032) p32,
461 l.pval032 d32,
462 decode(l.pval033,cn,vn,vn,vh,l.pval033) p33,
463 l.pval033 d33,
464 decode(l.pval034,cn,vn,vn,vh,l.pval034) p34,
465 l.pval034 d34,
466 decode(l.pval035,cn,vn,vn,vh,l.pval035) p35,
467 l.pval035 d35,
468 decode(l.pval036,cn,vn,vn,vh,l.pval036) p36,
469 l.pval036 d36,
470 decode(l.pval037,cn,vn,vn,vh,l.pval037) p37,
471 l.pval037 d37,
472 decode(l.pval038,cn,vn,vn,vh,l.pval038) p38,
473 l.pval038 d38,
474 decode(l.pval039,cn,vn,vn,vh,l.pval039) p39,
475 l.pval039 d39,
476 decode(l.pval040,cn,vn,vn,vh,l.pval040) p40,
477 l.pval040 d40,
478 decode(l.pval041,cn,vn,vn,vh,l.pval041) p41,
479 l.pval041 d41,
480 decode(l.pval042,cn,vn,vn,vh,l.pval042) p42,
481 l.pval042 d42,
482 decode(l.pval043,cn,vn,vn,vh,l.pval043) p43,
483 l.pval043 d43,
484 decode(l.pval044,cn,vn,vn,vh,l.pval044) p44,
485 l.pval044 d44,
486 decode(l.pval045,cn,vn,vn,vh,l.pval045) p45,
487 l.pval045 d45,
488 decode(l.pval046,cn,vn,vn,vh,l.pval046) p46,
489 l.pval046 d46,
490 decode(l.pval047,cn,vn,vn,vh,l.pval047) p47,
491 l.pval047 d47,
492 decode(l.pval048,cn,vn,vn,vh,l.pval048) p48,
493 l.pval048 d48,
494 decode(l.pval049,cn,vn,vn,vh,l.pval049) p49,
495 l.pval049 d49,
496 decode(l.pval050,cn,vn,vn,vh,l.pval050) p50,
497 l.pval050 d50,
498 decode(l.pval051,cn,vn,vn,vh,l.pval051) p51,
499 l.pval051 d51,
500 decode(l.pval052,cn,vn,vn,vh,l.pval052) p52,
501 l.pval052 d52,
502 decode(l.pval053,cn,vn,vn,vh,l.pval053) p53,
503 l.pval053 d53,
504 decode(l.pval054,cn,vn,vn,vh,l.pval054) p54,
505 l.pval054 d54,
506 decode(l.pval055,cn,vn,vn,vh,l.pval055) p55,
507 l.pval055 d55,
508 decode(l.pval056,cn,vn,vn,vh,l.pval056) p56,
509 l.pval056 d56,
510 decode(l.pval057,cn,vn,vn,vh,l.pval057) p57,
511 l.pval057 d57,
512 decode(l.pval058,cn,vn,vn,vh,l.pval058) p58,
513 l.pval058 d58,
514 decode(l.pval059,cn,vn,vn,vh,l.pval059) p59,
515 l.pval059 d59,
519 decode(l.pval061,cn,vn,vn,vh,l.pval061) p61,
516 decode(l.pval060,cn,vn,vn,vh,
517  hr_pump_get.gl(l.pval060,'PAYEE_TYPE',d(l.pval001),l.pval099)) p60,
518 l.pval060 d60,
520 l.pval061 d61,
521 decode(l.pval062,cn,vn,vn,vh,l.pval062) p62,
522 l.pval062 d62,
523 decode(l.pval063,cn,vn,vn,vh,l.pval063) p63,
524 l.pval063 d63,
525 decode(l.pval064,cn,vn,vn,vh,l.pval064) p64,
526 l.pval064 d64,
527 decode(l.pval065,cn,vn,vn,vh,l.pval065) p65,
528 l.pval065 d65,
529 decode(l.pval066,cn,vn,vn,vh,l.pval066) p66,
530 l.pval066 d66,
531 decode(l.pval067,cn,vn,vn,vh,l.pval067) p67,
532 l.pval067 d67,
533 decode(l.pval068,cn,vn,vn,vh,l.pval068) p68,
534 l.pval068 d68,
535 decode(l.pval069,cn,vn,vn,vh,l.pval069) p69,
536 l.pval069 d69,
537 decode(l.pval070,cn,vn,vn,vh,l.pval070) p70,
538 l.pval070 d70,
539 decode(l.pval071,cn,vn,vn,vh,l.pval071) p71,
540 l.pval071 d71,
541 decode(l.pval072,cn,vn,vn,vh,l.pval072) p72,
542 l.pval072 d72,
543 decode(l.pval073,cn,vn,vn,vh,l.pval073) p73,
544 l.pval073 d73,
545 decode(l.pval074,cn,vn,vn,vh,l.pval074) p74,
546 l.pval074 d74,
547 decode(l.pval075,cn,vn,vn,vh,l.pval075) p75,
548 l.pval075 d75,
549 decode(l.pval076,cn,vn,vn,vh,l.pval076) p76,
550 l.pval076 d76,
551 decode(l.pval077,cn,vn,vn,vh,l.pval077) p77,
552 l.pval077 d77,
553 decode(l.pval078,cn,vn,vn,vh,l.pval078) p78,
554 l.pval078 d78,
555 decode(l.pval079,cn,vn,vn,vh,l.pval079) p79,
556 l.pval079 d79,
557 decode(l.pval080,cn,vn,vn,vh,l.pval080) p80,
558 l.pval080 d80,
559 decode(l.pval081,cn,vn,vn,vh,l.pval081) p81,
560 l.pval081 d81,
561 decode(l.pval082,cn,vn,vn,vh,l.pval082) p82,
562 l.pval082 d82,
563 decode(l.pval083,cn,vn,vn,vh,l.pval083) p83,
564 l.pval083 d83,
565 decode(l.pval084,cn,vn,vn,vh,l.pval084) p84,
566 l.pval084 d84,
567 decode(l.pval085,cn,vn,vn,vh,l.pval085) p85,
568 l.pval085 d85,
569 decode(l.pval086,cn,vn,vn,vh,l.pval086) p86,
570 l.pval086 d86,
571 decode(l.pval087,cn,vn,vn,vh,l.pval087) p87,
572 l.pval087 d87,
573 decode(l.pval088,cn,vn,vn,vh,l.pval088) p88,
574 l.pval088 d88,
575 decode(l.pval089,cn,vn,vn,vh,l.pval089) p89,
576 l.pval089 d89,
577 decode(l.pval090,cn,vn,vn,vh,l.pval090) p90,
578 l.pval090 d90,
579 decode(l.pval091,cn,vn,vn,vh,l.pval091) p91,
580 l.pval091 d91,
581 l.pval092 p92,
582 l.pval093 p93,
583 decode(l.pval094,cn,dn,d(l.pval094)) p94,
584 decode(l.pval095,cn,dn,d(l.pval095)) p95,
585 decode(l.pval096,cn,vn,l.pval096) p96,
586 decode(l.pval097,cn,vn,vn,vh,l.pval097) p97,
587 l.pval097 d97,
588 decode(l.pval098,cn,vn,vn,vn,l.pval098) p98,
589 l.pval098 d98,
590 decode(l.pval099,cn,vn,vn,vh,l.pval099) p99,
591 l.pval099 d99
592 from hr_pump_batch_lines l
593 where l.batch_line_id = p_batch_line_id;
594 --
595 c cr%rowtype;
596 l_validate boolean := false;
597 L_PERSONAL_PAYMENT_METHOD_ID number;
598 L_OBJECT_VERSION_NUMBER number;
599 L_PAYEE_ID number;
600 --
601 begin
602 hr_data_pump.entry('call');
603 open cr;
604 fetch cr into c;
605 if cr%notfound then
606 hr_utility.set_message(800,'HR_50326_DP_NO_ROW');
607 hr_utility.set_message_token('TABLE','HR_PUMP_BATCH_LINES');
608 hr_utility.set_message_token('COLUMN','P_BATCH_LINE_ID');
609 hr_utility.set_message_token('VALUE',p_batch_line_id);
610 hr_utility.raise_error;
611 end if;
612 --
613 if c.p96 is null then
614 L_PERSONAL_PAYMENT_METHOD_ID:=nn;
615 else
616 L_PERSONAL_PAYMENT_METHOD_ID := 
617 hr_pump_get.get_personal_payment_method_id
618 (P_PERSONAL_PAY_METHOD_USER_KEY => c.p96);
619 end if;
620 --
621 if c.p96 is null or
622 c.p1 is null then
623 L_OBJECT_VERSION_NUMBER:=nn;
624 else
625 L_OBJECT_VERSION_NUMBER := 
626 hr_pump_get.GET_PPM_OVN
627 (P_PERSONAL_PAY_METHOD_USER_KEY => c.p96
628 ,P_EFFECTIVE_DATE => c.p1);
629 end if;
630 --
631 L_PAYEE_ID := 
632 hr_pump_get.get_payee_id
633 (P_DATA_PUMP_ALWAYS_CALL => null
634 ,P_PAYEE_TYPE => c.p60
635 ,P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
636 ,P_PAYEE_ORG => c.p97
637 ,P_PAYEE_PERSON_USER_KEY => c.p98
638 ,P_EFFECTIVE_DATE => c.p1
639 ,P_LANGUAGE_CODE => c.p99);
640 --
641 hr_data_pump.api_trc_on;
642 HR_PERSONAL_PAY_METHOD_API.UPDATE_PERSONAL_PAY_METHOD
643 (p_validate => l_validate
644 ,P_EFFECTIVE_DATE => c.p1
645 ,P_DATETRACK_UPDATE_MODE => c.p2
646 ,P_PERSONAL_PAYMENT_METHOD_ID => L_PERSONAL_PAYMENT_METHOD_ID
647 ,P_OBJECT_VERSION_NUMBER => L_OBJECT_VERSION_NUMBER
648 ,P_AMOUNT => c.p3
649 ,P_COMMENTS => c.p4
650 ,P_PERCENTAGE => c.p5
651 ,P_PRIORITY => c.p6
652 ,P_ATTRIBUTE_CATEGORY => c.p7
653 ,P_ATTRIBUTE1 => c.p8
654 ,P_ATTRIBUTE2 => c.p9
655 ,P_ATTRIBUTE3 => c.p10
656 ,P_ATTRIBUTE4 => c.p11
657 ,P_ATTRIBUTE5 => c.p12
658 ,P_ATTRIBUTE6 => c.p13
659 ,P_ATTRIBUTE7 => c.p14
660 ,P_ATTRIBUTE8 => c.p15
661 ,P_ATTRIBUTE9 => c.p16
662 ,P_ATTRIBUTE10 => c.p17
663 ,P_ATTRIBUTE11 => c.p18
664 ,P_ATTRIBUTE12 => c.p19
665 ,P_ATTRIBUTE13 => c.p20
666 ,P_ATTRIBUTE14 => c.p21
667 ,P_ATTRIBUTE15 => c.p22
668 ,P_ATTRIBUTE16 => c.p23
669 ,P_ATTRIBUTE17 => c.p24
670 ,P_ATTRIBUTE18 => c.p25
671 ,P_ATTRIBUTE19 => c.p26
672 ,P_ATTRIBUTE20 => c.p27
673 ,P_TERRITORY_CODE => c.p28
674 ,P_SEGMENT1 => c.p29
675 ,P_SEGMENT2 => c.p30
676 ,P_SEGMENT3 => c.p31
677 ,P_SEGMENT4 => c.p32
678 ,P_SEGMENT5 => c.p33
679 ,P_SEGMENT6 => c.p34
680 ,P_SEGMENT7 => c.p35
681 ,P_SEGMENT8 => c.p36
682 ,P_SEGMENT9 => c.p37
683 ,P_SEGMENT10 => c.p38
684 ,P_SEGMENT11 => c.p39
685 ,P_SEGMENT12 => c.p40
686 ,P_SEGMENT13 => c.p41
687 ,P_SEGMENT14 => c.p42
691 ,P_SEGMENT18 => c.p46
688 ,P_SEGMENT15 => c.p43
689 ,P_SEGMENT16 => c.p44
690 ,P_SEGMENT17 => c.p45
692 ,P_SEGMENT19 => c.p47
693 ,P_SEGMENT20 => c.p48
694 ,P_SEGMENT21 => c.p49
695 ,P_SEGMENT22 => c.p50
696 ,P_SEGMENT23 => c.p51
697 ,P_SEGMENT24 => c.p52
698 ,P_SEGMENT25 => c.p53
699 ,P_SEGMENT26 => c.p54
700 ,P_SEGMENT27 => c.p55
701 ,P_SEGMENT28 => c.p56
702 ,P_SEGMENT29 => c.p57
703 ,P_SEGMENT30 => c.p58
704 ,P_CONCAT_SEGMENTS => c.p59
705 ,P_PAYEE_TYPE => c.p60
706 ,P_PAYEE_ID => L_PAYEE_ID
707 ,P_PPM_INFORMATION_CATEGORY => c.p61
708 ,P_PPM_INFORMATION1 => c.p62
709 ,P_PPM_INFORMATION2 => c.p63
710 ,P_PPM_INFORMATION3 => c.p64
711 ,P_PPM_INFORMATION4 => c.p65
712 ,P_PPM_INFORMATION5 => c.p66
713 ,P_PPM_INFORMATION6 => c.p67
714 ,P_PPM_INFORMATION7 => c.p68
715 ,P_PPM_INFORMATION8 => c.p69
716 ,P_PPM_INFORMATION9 => c.p70
717 ,P_PPM_INFORMATION10 => c.p71
718 ,P_PPM_INFORMATION11 => c.p72
719 ,P_PPM_INFORMATION12 => c.p73
720 ,P_PPM_INFORMATION13 => c.p74
721 ,P_PPM_INFORMATION14 => c.p75
722 ,P_PPM_INFORMATION15 => c.p76
723 ,P_PPM_INFORMATION16 => c.p77
724 ,P_PPM_INFORMATION17 => c.p78
725 ,P_PPM_INFORMATION18 => c.p79
726 ,P_PPM_INFORMATION19 => c.p80
727 ,P_PPM_INFORMATION20 => c.p81
728 ,P_PPM_INFORMATION21 => c.p82
729 ,P_PPM_INFORMATION22 => c.p83
730 ,P_PPM_INFORMATION23 => c.p84
731 ,P_PPM_INFORMATION24 => c.p85
732 ,P_PPM_INFORMATION25 => c.p86
733 ,P_PPM_INFORMATION26 => c.p87
734 ,P_PPM_INFORMATION27 => c.p88
735 ,P_PPM_INFORMATION28 => c.p89
736 ,P_PPM_INFORMATION29 => c.p90
737 ,P_PPM_INFORMATION30 => c.p91
738 ,P_COMMENT_ID => c.p92
739 ,P_EXTERNAL_ACCOUNT_ID => c.p93
740 ,P_EFFECTIVE_START_DATE => c.p94
741 ,P_EFFECTIVE_END_DATE => c.p95);
742 hr_data_pump.api_trc_off;
743 
744 --
745 update hr_pump_batch_lines l set
746 l.pval092 = decode(c.p92,null,cn,c.p92),
747 l.pval093 = decode(c.p93,null,cn,c.p93),
748 l.pval094 = decode(c.p94,null,cn,dc(c.p94)),
749 l.pval095 = decode(c.p95,null,cn,dc(c.p95))
750 where l.rowid = c.myrowid;
751 --
752 close cr;
753 --
754 hr_data_pump.exit('call');
755 exception
756  when hr_multi_message.error_message_exist then
757    if cr%isopen then
758     close cr;
759    end if;
760    hr_pump_utils.set_multi_msg_error_flag(true);
761  when others then
762  if cr%isopen then
763   close cr;
764  end if;
765  raise;
766 end call;
767 end hrdpp_UPDATE_PERSONAL_PAY_METH;