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_CREATE_GB_PERSONAL_PAY_M

Source


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