DBA Data[Home] [Help]

PACKAGE BODY: APPS.HRDPP_CREATE_US_PERSONAL_PAY_M

Source


1 package body hrdpp_CREATE_US_PERSONAL_PAY_M 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.CREATE_US_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_ACCOUNT_NAME in varchar2
84 ,P_ACCOUNT_NUMBER in varchar2
85 ,P_TRANSIT_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_AMOUNT in number default null
90 ,P_PERCENTAGE in number default null
91 ,P_PRIORITY in number default null
92 ,P_COMMENTS in varchar2 default null
93 ,P_ATTRIBUTE_CATEGORY in varchar2 default null
94 ,P_ATTRIBUTE1 in varchar2 default null
95 ,P_ATTRIBUTE2 in varchar2 default null
96 ,P_ATTRIBUTE3 in varchar2 default null
97 ,P_ATTRIBUTE4 in varchar2 default null
98 ,P_ATTRIBUTE5 in varchar2 default null
99 ,P_ATTRIBUTE6 in varchar2 default null
100 ,P_ATTRIBUTE7 in varchar2 default null
101 ,P_ATTRIBUTE8 in varchar2 default null
102 ,P_ATTRIBUTE9 in varchar2 default null
103 ,P_ATTRIBUTE10 in varchar2 default null
104 ,P_ATTRIBUTE11 in varchar2 default null
105 ,P_ATTRIBUTE12 in varchar2 default null
106 ,P_ATTRIBUTE13 in varchar2 default null
107 ,P_ATTRIBUTE14 in varchar2 default null
108 ,P_ATTRIBUTE15 in varchar2 default null
109 ,P_ATTRIBUTE16 in varchar2 default null
110 ,P_ATTRIBUTE17 in varchar2 default null
111 ,P_ATTRIBUTE18 in varchar2 default null
112 ,P_ATTRIBUTE19 in varchar2 default null
113 ,P_ATTRIBUTE20 in varchar2 default null
114 ,P_PAYEE_TYPE in varchar2 default null
115 ,P_PRENOTE_DATE in date default null
116 ,P_TERRITORY_CODE in varchar2 default null
117 ,P_PPM_INFORMATION_CATEGORY in varchar2 default null
118 ,P_PPM_INFORMATION1 in varchar2 default null
119 ,P_PPM_INFORMATION2 in varchar2 default null
120 ,P_PPM_INFORMATION3 in varchar2 default null
121 ,P_PPM_INFORMATION4 in varchar2 default null
122 ,P_PPM_INFORMATION5 in varchar2 default null
123 ,P_PPM_INFORMATION6 in varchar2 default null
124 ,P_PPM_INFORMATION7 in varchar2 default null
125 ,P_PPM_INFORMATION8 in varchar2 default null
126 ,P_PPM_INFORMATION9 in varchar2 default null
127 ,P_PPM_INFORMATION10 in varchar2 default null
128 ,P_PPM_INFORMATION11 in varchar2 default null
129 ,P_PPM_INFORMATION12 in varchar2 default null
130 ,P_PPM_INFORMATION13 in varchar2 default null
131 ,P_PPM_INFORMATION14 in varchar2 default null
132 ,P_PPM_INFORMATION15 in varchar2 default null
133 ,P_PPM_INFORMATION16 in varchar2 default null
134 ,P_PPM_INFORMATION17 in varchar2 default null
135 ,P_PPM_INFORMATION18 in varchar2 default null
136 ,P_PPM_INFORMATION19 in varchar2 default null
137 ,P_PPM_INFORMATION20 in varchar2 default null
138 ,P_PPM_INFORMATION21 in varchar2 default null
139 ,P_PPM_INFORMATION22 in varchar2 default null
140 ,P_PPM_INFORMATION23 in varchar2 default null
141 ,P_PPM_INFORMATION24 in varchar2 default null
142 ,P_PPM_INFORMATION25 in varchar2 default null
143 ,P_PPM_INFORMATION26 in varchar2 default null
144 ,P_PPM_INFORMATION27 in varchar2 default null
145 ,P_PPM_INFORMATION28 in varchar2 default null
146 ,P_PPM_INFORMATION29 in varchar2 default null
147 ,P_PPM_INFORMATION30 in varchar2 default null
148 ,P_PERSONAL_PAY_METHOD_USER_KEY in varchar2
149 ,P_ASSIGNMENT_USER_KEY in varchar2
150 ,P_RUN_TYPE_USER_KEY in varchar2 default null
151 ,P_ORG_PAYMENT_METHOD_USER_KEY in varchar2
152 ,P_PAYEE_ORG in varchar2 default null
153 ,P_PAYEE_PERSON_USER_KEY in varchar2 default null
154 ,P_LANGUAGE_CODE in varchar2 default null) is
155 blid number := p_data_pump_batch_line_id;
156 begin
157 if blid is not null then
158 delete from hr_pump_batch_lines where batch_line_id = blid;
159 delete from hr_pump_batch_exceptions
160 where source_type = 'BATCH_LINE' and source_id = blid;
161 end if;
162 insert into hr_pump_batch_lines
163 (batch_id
164 ,batch_line_id
165 ,business_group_name
166 ,api_module_id
167 ,line_status
168 ,user_sequence
169 ,link_value
170 ,pval001
171 ,pval002
172 ,pval003
173 ,pval004
174 ,pval005
175 ,pval006
176 ,pval007
177 ,pval008
178 ,pval009
179 ,pval010
180 ,pval011
181 ,pval012
182 ,pval013
183 ,pval014
184 ,pval015
185 ,pval016
186 ,pval017
187 ,pval018
188 ,pval019
189 ,pval020
190 ,pval021
191 ,pval022
192 ,pval023
193 ,pval024
194 ,pval025
195 ,pval026
196 ,pval027
197 ,pval028
198 ,pval029
199 ,pval030
200 ,pval031
201 ,pval032
202 ,pval033
203 ,pval034
204 ,pval035
205 ,pval036
206 ,pval037
207 ,pval038
208 ,pval039
209 ,pval040
210 ,pval041
211 ,pval042
212 ,pval043
213 ,pval044
214 ,pval045
215 ,pval046
216 ,pval047
217 ,pval048
218 ,pval049
219 ,pval050
220 ,pval051
221 ,pval052
222 ,pval053
223 ,pval054
224 ,pval055
225 ,pval056
226 ,pval057
227 ,pval058
228 ,pval059
229 ,pval060
230 ,pval061
231 ,pval062
232 ,pval063
233 ,pval064
234 ,pval065
235 ,pval066
236 ,pval067
237 ,pval073
238 ,pval074
239 ,pval075
240 ,pval076
241 ,pval077
242 ,pval078)
243 values
244 (p_batch_id
245 ,nvl(blid,hr_pump_batch_lines_s.nextval)
246 ,p_data_pump_business_grp_name
247 ,1386
248 ,'U'
249 ,p_user_sequence
250 ,p_link_value
251 ,dc(P_EFFECTIVE_DATE)
252 ,P_ACCOUNT_NAME
253 ,P_ACCOUNT_NUMBER
254 ,P_TRANSIT_CODE
255 ,P_BANK_NAME
256 ,P_ACCOUNT_TYPE
257 ,P_BANK_BRANCH
258 ,P_AMOUNT
259 ,P_PERCENTAGE
260 ,P_PRIORITY
261 ,P_COMMENTS
262 ,P_ATTRIBUTE_CATEGORY
263 ,P_ATTRIBUTE1
264 ,P_ATTRIBUTE2
265 ,P_ATTRIBUTE3
266 ,P_ATTRIBUTE4
267 ,P_ATTRIBUTE5
268 ,P_ATTRIBUTE6
269 ,P_ATTRIBUTE7
270 ,P_ATTRIBUTE8
271 ,P_ATTRIBUTE9
272 ,P_ATTRIBUTE10
273 ,P_ATTRIBUTE11
274 ,P_ATTRIBUTE12
275 ,P_ATTRIBUTE13
276 ,P_ATTRIBUTE14
277 ,P_ATTRIBUTE15
278 ,P_ATTRIBUTE16
279 ,P_ATTRIBUTE17
280 ,P_ATTRIBUTE18
281 ,P_ATTRIBUTE19
282 ,P_ATTRIBUTE20
283 ,P_PAYEE_TYPE
284 ,dc(P_PRENOTE_DATE)
285 ,P_TERRITORY_CODE
286 ,P_PPM_INFORMATION_CATEGORY
287 ,P_PPM_INFORMATION1
288 ,P_PPM_INFORMATION2
289 ,P_PPM_INFORMATION3
290 ,P_PPM_INFORMATION4
291 ,P_PPM_INFORMATION5
292 ,P_PPM_INFORMATION6
293 ,P_PPM_INFORMATION7
294 ,P_PPM_INFORMATION8
295 ,P_PPM_INFORMATION9
296 ,P_PPM_INFORMATION10
297 ,P_PPM_INFORMATION11
298 ,P_PPM_INFORMATION12
299 ,P_PPM_INFORMATION13
300 ,P_PPM_INFORMATION14
301 ,P_PPM_INFORMATION15
302 ,P_PPM_INFORMATION16
303 ,P_PPM_INFORMATION17
304 ,P_PPM_INFORMATION18
305 ,P_PPM_INFORMATION19
306 ,P_PPM_INFORMATION20
307 ,P_PPM_INFORMATION21
308 ,P_PPM_INFORMATION22
309 ,P_PPM_INFORMATION23
310 ,P_PPM_INFORMATION24
311 ,P_PPM_INFORMATION25
312 ,P_PPM_INFORMATION26
313 ,P_PPM_INFORMATION27
314 ,P_PPM_INFORMATION28
315 ,P_PPM_INFORMATION29
316 ,P_PPM_INFORMATION30
317 ,P_PERSONAL_PAY_METHOD_USER_KEY
318 ,P_ASSIGNMENT_USER_KEY
319 ,P_RUN_TYPE_USER_KEY
320 ,P_ORG_PAYMENT_METHOD_USER_KEY
321 ,P_PAYEE_ORG
322 ,P_PAYEE_PERSON_USER_KEY
323 ,P_LANGUAGE_CODE);
324 end insert_batch_lines;
325 --
326 procedure call
327 (p_business_group_id in number,
328 p_batch_line_id     in number) is
329 cursor cr is
330 select l.rowid myrowid,
331 decode(l.pval001,cn,dn,d(l.pval001)) p1,
332 decode(l.pval002,cn,vn,l.pval002) p2,
333 decode(l.pval003,cn,vn,l.pval003) p3,
334 decode(l.pval004,cn,vn,l.pval004) p4,
335 decode(l.pval005,cn,vn,l.pval005) p5,
336 decode(l.pval006,cn,vn,vn,vn,
337  hr_pump_get.gl(l.pval006,'US_ACCOUNT_TYPE',d(l.pval001),l.pval078)) p6,
338 l.pval006 d6,
339 decode(l.pval007,cn,vn,vn,vn,l.pval007) p7,
340 l.pval007 d7,
341 decode(l.pval008,cn,nn,vn,nn,n(l.pval008)) p8,
342 l.pval008 d8,
343 decode(l.pval009,cn,nn,vn,nn,n(l.pval009)) p9,
344 l.pval009 d9,
345 decode(l.pval010,cn,nn,vn,nn,n(l.pval010)) p10,
346 l.pval010 d10,
347 decode(l.pval011,cn,vn,vn,vn,l.pval011) p11,
348 l.pval011 d11,
349 decode(l.pval012,cn,vn,vn,vn,l.pval012) p12,
350 l.pval012 d12,
351 decode(l.pval013,cn,vn,vn,vn,l.pval013) p13,
352 l.pval013 d13,
353 decode(l.pval014,cn,vn,vn,vn,l.pval014) p14,
354 l.pval014 d14,
355 decode(l.pval015,cn,vn,vn,vn,l.pval015) p15,
356 l.pval015 d15,
357 decode(l.pval016,cn,vn,vn,vn,l.pval016) p16,
358 l.pval016 d16,
359 decode(l.pval017,cn,vn,vn,vn,l.pval017) p17,
360 l.pval017 d17,
361 decode(l.pval018,cn,vn,vn,vn,l.pval018) p18,
362 l.pval018 d18,
363 decode(l.pval019,cn,vn,vn,vn,l.pval019) p19,
364 l.pval019 d19,
365 decode(l.pval020,cn,vn,vn,vn,l.pval020) p20,
366 l.pval020 d20,
367 decode(l.pval021,cn,vn,vn,vn,l.pval021) p21,
368 l.pval021 d21,
369 decode(l.pval022,cn,vn,vn,vn,l.pval022) p22,
370 l.pval022 d22,
371 decode(l.pval023,cn,vn,vn,vn,l.pval023) p23,
372 l.pval023 d23,
373 decode(l.pval024,cn,vn,vn,vn,l.pval024) p24,
374 l.pval024 d24,
375 decode(l.pval025,cn,vn,vn,vn,l.pval025) p25,
376 l.pval025 d25,
377 decode(l.pval026,cn,vn,vn,vn,l.pval026) p26,
378 l.pval026 d26,
379 decode(l.pval027,cn,vn,vn,vn,l.pval027) p27,
380 l.pval027 d27,
381 decode(l.pval028,cn,vn,vn,vn,l.pval028) p28,
382 l.pval028 d28,
383 decode(l.pval029,cn,vn,vn,vn,l.pval029) p29,
384 l.pval029 d29,
385 decode(l.pval030,cn,vn,vn,vn,l.pval030) p30,
386 l.pval030 d30,
387 decode(l.pval031,cn,vn,vn,vn,l.pval031) p31,
388 l.pval031 d31,
389 decode(l.pval032,cn,vn,vn,vn,l.pval032) p32,
390 l.pval032 d32,
391 decode(l.pval033,cn,vn,vn,vn,
392  hr_pump_get.gl(l.pval033,'PAYEE_TYPE',d(l.pval001),l.pval078)) p33,
393 l.pval033 d33,
394 decode(l.pval034,cn,dn,vn,dn,d(l.pval034)) p34,
395 l.pval034 d34,
396 decode(l.pval035,cn,vn,vn,vn,l.pval035) p35,
397 l.pval035 d35,
398 decode(l.pval036,cn,vn,vn,vn,l.pval036) p36,
399 l.pval036 d36,
400 decode(l.pval037,cn,vn,vn,vn,l.pval037) p37,
401 l.pval037 d37,
402 decode(l.pval038,cn,vn,vn,vn,l.pval038) p38,
403 l.pval038 d38,
404 decode(l.pval039,cn,vn,vn,vn,l.pval039) p39,
405 l.pval039 d39,
406 decode(l.pval040,cn,vn,vn,vn,l.pval040) p40,
407 l.pval040 d40,
408 decode(l.pval041,cn,vn,vn,vn,l.pval041) p41,
409 l.pval041 d41,
410 decode(l.pval042,cn,vn,vn,vn,l.pval042) p42,
411 l.pval042 d42,
412 decode(l.pval043,cn,vn,vn,vn,l.pval043) p43,
413 l.pval043 d43,
414 decode(l.pval044,cn,vn,vn,vn,l.pval044) p44,
415 l.pval044 d44,
416 decode(l.pval045,cn,vn,vn,vn,l.pval045) p45,
417 l.pval045 d45,
418 decode(l.pval046,cn,vn,vn,vn,l.pval046) p46,
419 l.pval046 d46,
420 decode(l.pval047,cn,vn,vn,vn,l.pval047) p47,
421 l.pval047 d47,
422 decode(l.pval048,cn,vn,vn,vn,l.pval048) p48,
423 l.pval048 d48,
424 decode(l.pval049,cn,vn,vn,vn,l.pval049) p49,
425 l.pval049 d49,
426 decode(l.pval050,cn,vn,vn,vn,l.pval050) p50,
427 l.pval050 d50,
428 decode(l.pval051,cn,vn,vn,vn,l.pval051) p51,
429 l.pval051 d51,
430 decode(l.pval052,cn,vn,vn,vn,l.pval052) p52,
431 l.pval052 d52,
432 decode(l.pval053,cn,vn,vn,vn,l.pval053) p53,
433 l.pval053 d53,
434 decode(l.pval054,cn,vn,vn,vn,l.pval054) p54,
435 l.pval054 d54,
436 decode(l.pval055,cn,vn,vn,vn,l.pval055) p55,
437 l.pval055 d55,
438 decode(l.pval056,cn,vn,vn,vn,l.pval056) p56,
439 l.pval056 d56,
440 decode(l.pval057,cn,vn,vn,vn,l.pval057) p57,
441 l.pval057 d57,
442 decode(l.pval058,cn,vn,vn,vn,l.pval058) p58,
443 l.pval058 d58,
444 decode(l.pval059,cn,vn,vn,vn,l.pval059) p59,
445 l.pval059 d59,
446 decode(l.pval060,cn,vn,vn,vn,l.pval060) p60,
447 l.pval060 d60,
448 decode(l.pval061,cn,vn,vn,vn,l.pval061) p61,
449 l.pval061 d61,
450 decode(l.pval062,cn,vn,vn,vn,l.pval062) p62,
451 l.pval062 d62,
452 decode(l.pval063,cn,vn,vn,vn,l.pval063) p63,
453 l.pval063 d63,
454 decode(l.pval064,cn,vn,vn,vn,l.pval064) p64,
455 l.pval064 d64,
456 decode(l.pval065,cn,vn,vn,vn,l.pval065) p65,
457 l.pval065 d65,
458 decode(l.pval066,cn,vn,vn,vn,l.pval066) p66,
459 l.pval066 d66,
460 l.pval067 p67,
461 l.pval068 p68,
462 l.pval069 p69,
463 decode(l.pval070,cn,dn,d(l.pval070)) p70,
464 decode(l.pval071,cn,dn,d(l.pval071)) p71,
465 l.pval072 p72,
466 decode(l.pval073,cn,vn,l.pval073) p73,
467 decode(l.pval074,cn,vn,vn,vn,l.pval074) p74,
468 l.pval074 d74,
469 decode(l.pval075,cn,vn,l.pval075) p75,
470 decode(l.pval076,cn,vn,vn,vn,l.pval076) p76,
471 l.pval076 d76,
472 decode(l.pval077,cn,vn,vn,vn,l.pval077) p77,
473 l.pval077 d77,
474 decode(l.pval078,cn,vn,vn,vn,l.pval078) p78,
475 l.pval078 d78
476 from hr_pump_batch_lines l
477 where l.batch_line_id = p_batch_line_id;
478 --
479 c cr%rowtype;
480 l_validate boolean := false;
481 L_PERSONAL_PAYMENT_METHOD_ID number;
482 L_ASSIGNMENT_ID number;
483 L_RUN_TYPE_ID number;
484 L_ORG_PAYMENT_METHOD_ID number;
485 L_PAYEE_ID number;
486 --
487 begin
488 hr_data_pump.entry('call');
489 open cr;
490 fetch cr into c;
491 if cr%notfound then
492 hr_utility.set_message(800,'HR_50326_DP_NO_ROW');
493 hr_utility.set_message_token('TABLE','HR_PUMP_BATCH_LINES');
494 hr_utility.set_message_token('COLUMN','P_BATCH_LINE_ID');
495 hr_utility.set_message_token('VALUE',p_batch_line_id);
496 hr_utility.raise_error;
497 end if;
498 --
499 if c.p73 is null then
500 L_ASSIGNMENT_ID:=nn;
501 else
502 L_ASSIGNMENT_ID := 
503 hr_pump_get.get_assignment_id
504 (P_ASSIGNMENT_USER_KEY => c.p73);
505 end if;
506 --
507 if c.p74 is null then
508 L_RUN_TYPE_ID:=nn;
509 else
510 L_RUN_TYPE_ID := 
511 PAY_PUMP_GET.GET_RUN_TYPE_ID
512 (P_RUN_TYPE_USER_KEY => c.p74);
513 end if;
514 --
515 if c.p75 is null then
516 L_ORG_PAYMENT_METHOD_ID:=nn;
517 else
518 L_ORG_PAYMENT_METHOD_ID := 
519 hr_pump_get.get_org_payment_method_id
520 (P_ORG_PAYMENT_METHOD_USER_KEY => c.p75);
521 end if;
522 --
523 L_PAYEE_ID := 
524 hr_pump_get.get_payee_id
525 (P_DATA_PUMP_ALWAYS_CALL => null
526 ,P_PAYEE_TYPE => c.p33
527 ,P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
528 ,P_PAYEE_ORG => c.p76
529 ,P_PAYEE_PERSON_USER_KEY => c.p77
530 ,P_EFFECTIVE_DATE => c.p1
531 ,P_LANGUAGE_CODE => c.p78);
532 --
533 hr_data_pump.api_trc_on;
534 HR_PERSONAL_PAY_METHOD_API.CREATE_US_PERSONAL_PAY_METHOD
535 (p_validate => l_validate
536 ,P_EFFECTIVE_DATE => c.p1
537 ,P_ASSIGNMENT_ID => L_ASSIGNMENT_ID
538 ,P_RUN_TYPE_ID => L_RUN_TYPE_ID
539 ,P_ORG_PAYMENT_METHOD_ID => L_ORG_PAYMENT_METHOD_ID
540 ,P_ACCOUNT_NAME => c.p2
541 ,P_ACCOUNT_NUMBER => c.p3
542 ,P_TRANSIT_CODE => c.p4
543 ,P_BANK_NAME => c.p5
544 ,P_ACCOUNT_TYPE => c.p6
545 ,P_BANK_BRANCH => c.p7
546 ,P_AMOUNT => c.p8
547 ,P_PERCENTAGE => c.p9
548 ,P_PRIORITY => c.p10
549 ,P_COMMENTS => c.p11
550 ,P_ATTRIBUTE_CATEGORY => c.p12
551 ,P_ATTRIBUTE1 => c.p13
552 ,P_ATTRIBUTE2 => c.p14
553 ,P_ATTRIBUTE3 => c.p15
554 ,P_ATTRIBUTE4 => c.p16
555 ,P_ATTRIBUTE5 => c.p17
556 ,P_ATTRIBUTE6 => c.p18
557 ,P_ATTRIBUTE7 => c.p19
558 ,P_ATTRIBUTE8 => c.p20
559 ,P_ATTRIBUTE9 => c.p21
560 ,P_ATTRIBUTE10 => c.p22
561 ,P_ATTRIBUTE11 => c.p23
562 ,P_ATTRIBUTE12 => c.p24
563 ,P_ATTRIBUTE13 => c.p25
564 ,P_ATTRIBUTE14 => c.p26
565 ,P_ATTRIBUTE15 => c.p27
566 ,P_ATTRIBUTE16 => c.p28
567 ,P_ATTRIBUTE17 => c.p29
568 ,P_ATTRIBUTE18 => c.p30
569 ,P_ATTRIBUTE19 => c.p31
570 ,P_ATTRIBUTE20 => c.p32
571 ,P_PAYEE_TYPE => c.p33
572 ,P_PAYEE_ID => L_PAYEE_ID
573 ,P_PRENOTE_DATE => c.p34
574 ,P_TERRITORY_CODE => c.p35
575 ,P_PPM_INFORMATION_CATEGORY => c.p36
576 ,P_PPM_INFORMATION1 => c.p37
577 ,P_PPM_INFORMATION2 => c.p38
578 ,P_PPM_INFORMATION3 => c.p39
579 ,P_PPM_INFORMATION4 => c.p40
580 ,P_PPM_INFORMATION5 => c.p41
581 ,P_PPM_INFORMATION6 => c.p42
582 ,P_PPM_INFORMATION7 => c.p43
583 ,P_PPM_INFORMATION8 => c.p44
584 ,P_PPM_INFORMATION9 => c.p45
585 ,P_PPM_INFORMATION10 => c.p46
586 ,P_PPM_INFORMATION11 => c.p47
587 ,P_PPM_INFORMATION12 => c.p48
588 ,P_PPM_INFORMATION13 => c.p49
589 ,P_PPM_INFORMATION14 => c.p50
590 ,P_PPM_INFORMATION15 => c.p51
591 ,P_PPM_INFORMATION16 => c.p52
592 ,P_PPM_INFORMATION17 => c.p53
593 ,P_PPM_INFORMATION18 => c.p54
594 ,P_PPM_INFORMATION19 => c.p55
595 ,P_PPM_INFORMATION20 => c.p56
596 ,P_PPM_INFORMATION21 => c.p57
597 ,P_PPM_INFORMATION22 => c.p58
598 ,P_PPM_INFORMATION23 => c.p59
599 ,P_PPM_INFORMATION24 => c.p60
600 ,P_PPM_INFORMATION25 => c.p61
601 ,P_PPM_INFORMATION26 => c.p62
602 ,P_PPM_INFORMATION27 => c.p63
603 ,P_PPM_INFORMATION28 => c.p64
604 ,P_PPM_INFORMATION29 => c.p65
605 ,P_PPM_INFORMATION30 => c.p66
606 ,P_PERSONAL_PAYMENT_METHOD_ID => L_PERSONAL_PAYMENT_METHOD_ID
607 ,P_EXTERNAL_ACCOUNT_ID => c.p68
608 ,P_OBJECT_VERSION_NUMBER => c.p69
609 ,P_EFFECTIVE_START_DATE => c.p70
610 ,P_EFFECTIVE_END_DATE => c.p71
611 ,P_COMMENT_ID => c.p72);
612 hr_data_pump.api_trc_off;
613 --
614 iuk(p_batch_line_id,c.p67,L_PERSONAL_PAYMENT_METHOD_ID);
615 --
616 update hr_pump_batch_lines l set
617 l.pval067 = decode(c.p67,null,cn,c.p67),
618 l.pval068 = decode(c.p68,null,cn,c.p68),
619 l.pval069 = decode(c.p69,null,cn,c.p69),
620 l.pval070 = decode(c.p70,null,cn,dc(c.p70)),
621 l.pval071 = decode(c.p71,null,cn,dc(c.p71)),
622 l.pval072 = decode(c.p72,null,cn,c.p72)
623 where l.rowid = c.myrowid;
624 --
625 close cr;
626 --
627 hr_data_pump.exit('call');
628 exception
629  when hr_multi_message.error_message_exist then
630    if cr%isopen then
631     close cr;
632    end if;
633    hr_pump_utils.set_multi_msg_error_flag(true);
634  when others then
635  if cr%isopen then
636   close cr;
637  end if;
638  raise;
639 end call;
640 end hrdpp_CREATE_US_PERSONAL_PAY_M;