[Home] [Help]
PACKAGE BODY: APPS.OKL_SIR_PVT_W
Source
1 package body okl_sir_pvt_w as
2 /* $Header: OKLISIRB.pls 120.1 2005/07/14 12:00:09 asawanka 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_p2(t out nocopy okl_sir_pvt.sir_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_VARCHAR2_TABLE_200
27 , a5 JTF_NUMBER_TABLE
28 , a6 JTF_NUMBER_TABLE
29 , a7 JTF_NUMBER_TABLE
30 , a8 JTF_NUMBER_TABLE
31 , a9 JTF_VARCHAR2_TABLE_500
32 , a10 JTF_VARCHAR2_TABLE_500
33 , a11 JTF_VARCHAR2_TABLE_500
34 , a12 JTF_VARCHAR2_TABLE_500
35 , a13 JTF_VARCHAR2_TABLE_500
36 , a14 JTF_VARCHAR2_TABLE_500
37 , a15 JTF_VARCHAR2_TABLE_500
38 , a16 JTF_VARCHAR2_TABLE_500
39 , a17 JTF_VARCHAR2_TABLE_500
40 , a18 JTF_VARCHAR2_TABLE_500
41 , a19 JTF_VARCHAR2_TABLE_500
42 , a20 JTF_VARCHAR2_TABLE_500
43 , a21 JTF_VARCHAR2_TABLE_500
44 , a22 JTF_VARCHAR2_TABLE_500
45 , a23 JTF_VARCHAR2_TABLE_500
46 , a24 JTF_NUMBER_TABLE
47 , a25 JTF_NUMBER_TABLE
48 , a26 JTF_NUMBER_TABLE
49 , a27 JTF_DATE_TABLE
50 , a28 JTF_DATE_TABLE
51 , a29 JTF_NUMBER_TABLE
52 , a30 JTF_NUMBER_TABLE
53 , a31 JTF_DATE_TABLE
54 , a32 JTF_NUMBER_TABLE
55 , a33 JTF_NUMBER_TABLE
56 , a34 JTF_NUMBER_TABLE
57 , a35 JTF_DATE_TABLE
58 ) as
59 ddindx binary_integer; indx binary_integer;
60 begin
61 if a0 is not null and a0.count > 0 then
62 if a0.count > 0 then
63 indx := a0.first;
64 ddindx := 1;
65 while true loop
66 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
67 t(ddindx).transaction_number := rosetta_g_miss_num_map(a1(indx));
68 t(ddindx).srt_code := a2(indx);
69 t(ddindx).effective_pre_tax_yield := rosetta_g_miss_num_map(a3(indx));
70 t(ddindx).yield_name := a4(indx);
71 t(ddindx).index_number := rosetta_g_miss_num_map(a5(indx));
72 t(ddindx).effective_after_tax_yield := rosetta_g_miss_num_map(a6(indx));
73 t(ddindx).nominal_pre_tax_yield := rosetta_g_miss_num_map(a7(indx));
74 t(ddindx).nominal_after_tax_yield := rosetta_g_miss_num_map(a8(indx));
75 t(ddindx).stream_interface_attribute01 := a9(indx);
76 t(ddindx).stream_interface_attribute02 := a10(indx);
77 t(ddindx).stream_interface_attribute03 := a11(indx);
78 t(ddindx).stream_interface_attribute04 := a12(indx);
79 t(ddindx).stream_interface_attribute05 := a13(indx);
80 t(ddindx).stream_interface_attribute06 := a14(indx);
81 t(ddindx).stream_interface_attribute07 := a15(indx);
82 t(ddindx).stream_interface_attribute08 := a16(indx);
83 t(ddindx).stream_interface_attribute09 := a17(indx);
84 t(ddindx).stream_interface_attribute10 := a18(indx);
85 t(ddindx).stream_interface_attribute11 := a19(indx);
86 t(ddindx).stream_interface_attribute12 := a20(indx);
87 t(ddindx).stream_interface_attribute13 := a21(indx);
88 t(ddindx).stream_interface_attribute14 := a22(indx);
89 t(ddindx).stream_interface_attribute15 := a23(indx);
90 t(ddindx).object_version_number := rosetta_g_miss_num_map(a24(indx));
91 t(ddindx).created_by := rosetta_g_miss_num_map(a25(indx));
92 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a26(indx));
93 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a27(indx));
94 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a28(indx));
95 t(ddindx).last_update_login := rosetta_g_miss_num_map(a29(indx));
96 t(ddindx).implicit_interest_rate := rosetta_g_miss_num_map(a30(indx));
97 t(ddindx).date_processed := rosetta_g_miss_date_in_map(a31(indx));
98 t(ddindx).request_id := rosetta_g_miss_num_map(a32(indx));
99 t(ddindx).program_application_id := rosetta_g_miss_num_map(a33(indx));
100 t(ddindx).program_id := rosetta_g_miss_num_map(a34(indx));
101 t(ddindx).program_update_date := rosetta_g_miss_date_in_map(a35(indx));
102 ddindx := ddindx+1;
103 if a0.last =indx
104 then exit;
105 end if;
106 indx := a0.next(indx);
107 end loop;
108 end if;
109 end if;
110 end rosetta_table_copy_in_p2;
111 procedure rosetta_table_copy_out_p2(t okl_sir_pvt.sir_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
112 , a1 out nocopy JTF_NUMBER_TABLE
113 , a2 out nocopy JTF_VARCHAR2_TABLE_100
114 , a3 out nocopy JTF_NUMBER_TABLE
115 , a4 out nocopy JTF_VARCHAR2_TABLE_200
116 , a5 out nocopy JTF_NUMBER_TABLE
117 , a6 out nocopy JTF_NUMBER_TABLE
118 , a7 out nocopy JTF_NUMBER_TABLE
119 , a8 out nocopy JTF_NUMBER_TABLE
120 , a9 out nocopy JTF_VARCHAR2_TABLE_500
121 , a10 out nocopy JTF_VARCHAR2_TABLE_500
122 , a11 out nocopy JTF_VARCHAR2_TABLE_500
123 , a12 out nocopy JTF_VARCHAR2_TABLE_500
124 , a13 out nocopy JTF_VARCHAR2_TABLE_500
125 , a14 out nocopy JTF_VARCHAR2_TABLE_500
126 , a15 out nocopy JTF_VARCHAR2_TABLE_500
127 , a16 out nocopy JTF_VARCHAR2_TABLE_500
128 , a17 out nocopy JTF_VARCHAR2_TABLE_500
129 , a18 out nocopy JTF_VARCHAR2_TABLE_500
130 , a19 out nocopy JTF_VARCHAR2_TABLE_500
131 , a20 out nocopy JTF_VARCHAR2_TABLE_500
132 , a21 out nocopy JTF_VARCHAR2_TABLE_500
133 , a22 out nocopy JTF_VARCHAR2_TABLE_500
134 , a23 out nocopy JTF_VARCHAR2_TABLE_500
135 , a24 out nocopy JTF_NUMBER_TABLE
136 , a25 out nocopy JTF_NUMBER_TABLE
137 , a26 out nocopy JTF_NUMBER_TABLE
138 , a27 out nocopy JTF_DATE_TABLE
139 , a28 out nocopy JTF_DATE_TABLE
140 , a29 out nocopy JTF_NUMBER_TABLE
141 , a30 out nocopy JTF_NUMBER_TABLE
142 , a31 out nocopy JTF_DATE_TABLE
143 , a32 out nocopy JTF_NUMBER_TABLE
144 , a33 out nocopy JTF_NUMBER_TABLE
145 , a34 out nocopy JTF_NUMBER_TABLE
146 , a35 out nocopy JTF_DATE_TABLE
147 ) as
148 ddindx binary_integer; indx binary_integer;
149 begin
150 if t is null or t.count = 0 then
151 a0 := JTF_NUMBER_TABLE();
152 a1 := JTF_NUMBER_TABLE();
153 a2 := JTF_VARCHAR2_TABLE_100();
154 a3 := JTF_NUMBER_TABLE();
155 a4 := JTF_VARCHAR2_TABLE_200();
156 a5 := JTF_NUMBER_TABLE();
157 a6 := JTF_NUMBER_TABLE();
158 a7 := JTF_NUMBER_TABLE();
159 a8 := JTF_NUMBER_TABLE();
160 a9 := JTF_VARCHAR2_TABLE_500();
161 a10 := JTF_VARCHAR2_TABLE_500();
162 a11 := JTF_VARCHAR2_TABLE_500();
163 a12 := JTF_VARCHAR2_TABLE_500();
164 a13 := JTF_VARCHAR2_TABLE_500();
165 a14 := JTF_VARCHAR2_TABLE_500();
166 a15 := JTF_VARCHAR2_TABLE_500();
167 a16 := JTF_VARCHAR2_TABLE_500();
168 a17 := JTF_VARCHAR2_TABLE_500();
169 a18 := JTF_VARCHAR2_TABLE_500();
170 a19 := JTF_VARCHAR2_TABLE_500();
171 a20 := JTF_VARCHAR2_TABLE_500();
172 a21 := JTF_VARCHAR2_TABLE_500();
173 a22 := JTF_VARCHAR2_TABLE_500();
174 a23 := JTF_VARCHAR2_TABLE_500();
175 a24 := JTF_NUMBER_TABLE();
176 a25 := JTF_NUMBER_TABLE();
177 a26 := JTF_NUMBER_TABLE();
178 a27 := JTF_DATE_TABLE();
179 a28 := JTF_DATE_TABLE();
180 a29 := JTF_NUMBER_TABLE();
181 a30 := JTF_NUMBER_TABLE();
182 a31 := JTF_DATE_TABLE();
183 a32 := JTF_NUMBER_TABLE();
184 a33 := JTF_NUMBER_TABLE();
185 a34 := JTF_NUMBER_TABLE();
186 a35 := JTF_DATE_TABLE();
187 else
188 a0 := JTF_NUMBER_TABLE();
189 a1 := JTF_NUMBER_TABLE();
190 a2 := JTF_VARCHAR2_TABLE_100();
191 a3 := JTF_NUMBER_TABLE();
192 a4 := JTF_VARCHAR2_TABLE_200();
193 a5 := JTF_NUMBER_TABLE();
194 a6 := JTF_NUMBER_TABLE();
195 a7 := JTF_NUMBER_TABLE();
196 a8 := JTF_NUMBER_TABLE();
197 a9 := JTF_VARCHAR2_TABLE_500();
198 a10 := JTF_VARCHAR2_TABLE_500();
199 a11 := JTF_VARCHAR2_TABLE_500();
200 a12 := JTF_VARCHAR2_TABLE_500();
201 a13 := JTF_VARCHAR2_TABLE_500();
202 a14 := JTF_VARCHAR2_TABLE_500();
203 a15 := JTF_VARCHAR2_TABLE_500();
204 a16 := JTF_VARCHAR2_TABLE_500();
205 a17 := JTF_VARCHAR2_TABLE_500();
206 a18 := JTF_VARCHAR2_TABLE_500();
207 a19 := JTF_VARCHAR2_TABLE_500();
208 a20 := JTF_VARCHAR2_TABLE_500();
209 a21 := JTF_VARCHAR2_TABLE_500();
210 a22 := JTF_VARCHAR2_TABLE_500();
211 a23 := JTF_VARCHAR2_TABLE_500();
212 a24 := JTF_NUMBER_TABLE();
213 a25 := JTF_NUMBER_TABLE();
214 a26 := JTF_NUMBER_TABLE();
215 a27 := JTF_DATE_TABLE();
216 a28 := JTF_DATE_TABLE();
217 a29 := JTF_NUMBER_TABLE();
218 a30 := JTF_NUMBER_TABLE();
219 a31 := JTF_DATE_TABLE();
220 a32 := JTF_NUMBER_TABLE();
221 a33 := JTF_NUMBER_TABLE();
222 a34 := JTF_NUMBER_TABLE();
223 a35 := JTF_DATE_TABLE();
224 if t.count > 0 then
225 a0.extend(t.count);
226 a1.extend(t.count);
227 a2.extend(t.count);
228 a3.extend(t.count);
229 a4.extend(t.count);
230 a5.extend(t.count);
231 a6.extend(t.count);
232 a7.extend(t.count);
233 a8.extend(t.count);
234 a9.extend(t.count);
235 a10.extend(t.count);
236 a11.extend(t.count);
237 a12.extend(t.count);
238 a13.extend(t.count);
239 a14.extend(t.count);
240 a15.extend(t.count);
241 a16.extend(t.count);
242 a17.extend(t.count);
243 a18.extend(t.count);
244 a19.extend(t.count);
245 a20.extend(t.count);
246 a21.extend(t.count);
247 a22.extend(t.count);
248 a23.extend(t.count);
249 a24.extend(t.count);
250 a25.extend(t.count);
251 a26.extend(t.count);
252 a27.extend(t.count);
253 a28.extend(t.count);
254 a29.extend(t.count);
255 a30.extend(t.count);
256 a31.extend(t.count);
257 a32.extend(t.count);
258 a33.extend(t.count);
259 a34.extend(t.count);
260 a35.extend(t.count);
261 ddindx := t.first;
262 indx := 1;
263 while true loop
264 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
265 a1(indx) := rosetta_g_miss_num_map(t(ddindx).transaction_number);
266 a2(indx) := t(ddindx).srt_code;
267 a3(indx) := rosetta_g_miss_num_map(t(ddindx).effective_pre_tax_yield);
268 a4(indx) := t(ddindx).yield_name;
269 a5(indx) := rosetta_g_miss_num_map(t(ddindx).index_number);
270 a6(indx) := rosetta_g_miss_num_map(t(ddindx).effective_after_tax_yield);
271 a7(indx) := rosetta_g_miss_num_map(t(ddindx).nominal_pre_tax_yield);
272 a8(indx) := rosetta_g_miss_num_map(t(ddindx).nominal_after_tax_yield);
273 a9(indx) := t(ddindx).stream_interface_attribute01;
274 a10(indx) := t(ddindx).stream_interface_attribute02;
275 a11(indx) := t(ddindx).stream_interface_attribute03;
276 a12(indx) := t(ddindx).stream_interface_attribute04;
277 a13(indx) := t(ddindx).stream_interface_attribute05;
278 a14(indx) := t(ddindx).stream_interface_attribute06;
279 a15(indx) := t(ddindx).stream_interface_attribute07;
280 a16(indx) := t(ddindx).stream_interface_attribute08;
281 a17(indx) := t(ddindx).stream_interface_attribute09;
282 a18(indx) := t(ddindx).stream_interface_attribute10;
283 a19(indx) := t(ddindx).stream_interface_attribute11;
284 a20(indx) := t(ddindx).stream_interface_attribute12;
285 a21(indx) := t(ddindx).stream_interface_attribute13;
286 a22(indx) := t(ddindx).stream_interface_attribute14;
287 a23(indx) := t(ddindx).stream_interface_attribute15;
288 a24(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
289 a25(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
290 a26(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
291 a27(indx) := t(ddindx).creation_date;
292 a28(indx) := t(ddindx).last_update_date;
293 a29(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
294 a30(indx) := rosetta_g_miss_num_map(t(ddindx).implicit_interest_rate);
295 a31(indx) := t(ddindx).date_processed;
296 a32(indx) := rosetta_g_miss_num_map(t(ddindx).request_id);
297 a33(indx) := rosetta_g_miss_num_map(t(ddindx).program_application_id);
298 a34(indx) := rosetta_g_miss_num_map(t(ddindx).program_id);
299 a35(indx) := t(ddindx).program_update_date;
300 indx := indx+1;
301 if t.last =ddindx
302 then exit;
303 end if;
304 ddindx := t.next(ddindx);
305 end loop;
306 end if;
307 end if;
308 end rosetta_table_copy_out_p2;
309
310 procedure rosetta_table_copy_in_p5(t out nocopy okl_sir_pvt.sirv_tbl_type, a0 JTF_NUMBER_TABLE
311 , a1 JTF_NUMBER_TABLE
312 , a2 JTF_VARCHAR2_TABLE_100
313 , a3 JTF_NUMBER_TABLE
314 , a4 JTF_VARCHAR2_TABLE_200
315 , a5 JTF_NUMBER_TABLE
316 , a6 JTF_NUMBER_TABLE
317 , a7 JTF_NUMBER_TABLE
318 , a8 JTF_NUMBER_TABLE
319 , a9 JTF_VARCHAR2_TABLE_500
320 , a10 JTF_VARCHAR2_TABLE_500
321 , a11 JTF_VARCHAR2_TABLE_500
322 , a12 JTF_VARCHAR2_TABLE_500
323 , a13 JTF_VARCHAR2_TABLE_500
324 , a14 JTF_VARCHAR2_TABLE_500
325 , a15 JTF_VARCHAR2_TABLE_500
326 , a16 JTF_VARCHAR2_TABLE_500
327 , a17 JTF_VARCHAR2_TABLE_500
328 , a18 JTF_VARCHAR2_TABLE_500
329 , a19 JTF_VARCHAR2_TABLE_500
330 , a20 JTF_VARCHAR2_TABLE_500
331 , a21 JTF_VARCHAR2_TABLE_500
332 , a22 JTF_VARCHAR2_TABLE_500
333 , a23 JTF_VARCHAR2_TABLE_500
334 , a24 JTF_NUMBER_TABLE
335 , a25 JTF_NUMBER_TABLE
336 , a26 JTF_NUMBER_TABLE
337 , a27 JTF_DATE_TABLE
338 , a28 JTF_DATE_TABLE
339 , a29 JTF_NUMBER_TABLE
340 , a30 JTF_NUMBER_TABLE
341 , a31 JTF_DATE_TABLE
342 , a32 JTF_NUMBER_TABLE
343 , a33 JTF_NUMBER_TABLE
344 , a34 JTF_NUMBER_TABLE
345 , a35 JTF_DATE_TABLE
346 ) as
347 ddindx binary_integer; indx binary_integer;
348 begin
349 if a0 is not null and a0.count > 0 then
350 if a0.count > 0 then
351 indx := a0.first;
352 ddindx := 1;
353 while true loop
354 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
355 t(ddindx).transaction_number := rosetta_g_miss_num_map(a1(indx));
356 t(ddindx).srt_code := a2(indx);
357 t(ddindx).effective_pre_tax_yield := rosetta_g_miss_num_map(a3(indx));
358 t(ddindx).yield_name := a4(indx);
359 t(ddindx).index_number := rosetta_g_miss_num_map(a5(indx));
360 t(ddindx).effective_after_tax_yield := rosetta_g_miss_num_map(a6(indx));
361 t(ddindx).nominal_pre_tax_yield := rosetta_g_miss_num_map(a7(indx));
362 t(ddindx).nominal_after_tax_yield := rosetta_g_miss_num_map(a8(indx));
363 t(ddindx).stream_interface_attribute01 := a9(indx);
364 t(ddindx).stream_interface_attribute02 := a10(indx);
365 t(ddindx).stream_interface_attribute03 := a11(indx);
366 t(ddindx).stream_interface_attribute04 := a12(indx);
367 t(ddindx).stream_interface_attribute05 := a13(indx);
368 t(ddindx).stream_interface_attribute06 := a14(indx);
369 t(ddindx).stream_interface_attribute07 := a15(indx);
370 t(ddindx).stream_interface_attribute08 := a16(indx);
371 t(ddindx).stream_interface_attribute09 := a17(indx);
372 t(ddindx).stream_interface_attribute10 := a18(indx);
373 t(ddindx).stream_interface_attribute11 := a19(indx);
374 t(ddindx).stream_interface_attribute12 := a20(indx);
375 t(ddindx).stream_interface_attribute13 := a21(indx);
376 t(ddindx).stream_interface_attribute14 := a22(indx);
377 t(ddindx).stream_interface_attribute15 := a23(indx);
378 t(ddindx).object_version_number := rosetta_g_miss_num_map(a24(indx));
379 t(ddindx).created_by := rosetta_g_miss_num_map(a25(indx));
380 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a26(indx));
381 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a27(indx));
382 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a28(indx));
383 t(ddindx).last_update_login := rosetta_g_miss_num_map(a29(indx));
384 t(ddindx).implicit_interest_rate := rosetta_g_miss_num_map(a30(indx));
385 t(ddindx).date_processed := rosetta_g_miss_date_in_map(a31(indx));
386 t(ddindx).request_id := rosetta_g_miss_num_map(a32(indx));
387 t(ddindx).program_application_id := rosetta_g_miss_num_map(a33(indx));
388 t(ddindx).program_id := rosetta_g_miss_num_map(a34(indx));
389 t(ddindx).program_update_date := rosetta_g_miss_date_in_map(a35(indx));
390 ddindx := ddindx+1;
391 if a0.last =indx
392 then exit;
393 end if;
394 indx := a0.next(indx);
395 end loop;
396 end if;
397 end if;
398 end rosetta_table_copy_in_p5;
399 procedure rosetta_table_copy_out_p5(t okl_sir_pvt.sirv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
400 , a1 out nocopy JTF_NUMBER_TABLE
401 , a2 out nocopy JTF_VARCHAR2_TABLE_100
402 , a3 out nocopy JTF_NUMBER_TABLE
403 , a4 out nocopy JTF_VARCHAR2_TABLE_200
404 , a5 out nocopy JTF_NUMBER_TABLE
405 , a6 out nocopy JTF_NUMBER_TABLE
406 , a7 out nocopy JTF_NUMBER_TABLE
407 , a8 out nocopy JTF_NUMBER_TABLE
408 , a9 out nocopy JTF_VARCHAR2_TABLE_500
409 , a10 out nocopy JTF_VARCHAR2_TABLE_500
410 , a11 out nocopy JTF_VARCHAR2_TABLE_500
411 , a12 out nocopy JTF_VARCHAR2_TABLE_500
412 , a13 out nocopy JTF_VARCHAR2_TABLE_500
413 , a14 out nocopy JTF_VARCHAR2_TABLE_500
414 , a15 out nocopy JTF_VARCHAR2_TABLE_500
415 , a16 out nocopy JTF_VARCHAR2_TABLE_500
416 , a17 out nocopy JTF_VARCHAR2_TABLE_500
417 , a18 out nocopy JTF_VARCHAR2_TABLE_500
418 , a19 out nocopy JTF_VARCHAR2_TABLE_500
419 , a20 out nocopy JTF_VARCHAR2_TABLE_500
420 , a21 out nocopy JTF_VARCHAR2_TABLE_500
421 , a22 out nocopy JTF_VARCHAR2_TABLE_500
422 , a23 out nocopy JTF_VARCHAR2_TABLE_500
423 , a24 out nocopy JTF_NUMBER_TABLE
424 , a25 out nocopy JTF_NUMBER_TABLE
425 , a26 out nocopy JTF_NUMBER_TABLE
426 , a27 out nocopy JTF_DATE_TABLE
427 , a28 out nocopy JTF_DATE_TABLE
428 , a29 out nocopy JTF_NUMBER_TABLE
429 , a30 out nocopy JTF_NUMBER_TABLE
430 , a31 out nocopy JTF_DATE_TABLE
431 , a32 out nocopy JTF_NUMBER_TABLE
432 , a33 out nocopy JTF_NUMBER_TABLE
433 , a34 out nocopy JTF_NUMBER_TABLE
434 , a35 out nocopy JTF_DATE_TABLE
435 ) as
436 ddindx binary_integer; indx binary_integer;
437 begin
438 if t is null or t.count = 0 then
439 a0 := JTF_NUMBER_TABLE();
440 a1 := JTF_NUMBER_TABLE();
441 a2 := JTF_VARCHAR2_TABLE_100();
442 a3 := JTF_NUMBER_TABLE();
443 a4 := JTF_VARCHAR2_TABLE_200();
444 a5 := JTF_NUMBER_TABLE();
445 a6 := JTF_NUMBER_TABLE();
446 a7 := JTF_NUMBER_TABLE();
447 a8 := JTF_NUMBER_TABLE();
448 a9 := JTF_VARCHAR2_TABLE_500();
449 a10 := JTF_VARCHAR2_TABLE_500();
450 a11 := JTF_VARCHAR2_TABLE_500();
451 a12 := JTF_VARCHAR2_TABLE_500();
452 a13 := JTF_VARCHAR2_TABLE_500();
453 a14 := JTF_VARCHAR2_TABLE_500();
454 a15 := JTF_VARCHAR2_TABLE_500();
455 a16 := JTF_VARCHAR2_TABLE_500();
456 a17 := JTF_VARCHAR2_TABLE_500();
457 a18 := JTF_VARCHAR2_TABLE_500();
458 a19 := JTF_VARCHAR2_TABLE_500();
459 a20 := JTF_VARCHAR2_TABLE_500();
460 a21 := JTF_VARCHAR2_TABLE_500();
461 a22 := JTF_VARCHAR2_TABLE_500();
462 a23 := JTF_VARCHAR2_TABLE_500();
463 a24 := JTF_NUMBER_TABLE();
464 a25 := JTF_NUMBER_TABLE();
465 a26 := JTF_NUMBER_TABLE();
466 a27 := JTF_DATE_TABLE();
467 a28 := JTF_DATE_TABLE();
468 a29 := JTF_NUMBER_TABLE();
469 a30 := JTF_NUMBER_TABLE();
470 a31 := JTF_DATE_TABLE();
471 a32 := JTF_NUMBER_TABLE();
472 a33 := JTF_NUMBER_TABLE();
473 a34 := JTF_NUMBER_TABLE();
474 a35 := JTF_DATE_TABLE();
475 else
476 a0 := JTF_NUMBER_TABLE();
477 a1 := JTF_NUMBER_TABLE();
478 a2 := JTF_VARCHAR2_TABLE_100();
479 a3 := JTF_NUMBER_TABLE();
480 a4 := JTF_VARCHAR2_TABLE_200();
481 a5 := JTF_NUMBER_TABLE();
482 a6 := JTF_NUMBER_TABLE();
483 a7 := JTF_NUMBER_TABLE();
484 a8 := JTF_NUMBER_TABLE();
485 a9 := JTF_VARCHAR2_TABLE_500();
486 a10 := JTF_VARCHAR2_TABLE_500();
487 a11 := JTF_VARCHAR2_TABLE_500();
488 a12 := JTF_VARCHAR2_TABLE_500();
489 a13 := JTF_VARCHAR2_TABLE_500();
490 a14 := JTF_VARCHAR2_TABLE_500();
491 a15 := JTF_VARCHAR2_TABLE_500();
492 a16 := JTF_VARCHAR2_TABLE_500();
493 a17 := JTF_VARCHAR2_TABLE_500();
494 a18 := JTF_VARCHAR2_TABLE_500();
495 a19 := JTF_VARCHAR2_TABLE_500();
496 a20 := JTF_VARCHAR2_TABLE_500();
497 a21 := JTF_VARCHAR2_TABLE_500();
498 a22 := JTF_VARCHAR2_TABLE_500();
499 a23 := JTF_VARCHAR2_TABLE_500();
500 a24 := JTF_NUMBER_TABLE();
501 a25 := JTF_NUMBER_TABLE();
502 a26 := JTF_NUMBER_TABLE();
503 a27 := JTF_DATE_TABLE();
504 a28 := JTF_DATE_TABLE();
505 a29 := JTF_NUMBER_TABLE();
506 a30 := JTF_NUMBER_TABLE();
507 a31 := JTF_DATE_TABLE();
508 a32 := JTF_NUMBER_TABLE();
509 a33 := JTF_NUMBER_TABLE();
510 a34 := JTF_NUMBER_TABLE();
511 a35 := JTF_DATE_TABLE();
512 if t.count > 0 then
513 a0.extend(t.count);
514 a1.extend(t.count);
515 a2.extend(t.count);
516 a3.extend(t.count);
517 a4.extend(t.count);
518 a5.extend(t.count);
519 a6.extend(t.count);
520 a7.extend(t.count);
521 a8.extend(t.count);
522 a9.extend(t.count);
523 a10.extend(t.count);
524 a11.extend(t.count);
525 a12.extend(t.count);
526 a13.extend(t.count);
527 a14.extend(t.count);
528 a15.extend(t.count);
529 a16.extend(t.count);
530 a17.extend(t.count);
531 a18.extend(t.count);
532 a19.extend(t.count);
533 a20.extend(t.count);
534 a21.extend(t.count);
535 a22.extend(t.count);
536 a23.extend(t.count);
537 a24.extend(t.count);
538 a25.extend(t.count);
539 a26.extend(t.count);
540 a27.extend(t.count);
541 a28.extend(t.count);
542 a29.extend(t.count);
543 a30.extend(t.count);
544 a31.extend(t.count);
545 a32.extend(t.count);
546 a33.extend(t.count);
547 a34.extend(t.count);
548 a35.extend(t.count);
549 ddindx := t.first;
550 indx := 1;
551 while true loop
552 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
553 a1(indx) := rosetta_g_miss_num_map(t(ddindx).transaction_number);
554 a2(indx) := t(ddindx).srt_code;
555 a3(indx) := rosetta_g_miss_num_map(t(ddindx).effective_pre_tax_yield);
556 a4(indx) := t(ddindx).yield_name;
557 a5(indx) := rosetta_g_miss_num_map(t(ddindx).index_number);
558 a6(indx) := rosetta_g_miss_num_map(t(ddindx).effective_after_tax_yield);
559 a7(indx) := rosetta_g_miss_num_map(t(ddindx).nominal_pre_tax_yield);
560 a8(indx) := rosetta_g_miss_num_map(t(ddindx).nominal_after_tax_yield);
561 a9(indx) := t(ddindx).stream_interface_attribute01;
562 a10(indx) := t(ddindx).stream_interface_attribute02;
563 a11(indx) := t(ddindx).stream_interface_attribute03;
564 a12(indx) := t(ddindx).stream_interface_attribute04;
565 a13(indx) := t(ddindx).stream_interface_attribute05;
566 a14(indx) := t(ddindx).stream_interface_attribute06;
567 a15(indx) := t(ddindx).stream_interface_attribute07;
568 a16(indx) := t(ddindx).stream_interface_attribute08;
569 a17(indx) := t(ddindx).stream_interface_attribute09;
570 a18(indx) := t(ddindx).stream_interface_attribute10;
571 a19(indx) := t(ddindx).stream_interface_attribute11;
572 a20(indx) := t(ddindx).stream_interface_attribute12;
573 a21(indx) := t(ddindx).stream_interface_attribute13;
574 a22(indx) := t(ddindx).stream_interface_attribute14;
575 a23(indx) := t(ddindx).stream_interface_attribute15;
576 a24(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
577 a25(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
578 a26(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
579 a27(indx) := t(ddindx).creation_date;
580 a28(indx) := t(ddindx).last_update_date;
581 a29(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
582 a30(indx) := rosetta_g_miss_num_map(t(ddindx).implicit_interest_rate);
583 a31(indx) := t(ddindx).date_processed;
584 a32(indx) := rosetta_g_miss_num_map(t(ddindx).request_id);
585 a33(indx) := rosetta_g_miss_num_map(t(ddindx).program_application_id);
586 a34(indx) := rosetta_g_miss_num_map(t(ddindx).program_id);
587 a35(indx) := t(ddindx).program_update_date;
588 indx := indx+1;
589 if t.last =ddindx
590 then exit;
591 end if;
592 ddindx := t.next(ddindx);
593 end loop;
594 end if;
595 end if;
596 end rosetta_table_copy_out_p5;
597
598 procedure insert_row(p_api_version NUMBER
599 , p_init_msg_list VARCHAR2
600 , x_return_status out nocopy VARCHAR2
601 , x_msg_count out nocopy NUMBER
602 , x_msg_data out nocopy VARCHAR2
603 , p6_a0 out nocopy NUMBER
604 , p6_a1 out nocopy NUMBER
605 , p6_a2 out nocopy VARCHAR2
606 , p6_a3 out nocopy NUMBER
607 , p6_a4 out nocopy VARCHAR2
608 , p6_a5 out nocopy NUMBER
609 , p6_a6 out nocopy NUMBER
610 , p6_a7 out nocopy NUMBER
611 , p6_a8 out nocopy NUMBER
612 , p6_a9 out nocopy VARCHAR2
613 , p6_a10 out nocopy VARCHAR2
614 , p6_a11 out nocopy VARCHAR2
615 , p6_a12 out nocopy VARCHAR2
616 , p6_a13 out nocopy VARCHAR2
617 , p6_a14 out nocopy VARCHAR2
618 , p6_a15 out nocopy VARCHAR2
619 , p6_a16 out nocopy VARCHAR2
620 , p6_a17 out nocopy VARCHAR2
621 , p6_a18 out nocopy VARCHAR2
622 , p6_a19 out nocopy VARCHAR2
623 , p6_a20 out nocopy VARCHAR2
624 , p6_a21 out nocopy VARCHAR2
625 , p6_a22 out nocopy VARCHAR2
626 , p6_a23 out nocopy VARCHAR2
627 , p6_a24 out nocopy NUMBER
628 , p6_a25 out nocopy NUMBER
629 , p6_a26 out nocopy NUMBER
630 , p6_a27 out nocopy DATE
631 , p6_a28 out nocopy DATE
632 , p6_a29 out nocopy NUMBER
633 , p6_a30 out nocopy NUMBER
634 , p6_a31 out nocopy DATE
635 , p6_a32 out nocopy NUMBER
636 , p6_a33 out nocopy NUMBER
637 , p6_a34 out nocopy NUMBER
638 , p6_a35 out nocopy DATE
639 , p5_a0 NUMBER := 0-1962.0724
640 , p5_a1 NUMBER := 0-1962.0724
641 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
642 , p5_a3 NUMBER := 0-1962.0724
643 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
644 , p5_a5 NUMBER := 0-1962.0724
645 , p5_a6 NUMBER := 0-1962.0724
646 , p5_a7 NUMBER := 0-1962.0724
647 , p5_a8 NUMBER := 0-1962.0724
648 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
649 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
650 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
651 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
652 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
653 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
654 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
655 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
656 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
657 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
658 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
659 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
660 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
661 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
662 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
663 , p5_a24 NUMBER := 0-1962.0724
664 , p5_a25 NUMBER := 0-1962.0724
665 , p5_a26 NUMBER := 0-1962.0724
666 , p5_a27 DATE := fnd_api.g_miss_date
667 , p5_a28 DATE := fnd_api.g_miss_date
668 , p5_a29 NUMBER := 0-1962.0724
669 , p5_a30 NUMBER := 0-1962.0724
670 , p5_a31 DATE := fnd_api.g_miss_date
671 , p5_a32 NUMBER := 0-1962.0724
672 , p5_a33 NUMBER := 0-1962.0724
673 , p5_a34 NUMBER := 0-1962.0724
674 , p5_a35 DATE := fnd_api.g_miss_date
675 )
676
677 as
678 ddp_sirv_rec okl_sir_pvt.sirv_rec_type;
679 ddx_sirv_rec okl_sir_pvt.sirv_rec_type;
680 ddindx binary_integer; indx binary_integer;
681 begin
682
683 -- copy data to the local IN or IN-OUT args, if any
684
685
686
687
688
689 ddp_sirv_rec.id := rosetta_g_miss_num_map(p5_a0);
690 ddp_sirv_rec.transaction_number := rosetta_g_miss_num_map(p5_a1);
691 ddp_sirv_rec.srt_code := p5_a2;
692 ddp_sirv_rec.effective_pre_tax_yield := rosetta_g_miss_num_map(p5_a3);
693 ddp_sirv_rec.yield_name := p5_a4;
694 ddp_sirv_rec.index_number := rosetta_g_miss_num_map(p5_a5);
695 ddp_sirv_rec.effective_after_tax_yield := rosetta_g_miss_num_map(p5_a6);
696 ddp_sirv_rec.nominal_pre_tax_yield := rosetta_g_miss_num_map(p5_a7);
697 ddp_sirv_rec.nominal_after_tax_yield := rosetta_g_miss_num_map(p5_a8);
698 ddp_sirv_rec.stream_interface_attribute01 := p5_a9;
699 ddp_sirv_rec.stream_interface_attribute02 := p5_a10;
700 ddp_sirv_rec.stream_interface_attribute03 := p5_a11;
701 ddp_sirv_rec.stream_interface_attribute04 := p5_a12;
702 ddp_sirv_rec.stream_interface_attribute05 := p5_a13;
703 ddp_sirv_rec.stream_interface_attribute06 := p5_a14;
704 ddp_sirv_rec.stream_interface_attribute07 := p5_a15;
705 ddp_sirv_rec.stream_interface_attribute08 := p5_a16;
706 ddp_sirv_rec.stream_interface_attribute09 := p5_a17;
707 ddp_sirv_rec.stream_interface_attribute10 := p5_a18;
708 ddp_sirv_rec.stream_interface_attribute11 := p5_a19;
709 ddp_sirv_rec.stream_interface_attribute12 := p5_a20;
710 ddp_sirv_rec.stream_interface_attribute13 := p5_a21;
711 ddp_sirv_rec.stream_interface_attribute14 := p5_a22;
712 ddp_sirv_rec.stream_interface_attribute15 := p5_a23;
713 ddp_sirv_rec.object_version_number := rosetta_g_miss_num_map(p5_a24);
714 ddp_sirv_rec.created_by := rosetta_g_miss_num_map(p5_a25);
715 ddp_sirv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a26);
716 ddp_sirv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a27);
717 ddp_sirv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a28);
718 ddp_sirv_rec.last_update_login := rosetta_g_miss_num_map(p5_a29);
719 ddp_sirv_rec.implicit_interest_rate := rosetta_g_miss_num_map(p5_a30);
720 ddp_sirv_rec.date_processed := rosetta_g_miss_date_in_map(p5_a31);
721 ddp_sirv_rec.request_id := rosetta_g_miss_num_map(p5_a32);
722 ddp_sirv_rec.program_application_id := rosetta_g_miss_num_map(p5_a33);
723 ddp_sirv_rec.program_id := rosetta_g_miss_num_map(p5_a34);
724 ddp_sirv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a35);
725
726
727 -- here's the delegated call to the old PL/SQL routine
728 okl_sir_pvt.insert_row(p_api_version,
729 p_init_msg_list,
730 x_return_status,
731 x_msg_count,
732 x_msg_data,
733 ddp_sirv_rec,
734 ddx_sirv_rec);
735
736 -- copy data back from the local variables to OUT or IN-OUT args, if any
737
738
739
740
741
742
743 p6_a0 := rosetta_g_miss_num_map(ddx_sirv_rec.id);
744 p6_a1 := rosetta_g_miss_num_map(ddx_sirv_rec.transaction_number);
745 p6_a2 := ddx_sirv_rec.srt_code;
746 p6_a3 := rosetta_g_miss_num_map(ddx_sirv_rec.effective_pre_tax_yield);
747 p6_a4 := ddx_sirv_rec.yield_name;
748 p6_a5 := rosetta_g_miss_num_map(ddx_sirv_rec.index_number);
749 p6_a6 := rosetta_g_miss_num_map(ddx_sirv_rec.effective_after_tax_yield);
750 p6_a7 := rosetta_g_miss_num_map(ddx_sirv_rec.nominal_pre_tax_yield);
751 p6_a8 := rosetta_g_miss_num_map(ddx_sirv_rec.nominal_after_tax_yield);
752 p6_a9 := ddx_sirv_rec.stream_interface_attribute01;
753 p6_a10 := ddx_sirv_rec.stream_interface_attribute02;
754 p6_a11 := ddx_sirv_rec.stream_interface_attribute03;
755 p6_a12 := ddx_sirv_rec.stream_interface_attribute04;
756 p6_a13 := ddx_sirv_rec.stream_interface_attribute05;
757 p6_a14 := ddx_sirv_rec.stream_interface_attribute06;
758 p6_a15 := ddx_sirv_rec.stream_interface_attribute07;
759 p6_a16 := ddx_sirv_rec.stream_interface_attribute08;
760 p6_a17 := ddx_sirv_rec.stream_interface_attribute09;
761 p6_a18 := ddx_sirv_rec.stream_interface_attribute10;
762 p6_a19 := ddx_sirv_rec.stream_interface_attribute11;
763 p6_a20 := ddx_sirv_rec.stream_interface_attribute12;
764 p6_a21 := ddx_sirv_rec.stream_interface_attribute13;
765 p6_a22 := ddx_sirv_rec.stream_interface_attribute14;
766 p6_a23 := ddx_sirv_rec.stream_interface_attribute15;
767 p6_a24 := rosetta_g_miss_num_map(ddx_sirv_rec.object_version_number);
768 p6_a25 := rosetta_g_miss_num_map(ddx_sirv_rec.created_by);
769 p6_a26 := rosetta_g_miss_num_map(ddx_sirv_rec.last_updated_by);
770 p6_a27 := ddx_sirv_rec.creation_date;
771 p6_a28 := ddx_sirv_rec.last_update_date;
772 p6_a29 := rosetta_g_miss_num_map(ddx_sirv_rec.last_update_login);
773 p6_a30 := rosetta_g_miss_num_map(ddx_sirv_rec.implicit_interest_rate);
774 p6_a31 := ddx_sirv_rec.date_processed;
775 p6_a32 := rosetta_g_miss_num_map(ddx_sirv_rec.request_id);
776 p6_a33 := rosetta_g_miss_num_map(ddx_sirv_rec.program_application_id);
777 p6_a34 := rosetta_g_miss_num_map(ddx_sirv_rec.program_id);
778 p6_a35 := ddx_sirv_rec.program_update_date;
779 end;
780
781 procedure insert_row(p_api_version NUMBER
782 , p_init_msg_list VARCHAR2
783 , x_return_status out nocopy VARCHAR2
784 , x_msg_count out nocopy NUMBER
785 , x_msg_data out nocopy VARCHAR2
786 , p5_a0 JTF_NUMBER_TABLE
787 , p5_a1 JTF_NUMBER_TABLE
788 , p5_a2 JTF_VARCHAR2_TABLE_100
789 , p5_a3 JTF_NUMBER_TABLE
790 , p5_a4 JTF_VARCHAR2_TABLE_200
791 , p5_a5 JTF_NUMBER_TABLE
792 , p5_a6 JTF_NUMBER_TABLE
793 , p5_a7 JTF_NUMBER_TABLE
794 , p5_a8 JTF_NUMBER_TABLE
795 , p5_a9 JTF_VARCHAR2_TABLE_500
796 , p5_a10 JTF_VARCHAR2_TABLE_500
797 , p5_a11 JTF_VARCHAR2_TABLE_500
798 , p5_a12 JTF_VARCHAR2_TABLE_500
799 , p5_a13 JTF_VARCHAR2_TABLE_500
800 , p5_a14 JTF_VARCHAR2_TABLE_500
801 , p5_a15 JTF_VARCHAR2_TABLE_500
802 , p5_a16 JTF_VARCHAR2_TABLE_500
803 , p5_a17 JTF_VARCHAR2_TABLE_500
804 , p5_a18 JTF_VARCHAR2_TABLE_500
805 , p5_a19 JTF_VARCHAR2_TABLE_500
806 , p5_a20 JTF_VARCHAR2_TABLE_500
807 , p5_a21 JTF_VARCHAR2_TABLE_500
808 , p5_a22 JTF_VARCHAR2_TABLE_500
809 , p5_a23 JTF_VARCHAR2_TABLE_500
810 , p5_a24 JTF_NUMBER_TABLE
811 , p5_a25 JTF_NUMBER_TABLE
812 , p5_a26 JTF_NUMBER_TABLE
813 , p5_a27 JTF_DATE_TABLE
814 , p5_a28 JTF_DATE_TABLE
815 , p5_a29 JTF_NUMBER_TABLE
816 , p5_a30 JTF_NUMBER_TABLE
817 , p5_a31 JTF_DATE_TABLE
818 , p5_a32 JTF_NUMBER_TABLE
819 , p5_a33 JTF_NUMBER_TABLE
820 , p5_a34 JTF_NUMBER_TABLE
821 , p5_a35 JTF_DATE_TABLE
822 , p6_a0 out nocopy JTF_NUMBER_TABLE
823 , p6_a1 out nocopy JTF_NUMBER_TABLE
824 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
825 , p6_a3 out nocopy JTF_NUMBER_TABLE
826 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_200
827 , p6_a5 out nocopy JTF_NUMBER_TABLE
828 , p6_a6 out nocopy JTF_NUMBER_TABLE
829 , p6_a7 out nocopy JTF_NUMBER_TABLE
830 , p6_a8 out nocopy JTF_NUMBER_TABLE
831 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
832 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
833 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
834 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
835 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
836 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
837 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
838 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
839 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
840 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
841 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
842 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
843 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
844 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
845 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
846 , p6_a24 out nocopy JTF_NUMBER_TABLE
847 , p6_a25 out nocopy JTF_NUMBER_TABLE
848 , p6_a26 out nocopy JTF_NUMBER_TABLE
849 , p6_a27 out nocopy JTF_DATE_TABLE
850 , p6_a28 out nocopy JTF_DATE_TABLE
851 , p6_a29 out nocopy JTF_NUMBER_TABLE
852 , p6_a30 out nocopy JTF_NUMBER_TABLE
853 , p6_a31 out nocopy JTF_DATE_TABLE
854 , p6_a32 out nocopy JTF_NUMBER_TABLE
855 , p6_a33 out nocopy JTF_NUMBER_TABLE
856 , p6_a34 out nocopy JTF_NUMBER_TABLE
857 , p6_a35 out nocopy JTF_DATE_TABLE
858 )
859
860 as
861 ddp_sirv_tbl okl_sir_pvt.sirv_tbl_type;
862 ddx_sirv_tbl okl_sir_pvt.sirv_tbl_type;
863 ddindx binary_integer; indx binary_integer;
864 begin
865
866 -- copy data to the local IN or IN-OUT args, if any
867
868
869
870
871
872 okl_sir_pvt_w.rosetta_table_copy_in_p5(ddp_sirv_tbl, p5_a0
873 , p5_a1
874 , p5_a2
875 , p5_a3
876 , p5_a4
877 , p5_a5
878 , p5_a6
879 , p5_a7
880 , p5_a8
881 , p5_a9
882 , p5_a10
883 , p5_a11
884 , p5_a12
885 , p5_a13
886 , p5_a14
887 , p5_a15
888 , p5_a16
889 , p5_a17
890 , p5_a18
891 , p5_a19
892 , p5_a20
893 , p5_a21
894 , p5_a22
895 , p5_a23
896 , p5_a24
897 , p5_a25
898 , p5_a26
899 , p5_a27
900 , p5_a28
901 , p5_a29
902 , p5_a30
903 , p5_a31
904 , p5_a32
905 , p5_a33
906 , p5_a34
907 , p5_a35
908 );
909
910
911 -- here's the delegated call to the old PL/SQL routine
912 okl_sir_pvt.insert_row(p_api_version,
913 p_init_msg_list,
914 x_return_status,
915 x_msg_count,
916 x_msg_data,
917 ddp_sirv_tbl,
918 ddx_sirv_tbl);
919
920 -- copy data back from the local variables to OUT or IN-OUT args, if any
921
922
923
924
925
926
927 okl_sir_pvt_w.rosetta_table_copy_out_p5(ddx_sirv_tbl, p6_a0
928 , p6_a1
929 , p6_a2
930 , p6_a3
931 , p6_a4
932 , p6_a5
933 , p6_a6
934 , p6_a7
935 , p6_a8
936 , p6_a9
937 , p6_a10
938 , p6_a11
939 , p6_a12
940 , p6_a13
941 , p6_a14
942 , p6_a15
943 , p6_a16
944 , p6_a17
945 , p6_a18
946 , p6_a19
947 , p6_a20
948 , p6_a21
949 , p6_a22
950 , p6_a23
951 , p6_a24
952 , p6_a25
953 , p6_a26
954 , p6_a27
955 , p6_a28
956 , p6_a29
957 , p6_a30
958 , p6_a31
959 , p6_a32
960 , p6_a33
961 , p6_a34
962 , p6_a35
963 );
964 end;
965
966 procedure lock_row(p_api_version NUMBER
967 , p_init_msg_list VARCHAR2
968 , x_return_status out nocopy VARCHAR2
969 , x_msg_count out nocopy NUMBER
970 , x_msg_data out nocopy VARCHAR2
971 , p5_a0 NUMBER := 0-1962.0724
972 , p5_a1 NUMBER := 0-1962.0724
973 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
974 , p5_a3 NUMBER := 0-1962.0724
975 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
976 , p5_a5 NUMBER := 0-1962.0724
977 , p5_a6 NUMBER := 0-1962.0724
978 , p5_a7 NUMBER := 0-1962.0724
979 , p5_a8 NUMBER := 0-1962.0724
980 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
981 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
982 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
983 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
984 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
985 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
986 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
987 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
988 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
989 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
990 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
991 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
992 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
993 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
994 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
995 , p5_a24 NUMBER := 0-1962.0724
996 , p5_a25 NUMBER := 0-1962.0724
997 , p5_a26 NUMBER := 0-1962.0724
998 , p5_a27 DATE := fnd_api.g_miss_date
999 , p5_a28 DATE := fnd_api.g_miss_date
1000 , p5_a29 NUMBER := 0-1962.0724
1001 , p5_a30 NUMBER := 0-1962.0724
1002 , p5_a31 DATE := fnd_api.g_miss_date
1003 , p5_a32 NUMBER := 0-1962.0724
1004 , p5_a33 NUMBER := 0-1962.0724
1005 , p5_a34 NUMBER := 0-1962.0724
1006 , p5_a35 DATE := fnd_api.g_miss_date
1007 )
1008
1009 as
1010 ddp_sirv_rec okl_sir_pvt.sirv_rec_type;
1011 ddindx binary_integer; indx binary_integer;
1012 begin
1013
1014 -- copy data to the local IN or IN-OUT args, if any
1015
1016
1017
1018
1019
1020 ddp_sirv_rec.id := rosetta_g_miss_num_map(p5_a0);
1021 ddp_sirv_rec.transaction_number := rosetta_g_miss_num_map(p5_a1);
1022 ddp_sirv_rec.srt_code := p5_a2;
1023 ddp_sirv_rec.effective_pre_tax_yield := rosetta_g_miss_num_map(p5_a3);
1024 ddp_sirv_rec.yield_name := p5_a4;
1025 ddp_sirv_rec.index_number := rosetta_g_miss_num_map(p5_a5);
1026 ddp_sirv_rec.effective_after_tax_yield := rosetta_g_miss_num_map(p5_a6);
1027 ddp_sirv_rec.nominal_pre_tax_yield := rosetta_g_miss_num_map(p5_a7);
1028 ddp_sirv_rec.nominal_after_tax_yield := rosetta_g_miss_num_map(p5_a8);
1029 ddp_sirv_rec.stream_interface_attribute01 := p5_a9;
1030 ddp_sirv_rec.stream_interface_attribute02 := p5_a10;
1031 ddp_sirv_rec.stream_interface_attribute03 := p5_a11;
1032 ddp_sirv_rec.stream_interface_attribute04 := p5_a12;
1033 ddp_sirv_rec.stream_interface_attribute05 := p5_a13;
1034 ddp_sirv_rec.stream_interface_attribute06 := p5_a14;
1035 ddp_sirv_rec.stream_interface_attribute07 := p5_a15;
1036 ddp_sirv_rec.stream_interface_attribute08 := p5_a16;
1037 ddp_sirv_rec.stream_interface_attribute09 := p5_a17;
1038 ddp_sirv_rec.stream_interface_attribute10 := p5_a18;
1039 ddp_sirv_rec.stream_interface_attribute11 := p5_a19;
1040 ddp_sirv_rec.stream_interface_attribute12 := p5_a20;
1041 ddp_sirv_rec.stream_interface_attribute13 := p5_a21;
1042 ddp_sirv_rec.stream_interface_attribute14 := p5_a22;
1043 ddp_sirv_rec.stream_interface_attribute15 := p5_a23;
1044 ddp_sirv_rec.object_version_number := rosetta_g_miss_num_map(p5_a24);
1045 ddp_sirv_rec.created_by := rosetta_g_miss_num_map(p5_a25);
1046 ddp_sirv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a26);
1047 ddp_sirv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a27);
1048 ddp_sirv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a28);
1049 ddp_sirv_rec.last_update_login := rosetta_g_miss_num_map(p5_a29);
1050 ddp_sirv_rec.implicit_interest_rate := rosetta_g_miss_num_map(p5_a30);
1051 ddp_sirv_rec.date_processed := rosetta_g_miss_date_in_map(p5_a31);
1052 ddp_sirv_rec.request_id := rosetta_g_miss_num_map(p5_a32);
1053 ddp_sirv_rec.program_application_id := rosetta_g_miss_num_map(p5_a33);
1054 ddp_sirv_rec.program_id := rosetta_g_miss_num_map(p5_a34);
1055 ddp_sirv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a35);
1056
1057 -- here's the delegated call to the old PL/SQL routine
1058 okl_sir_pvt.lock_row(p_api_version,
1059 p_init_msg_list,
1060 x_return_status,
1061 x_msg_count,
1062 x_msg_data,
1063 ddp_sirv_rec);
1064
1065 -- copy data back from the local variables to OUT or IN-OUT args, if any
1066
1067
1068
1069
1070
1071 end;
1072
1073 procedure lock_row(p_api_version NUMBER
1074 , p_init_msg_list VARCHAR2
1075 , x_return_status out nocopy VARCHAR2
1076 , x_msg_count out nocopy NUMBER
1077 , x_msg_data out nocopy VARCHAR2
1078 , p5_a0 JTF_NUMBER_TABLE
1079 , p5_a1 JTF_NUMBER_TABLE
1080 , p5_a2 JTF_VARCHAR2_TABLE_100
1081 , p5_a3 JTF_NUMBER_TABLE
1082 , p5_a4 JTF_VARCHAR2_TABLE_200
1083 , p5_a5 JTF_NUMBER_TABLE
1084 , p5_a6 JTF_NUMBER_TABLE
1085 , p5_a7 JTF_NUMBER_TABLE
1086 , p5_a8 JTF_NUMBER_TABLE
1087 , p5_a9 JTF_VARCHAR2_TABLE_500
1088 , p5_a10 JTF_VARCHAR2_TABLE_500
1089 , p5_a11 JTF_VARCHAR2_TABLE_500
1090 , p5_a12 JTF_VARCHAR2_TABLE_500
1091 , p5_a13 JTF_VARCHAR2_TABLE_500
1092 , p5_a14 JTF_VARCHAR2_TABLE_500
1093 , p5_a15 JTF_VARCHAR2_TABLE_500
1094 , p5_a16 JTF_VARCHAR2_TABLE_500
1095 , p5_a17 JTF_VARCHAR2_TABLE_500
1096 , p5_a18 JTF_VARCHAR2_TABLE_500
1097 , p5_a19 JTF_VARCHAR2_TABLE_500
1098 , p5_a20 JTF_VARCHAR2_TABLE_500
1099 , p5_a21 JTF_VARCHAR2_TABLE_500
1100 , p5_a22 JTF_VARCHAR2_TABLE_500
1101 , p5_a23 JTF_VARCHAR2_TABLE_500
1102 , p5_a24 JTF_NUMBER_TABLE
1103 , p5_a25 JTF_NUMBER_TABLE
1104 , p5_a26 JTF_NUMBER_TABLE
1105 , p5_a27 JTF_DATE_TABLE
1106 , p5_a28 JTF_DATE_TABLE
1107 , p5_a29 JTF_NUMBER_TABLE
1108 , p5_a30 JTF_NUMBER_TABLE
1109 , p5_a31 JTF_DATE_TABLE
1110 , p5_a32 JTF_NUMBER_TABLE
1111 , p5_a33 JTF_NUMBER_TABLE
1112 , p5_a34 JTF_NUMBER_TABLE
1113 , p5_a35 JTF_DATE_TABLE
1114 )
1115
1116 as
1117 ddp_sirv_tbl okl_sir_pvt.sirv_tbl_type;
1118 ddindx binary_integer; indx binary_integer;
1119 begin
1120
1121 -- copy data to the local IN or IN-OUT args, if any
1122
1123
1124
1125
1126
1127 okl_sir_pvt_w.rosetta_table_copy_in_p5(ddp_sirv_tbl, p5_a0
1128 , p5_a1
1129 , p5_a2
1130 , p5_a3
1131 , p5_a4
1132 , p5_a5
1133 , p5_a6
1134 , p5_a7
1135 , p5_a8
1136 , p5_a9
1137 , p5_a10
1138 , p5_a11
1139 , p5_a12
1140 , p5_a13
1141 , p5_a14
1142 , p5_a15
1143 , p5_a16
1144 , p5_a17
1145 , p5_a18
1146 , p5_a19
1147 , p5_a20
1148 , p5_a21
1149 , p5_a22
1150 , p5_a23
1151 , p5_a24
1152 , p5_a25
1153 , p5_a26
1154 , p5_a27
1155 , p5_a28
1156 , p5_a29
1157 , p5_a30
1158 , p5_a31
1159 , p5_a32
1160 , p5_a33
1161 , p5_a34
1162 , p5_a35
1163 );
1164
1165 -- here's the delegated call to the old PL/SQL routine
1166 okl_sir_pvt.lock_row(p_api_version,
1167 p_init_msg_list,
1168 x_return_status,
1169 x_msg_count,
1170 x_msg_data,
1171 ddp_sirv_tbl);
1172
1173 -- copy data back from the local variables to OUT or IN-OUT args, if any
1174
1175
1176
1177
1178
1179 end;
1180
1181 procedure update_row(p_api_version NUMBER
1182 , p_init_msg_list VARCHAR2
1183 , x_return_status out nocopy VARCHAR2
1184 , x_msg_count out nocopy NUMBER
1185 , x_msg_data out nocopy VARCHAR2
1186 , p6_a0 out nocopy NUMBER
1187 , p6_a1 out nocopy NUMBER
1188 , p6_a2 out nocopy VARCHAR2
1189 , p6_a3 out nocopy NUMBER
1190 , p6_a4 out nocopy VARCHAR2
1191 , p6_a5 out nocopy NUMBER
1192 , p6_a6 out nocopy NUMBER
1193 , p6_a7 out nocopy NUMBER
1194 , p6_a8 out nocopy NUMBER
1195 , p6_a9 out nocopy VARCHAR2
1196 , p6_a10 out nocopy VARCHAR2
1197 , p6_a11 out nocopy VARCHAR2
1198 , p6_a12 out nocopy VARCHAR2
1199 , p6_a13 out nocopy VARCHAR2
1200 , p6_a14 out nocopy VARCHAR2
1201 , p6_a15 out nocopy VARCHAR2
1202 , p6_a16 out nocopy VARCHAR2
1203 , p6_a17 out nocopy VARCHAR2
1204 , p6_a18 out nocopy VARCHAR2
1205 , p6_a19 out nocopy VARCHAR2
1206 , p6_a20 out nocopy VARCHAR2
1207 , p6_a21 out nocopy VARCHAR2
1208 , p6_a22 out nocopy VARCHAR2
1209 , p6_a23 out nocopy VARCHAR2
1210 , p6_a24 out nocopy NUMBER
1211 , p6_a25 out nocopy NUMBER
1212 , p6_a26 out nocopy NUMBER
1213 , p6_a27 out nocopy DATE
1214 , p6_a28 out nocopy DATE
1215 , p6_a29 out nocopy NUMBER
1216 , p6_a30 out nocopy NUMBER
1217 , p6_a31 out nocopy DATE
1218 , p6_a32 out nocopy NUMBER
1219 , p6_a33 out nocopy NUMBER
1220 , p6_a34 out nocopy NUMBER
1221 , p6_a35 out nocopy DATE
1222 , p5_a0 NUMBER := 0-1962.0724
1223 , p5_a1 NUMBER := 0-1962.0724
1224 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1225 , p5_a3 NUMBER := 0-1962.0724
1226 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1227 , p5_a5 NUMBER := 0-1962.0724
1228 , p5_a6 NUMBER := 0-1962.0724
1229 , p5_a7 NUMBER := 0-1962.0724
1230 , p5_a8 NUMBER := 0-1962.0724
1231 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1232 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1233 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1234 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1235 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1236 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1237 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1238 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1239 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1240 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1241 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1242 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1243 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1244 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1245 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1246 , p5_a24 NUMBER := 0-1962.0724
1247 , p5_a25 NUMBER := 0-1962.0724
1248 , p5_a26 NUMBER := 0-1962.0724
1249 , p5_a27 DATE := fnd_api.g_miss_date
1250 , p5_a28 DATE := fnd_api.g_miss_date
1251 , p5_a29 NUMBER := 0-1962.0724
1252 , p5_a30 NUMBER := 0-1962.0724
1253 , p5_a31 DATE := fnd_api.g_miss_date
1254 , p5_a32 NUMBER := 0-1962.0724
1255 , p5_a33 NUMBER := 0-1962.0724
1256 , p5_a34 NUMBER := 0-1962.0724
1257 , p5_a35 DATE := fnd_api.g_miss_date
1258 )
1259
1260 as
1261 ddp_sirv_rec okl_sir_pvt.sirv_rec_type;
1262 ddx_sirv_rec okl_sir_pvt.sirv_rec_type;
1263 ddindx binary_integer; indx binary_integer;
1264 begin
1265
1266 -- copy data to the local IN or IN-OUT args, if any
1267
1268
1269
1270
1271
1272 ddp_sirv_rec.id := rosetta_g_miss_num_map(p5_a0);
1273 ddp_sirv_rec.transaction_number := rosetta_g_miss_num_map(p5_a1);
1274 ddp_sirv_rec.srt_code := p5_a2;
1275 ddp_sirv_rec.effective_pre_tax_yield := rosetta_g_miss_num_map(p5_a3);
1276 ddp_sirv_rec.yield_name := p5_a4;
1277 ddp_sirv_rec.index_number := rosetta_g_miss_num_map(p5_a5);
1278 ddp_sirv_rec.effective_after_tax_yield := rosetta_g_miss_num_map(p5_a6);
1279 ddp_sirv_rec.nominal_pre_tax_yield := rosetta_g_miss_num_map(p5_a7);
1280 ddp_sirv_rec.nominal_after_tax_yield := rosetta_g_miss_num_map(p5_a8);
1281 ddp_sirv_rec.stream_interface_attribute01 := p5_a9;
1282 ddp_sirv_rec.stream_interface_attribute02 := p5_a10;
1283 ddp_sirv_rec.stream_interface_attribute03 := p5_a11;
1284 ddp_sirv_rec.stream_interface_attribute04 := p5_a12;
1285 ddp_sirv_rec.stream_interface_attribute05 := p5_a13;
1286 ddp_sirv_rec.stream_interface_attribute06 := p5_a14;
1287 ddp_sirv_rec.stream_interface_attribute07 := p5_a15;
1288 ddp_sirv_rec.stream_interface_attribute08 := p5_a16;
1289 ddp_sirv_rec.stream_interface_attribute09 := p5_a17;
1290 ddp_sirv_rec.stream_interface_attribute10 := p5_a18;
1291 ddp_sirv_rec.stream_interface_attribute11 := p5_a19;
1292 ddp_sirv_rec.stream_interface_attribute12 := p5_a20;
1293 ddp_sirv_rec.stream_interface_attribute13 := p5_a21;
1294 ddp_sirv_rec.stream_interface_attribute14 := p5_a22;
1295 ddp_sirv_rec.stream_interface_attribute15 := p5_a23;
1296 ddp_sirv_rec.object_version_number := rosetta_g_miss_num_map(p5_a24);
1297 ddp_sirv_rec.created_by := rosetta_g_miss_num_map(p5_a25);
1298 ddp_sirv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a26);
1299 ddp_sirv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a27);
1300 ddp_sirv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a28);
1301 ddp_sirv_rec.last_update_login := rosetta_g_miss_num_map(p5_a29);
1302 ddp_sirv_rec.implicit_interest_rate := rosetta_g_miss_num_map(p5_a30);
1303 ddp_sirv_rec.date_processed := rosetta_g_miss_date_in_map(p5_a31);
1304 ddp_sirv_rec.request_id := rosetta_g_miss_num_map(p5_a32);
1305 ddp_sirv_rec.program_application_id := rosetta_g_miss_num_map(p5_a33);
1306 ddp_sirv_rec.program_id := rosetta_g_miss_num_map(p5_a34);
1307 ddp_sirv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a35);
1308
1309
1310 -- here's the delegated call to the old PL/SQL routine
1311 okl_sir_pvt.update_row(p_api_version,
1312 p_init_msg_list,
1313 x_return_status,
1314 x_msg_count,
1315 x_msg_data,
1316 ddp_sirv_rec,
1317 ddx_sirv_rec);
1318
1319 -- copy data back from the local variables to OUT or IN-OUT args, if any
1320
1321
1322
1323
1324
1325
1326 p6_a0 := rosetta_g_miss_num_map(ddx_sirv_rec.id);
1327 p6_a1 := rosetta_g_miss_num_map(ddx_sirv_rec.transaction_number);
1328 p6_a2 := ddx_sirv_rec.srt_code;
1329 p6_a3 := rosetta_g_miss_num_map(ddx_sirv_rec.effective_pre_tax_yield);
1330 p6_a4 := ddx_sirv_rec.yield_name;
1331 p6_a5 := rosetta_g_miss_num_map(ddx_sirv_rec.index_number);
1332 p6_a6 := rosetta_g_miss_num_map(ddx_sirv_rec.effective_after_tax_yield);
1333 p6_a7 := rosetta_g_miss_num_map(ddx_sirv_rec.nominal_pre_tax_yield);
1334 p6_a8 := rosetta_g_miss_num_map(ddx_sirv_rec.nominal_after_tax_yield);
1335 p6_a9 := ddx_sirv_rec.stream_interface_attribute01;
1336 p6_a10 := ddx_sirv_rec.stream_interface_attribute02;
1337 p6_a11 := ddx_sirv_rec.stream_interface_attribute03;
1338 p6_a12 := ddx_sirv_rec.stream_interface_attribute04;
1339 p6_a13 := ddx_sirv_rec.stream_interface_attribute05;
1340 p6_a14 := ddx_sirv_rec.stream_interface_attribute06;
1341 p6_a15 := ddx_sirv_rec.stream_interface_attribute07;
1342 p6_a16 := ddx_sirv_rec.stream_interface_attribute08;
1343 p6_a17 := ddx_sirv_rec.stream_interface_attribute09;
1344 p6_a18 := ddx_sirv_rec.stream_interface_attribute10;
1345 p6_a19 := ddx_sirv_rec.stream_interface_attribute11;
1346 p6_a20 := ddx_sirv_rec.stream_interface_attribute12;
1347 p6_a21 := ddx_sirv_rec.stream_interface_attribute13;
1348 p6_a22 := ddx_sirv_rec.stream_interface_attribute14;
1349 p6_a23 := ddx_sirv_rec.stream_interface_attribute15;
1350 p6_a24 := rosetta_g_miss_num_map(ddx_sirv_rec.object_version_number);
1351 p6_a25 := rosetta_g_miss_num_map(ddx_sirv_rec.created_by);
1352 p6_a26 := rosetta_g_miss_num_map(ddx_sirv_rec.last_updated_by);
1353 p6_a27 := ddx_sirv_rec.creation_date;
1354 p6_a28 := ddx_sirv_rec.last_update_date;
1355 p6_a29 := rosetta_g_miss_num_map(ddx_sirv_rec.last_update_login);
1356 p6_a30 := rosetta_g_miss_num_map(ddx_sirv_rec.implicit_interest_rate);
1357 p6_a31 := ddx_sirv_rec.date_processed;
1358 p6_a32 := rosetta_g_miss_num_map(ddx_sirv_rec.request_id);
1359 p6_a33 := rosetta_g_miss_num_map(ddx_sirv_rec.program_application_id);
1360 p6_a34 := rosetta_g_miss_num_map(ddx_sirv_rec.program_id);
1361 p6_a35 := ddx_sirv_rec.program_update_date;
1362 end;
1363
1364 procedure update_row(p_api_version NUMBER
1365 , p_init_msg_list VARCHAR2
1366 , x_return_status out nocopy VARCHAR2
1367 , x_msg_count out nocopy NUMBER
1368 , x_msg_data out nocopy VARCHAR2
1369 , p5_a0 JTF_NUMBER_TABLE
1370 , p5_a1 JTF_NUMBER_TABLE
1371 , p5_a2 JTF_VARCHAR2_TABLE_100
1372 , p5_a3 JTF_NUMBER_TABLE
1373 , p5_a4 JTF_VARCHAR2_TABLE_200
1374 , p5_a5 JTF_NUMBER_TABLE
1375 , p5_a6 JTF_NUMBER_TABLE
1376 , p5_a7 JTF_NUMBER_TABLE
1377 , p5_a8 JTF_NUMBER_TABLE
1378 , p5_a9 JTF_VARCHAR2_TABLE_500
1379 , p5_a10 JTF_VARCHAR2_TABLE_500
1380 , p5_a11 JTF_VARCHAR2_TABLE_500
1381 , p5_a12 JTF_VARCHAR2_TABLE_500
1382 , p5_a13 JTF_VARCHAR2_TABLE_500
1383 , p5_a14 JTF_VARCHAR2_TABLE_500
1384 , p5_a15 JTF_VARCHAR2_TABLE_500
1385 , p5_a16 JTF_VARCHAR2_TABLE_500
1386 , p5_a17 JTF_VARCHAR2_TABLE_500
1387 , p5_a18 JTF_VARCHAR2_TABLE_500
1388 , p5_a19 JTF_VARCHAR2_TABLE_500
1389 , p5_a20 JTF_VARCHAR2_TABLE_500
1390 , p5_a21 JTF_VARCHAR2_TABLE_500
1391 , p5_a22 JTF_VARCHAR2_TABLE_500
1392 , p5_a23 JTF_VARCHAR2_TABLE_500
1393 , p5_a24 JTF_NUMBER_TABLE
1394 , p5_a25 JTF_NUMBER_TABLE
1395 , p5_a26 JTF_NUMBER_TABLE
1396 , p5_a27 JTF_DATE_TABLE
1397 , p5_a28 JTF_DATE_TABLE
1398 , p5_a29 JTF_NUMBER_TABLE
1399 , p5_a30 JTF_NUMBER_TABLE
1400 , p5_a31 JTF_DATE_TABLE
1401 , p5_a32 JTF_NUMBER_TABLE
1402 , p5_a33 JTF_NUMBER_TABLE
1403 , p5_a34 JTF_NUMBER_TABLE
1404 , p5_a35 JTF_DATE_TABLE
1405 , p6_a0 out nocopy JTF_NUMBER_TABLE
1406 , p6_a1 out nocopy JTF_NUMBER_TABLE
1407 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
1408 , p6_a3 out nocopy JTF_NUMBER_TABLE
1409 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_200
1410 , p6_a5 out nocopy JTF_NUMBER_TABLE
1411 , p6_a6 out nocopy JTF_NUMBER_TABLE
1412 , p6_a7 out nocopy JTF_NUMBER_TABLE
1413 , p6_a8 out nocopy JTF_NUMBER_TABLE
1414 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
1415 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
1416 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
1417 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
1418 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
1419 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
1420 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
1421 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
1422 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
1423 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
1424 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
1425 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
1426 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
1427 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
1428 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
1429 , p6_a24 out nocopy JTF_NUMBER_TABLE
1430 , p6_a25 out nocopy JTF_NUMBER_TABLE
1431 , p6_a26 out nocopy JTF_NUMBER_TABLE
1432 , p6_a27 out nocopy JTF_DATE_TABLE
1433 , p6_a28 out nocopy JTF_DATE_TABLE
1434 , p6_a29 out nocopy JTF_NUMBER_TABLE
1435 , p6_a30 out nocopy JTF_NUMBER_TABLE
1436 , p6_a31 out nocopy JTF_DATE_TABLE
1437 , p6_a32 out nocopy JTF_NUMBER_TABLE
1438 , p6_a33 out nocopy JTF_NUMBER_TABLE
1439 , p6_a34 out nocopy JTF_NUMBER_TABLE
1440 , p6_a35 out nocopy JTF_DATE_TABLE
1441 )
1442
1443 as
1444 ddp_sirv_tbl okl_sir_pvt.sirv_tbl_type;
1445 ddx_sirv_tbl okl_sir_pvt.sirv_tbl_type;
1446 ddindx binary_integer; indx binary_integer;
1447 begin
1448
1449 -- copy data to the local IN or IN-OUT args, if any
1450
1451
1452
1453
1454
1455 okl_sir_pvt_w.rosetta_table_copy_in_p5(ddp_sirv_tbl, p5_a0
1456 , p5_a1
1457 , p5_a2
1458 , p5_a3
1459 , p5_a4
1460 , p5_a5
1461 , p5_a6
1462 , p5_a7
1463 , p5_a8
1464 , p5_a9
1465 , p5_a10
1466 , p5_a11
1467 , p5_a12
1468 , p5_a13
1469 , p5_a14
1470 , p5_a15
1471 , p5_a16
1472 , p5_a17
1473 , p5_a18
1474 , p5_a19
1475 , p5_a20
1476 , p5_a21
1477 , p5_a22
1478 , p5_a23
1479 , p5_a24
1480 , p5_a25
1481 , p5_a26
1482 , p5_a27
1483 , p5_a28
1484 , p5_a29
1485 , p5_a30
1486 , p5_a31
1487 , p5_a32
1488 , p5_a33
1489 , p5_a34
1490 , p5_a35
1491 );
1492
1493
1494 -- here's the delegated call to the old PL/SQL routine
1495 okl_sir_pvt.update_row(p_api_version,
1496 p_init_msg_list,
1497 x_return_status,
1498 x_msg_count,
1499 x_msg_data,
1500 ddp_sirv_tbl,
1501 ddx_sirv_tbl);
1502
1503 -- copy data back from the local variables to OUT or IN-OUT args, if any
1504
1505
1506
1507
1508
1509
1510 okl_sir_pvt_w.rosetta_table_copy_out_p5(ddx_sirv_tbl, p6_a0
1511 , p6_a1
1512 , p6_a2
1513 , p6_a3
1514 , p6_a4
1515 , p6_a5
1516 , p6_a6
1517 , p6_a7
1518 , p6_a8
1519 , p6_a9
1520 , p6_a10
1521 , p6_a11
1522 , p6_a12
1523 , p6_a13
1524 , p6_a14
1525 , p6_a15
1526 , p6_a16
1527 , p6_a17
1528 , p6_a18
1529 , p6_a19
1530 , p6_a20
1531 , p6_a21
1532 , p6_a22
1533 , p6_a23
1534 , p6_a24
1535 , p6_a25
1536 , p6_a26
1537 , p6_a27
1538 , p6_a28
1539 , p6_a29
1540 , p6_a30
1541 , p6_a31
1542 , p6_a32
1543 , p6_a33
1544 , p6_a34
1545 , p6_a35
1546 );
1547 end;
1548
1549 procedure delete_row(p_api_version NUMBER
1550 , p_init_msg_list VARCHAR2
1551 , x_return_status out nocopy VARCHAR2
1552 , x_msg_count out nocopy NUMBER
1553 , x_msg_data out nocopy VARCHAR2
1554 , p5_a0 NUMBER := 0-1962.0724
1555 , p5_a1 NUMBER := 0-1962.0724
1556 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1557 , p5_a3 NUMBER := 0-1962.0724
1558 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1559 , p5_a5 NUMBER := 0-1962.0724
1560 , p5_a6 NUMBER := 0-1962.0724
1561 , p5_a7 NUMBER := 0-1962.0724
1562 , p5_a8 NUMBER := 0-1962.0724
1563 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1564 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1565 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1566 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1567 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1568 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1569 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1570 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1571 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1572 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1573 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1574 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1575 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1576 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1577 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1578 , p5_a24 NUMBER := 0-1962.0724
1579 , p5_a25 NUMBER := 0-1962.0724
1580 , p5_a26 NUMBER := 0-1962.0724
1581 , p5_a27 DATE := fnd_api.g_miss_date
1582 , p5_a28 DATE := fnd_api.g_miss_date
1583 , p5_a29 NUMBER := 0-1962.0724
1584 , p5_a30 NUMBER := 0-1962.0724
1585 , p5_a31 DATE := fnd_api.g_miss_date
1586 , p5_a32 NUMBER := 0-1962.0724
1587 , p5_a33 NUMBER := 0-1962.0724
1588 , p5_a34 NUMBER := 0-1962.0724
1589 , p5_a35 DATE := fnd_api.g_miss_date
1590 )
1591
1592 as
1593 ddp_sirv_rec okl_sir_pvt.sirv_rec_type;
1594 ddindx binary_integer; indx binary_integer;
1595 begin
1596
1597 -- copy data to the local IN or IN-OUT args, if any
1598
1599
1600
1601
1602
1603 ddp_sirv_rec.id := rosetta_g_miss_num_map(p5_a0);
1604 ddp_sirv_rec.transaction_number := rosetta_g_miss_num_map(p5_a1);
1605 ddp_sirv_rec.srt_code := p5_a2;
1606 ddp_sirv_rec.effective_pre_tax_yield := rosetta_g_miss_num_map(p5_a3);
1607 ddp_sirv_rec.yield_name := p5_a4;
1608 ddp_sirv_rec.index_number := rosetta_g_miss_num_map(p5_a5);
1609 ddp_sirv_rec.effective_after_tax_yield := rosetta_g_miss_num_map(p5_a6);
1610 ddp_sirv_rec.nominal_pre_tax_yield := rosetta_g_miss_num_map(p5_a7);
1611 ddp_sirv_rec.nominal_after_tax_yield := rosetta_g_miss_num_map(p5_a8);
1612 ddp_sirv_rec.stream_interface_attribute01 := p5_a9;
1613 ddp_sirv_rec.stream_interface_attribute02 := p5_a10;
1614 ddp_sirv_rec.stream_interface_attribute03 := p5_a11;
1615 ddp_sirv_rec.stream_interface_attribute04 := p5_a12;
1616 ddp_sirv_rec.stream_interface_attribute05 := p5_a13;
1617 ddp_sirv_rec.stream_interface_attribute06 := p5_a14;
1618 ddp_sirv_rec.stream_interface_attribute07 := p5_a15;
1619 ddp_sirv_rec.stream_interface_attribute08 := p5_a16;
1620 ddp_sirv_rec.stream_interface_attribute09 := p5_a17;
1621 ddp_sirv_rec.stream_interface_attribute10 := p5_a18;
1622 ddp_sirv_rec.stream_interface_attribute11 := p5_a19;
1623 ddp_sirv_rec.stream_interface_attribute12 := p5_a20;
1624 ddp_sirv_rec.stream_interface_attribute13 := p5_a21;
1625 ddp_sirv_rec.stream_interface_attribute14 := p5_a22;
1626 ddp_sirv_rec.stream_interface_attribute15 := p5_a23;
1627 ddp_sirv_rec.object_version_number := rosetta_g_miss_num_map(p5_a24);
1628 ddp_sirv_rec.created_by := rosetta_g_miss_num_map(p5_a25);
1629 ddp_sirv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a26);
1630 ddp_sirv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a27);
1631 ddp_sirv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a28);
1632 ddp_sirv_rec.last_update_login := rosetta_g_miss_num_map(p5_a29);
1633 ddp_sirv_rec.implicit_interest_rate := rosetta_g_miss_num_map(p5_a30);
1634 ddp_sirv_rec.date_processed := rosetta_g_miss_date_in_map(p5_a31);
1635 ddp_sirv_rec.request_id := rosetta_g_miss_num_map(p5_a32);
1636 ddp_sirv_rec.program_application_id := rosetta_g_miss_num_map(p5_a33);
1637 ddp_sirv_rec.program_id := rosetta_g_miss_num_map(p5_a34);
1638 ddp_sirv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a35);
1639
1640 -- here's the delegated call to the old PL/SQL routine
1641 okl_sir_pvt.delete_row(p_api_version,
1642 p_init_msg_list,
1643 x_return_status,
1644 x_msg_count,
1645 x_msg_data,
1646 ddp_sirv_rec);
1647
1648 -- copy data back from the local variables to OUT or IN-OUT args, if any
1649
1650
1651
1652
1653
1654 end;
1655
1656 procedure delete_row(p_api_version NUMBER
1657 , p_init_msg_list VARCHAR2
1658 , x_return_status out nocopy VARCHAR2
1659 , x_msg_count out nocopy NUMBER
1660 , x_msg_data out nocopy VARCHAR2
1661 , p5_a0 JTF_NUMBER_TABLE
1662 , p5_a1 JTF_NUMBER_TABLE
1663 , p5_a2 JTF_VARCHAR2_TABLE_100
1664 , p5_a3 JTF_NUMBER_TABLE
1665 , p5_a4 JTF_VARCHAR2_TABLE_200
1666 , p5_a5 JTF_NUMBER_TABLE
1667 , p5_a6 JTF_NUMBER_TABLE
1668 , p5_a7 JTF_NUMBER_TABLE
1669 , p5_a8 JTF_NUMBER_TABLE
1670 , p5_a9 JTF_VARCHAR2_TABLE_500
1671 , p5_a10 JTF_VARCHAR2_TABLE_500
1672 , p5_a11 JTF_VARCHAR2_TABLE_500
1673 , p5_a12 JTF_VARCHAR2_TABLE_500
1674 , p5_a13 JTF_VARCHAR2_TABLE_500
1675 , p5_a14 JTF_VARCHAR2_TABLE_500
1676 , p5_a15 JTF_VARCHAR2_TABLE_500
1677 , p5_a16 JTF_VARCHAR2_TABLE_500
1678 , p5_a17 JTF_VARCHAR2_TABLE_500
1679 , p5_a18 JTF_VARCHAR2_TABLE_500
1680 , p5_a19 JTF_VARCHAR2_TABLE_500
1681 , p5_a20 JTF_VARCHAR2_TABLE_500
1682 , p5_a21 JTF_VARCHAR2_TABLE_500
1683 , p5_a22 JTF_VARCHAR2_TABLE_500
1684 , p5_a23 JTF_VARCHAR2_TABLE_500
1685 , p5_a24 JTF_NUMBER_TABLE
1686 , p5_a25 JTF_NUMBER_TABLE
1687 , p5_a26 JTF_NUMBER_TABLE
1688 , p5_a27 JTF_DATE_TABLE
1689 , p5_a28 JTF_DATE_TABLE
1690 , p5_a29 JTF_NUMBER_TABLE
1691 , p5_a30 JTF_NUMBER_TABLE
1692 , p5_a31 JTF_DATE_TABLE
1693 , p5_a32 JTF_NUMBER_TABLE
1694 , p5_a33 JTF_NUMBER_TABLE
1695 , p5_a34 JTF_NUMBER_TABLE
1696 , p5_a35 JTF_DATE_TABLE
1697 )
1698
1699 as
1700 ddp_sirv_tbl okl_sir_pvt.sirv_tbl_type;
1701 ddindx binary_integer; indx binary_integer;
1702 begin
1703
1704 -- copy data to the local IN or IN-OUT args, if any
1705
1706
1707
1708
1709
1710 okl_sir_pvt_w.rosetta_table_copy_in_p5(ddp_sirv_tbl, p5_a0
1711 , p5_a1
1712 , p5_a2
1713 , p5_a3
1714 , p5_a4
1715 , p5_a5
1716 , p5_a6
1717 , p5_a7
1718 , p5_a8
1719 , p5_a9
1720 , p5_a10
1721 , p5_a11
1722 , p5_a12
1723 , p5_a13
1724 , p5_a14
1725 , p5_a15
1726 , p5_a16
1727 , p5_a17
1728 , p5_a18
1729 , p5_a19
1730 , p5_a20
1731 , p5_a21
1732 , p5_a22
1733 , p5_a23
1734 , p5_a24
1735 , p5_a25
1736 , p5_a26
1737 , p5_a27
1738 , p5_a28
1739 , p5_a29
1740 , p5_a30
1741 , p5_a31
1742 , p5_a32
1743 , p5_a33
1744 , p5_a34
1745 , p5_a35
1746 );
1747
1748 -- here's the delegated call to the old PL/SQL routine
1749 okl_sir_pvt.delete_row(p_api_version,
1750 p_init_msg_list,
1751 x_return_status,
1752 x_msg_count,
1753 x_msg_data,
1754 ddp_sirv_tbl);
1755
1756 -- copy data back from the local variables to OUT or IN-OUT args, if any
1757
1758
1759
1760
1761
1762 end;
1763
1764 procedure validate_row(p_api_version NUMBER
1765 , p_init_msg_list VARCHAR2
1766 , x_return_status out nocopy VARCHAR2
1767 , x_msg_count out nocopy NUMBER
1768 , x_msg_data out nocopy VARCHAR2
1769 , p5_a0 NUMBER := 0-1962.0724
1770 , p5_a1 NUMBER := 0-1962.0724
1771 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1772 , p5_a3 NUMBER := 0-1962.0724
1773 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1774 , p5_a5 NUMBER := 0-1962.0724
1775 , p5_a6 NUMBER := 0-1962.0724
1776 , p5_a7 NUMBER := 0-1962.0724
1777 , p5_a8 NUMBER := 0-1962.0724
1778 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1779 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1780 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1781 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1782 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1783 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1784 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1785 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1786 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1787 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1788 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1789 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1790 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1791 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1792 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1793 , p5_a24 NUMBER := 0-1962.0724
1794 , p5_a25 NUMBER := 0-1962.0724
1795 , p5_a26 NUMBER := 0-1962.0724
1796 , p5_a27 DATE := fnd_api.g_miss_date
1797 , p5_a28 DATE := fnd_api.g_miss_date
1798 , p5_a29 NUMBER := 0-1962.0724
1799 , p5_a30 NUMBER := 0-1962.0724
1800 , p5_a31 DATE := fnd_api.g_miss_date
1801 , p5_a32 NUMBER := 0-1962.0724
1802 , p5_a33 NUMBER := 0-1962.0724
1803 , p5_a34 NUMBER := 0-1962.0724
1804 , p5_a35 DATE := fnd_api.g_miss_date
1805 )
1806
1807 as
1808 ddp_sirv_rec okl_sir_pvt.sirv_rec_type;
1809 ddindx binary_integer; indx binary_integer;
1810 begin
1811
1812 -- copy data to the local IN or IN-OUT args, if any
1813
1814
1815
1816
1817
1818 ddp_sirv_rec.id := rosetta_g_miss_num_map(p5_a0);
1819 ddp_sirv_rec.transaction_number := rosetta_g_miss_num_map(p5_a1);
1820 ddp_sirv_rec.srt_code := p5_a2;
1821 ddp_sirv_rec.effective_pre_tax_yield := rosetta_g_miss_num_map(p5_a3);
1822 ddp_sirv_rec.yield_name := p5_a4;
1823 ddp_sirv_rec.index_number := rosetta_g_miss_num_map(p5_a5);
1824 ddp_sirv_rec.effective_after_tax_yield := rosetta_g_miss_num_map(p5_a6);
1825 ddp_sirv_rec.nominal_pre_tax_yield := rosetta_g_miss_num_map(p5_a7);
1826 ddp_sirv_rec.nominal_after_tax_yield := rosetta_g_miss_num_map(p5_a8);
1827 ddp_sirv_rec.stream_interface_attribute01 := p5_a9;
1828 ddp_sirv_rec.stream_interface_attribute02 := p5_a10;
1829 ddp_sirv_rec.stream_interface_attribute03 := p5_a11;
1830 ddp_sirv_rec.stream_interface_attribute04 := p5_a12;
1831 ddp_sirv_rec.stream_interface_attribute05 := p5_a13;
1832 ddp_sirv_rec.stream_interface_attribute06 := p5_a14;
1833 ddp_sirv_rec.stream_interface_attribute07 := p5_a15;
1834 ddp_sirv_rec.stream_interface_attribute08 := p5_a16;
1835 ddp_sirv_rec.stream_interface_attribute09 := p5_a17;
1836 ddp_sirv_rec.stream_interface_attribute10 := p5_a18;
1837 ddp_sirv_rec.stream_interface_attribute11 := p5_a19;
1838 ddp_sirv_rec.stream_interface_attribute12 := p5_a20;
1839 ddp_sirv_rec.stream_interface_attribute13 := p5_a21;
1840 ddp_sirv_rec.stream_interface_attribute14 := p5_a22;
1841 ddp_sirv_rec.stream_interface_attribute15 := p5_a23;
1842 ddp_sirv_rec.object_version_number := rosetta_g_miss_num_map(p5_a24);
1843 ddp_sirv_rec.created_by := rosetta_g_miss_num_map(p5_a25);
1844 ddp_sirv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a26);
1845 ddp_sirv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a27);
1846 ddp_sirv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a28);
1847 ddp_sirv_rec.last_update_login := rosetta_g_miss_num_map(p5_a29);
1848 ddp_sirv_rec.implicit_interest_rate := rosetta_g_miss_num_map(p5_a30);
1849 ddp_sirv_rec.date_processed := rosetta_g_miss_date_in_map(p5_a31);
1850 ddp_sirv_rec.request_id := rosetta_g_miss_num_map(p5_a32);
1851 ddp_sirv_rec.program_application_id := rosetta_g_miss_num_map(p5_a33);
1852 ddp_sirv_rec.program_id := rosetta_g_miss_num_map(p5_a34);
1853 ddp_sirv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a35);
1854
1855 -- here's the delegated call to the old PL/SQL routine
1856 okl_sir_pvt.validate_row(p_api_version,
1857 p_init_msg_list,
1858 x_return_status,
1859 x_msg_count,
1860 x_msg_data,
1861 ddp_sirv_rec);
1862
1863 -- copy data back from the local variables to OUT or IN-OUT args, if any
1864
1865
1866
1867
1868
1869 end;
1870
1871 procedure validate_row(p_api_version NUMBER
1872 , p_init_msg_list VARCHAR2
1873 , x_return_status out nocopy VARCHAR2
1874 , x_msg_count out nocopy NUMBER
1875 , x_msg_data out nocopy VARCHAR2
1876 , p5_a0 JTF_NUMBER_TABLE
1877 , p5_a1 JTF_NUMBER_TABLE
1878 , p5_a2 JTF_VARCHAR2_TABLE_100
1879 , p5_a3 JTF_NUMBER_TABLE
1880 , p5_a4 JTF_VARCHAR2_TABLE_200
1881 , p5_a5 JTF_NUMBER_TABLE
1882 , p5_a6 JTF_NUMBER_TABLE
1883 , p5_a7 JTF_NUMBER_TABLE
1884 , p5_a8 JTF_NUMBER_TABLE
1885 , p5_a9 JTF_VARCHAR2_TABLE_500
1886 , p5_a10 JTF_VARCHAR2_TABLE_500
1887 , p5_a11 JTF_VARCHAR2_TABLE_500
1888 , p5_a12 JTF_VARCHAR2_TABLE_500
1889 , p5_a13 JTF_VARCHAR2_TABLE_500
1890 , p5_a14 JTF_VARCHAR2_TABLE_500
1891 , p5_a15 JTF_VARCHAR2_TABLE_500
1892 , p5_a16 JTF_VARCHAR2_TABLE_500
1893 , p5_a17 JTF_VARCHAR2_TABLE_500
1894 , p5_a18 JTF_VARCHAR2_TABLE_500
1895 , p5_a19 JTF_VARCHAR2_TABLE_500
1896 , p5_a20 JTF_VARCHAR2_TABLE_500
1897 , p5_a21 JTF_VARCHAR2_TABLE_500
1898 , p5_a22 JTF_VARCHAR2_TABLE_500
1899 , p5_a23 JTF_VARCHAR2_TABLE_500
1900 , p5_a24 JTF_NUMBER_TABLE
1901 , p5_a25 JTF_NUMBER_TABLE
1902 , p5_a26 JTF_NUMBER_TABLE
1903 , p5_a27 JTF_DATE_TABLE
1904 , p5_a28 JTF_DATE_TABLE
1905 , p5_a29 JTF_NUMBER_TABLE
1906 , p5_a30 JTF_NUMBER_TABLE
1907 , p5_a31 JTF_DATE_TABLE
1908 , p5_a32 JTF_NUMBER_TABLE
1909 , p5_a33 JTF_NUMBER_TABLE
1910 , p5_a34 JTF_NUMBER_TABLE
1911 , p5_a35 JTF_DATE_TABLE
1912 )
1913
1914 as
1915 ddp_sirv_tbl okl_sir_pvt.sirv_tbl_type;
1916 ddindx binary_integer; indx binary_integer;
1917 begin
1918
1919 -- copy data to the local IN or IN-OUT args, if any
1920
1921
1922
1923
1924
1925 okl_sir_pvt_w.rosetta_table_copy_in_p5(ddp_sirv_tbl, p5_a0
1926 , p5_a1
1927 , p5_a2
1928 , p5_a3
1929 , p5_a4
1930 , p5_a5
1931 , p5_a6
1932 , p5_a7
1933 , p5_a8
1934 , p5_a9
1935 , p5_a10
1936 , p5_a11
1937 , p5_a12
1938 , p5_a13
1939 , p5_a14
1940 , p5_a15
1941 , p5_a16
1942 , p5_a17
1943 , p5_a18
1944 , p5_a19
1945 , p5_a20
1946 , p5_a21
1947 , p5_a22
1948 , p5_a23
1949 , p5_a24
1950 , p5_a25
1951 , p5_a26
1952 , p5_a27
1953 , p5_a28
1954 , p5_a29
1955 , p5_a30
1956 , p5_a31
1957 , p5_a32
1958 , p5_a33
1959 , p5_a34
1960 , p5_a35
1961 );
1962
1963 -- here's the delegated call to the old PL/SQL routine
1964 okl_sir_pvt.validate_row(p_api_version,
1965 p_init_msg_list,
1966 x_return_status,
1967 x_msg_count,
1968 x_msg_data,
1969 ddp_sirv_tbl);
1970
1971 -- copy data back from the local variables to OUT or IN-OUT args, if any
1972
1973
1974
1975
1976
1977 end;
1978
1979 end okl_sir_pvt_w;