[Home] [Help]
PACKAGE BODY: APPS.OKL_SEC_INVESTOR_PVT_W
Source
1 package body okl_sec_investor_pvt_w as
2 /* $Header: OKLUSZIB.pls 115.2 2003/10/22 23:15:46 ashariff 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_p1(t out nocopy okl_sec_investor_pvt.inv_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_NUMBER_TABLE
26 , a4 JTF_VARCHAR2_TABLE_100
27 , a5 JTF_NUMBER_TABLE
28 , a6 JTF_VARCHAR2_TABLE_100
29 , a7 JTF_VARCHAR2_TABLE_200
30 , a8 JTF_VARCHAR2_TABLE_100
31 , a9 JTF_NUMBER_TABLE
32 , a10 JTF_NUMBER_TABLE
33 , a11 JTF_VARCHAR2_TABLE_200
34 , a12 JTF_VARCHAR2_TABLE_100
35 , a13 JTF_VARCHAR2_TABLE_2000
36 , a14 JTF_DATE_TABLE
37 , a15 JTF_DATE_TABLE
38 , a16 JTF_DATE_TABLE
39 , a17 JTF_NUMBER_TABLE
40 , a18 JTF_NUMBER_TABLE
41 , a19 JTF_NUMBER_TABLE
42 , a20 JTF_NUMBER_TABLE
43 , a21 JTF_NUMBER_TABLE
44 , a22 JTF_DATE_TABLE
45 , a23 JTF_DATE_TABLE
46 , a24 JTF_NUMBER_TABLE
47 , a25 JTF_DATE_TABLE
48 , a26 JTF_DATE_TABLE
49 , a27 JTF_DATE_TABLE
50 , a28 JTF_DATE_TABLE
51 , a29 JTF_NUMBER_TABLE
52 , a30 JTF_VARCHAR2_TABLE_400
53 , a31 JTF_VARCHAR2_TABLE_100
54 , a32 JTF_DATE_TABLE
55 , a33 JTF_VARCHAR2_TABLE_100
56 , a34 JTF_VARCHAR2_TABLE_100
57 , a35 JTF_NUMBER_TABLE
58 , a36 JTF_DATE_TABLE
59 , a37 JTF_NUMBER_TABLE
60 , a38 JTF_NUMBER_TABLE
61 ) as
62 ddindx binary_integer; indx binary_integer;
63 begin
64 if a0 is not null and a0.count > 0 then
65 if a0.count > 0 then
66 indx := a0.first;
67 ddindx := 1;
68 while true loop
69 t(ddindx).cpl_id := rosetta_g_miss_num_map(a0(indx));
70 t(ddindx).cpl_cpl_id := rosetta_g_miss_num_map(a1(indx));
71 t(ddindx).cpl_chr_id := rosetta_g_miss_num_map(a2(indx));
72 t(ddindx).cpl_cle_id := rosetta_g_miss_num_map(a3(indx));
73 t(ddindx).cpl_rle_code := a4(indx);
74 t(ddindx).cpl_dnz_chr_id := rosetta_g_miss_num_map(a5(indx));
75 t(ddindx).cpl_object1_id1 := a6(indx);
76 t(ddindx).cpl_object1_id2 := a7(indx);
77 t(ddindx).cpl_jtot_object1_code := a8(indx);
78 t(ddindx).cle_id := rosetta_g_miss_num_map(a9(indx));
79 t(ddindx).cle_lse_id := rosetta_g_miss_num_map(a10(indx));
80 t(ddindx).cle_line_number := a11(indx);
81 t(ddindx).cle_sts_code := a12(indx);
82 t(ddindx).cle_comments := a13(indx);
83 t(ddindx).cle_date_terminated := rosetta_g_miss_date_in_map(a14(indx));
84 t(ddindx).cle_start_date := rosetta_g_miss_date_in_map(a15(indx));
85 t(ddindx).cle_end_date := rosetta_g_miss_date_in_map(a16(indx));
86 t(ddindx).kle_id := rosetta_g_miss_num_map(a17(indx));
87 t(ddindx).kle_percent_stake := rosetta_g_miss_num_map(a18(indx));
88 t(ddindx).kle_percent := rosetta_g_miss_num_map(a19(indx));
89 t(ddindx).kle_evergreen_percent := rosetta_g_miss_num_map(a20(indx));
90 t(ddindx).kle_amount_stake := rosetta_g_miss_num_map(a21(indx));
91 t(ddindx).kle_date_sold := rosetta_g_miss_date_in_map(a22(indx));
92 t(ddindx).kle_delivered_date := rosetta_g_miss_date_in_map(a23(indx));
93 t(ddindx).kle_amount := rosetta_g_miss_num_map(a24(indx));
94 t(ddindx).kle_date_funding := rosetta_g_miss_date_in_map(a25(indx));
95 t(ddindx).kle_date_funding_required := rosetta_g_miss_date_in_map(a26(indx));
96 t(ddindx).kle_date_accepted := rosetta_g_miss_date_in_map(a27(indx));
97 t(ddindx).kle_date_delivery_expected := rosetta_g_miss_date_in_map(a28(indx));
98 t(ddindx).kle_capital_amount := rosetta_g_miss_num_map(a29(indx));
99 t(ddindx).name := a30(indx);
100 t(ddindx).description := a31(indx);
101 t(ddindx).date_pay_investor_start := rosetta_g_miss_date_in_map(a32(indx));
102 t(ddindx).pay_investor_frequency := a33(indx);
103 t(ddindx).pay_investor_event := a34(indx);
104 t(ddindx).pay_investor_remittance_days := rosetta_g_miss_num_map(a35(indx));
105 t(ddindx).start_date := rosetta_g_miss_date_in_map(a36(indx));
106 t(ddindx).bill_to_site_use_id := rosetta_g_miss_num_map(a37(indx));
107 t(ddindx).cust_acct_id := rosetta_g_miss_num_map(a38(indx));
108 ddindx := ddindx+1;
109 if a0.last =indx
110 then exit;
111 end if;
112 indx := a0.next(indx);
113 end loop;
114 end if;
115 end if;
116 end rosetta_table_copy_in_p1;
117 procedure rosetta_table_copy_out_p1(t okl_sec_investor_pvt.inv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
118 , a1 out nocopy JTF_NUMBER_TABLE
119 , a2 out nocopy JTF_NUMBER_TABLE
120 , a3 out nocopy JTF_NUMBER_TABLE
121 , a4 out nocopy JTF_VARCHAR2_TABLE_100
122 , a5 out nocopy JTF_NUMBER_TABLE
123 , a6 out nocopy JTF_VARCHAR2_TABLE_100
124 , a7 out nocopy JTF_VARCHAR2_TABLE_200
125 , a8 out nocopy JTF_VARCHAR2_TABLE_100
126 , a9 out nocopy JTF_NUMBER_TABLE
127 , a10 out nocopy JTF_NUMBER_TABLE
128 , a11 out nocopy JTF_VARCHAR2_TABLE_200
129 , a12 out nocopy JTF_VARCHAR2_TABLE_100
130 , a13 out nocopy JTF_VARCHAR2_TABLE_2000
131 , a14 out nocopy JTF_DATE_TABLE
132 , a15 out nocopy JTF_DATE_TABLE
133 , a16 out nocopy JTF_DATE_TABLE
134 , a17 out nocopy JTF_NUMBER_TABLE
135 , a18 out nocopy JTF_NUMBER_TABLE
136 , a19 out nocopy JTF_NUMBER_TABLE
137 , a20 out nocopy JTF_NUMBER_TABLE
138 , a21 out nocopy JTF_NUMBER_TABLE
139 , a22 out nocopy JTF_DATE_TABLE
140 , a23 out nocopy JTF_DATE_TABLE
141 , a24 out nocopy JTF_NUMBER_TABLE
142 , a25 out nocopy JTF_DATE_TABLE
143 , a26 out nocopy JTF_DATE_TABLE
144 , a27 out nocopy JTF_DATE_TABLE
145 , a28 out nocopy JTF_DATE_TABLE
146 , a29 out nocopy JTF_NUMBER_TABLE
147 , a30 out nocopy JTF_VARCHAR2_TABLE_400
148 , a31 out nocopy JTF_VARCHAR2_TABLE_100
149 , a32 out nocopy JTF_DATE_TABLE
150 , a33 out nocopy JTF_VARCHAR2_TABLE_100
151 , a34 out nocopy JTF_VARCHAR2_TABLE_100
152 , a35 out nocopy JTF_NUMBER_TABLE
153 , a36 out nocopy JTF_DATE_TABLE
154 , a37 out nocopy JTF_NUMBER_TABLE
155 , a38 out nocopy JTF_NUMBER_TABLE
156 ) as
157 ddindx binary_integer; indx binary_integer;
158 begin
159 if t is null or t.count = 0 then
160 a0 := JTF_NUMBER_TABLE();
161 a1 := JTF_NUMBER_TABLE();
162 a2 := JTF_NUMBER_TABLE();
163 a3 := JTF_NUMBER_TABLE();
164 a4 := JTF_VARCHAR2_TABLE_100();
165 a5 := JTF_NUMBER_TABLE();
166 a6 := JTF_VARCHAR2_TABLE_100();
167 a7 := JTF_VARCHAR2_TABLE_200();
168 a8 := JTF_VARCHAR2_TABLE_100();
169 a9 := JTF_NUMBER_TABLE();
170 a10 := JTF_NUMBER_TABLE();
171 a11 := JTF_VARCHAR2_TABLE_200();
172 a12 := JTF_VARCHAR2_TABLE_100();
173 a13 := JTF_VARCHAR2_TABLE_2000();
174 a14 := JTF_DATE_TABLE();
175 a15 := JTF_DATE_TABLE();
176 a16 := JTF_DATE_TABLE();
177 a17 := JTF_NUMBER_TABLE();
178 a18 := JTF_NUMBER_TABLE();
179 a19 := JTF_NUMBER_TABLE();
180 a20 := JTF_NUMBER_TABLE();
181 a21 := JTF_NUMBER_TABLE();
182 a22 := JTF_DATE_TABLE();
183 a23 := JTF_DATE_TABLE();
184 a24 := JTF_NUMBER_TABLE();
185 a25 := JTF_DATE_TABLE();
186 a26 := JTF_DATE_TABLE();
187 a27 := JTF_DATE_TABLE();
188 a28 := JTF_DATE_TABLE();
189 a29 := JTF_NUMBER_TABLE();
190 a30 := JTF_VARCHAR2_TABLE_400();
191 a31 := JTF_VARCHAR2_TABLE_100();
192 a32 := JTF_DATE_TABLE();
193 a33 := JTF_VARCHAR2_TABLE_100();
194 a34 := JTF_VARCHAR2_TABLE_100();
195 a35 := JTF_NUMBER_TABLE();
196 a36 := JTF_DATE_TABLE();
197 a37 := JTF_NUMBER_TABLE();
198 a38 := JTF_NUMBER_TABLE();
199 else
200 a0 := JTF_NUMBER_TABLE();
201 a1 := JTF_NUMBER_TABLE();
202 a2 := JTF_NUMBER_TABLE();
203 a3 := JTF_NUMBER_TABLE();
204 a4 := JTF_VARCHAR2_TABLE_100();
205 a5 := JTF_NUMBER_TABLE();
206 a6 := JTF_VARCHAR2_TABLE_100();
207 a7 := JTF_VARCHAR2_TABLE_200();
208 a8 := JTF_VARCHAR2_TABLE_100();
209 a9 := JTF_NUMBER_TABLE();
210 a10 := JTF_NUMBER_TABLE();
211 a11 := JTF_VARCHAR2_TABLE_200();
212 a12 := JTF_VARCHAR2_TABLE_100();
213 a13 := JTF_VARCHAR2_TABLE_2000();
214 a14 := JTF_DATE_TABLE();
215 a15 := JTF_DATE_TABLE();
216 a16 := JTF_DATE_TABLE();
217 a17 := JTF_NUMBER_TABLE();
218 a18 := JTF_NUMBER_TABLE();
219 a19 := JTF_NUMBER_TABLE();
220 a20 := JTF_NUMBER_TABLE();
221 a21 := JTF_NUMBER_TABLE();
222 a22 := JTF_DATE_TABLE();
223 a23 := JTF_DATE_TABLE();
224 a24 := JTF_NUMBER_TABLE();
225 a25 := JTF_DATE_TABLE();
226 a26 := JTF_DATE_TABLE();
227 a27 := JTF_DATE_TABLE();
228 a28 := JTF_DATE_TABLE();
229 a29 := JTF_NUMBER_TABLE();
230 a30 := JTF_VARCHAR2_TABLE_400();
231 a31 := JTF_VARCHAR2_TABLE_100();
232 a32 := JTF_DATE_TABLE();
233 a33 := JTF_VARCHAR2_TABLE_100();
234 a34 := JTF_VARCHAR2_TABLE_100();
235 a35 := JTF_NUMBER_TABLE();
236 a36 := JTF_DATE_TABLE();
237 a37 := JTF_NUMBER_TABLE();
238 a38 := JTF_NUMBER_TABLE();
239 if t.count > 0 then
240 a0.extend(t.count);
241 a1.extend(t.count);
242 a2.extend(t.count);
243 a3.extend(t.count);
244 a4.extend(t.count);
245 a5.extend(t.count);
246 a6.extend(t.count);
247 a7.extend(t.count);
248 a8.extend(t.count);
249 a9.extend(t.count);
250 a10.extend(t.count);
251 a11.extend(t.count);
252 a12.extend(t.count);
253 a13.extend(t.count);
254 a14.extend(t.count);
255 a15.extend(t.count);
256 a16.extend(t.count);
257 a17.extend(t.count);
258 a18.extend(t.count);
259 a19.extend(t.count);
260 a20.extend(t.count);
261 a21.extend(t.count);
262 a22.extend(t.count);
263 a23.extend(t.count);
264 a24.extend(t.count);
265 a25.extend(t.count);
266 a26.extend(t.count);
267 a27.extend(t.count);
268 a28.extend(t.count);
269 a29.extend(t.count);
270 a30.extend(t.count);
271 a31.extend(t.count);
272 a32.extend(t.count);
273 a33.extend(t.count);
274 a34.extend(t.count);
275 a35.extend(t.count);
276 a36.extend(t.count);
277 a37.extend(t.count);
278 a38.extend(t.count);
279 ddindx := t.first;
280 indx := 1;
281 while true loop
282 a0(indx) := rosetta_g_miss_num_map(t(ddindx).cpl_id);
283 a1(indx) := rosetta_g_miss_num_map(t(ddindx).cpl_cpl_id);
284 a2(indx) := rosetta_g_miss_num_map(t(ddindx).cpl_chr_id);
288 a6(indx) := t(ddindx).cpl_object1_id1;
285 a3(indx) := rosetta_g_miss_num_map(t(ddindx).cpl_cle_id);
286 a4(indx) := t(ddindx).cpl_rle_code;
287 a5(indx) := rosetta_g_miss_num_map(t(ddindx).cpl_dnz_chr_id);
289 a7(indx) := t(ddindx).cpl_object1_id2;
290 a8(indx) := t(ddindx).cpl_jtot_object1_code;
291 a9(indx) := rosetta_g_miss_num_map(t(ddindx).cle_id);
292 a10(indx) := rosetta_g_miss_num_map(t(ddindx).cle_lse_id);
293 a11(indx) := t(ddindx).cle_line_number;
294 a12(indx) := t(ddindx).cle_sts_code;
295 a13(indx) := t(ddindx).cle_comments;
296 a14(indx) := t(ddindx).cle_date_terminated;
297 a15(indx) := t(ddindx).cle_start_date;
298 a16(indx) := t(ddindx).cle_end_date;
299 a17(indx) := rosetta_g_miss_num_map(t(ddindx).kle_id);
300 a18(indx) := rosetta_g_miss_num_map(t(ddindx).kle_percent_stake);
301 a19(indx) := rosetta_g_miss_num_map(t(ddindx).kle_percent);
302 a20(indx) := rosetta_g_miss_num_map(t(ddindx).kle_evergreen_percent);
303 a21(indx) := rosetta_g_miss_num_map(t(ddindx).kle_amount_stake);
304 a22(indx) := t(ddindx).kle_date_sold;
305 a23(indx) := t(ddindx).kle_delivered_date;
306 a24(indx) := rosetta_g_miss_num_map(t(ddindx).kle_amount);
307 a25(indx) := t(ddindx).kle_date_funding;
308 a26(indx) := t(ddindx).kle_date_funding_required;
309 a27(indx) := t(ddindx).kle_date_accepted;
310 a28(indx) := t(ddindx).kle_date_delivery_expected;
311 a29(indx) := rosetta_g_miss_num_map(t(ddindx).kle_capital_amount);
312 a30(indx) := t(ddindx).name;
313 a31(indx) := t(ddindx).description;
314 a32(indx) := t(ddindx).date_pay_investor_start;
315 a33(indx) := t(ddindx).pay_investor_frequency;
316 a34(indx) := t(ddindx).pay_investor_event;
317 a35(indx) := rosetta_g_miss_num_map(t(ddindx).pay_investor_remittance_days);
318 a36(indx) := t(ddindx).start_date;
319 a37(indx) := rosetta_g_miss_num_map(t(ddindx).bill_to_site_use_id);
320 a38(indx) := rosetta_g_miss_num_map(t(ddindx).cust_acct_id);
321 indx := indx+1;
322 if t.last =ddindx
323 then exit;
324 end if;
325 ddindx := t.next(ddindx);
326 end loop;
327 end if;
328 end if;
329 end rosetta_table_copy_out_p1;
330
331 procedure create_investor(p_api_version NUMBER
332 , p_init_msg_list VARCHAR2
333 , x_return_status out nocopy VARCHAR2
334 , x_msg_count out nocopy NUMBER
335 , x_msg_data out nocopy VARCHAR2
336 , p5_a0 JTF_NUMBER_TABLE
337 , p5_a1 JTF_NUMBER_TABLE
338 , p5_a2 JTF_NUMBER_TABLE
339 , p5_a3 JTF_NUMBER_TABLE
340 , p5_a4 JTF_VARCHAR2_TABLE_100
341 , p5_a5 JTF_NUMBER_TABLE
342 , p5_a6 JTF_VARCHAR2_TABLE_100
343 , p5_a7 JTF_VARCHAR2_TABLE_200
344 , p5_a8 JTF_VARCHAR2_TABLE_100
345 , p5_a9 JTF_NUMBER_TABLE
346 , p5_a10 JTF_NUMBER_TABLE
347 , p5_a11 JTF_VARCHAR2_TABLE_200
348 , p5_a12 JTF_VARCHAR2_TABLE_100
349 , p5_a13 JTF_VARCHAR2_TABLE_2000
350 , p5_a14 JTF_DATE_TABLE
351 , p5_a15 JTF_DATE_TABLE
352 , p5_a16 JTF_DATE_TABLE
353 , p5_a17 JTF_NUMBER_TABLE
354 , p5_a18 JTF_NUMBER_TABLE
355 , p5_a19 JTF_NUMBER_TABLE
356 , p5_a20 JTF_NUMBER_TABLE
357 , p5_a21 JTF_NUMBER_TABLE
358 , p5_a22 JTF_DATE_TABLE
359 , p5_a23 JTF_DATE_TABLE
360 , p5_a24 JTF_NUMBER_TABLE
361 , p5_a25 JTF_DATE_TABLE
362 , p5_a26 JTF_DATE_TABLE
363 , p5_a27 JTF_DATE_TABLE
364 , p5_a28 JTF_DATE_TABLE
365 , p5_a29 JTF_NUMBER_TABLE
366 , p5_a30 JTF_VARCHAR2_TABLE_400
367 , p5_a31 JTF_VARCHAR2_TABLE_100
368 , p5_a32 JTF_DATE_TABLE
369 , p5_a33 JTF_VARCHAR2_TABLE_100
370 , p5_a34 JTF_VARCHAR2_TABLE_100
371 , p5_a35 JTF_NUMBER_TABLE
372 , p5_a36 JTF_DATE_TABLE
373 , p5_a37 JTF_NUMBER_TABLE
374 , p5_a38 JTF_NUMBER_TABLE
375 , p6_a0 out nocopy JTF_NUMBER_TABLE
376 , p6_a1 out nocopy JTF_NUMBER_TABLE
377 , p6_a2 out nocopy JTF_NUMBER_TABLE
378 , p6_a3 out nocopy JTF_NUMBER_TABLE
379 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
380 , p6_a5 out nocopy JTF_NUMBER_TABLE
381 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
382 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_200
383 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
384 , p6_a9 out nocopy JTF_NUMBER_TABLE
385 , p6_a10 out nocopy JTF_NUMBER_TABLE
386 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_200
387 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
388 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_2000
389 , p6_a14 out nocopy JTF_DATE_TABLE
390 , p6_a15 out nocopy JTF_DATE_TABLE
391 , p6_a16 out nocopy JTF_DATE_TABLE
392 , p6_a17 out nocopy JTF_NUMBER_TABLE
393 , p6_a18 out nocopy JTF_NUMBER_TABLE
394 , p6_a19 out nocopy JTF_NUMBER_TABLE
395 , p6_a20 out nocopy JTF_NUMBER_TABLE
396 , p6_a21 out nocopy JTF_NUMBER_TABLE
397 , p6_a22 out nocopy JTF_DATE_TABLE
398 , p6_a23 out nocopy JTF_DATE_TABLE
399 , p6_a24 out nocopy JTF_NUMBER_TABLE
400 , p6_a25 out nocopy JTF_DATE_TABLE
401 , p6_a26 out nocopy JTF_DATE_TABLE
402 , p6_a27 out nocopy JTF_DATE_TABLE
403 , p6_a28 out nocopy JTF_DATE_TABLE
404 , p6_a29 out nocopy JTF_NUMBER_TABLE
405 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_400
406 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_100
407 , p6_a32 out nocopy JTF_DATE_TABLE
408 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_100
409 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_100
410 , p6_a35 out nocopy JTF_NUMBER_TABLE
411 , p6_a36 out nocopy JTF_DATE_TABLE
412 , p6_a37 out nocopy JTF_NUMBER_TABLE
416 as
413 , p6_a38 out nocopy JTF_NUMBER_TABLE
414 )
415
417 ddp_inv_tbl okl_sec_investor_pvt.inv_tbl_type;
418 ddx_inv_tbl okl_sec_investor_pvt.inv_tbl_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
426
427
428 okl_sec_investor_pvt_w.rosetta_table_copy_in_p1(ddp_inv_tbl, p5_a0
429 , p5_a1
430 , p5_a2
431 , p5_a3
432 , p5_a4
433 , p5_a5
434 , p5_a6
435 , p5_a7
436 , p5_a8
437 , p5_a9
438 , p5_a10
439 , p5_a11
440 , p5_a12
441 , p5_a13
442 , p5_a14
443 , p5_a15
444 , p5_a16
445 , p5_a17
446 , p5_a18
447 , p5_a19
448 , p5_a20
449 , p5_a21
450 , p5_a22
451 , p5_a23
452 , p5_a24
453 , p5_a25
454 , p5_a26
455 , p5_a27
456 , p5_a28
457 , p5_a29
458 , p5_a30
459 , p5_a31
460 , p5_a32
461 , p5_a33
462 , p5_a34
463 , p5_a35
464 , p5_a36
465 , p5_a37
466 , p5_a38
467 );
468
469
470 -- here's the delegated call to the old PL/SQL routine
471 okl_sec_investor_pvt.create_investor(p_api_version,
472 p_init_msg_list,
473 x_return_status,
474 x_msg_count,
475 x_msg_data,
476 ddp_inv_tbl,
477 ddx_inv_tbl);
478
479 -- copy data back from the local variables to OUT or IN-OUT args, if any
480
481
482
483
484
485
486 okl_sec_investor_pvt_w.rosetta_table_copy_out_p1(ddx_inv_tbl, p6_a0
487 , p6_a1
488 , p6_a2
489 , p6_a3
490 , p6_a4
491 , p6_a5
492 , p6_a6
493 , p6_a7
494 , p6_a8
495 , p6_a9
496 , p6_a10
497 , p6_a11
498 , p6_a12
499 , p6_a13
500 , p6_a14
501 , p6_a15
502 , p6_a16
503 , p6_a17
504 , p6_a18
505 , p6_a19
506 , p6_a20
507 , p6_a21
508 , p6_a22
509 , p6_a23
510 , p6_a24
511 , p6_a25
512 , p6_a26
513 , p6_a27
514 , p6_a28
515 , p6_a29
516 , p6_a30
517 , p6_a31
518 , p6_a32
519 , p6_a33
520 , p6_a34
521 , p6_a35
522 , p6_a36
523 , p6_a37
524 , p6_a38
525 );
526 end;
527
528 procedure update_investor(p_api_version NUMBER
529 , p_init_msg_list VARCHAR2
530 , x_return_status out nocopy VARCHAR2
531 , x_msg_count out nocopy NUMBER
532 , x_msg_data out nocopy VARCHAR2
533 , p5_a0 JTF_NUMBER_TABLE
534 , p5_a1 JTF_NUMBER_TABLE
535 , p5_a2 JTF_NUMBER_TABLE
536 , p5_a3 JTF_NUMBER_TABLE
537 , p5_a4 JTF_VARCHAR2_TABLE_100
538 , p5_a5 JTF_NUMBER_TABLE
539 , p5_a6 JTF_VARCHAR2_TABLE_100
540 , p5_a7 JTF_VARCHAR2_TABLE_200
541 , p5_a8 JTF_VARCHAR2_TABLE_100
542 , p5_a9 JTF_NUMBER_TABLE
543 , p5_a10 JTF_NUMBER_TABLE
544 , p5_a11 JTF_VARCHAR2_TABLE_200
545 , p5_a12 JTF_VARCHAR2_TABLE_100
546 , p5_a13 JTF_VARCHAR2_TABLE_2000
547 , p5_a14 JTF_DATE_TABLE
548 , p5_a15 JTF_DATE_TABLE
549 , p5_a16 JTF_DATE_TABLE
550 , p5_a17 JTF_NUMBER_TABLE
551 , p5_a18 JTF_NUMBER_TABLE
552 , p5_a19 JTF_NUMBER_TABLE
553 , p5_a20 JTF_NUMBER_TABLE
554 , p5_a21 JTF_NUMBER_TABLE
555 , p5_a22 JTF_DATE_TABLE
556 , p5_a23 JTF_DATE_TABLE
557 , p5_a24 JTF_NUMBER_TABLE
558 , p5_a25 JTF_DATE_TABLE
559 , p5_a26 JTF_DATE_TABLE
560 , p5_a27 JTF_DATE_TABLE
561 , p5_a28 JTF_DATE_TABLE
562 , p5_a29 JTF_NUMBER_TABLE
563 , p5_a30 JTF_VARCHAR2_TABLE_400
564 , p5_a31 JTF_VARCHAR2_TABLE_100
565 , p5_a32 JTF_DATE_TABLE
566 , p5_a33 JTF_VARCHAR2_TABLE_100
567 , p5_a34 JTF_VARCHAR2_TABLE_100
568 , p5_a35 JTF_NUMBER_TABLE
569 , p5_a36 JTF_DATE_TABLE
570 , p5_a37 JTF_NUMBER_TABLE
571 , p5_a38 JTF_NUMBER_TABLE
572 , p6_a0 out nocopy JTF_NUMBER_TABLE
573 , p6_a1 out nocopy JTF_NUMBER_TABLE
574 , p6_a2 out nocopy JTF_NUMBER_TABLE
575 , p6_a3 out nocopy JTF_NUMBER_TABLE
576 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
577 , p6_a5 out nocopy JTF_NUMBER_TABLE
578 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
579 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_200
580 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
581 , p6_a9 out nocopy JTF_NUMBER_TABLE
582 , p6_a10 out nocopy JTF_NUMBER_TABLE
583 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_200
584 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
585 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_2000
586 , p6_a14 out nocopy JTF_DATE_TABLE
587 , p6_a15 out nocopy JTF_DATE_TABLE
588 , p6_a16 out nocopy JTF_DATE_TABLE
589 , p6_a17 out nocopy JTF_NUMBER_TABLE
590 , p6_a18 out nocopy JTF_NUMBER_TABLE
591 , p6_a19 out nocopy JTF_NUMBER_TABLE
592 , p6_a20 out nocopy JTF_NUMBER_TABLE
593 , p6_a21 out nocopy JTF_NUMBER_TABLE
594 , p6_a22 out nocopy JTF_DATE_TABLE
595 , p6_a23 out nocopy JTF_DATE_TABLE
596 , p6_a24 out nocopy JTF_NUMBER_TABLE
597 , p6_a25 out nocopy JTF_DATE_TABLE
598 , p6_a26 out nocopy JTF_DATE_TABLE
599 , p6_a27 out nocopy JTF_DATE_TABLE
600 , p6_a28 out nocopy JTF_DATE_TABLE
601 , p6_a29 out nocopy JTF_NUMBER_TABLE
602 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_400
603 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_100
604 , p6_a32 out nocopy JTF_DATE_TABLE
605 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_100
606 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_100
607 , p6_a35 out nocopy JTF_NUMBER_TABLE
608 , p6_a36 out nocopy JTF_DATE_TABLE
609 , p6_a37 out nocopy JTF_NUMBER_TABLE
610 , p6_a38 out nocopy JTF_NUMBER_TABLE
611 )
612
613 as
614 ddp_inv_tbl okl_sec_investor_pvt.inv_tbl_type;
615 ddx_inv_tbl okl_sec_investor_pvt.inv_tbl_type;
616 ddindx binary_integer; indx binary_integer;
617 begin
618
619 -- copy data to the local IN or IN-OUT args, if any
620
621
622
623
624
625 okl_sec_investor_pvt_w.rosetta_table_copy_in_p1(ddp_inv_tbl, p5_a0
626 , p5_a1
627 , p5_a2
628 , p5_a3
629 , p5_a4
630 , p5_a5
631 , p5_a6
632 , p5_a7
633 , p5_a8
634 , p5_a9
635 , p5_a10
636 , p5_a11
637 , p5_a12
638 , p5_a13
639 , p5_a14
640 , p5_a15
641 , p5_a16
642 , p5_a17
643 , p5_a18
644 , p5_a19
645 , p5_a20
646 , p5_a21
647 , p5_a22
648 , p5_a23
649 , p5_a24
650 , p5_a25
651 , p5_a26
652 , p5_a27
653 , p5_a28
654 , p5_a29
655 , p5_a30
656 , p5_a31
657 , p5_a32
658 , p5_a33
659 , p5_a34
660 , p5_a35
661 , p5_a36
662 , p5_a37
663 , p5_a38
664 );
665
666
667 -- here's the delegated call to the old PL/SQL routine
668 okl_sec_investor_pvt.update_investor(p_api_version,
669 p_init_msg_list,
670 x_return_status,
671 x_msg_count,
672 x_msg_data,
673 ddp_inv_tbl,
674 ddx_inv_tbl);
675
676 -- copy data back from the local variables to OUT or IN-OUT args, if any
677
678
679
680
681
682
683 okl_sec_investor_pvt_w.rosetta_table_copy_out_p1(ddx_inv_tbl, p6_a0
684 , p6_a1
685 , p6_a2
686 , p6_a3
687 , p6_a4
688 , p6_a5
689 , p6_a6
690 , p6_a7
691 , p6_a8
692 , p6_a9
693 , p6_a10
694 , p6_a11
695 , p6_a12
696 , p6_a13
697 , p6_a14
698 , p6_a15
699 , p6_a16
700 , p6_a17
701 , p6_a18
702 , p6_a19
703 , p6_a20
704 , p6_a21
705 , p6_a22
706 , p6_a23
707 , p6_a24
708 , p6_a25
709 , p6_a26
710 , p6_a27
711 , p6_a28
712 , p6_a29
713 , p6_a30
714 , p6_a31
715 , p6_a32
716 , p6_a33
717 , p6_a34
718 , p6_a35
719 , p6_a36
720 , p6_a37
721 , p6_a38
722 );
723 end;
724
725 procedure delete_investor(p_api_version NUMBER
726 , p_init_msg_list VARCHAR2
727 , x_return_status out nocopy VARCHAR2
728 , x_msg_count out nocopy NUMBER
729 , x_msg_data out nocopy VARCHAR2
730 , p5_a0 JTF_NUMBER_TABLE
731 , p5_a1 JTF_NUMBER_TABLE
732 , p5_a2 JTF_NUMBER_TABLE
733 , p5_a3 JTF_NUMBER_TABLE
734 , p5_a4 JTF_VARCHAR2_TABLE_100
735 , p5_a5 JTF_NUMBER_TABLE
736 , p5_a6 JTF_VARCHAR2_TABLE_100
737 , p5_a7 JTF_VARCHAR2_TABLE_200
738 , p5_a8 JTF_VARCHAR2_TABLE_100
739 , p5_a9 JTF_NUMBER_TABLE
740 , p5_a10 JTF_NUMBER_TABLE
741 , p5_a11 JTF_VARCHAR2_TABLE_200
742 , p5_a12 JTF_VARCHAR2_TABLE_100
743 , p5_a13 JTF_VARCHAR2_TABLE_2000
744 , p5_a14 JTF_DATE_TABLE
745 , p5_a15 JTF_DATE_TABLE
746 , p5_a16 JTF_DATE_TABLE
747 , p5_a17 JTF_NUMBER_TABLE
748 , p5_a18 JTF_NUMBER_TABLE
749 , p5_a19 JTF_NUMBER_TABLE
750 , p5_a20 JTF_NUMBER_TABLE
751 , p5_a21 JTF_NUMBER_TABLE
752 , p5_a22 JTF_DATE_TABLE
753 , p5_a23 JTF_DATE_TABLE
754 , p5_a24 JTF_NUMBER_TABLE
755 , p5_a25 JTF_DATE_TABLE
756 , p5_a26 JTF_DATE_TABLE
757 , p5_a27 JTF_DATE_TABLE
758 , p5_a28 JTF_DATE_TABLE
759 , p5_a29 JTF_NUMBER_TABLE
760 , p5_a30 JTF_VARCHAR2_TABLE_400
761 , p5_a31 JTF_VARCHAR2_TABLE_100
762 , p5_a32 JTF_DATE_TABLE
763 , p5_a33 JTF_VARCHAR2_TABLE_100
764 , p5_a34 JTF_VARCHAR2_TABLE_100
765 , p5_a35 JTF_NUMBER_TABLE
766 , p5_a36 JTF_DATE_TABLE
767 , p5_a37 JTF_NUMBER_TABLE
768 , p5_a38 JTF_NUMBER_TABLE
769 )
770
771 as
772 ddp_inv_tbl okl_sec_investor_pvt.inv_tbl_type;
773 ddindx binary_integer; indx binary_integer;
774 begin
775
776 -- copy data to the local IN or IN-OUT args, if any
777
778
779
780
781
782 okl_sec_investor_pvt_w.rosetta_table_copy_in_p1(ddp_inv_tbl, p5_a0
783 , p5_a1
784 , p5_a2
785 , p5_a3
786 , p5_a4
787 , p5_a5
788 , p5_a6
789 , p5_a7
790 , p5_a8
791 , p5_a9
792 , p5_a10
793 , p5_a11
794 , p5_a12
795 , p5_a13
796 , p5_a14
797 , p5_a15
798 , p5_a16
799 , p5_a17
800 , p5_a18
801 , p5_a19
802 , p5_a20
803 , p5_a21
804 , p5_a22
805 , p5_a23
806 , p5_a24
807 , p5_a25
808 , p5_a26
809 , p5_a27
810 , p5_a28
811 , p5_a29
812 , p5_a30
813 , p5_a31
814 , p5_a32
815 , p5_a33
816 , p5_a34
817 , p5_a35
818 , p5_a36
819 , p5_a37
820 , p5_a38
821 );
822
823 -- here's the delegated call to the old PL/SQL routine
824 okl_sec_investor_pvt.delete_investor(p_api_version,
825 p_init_msg_list,
826 x_return_status,
827 x_msg_count,
828 x_msg_data,
829 ddp_inv_tbl);
830
831 -- copy data back from the local variables to OUT or IN-OUT args, if any
832
833
834
835
836
837 end;
838
839 end okl_sec_investor_pvt_w;