[Home] [Help]
PACKAGE BODY: APPS.PAY_ORG_PAYMENT_METHOD_SWI
Source
1 Package Body pay_org_payment_method_swi As
2 /* $Header: pyopmswi.pkb 115.0 2003/09/26 08:29 sdhole noship $ */
3 --
4 -- Package variables
5 --
6 g_package varchar2(33) := 'pay_org_payment_method_swi.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |-----------------------< create_org_payment_method >----------------------|
10 -- ----------------------------------------------------------------------------
11 PROCEDURE create_org_payment_method
12 (p_validate in number default hr_api.g_false_num
13 ,p_effective_date in date
14 ,p_language_code in varchar2 default null
15 ,p_business_group_id in number
16 ,p_org_payment_method_name in varchar2
17 ,p_payment_type_id in number
18 ,p_currency_code in varchar2 default null
19 ,p_attribute_category in varchar2 default null
20 ,p_attribute1 in varchar2 default null
21 ,p_attribute2 in varchar2 default null
22 ,p_attribute3 in varchar2 default null
23 ,p_attribute4 in varchar2 default null
24 ,p_attribute5 in varchar2 default null
25 ,p_attribute6 in varchar2 default null
26 ,p_attribute7 in varchar2 default null
27 ,p_attribute8 in varchar2 default null
28 ,p_attribute9 in varchar2 default null
29 ,p_attribute10 in varchar2 default null
30 ,p_attribute11 in varchar2 default null
31 ,p_attribute12 in varchar2 default null
32 ,p_attribute13 in varchar2 default null
33 ,p_attribute14 in varchar2 default null
34 ,p_attribute15 in varchar2 default null
35 ,p_attribute16 in varchar2 default null
36 ,p_attribute17 in varchar2 default null
37 ,p_attribute18 in varchar2 default null
38 ,p_attribute19 in varchar2 default null
39 ,p_attribute20 in varchar2 default null
40 ,p_pmeth_information1 in varchar2 default null
41 ,p_pmeth_information2 in varchar2 default null
42 ,p_pmeth_information3 in varchar2 default null
43 ,p_pmeth_information4 in varchar2 default null
44 ,p_pmeth_information5 in varchar2 default null
45 ,p_pmeth_information6 in varchar2 default null
46 ,p_pmeth_information7 in varchar2 default null
47 ,p_pmeth_information8 in varchar2 default null
48 ,p_pmeth_information9 in varchar2 default null
49 ,p_pmeth_information10 in varchar2 default null
50 ,p_pmeth_information11 in varchar2 default null
51 ,p_pmeth_information12 in varchar2 default null
52 ,p_pmeth_information13 in varchar2 default null
53 ,p_pmeth_information14 in varchar2 default null
54 ,p_pmeth_information15 in varchar2 default null
55 ,p_pmeth_information16 in varchar2 default null
56 ,p_pmeth_information17 in varchar2 default null
57 ,p_pmeth_information18 in varchar2 default null
58 ,p_pmeth_information19 in varchar2 default null
59 ,p_pmeth_information20 in varchar2 default null
60 ,p_comments in varchar2 default null
61 ,p_segment1 in varchar2 default null
62 ,p_segment2 in varchar2 default null
63 ,p_segment3 in varchar2 default null
64 ,p_segment4 in varchar2 default null
65 ,p_segment5 in varchar2 default null
66 ,p_segment6 in varchar2 default null
67 ,p_segment7 in varchar2 default null
68 ,p_segment8 in varchar2 default null
69 ,p_segment9 in varchar2 default null
70 ,p_segment10 in varchar2 default null
71 ,p_segment11 in varchar2 default null
72 ,p_segment12 in varchar2 default null
73 ,p_segment13 in varchar2 default null
74 ,p_segment14 in varchar2 default null
75 ,p_segment15 in varchar2 default null
76 ,p_segment16 in varchar2 default null
77 ,p_segment17 in varchar2 default null
78 ,p_segment18 in varchar2 default null
79 ,p_segment19 in varchar2 default null
80 ,p_segment20 in varchar2 default null
81 ,p_segment21 in varchar2 default null
82 ,p_segment22 in varchar2 default null
83 ,p_segment23 in varchar2 default null
84 ,p_segment24 in varchar2 default null
85 ,p_segment25 in varchar2 default null
86 ,p_segment26 in varchar2 default null
87 ,p_segment27 in varchar2 default null
88 ,p_segment28 in varchar2 default null
89 ,p_segment29 in varchar2 default null
90 ,p_segment30 in varchar2 default null
91 ,p_concat_segments in varchar2 default null
92 ,p_gl_segment1 in varchar2 default null
93 ,p_gl_segment2 in varchar2 default null
94 ,p_gl_segment3 in varchar2 default null
95 ,p_gl_segment4 in varchar2 default null
96 ,p_gl_segment5 in varchar2 default null
97 ,p_gl_segment6 in varchar2 default null
98 ,p_gl_segment7 in varchar2 default null
99 ,p_gl_segment8 in varchar2 default null
100 ,p_gl_segment9 in varchar2 default null
101 ,p_gl_segment10 in varchar2 default null
102 ,p_gl_segment11 in varchar2 default null
103 ,p_gl_segment12 in varchar2 default null
104 ,p_gl_segment13 in varchar2 default null
105 ,p_gl_segment14 in varchar2 default null
106 ,p_gl_segment15 in varchar2 default null
107 ,p_gl_segment16 in varchar2 default null
108 ,p_gl_segment17 in varchar2 default null
109 ,p_gl_segment18 in varchar2 default null
110 ,p_gl_segment19 in varchar2 default null
111 ,p_gl_segment20 in varchar2 default null
112 ,p_gl_segment21 in varchar2 default null
113 ,p_gl_segment22 in varchar2 default null
114 ,p_gl_segment23 in varchar2 default null
115 ,p_gl_segment24 in varchar2 default null
116 ,p_gl_segment25 in varchar2 default null
117 ,p_gl_segment26 in varchar2 default null
118 ,p_gl_segment27 in varchar2 default null
119 ,p_gl_segment28 in varchar2 default null
120 ,p_gl_segment29 in varchar2 default null
121 ,p_gl_segment30 in varchar2 default null
122 ,p_gl_concat_segments in varchar2 default null
123 ,p_sets_of_book_id in number default null
124 ,p_third_party_payment in varchar2 default null
125 ,p_org_payment_method_id in number
126 ,p_effective_start_date out nocopy date
127 ,p_effective_end_date out nocopy date
128 ,p_object_version_number out nocopy number
129 ,p_asset_code_combination_id out nocopy number
130 ,p_comment_id out nocopy number
131 ,p_external_account_id out nocopy number
132 ,p_return_status out nocopy varchar2
133 ) is
134 --
135 -- Variables for API Boolean parameters
136 l_validate boolean;
137 --
138 -- Variables for IN/OUT parameters
139 --
140 -- Other variables
141 l_org_payment_method_id number;
142 l_proc varchar2(72) := g_package ||'create_org_payment_method';
143 Begin
144 hr_utility.set_location(' Entering:' || l_proc,10);
145 --
146 -- Issue a savepoint
147 --
148 savepoint create_org_payment_method_swi;
149 --
150 -- Initialise Multiple Message Detection
151 --
152 hr_multi_message.enable_message_list;
153 --
154 -- Remember IN OUT parameter IN values
155 --
156 --
157 -- Convert constant values to their corresponding boolean value
158 --
159 l_validate :=
160 hr_api.constant_to_boolean
161 (p_constant_value => p_validate);
162 --
163 -- Register Surrogate ID or user key values
164 --
165 pay_opm_ins.set_base_key_value
166 (p_org_payment_method_id => p_org_payment_method_id
167 );
168 --
169 -- Call API
170 --
171 pay_org_payment_method_api.create_org_payment_method
172 (p_validate => l_validate
173 ,p_effective_date => p_effective_date
174 ,p_language_code => p_language_code
175 ,p_business_group_id => p_business_group_id
176 ,p_org_payment_method_name => p_org_payment_method_name
177 ,p_payment_type_id => p_payment_type_id
178 ,p_currency_code => p_currency_code
179 ,p_attribute_category => p_attribute_category
180 ,p_attribute1 => p_attribute1
181 ,p_attribute2 => p_attribute2
182 ,p_attribute3 => p_attribute3
183 ,p_attribute4 => p_attribute4
184 ,p_attribute5 => p_attribute5
185 ,p_attribute6 => p_attribute6
186 ,p_attribute7 => p_attribute7
187 ,p_attribute8 => p_attribute8
188 ,p_attribute9 => p_attribute9
189 ,p_attribute10 => p_attribute10
190 ,p_attribute11 => p_attribute11
191 ,p_attribute12 => p_attribute12
192 ,p_attribute13 => p_attribute13
193 ,p_attribute14 => p_attribute14
194 ,p_attribute15 => p_attribute15
195 ,p_attribute16 => p_attribute16
196 ,p_attribute17 => p_attribute17
197 ,p_attribute18 => p_attribute18
198 ,p_attribute19 => p_attribute19
199 ,p_attribute20 => p_attribute20
200 ,p_pmeth_information1 => p_pmeth_information1
201 ,p_pmeth_information2 => p_pmeth_information2
202 ,p_pmeth_information3 => p_pmeth_information3
203 ,p_pmeth_information4 => p_pmeth_information4
204 ,p_pmeth_information5 => p_pmeth_information5
205 ,p_pmeth_information6 => p_pmeth_information6
206 ,p_pmeth_information7 => p_pmeth_information7
207 ,p_pmeth_information8 => p_pmeth_information8
208 ,p_pmeth_information9 => p_pmeth_information9
209 ,p_pmeth_information10 => p_pmeth_information10
210 ,p_pmeth_information11 => p_pmeth_information11
211 ,p_pmeth_information12 => p_pmeth_information12
212 ,p_pmeth_information13 => p_pmeth_information13
213 ,p_pmeth_information14 => p_pmeth_information14
214 ,p_pmeth_information15 => p_pmeth_information15
215 ,p_pmeth_information16 => p_pmeth_information16
216 ,p_pmeth_information17 => p_pmeth_information17
217 ,p_pmeth_information18 => p_pmeth_information18
218 ,p_pmeth_information19 => p_pmeth_information19
219 ,p_pmeth_information20 => p_pmeth_information20
220 ,p_comments => p_comments
221 ,p_segment1 => p_segment1
222 ,p_segment2 => p_segment2
223 ,p_segment3 => p_segment3
224 ,p_segment4 => p_segment4
225 ,p_segment5 => p_segment5
226 ,p_segment6 => p_segment6
227 ,p_segment7 => p_segment7
228 ,p_segment8 => p_segment8
229 ,p_segment9 => p_segment9
230 ,p_segment10 => p_segment10
231 ,p_segment11 => p_segment11
232 ,p_segment12 => p_segment12
233 ,p_segment13 => p_segment13
234 ,p_segment14 => p_segment14
235 ,p_segment15 => p_segment15
236 ,p_segment16 => p_segment16
237 ,p_segment17 => p_segment17
238 ,p_segment18 => p_segment18
239 ,p_segment19 => p_segment19
240 ,p_segment20 => p_segment20
241 ,p_segment21 => p_segment21
242 ,p_segment22 => p_segment22
243 ,p_segment23 => p_segment23
244 ,p_segment24 => p_segment24
245 ,p_segment25 => p_segment25
246 ,p_segment26 => p_segment26
247 ,p_segment27 => p_segment27
248 ,p_segment28 => p_segment28
249 ,p_segment29 => p_segment29
250 ,p_segment30 => p_segment30
251 ,p_concat_segments => p_concat_segments
252 ,p_gl_segment1 => p_gl_segment1
253 ,p_gl_segment2 => p_gl_segment2
254 ,p_gl_segment3 => p_gl_segment3
255 ,p_gl_segment4 => p_gl_segment4
256 ,p_gl_segment5 => p_gl_segment5
257 ,p_gl_segment6 => p_gl_segment6
258 ,p_gl_segment7 => p_gl_segment7
259 ,p_gl_segment8 => p_gl_segment8
260 ,p_gl_segment9 => p_gl_segment9
261 ,p_gl_segment10 => p_gl_segment10
262 ,p_gl_segment11 => p_gl_segment11
263 ,p_gl_segment12 => p_gl_segment12
264 ,p_gl_segment13 => p_gl_segment13
265 ,p_gl_segment14 => p_gl_segment14
266 ,p_gl_segment15 => p_gl_segment15
267 ,p_gl_segment16 => p_gl_segment16
268 ,p_gl_segment17 => p_gl_segment17
269 ,p_gl_segment18 => p_gl_segment18
270 ,p_gl_segment19 => p_gl_segment19
271 ,p_gl_segment20 => p_gl_segment20
272 ,p_gl_segment21 => p_gl_segment21
273 ,p_gl_segment22 => p_gl_segment22
274 ,p_gl_segment23 => p_gl_segment23
275 ,p_gl_segment24 => p_gl_segment24
276 ,p_gl_segment25 => p_gl_segment25
277 ,p_gl_segment26 => p_gl_segment26
278 ,p_gl_segment27 => p_gl_segment27
279 ,p_gl_segment28 => p_gl_segment28
280 ,p_gl_segment29 => p_gl_segment29
281 ,p_gl_segment30 => p_gl_segment30
282 ,p_gl_concat_segments => p_gl_concat_segments
283 ,p_sets_of_book_id => p_sets_of_book_id
284 ,p_third_party_payment => p_third_party_payment
285 ,p_org_payment_method_id => l_org_payment_method_id
286 ,p_effective_start_date => p_effective_start_date
287 ,p_effective_end_date => p_effective_end_date
288 ,p_object_version_number => p_object_version_number
289 ,p_asset_code_combination_id => p_asset_code_combination_id
290 ,p_comment_id => p_comment_id
291 ,p_external_account_id => p_external_account_id
292 );
293 --
294 -- Convert API warning boolean parameter values to specific
295 -- messages and add them to Multiple Message List
296 --
297 --
298 -- Convert API non-warning boolean parameter values
299 --
300 --
301 -- Derive the API return status value based on whether
302 -- messages of any type exist in the Multiple Message List.
303 -- Also disable Multiple Message Detection.
304 --
305 p_return_status := hr_multi_message.get_return_status_disable;
306 hr_utility.set_location(' Leaving:' || l_proc,20);
307 --
308 exception
309 when hr_multi_message.error_message_exist then
310 --
311 -- Catch the Multiple Message List exception which
312 -- indicates API processing has been aborted because
313 -- at least one message exists in the list.
314 --
315 rollback to create_org_payment_method_swi;
316 --
317 -- Reset IN OUT parameters and set OUT parameters
318 --
319 p_effective_start_date := null;
320 p_effective_end_date := null;
321 p_object_version_number := null;
322 p_asset_code_combination_id := null;
323 p_comment_id := null;
324 p_external_account_id := null;
325 p_return_status := hr_multi_message.get_return_status_disable;
326 hr_utility.set_location(' Leaving:' || l_proc, 30);
327 when others then
328 --
329 -- When Multiple Message Detection is enabled catch
330 -- any Application specific or other unexpected
331 -- exceptions. Adding appropriate details to the
332 -- Multiple Message List. Otherwise re-raise the
333 -- error.
334 --
335 rollback to create_org_payment_method_swi;
336 if hr_multi_message.unexpected_error_add(l_proc) then
337 hr_utility.set_location(' Leaving:' || l_proc,40);
338 raise;
339 end if;
340 --
341 -- Reset IN OUT and set OUT parameters
342 --
343 p_effective_start_date := null;
344 p_effective_end_date := null;
345 p_object_version_number := null;
346 p_asset_code_combination_id := null;
347 p_comment_id := null;
348 p_external_account_id := null;
349 p_return_status := hr_multi_message.get_return_status_disable;
350 hr_utility.set_location(' Leaving:' || l_proc,50);
351 end create_org_payment_method;
352 -- ----------------------------------------------------------------------------
353 -- |-----------------------< delete_org_payment_method >----------------------|
354 -- ----------------------------------------------------------------------------
355 PROCEDURE delete_org_payment_method
356 (p_validate in number default hr_api.g_false_num
357 ,p_effective_date in date
358 ,p_datetrack_delete_mode in varchar2
359 ,p_org_payment_method_id in number
360 ,p_object_version_number in out nocopy number
361 ,p_effective_start_date out nocopy date
362 ,p_effective_end_date out nocopy date
363 ,p_return_status out nocopy varchar2
364 ) is
365 --
366 -- Variables for API Boolean parameters
367 l_validate boolean;
368 --
369 -- Variables for IN/OUT parameters
370 l_object_version_number number;
371 --
372 -- Other variables
373 l_proc varchar2(72) := g_package ||'delete_org_payment_method';
374 Begin
375 hr_utility.set_location(' Entering:' || l_proc,10);
376 --
377 -- Issue a savepoint
378 --
379 savepoint delete_org_payment_method_swi;
380 --
381 -- Initialise Multiple Message Detection
382 --
383 hr_multi_message.enable_message_list;
384 --
385 -- Remember IN OUT parameter IN values
386 --
387 l_object_version_number := p_object_version_number;
388 --
389 -- Convert constant values to their corresponding boolean value
390 --
391 l_validate :=
392 hr_api.constant_to_boolean
393 (p_constant_value => p_validate);
394 --
395 -- Register Surrogate ID or user key values
396 --
397 --
398 -- Call API
399 --
400 pay_org_payment_method_api.delete_org_payment_method
401 (p_validate => l_validate
402 ,p_effective_date => p_effective_date
403 ,p_datetrack_delete_mode => p_datetrack_delete_mode
404 ,p_org_payment_method_id => p_org_payment_method_id
405 ,p_object_version_number => p_object_version_number
406 ,p_effective_start_date => p_effective_start_date
407 ,p_effective_end_date => p_effective_end_date
408 );
409 --
410 -- Convert API warning boolean parameter values to specific
411 -- messages and add them to Multiple Message List
412 --
413 --
414 -- Convert API non-warning boolean parameter values
415 --
416 --
417 -- Derive the API return status value based on whether
418 -- messages of any type exist in the Multiple Message List.
419 -- Also disable Multiple Message Detection.
420 --
421 p_return_status := hr_multi_message.get_return_status_disable;
422 hr_utility.set_location(' Leaving:' || l_proc,20);
423 --
424 exception
425 when hr_multi_message.error_message_exist then
426 --
427 -- Catch the Multiple Message List exception which
428 -- indicates API processing has been aborted because
429 -- at least one message exists in the list.
430 --
431 rollback to delete_org_payment_method_swi;
432 --
433 -- Reset IN OUT parameters and set OUT parameters
434 --
435 p_object_version_number := l_object_version_number;
436 p_effective_start_date := null;
437 p_effective_end_date := null;
438 p_return_status := hr_multi_message.get_return_status_disable;
439 hr_utility.set_location(' Leaving:' || l_proc, 30);
440 when others then
441 --
442 -- When Multiple Message Detection is enabled catch
443 -- any Application specific or other unexpected
444 -- exceptions. Adding appropriate details to the
445 -- Multiple Message List. Otherwise re-raise the
446 -- error.
447 --
448 rollback to delete_org_payment_method_swi;
449 if hr_multi_message.unexpected_error_add(l_proc) then
450 hr_utility.set_location(' Leaving:' || l_proc,40);
451 raise;
452 end if;
453 --
454 -- Reset IN OUT and set OUT parameters
455 --
456 p_object_version_number := l_object_version_number;
457 p_effective_start_date := null;
458 p_effective_end_date := null;
459 p_return_status := hr_multi_message.get_return_status_disable;
460 hr_utility.set_location(' Leaving:' || l_proc,50);
461 end delete_org_payment_method;
462 -- ----------------------------------------------------------------------------
463 -- |-----------------------< update_org_payment_method >----------------------|
464 -- ----------------------------------------------------------------------------
465 PROCEDURE update_org_payment_method
466 (p_validate in number default hr_api.g_false_num
467 ,p_effective_date in date
468 ,p_datetrack_update_mode in varchar2
469 ,p_language_code in varchar2 default hr_api.g_varchar2
470 ,p_org_payment_method_id in number
471 ,p_object_version_number in out nocopy number
472 ,p_org_payment_method_name in varchar2 default hr_api.g_varchar2
473 ,p_currency_code in varchar2 default hr_api.g_varchar2
474 ,p_attribute_category in varchar2 default hr_api.g_varchar2
475 ,p_attribute1 in varchar2 default hr_api.g_varchar2
476 ,p_attribute2 in varchar2 default hr_api.g_varchar2
477 ,p_attribute3 in varchar2 default hr_api.g_varchar2
478 ,p_attribute4 in varchar2 default hr_api.g_varchar2
479 ,p_attribute5 in varchar2 default hr_api.g_varchar2
480 ,p_attribute6 in varchar2 default hr_api.g_varchar2
481 ,p_attribute7 in varchar2 default hr_api.g_varchar2
482 ,p_attribute8 in varchar2 default hr_api.g_varchar2
483 ,p_attribute9 in varchar2 default hr_api.g_varchar2
484 ,p_attribute10 in varchar2 default hr_api.g_varchar2
485 ,p_attribute11 in varchar2 default hr_api.g_varchar2
486 ,p_attribute12 in varchar2 default hr_api.g_varchar2
487 ,p_attribute13 in varchar2 default hr_api.g_varchar2
488 ,p_attribute14 in varchar2 default hr_api.g_varchar2
489 ,p_attribute15 in varchar2 default hr_api.g_varchar2
490 ,p_attribute16 in varchar2 default hr_api.g_varchar2
491 ,p_attribute17 in varchar2 default hr_api.g_varchar2
492 ,p_attribute18 in varchar2 default hr_api.g_varchar2
493 ,p_attribute19 in varchar2 default hr_api.g_varchar2
494 ,p_attribute20 in varchar2 default hr_api.g_varchar2
495 ,p_pmeth_information1 in varchar2 default hr_api.g_varchar2
496 ,p_pmeth_information2 in varchar2 default hr_api.g_varchar2
497 ,p_pmeth_information3 in varchar2 default hr_api.g_varchar2
498 ,p_pmeth_information4 in varchar2 default hr_api.g_varchar2
499 ,p_pmeth_information5 in varchar2 default hr_api.g_varchar2
500 ,p_pmeth_information6 in varchar2 default hr_api.g_varchar2
501 ,p_pmeth_information7 in varchar2 default hr_api.g_varchar2
502 ,p_pmeth_information8 in varchar2 default hr_api.g_varchar2
503 ,p_pmeth_information9 in varchar2 default hr_api.g_varchar2
504 ,p_pmeth_information10 in varchar2 default hr_api.g_varchar2
505 ,p_pmeth_information11 in varchar2 default hr_api.g_varchar2
506 ,p_pmeth_information12 in varchar2 default hr_api.g_varchar2
507 ,p_pmeth_information13 in varchar2 default hr_api.g_varchar2
508 ,p_pmeth_information14 in varchar2 default hr_api.g_varchar2
509 ,p_pmeth_information15 in varchar2 default hr_api.g_varchar2
510 ,p_pmeth_information16 in varchar2 default hr_api.g_varchar2
511 ,p_pmeth_information17 in varchar2 default hr_api.g_varchar2
512 ,p_pmeth_information18 in varchar2 default hr_api.g_varchar2
513 ,p_pmeth_information19 in varchar2 default hr_api.g_varchar2
514 ,p_pmeth_information20 in varchar2 default hr_api.g_varchar2
515 ,p_comments in varchar2 default hr_api.g_varchar2
516 ,p_segment1 in varchar2 default hr_api.g_varchar2
517 ,p_segment2 in varchar2 default hr_api.g_varchar2
518 ,p_segment3 in varchar2 default hr_api.g_varchar2
519 ,p_segment4 in varchar2 default hr_api.g_varchar2
520 ,p_segment5 in varchar2 default hr_api.g_varchar2
521 ,p_segment6 in varchar2 default hr_api.g_varchar2
522 ,p_segment7 in varchar2 default hr_api.g_varchar2
523 ,p_segment8 in varchar2 default hr_api.g_varchar2
524 ,p_segment9 in varchar2 default hr_api.g_varchar2
525 ,p_segment10 in varchar2 default hr_api.g_varchar2
526 ,p_segment11 in varchar2 default hr_api.g_varchar2
527 ,p_segment12 in varchar2 default hr_api.g_varchar2
528 ,p_segment13 in varchar2 default hr_api.g_varchar2
529 ,p_segment14 in varchar2 default hr_api.g_varchar2
530 ,p_segment15 in varchar2 default hr_api.g_varchar2
531 ,p_segment16 in varchar2 default hr_api.g_varchar2
532 ,p_segment17 in varchar2 default hr_api.g_varchar2
533 ,p_segment18 in varchar2 default hr_api.g_varchar2
534 ,p_segment19 in varchar2 default hr_api.g_varchar2
535 ,p_segment20 in varchar2 default hr_api.g_varchar2
536 ,p_segment21 in varchar2 default hr_api.g_varchar2
537 ,p_segment22 in varchar2 default hr_api.g_varchar2
538 ,p_segment23 in varchar2 default hr_api.g_varchar2
539 ,p_segment24 in varchar2 default hr_api.g_varchar2
540 ,p_segment25 in varchar2 default hr_api.g_varchar2
541 ,p_segment26 in varchar2 default hr_api.g_varchar2
542 ,p_segment27 in varchar2 default hr_api.g_varchar2
543 ,p_segment28 in varchar2 default hr_api.g_varchar2
544 ,p_segment29 in varchar2 default hr_api.g_varchar2
545 ,p_segment30 in varchar2 default hr_api.g_varchar2
546 ,p_concat_segments in varchar2 default hr_api.g_varchar2
547 ,p_gl_segment1 in varchar2 default hr_api.g_varchar2
548 ,p_gl_segment2 in varchar2 default hr_api.g_varchar2
549 ,p_gl_segment3 in varchar2 default hr_api.g_varchar2
550 ,p_gl_segment4 in varchar2 default hr_api.g_varchar2
551 ,p_gl_segment5 in varchar2 default hr_api.g_varchar2
552 ,p_gl_segment6 in varchar2 default hr_api.g_varchar2
553 ,p_gl_segment7 in varchar2 default hr_api.g_varchar2
554 ,p_gl_segment8 in varchar2 default hr_api.g_varchar2
555 ,p_gl_segment9 in varchar2 default hr_api.g_varchar2
556 ,p_gl_segment10 in varchar2 default hr_api.g_varchar2
557 ,p_gl_segment11 in varchar2 default hr_api.g_varchar2
558 ,p_gl_segment12 in varchar2 default hr_api.g_varchar2
559 ,p_gl_segment13 in varchar2 default hr_api.g_varchar2
560 ,p_gl_segment14 in varchar2 default hr_api.g_varchar2
561 ,p_gl_segment15 in varchar2 default hr_api.g_varchar2
562 ,p_gl_segment16 in varchar2 default hr_api.g_varchar2
563 ,p_gl_segment17 in varchar2 default hr_api.g_varchar2
564 ,p_gl_segment18 in varchar2 default hr_api.g_varchar2
565 ,p_gl_segment19 in varchar2 default hr_api.g_varchar2
566 ,p_gl_segment20 in varchar2 default hr_api.g_varchar2
567 ,p_gl_segment21 in varchar2 default hr_api.g_varchar2
568 ,p_gl_segment22 in varchar2 default hr_api.g_varchar2
569 ,p_gl_segment23 in varchar2 default hr_api.g_varchar2
570 ,p_gl_segment24 in varchar2 default hr_api.g_varchar2
571 ,p_gl_segment25 in varchar2 default hr_api.g_varchar2
572 ,p_gl_segment26 in varchar2 default hr_api.g_varchar2
573 ,p_gl_segment27 in varchar2 default hr_api.g_varchar2
574 ,p_gl_segment28 in varchar2 default hr_api.g_varchar2
575 ,p_gl_segment29 in varchar2 default hr_api.g_varchar2
576 ,p_gl_segment30 in varchar2 default hr_api.g_varchar2
577 ,p_gl_concat_segments in varchar2 default hr_api.g_varchar2
578 ,p_sets_of_book_id in number default hr_api.g_number
579 ,p_effective_start_date out nocopy date
580 ,p_effective_end_date out nocopy date
581 ,p_asset_code_combination_id out nocopy number
582 ,p_comment_id out nocopy number
583 ,p_external_account_id out nocopy number
584 ,p_return_status out nocopy varchar2
585 ) is
586 --
587 -- Variables for API Boolean parameters
588 l_validate boolean;
589 --
590 -- Variables for IN/OUT parameters
591 l_object_version_number number;
592 --
593 -- Other variables
594 l_proc varchar2(72) := g_package ||'update_org_payment_method';
595 Begin
596 hr_utility.set_location(' Entering:' || l_proc,10);
597 --
598 -- Issue a savepoint
599 --
600 savepoint update_org_payment_method_swi;
601 --
602 -- Initialise Multiple Message Detection
603 --
604 hr_multi_message.enable_message_list;
605 --
606 -- Remember IN OUT parameter IN values
607 --
608 l_object_version_number := p_object_version_number;
609 --
610 -- Convert constant values to their corresponding boolean value
611 --
612 l_validate :=
613 hr_api.constant_to_boolean
614 (p_constant_value => p_validate);
615 --
616 -- Register Surrogate ID or user key values
617 --
618 --
619 -- Call API
620 --
621 pay_org_payment_method_api.update_org_payment_method
622 (p_validate => l_validate
623 ,p_effective_date => p_effective_date
624 ,p_datetrack_update_mode => p_datetrack_update_mode
625 ,p_language_code => p_language_code
626 ,p_org_payment_method_id => p_org_payment_method_id
627 ,p_object_version_number => p_object_version_number
628 ,p_org_payment_method_name => p_org_payment_method_name
629 ,p_currency_code => p_currency_code
630 ,p_attribute_category => p_attribute_category
631 ,p_attribute1 => p_attribute1
632 ,p_attribute2 => p_attribute2
633 ,p_attribute3 => p_attribute3
634 ,p_attribute4 => p_attribute4
635 ,p_attribute5 => p_attribute5
636 ,p_attribute6 => p_attribute6
637 ,p_attribute7 => p_attribute7
638 ,p_attribute8 => p_attribute8
639 ,p_attribute9 => p_attribute9
640 ,p_attribute10 => p_attribute10
641 ,p_attribute11 => p_attribute11
642 ,p_attribute12 => p_attribute12
643 ,p_attribute13 => p_attribute13
644 ,p_attribute14 => p_attribute14
645 ,p_attribute15 => p_attribute15
646 ,p_attribute16 => p_attribute16
647 ,p_attribute17 => p_attribute17
648 ,p_attribute18 => p_attribute18
649 ,p_attribute19 => p_attribute19
650 ,p_attribute20 => p_attribute20
651 ,p_pmeth_information1 => p_pmeth_information1
652 ,p_pmeth_information2 => p_pmeth_information2
653 ,p_pmeth_information3 => p_pmeth_information3
654 ,p_pmeth_information4 => p_pmeth_information4
655 ,p_pmeth_information5 => p_pmeth_information5
656 ,p_pmeth_information6 => p_pmeth_information6
657 ,p_pmeth_information7 => p_pmeth_information7
658 ,p_pmeth_information8 => p_pmeth_information8
659 ,p_pmeth_information9 => p_pmeth_information9
660 ,p_pmeth_information10 => p_pmeth_information10
661 ,p_pmeth_information11 => p_pmeth_information11
662 ,p_pmeth_information12 => p_pmeth_information12
663 ,p_pmeth_information13 => p_pmeth_information13
664 ,p_pmeth_information14 => p_pmeth_information14
665 ,p_pmeth_information15 => p_pmeth_information15
666 ,p_pmeth_information16 => p_pmeth_information16
667 ,p_pmeth_information17 => p_pmeth_information17
668 ,p_pmeth_information18 => p_pmeth_information18
669 ,p_pmeth_information19 => p_pmeth_information19
670 ,p_pmeth_information20 => p_pmeth_information20
671 ,p_comments => p_comments
672 ,p_segment1 => p_segment1
673 ,p_segment2 => p_segment2
674 ,p_segment3 => p_segment3
675 ,p_segment4 => p_segment4
676 ,p_segment5 => p_segment5
677 ,p_segment6 => p_segment6
678 ,p_segment7 => p_segment7
679 ,p_segment8 => p_segment8
680 ,p_segment9 => p_segment9
681 ,p_segment10 => p_segment10
682 ,p_segment11 => p_segment11
683 ,p_segment12 => p_segment12
684 ,p_segment13 => p_segment13
685 ,p_segment14 => p_segment14
686 ,p_segment15 => p_segment15
687 ,p_segment16 => p_segment16
688 ,p_segment17 => p_segment17
689 ,p_segment18 => p_segment18
690 ,p_segment19 => p_segment19
691 ,p_segment20 => p_segment20
692 ,p_segment21 => p_segment21
693 ,p_segment22 => p_segment22
694 ,p_segment23 => p_segment23
695 ,p_segment24 => p_segment24
696 ,p_segment25 => p_segment25
697 ,p_segment26 => p_segment26
698 ,p_segment27 => p_segment27
699 ,p_segment28 => p_segment28
700 ,p_segment29 => p_segment29
701 ,p_segment30 => p_segment30
702 ,p_concat_segments => p_concat_segments
703 ,p_gl_segment1 => p_gl_segment1
704 ,p_gl_segment2 => p_gl_segment2
705 ,p_gl_segment3 => p_gl_segment3
706 ,p_gl_segment4 => p_gl_segment4
707 ,p_gl_segment5 => p_gl_segment5
708 ,p_gl_segment6 => p_gl_segment6
709 ,p_gl_segment7 => p_gl_segment7
710 ,p_gl_segment8 => p_gl_segment8
711 ,p_gl_segment9 => p_gl_segment9
712 ,p_gl_segment10 => p_gl_segment10
713 ,p_gl_segment11 => p_gl_segment11
714 ,p_gl_segment12 => p_gl_segment12
715 ,p_gl_segment13 => p_gl_segment13
716 ,p_gl_segment14 => p_gl_segment14
717 ,p_gl_segment15 => p_gl_segment15
718 ,p_gl_segment16 => p_gl_segment16
719 ,p_gl_segment17 => p_gl_segment17
720 ,p_gl_segment18 => p_gl_segment18
721 ,p_gl_segment19 => p_gl_segment19
722 ,p_gl_segment20 => p_gl_segment20
723 ,p_gl_segment21 => p_gl_segment21
724 ,p_gl_segment22 => p_gl_segment22
725 ,p_gl_segment23 => p_gl_segment23
726 ,p_gl_segment24 => p_gl_segment24
727 ,p_gl_segment25 => p_gl_segment25
728 ,p_gl_segment26 => p_gl_segment26
729 ,p_gl_segment27 => p_gl_segment27
730 ,p_gl_segment28 => p_gl_segment28
731 ,p_gl_segment29 => p_gl_segment29
732 ,p_gl_segment30 => p_gl_segment30
733 ,p_gl_concat_segments => p_gl_concat_segments
734 ,p_sets_of_book_id => p_sets_of_book_id
735 ,p_effective_start_date => p_effective_start_date
736 ,p_effective_end_date => p_effective_end_date
737 ,p_asset_code_combination_id => p_asset_code_combination_id
738 ,p_comment_id => p_comment_id
739 ,p_external_account_id => p_external_account_id
740 );
741 --
742 -- Convert API warning boolean parameter values to specific
743 -- messages and add them to Multiple Message List
744 --
745 --
746 -- Convert API non-warning boolean parameter values
747 --
748 --
749 -- Derive the API return status value based on whether
750 -- messages of any type exist in the Multiple Message List.
751 -- Also disable Multiple Message Detection.
752 --
753 p_return_status := hr_multi_message.get_return_status_disable;
754 hr_utility.set_location(' Leaving:' || l_proc,20);
755 --
756 exception
757 when hr_multi_message.error_message_exist then
758 --
759 -- Catch the Multiple Message List exception which
760 -- indicates API processing has been aborted because
761 -- at least one message exists in the list.
762 --
763 rollback to update_org_payment_method_swi;
764 --
765 -- Reset IN OUT parameters and set OUT parameters
766 --
767 p_object_version_number := l_object_version_number;
768 p_effective_start_date := null;
769 p_effective_end_date := null;
770 p_asset_code_combination_id := null;
771 p_comment_id := null;
772 p_external_account_id := null;
773 p_return_status := hr_multi_message.get_return_status_disable;
774 hr_utility.set_location(' Leaving:' || l_proc, 30);
775 when others then
776 --
777 -- When Multiple Message Detection is enabled catch
778 -- any Application specific or other unexpected
779 -- exceptions. Adding appropriate details to the
780 -- Multiple Message List. Otherwise re-raise the
781 -- error.
782 --
783 rollback to update_org_payment_method_swi;
784 if hr_multi_message.unexpected_error_add(l_proc) then
785 hr_utility.set_location(' Leaving:' || l_proc,40);
786 raise;
787 end if;
788 --
789 -- Reset IN OUT and set OUT parameters
790 --
791 p_object_version_number := l_object_version_number;
792 p_effective_start_date := null;
793 p_effective_end_date := null;
794 p_asset_code_combination_id := null;
795 p_comment_id := null;
796 p_external_account_id := null;
797 p_return_status := hr_multi_message.get_return_status_disable;
798 hr_utility.set_location(' Leaving:' || l_proc,50);
799 end update_org_payment_method;
800 end pay_org_payment_method_swi;