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_NZ_PERSONAL_PAY_M

Source


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