[Home] [Help]
PACKAGE BODY: APPS.IBY_EXT_BANKACCT_PUB_W
Source
1 package body iby_ext_bankacct_pub_w as
2 /* $Header: ibyxbnkwb.pls 120.10 2011/07/28 12:20:11 vkarlapu ship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 rosetta_g_mistake_date_high date := to_date('12/31/+9999', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 procedure create_ext_bank(p_api_version NUMBER
17 , p_init_msg_list VARCHAR2
18 , p2_a0 NUMBER
19 , p2_a1 VARCHAR2
20 , p2_a2 VARCHAR2
21 , p2_a3 VARCHAR2
22 , p2_a4 VARCHAR2
23 , p2_a5 VARCHAR2
24 , p2_a6 VARCHAR2
25 , p2_a7 VARCHAR2
26 , p2_a8 VARCHAR2
27 , p2_a9 VARCHAR2
28 , p2_a10 VARCHAR2
29 , p2_a11 VARCHAR2
30 , p2_a12 VARCHAR2
31 , p2_a13 VARCHAR2
32 , p2_a14 VARCHAR2
33 , p2_a15 VARCHAR2
34 , p2_a16 VARCHAR2
35 , p2_a17 VARCHAR2
36 , p2_a18 VARCHAR2
37 , p2_a19 VARCHAR2
38 , p2_a20 VARCHAR2
39 , p2_a21 VARCHAR2
40 , p2_a22 VARCHAR2
41 , p2_a23 VARCHAR2
42 , p2_a24 VARCHAR2
43 , p2_a25 VARCHAR2
44 , p2_a26 VARCHAR2
45 , p2_a27 VARCHAR2
46 , p2_a28 VARCHAR2
47 , p2_a29 VARCHAR2
48 , p2_a30 VARCHAR2
49 , p2_a31 VARCHAR2
50 , p2_a32 VARCHAR2
51 , p2_a33 VARCHAR2
52 , p2_a34 VARCHAR2
53 , p2_a35 NUMBER
54 , x_bank_id out nocopy NUMBER
55 , x_return_status out nocopy VARCHAR2
56 , x_msg_count out nocopy NUMBER
57 , x_msg_data out nocopy VARCHAR2
58 , p7_a0 out nocopy VARCHAR2
59 , p7_a1 out nocopy VARCHAR2
60 , p7_a2 out nocopy VARCHAR2
61 )
62
63 as
64 ddp_ext_bank_rec iby_ext_bankacct_pub.extbank_rec_type;
65 ddx_response iby_fndcpt_common_pub.result_rec_type;
66 ddindx binary_integer; indx binary_integer;
67 begin
68
69 -- copy data to the local IN or IN-OUT args, if any
70
71
72 ddp_ext_bank_rec.bank_id := p2_a0;
73 ddp_ext_bank_rec.bank_name := p2_a1;
74 ddp_ext_bank_rec.bank_number := p2_a2;
75 ddp_ext_bank_rec.institution_type := p2_a3;
76 ddp_ext_bank_rec.country_code := p2_a4;
77 ddp_ext_bank_rec.bank_alt_name := p2_a5;
78 ddp_ext_bank_rec.bank_short_name := p2_a6;
79 ddp_ext_bank_rec.description := p2_a7;
80 ddp_ext_bank_rec.tax_payer_id := p2_a8;
81 ddp_ext_bank_rec.tax_registration_number := p2_a9;
82 ddp_ext_bank_rec.attribute_category := p2_a10;
83 ddp_ext_bank_rec.attribute1 := p2_a11;
84 ddp_ext_bank_rec.attribute2 := p2_a12;
85 ddp_ext_bank_rec.attribute3 := p2_a13;
86 ddp_ext_bank_rec.attribute4 := p2_a14;
87 ddp_ext_bank_rec.attribute5 := p2_a15;
88 ddp_ext_bank_rec.attribute6 := p2_a16;
89 ddp_ext_bank_rec.attribute7 := p2_a17;
90 ddp_ext_bank_rec.attribute8 := p2_a18;
91 ddp_ext_bank_rec.attribute9 := p2_a19;
92 ddp_ext_bank_rec.attribute10 := p2_a20;
93 ddp_ext_bank_rec.attribute11 := p2_a21;
94 ddp_ext_bank_rec.attribute12 := p2_a22;
95 ddp_ext_bank_rec.attribute13 := p2_a23;
96 ddp_ext_bank_rec.attribute14 := p2_a24;
97 ddp_ext_bank_rec.attribute15 := p2_a25;
98 ddp_ext_bank_rec.attribute16 := p2_a26;
99 ddp_ext_bank_rec.attribute17 := p2_a27;
100 ddp_ext_bank_rec.attribute18 := p2_a28;
101 ddp_ext_bank_rec.attribute19 := p2_a29;
102 ddp_ext_bank_rec.attribute20 := p2_a30;
103 ddp_ext_bank_rec.attribute21 := p2_a31;
104 ddp_ext_bank_rec.attribute22 := p2_a32;
105 ddp_ext_bank_rec.attribute23 := p2_a33;
106 ddp_ext_bank_rec.attribute24 := p2_a34;
107 ddp_ext_bank_rec.object_version_number := p2_a35;
108
109
110
111
112
113
114 -- here's the delegated call to the old PL/SQL routine
115 iby_ext_bankacct_pub.create_ext_bank(p_api_version,
116 p_init_msg_list,
117 ddp_ext_bank_rec,
118 x_bank_id,
119 x_return_status,
120 x_msg_count,
121 x_msg_data,
122 ddx_response);
123
124 -- copy data back from the local variables to OUT or IN-OUT args, if any
125
126
127
128
129
130
131
132 p7_a0 := ddx_response.result_code;
133 p7_a1 := ddx_response.result_category;
134 p7_a2 := ddx_response.result_message;
135 end;
136
137 procedure update_ext_bank(p_api_version NUMBER
138 , p_init_msg_list VARCHAR2
139 , p2_a0 NUMBER
140 , p2_a1 VARCHAR2
141 , p2_a2 VARCHAR2
142 , p2_a3 VARCHAR2
143 , p2_a4 VARCHAR2
144 , p2_a5 VARCHAR2
145 , p2_a6 VARCHAR2
146 , p2_a7 VARCHAR2
147 , p2_a8 VARCHAR2
148 , p2_a9 VARCHAR2
149 , p2_a10 VARCHAR2
150 , p2_a11 VARCHAR2
151 , p2_a12 VARCHAR2
152 , p2_a13 VARCHAR2
153 , p2_a14 VARCHAR2
154 , p2_a15 VARCHAR2
155 , p2_a16 VARCHAR2
156 , p2_a17 VARCHAR2
157 , p2_a18 VARCHAR2
158 , p2_a19 VARCHAR2
159 , p2_a20 VARCHAR2
160 , p2_a21 VARCHAR2
161 , p2_a22 VARCHAR2
162 , p2_a23 VARCHAR2
163 , p2_a24 VARCHAR2
164 , p2_a25 VARCHAR2
165 , p2_a26 VARCHAR2
166 , p2_a27 VARCHAR2
167 , p2_a28 VARCHAR2
168 , p2_a29 VARCHAR2
169 , p2_a30 VARCHAR2
170 , p2_a31 VARCHAR2
171 , p2_a32 VARCHAR2
172 , p2_a33 VARCHAR2
173 , p2_a34 VARCHAR2
174 , p2_a35 NUMBER
175 , x_return_status out nocopy VARCHAR2
176 , x_msg_count out nocopy NUMBER
177 , x_msg_data out nocopy VARCHAR2
178 , p6_a0 out nocopy VARCHAR2
179 , p6_a1 out nocopy VARCHAR2
180 , p6_a2 out nocopy VARCHAR2
181 )
182
183 as
184 ddp_ext_bank_rec iby_ext_bankacct_pub.extbank_rec_type;
185 ddx_response iby_fndcpt_common_pub.result_rec_type;
186 ddindx binary_integer; indx binary_integer;
187 begin
188
189 -- copy data to the local IN or IN-OUT args, if any
190
191
192 ddp_ext_bank_rec.bank_id := p2_a0;
193 ddp_ext_bank_rec.bank_name := p2_a1;
194 ddp_ext_bank_rec.bank_number := p2_a2;
195 ddp_ext_bank_rec.institution_type := p2_a3;
196 ddp_ext_bank_rec.country_code := p2_a4;
197 ddp_ext_bank_rec.bank_alt_name := p2_a5;
198 ddp_ext_bank_rec.bank_short_name := p2_a6;
199 ddp_ext_bank_rec.description := p2_a7;
200 ddp_ext_bank_rec.tax_payer_id := p2_a8;
201 ddp_ext_bank_rec.tax_registration_number := p2_a9;
202 ddp_ext_bank_rec.attribute_category := p2_a10;
203 ddp_ext_bank_rec.attribute1 := p2_a11;
204 ddp_ext_bank_rec.attribute2 := p2_a12;
205 ddp_ext_bank_rec.attribute3 := p2_a13;
206 ddp_ext_bank_rec.attribute4 := p2_a14;
207 ddp_ext_bank_rec.attribute5 := p2_a15;
208 ddp_ext_bank_rec.attribute6 := p2_a16;
209 ddp_ext_bank_rec.attribute7 := p2_a17;
210 ddp_ext_bank_rec.attribute8 := p2_a18;
211 ddp_ext_bank_rec.attribute9 := p2_a19;
212 ddp_ext_bank_rec.attribute10 := p2_a20;
213 ddp_ext_bank_rec.attribute11 := p2_a21;
214 ddp_ext_bank_rec.attribute12 := p2_a22;
215 ddp_ext_bank_rec.attribute13 := p2_a23;
216 ddp_ext_bank_rec.attribute14 := p2_a24;
217 ddp_ext_bank_rec.attribute15 := p2_a25;
218 ddp_ext_bank_rec.attribute16 := p2_a26;
219 ddp_ext_bank_rec.attribute17 := p2_a27;
220 ddp_ext_bank_rec.attribute18 := p2_a28;
221 ddp_ext_bank_rec.attribute19 := p2_a29;
222 ddp_ext_bank_rec.attribute20 := p2_a30;
223 ddp_ext_bank_rec.attribute21 := p2_a31;
224 ddp_ext_bank_rec.attribute22 := p2_a32;
225 ddp_ext_bank_rec.attribute23 := p2_a33;
226 ddp_ext_bank_rec.attribute24 := p2_a34;
227 ddp_ext_bank_rec.object_version_number := p2_a35;
228
229
230
231
232
233 -- here's the delegated call to the old PL/SQL routine
234 iby_ext_bankacct_pub.update_ext_bank(p_api_version,
235 p_init_msg_list,
236 ddp_ext_bank_rec,
237 x_return_status,
238 x_msg_count,
239 x_msg_data,
240 ddx_response);
241
242 -- copy data back from the local variables to OUT or IN-OUT args, if any
243
244
245
246
247
248
249 p6_a0 := ddx_response.result_code;
250 p6_a1 := ddx_response.result_category;
251 p6_a2 := ddx_response.result_message;
252 end;
253
254 procedure set_bank_end_date(p_api_version NUMBER
255 , p_init_msg_list VARCHAR2
256 , p_bank_id NUMBER
257 , p_end_date date
258 , x_return_status out nocopy VARCHAR2
259 , x_msg_count out nocopy NUMBER
260 , x_msg_data out nocopy VARCHAR2
261 , p7_a0 out nocopy VARCHAR2
262 , p7_a1 out nocopy VARCHAR2
263 , p7_a2 out nocopy VARCHAR2
264 )
265
266 as
267 ddp_end_date date;
268 ddx_response iby_fndcpt_common_pub.result_rec_type;
269 ddindx binary_integer; indx binary_integer;
270 begin
271
272 -- copy data to the local IN or IN-OUT args, if any
273
274
275
276 ddp_end_date := rosetta_g_miss_date_in_map(p_end_date);
277
278
279
280
281
282 -- here's the delegated call to the old PL/SQL routine
283 iby_ext_bankacct_pub.set_bank_end_date(p_api_version,
284 p_init_msg_list,
285 p_bank_id,
286 ddp_end_date,
287 x_return_status,
288 x_msg_count,
289 x_msg_data,
290 ddx_response);
291
292 -- copy data back from the local variables to OUT or IN-OUT args, if any
293
294
295
296
297
298
299
300 p7_a0 := ddx_response.result_code;
301 p7_a1 := ddx_response.result_category;
302 p7_a2 := ddx_response.result_message;
303 end;
304
305 procedure check_bank_exist(p_api_version NUMBER
306 , p_init_msg_list VARCHAR2
307 , p_country_code VARCHAR2
308 , p_bank_name VARCHAR2
309 , p_bank_number VARCHAR2
310 , x_return_status out nocopy VARCHAR2
311 , x_msg_count out nocopy NUMBER
312 , x_msg_data out nocopy VARCHAR2
313 , x_bank_id out nocopy NUMBER
314 , x_end_date out nocopy DATE
315 , p10_a0 out nocopy VARCHAR2
316 , p10_a1 out nocopy VARCHAR2
317 , p10_a2 out nocopy VARCHAR2
318 )
319
320 as
321 ddx_response iby_fndcpt_common_pub.result_rec_type;
322 ddindx binary_integer; indx binary_integer;
323 begin
324
325 -- copy data to the local IN or IN-OUT args, if any
326
327
328
329
330
331
332
333
334
335
336
337 -- here's the delegated call to the old PL/SQL routine
338 iby_ext_bankacct_pub.check_bank_exist(p_api_version,
339 p_init_msg_list,
340 p_country_code,
341 p_bank_name,
342 p_bank_number,
343 x_return_status,
344 x_msg_count,
345 x_msg_data,
346 x_bank_id,
347 x_end_date,
348 ddx_response);
349
350 -- copy data back from the local variables to OUT or IN-OUT args, if any
351
352
353
354
355
356
357
358
359
360
361 p10_a0 := ddx_response.result_code;
362 p10_a1 := ddx_response.result_category;
363 p10_a2 := ddx_response.result_message;
364 end;
365
366 procedure create_ext_bank_branch(p_api_version NUMBER
367 , p_init_msg_list VARCHAR2
368 , p2_a0 NUMBER
369 , p2_a1 NUMBER
370 , p2_a2 VARCHAR2
371 , p2_a3 VARCHAR2
372 , p2_a4 VARCHAR2
373 , p2_a5 VARCHAR2
374 , p2_a6 VARCHAR2
375 , p2_a7 VARCHAR2
376 , p2_a8 VARCHAR2
377 , p2_a9 VARCHAR2
378 , p2_a10 VARCHAR2
379 , p2_a11 VARCHAR2
380 , p2_a12 VARCHAR2
381 , p2_a13 VARCHAR2
382 , p2_a14 VARCHAR2
383 , p2_a15 VARCHAR2
384 , p2_a16 VARCHAR2
385 , p2_a17 VARCHAR2
386 , p2_a18 VARCHAR2
387 , p2_a19 VARCHAR2
388 , p2_a20 VARCHAR2
389 , p2_a21 VARCHAR2
390 , p2_a22 VARCHAR2
391 , p2_a23 VARCHAR2
392 , p2_a24 VARCHAR2
393 , p2_a25 VARCHAR2
394 , p2_a26 VARCHAR2
395 , p2_a27 VARCHAR2
396 , p2_a28 VARCHAR2
397 , p2_a29 VARCHAR2
398 , p2_a30 VARCHAR2
399 , p2_a31 VARCHAR2
400 , p2_a32 VARCHAR2
401 , p2_a33 VARCHAR2
402 , p2_a34 VARCHAR2
403 , p2_a35 NUMBER
404 , p2_a36 NUMBER
405 , p2_a37 NUMBER
406 , p2_a38 NUMBER
407 , x_branch_id out nocopy NUMBER
408 , x_return_status out nocopy VARCHAR2
409 , x_msg_count out nocopy NUMBER
410 , x_msg_data out nocopy VARCHAR2
411 , p7_a0 out nocopy VARCHAR2
412 , p7_a1 out nocopy VARCHAR2
413 , p7_a2 out nocopy VARCHAR2
414 )
415
416 as
417 ddp_ext_bank_branch_rec iby_ext_bankacct_pub.extbankbranch_rec_type;
418 ddx_response iby_fndcpt_common_pub.result_rec_type;
419 ddindx binary_integer; indx binary_integer;
420 begin
421
422 -- copy data to the local IN or IN-OUT args, if any
423
424
425 ddp_ext_bank_branch_rec.branch_party_id := p2_a0;
426 ddp_ext_bank_branch_rec.bank_party_id := p2_a1;
427 ddp_ext_bank_branch_rec.branch_name := p2_a2;
428 ddp_ext_bank_branch_rec.branch_number := p2_a3;
429 ddp_ext_bank_branch_rec.branch_type := p2_a4;
430 ddp_ext_bank_branch_rec.alternate_branch_name := p2_a5;
431 ddp_ext_bank_branch_rec.description := p2_a6;
432 ddp_ext_bank_branch_rec.bic := p2_a7;
433 ddp_ext_bank_branch_rec.eft_number := p2_a8;
434 ddp_ext_bank_branch_rec.rfc_identifier := p2_a9;
435 ddp_ext_bank_branch_rec.attribute_category := p2_a10;
436 ddp_ext_bank_branch_rec.attribute1 := p2_a11;
437 ddp_ext_bank_branch_rec.attribute2 := p2_a12;
438 ddp_ext_bank_branch_rec.attribute3 := p2_a13;
439 ddp_ext_bank_branch_rec.attribute4 := p2_a14;
440 ddp_ext_bank_branch_rec.attribute5 := p2_a15;
441 ddp_ext_bank_branch_rec.attribute6 := p2_a16;
442 ddp_ext_bank_branch_rec.attribute7 := p2_a17;
443 ddp_ext_bank_branch_rec.attribute8 := p2_a18;
444 ddp_ext_bank_branch_rec.attribute9 := p2_a19;
445 ddp_ext_bank_branch_rec.attribute10 := p2_a20;
446 ddp_ext_bank_branch_rec.attribute11 := p2_a21;
447 ddp_ext_bank_branch_rec.attribute12 := p2_a22;
448 ddp_ext_bank_branch_rec.attribute13 := p2_a23;
449 ddp_ext_bank_branch_rec.attribute14 := p2_a24;
450 ddp_ext_bank_branch_rec.attribute15 := p2_a25;
451 ddp_ext_bank_branch_rec.attribute16 := p2_a26;
452 ddp_ext_bank_branch_rec.attribute17 := p2_a27;
453 ddp_ext_bank_branch_rec.attribute18 := p2_a28;
454 ddp_ext_bank_branch_rec.attribute19 := p2_a29;
455 ddp_ext_bank_branch_rec.attribute20 := p2_a30;
456 ddp_ext_bank_branch_rec.attribute21 := p2_a31;
457 ddp_ext_bank_branch_rec.attribute22 := p2_a32;
458 ddp_ext_bank_branch_rec.attribute23 := p2_a33;
459 ddp_ext_bank_branch_rec.attribute24 := p2_a34;
460 ddp_ext_bank_branch_rec.bch_object_version_number := p2_a35;
461 ddp_ext_bank_branch_rec.typ_object_version_number := p2_a36;
462 ddp_ext_bank_branch_rec.rfc_object_version_number := p2_a37;
463 ddp_ext_bank_branch_rec.eft_object_version_number := p2_a38;
464
465
466
467
468
469
470 -- here's the delegated call to the old PL/SQL routine
471 iby_ext_bankacct_pub.create_ext_bank_branch(p_api_version,
472 p_init_msg_list,
473 ddp_ext_bank_branch_rec,
474 x_branch_id,
475 x_return_status,
476 x_msg_count,
477 x_msg_data,
478 ddx_response);
479
480 -- copy data back from the local variables to OUT or IN-OUT args, if any
481
482
483
484
485
486
487
488 p7_a0 := ddx_response.result_code;
489 p7_a1 := ddx_response.result_category;
490 p7_a2 := ddx_response.result_message;
491 end;
492
493 procedure update_ext_bank_branch(p_api_version NUMBER
494 , p_init_msg_list VARCHAR2
495 , p2_a0 in out nocopy NUMBER
496 , p2_a1 in out nocopy NUMBER
497 , p2_a2 in out nocopy VARCHAR2
498 , p2_a3 in out nocopy VARCHAR2
499 , p2_a4 in out nocopy VARCHAR2
500 , p2_a5 in out nocopy VARCHAR2
501 , p2_a6 in out nocopy VARCHAR2
502 , p2_a7 in out nocopy VARCHAR2
503 , p2_a8 in out nocopy VARCHAR2
504 , p2_a9 in out nocopy VARCHAR2
505 , p2_a10 in out nocopy VARCHAR2
506 , p2_a11 in out nocopy VARCHAR2
507 , p2_a12 in out nocopy VARCHAR2
508 , p2_a13 in out nocopy VARCHAR2
509 , p2_a14 in out nocopy VARCHAR2
510 , p2_a15 in out nocopy VARCHAR2
511 , p2_a16 in out nocopy VARCHAR2
512 , p2_a17 in out nocopy VARCHAR2
513 , p2_a18 in out nocopy VARCHAR2
514 , p2_a19 in out nocopy VARCHAR2
515 , p2_a20 in out nocopy VARCHAR2
516 , p2_a21 in out nocopy VARCHAR2
517 , p2_a22 in out nocopy VARCHAR2
518 , p2_a23 in out nocopy VARCHAR2
519 , p2_a24 in out nocopy VARCHAR2
520 , p2_a25 in out nocopy VARCHAR2
521 , p2_a26 in out nocopy VARCHAR2
522 , p2_a27 in out nocopy VARCHAR2
523 , p2_a28 in out nocopy VARCHAR2
524 , p2_a29 in out nocopy VARCHAR2
525 , p2_a30 in out nocopy VARCHAR2
526 , p2_a31 in out nocopy VARCHAR2
527 , p2_a32 in out nocopy VARCHAR2
528 , p2_a33 in out nocopy VARCHAR2
529 , p2_a34 in out nocopy VARCHAR2
530 , p2_a35 in out nocopy NUMBER
531 , p2_a36 in out nocopy NUMBER
532 , p2_a37 in out nocopy NUMBER
533 , p2_a38 in out nocopy NUMBER
534 , x_return_status out nocopy VARCHAR2
535 , x_msg_count out nocopy NUMBER
536 , x_msg_data out nocopy VARCHAR2
537 , p6_a0 out nocopy VARCHAR2
538 , p6_a1 out nocopy VARCHAR2
539 , p6_a2 out nocopy VARCHAR2
540 )
541
542 as
543 ddp_ext_bank_branch_rec iby_ext_bankacct_pub.extbankbranch_rec_type;
544 ddx_response iby_fndcpt_common_pub.result_rec_type;
545 ddindx binary_integer; indx binary_integer;
546 begin
547
548 -- copy data to the local IN or IN-OUT args, if any
549
550
551 ddp_ext_bank_branch_rec.branch_party_id := p2_a0;
552 ddp_ext_bank_branch_rec.bank_party_id := p2_a1;
553 ddp_ext_bank_branch_rec.branch_name := p2_a2;
554 ddp_ext_bank_branch_rec.branch_number := p2_a3;
555 ddp_ext_bank_branch_rec.branch_type := p2_a4;
556 ddp_ext_bank_branch_rec.alternate_branch_name := p2_a5;
557 ddp_ext_bank_branch_rec.description := p2_a6;
558 ddp_ext_bank_branch_rec.bic := p2_a7;
559 ddp_ext_bank_branch_rec.eft_number := p2_a8;
560 ddp_ext_bank_branch_rec.rfc_identifier := p2_a9;
561 ddp_ext_bank_branch_rec.attribute_category := p2_a10;
562 ddp_ext_bank_branch_rec.attribute1 := p2_a11;
563 ddp_ext_bank_branch_rec.attribute2 := p2_a12;
564 ddp_ext_bank_branch_rec.attribute3 := p2_a13;
565 ddp_ext_bank_branch_rec.attribute4 := p2_a14;
566 ddp_ext_bank_branch_rec.attribute5 := p2_a15;
567 ddp_ext_bank_branch_rec.attribute6 := p2_a16;
568 ddp_ext_bank_branch_rec.attribute7 := p2_a17;
569 ddp_ext_bank_branch_rec.attribute8 := p2_a18;
570 ddp_ext_bank_branch_rec.attribute9 := p2_a19;
571 ddp_ext_bank_branch_rec.attribute10 := p2_a20;
572 ddp_ext_bank_branch_rec.attribute11 := p2_a21;
573 ddp_ext_bank_branch_rec.attribute12 := p2_a22;
574 ddp_ext_bank_branch_rec.attribute13 := p2_a23;
575 ddp_ext_bank_branch_rec.attribute14 := p2_a24;
576 ddp_ext_bank_branch_rec.attribute15 := p2_a25;
577 ddp_ext_bank_branch_rec.attribute16 := p2_a26;
578 ddp_ext_bank_branch_rec.attribute17 := p2_a27;
579 ddp_ext_bank_branch_rec.attribute18 := p2_a28;
580 ddp_ext_bank_branch_rec.attribute19 := p2_a29;
581 ddp_ext_bank_branch_rec.attribute20 := p2_a30;
582 ddp_ext_bank_branch_rec.attribute21 := p2_a31;
583 ddp_ext_bank_branch_rec.attribute22 := p2_a32;
584 ddp_ext_bank_branch_rec.attribute23 := p2_a33;
585 ddp_ext_bank_branch_rec.attribute24 := p2_a34;
586 ddp_ext_bank_branch_rec.bch_object_version_number := p2_a35;
587 ddp_ext_bank_branch_rec.typ_object_version_number := p2_a36;
588 ddp_ext_bank_branch_rec.rfc_object_version_number := p2_a37;
589 ddp_ext_bank_branch_rec.eft_object_version_number := p2_a38;
590
591
592
593
594
595 -- here's the delegated call to the old PL/SQL routine
596 iby_ext_bankacct_pub.update_ext_bank_branch(p_api_version,
597 p_init_msg_list,
598 ddp_ext_bank_branch_rec,
599 x_return_status,
600 x_msg_count,
601 x_msg_data,
602 ddx_response);
603
604 -- copy data back from the local variables to OUT or IN-OUT args, if any
605
606
607 p2_a0 := ddp_ext_bank_branch_rec.branch_party_id;
608 p2_a1 := ddp_ext_bank_branch_rec.bank_party_id;
609 p2_a2 := ddp_ext_bank_branch_rec.branch_name;
610 p2_a3 := ddp_ext_bank_branch_rec.branch_number;
611 p2_a4 := ddp_ext_bank_branch_rec.branch_type;
612 p2_a5 := ddp_ext_bank_branch_rec.alternate_branch_name;
613 p2_a6 := ddp_ext_bank_branch_rec.description;
614 p2_a7 := ddp_ext_bank_branch_rec.bic;
615 p2_a8 := ddp_ext_bank_branch_rec.eft_number;
616 p2_a9 := ddp_ext_bank_branch_rec.rfc_identifier;
617 p2_a10 := ddp_ext_bank_branch_rec.attribute_category;
618 p2_a11 := ddp_ext_bank_branch_rec.attribute1;
619 p2_a12 := ddp_ext_bank_branch_rec.attribute2;
620 p2_a13 := ddp_ext_bank_branch_rec.attribute3;
621 p2_a14 := ddp_ext_bank_branch_rec.attribute4;
622 p2_a15 := ddp_ext_bank_branch_rec.attribute5;
623 p2_a16 := ddp_ext_bank_branch_rec.attribute6;
624 p2_a17 := ddp_ext_bank_branch_rec.attribute7;
625 p2_a18 := ddp_ext_bank_branch_rec.attribute8;
626 p2_a19 := ddp_ext_bank_branch_rec.attribute9;
627 p2_a20 := ddp_ext_bank_branch_rec.attribute10;
628 p2_a21 := ddp_ext_bank_branch_rec.attribute11;
629 p2_a22 := ddp_ext_bank_branch_rec.attribute12;
630 p2_a23 := ddp_ext_bank_branch_rec.attribute13;
631 p2_a24 := ddp_ext_bank_branch_rec.attribute14;
632 p2_a25 := ddp_ext_bank_branch_rec.attribute15;
633 p2_a26 := ddp_ext_bank_branch_rec.attribute16;
634 p2_a27 := ddp_ext_bank_branch_rec.attribute17;
635 p2_a28 := ddp_ext_bank_branch_rec.attribute18;
636 p2_a29 := ddp_ext_bank_branch_rec.attribute19;
637 p2_a30 := ddp_ext_bank_branch_rec.attribute20;
638 p2_a31 := ddp_ext_bank_branch_rec.attribute21;
639 p2_a32 := ddp_ext_bank_branch_rec.attribute22;
640 p2_a33 := ddp_ext_bank_branch_rec.attribute23;
641 p2_a34 := ddp_ext_bank_branch_rec.attribute24;
642 p2_a35 := ddp_ext_bank_branch_rec.bch_object_version_number;
643 p2_a36 := ddp_ext_bank_branch_rec.typ_object_version_number;
644 p2_a37 := ddp_ext_bank_branch_rec.rfc_object_version_number;
645 p2_a38 := ddp_ext_bank_branch_rec.eft_object_version_number;
646
647
648
649
650 p6_a0 := ddx_response.result_code;
651 p6_a1 := ddx_response.result_category;
652 p6_a2 := ddx_response.result_message;
653 end;
654
655 procedure set_ext_bank_branch_end_date(p_api_version NUMBER
656 , p_init_msg_list VARCHAR2
657 , p_branch_id NUMBER
658 , p_end_date date
659 , x_return_status out nocopy VARCHAR2
660 , x_msg_count out nocopy NUMBER
661 , x_msg_data out nocopy VARCHAR2
662 , p7_a0 out nocopy VARCHAR2
663 , p7_a1 out nocopy VARCHAR2
664 , p7_a2 out nocopy VARCHAR2
665 )
666
667 as
668 ddp_end_date date;
669 ddx_response iby_fndcpt_common_pub.result_rec_type;
670 ddindx binary_integer; indx binary_integer;
671 begin
672
673 -- copy data to the local IN or IN-OUT args, if any
674
675
676
677 ddp_end_date := rosetta_g_miss_date_in_map(p_end_date);
678
679
680
681
682
683 -- here's the delegated call to the old PL/SQL routine
684 iby_ext_bankacct_pub.set_ext_bank_branch_end_date(p_api_version,
685 p_init_msg_list,
686 p_branch_id,
687 ddp_end_date,
688 x_return_status,
689 x_msg_count,
690 x_msg_data,
691 ddx_response);
692
693 -- copy data back from the local variables to OUT or IN-OUT args, if any
694
695
696
697
698
699
700
701 p7_a0 := ddx_response.result_code;
702 p7_a1 := ddx_response.result_category;
703 p7_a2 := ddx_response.result_message;
704 end;
705
706 procedure check_ext_bank_branch_exist(p_api_version NUMBER
707 , p_init_msg_list VARCHAR2
708 , p_bank_id NUMBER
709 , p_branch_name VARCHAR2
710 , p_branch_number VARCHAR2
711 , x_return_status out nocopy VARCHAR2
712 , x_msg_count out nocopy NUMBER
713 , x_msg_data out nocopy VARCHAR2
714 , x_branch_id out nocopy NUMBER
715 , x_end_date out nocopy DATE
716 , p10_a0 out nocopy VARCHAR2
717 , p10_a1 out nocopy VARCHAR2
718 , p10_a2 out nocopy VARCHAR2
719 )
720
721 as
722 ddx_response iby_fndcpt_common_pub.result_rec_type;
723 ddindx binary_integer; indx binary_integer;
724 begin
725
726 -- copy data to the local IN or IN-OUT args, if any
727
728
729
730
731
732
733
734
735
736
737
738 -- here's the delegated call to the old PL/SQL routine
739 iby_ext_bankacct_pub.check_ext_bank_branch_exist(p_api_version,
740 p_init_msg_list,
741 p_bank_id,
742 p_branch_name,
743 p_branch_number,
744 x_return_status,
745 x_msg_count,
746 x_msg_data,
747 x_branch_id,
748 x_end_date,
749 ddx_response);
750
751 -- copy data back from the local variables to OUT or IN-OUT args, if any
752
753
754
755
756
757
758
759
760
761
762 p10_a0 := ddx_response.result_code;
763 p10_a1 := ddx_response.result_category;
764 p10_a2 := ddx_response.result_message;
765 end;
766
767 procedure create_ext_bank_acct(p_api_version NUMBER
768 , p_init_msg_list VARCHAR2
769 , p2_a0 NUMBER
770 , p2_a1 VARCHAR2
771 , p2_a2 NUMBER
772 , p2_a3 NUMBER
773 , p2_a4 NUMBER
774 , p2_a5 VARCHAR2
775 , p2_a6 VARCHAR2
776 , p2_a7 VARCHAR2
777 , p2_a8 VARCHAR2
778 , p2_a9 VARCHAR2
779 , p2_a10 VARCHAR2
780 , p2_a11 VARCHAR2
781 , p2_a12 VARCHAR2
782 , p2_a13 VARCHAR2
783 , p2_a14 VARCHAR2
784 , p2_a15 VARCHAR2
785 , p2_a16 VARCHAR2
786 , p2_a17 VARCHAR2
787 , p2_a18 VARCHAR2
788 , p2_a19 VARCHAR2
789 , p2_a20 NUMBER
790 , p2_a21 VARCHAR2
791 , p2_a22 VARCHAR2
792 , p2_a23 DATE
793 , p2_a24 DATE
794 , p2_a25 VARCHAR2
795 , p2_a26 VARCHAR2
796 , p2_a27 VARCHAR2
797 , p2_a28 VARCHAR2
798 , p2_a29 VARCHAR2
799 , p2_a30 VARCHAR2
800 , p2_a31 VARCHAR2
801 , p2_a32 VARCHAR2
802 , p2_a33 VARCHAR2
803 , p2_a34 VARCHAR2
804 , p2_a35 VARCHAR2
805 , p2_a36 VARCHAR2
806 , p2_a37 VARCHAR2
807 , p2_a38 VARCHAR2
808 , p2_a39 VARCHAR2
809 , p2_a40 VARCHAR2
810 , p2_a41 VARCHAR2
811 , p2_a42 NUMBER
812 , p2_a43 VARCHAR2
813 , p2_a44 VARCHAR2
814 , p2_a45 VARCHAR2
815 , p2_a46 VARCHAR2
816 , p2_a47 VARCHAR2
817 , x_acct_id out nocopy NUMBER
818 , x_return_status out nocopy VARCHAR2
819 , x_msg_count out nocopy NUMBER
820 , x_msg_data out nocopy VARCHAR2
821 , p7_a0 out nocopy VARCHAR2
822 , p7_a1 out nocopy VARCHAR2
823 , p7_a2 out nocopy VARCHAR2
824 )
825
826 as
827 ddp_ext_bank_acct_rec iby_ext_bankacct_pub.extbankacct_rec_type;
828 ddx_response iby_fndcpt_common_pub.result_rec_type;
829 ddindx binary_integer; indx binary_integer;
830 begin
831
832 -- copy data to the local IN or IN-OUT args, if any
833
834
835 ddp_ext_bank_acct_rec.bank_account_id := p2_a0;
836 ddp_ext_bank_acct_rec.country_code := p2_a1;
837 ddp_ext_bank_acct_rec.branch_id := p2_a2;
838 ddp_ext_bank_acct_rec.bank_id := p2_a3;
839 ddp_ext_bank_acct_rec.acct_owner_party_id := p2_a4;
840 ddp_ext_bank_acct_rec.bank_account_name := p2_a5;
841 ddp_ext_bank_acct_rec.bank_account_num := p2_a6;
842 ddp_ext_bank_acct_rec.currency := p2_a7;
843 ddp_ext_bank_acct_rec.iban := p2_a8;
844 ddp_ext_bank_acct_rec.check_digits := p2_a9;
845 ddp_ext_bank_acct_rec.multi_currency_allowed_flag := p2_a10;
846 ddp_ext_bank_acct_rec.alternate_acct_name := p2_a11;
847 ddp_ext_bank_acct_rec.short_acct_name := p2_a12;
848 ddp_ext_bank_acct_rec.acct_type := p2_a13;
849 ddp_ext_bank_acct_rec.acct_suffix := p2_a14;
850 ddp_ext_bank_acct_rec.description := p2_a15;
851 ddp_ext_bank_acct_rec.agency_location_code := p2_a16;
852 ddp_ext_bank_acct_rec.foreign_payment_use_flag := p2_a17;
853 ddp_ext_bank_acct_rec.exchange_rate_agreement_num := p2_a18;
854 ddp_ext_bank_acct_rec.exchange_rate_agreement_type := p2_a19;
855 ddp_ext_bank_acct_rec.exchange_rate := p2_a20;
856 ddp_ext_bank_acct_rec.payment_factor_flag := p2_a21;
857 ddp_ext_bank_acct_rec.status := p2_a22;
858 ddp_ext_bank_acct_rec.end_date := rosetta_g_miss_date_in_map(p2_a23);
859 ddp_ext_bank_acct_rec.start_date := rosetta_g_miss_date_in_map(p2_a24);
860 ddp_ext_bank_acct_rec.hedging_contract_reference := p2_a25;
861 ddp_ext_bank_acct_rec.attribute_category := p2_a26;
862 ddp_ext_bank_acct_rec.attribute1 := p2_a27;
863 ddp_ext_bank_acct_rec.attribute2 := p2_a28;
864 ddp_ext_bank_acct_rec.attribute3 := p2_a29;
865 ddp_ext_bank_acct_rec.attribute4 := p2_a30;
866 ddp_ext_bank_acct_rec.attribute5 := p2_a31;
867 ddp_ext_bank_acct_rec.attribute6 := p2_a32;
868 ddp_ext_bank_acct_rec.attribute7 := p2_a33;
869 ddp_ext_bank_acct_rec.attribute8 := p2_a34;
870 ddp_ext_bank_acct_rec.attribute9 := p2_a35;
871 ddp_ext_bank_acct_rec.attribute10 := p2_a36;
872 ddp_ext_bank_acct_rec.attribute11 := p2_a37;
873 ddp_ext_bank_acct_rec.attribute12 := p2_a38;
874 ddp_ext_bank_acct_rec.attribute13 := p2_a39;
875 ddp_ext_bank_acct_rec.attribute14 := p2_a40;
876 ddp_ext_bank_acct_rec.attribute15 := p2_a41;
877 ddp_ext_bank_acct_rec.object_version_number := p2_a42;
878 ddp_ext_bank_acct_rec.secondary_account_reference := p2_a43;
879 ddp_ext_bank_acct_rec.contact_name := p2_a44;
880 ddp_ext_bank_acct_rec.contact_phone := p2_a45;
881 ddp_ext_bank_acct_rec.contact_email := p2_a46;
882 ddp_ext_bank_acct_rec.contact_fax := p2_a47;
883
884
885
886
887
888
889 -- here's the delegated call to the old PL/SQL routine
890 iby_ext_bankacct_pub.create_ext_bank_acct(p_api_version,
891 p_init_msg_list,
892 ddp_ext_bank_acct_rec,
893 x_acct_id,
894 x_return_status,
895 x_msg_count,
896 x_msg_data,
897 ddx_response);
898
899 -- copy data back from the local variables to OUT or IN-OUT args, if any
900
901
902
903
904
905
906
907 p7_a0 := ddx_response.result_code;
908 p7_a1 := ddx_response.result_category;
909 p7_a2 := ddx_response.result_message;
910 end;
911
912 procedure create_ext_bank_acct(p_api_version NUMBER
913 , p_init_msg_list VARCHAR2
914 , p2_a0 NUMBER
915 , p2_a1 VARCHAR2
916 , p2_a2 NUMBER
917 , p2_a3 NUMBER
918 , p2_a4 NUMBER
919 , p2_a5 VARCHAR2
920 , p2_a6 VARCHAR2
921 , p2_a7 VARCHAR2
922 , p2_a8 VARCHAR2
923 , p2_a9 VARCHAR2
924 , p2_a10 VARCHAR2
925 , p2_a11 VARCHAR2
926 , p2_a12 VARCHAR2
927 , p2_a13 VARCHAR2
928 , p2_a14 VARCHAR2
929 , p2_a15 VARCHAR2
930 , p2_a16 VARCHAR2
931 , p2_a17 VARCHAR2
932 , p2_a18 VARCHAR2
933 , p2_a19 VARCHAR2
934 , p2_a20 NUMBER
935 , p2_a21 VARCHAR2
936 , p2_a22 VARCHAR2
937 , p2_a23 DATE
938 , p2_a24 DATE
939 , p2_a25 VARCHAR2
940 , p2_a26 VARCHAR2
941 , p2_a27 VARCHAR2
942 , p2_a28 VARCHAR2
943 , p2_a29 VARCHAR2
944 , p2_a30 VARCHAR2
945 , p2_a31 VARCHAR2
946 , p2_a32 VARCHAR2
947 , p2_a33 VARCHAR2
948 , p2_a34 VARCHAR2
949 , p2_a35 VARCHAR2
950 , p2_a36 VARCHAR2
951 , p2_a37 VARCHAR2
952 , p2_a38 VARCHAR2
953 , p2_a39 VARCHAR2
954 , p2_a40 VARCHAR2
955 , p2_a41 VARCHAR2
956 , p2_a42 NUMBER
957 , p2_a43 VARCHAR2
958 , p2_a44 VARCHAR2
959 , p2_a45 VARCHAR2
960 , p2_a46 VARCHAR2
961 , p2_a47 VARCHAR2
962 , p_association_level VARCHAR2
963 , p_supplier_site_id NUMBER
964 , p_party_site_id NUMBER
965 , p_org_id NUMBER
966 , p_org_type VARCHAR2
967 , x_acct_id out nocopy NUMBER
968 , x_return_status out nocopy VARCHAR2
969 , x_msg_count out nocopy NUMBER
970 , x_msg_data out nocopy VARCHAR2
971 , p12_a0 out nocopy VARCHAR2
972 , p12_a1 out nocopy VARCHAR2
973 , p12_a2 out nocopy VARCHAR2
974 )
975
976 as
977 ddp_ext_bank_acct_rec iby_ext_bankacct_pub.extbankacct_rec_type;
978 ddx_response iby_fndcpt_common_pub.result_rec_type;
979 ddindx binary_integer; indx binary_integer;
980 begin
981
982 -- copy data to the local IN or IN-OUT args, if any
983
984
985 ddp_ext_bank_acct_rec.bank_account_id := p2_a0;
986 ddp_ext_bank_acct_rec.country_code := p2_a1;
987 ddp_ext_bank_acct_rec.branch_id := p2_a2;
988 ddp_ext_bank_acct_rec.bank_id := p2_a3;
989 ddp_ext_bank_acct_rec.acct_owner_party_id := p2_a4;
990 ddp_ext_bank_acct_rec.bank_account_name := p2_a5;
991 ddp_ext_bank_acct_rec.bank_account_num := p2_a6;
992 ddp_ext_bank_acct_rec.currency := p2_a7;
993 ddp_ext_bank_acct_rec.iban := p2_a8;
994 ddp_ext_bank_acct_rec.check_digits := p2_a9;
995 ddp_ext_bank_acct_rec.multi_currency_allowed_flag := p2_a10;
996 ddp_ext_bank_acct_rec.alternate_acct_name := p2_a11;
997 ddp_ext_bank_acct_rec.short_acct_name := p2_a12;
998 ddp_ext_bank_acct_rec.acct_type := p2_a13;
999 ddp_ext_bank_acct_rec.acct_suffix := p2_a14;
1000 ddp_ext_bank_acct_rec.description := p2_a15;
1001 ddp_ext_bank_acct_rec.agency_location_code := p2_a16;
1002 ddp_ext_bank_acct_rec.foreign_payment_use_flag := p2_a17;
1003 ddp_ext_bank_acct_rec.exchange_rate_agreement_num := p2_a18;
1004 ddp_ext_bank_acct_rec.exchange_rate_agreement_type := p2_a19;
1005 ddp_ext_bank_acct_rec.exchange_rate := p2_a20;
1006 ddp_ext_bank_acct_rec.payment_factor_flag := p2_a21;
1007 ddp_ext_bank_acct_rec.status := p2_a22;
1008 ddp_ext_bank_acct_rec.end_date := rosetta_g_miss_date_in_map(p2_a23);
1009 ddp_ext_bank_acct_rec.start_date := rosetta_g_miss_date_in_map(p2_a24);
1010 ddp_ext_bank_acct_rec.hedging_contract_reference := p2_a25;
1011 ddp_ext_bank_acct_rec.attribute_category := p2_a26;
1012 ddp_ext_bank_acct_rec.attribute1 := p2_a27;
1013 ddp_ext_bank_acct_rec.attribute2 := p2_a28;
1014 ddp_ext_bank_acct_rec.attribute3 := p2_a29;
1015 ddp_ext_bank_acct_rec.attribute4 := p2_a30;
1016 ddp_ext_bank_acct_rec.attribute5 := p2_a31;
1017 ddp_ext_bank_acct_rec.attribute6 := p2_a32;
1018 ddp_ext_bank_acct_rec.attribute7 := p2_a33;
1019 ddp_ext_bank_acct_rec.attribute8 := p2_a34;
1020 ddp_ext_bank_acct_rec.attribute9 := p2_a35;
1021 ddp_ext_bank_acct_rec.attribute10 := p2_a36;
1022 ddp_ext_bank_acct_rec.attribute11 := p2_a37;
1023 ddp_ext_bank_acct_rec.attribute12 := p2_a38;
1024 ddp_ext_bank_acct_rec.attribute13 := p2_a39;
1025 ddp_ext_bank_acct_rec.attribute14 := p2_a40;
1026 ddp_ext_bank_acct_rec.attribute15 := p2_a41;
1027 ddp_ext_bank_acct_rec.object_version_number := p2_a42;
1028 ddp_ext_bank_acct_rec.secondary_account_reference := p2_a43;
1029 ddp_ext_bank_acct_rec.contact_name := p2_a44;
1030 ddp_ext_bank_acct_rec.contact_phone := p2_a45;
1031 ddp_ext_bank_acct_rec.contact_email := p2_a46;
1032 ddp_ext_bank_acct_rec.contact_fax := p2_a47;
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044 -- here's the delegated call to the old PL/SQL routine
1045 iby_ext_bankacct_pub.create_ext_bank_acct(p_api_version,
1046 p_init_msg_list,
1047 ddp_ext_bank_acct_rec,
1048 p_association_level,
1049 p_supplier_site_id,
1050 p_party_site_id,
1051 p_org_id,
1052 p_org_type,
1053 x_acct_id,
1054 x_return_status,
1055 x_msg_count,
1056 x_msg_data,
1057 ddx_response);
1058
1059 -- copy data back from the local variables to OUT or IN-OUT args, if any
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072 p12_a0 := ddx_response.result_code;
1073 p12_a1 := ddx_response.result_category;
1074 p12_a2 := ddx_response.result_message;
1075 end;
1076
1077 procedure update_ext_bank_acct(p_api_version NUMBER
1078 , p_init_msg_list VARCHAR2
1079 , p2_a0 in out nocopy NUMBER
1080 , p2_a1 in out nocopy VARCHAR2
1081 , p2_a2 in out nocopy NUMBER
1082 , p2_a3 in out nocopy NUMBER
1083 , p2_a4 in out nocopy NUMBER
1084 , p2_a5 in out nocopy VARCHAR2
1085 , p2_a6 in out nocopy VARCHAR2
1086 , p2_a7 in out nocopy VARCHAR2
1087 , p2_a8 in out nocopy VARCHAR2
1088 , p2_a9 in out nocopy VARCHAR2
1089 , p2_a10 in out nocopy VARCHAR2
1090 , p2_a11 in out nocopy VARCHAR2
1091 , p2_a12 in out nocopy VARCHAR2
1092 , p2_a13 in out nocopy VARCHAR2
1093 , p2_a14 in out nocopy VARCHAR2
1094 , p2_a15 in out nocopy VARCHAR2
1095 , p2_a16 in out nocopy VARCHAR2
1096 , p2_a17 in out nocopy VARCHAR2
1097 , p2_a18 in out nocopy VARCHAR2
1098 , p2_a19 in out nocopy VARCHAR2
1099 , p2_a20 in out nocopy NUMBER
1100 , p2_a21 in out nocopy VARCHAR2
1101 , p2_a22 in out nocopy VARCHAR2
1102 , p2_a23 in out nocopy DATE
1103 , p2_a24 in out nocopy DATE
1104 , p2_a25 in out nocopy VARCHAR2
1105 , p2_a26 in out nocopy VARCHAR2
1106 , p2_a27 in out nocopy VARCHAR2
1107 , p2_a28 in out nocopy VARCHAR2
1108 , p2_a29 in out nocopy VARCHAR2
1109 , p2_a30 in out nocopy VARCHAR2
1110 , p2_a31 in out nocopy VARCHAR2
1111 , p2_a32 in out nocopy VARCHAR2
1112 , p2_a33 in out nocopy VARCHAR2
1113 , p2_a34 in out nocopy VARCHAR2
1114 , p2_a35 in out nocopy VARCHAR2
1115 , p2_a36 in out nocopy VARCHAR2
1116 , p2_a37 in out nocopy VARCHAR2
1117 , p2_a38 in out nocopy VARCHAR2
1118 , p2_a39 in out nocopy VARCHAR2
1119 , p2_a40 in out nocopy VARCHAR2
1120 , p2_a41 in out nocopy VARCHAR2
1121 , p2_a42 in out nocopy NUMBER
1122 , p2_a43 in out nocopy VARCHAR2
1123 , p2_a44 in out nocopy VARCHAR2
1124 , p2_a45 in out nocopy VARCHAR2
1125 , p2_a46 in out nocopy VARCHAR2
1126 , p2_a47 in out nocopy VARCHAR2
1127 , x_return_status out nocopy VARCHAR2
1128 , x_msg_count out nocopy NUMBER
1129 , x_msg_data out nocopy VARCHAR2
1130 , p6_a0 out nocopy VARCHAR2
1131 , p6_a1 out nocopy VARCHAR2
1132 , p6_a2 out nocopy VARCHAR2
1133 )
1134
1135 as
1136 ddp_ext_bank_acct_rec iby_ext_bankacct_pub.extbankacct_rec_type;
1137 ddx_response iby_fndcpt_common_pub.result_rec_type;
1138 ddindx binary_integer; indx binary_integer;
1139 begin
1140
1141 -- copy data to the local IN or IN-OUT args, if any
1142
1143
1144 ddp_ext_bank_acct_rec.bank_account_id := p2_a0;
1145 ddp_ext_bank_acct_rec.country_code := p2_a1;
1146 ddp_ext_bank_acct_rec.branch_id := p2_a2;
1147 ddp_ext_bank_acct_rec.bank_id := p2_a3;
1148 ddp_ext_bank_acct_rec.acct_owner_party_id := p2_a4;
1149 ddp_ext_bank_acct_rec.bank_account_name := p2_a5;
1150 ddp_ext_bank_acct_rec.bank_account_num := p2_a6;
1151 ddp_ext_bank_acct_rec.currency := p2_a7;
1152 ddp_ext_bank_acct_rec.iban := p2_a8;
1153 ddp_ext_bank_acct_rec.check_digits := p2_a9;
1154 ddp_ext_bank_acct_rec.multi_currency_allowed_flag := p2_a10;
1155 ddp_ext_bank_acct_rec.alternate_acct_name := p2_a11;
1156 ddp_ext_bank_acct_rec.short_acct_name := p2_a12;
1157 ddp_ext_bank_acct_rec.acct_type := p2_a13;
1158 ddp_ext_bank_acct_rec.acct_suffix := p2_a14;
1159 ddp_ext_bank_acct_rec.description := p2_a15;
1160 ddp_ext_bank_acct_rec.agency_location_code := p2_a16;
1161 ddp_ext_bank_acct_rec.foreign_payment_use_flag := p2_a17;
1162 ddp_ext_bank_acct_rec.exchange_rate_agreement_num := p2_a18;
1163 ddp_ext_bank_acct_rec.exchange_rate_agreement_type := p2_a19;
1164 ddp_ext_bank_acct_rec.exchange_rate := p2_a20;
1165 ddp_ext_bank_acct_rec.payment_factor_flag := p2_a21;
1166 ddp_ext_bank_acct_rec.status := p2_a22;
1167 ddp_ext_bank_acct_rec.end_date := rosetta_g_miss_date_in_map(p2_a23);
1168 ddp_ext_bank_acct_rec.start_date := rosetta_g_miss_date_in_map(p2_a24);
1169 ddp_ext_bank_acct_rec.hedging_contract_reference := p2_a25;
1170 ddp_ext_bank_acct_rec.attribute_category := p2_a26;
1171 ddp_ext_bank_acct_rec.attribute1 := p2_a27;
1172 ddp_ext_bank_acct_rec.attribute2 := p2_a28;
1173 ddp_ext_bank_acct_rec.attribute3 := p2_a29;
1174 ddp_ext_bank_acct_rec.attribute4 := p2_a30;
1175 ddp_ext_bank_acct_rec.attribute5 := p2_a31;
1176 ddp_ext_bank_acct_rec.attribute6 := p2_a32;
1177 ddp_ext_bank_acct_rec.attribute7 := p2_a33;
1178 ddp_ext_bank_acct_rec.attribute8 := p2_a34;
1179 ddp_ext_bank_acct_rec.attribute9 := p2_a35;
1180 ddp_ext_bank_acct_rec.attribute10 := p2_a36;
1181 ddp_ext_bank_acct_rec.attribute11 := p2_a37;
1182 ddp_ext_bank_acct_rec.attribute12 := p2_a38;
1183 ddp_ext_bank_acct_rec.attribute13 := p2_a39;
1184 ddp_ext_bank_acct_rec.attribute14 := p2_a40;
1185 ddp_ext_bank_acct_rec.attribute15 := p2_a41;
1186 ddp_ext_bank_acct_rec.object_version_number := p2_a42;
1187 ddp_ext_bank_acct_rec.secondary_account_reference := p2_a43;
1188 ddp_ext_bank_acct_rec.contact_name := p2_a44;
1189 ddp_ext_bank_acct_rec.contact_phone := p2_a45;
1190 ddp_ext_bank_acct_rec.contact_email := p2_a46;
1191 ddp_ext_bank_acct_rec.contact_fax := p2_a47;
1192
1193
1194
1195
1196
1197 -- here's the delegated call to the old PL/SQL routine
1198 iby_ext_bankacct_pub.update_ext_bank_acct(p_api_version,
1199 p_init_msg_list,
1200 ddp_ext_bank_acct_rec,
1201 x_return_status,
1202 x_msg_count,
1203 x_msg_data,
1204 ddx_response);
1205
1206 -- copy data back from the local variables to OUT or IN-OUT args, if any
1207
1208
1209 p2_a0 := ddp_ext_bank_acct_rec.bank_account_id;
1210 p2_a1 := ddp_ext_bank_acct_rec.country_code;
1211 p2_a2 := ddp_ext_bank_acct_rec.branch_id;
1212 p2_a3 := ddp_ext_bank_acct_rec.bank_id;
1213 p2_a4 := ddp_ext_bank_acct_rec.acct_owner_party_id;
1214 p2_a5 := ddp_ext_bank_acct_rec.bank_account_name;
1215 p2_a6 := ddp_ext_bank_acct_rec.bank_account_num;
1216 p2_a7 := ddp_ext_bank_acct_rec.currency;
1217 p2_a8 := ddp_ext_bank_acct_rec.iban;
1218 p2_a9 := ddp_ext_bank_acct_rec.check_digits;
1219 p2_a10 := ddp_ext_bank_acct_rec.multi_currency_allowed_flag;
1220 p2_a11 := ddp_ext_bank_acct_rec.alternate_acct_name;
1221 p2_a12 := ddp_ext_bank_acct_rec.short_acct_name;
1222 p2_a13 := ddp_ext_bank_acct_rec.acct_type;
1223 p2_a14 := ddp_ext_bank_acct_rec.acct_suffix;
1224 p2_a15 := ddp_ext_bank_acct_rec.description;
1225 p2_a16 := ddp_ext_bank_acct_rec.agency_location_code;
1226 p2_a17 := ddp_ext_bank_acct_rec.foreign_payment_use_flag;
1227 p2_a18 := ddp_ext_bank_acct_rec.exchange_rate_agreement_num;
1228 p2_a19 := ddp_ext_bank_acct_rec.exchange_rate_agreement_type;
1229 p2_a20 := ddp_ext_bank_acct_rec.exchange_rate;
1230 p2_a21 := ddp_ext_bank_acct_rec.payment_factor_flag;
1231 p2_a22 := ddp_ext_bank_acct_rec.status;
1232 p2_a23 := ddp_ext_bank_acct_rec.end_date;
1233 p2_a24 := ddp_ext_bank_acct_rec.start_date;
1234 p2_a25 := ddp_ext_bank_acct_rec.hedging_contract_reference;
1235 p2_a26 := ddp_ext_bank_acct_rec.attribute_category;
1236 p2_a27 := ddp_ext_bank_acct_rec.attribute1;
1237 p2_a28 := ddp_ext_bank_acct_rec.attribute2;
1238 p2_a29 := ddp_ext_bank_acct_rec.attribute3;
1239 p2_a30 := ddp_ext_bank_acct_rec.attribute4;
1240 p2_a31 := ddp_ext_bank_acct_rec.attribute5;
1241 p2_a32 := ddp_ext_bank_acct_rec.attribute6;
1242 p2_a33 := ddp_ext_bank_acct_rec.attribute7;
1243 p2_a34 := ddp_ext_bank_acct_rec.attribute8;
1244 p2_a35 := ddp_ext_bank_acct_rec.attribute9;
1245 p2_a36 := ddp_ext_bank_acct_rec.attribute10;
1246 p2_a37 := ddp_ext_bank_acct_rec.attribute11;
1247 p2_a38 := ddp_ext_bank_acct_rec.attribute12;
1248 p2_a39 := ddp_ext_bank_acct_rec.attribute13;
1249 p2_a40 := ddp_ext_bank_acct_rec.attribute14;
1250 p2_a41 := ddp_ext_bank_acct_rec.attribute15;
1251 p2_a42 := ddp_ext_bank_acct_rec.object_version_number;
1252 p2_a43 := ddp_ext_bank_acct_rec.secondary_account_reference;
1253 p2_a44 := ddp_ext_bank_acct_rec.contact_name;
1254 p2_a45 := ddp_ext_bank_acct_rec.contact_phone;
1255 p2_a46 := ddp_ext_bank_acct_rec.contact_email;
1256 p2_a47 := ddp_ext_bank_acct_rec.contact_fax;
1257
1258
1259
1260
1261 p6_a0 := ddx_response.result_code;
1262 p6_a1 := ddx_response.result_category;
1263 p6_a2 := ddx_response.result_message;
1264 end;
1265
1266 procedure get_ext_bank_acct(p_api_version NUMBER
1267 , p_init_msg_list VARCHAR2
1268 , p_bankacct_id NUMBER
1269 , x_return_status out nocopy VARCHAR2
1270 , x_msg_count out nocopy NUMBER
1271 , x_msg_data out nocopy VARCHAR2
1272 , p6_a0 out nocopy NUMBER
1273 , p6_a1 out nocopy VARCHAR2
1274 , p6_a2 out nocopy NUMBER
1275 , p6_a3 out nocopy NUMBER
1276 , p6_a4 out nocopy NUMBER
1277 , p6_a5 out nocopy VARCHAR2
1278 , p6_a6 out nocopy VARCHAR2
1279 , p6_a7 out nocopy VARCHAR2
1280 , p6_a8 out nocopy VARCHAR2
1281 , p6_a9 out nocopy VARCHAR2
1282 , p6_a10 out nocopy VARCHAR2
1283 , p6_a11 out nocopy VARCHAR2
1284 , p6_a12 out nocopy VARCHAR2
1285 , p6_a13 out nocopy VARCHAR2
1286 , p6_a14 out nocopy VARCHAR2
1287 , p6_a15 out nocopy VARCHAR2
1288 , p6_a16 out nocopy VARCHAR2
1289 , p6_a17 out nocopy VARCHAR2
1290 , p6_a18 out nocopy VARCHAR2
1291 , p6_a19 out nocopy VARCHAR2
1292 , p6_a20 out nocopy NUMBER
1293 , p6_a21 out nocopy VARCHAR2
1294 , p6_a22 out nocopy VARCHAR2
1295 , p6_a23 out nocopy DATE
1296 , p6_a24 out nocopy DATE
1297 , p6_a25 out nocopy VARCHAR2
1298 , p6_a26 out nocopy VARCHAR2
1299 , p6_a27 out nocopy VARCHAR2
1300 , p6_a28 out nocopy VARCHAR2
1301 , p6_a29 out nocopy VARCHAR2
1302 , p6_a30 out nocopy VARCHAR2
1303 , p6_a31 out nocopy VARCHAR2
1304 , p6_a32 out nocopy VARCHAR2
1305 , p6_a33 out nocopy VARCHAR2
1306 , p6_a34 out nocopy VARCHAR2
1307 , p6_a35 out nocopy VARCHAR2
1308 , p6_a36 out nocopy VARCHAR2
1309 , p6_a37 out nocopy VARCHAR2
1310 , p6_a38 out nocopy VARCHAR2
1311 , p6_a39 out nocopy VARCHAR2
1312 , p6_a40 out nocopy VARCHAR2
1313 , p6_a41 out nocopy VARCHAR2
1314 , p6_a42 out nocopy NUMBER
1315 , p6_a43 out nocopy VARCHAR2
1316 , p6_a44 out nocopy VARCHAR2
1317 , p6_a45 out nocopy VARCHAR2
1318 , p6_a46 out nocopy VARCHAR2
1319 , p6_a47 out nocopy VARCHAR2
1320 , p7_a0 out nocopy VARCHAR2
1321 , p7_a1 out nocopy VARCHAR2
1322 , p7_a2 out nocopy VARCHAR2
1323 )
1324
1325 as
1326 ddx_bankacct iby_ext_bankacct_pub.extbankacct_rec_type;
1327 ddx_response iby_fndcpt_common_pub.result_rec_type;
1328 ddindx binary_integer; indx binary_integer;
1329 begin
1330
1331 -- copy data to the local IN or IN-OUT args, if any
1332
1333
1334
1335
1336
1337
1338
1339
1340 -- here's the delegated call to the old PL/SQL routine
1341 iby_ext_bankacct_pub.get_ext_bank_acct(p_api_version,
1342 p_init_msg_list,
1343 p_bankacct_id,
1344 x_return_status,
1345 x_msg_count,
1346 x_msg_data,
1347 ddx_bankacct,
1348 ddx_response);
1349
1350 -- copy data back from the local variables to OUT or IN-OUT args, if any
1351
1352
1353
1354
1355
1356
1357 p6_a0 := ddx_bankacct.bank_account_id;
1358 p6_a1 := ddx_bankacct.country_code;
1359 p6_a2 := ddx_bankacct.branch_id;
1360 p6_a3 := ddx_bankacct.bank_id;
1361 p6_a4 := ddx_bankacct.acct_owner_party_id;
1362 p6_a5 := ddx_bankacct.bank_account_name;
1363 p6_a6 := ddx_bankacct.bank_account_num;
1364 p6_a7 := ddx_bankacct.currency;
1365 p6_a8 := ddx_bankacct.iban;
1366 p6_a9 := ddx_bankacct.check_digits;
1367 p6_a10 := ddx_bankacct.multi_currency_allowed_flag;
1368 p6_a11 := ddx_bankacct.alternate_acct_name;
1369 p6_a12 := ddx_bankacct.short_acct_name;
1370 p6_a13 := ddx_bankacct.acct_type;
1371 p6_a14 := ddx_bankacct.acct_suffix;
1372 p6_a15 := ddx_bankacct.description;
1373 p6_a16 := ddx_bankacct.agency_location_code;
1374 p6_a17 := ddx_bankacct.foreign_payment_use_flag;
1375 p6_a18 := ddx_bankacct.exchange_rate_agreement_num;
1376 p6_a19 := ddx_bankacct.exchange_rate_agreement_type;
1377 p6_a20 := ddx_bankacct.exchange_rate;
1378 p6_a21 := ddx_bankacct.payment_factor_flag;
1379 p6_a22 := ddx_bankacct.status;
1380 p6_a23 := ddx_bankacct.end_date;
1381 p6_a24 := ddx_bankacct.start_date;
1382 p6_a25 := ddx_bankacct.hedging_contract_reference;
1383 p6_a26 := ddx_bankacct.attribute_category;
1384 p6_a27 := ddx_bankacct.attribute1;
1385 p6_a28 := ddx_bankacct.attribute2;
1386 p6_a29 := ddx_bankacct.attribute3;
1387 p6_a30 := ddx_bankacct.attribute4;
1388 p6_a31 := ddx_bankacct.attribute5;
1389 p6_a32 := ddx_bankacct.attribute6;
1390 p6_a33 := ddx_bankacct.attribute7;
1391 p6_a34 := ddx_bankacct.attribute8;
1392 p6_a35 := ddx_bankacct.attribute9;
1393 p6_a36 := ddx_bankacct.attribute10;
1394 p6_a37 := ddx_bankacct.attribute11;
1395 p6_a38 := ddx_bankacct.attribute12;
1396 p6_a39 := ddx_bankacct.attribute13;
1397 p6_a40 := ddx_bankacct.attribute14;
1398 p6_a41 := ddx_bankacct.attribute15;
1399 p6_a42 := ddx_bankacct.object_version_number;
1400 p6_a43 := ddx_bankacct.secondary_account_reference;
1401 p6_a44 := ddx_bankacct.contact_name;
1402 p6_a45 := ddx_bankacct.contact_phone;
1403 p6_a46 := ddx_bankacct.contact_email;
1404 p6_a47 := ddx_bankacct.contact_fax;
1405
1406 p7_a0 := ddx_response.result_code;
1407 p7_a1 := ddx_response.result_category;
1408 p7_a2 := ddx_response.result_message;
1409 end;
1410
1411 procedure get_ext_bank_acct(p_api_version NUMBER
1412 , p_init_msg_list VARCHAR2
1413 , p_bankacct_id NUMBER
1414 , p_sec_key VARCHAR2
1415 , x_return_status out nocopy VARCHAR2
1416 , x_msg_count out nocopy NUMBER
1417 , x_msg_data out nocopy VARCHAR2
1418 , p7_a0 out nocopy NUMBER
1419 , p7_a1 out nocopy VARCHAR2
1420 , p7_a2 out nocopy NUMBER
1421 , p7_a3 out nocopy NUMBER
1422 , p7_a4 out nocopy NUMBER
1423 , p7_a5 out nocopy VARCHAR2
1424 , p7_a6 out nocopy VARCHAR2
1425 , p7_a7 out nocopy VARCHAR2
1426 , p7_a8 out nocopy VARCHAR2
1427 , p7_a9 out nocopy VARCHAR2
1428 , p7_a10 out nocopy VARCHAR2
1429 , p7_a11 out nocopy VARCHAR2
1430 , p7_a12 out nocopy VARCHAR2
1431 , p7_a13 out nocopy VARCHAR2
1432 , p7_a14 out nocopy VARCHAR2
1433 , p7_a15 out nocopy VARCHAR2
1434 , p7_a16 out nocopy VARCHAR2
1435 , p7_a17 out nocopy VARCHAR2
1436 , p7_a18 out nocopy VARCHAR2
1437 , p7_a19 out nocopy VARCHAR2
1438 , p7_a20 out nocopy NUMBER
1439 , p7_a21 out nocopy VARCHAR2
1440 , p7_a22 out nocopy VARCHAR2
1441 , p7_a23 out nocopy DATE
1442 , p7_a24 out nocopy DATE
1443 , p7_a25 out nocopy VARCHAR2
1444 , p7_a26 out nocopy VARCHAR2
1445 , p7_a27 out nocopy VARCHAR2
1446 , p7_a28 out nocopy VARCHAR2
1447 , p7_a29 out nocopy VARCHAR2
1448 , p7_a30 out nocopy VARCHAR2
1449 , p7_a31 out nocopy VARCHAR2
1450 , p7_a32 out nocopy VARCHAR2
1451 , p7_a33 out nocopy VARCHAR2
1452 , p7_a34 out nocopy VARCHAR2
1453 , p7_a35 out nocopy VARCHAR2
1454 , p7_a36 out nocopy VARCHAR2
1455 , p7_a37 out nocopy VARCHAR2
1456 , p7_a38 out nocopy VARCHAR2
1457 , p7_a39 out nocopy VARCHAR2
1458 , p7_a40 out nocopy VARCHAR2
1459 , p7_a41 out nocopy VARCHAR2
1460 , p7_a42 out nocopy NUMBER
1461 , p7_a43 out nocopy VARCHAR2
1462 , p7_a44 out nocopy VARCHAR2
1463 , p7_a45 out nocopy VARCHAR2
1464 , p7_a46 out nocopy VARCHAR2
1465 , p7_a47 out nocopy VARCHAR2
1466 , p8_a0 out nocopy VARCHAR2
1467 , p8_a1 out nocopy VARCHAR2
1468 , p8_a2 out nocopy VARCHAR2
1469 )
1470
1471 as
1472 ddx_bankacct iby_ext_bankacct_pub.extbankacct_rec_type;
1473 ddx_response iby_fndcpt_common_pub.result_rec_type;
1474 ddindx binary_integer; indx binary_integer;
1475 begin
1476
1477 -- copy data to the local IN or IN-OUT args, if any
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487 -- here's the delegated call to the old PL/SQL routine
1488 iby_ext_bankacct_pub.get_ext_bank_acct(p_api_version,
1489 p_init_msg_list,
1490 p_bankacct_id,
1491 p_sec_key,
1492 x_return_status,
1493 x_msg_count,
1494 x_msg_data,
1495 ddx_bankacct,
1496 ddx_response);
1497
1498 -- copy data back from the local variables to OUT or IN-OUT args, if any
1499
1500
1501
1502
1503
1504
1505
1506 p7_a0 := ddx_bankacct.bank_account_id;
1507 p7_a1 := ddx_bankacct.country_code;
1508 p7_a2 := ddx_bankacct.branch_id;
1509 p7_a3 := ddx_bankacct.bank_id;
1510 p7_a4 := ddx_bankacct.acct_owner_party_id;
1511 p7_a5 := ddx_bankacct.bank_account_name;
1512 p7_a6 := ddx_bankacct.bank_account_num;
1513 p7_a7 := ddx_bankacct.currency;
1514 p7_a8 := ddx_bankacct.iban;
1515 p7_a9 := ddx_bankacct.check_digits;
1516 p7_a10 := ddx_bankacct.multi_currency_allowed_flag;
1517 p7_a11 := ddx_bankacct.alternate_acct_name;
1518 p7_a12 := ddx_bankacct.short_acct_name;
1519 p7_a13 := ddx_bankacct.acct_type;
1520 p7_a14 := ddx_bankacct.acct_suffix;
1521 p7_a15 := ddx_bankacct.description;
1522 p7_a16 := ddx_bankacct.agency_location_code;
1523 p7_a17 := ddx_bankacct.foreign_payment_use_flag;
1524 p7_a18 := ddx_bankacct.exchange_rate_agreement_num;
1525 p7_a19 := ddx_bankacct.exchange_rate_agreement_type;
1526 p7_a20 := ddx_bankacct.exchange_rate;
1527 p7_a21 := ddx_bankacct.payment_factor_flag;
1528 p7_a22 := ddx_bankacct.status;
1529 p7_a23 := ddx_bankacct.end_date;
1530 p7_a24 := ddx_bankacct.start_date;
1531 p7_a25 := ddx_bankacct.hedging_contract_reference;
1532 p7_a26 := ddx_bankacct.attribute_category;
1533 p7_a27 := ddx_bankacct.attribute1;
1534 p7_a28 := ddx_bankacct.attribute2;
1535 p7_a29 := ddx_bankacct.attribute3;
1536 p7_a30 := ddx_bankacct.attribute4;
1537 p7_a31 := ddx_bankacct.attribute5;
1538 p7_a32 := ddx_bankacct.attribute6;
1539 p7_a33 := ddx_bankacct.attribute7;
1540 p7_a34 := ddx_bankacct.attribute8;
1541 p7_a35 := ddx_bankacct.attribute9;
1542 p7_a36 := ddx_bankacct.attribute10;
1543 p7_a37 := ddx_bankacct.attribute11;
1544 p7_a38 := ddx_bankacct.attribute12;
1545 p7_a39 := ddx_bankacct.attribute13;
1546 p7_a40 := ddx_bankacct.attribute14;
1547 p7_a41 := ddx_bankacct.attribute15;
1548 p7_a42 := ddx_bankacct.object_version_number;
1549 p7_a43 := ddx_bankacct.secondary_account_reference;
1550 p7_a44 := ddx_bankacct.contact_name;
1551 p7_a45 := ddx_bankacct.contact_phone;
1552 p7_a46 := ddx_bankacct.contact_email;
1553 p7_a47 := ddx_bankacct.contact_fax;
1554
1555 p8_a0 := ddx_response.result_code;
1556 p8_a1 := ddx_response.result_category;
1557 p8_a2 := ddx_response.result_message;
1558 end;
1559
1560 procedure set_ext_bank_acct_dates(p_api_version NUMBER
1561 , p_init_msg_list VARCHAR2
1562 , p_acct_id NUMBER
1563 , p_start_date date
1564 , p_end_date date
1565 , p_object_version_number in out nocopy NUMBER
1566 , x_return_status out nocopy VARCHAR2
1567 , x_msg_count out nocopy NUMBER
1568 , x_msg_data out nocopy VARCHAR2
1569 , p9_a0 out nocopy VARCHAR2
1570 , p9_a1 out nocopy VARCHAR2
1571 , p9_a2 out nocopy VARCHAR2
1572 )
1573
1574 as
1575 ddp_start_date date;
1576 ddp_end_date date;
1577 ddx_response iby_fndcpt_common_pub.result_rec_type;
1578 ddindx binary_integer; indx binary_integer;
1579 begin
1580
1581 -- copy data to the local IN or IN-OUT args, if any
1582
1583
1584
1585 ddp_start_date := rosetta_g_miss_date_in_map(p_start_date);
1586
1587 ddp_end_date := rosetta_g_miss_date_in_map(p_end_date);
1588
1589
1590
1591
1592
1593
1594 -- here's the delegated call to the old PL/SQL routine
1595 iby_ext_bankacct_pub.set_ext_bank_acct_dates(p_api_version,
1596 p_init_msg_list,
1597 p_acct_id,
1598 ddp_start_date,
1599 ddp_end_date,
1600 p_object_version_number,
1601 x_return_status,
1602 x_msg_count,
1603 x_msg_data,
1604 ddx_response);
1605
1606 -- copy data back from the local variables to OUT or IN-OUT args, if any
1607
1608
1609
1610
1611
1612
1613
1614
1615
1616 p9_a0 := ddx_response.result_code;
1617 p9_a1 := ddx_response.result_category;
1618 p9_a2 := ddx_response.result_message;
1619 end;
1620
1621 procedure check_ext_acct_exist(p_api_version NUMBER
1622 , p_init_msg_list VARCHAR2
1623 , p2_a0 NUMBER
1624 , p2_a1 VARCHAR2
1625 , p2_a2 NUMBER
1626 , p2_a3 NUMBER
1627 , p2_a4 NUMBER
1628 , p2_a5 VARCHAR2
1629 , p2_a6 VARCHAR2
1630 , p2_a7 VARCHAR2
1631 , p2_a8 VARCHAR2
1632 , p2_a9 VARCHAR2
1633 , p2_a10 VARCHAR2
1634 , p2_a11 VARCHAR2
1635 , p2_a12 VARCHAR2
1636 , p2_a13 VARCHAR2
1637 , p2_a14 VARCHAR2
1638 , p2_a15 VARCHAR2
1639 , p2_a16 VARCHAR2
1640 , p2_a17 VARCHAR2
1641 , p2_a18 VARCHAR2
1642 , p2_a19 VARCHAR2
1643 , p2_a20 NUMBER
1644 , p2_a21 VARCHAR2
1645 , p2_a22 VARCHAR2
1646 , p2_a23 DATE
1647 , p2_a24 DATE
1648 , p2_a25 VARCHAR2
1649 , p2_a26 VARCHAR2
1650 , p2_a27 VARCHAR2
1651 , p2_a28 VARCHAR2
1652 , p2_a29 VARCHAR2
1653 , p2_a30 VARCHAR2
1654 , p2_a31 VARCHAR2
1655 , p2_a32 VARCHAR2
1656 , p2_a33 VARCHAR2
1657 , p2_a34 VARCHAR2
1658 , p2_a35 VARCHAR2
1659 , p2_a36 VARCHAR2
1660 , p2_a37 VARCHAR2
1661 , p2_a38 VARCHAR2
1662 , p2_a39 VARCHAR2
1663 , p2_a40 VARCHAR2
1664 , p2_a41 VARCHAR2
1665 , p2_a42 NUMBER
1666 , p2_a43 VARCHAR2
1667 , p2_a44 VARCHAR2
1668 , p2_a45 VARCHAR2
1669 , p2_a46 VARCHAR2
1670 , p2_a47 VARCHAR2
1671 , x_acct_id out nocopy NUMBER
1672 , x_start_date out nocopy DATE
1673 , x_end_date out nocopy DATE
1674 , x_return_status out nocopy VARCHAR2
1675 , x_msg_count out nocopy NUMBER
1676 , x_msg_data out nocopy VARCHAR2
1677 , p9_a0 out nocopy VARCHAR2
1678 , p9_a1 out nocopy VARCHAR2
1679 , p9_a2 out nocopy VARCHAR2
1680 )
1681
1682 as
1683 ddp_ext_bank_acct_rec iby_ext_bankacct_pub.extbankacct_rec_type;
1684 ddx_response iby_fndcpt_common_pub.result_rec_type;
1685 ddindx binary_integer; indx binary_integer;
1686 begin
1687
1688 -- copy data to the local IN or IN-OUT args, if any
1689
1690
1691 ddp_ext_bank_acct_rec.bank_account_id := p2_a0;
1692 ddp_ext_bank_acct_rec.country_code := p2_a1;
1693 ddp_ext_bank_acct_rec.branch_id := p2_a2;
1694 ddp_ext_bank_acct_rec.bank_id := p2_a3;
1695 ddp_ext_bank_acct_rec.acct_owner_party_id := p2_a4;
1696 ddp_ext_bank_acct_rec.bank_account_name := p2_a5;
1697 ddp_ext_bank_acct_rec.bank_account_num := p2_a6;
1698 ddp_ext_bank_acct_rec.currency := p2_a7;
1699 ddp_ext_bank_acct_rec.iban := p2_a8;
1700 ddp_ext_bank_acct_rec.check_digits := p2_a9;
1701 ddp_ext_bank_acct_rec.multi_currency_allowed_flag := p2_a10;
1702 ddp_ext_bank_acct_rec.alternate_acct_name := p2_a11;
1703 ddp_ext_bank_acct_rec.short_acct_name := p2_a12;
1704 ddp_ext_bank_acct_rec.acct_type := p2_a13;
1705 ddp_ext_bank_acct_rec.acct_suffix := p2_a14;
1706 ddp_ext_bank_acct_rec.description := p2_a15;
1707 ddp_ext_bank_acct_rec.agency_location_code := p2_a16;
1708 ddp_ext_bank_acct_rec.foreign_payment_use_flag := p2_a17;
1709 ddp_ext_bank_acct_rec.exchange_rate_agreement_num := p2_a18;
1710 ddp_ext_bank_acct_rec.exchange_rate_agreement_type := p2_a19;
1711 ddp_ext_bank_acct_rec.exchange_rate := p2_a20;
1712 ddp_ext_bank_acct_rec.payment_factor_flag := p2_a21;
1713 ddp_ext_bank_acct_rec.status := p2_a22;
1714 ddp_ext_bank_acct_rec.end_date := rosetta_g_miss_date_in_map(p2_a23);
1715 ddp_ext_bank_acct_rec.start_date := rosetta_g_miss_date_in_map(p2_a24);
1716 ddp_ext_bank_acct_rec.hedging_contract_reference := p2_a25;
1717 ddp_ext_bank_acct_rec.attribute_category := p2_a26;
1718 ddp_ext_bank_acct_rec.attribute1 := p2_a27;
1719 ddp_ext_bank_acct_rec.attribute2 := p2_a28;
1720 ddp_ext_bank_acct_rec.attribute3 := p2_a29;
1721 ddp_ext_bank_acct_rec.attribute4 := p2_a30;
1722 ddp_ext_bank_acct_rec.attribute5 := p2_a31;
1723 ddp_ext_bank_acct_rec.attribute6 := p2_a32;
1724 ddp_ext_bank_acct_rec.attribute7 := p2_a33;
1725 ddp_ext_bank_acct_rec.attribute8 := p2_a34;
1726 ddp_ext_bank_acct_rec.attribute9 := p2_a35;
1727 ddp_ext_bank_acct_rec.attribute10 := p2_a36;
1728 ddp_ext_bank_acct_rec.attribute11 := p2_a37;
1729 ddp_ext_bank_acct_rec.attribute12 := p2_a38;
1730 ddp_ext_bank_acct_rec.attribute13 := p2_a39;
1731 ddp_ext_bank_acct_rec.attribute14 := p2_a40;
1732 ddp_ext_bank_acct_rec.attribute15 := p2_a41;
1733 ddp_ext_bank_acct_rec.object_version_number := p2_a42;
1734 ddp_ext_bank_acct_rec.secondary_account_reference := p2_a43;
1735 ddp_ext_bank_acct_rec.contact_name := p2_a44;
1736 ddp_ext_bank_acct_rec.contact_phone := p2_a45;
1737 ddp_ext_bank_acct_rec.contact_email := p2_a46;
1738 ddp_ext_bank_acct_rec.contact_fax := p2_a47;
1739
1740
1741
1742
1743
1744
1745
1746
1747 -- here's the delegated call to the old PL/SQL routine
1748 iby_ext_bankacct_pub.check_ext_acct_exist(p_api_version,
1749 p_init_msg_list,
1750 ddp_ext_bank_acct_rec,
1751 x_acct_id,
1752 x_start_date,
1753 x_end_date,
1754 x_return_status,
1755 x_msg_count,
1756 x_msg_data,
1757 ddx_response);
1758
1759 -- copy data back from the local variables to OUT or IN-OUT args, if any
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769 p9_a0 := ddx_response.result_code;
1770 p9_a1 := ddx_response.result_category;
1771 p9_a2 := ddx_response.result_message;
1772 end;
1773
1774 procedure check_ext_acct_exist(p_api_version NUMBER
1775 , p_init_msg_list VARCHAR2
1776 , p_bank_id VARCHAR2
1777 , p_branch_id NUMBER
1778 , p_acct_number VARCHAR2
1779 , p_acct_name VARCHAR2
1780 , p_currency VARCHAR2
1781 , p_country_code VARCHAR2
1782 , x_acct_id out nocopy NUMBER
1783 , x_start_date out nocopy DATE
1784 , x_end_date out nocopy DATE
1785 , x_return_status out nocopy VARCHAR2
1786 , x_msg_count out nocopy NUMBER
1787 , x_msg_data out nocopy VARCHAR2
1788 , p14_a0 out nocopy VARCHAR2
1789 , p14_a1 out nocopy VARCHAR2
1790 , p14_a2 out nocopy VARCHAR2
1791 )
1792
1793 as
1794 ddx_response iby_fndcpt_common_pub.result_rec_type;
1795 ddindx binary_integer; indx binary_integer;
1796 begin
1797
1798 -- copy data to the local IN or IN-OUT args, if any
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
1814 -- here's the delegated call to the old PL/SQL routine
1815 iby_ext_bankacct_pub.check_ext_acct_exist(p_api_version,
1816 p_init_msg_list,
1817 p_bank_id,
1818 p_branch_id,
1819 p_acct_number,
1820 p_acct_name,
1821 p_currency,
1822 p_country_code,
1823 x_acct_id,
1824 x_start_date,
1825 x_end_date,
1826 x_return_status,
1827 x_msg_count,
1828 x_msg_data,
1829 ddx_response);
1830
1831 -- copy data back from the local variables to OUT or IN-OUT args, if any
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846 p14_a0 := ddx_response.result_code;
1847 p14_a1 := ddx_response.result_category;
1848 p14_a2 := ddx_response.result_message;
1849 end;
1850
1851 procedure create_intermediary_acct(p_api_version NUMBER
1852 , p_init_msg_list VARCHAR2
1853 , p2_a0 NUMBER
1854 , p2_a1 NUMBER
1855 , p2_a2 VARCHAR2
1856 , p2_a3 VARCHAR2
1857 , p2_a4 VARCHAR2
1858 , p2_a5 VARCHAR2
1859 , p2_a6 VARCHAR2
1860 , p2_a7 VARCHAR2
1861 , p2_a8 VARCHAR2
1862 , p2_a9 VARCHAR2
1863 , p2_a10 VARCHAR2
1864 , p2_a11 VARCHAR2
1865 , p2_a12 NUMBER
1866 , x_intermediary_acct_id out nocopy NUMBER
1867 , x_return_status out nocopy VARCHAR2
1868 , x_msg_count out nocopy NUMBER
1869 , x_msg_data out nocopy VARCHAR2
1870 , p7_a0 out nocopy VARCHAR2
1871 , p7_a1 out nocopy VARCHAR2
1872 , p7_a2 out nocopy VARCHAR2
1873 )
1874
1875 as
1876 ddp_intermed_acct_rec iby_ext_bankacct_pub.intermediaryacct_rec_type;
1877 ddx_response iby_fndcpt_common_pub.result_rec_type;
1878 ddindx binary_integer; indx binary_integer;
1879 begin
1880
1881 -- copy data to the local IN or IN-OUT args, if any
1882
1883
1884 ddp_intermed_acct_rec.intermediary_acct_id := p2_a0;
1885 ddp_intermed_acct_rec.bank_account_id := p2_a1;
1886 ddp_intermed_acct_rec.country_code := p2_a2;
1887 ddp_intermed_acct_rec.bank_name := p2_a3;
1888 ddp_intermed_acct_rec.city := p2_a4;
1889 ddp_intermed_acct_rec.bank_code := p2_a5;
1890 ddp_intermed_acct_rec.branch_number := p2_a6;
1891 ddp_intermed_acct_rec.bic := p2_a7;
1892 ddp_intermed_acct_rec.account_number := p2_a8;
1893 ddp_intermed_acct_rec.check_digits := p2_a9;
1894 ddp_intermed_acct_rec.iban := p2_a10;
1895 ddp_intermed_acct_rec.comments := p2_a11;
1896 ddp_intermed_acct_rec.object_version_number := p2_a12;
1897
1898
1899
1900
1901
1902
1903 -- here's the delegated call to the old PL/SQL routine
1904 iby_ext_bankacct_pub.create_intermediary_acct(p_api_version,
1905 p_init_msg_list,
1906 ddp_intermed_acct_rec,
1907 x_intermediary_acct_id,
1908 x_return_status,
1909 x_msg_count,
1910 x_msg_data,
1911 ddx_response);
1912
1913 -- copy data back from the local variables to OUT or IN-OUT args, if any
1914
1915
1916
1917
1918
1919
1920
1921 p7_a0 := ddx_response.result_code;
1922 p7_a1 := ddx_response.result_category;
1923 p7_a2 := ddx_response.result_message;
1924 end;
1925
1926 procedure update_intermediary_acct(p_api_version NUMBER
1927 , p_init_msg_list VARCHAR2
1928 , p2_a0 in out nocopy NUMBER
1929 , p2_a1 in out nocopy NUMBER
1930 , p2_a2 in out nocopy VARCHAR2
1931 , p2_a3 in out nocopy VARCHAR2
1932 , p2_a4 in out nocopy VARCHAR2
1933 , p2_a5 in out nocopy VARCHAR2
1934 , p2_a6 in out nocopy VARCHAR2
1935 , p2_a7 in out nocopy VARCHAR2
1936 , p2_a8 in out nocopy VARCHAR2
1937 , p2_a9 in out nocopy VARCHAR2
1938 , p2_a10 in out nocopy VARCHAR2
1939 , p2_a11 in out nocopy VARCHAR2
1940 , p2_a12 in out nocopy NUMBER
1941 , x_return_status out nocopy VARCHAR2
1942 , x_msg_count out nocopy NUMBER
1943 , x_msg_data out nocopy VARCHAR2
1944 , p6_a0 out nocopy VARCHAR2
1945 , p6_a1 out nocopy VARCHAR2
1946 , p6_a2 out nocopy VARCHAR2
1947 )
1948
1949 as
1950 ddp_intermed_acct_rec iby_ext_bankacct_pub.intermediaryacct_rec_type;
1951 ddx_response iby_fndcpt_common_pub.result_rec_type;
1952 ddindx binary_integer; indx binary_integer;
1953 begin
1954
1955 -- copy data to the local IN or IN-OUT args, if any
1956
1957
1958 ddp_intermed_acct_rec.intermediary_acct_id := p2_a0;
1959 ddp_intermed_acct_rec.bank_account_id := p2_a1;
1960 ddp_intermed_acct_rec.country_code := p2_a2;
1961 ddp_intermed_acct_rec.bank_name := p2_a3;
1962 ddp_intermed_acct_rec.city := p2_a4;
1963 ddp_intermed_acct_rec.bank_code := p2_a5;
1964 ddp_intermed_acct_rec.branch_number := p2_a6;
1965 ddp_intermed_acct_rec.bic := p2_a7;
1966 ddp_intermed_acct_rec.account_number := p2_a8;
1967 ddp_intermed_acct_rec.check_digits := p2_a9;
1968 ddp_intermed_acct_rec.iban := p2_a10;
1969 ddp_intermed_acct_rec.comments := p2_a11;
1970 ddp_intermed_acct_rec.object_version_number := p2_a12;
1971
1972
1973
1974
1975
1976 -- here's the delegated call to the old PL/SQL routine
1977 iby_ext_bankacct_pub.update_intermediary_acct(p_api_version,
1978 p_init_msg_list,
1979 ddp_intermed_acct_rec,
1980 x_return_status,
1981 x_msg_count,
1982 x_msg_data,
1983 ddx_response);
1984
1985 -- copy data back from the local variables to OUT or IN-OUT args, if any
1986
1987
1988 p2_a0 := ddp_intermed_acct_rec.intermediary_acct_id;
1989 p2_a1 := ddp_intermed_acct_rec.bank_account_id;
1990 p2_a2 := ddp_intermed_acct_rec.country_code;
1991 p2_a3 := ddp_intermed_acct_rec.bank_name;
1992 p2_a4 := ddp_intermed_acct_rec.city;
1993 p2_a5 := ddp_intermed_acct_rec.bank_code;
1994 p2_a6 := ddp_intermed_acct_rec.branch_number;
1995 p2_a7 := ddp_intermed_acct_rec.bic;
1996 p2_a8 := ddp_intermed_acct_rec.account_number;
1997 p2_a9 := ddp_intermed_acct_rec.check_digits;
1998 p2_a10 := ddp_intermed_acct_rec.iban;
1999 p2_a11 := ddp_intermed_acct_rec.comments;
2000 p2_a12 := ddp_intermed_acct_rec.object_version_number;
2001
2002
2003
2004
2005 p6_a0 := ddx_response.result_code;
2006 p6_a1 := ddx_response.result_category;
2007 p6_a2 := ddx_response.result_message;
2008 end;
2009
2010 procedure add_joint_account_owner(p_api_version NUMBER
2011 , p_init_msg_list VARCHAR2
2012 , p_bank_account_id NUMBER
2013 , p_acct_owner_party_id NUMBER
2014 , x_joint_acct_owner_id out nocopy NUMBER
2015 , x_return_status out nocopy VARCHAR2
2016 , x_msg_count out nocopy NUMBER
2017 , x_msg_data out nocopy VARCHAR2
2018 , p8_a0 out nocopy VARCHAR2
2019 , p8_a1 out nocopy VARCHAR2
2020 , p8_a2 out nocopy VARCHAR2
2021 )
2022
2023 as
2024 ddx_response iby_fndcpt_common_pub.result_rec_type;
2025 ddindx binary_integer; indx binary_integer;
2026 begin
2027
2028 -- copy data to the local IN or IN-OUT args, if any
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038 -- here's the delegated call to the old PL/SQL routine
2039 iby_ext_bankacct_pub.add_joint_account_owner(p_api_version,
2040 p_init_msg_list,
2041 p_bank_account_id,
2042 p_acct_owner_party_id,
2043 x_joint_acct_owner_id,
2044 x_return_status,
2045 x_msg_count,
2046 x_msg_data,
2047 ddx_response);
2048
2049 -- copy data back from the local variables to OUT or IN-OUT args, if any
2050
2051
2052
2053
2054
2055
2056
2057
2058 p8_a0 := ddx_response.result_code;
2059 p8_a1 := ddx_response.result_category;
2060 p8_a2 := ddx_response.result_message;
2061 end;
2062
2063 procedure set_joint_acct_owner_end_date(p_api_version NUMBER
2064 , p_init_msg_list VARCHAR2
2065 , p_acct_owner_id NUMBER
2066 , p_end_date date
2067 , p_object_version_number in out nocopy NUMBER
2068 , x_return_status out nocopy VARCHAR2
2069 , x_msg_count out nocopy NUMBER
2070 , x_msg_data out nocopy VARCHAR2
2071 , p8_a0 out nocopy VARCHAR2
2072 , p8_a1 out nocopy VARCHAR2
2073 , p8_a2 out nocopy VARCHAR2
2074 )
2075
2076 as
2077 ddp_end_date date;
2078 ddx_response iby_fndcpt_common_pub.result_rec_type;
2079 ddindx binary_integer; indx binary_integer;
2080 begin
2081
2082 -- copy data to the local IN or IN-OUT args, if any
2083
2084
2085
2086 ddp_end_date := rosetta_g_miss_date_in_map(p_end_date);
2087
2088
2089
2090
2091
2092
2093 -- here's the delegated call to the old PL/SQL routine
2094 iby_ext_bankacct_pub.set_joint_acct_owner_end_date(p_api_version,
2095 p_init_msg_list,
2096 p_acct_owner_id,
2097 ddp_end_date,
2098 p_object_version_number,
2099 x_return_status,
2100 x_msg_count,
2101 x_msg_data,
2102 ddx_response);
2103
2104 -- copy data back from the local variables to OUT or IN-OUT args, if any
2105
2106
2107
2108
2109
2110
2111
2112
2113 p8_a0 := ddx_response.result_code;
2114 p8_a1 := ddx_response.result_category;
2115 p8_a2 := ddx_response.result_message;
2116 end;
2117
2118 procedure change_primary_acct_owner(p_api_version NUMBER
2119 , p_init_msg_list VARCHAR2
2120 , p_bank_acct_id NUMBER
2121 , p_acct_owner_party_id NUMBER
2122 , x_return_status out nocopy VARCHAR2
2123 , x_msg_count out nocopy NUMBER
2124 , x_msg_data out nocopy VARCHAR2
2125 , p7_a0 out nocopy VARCHAR2
2126 , p7_a1 out nocopy VARCHAR2
2127 , p7_a2 out nocopy VARCHAR2
2128 )
2129
2130 as
2131 ddx_response iby_fndcpt_common_pub.result_rec_type;
2132 ddindx binary_integer; indx binary_integer;
2133 begin
2134
2135 -- copy data to the local IN or IN-OUT args, if any
2136
2137
2138
2139
2140
2141
2142
2143
2144 -- here's the delegated call to the old PL/SQL routine
2145 iby_ext_bankacct_pub.change_primary_acct_owner(p_api_version,
2146 p_init_msg_list,
2147 p_bank_acct_id,
2148 p_acct_owner_party_id,
2149 x_return_status,
2150 x_msg_count,
2151 x_msg_data,
2152 ddx_response);
2153
2154 -- copy data back from the local variables to OUT or IN-OUT args, if any
2155
2156
2157
2158
2159
2160
2161
2162 p7_a0 := ddx_response.result_code;
2163 p7_a1 := ddx_response.result_category;
2164 p7_a2 := ddx_response.result_message;
2165 end;
2166
2167 procedure check_bank_acct_owner(p_api_version NUMBER
2168 , p_init_msg_list VARCHAR2
2169 , p_bank_acct_id NUMBER
2170 , p_acct_owner_party_id NUMBER
2171 , x_return_status out nocopy VARCHAR2
2172 , x_msg_count out nocopy NUMBER
2173 , x_msg_data out nocopy VARCHAR2
2174 , p7_a0 out nocopy VARCHAR2
2175 , p7_a1 out nocopy VARCHAR2
2176 , p7_a2 out nocopy VARCHAR2
2177 )
2178
2179 as
2180 ddx_response iby_fndcpt_common_pub.result_rec_type;
2181 ddindx binary_integer; indx binary_integer;
2182 begin
2183
2184 -- copy data to the local IN or IN-OUT args, if any
2185
2186
2187
2188
2189
2190
2191
2192
2193 -- here's the delegated call to the old PL/SQL routine
2194 iby_ext_bankacct_pub.check_bank_acct_owner(p_api_version,
2195 p_init_msg_list,
2196 p_bank_acct_id,
2197 p_acct_owner_party_id,
2198 x_return_status,
2199 x_msg_count,
2200 x_msg_data,
2201 ddx_response);
2202
2203 -- copy data back from the local variables to OUT or IN-OUT args, if any
2204
2205
2206
2207
2208
2209
2210
2211 p7_a0 := ddx_response.result_code;
2212 p7_a1 := ddx_response.result_category;
2213 p7_a2 := ddx_response.result_message;
2214 end;
2215
2216 end iby_ext_bankacct_pub_w;