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_UPDATE_IN_ORG_PAYMENT_ME

Source


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