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_PERSONAL_PAY_METH

Source


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