[Home] [Help]
PACKAGE BODY: APPS.OKL_SEC_INVESTOR_REVENUE_PVT_W
Source
1 package body okl_sec_investor_revenue_pvt_w as
2 /* $Header: OKLESZRB.pls 120.2 2005/10/30 03:21:04 appldev noship $ */
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
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure rosetta_table_copy_in_p20(t out nocopy okl_sec_investor_revenue_pvt.szr_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_VARCHAR2_TABLE_100
25 , a3 JTF_NUMBER_TABLE
26 , a4 JTF_NUMBER_TABLE
27 , a5 JTF_NUMBER_TABLE
28 , a6 JTF_NUMBER_TABLE
29 , a7 JTF_DATE_TABLE
30 , a8 JTF_DATE_TABLE
31 , a9 JTF_DATE_TABLE
32 , a10 JTF_VARCHAR2_TABLE_100
33 , a11 JTF_VARCHAR2_TABLE_100
34 ) as
35 ddindx binary_integer; indx binary_integer;
36 begin
37 if a0 is not null and a0.count > 0 then
38 if a0.count > 0 then
39 indx := a0.first;
40 ddindx := 1;
41 while true loop
42 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
43 t(ddindx).top_line_id := rosetta_g_miss_num_map(a1(indx));
44 t(ddindx).kle_sty_subclass := a2(indx);
45 t(ddindx).kle_percent_stake := rosetta_g_miss_num_map(a3(indx));
46 t(ddindx).dnz_chr_id := rosetta_g_miss_num_map(a4(indx));
47 t(ddindx).kle_amount_stake := rosetta_g_miss_num_map(a5(indx));
48 t(ddindx).cle_lse_id := rosetta_g_miss_num_map(a6(indx));
49 t(ddindx).cle_date_terminated := rosetta_g_miss_date_in_map(a7(indx));
50 t(ddindx).cle_start_date := rosetta_g_miss_date_in_map(a8(indx));
51 t(ddindx).cle_end_date := rosetta_g_miss_date_in_map(a9(indx));
52 t(ddindx).cle_currency_code := a10(indx);
53 t(ddindx).cle_sts_code := a11(indx);
54 ddindx := ddindx+1;
55 if a0.last =indx
56 then exit;
57 end if;
58 indx := a0.next(indx);
59 end loop;
60 end if;
61 end if;
62 end rosetta_table_copy_in_p20;
63 procedure rosetta_table_copy_out_p20(t okl_sec_investor_revenue_pvt.szr_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
64 , a1 out nocopy JTF_NUMBER_TABLE
65 , a2 out nocopy JTF_VARCHAR2_TABLE_100
66 , a3 out nocopy JTF_NUMBER_TABLE
67 , a4 out nocopy JTF_NUMBER_TABLE
68 , a5 out nocopy JTF_NUMBER_TABLE
69 , a6 out nocopy JTF_NUMBER_TABLE
70 , a7 out nocopy JTF_DATE_TABLE
71 , a8 out nocopy JTF_DATE_TABLE
72 , a9 out nocopy JTF_DATE_TABLE
73 , a10 out nocopy JTF_VARCHAR2_TABLE_100
74 , a11 out nocopy JTF_VARCHAR2_TABLE_100
75 ) as
76 ddindx binary_integer; indx binary_integer;
77 begin
78 if t is null or t.count = 0 then
79 a0 := JTF_NUMBER_TABLE();
80 a1 := JTF_NUMBER_TABLE();
81 a2 := JTF_VARCHAR2_TABLE_100();
82 a3 := JTF_NUMBER_TABLE();
83 a4 := JTF_NUMBER_TABLE();
84 a5 := JTF_NUMBER_TABLE();
85 a6 := JTF_NUMBER_TABLE();
86 a7 := JTF_DATE_TABLE();
87 a8 := JTF_DATE_TABLE();
88 a9 := JTF_DATE_TABLE();
89 a10 := JTF_VARCHAR2_TABLE_100();
90 a11 := JTF_VARCHAR2_TABLE_100();
91 else
92 a0 := JTF_NUMBER_TABLE();
93 a1 := JTF_NUMBER_TABLE();
94 a2 := JTF_VARCHAR2_TABLE_100();
95 a3 := JTF_NUMBER_TABLE();
96 a4 := JTF_NUMBER_TABLE();
97 a5 := JTF_NUMBER_TABLE();
98 a6 := JTF_NUMBER_TABLE();
99 a7 := JTF_DATE_TABLE();
100 a8 := JTF_DATE_TABLE();
101 a9 := JTF_DATE_TABLE();
102 a10 := JTF_VARCHAR2_TABLE_100();
103 a11 := JTF_VARCHAR2_TABLE_100();
104 if t.count > 0 then
105 a0.extend(t.count);
106 a1.extend(t.count);
107 a2.extend(t.count);
108 a3.extend(t.count);
109 a4.extend(t.count);
110 a5.extend(t.count);
111 a6.extend(t.count);
112 a7.extend(t.count);
113 a8.extend(t.count);
114 a9.extend(t.count);
115 a10.extend(t.count);
116 a11.extend(t.count);
117 ddindx := t.first;
118 indx := 1;
119 while true loop
120 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
121 a1(indx) := rosetta_g_miss_num_map(t(ddindx).top_line_id);
122 a2(indx) := t(ddindx).kle_sty_subclass;
123 a3(indx) := rosetta_g_miss_num_map(t(ddindx).kle_percent_stake);
124 a4(indx) := rosetta_g_miss_num_map(t(ddindx).dnz_chr_id);
125 a5(indx) := rosetta_g_miss_num_map(t(ddindx).kle_amount_stake);
126 a6(indx) := rosetta_g_miss_num_map(t(ddindx).cle_lse_id);
127 a7(indx) := t(ddindx).cle_date_terminated;
128 a8(indx) := t(ddindx).cle_start_date;
129 a9(indx) := t(ddindx).cle_end_date;
130 a10(indx) := t(ddindx).cle_currency_code;
131 a11(indx) := t(ddindx).cle_sts_code;
132 indx := indx+1;
133 if t.last =ddindx
134 then exit;
135 end if;
136 ddindx := t.next(ddindx);
137 end loop;
138 end if;
139 end if;
140 end rosetta_table_copy_out_p20;
141
142 procedure create_investor_revenue(p_api_version NUMBER
143 , p_init_msg_list VARCHAR2
144 , x_return_status out nocopy VARCHAR2
145 , x_msg_count out nocopy NUMBER
146 , x_msg_data out nocopy VARCHAR2
147 , p6_a0 out nocopy NUMBER
148 , p6_a1 out nocopy NUMBER
149 , p6_a2 out nocopy VARCHAR2
150 , p6_a3 out nocopy NUMBER
151 , p6_a4 out nocopy NUMBER
152 , p6_a5 out nocopy NUMBER
153 , p6_a6 out nocopy NUMBER
154 , p6_a7 out nocopy DATE
155 , p6_a8 out nocopy DATE
156 , p6_a9 out nocopy DATE
157 , p6_a10 out nocopy VARCHAR2
158 , p6_a11 out nocopy VARCHAR2
159 , p5_a0 NUMBER := 0-1962.0724
160 , p5_a1 NUMBER := 0-1962.0724
161 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
162 , p5_a3 NUMBER := 0-1962.0724
163 , p5_a4 NUMBER := 0-1962.0724
164 , p5_a5 NUMBER := 0-1962.0724
165 , p5_a6 NUMBER := 0-1962.0724
166 , p5_a7 DATE := fnd_api.g_miss_date
167 , p5_a8 DATE := fnd_api.g_miss_date
168 , p5_a9 DATE := fnd_api.g_miss_date
169 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
170 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
171 )
172
173 as
174 ddp_szr_rec okl_sec_investor_revenue_pvt.szr_rec_type;
175 ddx_szr_rec okl_sec_investor_revenue_pvt.szr_rec_type;
176 ddindx binary_integer; indx binary_integer;
177 begin
178
179 -- copy data to the local IN or IN-OUT args, if any
180
181
182
183
184
185 ddp_szr_rec.id := rosetta_g_miss_num_map(p5_a0);
186 ddp_szr_rec.top_line_id := rosetta_g_miss_num_map(p5_a1);
187 ddp_szr_rec.kle_sty_subclass := p5_a2;
188 ddp_szr_rec.kle_percent_stake := rosetta_g_miss_num_map(p5_a3);
189 ddp_szr_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a4);
190 ddp_szr_rec.kle_amount_stake := rosetta_g_miss_num_map(p5_a5);
191 ddp_szr_rec.cle_lse_id := rosetta_g_miss_num_map(p5_a6);
192 ddp_szr_rec.cle_date_terminated := rosetta_g_miss_date_in_map(p5_a7);
193 ddp_szr_rec.cle_start_date := rosetta_g_miss_date_in_map(p5_a8);
194 ddp_szr_rec.cle_end_date := rosetta_g_miss_date_in_map(p5_a9);
195 ddp_szr_rec.cle_currency_code := p5_a10;
196 ddp_szr_rec.cle_sts_code := p5_a11;
197
198
199 -- here's the delegated call to the old PL/SQL routine
200 okl_sec_investor_revenue_pvt.create_investor_revenue(p_api_version,
201 p_init_msg_list,
202 x_return_status,
203 x_msg_count,
204 x_msg_data,
205 ddp_szr_rec,
206 ddx_szr_rec);
207
208 -- copy data back from the local variables to OUT or IN-OUT args, if any
209
210
211
212
213
214
215 p6_a0 := rosetta_g_miss_num_map(ddx_szr_rec.id);
216 p6_a1 := rosetta_g_miss_num_map(ddx_szr_rec.top_line_id);
217 p6_a2 := ddx_szr_rec.kle_sty_subclass;
218 p6_a3 := rosetta_g_miss_num_map(ddx_szr_rec.kle_percent_stake);
219 p6_a4 := rosetta_g_miss_num_map(ddx_szr_rec.dnz_chr_id);
220 p6_a5 := rosetta_g_miss_num_map(ddx_szr_rec.kle_amount_stake);
221 p6_a6 := rosetta_g_miss_num_map(ddx_szr_rec.cle_lse_id);
222 p6_a7 := ddx_szr_rec.cle_date_terminated;
223 p6_a8 := ddx_szr_rec.cle_start_date;
224 p6_a9 := ddx_szr_rec.cle_end_date;
225 p6_a10 := ddx_szr_rec.cle_currency_code;
226 p6_a11 := ddx_szr_rec.cle_sts_code;
227 end;
228
229 procedure update_investor_revenue(p_api_version NUMBER
230 , p_init_msg_list VARCHAR2
231 , x_return_status out nocopy VARCHAR2
232 , x_msg_count out nocopy NUMBER
233 , x_msg_data out nocopy VARCHAR2
234 , p6_a0 out nocopy NUMBER
235 , p6_a1 out nocopy NUMBER
236 , p6_a2 out nocopy VARCHAR2
237 , p6_a3 out nocopy NUMBER
238 , p6_a4 out nocopy NUMBER
239 , p6_a5 out nocopy NUMBER
240 , p6_a6 out nocopy NUMBER
241 , p6_a7 out nocopy DATE
242 , p6_a8 out nocopy DATE
243 , p6_a9 out nocopy DATE
244 , p6_a10 out nocopy VARCHAR2
245 , p6_a11 out nocopy VARCHAR2
246 , p5_a0 NUMBER := 0-1962.0724
247 , p5_a1 NUMBER := 0-1962.0724
248 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
249 , p5_a3 NUMBER := 0-1962.0724
250 , p5_a4 NUMBER := 0-1962.0724
251 , p5_a5 NUMBER := 0-1962.0724
252 , p5_a6 NUMBER := 0-1962.0724
253 , p5_a7 DATE := fnd_api.g_miss_date
254 , p5_a8 DATE := fnd_api.g_miss_date
255 , p5_a9 DATE := fnd_api.g_miss_date
256 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
257 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
258 )
259
260 as
261 ddp_szr_rec okl_sec_investor_revenue_pvt.szr_rec_type;
262 ddx_szr_rec okl_sec_investor_revenue_pvt.szr_rec_type;
263 ddindx binary_integer; indx binary_integer;
264 begin
265
266 -- copy data to the local IN or IN-OUT args, if any
267
268
269
270
271
272 ddp_szr_rec.id := rosetta_g_miss_num_map(p5_a0);
273 ddp_szr_rec.top_line_id := rosetta_g_miss_num_map(p5_a1);
274 ddp_szr_rec.kle_sty_subclass := p5_a2;
275 ddp_szr_rec.kle_percent_stake := rosetta_g_miss_num_map(p5_a3);
276 ddp_szr_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a4);
277 ddp_szr_rec.kle_amount_stake := rosetta_g_miss_num_map(p5_a5);
278 ddp_szr_rec.cle_lse_id := rosetta_g_miss_num_map(p5_a6);
279 ddp_szr_rec.cle_date_terminated := rosetta_g_miss_date_in_map(p5_a7);
280 ddp_szr_rec.cle_start_date := rosetta_g_miss_date_in_map(p5_a8);
281 ddp_szr_rec.cle_end_date := rosetta_g_miss_date_in_map(p5_a9);
282 ddp_szr_rec.cle_currency_code := p5_a10;
283 ddp_szr_rec.cle_sts_code := p5_a11;
284
285
286 -- here's the delegated call to the old PL/SQL routine
287 okl_sec_investor_revenue_pvt.update_investor_revenue(p_api_version,
288 p_init_msg_list,
289 x_return_status,
290 x_msg_count,
291 x_msg_data,
292 ddp_szr_rec,
293 ddx_szr_rec);
294
295 -- copy data back from the local variables to OUT or IN-OUT args, if any
296
297
298
299
300
301
302 p6_a0 := rosetta_g_miss_num_map(ddx_szr_rec.id);
303 p6_a1 := rosetta_g_miss_num_map(ddx_szr_rec.top_line_id);
304 p6_a2 := ddx_szr_rec.kle_sty_subclass;
305 p6_a3 := rosetta_g_miss_num_map(ddx_szr_rec.kle_percent_stake);
306 p6_a4 := rosetta_g_miss_num_map(ddx_szr_rec.dnz_chr_id);
307 p6_a5 := rosetta_g_miss_num_map(ddx_szr_rec.kle_amount_stake);
308 p6_a6 := rosetta_g_miss_num_map(ddx_szr_rec.cle_lse_id);
309 p6_a7 := ddx_szr_rec.cle_date_terminated;
310 p6_a8 := ddx_szr_rec.cle_start_date;
311 p6_a9 := ddx_szr_rec.cle_end_date;
312 p6_a10 := ddx_szr_rec.cle_currency_code;
313 p6_a11 := ddx_szr_rec.cle_sts_code;
314 end;
315
316 procedure delete_investor_revenue(p_api_version NUMBER
317 , p_init_msg_list VARCHAR2
318 , x_return_status out nocopy VARCHAR2
319 , x_msg_count out nocopy NUMBER
320 , x_msg_data out nocopy VARCHAR2
321 , p5_a0 NUMBER := 0-1962.0724
322 , p5_a1 NUMBER := 0-1962.0724
323 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
324 , p5_a3 NUMBER := 0-1962.0724
325 , p5_a4 NUMBER := 0-1962.0724
326 , p5_a5 NUMBER := 0-1962.0724
327 , p5_a6 NUMBER := 0-1962.0724
328 , p5_a7 DATE := fnd_api.g_miss_date
329 , p5_a8 DATE := fnd_api.g_miss_date
330 , p5_a9 DATE := fnd_api.g_miss_date
331 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
332 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
333 )
334
335 as
336 ddp_szr_rec okl_sec_investor_revenue_pvt.szr_rec_type;
337 ddindx binary_integer; indx binary_integer;
338 begin
339
340 -- copy data to the local IN or IN-OUT args, if any
341
342
343
344
345
346 ddp_szr_rec.id := rosetta_g_miss_num_map(p5_a0);
347 ddp_szr_rec.top_line_id := rosetta_g_miss_num_map(p5_a1);
348 ddp_szr_rec.kle_sty_subclass := p5_a2;
349 ddp_szr_rec.kle_percent_stake := rosetta_g_miss_num_map(p5_a3);
350 ddp_szr_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a4);
351 ddp_szr_rec.kle_amount_stake := rosetta_g_miss_num_map(p5_a5);
352 ddp_szr_rec.cle_lse_id := rosetta_g_miss_num_map(p5_a6);
353 ddp_szr_rec.cle_date_terminated := rosetta_g_miss_date_in_map(p5_a7);
354 ddp_szr_rec.cle_start_date := rosetta_g_miss_date_in_map(p5_a8);
355 ddp_szr_rec.cle_end_date := rosetta_g_miss_date_in_map(p5_a9);
356 ddp_szr_rec.cle_currency_code := p5_a10;
357 ddp_szr_rec.cle_sts_code := p5_a11;
358
359 -- here's the delegated call to the old PL/SQL routine
360 okl_sec_investor_revenue_pvt.delete_investor_revenue(p_api_version,
361 p_init_msg_list,
362 x_return_status,
363 x_msg_count,
364 x_msg_data,
365 ddp_szr_rec);
366
367 -- copy data back from the local variables to OUT or IN-OUT args, if any
368
369
370
371
372
373 end;
374
375 procedure create_investor_revenue(p_api_version NUMBER
376 , p_init_msg_list VARCHAR2
377 , x_return_status out nocopy VARCHAR2
378 , x_msg_count out nocopy NUMBER
379 , x_msg_data out nocopy VARCHAR2
380 , p5_a0 JTF_NUMBER_TABLE
381 , p5_a1 JTF_NUMBER_TABLE
382 , p5_a2 JTF_VARCHAR2_TABLE_100
383 , p5_a3 JTF_NUMBER_TABLE
384 , p5_a4 JTF_NUMBER_TABLE
385 , p5_a5 JTF_NUMBER_TABLE
386 , p5_a6 JTF_NUMBER_TABLE
387 , p5_a7 JTF_DATE_TABLE
388 , p5_a8 JTF_DATE_TABLE
389 , p5_a9 JTF_DATE_TABLE
390 , p5_a10 JTF_VARCHAR2_TABLE_100
391 , p5_a11 JTF_VARCHAR2_TABLE_100
392 , p6_a0 out nocopy JTF_NUMBER_TABLE
393 , p6_a1 out nocopy JTF_NUMBER_TABLE
394 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
395 , p6_a3 out nocopy JTF_NUMBER_TABLE
396 , p6_a4 out nocopy JTF_NUMBER_TABLE
397 , p6_a5 out nocopy JTF_NUMBER_TABLE
398 , p6_a6 out nocopy JTF_NUMBER_TABLE
399 , p6_a7 out nocopy JTF_DATE_TABLE
400 , p6_a8 out nocopy JTF_DATE_TABLE
401 , p6_a9 out nocopy JTF_DATE_TABLE
402 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
403 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
404 )
405
406 as
407 ddp_szr_tbl okl_sec_investor_revenue_pvt.szr_tbl_type;
408 ddx_szr_tbl okl_sec_investor_revenue_pvt.szr_tbl_type;
409 ddindx binary_integer; indx binary_integer;
410 begin
411
412 -- copy data to the local IN or IN-OUT args, if any
413
414
415
416
417
418 okl_sec_investor_revenue_pvt_w.rosetta_table_copy_in_p20(ddp_szr_tbl, p5_a0
419 , p5_a1
420 , p5_a2
421 , p5_a3
422 , p5_a4
423 , p5_a5
424 , p5_a6
425 , p5_a7
426 , p5_a8
427 , p5_a9
428 , p5_a10
429 , p5_a11
430 );
431
432
433 -- here's the delegated call to the old PL/SQL routine
434 okl_sec_investor_revenue_pvt.create_investor_revenue(p_api_version,
435 p_init_msg_list,
436 x_return_status,
437 x_msg_count,
438 x_msg_data,
439 ddp_szr_tbl,
440 ddx_szr_tbl);
441
442 -- copy data back from the local variables to OUT or IN-OUT args, if any
443
444
445
446
447
448
449 okl_sec_investor_revenue_pvt_w.rosetta_table_copy_out_p20(ddx_szr_tbl, p6_a0
450 , p6_a1
451 , p6_a2
452 , p6_a3
453 , p6_a4
454 , p6_a5
455 , p6_a6
456 , p6_a7
457 , p6_a8
458 , p6_a9
459 , p6_a10
460 , p6_a11
461 );
462 end;
463
464 procedure update_investor_revenue(p_api_version NUMBER
465 , p_init_msg_list VARCHAR2
466 , x_return_status out nocopy VARCHAR2
467 , x_msg_count out nocopy NUMBER
468 , x_msg_data out nocopy VARCHAR2
469 , p5_a0 JTF_NUMBER_TABLE
470 , p5_a1 JTF_NUMBER_TABLE
471 , p5_a2 JTF_VARCHAR2_TABLE_100
472 , p5_a3 JTF_NUMBER_TABLE
473 , p5_a4 JTF_NUMBER_TABLE
474 , p5_a5 JTF_NUMBER_TABLE
475 , p5_a6 JTF_NUMBER_TABLE
476 , p5_a7 JTF_DATE_TABLE
477 , p5_a8 JTF_DATE_TABLE
478 , p5_a9 JTF_DATE_TABLE
479 , p5_a10 JTF_VARCHAR2_TABLE_100
480 , p5_a11 JTF_VARCHAR2_TABLE_100
481 , p6_a0 out nocopy JTF_NUMBER_TABLE
482 , p6_a1 out nocopy JTF_NUMBER_TABLE
483 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
484 , p6_a3 out nocopy JTF_NUMBER_TABLE
485 , p6_a4 out nocopy JTF_NUMBER_TABLE
486 , p6_a5 out nocopy JTF_NUMBER_TABLE
487 , p6_a6 out nocopy JTF_NUMBER_TABLE
488 , p6_a7 out nocopy JTF_DATE_TABLE
489 , p6_a8 out nocopy JTF_DATE_TABLE
490 , p6_a9 out nocopy JTF_DATE_TABLE
491 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
492 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
493 )
494
495 as
496 ddp_szr_tbl okl_sec_investor_revenue_pvt.szr_tbl_type;
497 ddx_szr_tbl okl_sec_investor_revenue_pvt.szr_tbl_type;
498 ddindx binary_integer; indx binary_integer;
499 begin
500
501 -- copy data to the local IN or IN-OUT args, if any
502
503
504
505
506
507 okl_sec_investor_revenue_pvt_w.rosetta_table_copy_in_p20(ddp_szr_tbl, p5_a0
508 , p5_a1
509 , p5_a2
510 , p5_a3
511 , p5_a4
512 , p5_a5
513 , p5_a6
514 , p5_a7
515 , p5_a8
516 , p5_a9
517 , p5_a10
518 , p5_a11
519 );
520
521
522 -- here's the delegated call to the old PL/SQL routine
523 okl_sec_investor_revenue_pvt.update_investor_revenue(p_api_version,
524 p_init_msg_list,
525 x_return_status,
526 x_msg_count,
527 x_msg_data,
528 ddp_szr_tbl,
529 ddx_szr_tbl);
530
531 -- copy data back from the local variables to OUT or IN-OUT args, if any
532
533
534
535
536
537
538 okl_sec_investor_revenue_pvt_w.rosetta_table_copy_out_p20(ddx_szr_tbl, p6_a0
539 , p6_a1
540 , p6_a2
541 , p6_a3
542 , p6_a4
543 , p6_a5
544 , p6_a6
545 , p6_a7
546 , p6_a8
547 , p6_a9
548 , p6_a10
549 , p6_a11
550 );
551 end;
552
553 procedure delete_investor_revenue(p_api_version NUMBER
554 , p_init_msg_list VARCHAR2
555 , x_return_status out nocopy VARCHAR2
556 , x_msg_count out nocopy NUMBER
557 , x_msg_data out nocopy VARCHAR2
558 , p5_a0 JTF_NUMBER_TABLE
559 , p5_a1 JTF_NUMBER_TABLE
560 , p5_a2 JTF_VARCHAR2_TABLE_100
561 , p5_a3 JTF_NUMBER_TABLE
562 , p5_a4 JTF_NUMBER_TABLE
563 , p5_a5 JTF_NUMBER_TABLE
564 , p5_a6 JTF_NUMBER_TABLE
565 , p5_a7 JTF_DATE_TABLE
566 , p5_a8 JTF_DATE_TABLE
567 , p5_a9 JTF_DATE_TABLE
568 , p5_a10 JTF_VARCHAR2_TABLE_100
569 , p5_a11 JTF_VARCHAR2_TABLE_100
570 )
571
572 as
573 ddp_szr_tbl okl_sec_investor_revenue_pvt.szr_tbl_type;
574 ddindx binary_integer; indx binary_integer;
575 begin
576
577 -- copy data to the local IN or IN-OUT args, if any
578
579
580
581
582
583 okl_sec_investor_revenue_pvt_w.rosetta_table_copy_in_p20(ddp_szr_tbl, p5_a0
584 , p5_a1
585 , p5_a2
586 , p5_a3
587 , p5_a4
588 , p5_a5
589 , p5_a6
590 , p5_a7
591 , p5_a8
592 , p5_a9
593 , p5_a10
594 , p5_a11
595 );
596
597 -- here's the delegated call to the old PL/SQL routine
598 okl_sec_investor_revenue_pvt.delete_investor_revenue(p_api_version,
599 p_init_msg_list,
600 x_return_status,
601 x_msg_count,
602 x_msg_data,
603 ddp_szr_tbl);
604
605 -- copy data back from the local variables to OUT or IN-OUT args, if any
606
607
608
609
610
611 end;
612
613 end okl_sec_investor_revenue_pvt_w;