[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.4.12010000.4 2009/01/19 14:17:24 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('01/01/+4710', '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;
437 ddp_ext_bank_branch_rec.attribute2 := p2_a12;
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;
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;
566 ddp_ext_bank_branch_rec.attribute5 := p2_a15;
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;
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,
693 -- copy data back from the local variables to OUT or IN-OUT args, if any
690 x_msg_data,
691 ddx_response);
692
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 , x_acct_id out nocopy NUMBER
814 , x_return_status out nocopy VARCHAR2
815 , x_msg_count out nocopy NUMBER
816 , x_msg_data out nocopy VARCHAR2
817 , p7_a0 out nocopy VARCHAR2
818 , p7_a1 out nocopy VARCHAR2
819 , p7_a2 out nocopy VARCHAR2
820 )
821
822 as
823 ddp_ext_bank_acct_rec iby_ext_bankacct_pub.extbankacct_rec_type;
824 ddx_response iby_fndcpt_common_pub.result_rec_type;
825 ddindx binary_integer; indx binary_integer;
826 begin
827
828 -- copy data to the local IN or IN-OUT args, if any
829
830
831 ddp_ext_bank_acct_rec.bank_account_id := p2_a0;
832 ddp_ext_bank_acct_rec.country_code := p2_a1;
833 ddp_ext_bank_acct_rec.branch_id := p2_a2;
834 ddp_ext_bank_acct_rec.bank_id := p2_a3;
835 ddp_ext_bank_acct_rec.acct_owner_party_id := p2_a4;
836 ddp_ext_bank_acct_rec.bank_account_name := p2_a5;
837 ddp_ext_bank_acct_rec.bank_account_num := p2_a6;
838 ddp_ext_bank_acct_rec.currency := p2_a7;
839 ddp_ext_bank_acct_rec.iban := p2_a8;
840 ddp_ext_bank_acct_rec.check_digits := p2_a9;
841 ddp_ext_bank_acct_rec.multi_currency_allowed_flag := p2_a10;
842 ddp_ext_bank_acct_rec.alternate_acct_name := p2_a11;
843 ddp_ext_bank_acct_rec.short_acct_name := p2_a12;
844 ddp_ext_bank_acct_rec.acct_type := p2_a13;
845 ddp_ext_bank_acct_rec.acct_suffix := p2_a14;
846 ddp_ext_bank_acct_rec.description := p2_a15;
847 ddp_ext_bank_acct_rec.agency_location_code := p2_a16;
848 ddp_ext_bank_acct_rec.foreign_payment_use_flag := p2_a17;
849 ddp_ext_bank_acct_rec.exchange_rate_agreement_num := p2_a18;
850 ddp_ext_bank_acct_rec.exchange_rate_agreement_type := p2_a19;
851 ddp_ext_bank_acct_rec.exchange_rate := p2_a20;
852 ddp_ext_bank_acct_rec.payment_factor_flag := p2_a21;
853 ddp_ext_bank_acct_rec.status := p2_a22;
857 ddp_ext_bank_acct_rec.attribute_category := p2_a26;
854 ddp_ext_bank_acct_rec.end_date := rosetta_g_miss_date_in_map(p2_a23);
855 ddp_ext_bank_acct_rec.start_date := rosetta_g_miss_date_in_map(p2_a24);
856 ddp_ext_bank_acct_rec.hedging_contract_reference := p2_a25;
858 ddp_ext_bank_acct_rec.attribute1 := p2_a27;
859 ddp_ext_bank_acct_rec.attribute2 := p2_a28;
860 ddp_ext_bank_acct_rec.attribute3 := p2_a29;
861 ddp_ext_bank_acct_rec.attribute4 := p2_a30;
862 ddp_ext_bank_acct_rec.attribute5 := p2_a31;
863 ddp_ext_bank_acct_rec.attribute6 := p2_a32;
864 ddp_ext_bank_acct_rec.attribute7 := p2_a33;
865 ddp_ext_bank_acct_rec.attribute8 := p2_a34;
866 ddp_ext_bank_acct_rec.attribute9 := p2_a35;
867 ddp_ext_bank_acct_rec.attribute10 := p2_a36;
868 ddp_ext_bank_acct_rec.attribute11 := p2_a37;
869 ddp_ext_bank_acct_rec.attribute12 := p2_a38;
870 ddp_ext_bank_acct_rec.attribute13 := p2_a39;
871 ddp_ext_bank_acct_rec.attribute14 := p2_a40;
872 ddp_ext_bank_acct_rec.attribute15 := p2_a41;
873 ddp_ext_bank_acct_rec.object_version_number := p2_a42;
874 ddp_ext_bank_acct_rec.secondary_account_reference := p2_a43;
875
876
877
878
879
880
881 -- here's the delegated call to the old PL/SQL routine
882 iby_ext_bankacct_pub.create_ext_bank_acct(p_api_version,
883 p_init_msg_list,
884 ddp_ext_bank_acct_rec,
885 x_acct_id,
886 x_return_status,
887 x_msg_count,
888 x_msg_data,
889 ddx_response);
890
891 -- copy data back from the local variables to OUT or IN-OUT args, if any
892
893
894
895
896
897
898
899 p7_a0 := ddx_response.result_code;
900 p7_a1 := ddx_response.result_category;
901 p7_a2 := ddx_response.result_message;
902 end;
903
904 procedure update_ext_bank_acct(p_api_version NUMBER
905 , p_init_msg_list VARCHAR2
906 , p2_a0 in out nocopy NUMBER
907 , p2_a1 in out nocopy VARCHAR2
908 , p2_a2 in out nocopy NUMBER
909 , p2_a3 in out nocopy NUMBER
910 , p2_a4 in out nocopy NUMBER
911 , p2_a5 in out nocopy VARCHAR2
912 , p2_a6 in out nocopy VARCHAR2
913 , p2_a7 in out nocopy VARCHAR2
914 , p2_a8 in out nocopy VARCHAR2
915 , p2_a9 in out nocopy VARCHAR2
916 , p2_a10 in out nocopy VARCHAR2
917 , p2_a11 in out nocopy VARCHAR2
918 , p2_a12 in out nocopy VARCHAR2
919 , p2_a13 in out nocopy VARCHAR2
920 , p2_a14 in out nocopy VARCHAR2
921 , p2_a15 in out nocopy VARCHAR2
922 , p2_a16 in out nocopy VARCHAR2
923 , p2_a17 in out nocopy VARCHAR2
924 , p2_a18 in out nocopy VARCHAR2
925 , p2_a19 in out nocopy VARCHAR2
926 , p2_a20 in out nocopy NUMBER
927 , p2_a21 in out nocopy VARCHAR2
928 , p2_a22 in out nocopy VARCHAR2
929 , p2_a23 in out nocopy DATE
930 , p2_a24 in out nocopy DATE
931 , p2_a25 in out nocopy VARCHAR2
932 , p2_a26 in out nocopy VARCHAR2
933 , p2_a27 in out nocopy VARCHAR2
934 , p2_a28 in out nocopy VARCHAR2
935 , p2_a29 in out nocopy VARCHAR2
936 , p2_a30 in out nocopy VARCHAR2
937 , p2_a31 in out nocopy VARCHAR2
938 , p2_a32 in out nocopy VARCHAR2
939 , p2_a33 in out nocopy VARCHAR2
940 , p2_a34 in out nocopy VARCHAR2
941 , p2_a35 in out nocopy VARCHAR2
942 , p2_a36 in out nocopy VARCHAR2
943 , p2_a37 in out nocopy VARCHAR2
944 , p2_a38 in out nocopy VARCHAR2
945 , p2_a39 in out nocopy VARCHAR2
946 , p2_a40 in out nocopy VARCHAR2
947 , p2_a41 in out nocopy VARCHAR2
948 , p2_a42 in out nocopy NUMBER
949 , p2_a43 in out nocopy VARCHAR2
950 , x_return_status out nocopy VARCHAR2
951 , x_msg_count out nocopy NUMBER
952 , x_msg_data out nocopy VARCHAR2
953 , p6_a0 out nocopy VARCHAR2
954 , p6_a1 out nocopy VARCHAR2
955 , p6_a2 out nocopy VARCHAR2
956 )
957
958 as
959 ddp_ext_bank_acct_rec iby_ext_bankacct_pub.extbankacct_rec_type;
960 ddx_response iby_fndcpt_common_pub.result_rec_type;
961 ddindx binary_integer; indx binary_integer;
962 begin
963
964 -- copy data to the local IN or IN-OUT args, if any
965
966
967 ddp_ext_bank_acct_rec.bank_account_id := p2_a0;
968 ddp_ext_bank_acct_rec.country_code := p2_a1;
969 ddp_ext_bank_acct_rec.branch_id := p2_a2;
970 ddp_ext_bank_acct_rec.bank_id := p2_a3;
971 ddp_ext_bank_acct_rec.acct_owner_party_id := p2_a4;
972 ddp_ext_bank_acct_rec.bank_account_name := p2_a5;
973 ddp_ext_bank_acct_rec.bank_account_num := p2_a6;
974 ddp_ext_bank_acct_rec.currency := p2_a7;
975 ddp_ext_bank_acct_rec.iban := p2_a8;
976 ddp_ext_bank_acct_rec.check_digits := p2_a9;
977 ddp_ext_bank_acct_rec.multi_currency_allowed_flag := p2_a10;
978 ddp_ext_bank_acct_rec.alternate_acct_name := p2_a11;
979 ddp_ext_bank_acct_rec.short_acct_name := p2_a12;
980 ddp_ext_bank_acct_rec.acct_type := p2_a13;
981 ddp_ext_bank_acct_rec.acct_suffix := p2_a14;
982 ddp_ext_bank_acct_rec.description := p2_a15;
986 ddp_ext_bank_acct_rec.exchange_rate_agreement_type := p2_a19;
983 ddp_ext_bank_acct_rec.agency_location_code := p2_a16;
984 ddp_ext_bank_acct_rec.foreign_payment_use_flag := p2_a17;
985 ddp_ext_bank_acct_rec.exchange_rate_agreement_num := p2_a18;
987 ddp_ext_bank_acct_rec.exchange_rate := p2_a20;
988 ddp_ext_bank_acct_rec.payment_factor_flag := p2_a21;
989 ddp_ext_bank_acct_rec.status := p2_a22;
990 ddp_ext_bank_acct_rec.end_date := rosetta_g_miss_date_in_map(p2_a23);
991 ddp_ext_bank_acct_rec.start_date := rosetta_g_miss_date_in_map(p2_a24);
992 ddp_ext_bank_acct_rec.hedging_contract_reference := p2_a25;
993 ddp_ext_bank_acct_rec.attribute_category := p2_a26;
994 ddp_ext_bank_acct_rec.attribute1 := p2_a27;
995 ddp_ext_bank_acct_rec.attribute2 := p2_a28;
996 ddp_ext_bank_acct_rec.attribute3 := p2_a29;
997 ddp_ext_bank_acct_rec.attribute4 := p2_a30;
998 ddp_ext_bank_acct_rec.attribute5 := p2_a31;
999 ddp_ext_bank_acct_rec.attribute6 := p2_a32;
1000 ddp_ext_bank_acct_rec.attribute7 := p2_a33;
1001 ddp_ext_bank_acct_rec.attribute8 := p2_a34;
1002 ddp_ext_bank_acct_rec.attribute9 := p2_a35;
1003 ddp_ext_bank_acct_rec.attribute10 := p2_a36;
1004 ddp_ext_bank_acct_rec.attribute11 := p2_a37;
1005 ddp_ext_bank_acct_rec.attribute12 := p2_a38;
1006 ddp_ext_bank_acct_rec.attribute13 := p2_a39;
1007 ddp_ext_bank_acct_rec.attribute14 := p2_a40;
1008 ddp_ext_bank_acct_rec.attribute15 := p2_a41;
1009 ddp_ext_bank_acct_rec.object_version_number := p2_a42;
1010 ddp_ext_bank_acct_rec.secondary_account_reference := p2_a43;
1011
1012
1013
1014
1015
1016 -- here's the delegated call to the old PL/SQL routine
1017 iby_ext_bankacct_pub.update_ext_bank_acct(p_api_version,
1018 p_init_msg_list,
1019 ddp_ext_bank_acct_rec,
1020 x_return_status,
1021 x_msg_count,
1022 x_msg_data,
1023 ddx_response);
1024
1025 -- copy data back from the local variables to OUT or IN-OUT args, if any
1026
1027
1028 p2_a0 := ddp_ext_bank_acct_rec.bank_account_id;
1029 p2_a1 := ddp_ext_bank_acct_rec.country_code;
1030 p2_a2 := ddp_ext_bank_acct_rec.branch_id;
1031 p2_a3 := ddp_ext_bank_acct_rec.bank_id;
1032 p2_a4 := ddp_ext_bank_acct_rec.acct_owner_party_id;
1033 p2_a5 := ddp_ext_bank_acct_rec.bank_account_name;
1034 p2_a6 := ddp_ext_bank_acct_rec.bank_account_num;
1035 p2_a7 := ddp_ext_bank_acct_rec.currency;
1036 p2_a8 := ddp_ext_bank_acct_rec.iban;
1037 p2_a9 := ddp_ext_bank_acct_rec.check_digits;
1038 p2_a10 := ddp_ext_bank_acct_rec.multi_currency_allowed_flag;
1039 p2_a11 := ddp_ext_bank_acct_rec.alternate_acct_name;
1040 p2_a12 := ddp_ext_bank_acct_rec.short_acct_name;
1041 p2_a13 := ddp_ext_bank_acct_rec.acct_type;
1042 p2_a14 := ddp_ext_bank_acct_rec.acct_suffix;
1043 p2_a15 := ddp_ext_bank_acct_rec.description;
1044 p2_a16 := ddp_ext_bank_acct_rec.agency_location_code;
1045 p2_a17 := ddp_ext_bank_acct_rec.foreign_payment_use_flag;
1046 p2_a18 := ddp_ext_bank_acct_rec.exchange_rate_agreement_num;
1047 p2_a19 := ddp_ext_bank_acct_rec.exchange_rate_agreement_type;
1048 p2_a20 := ddp_ext_bank_acct_rec.exchange_rate;
1049 p2_a21 := ddp_ext_bank_acct_rec.payment_factor_flag;
1050 p2_a22 := ddp_ext_bank_acct_rec.status;
1051 p2_a23 := ddp_ext_bank_acct_rec.end_date;
1052 p2_a24 := ddp_ext_bank_acct_rec.start_date;
1053 p2_a25 := ddp_ext_bank_acct_rec.hedging_contract_reference;
1054 p2_a26 := ddp_ext_bank_acct_rec.attribute_category;
1055 p2_a27 := ddp_ext_bank_acct_rec.attribute1;
1056 p2_a28 := ddp_ext_bank_acct_rec.attribute2;
1057 p2_a29 := ddp_ext_bank_acct_rec.attribute3;
1058 p2_a30 := ddp_ext_bank_acct_rec.attribute4;
1059 p2_a31 := ddp_ext_bank_acct_rec.attribute5;
1060 p2_a32 := ddp_ext_bank_acct_rec.attribute6;
1061 p2_a33 := ddp_ext_bank_acct_rec.attribute7;
1062 p2_a34 := ddp_ext_bank_acct_rec.attribute8;
1063 p2_a35 := ddp_ext_bank_acct_rec.attribute9;
1064 p2_a36 := ddp_ext_bank_acct_rec.attribute10;
1065 p2_a37 := ddp_ext_bank_acct_rec.attribute11;
1066 p2_a38 := ddp_ext_bank_acct_rec.attribute12;
1067 p2_a39 := ddp_ext_bank_acct_rec.attribute13;
1068 p2_a40 := ddp_ext_bank_acct_rec.attribute14;
1069 p2_a41 := ddp_ext_bank_acct_rec.attribute15;
1070 p2_a42 := ddp_ext_bank_acct_rec.object_version_number;
1071 p2_a43 := ddp_ext_bank_acct_rec.secondary_account_reference;
1072
1073
1074
1075
1076 p6_a0 := ddx_response.result_code;
1077 p6_a1 := ddx_response.result_category;
1078 p6_a2 := ddx_response.result_message;
1079 end;
1080
1081 procedure get_ext_bank_acct(p_api_version NUMBER
1082 , p_init_msg_list VARCHAR2
1083 , p_bankacct_id NUMBER
1084 , x_return_status out nocopy VARCHAR2
1085 , x_msg_count out nocopy NUMBER
1086 , x_msg_data out nocopy VARCHAR2
1087 , p6_a0 out nocopy NUMBER
1088 , p6_a1 out nocopy VARCHAR2
1089 , p6_a2 out nocopy NUMBER
1090 , p6_a3 out nocopy NUMBER
1091 , p6_a4 out nocopy NUMBER
1092 , p6_a5 out nocopy VARCHAR2
1093 , p6_a6 out nocopy VARCHAR2
1094 , p6_a7 out nocopy VARCHAR2
1095 , p6_a8 out nocopy VARCHAR2
1096 , p6_a9 out nocopy VARCHAR2
1097 , p6_a10 out nocopy VARCHAR2
1098 , p6_a11 out nocopy VARCHAR2
1099 , p6_a12 out nocopy VARCHAR2
1100 , p6_a13 out nocopy VARCHAR2
1104 , p6_a17 out nocopy VARCHAR2
1101 , p6_a14 out nocopy VARCHAR2
1102 , p6_a15 out nocopy VARCHAR2
1103 , p6_a16 out nocopy VARCHAR2
1105 , p6_a18 out nocopy VARCHAR2
1106 , p6_a19 out nocopy VARCHAR2
1107 , p6_a20 out nocopy NUMBER
1108 , p6_a21 out nocopy VARCHAR2
1109 , p6_a22 out nocopy VARCHAR2
1110 , p6_a23 out nocopy DATE
1111 , p6_a24 out nocopy DATE
1112 , p6_a25 out nocopy VARCHAR2
1113 , p6_a26 out nocopy VARCHAR2
1114 , p6_a27 out nocopy VARCHAR2
1115 , p6_a28 out nocopy VARCHAR2
1116 , p6_a29 out nocopy VARCHAR2
1117 , p6_a30 out nocopy VARCHAR2
1118 , p6_a31 out nocopy VARCHAR2
1119 , p6_a32 out nocopy VARCHAR2
1120 , p6_a33 out nocopy VARCHAR2
1121 , p6_a34 out nocopy VARCHAR2
1122 , p6_a35 out nocopy VARCHAR2
1123 , p6_a36 out nocopy VARCHAR2
1124 , p6_a37 out nocopy VARCHAR2
1125 , p6_a38 out nocopy VARCHAR2
1126 , p6_a39 out nocopy VARCHAR2
1127 , p6_a40 out nocopy VARCHAR2
1128 , p6_a41 out nocopy VARCHAR2
1129 , p6_a42 out nocopy NUMBER
1130 , p6_a43 out nocopy VARCHAR2
1131 , p7_a0 out nocopy VARCHAR2
1132 , p7_a1 out nocopy VARCHAR2
1133 , p7_a2 out nocopy VARCHAR2
1134 )
1135
1136 as
1137 ddx_bankacct iby_ext_bankacct_pub.extbankacct_rec_type;
1138 ddx_response iby_fndcpt_common_pub.result_rec_type;
1139 ddindx binary_integer; indx binary_integer;
1140 begin
1141
1142 -- copy data to the local IN or IN-OUT args, if any
1143
1144
1145
1146
1147
1148
1149
1150
1151 -- here's the delegated call to the old PL/SQL routine
1152 iby_ext_bankacct_pub.get_ext_bank_acct(p_api_version,
1153 p_init_msg_list,
1154 p_bankacct_id,
1155 x_return_status,
1156 x_msg_count,
1157 x_msg_data,
1158 ddx_bankacct,
1159 ddx_response);
1160
1161 -- copy data back from the local variables to OUT or IN-OUT args, if any
1162
1163
1164
1165
1166
1167
1168 p6_a0 := ddx_bankacct.bank_account_id;
1169 p6_a1 := ddx_bankacct.country_code;
1170 p6_a2 := ddx_bankacct.branch_id;
1171 p6_a3 := ddx_bankacct.bank_id;
1172 p6_a4 := ddx_bankacct.acct_owner_party_id;
1173 p6_a5 := ddx_bankacct.bank_account_name;
1174 p6_a6 := ddx_bankacct.bank_account_num;
1175 p6_a7 := ddx_bankacct.currency;
1176 p6_a8 := ddx_bankacct.iban;
1177 p6_a9 := ddx_bankacct.check_digits;
1178 p6_a10 := ddx_bankacct.multi_currency_allowed_flag;
1179 p6_a11 := ddx_bankacct.alternate_acct_name;
1180 p6_a12 := ddx_bankacct.short_acct_name;
1181 p6_a13 := ddx_bankacct.acct_type;
1182 p6_a14 := ddx_bankacct.acct_suffix;
1183 p6_a15 := ddx_bankacct.description;
1184 p6_a16 := ddx_bankacct.agency_location_code;
1185 p6_a17 := ddx_bankacct.foreign_payment_use_flag;
1186 p6_a18 := ddx_bankacct.exchange_rate_agreement_num;
1187 p6_a19 := ddx_bankacct.exchange_rate_agreement_type;
1188 p6_a20 := ddx_bankacct.exchange_rate;
1189 p6_a21 := ddx_bankacct.payment_factor_flag;
1190 p6_a22 := ddx_bankacct.status;
1191 p6_a23 := ddx_bankacct.end_date;
1192 p6_a24 := ddx_bankacct.start_date;
1193 p6_a25 := ddx_bankacct.hedging_contract_reference;
1194 p6_a26 := ddx_bankacct.attribute_category;
1195 p6_a27 := ddx_bankacct.attribute1;
1196 p6_a28 := ddx_bankacct.attribute2;
1197 p6_a29 := ddx_bankacct.attribute3;
1198 p6_a30 := ddx_bankacct.attribute4;
1199 p6_a31 := ddx_bankacct.attribute5;
1200 p6_a32 := ddx_bankacct.attribute6;
1201 p6_a33 := ddx_bankacct.attribute7;
1202 p6_a34 := ddx_bankacct.attribute8;
1203 p6_a35 := ddx_bankacct.attribute9;
1204 p6_a36 := ddx_bankacct.attribute10;
1205 p6_a37 := ddx_bankacct.attribute11;
1206 p6_a38 := ddx_bankacct.attribute12;
1207 p6_a39 := ddx_bankacct.attribute13;
1208 p6_a40 := ddx_bankacct.attribute14;
1209 p6_a41 := ddx_bankacct.attribute15;
1210 p6_a42 := ddx_bankacct.object_version_number;
1211 p6_a43 := ddx_bankacct.secondary_account_reference;
1212
1213 p7_a0 := ddx_response.result_code;
1214 p7_a1 := ddx_response.result_category;
1215 p7_a2 := ddx_response.result_message;
1216 end;
1217
1218 procedure get_ext_bank_acct(p_api_version NUMBER
1219 , p_init_msg_list VARCHAR2
1220 , p_bankacct_id NUMBER
1221 , p_sec_key VARCHAR2
1222 , x_return_status out nocopy VARCHAR2
1223 , x_msg_count out nocopy NUMBER
1224 , x_msg_data out nocopy VARCHAR2
1225 , p7_a0 out nocopy NUMBER
1226 , p7_a1 out nocopy VARCHAR2
1227 , p7_a2 out nocopy NUMBER
1228 , p7_a3 out nocopy NUMBER
1229 , p7_a4 out nocopy NUMBER
1230 , p7_a5 out nocopy VARCHAR2
1231 , p7_a6 out nocopy VARCHAR2
1232 , p7_a7 out nocopy VARCHAR2
1233 , p7_a8 out nocopy VARCHAR2
1234 , p7_a9 out nocopy VARCHAR2
1235 , p7_a10 out nocopy VARCHAR2
1236 , p7_a11 out nocopy VARCHAR2
1237 , p7_a12 out nocopy VARCHAR2
1238 , p7_a13 out nocopy VARCHAR2
1239 , p7_a14 out nocopy VARCHAR2
1240 , p7_a15 out nocopy VARCHAR2
1241 , p7_a16 out nocopy VARCHAR2
1242 , p7_a17 out nocopy VARCHAR2
1246 , p7_a21 out nocopy VARCHAR2
1243 , p7_a18 out nocopy VARCHAR2
1244 , p7_a19 out nocopy VARCHAR2
1245 , p7_a20 out nocopy NUMBER
1247 , p7_a22 out nocopy VARCHAR2
1248 , p7_a23 out nocopy DATE
1249 , p7_a24 out nocopy DATE
1250 , p7_a25 out nocopy VARCHAR2
1251 , p7_a26 out nocopy VARCHAR2
1252 , p7_a27 out nocopy VARCHAR2
1253 , p7_a28 out nocopy VARCHAR2
1254 , p7_a29 out nocopy VARCHAR2
1255 , p7_a30 out nocopy VARCHAR2
1256 , p7_a31 out nocopy VARCHAR2
1257 , p7_a32 out nocopy VARCHAR2
1258 , p7_a33 out nocopy VARCHAR2
1259 , p7_a34 out nocopy VARCHAR2
1260 , p7_a35 out nocopy VARCHAR2
1261 , p7_a36 out nocopy VARCHAR2
1262 , p7_a37 out nocopy VARCHAR2
1263 , p7_a38 out nocopy VARCHAR2
1264 , p7_a39 out nocopy VARCHAR2
1265 , p7_a40 out nocopy VARCHAR2
1266 , p7_a41 out nocopy VARCHAR2
1267 , p7_a42 out nocopy NUMBER
1268 , p7_a43 out nocopy VARCHAR2
1269 , p8_a0 out nocopy VARCHAR2
1270 , p8_a1 out nocopy VARCHAR2
1271 , p8_a2 out nocopy VARCHAR2
1272 )
1273
1274 as
1275 ddx_bankacct iby_ext_bankacct_pub.extbankacct_rec_type;
1276 ddx_response iby_fndcpt_common_pub.result_rec_type;
1277 ddindx binary_integer; indx binary_integer;
1278 begin
1279
1280 -- copy data to the local IN or IN-OUT args, if any
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290 -- here's the delegated call to the old PL/SQL routine
1291 iby_ext_bankacct_pub.get_ext_bank_acct(p_api_version,
1292 p_init_msg_list,
1293 p_bankacct_id,
1294 p_sec_key,
1295 x_return_status,
1296 x_msg_count,
1297 x_msg_data,
1298 ddx_bankacct,
1299 ddx_response);
1300
1301 -- copy data back from the local variables to OUT or IN-OUT args, if any
1302
1303
1304
1305
1306
1307
1308
1309 p7_a0 := ddx_bankacct.bank_account_id;
1310 p7_a1 := ddx_bankacct.country_code;
1311 p7_a2 := ddx_bankacct.branch_id;
1312 p7_a3 := ddx_bankacct.bank_id;
1313 p7_a4 := ddx_bankacct.acct_owner_party_id;
1314 p7_a5 := ddx_bankacct.bank_account_name;
1315 p7_a6 := ddx_bankacct.bank_account_num;
1316 p7_a7 := ddx_bankacct.currency;
1317 p7_a8 := ddx_bankacct.iban;
1318 p7_a9 := ddx_bankacct.check_digits;
1319 p7_a10 := ddx_bankacct.multi_currency_allowed_flag;
1320 p7_a11 := ddx_bankacct.alternate_acct_name;
1321 p7_a12 := ddx_bankacct.short_acct_name;
1322 p7_a13 := ddx_bankacct.acct_type;
1323 p7_a14 := ddx_bankacct.acct_suffix;
1324 p7_a15 := ddx_bankacct.description;
1325 p7_a16 := ddx_bankacct.agency_location_code;
1326 p7_a17 := ddx_bankacct.foreign_payment_use_flag;
1327 p7_a18 := ddx_bankacct.exchange_rate_agreement_num;
1328 p7_a19 := ddx_bankacct.exchange_rate_agreement_type;
1329 p7_a20 := ddx_bankacct.exchange_rate;
1330 p7_a21 := ddx_bankacct.payment_factor_flag;
1331 p7_a22 := ddx_bankacct.status;
1332 p7_a23 := ddx_bankacct.end_date;
1333 p7_a24 := ddx_bankacct.start_date;
1334 p7_a25 := ddx_bankacct.hedging_contract_reference;
1335 p7_a26 := ddx_bankacct.attribute_category;
1336 p7_a27 := ddx_bankacct.attribute1;
1337 p7_a28 := ddx_bankacct.attribute2;
1338 p7_a29 := ddx_bankacct.attribute3;
1339 p7_a30 := ddx_bankacct.attribute4;
1340 p7_a31 := ddx_bankacct.attribute5;
1341 p7_a32 := ddx_bankacct.attribute6;
1342 p7_a33 := ddx_bankacct.attribute7;
1343 p7_a34 := ddx_bankacct.attribute8;
1344 p7_a35 := ddx_bankacct.attribute9;
1345 p7_a36 := ddx_bankacct.attribute10;
1346 p7_a37 := ddx_bankacct.attribute11;
1347 p7_a38 := ddx_bankacct.attribute12;
1348 p7_a39 := ddx_bankacct.attribute13;
1349 p7_a40 := ddx_bankacct.attribute14;
1350 p7_a41 := ddx_bankacct.attribute15;
1351 p7_a42 := ddx_bankacct.object_version_number;
1352 p7_a43 := ddx_bankacct.secondary_account_reference;
1353
1354 p8_a0 := ddx_response.result_code;
1355 p8_a1 := ddx_response.result_category;
1356 p8_a2 := ddx_response.result_message;
1357 end;
1358
1359 procedure set_ext_bank_acct_dates(p_api_version NUMBER
1360 , p_init_msg_list VARCHAR2
1361 , p_acct_id NUMBER
1362 , p_start_date date
1363 , p_end_date date
1364 , p_object_version_number in out nocopy NUMBER
1365 , x_return_status out nocopy VARCHAR2
1366 , x_msg_count out nocopy NUMBER
1367 , x_msg_data out nocopy VARCHAR2
1368 , p9_a0 out nocopy VARCHAR2
1369 , p9_a1 out nocopy VARCHAR2
1370 , p9_a2 out nocopy VARCHAR2
1371 )
1372
1373 as
1374 ddp_start_date date;
1375 ddp_end_date date;
1376 ddx_response iby_fndcpt_common_pub.result_rec_type;
1377 ddindx binary_integer; indx binary_integer;
1378 begin
1379
1380 -- copy data to the local IN or IN-OUT args, if any
1381
1382
1383
1384 ddp_start_date := rosetta_g_miss_date_in_map(p_start_date);
1385
1386 ddp_end_date := rosetta_g_miss_date_in_map(p_end_date);
1390
1387
1388
1389
1391
1392
1393 -- here's the delegated call to the old PL/SQL routine
1394 iby_ext_bankacct_pub.set_ext_bank_acct_dates(p_api_version,
1395 p_init_msg_list,
1396 p_acct_id,
1397 ddp_start_date,
1398 ddp_end_date,
1399 p_object_version_number,
1400 x_return_status,
1401 x_msg_count,
1402 x_msg_data,
1403 ddx_response);
1404
1405 -- copy data back from the local variables to OUT or IN-OUT args, if any
1406
1407
1408
1409
1410
1411
1412
1413
1414
1415 p9_a0 := ddx_response.result_code;
1416 p9_a1 := ddx_response.result_category;
1417 p9_a2 := ddx_response.result_message;
1418 end;
1419
1420 procedure check_ext_acct_exist(p_api_version NUMBER
1421 , p_init_msg_list VARCHAR2
1422 , p2_a0 NUMBER
1423 , p2_a1 VARCHAR2
1424 , p2_a2 NUMBER
1425 , p2_a3 NUMBER
1426 , p2_a4 NUMBER
1427 , p2_a5 VARCHAR2
1428 , p2_a6 VARCHAR2
1429 , p2_a7 VARCHAR2
1430 , p2_a8 VARCHAR2
1431 , p2_a9 VARCHAR2
1432 , p2_a10 VARCHAR2
1433 , p2_a11 VARCHAR2
1434 , p2_a12 VARCHAR2
1435 , p2_a13 VARCHAR2
1436 , p2_a14 VARCHAR2
1437 , p2_a15 VARCHAR2
1438 , p2_a16 VARCHAR2
1439 , p2_a17 VARCHAR2
1440 , p2_a18 VARCHAR2
1441 , p2_a19 VARCHAR2
1442 , p2_a20 NUMBER
1443 , p2_a21 VARCHAR2
1444 , p2_a22 VARCHAR2
1445 , p2_a23 DATE
1446 , p2_a24 DATE
1447 , p2_a25 VARCHAR2
1448 , p2_a26 VARCHAR2
1449 , p2_a27 VARCHAR2
1450 , p2_a28 VARCHAR2
1451 , p2_a29 VARCHAR2
1452 , p2_a30 VARCHAR2
1453 , p2_a31 VARCHAR2
1454 , p2_a32 VARCHAR2
1455 , p2_a33 VARCHAR2
1456 , p2_a34 VARCHAR2
1457 , p2_a35 VARCHAR2
1458 , p2_a36 VARCHAR2
1459 , p2_a37 VARCHAR2
1460 , p2_a38 VARCHAR2
1461 , p2_a39 VARCHAR2
1462 , p2_a40 VARCHAR2
1463 , p2_a41 VARCHAR2
1464 , p2_a42 NUMBER
1465 , p2_a43 VARCHAR2
1466 , x_acct_id out nocopy NUMBER
1467 , x_start_date out nocopy DATE
1468 , x_end_date out nocopy DATE
1469 , x_return_status out nocopy VARCHAR2
1470 , x_msg_count out nocopy NUMBER
1471 , x_msg_data out nocopy VARCHAR2
1472 , p9_a0 out nocopy VARCHAR2
1473 , p9_a1 out nocopy VARCHAR2
1474 , p9_a2 out nocopy VARCHAR2
1475 )
1476
1477 as
1478 ddp_ext_bank_acct_rec iby_ext_bankacct_pub.extbankacct_rec_type;
1479 ddx_response iby_fndcpt_common_pub.result_rec_type;
1480 ddindx binary_integer; indx binary_integer;
1481 begin
1482
1483 -- copy data to the local IN or IN-OUT args, if any
1484
1485
1486 ddp_ext_bank_acct_rec.bank_account_id := p2_a0;
1487 ddp_ext_bank_acct_rec.country_code := p2_a1;
1488 ddp_ext_bank_acct_rec.branch_id := p2_a2;
1489 ddp_ext_bank_acct_rec.bank_id := p2_a3;
1490 ddp_ext_bank_acct_rec.acct_owner_party_id := p2_a4;
1491 ddp_ext_bank_acct_rec.bank_account_name := p2_a5;
1492 ddp_ext_bank_acct_rec.bank_account_num := p2_a6;
1493 ddp_ext_bank_acct_rec.currency := p2_a7;
1494 ddp_ext_bank_acct_rec.iban := p2_a8;
1495 ddp_ext_bank_acct_rec.check_digits := p2_a9;
1496 ddp_ext_bank_acct_rec.multi_currency_allowed_flag := p2_a10;
1497 ddp_ext_bank_acct_rec.alternate_acct_name := p2_a11;
1498 ddp_ext_bank_acct_rec.short_acct_name := p2_a12;
1499 ddp_ext_bank_acct_rec.acct_type := p2_a13;
1500 ddp_ext_bank_acct_rec.acct_suffix := p2_a14;
1501 ddp_ext_bank_acct_rec.description := p2_a15;
1502 ddp_ext_bank_acct_rec.agency_location_code := p2_a16;
1503 ddp_ext_bank_acct_rec.foreign_payment_use_flag := p2_a17;
1504 ddp_ext_bank_acct_rec.exchange_rate_agreement_num := p2_a18;
1505 ddp_ext_bank_acct_rec.exchange_rate_agreement_type := p2_a19;
1506 ddp_ext_bank_acct_rec.exchange_rate := p2_a20;
1507 ddp_ext_bank_acct_rec.payment_factor_flag := p2_a21;
1508 ddp_ext_bank_acct_rec.status := p2_a22;
1509 ddp_ext_bank_acct_rec.end_date := rosetta_g_miss_date_in_map(p2_a23);
1510 ddp_ext_bank_acct_rec.start_date := rosetta_g_miss_date_in_map(p2_a24);
1511 ddp_ext_bank_acct_rec.hedging_contract_reference := p2_a25;
1512 ddp_ext_bank_acct_rec.attribute_category := p2_a26;
1513 ddp_ext_bank_acct_rec.attribute1 := p2_a27;
1514 ddp_ext_bank_acct_rec.attribute2 := p2_a28;
1515 ddp_ext_bank_acct_rec.attribute3 := p2_a29;
1516 ddp_ext_bank_acct_rec.attribute4 := p2_a30;
1517 ddp_ext_bank_acct_rec.attribute5 := p2_a31;
1518 ddp_ext_bank_acct_rec.attribute6 := p2_a32;
1519 ddp_ext_bank_acct_rec.attribute7 := p2_a33;
1520 ddp_ext_bank_acct_rec.attribute8 := p2_a34;
1521 ddp_ext_bank_acct_rec.attribute9 := p2_a35;
1522 ddp_ext_bank_acct_rec.attribute10 := p2_a36;
1523 ddp_ext_bank_acct_rec.attribute11 := p2_a37;
1524 ddp_ext_bank_acct_rec.attribute12 := p2_a38;
1525 ddp_ext_bank_acct_rec.attribute13 := p2_a39;
1526 ddp_ext_bank_acct_rec.attribute14 := p2_a40;
1527 ddp_ext_bank_acct_rec.attribute15 := p2_a41;
1528 ddp_ext_bank_acct_rec.object_version_number := p2_a42;
1529 ddp_ext_bank_acct_rec.secondary_account_reference := p2_a43;
1530
1531
1532
1533
1534
1535
1536
1537
1538 -- here's the delegated call to the old PL/SQL routine
1539 iby_ext_bankacct_pub.check_ext_acct_exist(p_api_version,
1540 p_init_msg_list,
1541 ddp_ext_bank_acct_rec,
1542 x_acct_id,
1543 x_start_date,
1544 x_end_date,
1545 x_return_status,
1546 x_msg_count,
1547 x_msg_data,
1548 ddx_response);
1549
1550 -- copy data back from the local variables to OUT or IN-OUT args, if any
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560 p9_a0 := ddx_response.result_code;
1561 p9_a1 := ddx_response.result_category;
1562 p9_a2 := ddx_response.result_message;
1563 end;
1564
1565 procedure create_intermediary_acct(p_api_version NUMBER
1566 , p_init_msg_list VARCHAR2
1567 , p2_a0 NUMBER
1568 , p2_a1 NUMBER
1569 , p2_a2 VARCHAR2
1570 , p2_a3 VARCHAR2
1571 , p2_a4 VARCHAR2
1572 , p2_a5 VARCHAR2
1573 , p2_a6 VARCHAR2
1574 , p2_a7 VARCHAR2
1575 , p2_a8 VARCHAR2
1576 , p2_a9 VARCHAR2
1577 , p2_a10 VARCHAR2
1578 , p2_a11 VARCHAR2
1579 , p2_a12 NUMBER
1580 , x_intermediary_acct_id out nocopy NUMBER
1581 , x_return_status out nocopy VARCHAR2
1582 , x_msg_count out nocopy NUMBER
1583 , x_msg_data out nocopy VARCHAR2
1584 , p7_a0 out nocopy VARCHAR2
1585 , p7_a1 out nocopy VARCHAR2
1586 , p7_a2 out nocopy VARCHAR2
1587 )
1588
1589 as
1590 ddp_intermed_acct_rec iby_ext_bankacct_pub.intermediaryacct_rec_type;
1591 ddx_response iby_fndcpt_common_pub.result_rec_type;
1592 ddindx binary_integer; indx binary_integer;
1593 begin
1594
1595 -- copy data to the local IN or IN-OUT args, if any
1596
1597
1598 ddp_intermed_acct_rec.intermediary_acct_id := p2_a0;
1599 ddp_intermed_acct_rec.bank_account_id := p2_a1;
1600 ddp_intermed_acct_rec.country_code := p2_a2;
1601 ddp_intermed_acct_rec.bank_name := p2_a3;
1602 ddp_intermed_acct_rec.city := p2_a4;
1603 ddp_intermed_acct_rec.bank_code := p2_a5;
1604 ddp_intermed_acct_rec.branch_number := p2_a6;
1605 ddp_intermed_acct_rec.bic := p2_a7;
1606 ddp_intermed_acct_rec.account_number := p2_a8;
1607 ddp_intermed_acct_rec.check_digits := p2_a9;
1608 ddp_intermed_acct_rec.iban := p2_a10;
1609 ddp_intermed_acct_rec.comments := p2_a11;
1610 ddp_intermed_acct_rec.object_version_number := p2_a12;
1611
1612
1613
1614
1615
1616
1617 -- here's the delegated call to the old PL/SQL routine
1618 iby_ext_bankacct_pub.create_intermediary_acct(p_api_version,
1619 p_init_msg_list,
1620 ddp_intermed_acct_rec,
1621 x_intermediary_acct_id,
1622 x_return_status,
1623 x_msg_count,
1624 x_msg_data,
1625 ddx_response);
1626
1627 -- copy data back from the local variables to OUT or IN-OUT args, if any
1628
1629
1630
1631
1632
1633
1634
1635 p7_a0 := ddx_response.result_code;
1636 p7_a1 := ddx_response.result_category;
1637 p7_a2 := ddx_response.result_message;
1638 end;
1639
1640 procedure update_intermediary_acct(p_api_version NUMBER
1641 , p_init_msg_list VARCHAR2
1642 , p2_a0 in out nocopy NUMBER
1643 , p2_a1 in out nocopy NUMBER
1644 , p2_a2 in out nocopy VARCHAR2
1645 , p2_a3 in out nocopy VARCHAR2
1646 , p2_a4 in out nocopy VARCHAR2
1647 , p2_a5 in out nocopy VARCHAR2
1648 , p2_a6 in out nocopy VARCHAR2
1649 , p2_a7 in out nocopy VARCHAR2
1650 , p2_a8 in out nocopy VARCHAR2
1651 , p2_a9 in out nocopy VARCHAR2
1652 , p2_a10 in out nocopy VARCHAR2
1653 , p2_a11 in out nocopy VARCHAR2
1654 , p2_a12 in out nocopy NUMBER
1655 , x_return_status out nocopy VARCHAR2
1656 , x_msg_count out nocopy NUMBER
1657 , x_msg_data out nocopy VARCHAR2
1658 , p6_a0 out nocopy VARCHAR2
1659 , p6_a1 out nocopy VARCHAR2
1660 , p6_a2 out nocopy VARCHAR2
1661 )
1662
1663 as
1664 ddp_intermed_acct_rec iby_ext_bankacct_pub.intermediaryacct_rec_type;
1665 ddx_response iby_fndcpt_common_pub.result_rec_type;
1666 ddindx binary_integer; indx binary_integer;
1667 begin
1668
1669 -- copy data to the local IN or IN-OUT args, if any
1670
1671
1672 ddp_intermed_acct_rec.intermediary_acct_id := p2_a0;
1673 ddp_intermed_acct_rec.bank_account_id := p2_a1;
1674 ddp_intermed_acct_rec.country_code := p2_a2;
1675 ddp_intermed_acct_rec.bank_name := p2_a3;
1676 ddp_intermed_acct_rec.city := p2_a4;
1677 ddp_intermed_acct_rec.bank_code := p2_a5;
1678 ddp_intermed_acct_rec.branch_number := p2_a6;
1679 ddp_intermed_acct_rec.bic := p2_a7;
1680 ddp_intermed_acct_rec.account_number := p2_a8;
1681 ddp_intermed_acct_rec.check_digits := p2_a9;
1685
1682 ddp_intermed_acct_rec.iban := p2_a10;
1683 ddp_intermed_acct_rec.comments := p2_a11;
1684 ddp_intermed_acct_rec.object_version_number := p2_a12;
1686
1687
1688
1689
1690 -- here's the delegated call to the old PL/SQL routine
1691 iby_ext_bankacct_pub.update_intermediary_acct(p_api_version,
1692 p_init_msg_list,
1693 ddp_intermed_acct_rec,
1694 x_return_status,
1695 x_msg_count,
1696 x_msg_data,
1697 ddx_response);
1698
1699 -- copy data back from the local variables to OUT or IN-OUT args, if any
1700
1701
1702 p2_a0 := ddp_intermed_acct_rec.intermediary_acct_id;
1703 p2_a1 := ddp_intermed_acct_rec.bank_account_id;
1704 p2_a2 := ddp_intermed_acct_rec.country_code;
1705 p2_a3 := ddp_intermed_acct_rec.bank_name;
1706 p2_a4 := ddp_intermed_acct_rec.city;
1707 p2_a5 := ddp_intermed_acct_rec.bank_code;
1708 p2_a6 := ddp_intermed_acct_rec.branch_number;
1709 p2_a7 := ddp_intermed_acct_rec.bic;
1710 p2_a8 := ddp_intermed_acct_rec.account_number;
1711 p2_a9 := ddp_intermed_acct_rec.check_digits;
1712 p2_a10 := ddp_intermed_acct_rec.iban;
1713 p2_a11 := ddp_intermed_acct_rec.comments;
1714 p2_a12 := ddp_intermed_acct_rec.object_version_number;
1715
1716
1717
1718
1719 p6_a0 := ddx_response.result_code;
1720 p6_a1 := ddx_response.result_category;
1721 p6_a2 := ddx_response.result_message;
1722 end;
1723
1724 procedure add_joint_account_owner(p_api_version NUMBER
1725 , p_init_msg_list VARCHAR2
1726 , p_bank_account_id NUMBER
1727 , p_acct_owner_party_id NUMBER
1728 , x_joint_acct_owner_id out nocopy NUMBER
1729 , x_return_status out nocopy VARCHAR2
1730 , x_msg_count out nocopy NUMBER
1731 , x_msg_data out nocopy VARCHAR2
1732 , p8_a0 out nocopy VARCHAR2
1733 , p8_a1 out nocopy VARCHAR2
1734 , p8_a2 out nocopy VARCHAR2
1735 )
1736
1737 as
1738 ddx_response iby_fndcpt_common_pub.result_rec_type;
1739 ddindx binary_integer; indx binary_integer;
1740 begin
1741
1742 -- copy data to the local IN or IN-OUT args, if any
1743
1744
1745
1746
1747
1748
1749
1750
1751
1752 -- here's the delegated call to the old PL/SQL routine
1753 iby_ext_bankacct_pub.add_joint_account_owner(p_api_version,
1754 p_init_msg_list,
1755 p_bank_account_id,
1756 p_acct_owner_party_id,
1757 x_joint_acct_owner_id,
1758 x_return_status,
1759 x_msg_count,
1760 x_msg_data,
1761 ddx_response);
1762
1763 -- copy data back from the local variables to OUT or IN-OUT args, if any
1764
1765
1766
1767
1768
1769
1770
1771
1772 p8_a0 := ddx_response.result_code;
1773 p8_a1 := ddx_response.result_category;
1774 p8_a2 := ddx_response.result_message;
1775 end;
1776
1777 procedure set_joint_acct_owner_end_date(p_api_version NUMBER
1778 , p_init_msg_list VARCHAR2
1779 , p_acct_owner_id NUMBER
1780 , p_end_date date
1781 , p_object_version_number in out nocopy NUMBER
1782 , x_return_status out nocopy VARCHAR2
1783 , x_msg_count out nocopy NUMBER
1784 , x_msg_data out nocopy VARCHAR2
1785 , p8_a0 out nocopy VARCHAR2
1786 , p8_a1 out nocopy VARCHAR2
1787 , p8_a2 out nocopy VARCHAR2
1788 )
1789
1790 as
1791 ddp_end_date date;
1792 ddx_response iby_fndcpt_common_pub.result_rec_type;
1793 ddindx binary_integer; indx binary_integer;
1794 begin
1795
1796 -- copy data to the local IN or IN-OUT args, if any
1797
1798
1799
1800 ddp_end_date := rosetta_g_miss_date_in_map(p_end_date);
1801
1802
1803
1804
1805
1806
1807 -- here's the delegated call to the old PL/SQL routine
1808 iby_ext_bankacct_pub.set_joint_acct_owner_end_date(p_api_version,
1809 p_init_msg_list,
1810 p_acct_owner_id,
1811 ddp_end_date,
1812 p_object_version_number,
1813 x_return_status,
1814 x_msg_count,
1815 x_msg_data,
1816 ddx_response);
1817
1818 -- copy data back from the local variables to OUT or IN-OUT args, if any
1819
1820
1821
1822
1823
1824
1825
1826
1827 p8_a0 := ddx_response.result_code;
1828 p8_a1 := ddx_response.result_category;
1829 p8_a2 := ddx_response.result_message;
1830 end;
1831
1832 procedure change_primary_acct_owner(p_api_version NUMBER
1833 , p_init_msg_list VARCHAR2
1834 , p_bank_acct_id NUMBER
1835 , p_acct_owner_party_id NUMBER
1836 , x_return_status out nocopy VARCHAR2
1837 , x_msg_count out nocopy NUMBER
1838 , x_msg_data out nocopy VARCHAR2
1839 , p7_a0 out nocopy VARCHAR2
1840 , p7_a1 out nocopy VARCHAR2
1841 , p7_a2 out nocopy VARCHAR2
1842 )
1843
1844 as
1845 ddx_response iby_fndcpt_common_pub.result_rec_type;
1846 ddindx binary_integer; indx binary_integer;
1847 begin
1848
1849 -- copy data to the local IN or IN-OUT args, if any
1850
1851
1852
1853
1854
1855
1856
1857
1858 -- here's the delegated call to the old PL/SQL routine
1859 iby_ext_bankacct_pub.change_primary_acct_owner(p_api_version,
1860 p_init_msg_list,
1861 p_bank_acct_id,
1862 p_acct_owner_party_id,
1863 x_return_status,
1864 x_msg_count,
1865 x_msg_data,
1866 ddx_response);
1867
1871
1868 -- copy data back from the local variables to OUT or IN-OUT args, if any
1869
1870
1872
1873
1874
1875
1876 p7_a0 := ddx_response.result_code;
1877 p7_a1 := ddx_response.result_category;
1878 p7_a2 := ddx_response.result_message;
1879 end;
1880
1881 end iby_ext_bankacct_pub_w;