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_GB_PERSONAL_PAY_M

Source


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