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_IN_ORG_PAYMENT_ME

Source


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