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