[Home] [Help]
PACKAGE BODY: APPS.OKL_TQL_PVT_W
Source
1 package body okl_tql_pvt_w as
2 /* $Header: OKLITQLB.pls 120.2 2005/08/19 01:33:35 rmunjulu 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_tql_pvt.tql_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_VARCHAR2_TABLE_100
26 , a4 JTF_NUMBER_TABLE
27 , a5 JTF_NUMBER_TABLE
28 , a6 JTF_NUMBER_TABLE
29 , a7 JTF_NUMBER_TABLE
30 , a8 JTF_VARCHAR2_TABLE_100
31 , a9 JTF_VARCHAR2_TABLE_100
32 , a10 JTF_VARCHAR2_TABLE_100
33 , a11 JTF_NUMBER_TABLE
34 , a12 JTF_NUMBER_TABLE
35 , a13 JTF_NUMBER_TABLE
36 , a14 JTF_NUMBER_TABLE
37 , a15 JTF_DATE_TABLE
38 , a16 JTF_VARCHAR2_TABLE_100
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_VARCHAR2_TABLE_500
47 , a25 JTF_VARCHAR2_TABLE_500
48 , a26 JTF_VARCHAR2_TABLE_500
49 , a27 JTF_VARCHAR2_TABLE_500
50 , a28 JTF_VARCHAR2_TABLE_500
51 , a29 JTF_VARCHAR2_TABLE_500
52 , a30 JTF_VARCHAR2_TABLE_500
53 , a31 JTF_VARCHAR2_TABLE_500
54 , a32 JTF_NUMBER_TABLE
55 , a33 JTF_DATE_TABLE
56 , a34 JTF_NUMBER_TABLE
57 , a35 JTF_DATE_TABLE
58 , a36 JTF_NUMBER_TABLE
59 , a37 JTF_DATE_TABLE
60 , a38 JTF_VARCHAR2_TABLE_100
61 , a39 JTF_NUMBER_TABLE
62 , a40 JTF_VARCHAR2_TABLE_100
63 , a41 JTF_VARCHAR2_TABLE_100
64 , a42 JTF_VARCHAR2_TABLE_200
65 , a43 JTF_NUMBER_TABLE
66 , a44 JTF_NUMBER_TABLE
67 , a45 JTF_NUMBER_TABLE
68 , a46 JTF_NUMBER_TABLE
69 , a47 JTF_NUMBER_TABLE
70 , a48 JTF_NUMBER_TABLE
71 , a49 JTF_NUMBER_TABLE
72 , a50 JTF_NUMBER_TABLE
73 , a51 JTF_VARCHAR2_TABLE_200
74 , a52 JTF_VARCHAR2_TABLE_100
75 , a53 JTF_VARCHAR2_TABLE_100
76 , a54 JTF_VARCHAR2_TABLE_100
77 , a55 JTF_NUMBER_TABLE
78 , a56 JTF_DATE_TABLE
79 , a57 JTF_DATE_TABLE
80 , a58 JTF_NUMBER_TABLE
81 ) as
82 ddindx binary_integer; indx binary_integer;
83 begin
84 if a0 is not null and a0.count > 0 then
85 if a0.count > 0 then
86 indx := a0.first;
87 ddindx := 1;
88 while true loop
89 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
90 t(ddindx).sty_id := rosetta_g_miss_num_map(a1(indx));
91 t(ddindx).kle_id := rosetta_g_miss_num_map(a2(indx));
92 t(ddindx).qlt_code := a3(indx);
93 t(ddindx).qte_id := rosetta_g_miss_num_map(a4(indx));
94 t(ddindx).line_number := rosetta_g_miss_num_map(a5(indx));
95 t(ddindx).amount := rosetta_g_miss_num_map(a6(indx));
96 t(ddindx).object_version_number := rosetta_g_miss_num_map(a7(indx));
97 t(ddindx).modified_yn := a8(indx);
98 t(ddindx).taxed_yn := a9(indx);
99 t(ddindx).defaulted_yn := a10(indx);
100 t(ddindx).org_id := rosetta_g_miss_num_map(a11(indx));
101 t(ddindx).request_id := rosetta_g_miss_num_map(a12(indx));
102 t(ddindx).program_application_id := rosetta_g_miss_num_map(a13(indx));
103 t(ddindx).program_id := rosetta_g_miss_num_map(a14(indx));
104 t(ddindx).program_update_date := rosetta_g_miss_date_in_map(a15(indx));
105 t(ddindx).attribute_category := a16(indx);
106 t(ddindx).attribute1 := a17(indx);
107 t(ddindx).attribute2 := a18(indx);
108 t(ddindx).attribute3 := a19(indx);
109 t(ddindx).attribute4 := a20(indx);
110 t(ddindx).attribute5 := a21(indx);
111 t(ddindx).attribute6 := a22(indx);
112 t(ddindx).attribute7 := a23(indx);
113 t(ddindx).attribute8 := a24(indx);
114 t(ddindx).attribute9 := a25(indx);
115 t(ddindx).attribute10 := a26(indx);
116 t(ddindx).attribute11 := a27(indx);
117 t(ddindx).attribute12 := a28(indx);
118 t(ddindx).attribute13 := a29(indx);
119 t(ddindx).attribute14 := a30(indx);
120 t(ddindx).attribute15 := a31(indx);
121 t(ddindx).created_by := rosetta_g_miss_num_map(a32(indx));
122 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a33(indx));
123 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a34(indx));
124 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a35(indx));
125 t(ddindx).last_update_login := rosetta_g_miss_num_map(a36(indx));
126 t(ddindx).start_date := rosetta_g_miss_date_in_map(a37(indx));
127 t(ddindx).period := a38(indx);
128 t(ddindx).number_of_periods := rosetta_g_miss_num_map(a39(indx));
129 t(ddindx).lock_level_step := a40(indx);
130 t(ddindx).advance_or_arrears := a41(indx);
131 t(ddindx).yield_name := a42(indx);
132 t(ddindx).yield_value := rosetta_g_miss_num_map(a43(indx));
133 t(ddindx).implicit_interest_rate := rosetta_g_miss_num_map(a44(indx));
134 t(ddindx).asset_value := rosetta_g_miss_num_map(a45(indx));
135 t(ddindx).residual_value := rosetta_g_miss_num_map(a46(indx));
136 t(ddindx).unbilled_receivables := rosetta_g_miss_num_map(a47(indx));
137 t(ddindx).asset_quantity := rosetta_g_miss_num_map(a48(indx));
138 t(ddindx).quote_quantity := rosetta_g_miss_num_map(a49(indx));
139 t(ddindx).split_kle_id := rosetta_g_miss_num_map(a50(indx));
140 t(ddindx).split_kle_name := a51(indx);
141 t(ddindx).currency_code := a52(indx);
142 t(ddindx).currency_conversion_code := a53(indx);
143 t(ddindx).currency_conversion_type := a54(indx);
144 t(ddindx).currency_conversion_rate := rosetta_g_miss_num_map(a55(indx));
145 t(ddindx).currency_conversion_date := rosetta_g_miss_date_in_map(a56(indx));
146 t(ddindx).due_date := rosetta_g_miss_date_in_map(a57(indx));
147 t(ddindx).try_id := rosetta_g_miss_num_map(a58(indx));
148 ddindx := ddindx+1;
149 if a0.last =indx
150 then exit;
151 end if;
152 indx := a0.next(indx);
153 end loop;
154 end if;
155 end if;
156 end rosetta_table_copy_in_p2;
157 procedure rosetta_table_copy_out_p2(t okl_tql_pvt.tql_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
158 , a1 out nocopy JTF_NUMBER_TABLE
159 , a2 out nocopy JTF_NUMBER_TABLE
160 , a3 out nocopy JTF_VARCHAR2_TABLE_100
161 , a4 out nocopy JTF_NUMBER_TABLE
162 , a5 out nocopy JTF_NUMBER_TABLE
163 , a6 out nocopy JTF_NUMBER_TABLE
164 , a7 out nocopy JTF_NUMBER_TABLE
165 , a8 out nocopy JTF_VARCHAR2_TABLE_100
166 , a9 out nocopy JTF_VARCHAR2_TABLE_100
167 , a10 out nocopy JTF_VARCHAR2_TABLE_100
168 , a11 out nocopy JTF_NUMBER_TABLE
169 , a12 out nocopy JTF_NUMBER_TABLE
170 , a13 out nocopy JTF_NUMBER_TABLE
171 , a14 out nocopy JTF_NUMBER_TABLE
172 , a15 out nocopy JTF_DATE_TABLE
173 , a16 out nocopy JTF_VARCHAR2_TABLE_100
174 , a17 out nocopy JTF_VARCHAR2_TABLE_500
175 , a18 out nocopy JTF_VARCHAR2_TABLE_500
176 , a19 out nocopy JTF_VARCHAR2_TABLE_500
177 , a20 out nocopy JTF_VARCHAR2_TABLE_500
178 , a21 out nocopy JTF_VARCHAR2_TABLE_500
179 , a22 out nocopy JTF_VARCHAR2_TABLE_500
180 , a23 out nocopy JTF_VARCHAR2_TABLE_500
181 , a24 out nocopy JTF_VARCHAR2_TABLE_500
182 , a25 out nocopy JTF_VARCHAR2_TABLE_500
183 , a26 out nocopy JTF_VARCHAR2_TABLE_500
184 , a27 out nocopy JTF_VARCHAR2_TABLE_500
185 , a28 out nocopy JTF_VARCHAR2_TABLE_500
186 , a29 out nocopy JTF_VARCHAR2_TABLE_500
187 , a30 out nocopy JTF_VARCHAR2_TABLE_500
188 , a31 out nocopy JTF_VARCHAR2_TABLE_500
189 , a32 out nocopy JTF_NUMBER_TABLE
190 , a33 out nocopy JTF_DATE_TABLE
191 , a34 out nocopy JTF_NUMBER_TABLE
192 , a35 out nocopy JTF_DATE_TABLE
193 , a36 out nocopy JTF_NUMBER_TABLE
194 , a37 out nocopy JTF_DATE_TABLE
195 , a38 out nocopy JTF_VARCHAR2_TABLE_100
196 , a39 out nocopy JTF_NUMBER_TABLE
197 , a40 out nocopy JTF_VARCHAR2_TABLE_100
198 , a41 out nocopy JTF_VARCHAR2_TABLE_100
199 , a42 out nocopy JTF_VARCHAR2_TABLE_200
200 , a43 out nocopy JTF_NUMBER_TABLE
201 , a44 out nocopy JTF_NUMBER_TABLE
202 , a45 out nocopy JTF_NUMBER_TABLE
203 , a46 out nocopy JTF_NUMBER_TABLE
204 , a47 out nocopy JTF_NUMBER_TABLE
205 , a48 out nocopy JTF_NUMBER_TABLE
206 , a49 out nocopy JTF_NUMBER_TABLE
207 , a50 out nocopy JTF_NUMBER_TABLE
208 , a51 out nocopy JTF_VARCHAR2_TABLE_200
209 , a52 out nocopy JTF_VARCHAR2_TABLE_100
210 , a53 out nocopy JTF_VARCHAR2_TABLE_100
211 , a54 out nocopy JTF_VARCHAR2_TABLE_100
212 , a55 out nocopy JTF_NUMBER_TABLE
213 , a56 out nocopy JTF_DATE_TABLE
214 , a57 out nocopy JTF_DATE_TABLE
215 , a58 out nocopy JTF_NUMBER_TABLE
216 ) as
217 ddindx binary_integer; indx binary_integer;
218 begin
219 if t is null or t.count = 0 then
220 a0 := JTF_NUMBER_TABLE();
221 a1 := JTF_NUMBER_TABLE();
222 a2 := JTF_NUMBER_TABLE();
223 a3 := JTF_VARCHAR2_TABLE_100();
224 a4 := JTF_NUMBER_TABLE();
225 a5 := JTF_NUMBER_TABLE();
226 a6 := JTF_NUMBER_TABLE();
227 a7 := JTF_NUMBER_TABLE();
228 a8 := JTF_VARCHAR2_TABLE_100();
229 a9 := JTF_VARCHAR2_TABLE_100();
230 a10 := JTF_VARCHAR2_TABLE_100();
231 a11 := JTF_NUMBER_TABLE();
232 a12 := JTF_NUMBER_TABLE();
233 a13 := JTF_NUMBER_TABLE();
234 a14 := JTF_NUMBER_TABLE();
235 a15 := JTF_DATE_TABLE();
236 a16 := JTF_VARCHAR2_TABLE_100();
237 a17 := JTF_VARCHAR2_TABLE_500();
238 a18 := JTF_VARCHAR2_TABLE_500();
239 a19 := JTF_VARCHAR2_TABLE_500();
240 a20 := JTF_VARCHAR2_TABLE_500();
241 a21 := JTF_VARCHAR2_TABLE_500();
242 a22 := JTF_VARCHAR2_TABLE_500();
243 a23 := JTF_VARCHAR2_TABLE_500();
244 a24 := JTF_VARCHAR2_TABLE_500();
245 a25 := JTF_VARCHAR2_TABLE_500();
246 a26 := JTF_VARCHAR2_TABLE_500();
247 a27 := JTF_VARCHAR2_TABLE_500();
248 a28 := JTF_VARCHAR2_TABLE_500();
249 a29 := JTF_VARCHAR2_TABLE_500();
250 a30 := JTF_VARCHAR2_TABLE_500();
251 a31 := JTF_VARCHAR2_TABLE_500();
252 a32 := JTF_NUMBER_TABLE();
253 a33 := JTF_DATE_TABLE();
254 a34 := JTF_NUMBER_TABLE();
255 a35 := JTF_DATE_TABLE();
256 a36 := JTF_NUMBER_TABLE();
257 a37 := JTF_DATE_TABLE();
258 a38 := JTF_VARCHAR2_TABLE_100();
259 a39 := JTF_NUMBER_TABLE();
260 a40 := JTF_VARCHAR2_TABLE_100();
261 a41 := JTF_VARCHAR2_TABLE_100();
262 a42 := JTF_VARCHAR2_TABLE_200();
263 a43 := JTF_NUMBER_TABLE();
264 a44 := JTF_NUMBER_TABLE();
265 a45 := JTF_NUMBER_TABLE();
266 a46 := JTF_NUMBER_TABLE();
267 a47 := JTF_NUMBER_TABLE();
268 a48 := JTF_NUMBER_TABLE();
269 a49 := JTF_NUMBER_TABLE();
270 a50 := JTF_NUMBER_TABLE();
271 a51 := JTF_VARCHAR2_TABLE_200();
272 a52 := JTF_VARCHAR2_TABLE_100();
273 a53 := JTF_VARCHAR2_TABLE_100();
274 a54 := JTF_VARCHAR2_TABLE_100();
275 a55 := JTF_NUMBER_TABLE();
276 a56 := JTF_DATE_TABLE();
277 a57 := JTF_DATE_TABLE();
278 a58 := JTF_NUMBER_TABLE();
279 else
280 a0 := JTF_NUMBER_TABLE();
281 a1 := JTF_NUMBER_TABLE();
282 a2 := JTF_NUMBER_TABLE();
283 a3 := JTF_VARCHAR2_TABLE_100();
284 a4 := JTF_NUMBER_TABLE();
285 a5 := JTF_NUMBER_TABLE();
286 a6 := JTF_NUMBER_TABLE();
287 a7 := JTF_NUMBER_TABLE();
288 a8 := JTF_VARCHAR2_TABLE_100();
289 a9 := JTF_VARCHAR2_TABLE_100();
290 a10 := JTF_VARCHAR2_TABLE_100();
291 a11 := JTF_NUMBER_TABLE();
292 a12 := JTF_NUMBER_TABLE();
293 a13 := JTF_NUMBER_TABLE();
294 a14 := JTF_NUMBER_TABLE();
295 a15 := JTF_DATE_TABLE();
296 a16 := JTF_VARCHAR2_TABLE_100();
297 a17 := JTF_VARCHAR2_TABLE_500();
298 a18 := JTF_VARCHAR2_TABLE_500();
299 a19 := JTF_VARCHAR2_TABLE_500();
300 a20 := JTF_VARCHAR2_TABLE_500();
301 a21 := JTF_VARCHAR2_TABLE_500();
302 a22 := JTF_VARCHAR2_TABLE_500();
303 a23 := JTF_VARCHAR2_TABLE_500();
304 a24 := JTF_VARCHAR2_TABLE_500();
305 a25 := JTF_VARCHAR2_TABLE_500();
306 a26 := JTF_VARCHAR2_TABLE_500();
307 a27 := JTF_VARCHAR2_TABLE_500();
308 a28 := JTF_VARCHAR2_TABLE_500();
309 a29 := JTF_VARCHAR2_TABLE_500();
310 a30 := JTF_VARCHAR2_TABLE_500();
311 a31 := JTF_VARCHAR2_TABLE_500();
312 a32 := JTF_NUMBER_TABLE();
313 a33 := JTF_DATE_TABLE();
314 a34 := JTF_NUMBER_TABLE();
315 a35 := JTF_DATE_TABLE();
316 a36 := JTF_NUMBER_TABLE();
317 a37 := JTF_DATE_TABLE();
318 a38 := JTF_VARCHAR2_TABLE_100();
319 a39 := JTF_NUMBER_TABLE();
320 a40 := JTF_VARCHAR2_TABLE_100();
321 a41 := JTF_VARCHAR2_TABLE_100();
322 a42 := JTF_VARCHAR2_TABLE_200();
323 a43 := JTF_NUMBER_TABLE();
324 a44 := JTF_NUMBER_TABLE();
325 a45 := JTF_NUMBER_TABLE();
326 a46 := JTF_NUMBER_TABLE();
327 a47 := JTF_NUMBER_TABLE();
328 a48 := JTF_NUMBER_TABLE();
329 a49 := JTF_NUMBER_TABLE();
330 a50 := JTF_NUMBER_TABLE();
331 a51 := JTF_VARCHAR2_TABLE_200();
332 a52 := JTF_VARCHAR2_TABLE_100();
333 a53 := JTF_VARCHAR2_TABLE_100();
334 a54 := JTF_VARCHAR2_TABLE_100();
335 a55 := JTF_NUMBER_TABLE();
336 a56 := JTF_DATE_TABLE();
337 a57 := JTF_DATE_TABLE();
338 a58 := JTF_NUMBER_TABLE();
339 if t.count > 0 then
340 a0.extend(t.count);
341 a1.extend(t.count);
342 a2.extend(t.count);
343 a3.extend(t.count);
344 a4.extend(t.count);
345 a5.extend(t.count);
346 a6.extend(t.count);
347 a7.extend(t.count);
348 a8.extend(t.count);
349 a9.extend(t.count);
350 a10.extend(t.count);
351 a11.extend(t.count);
352 a12.extend(t.count);
353 a13.extend(t.count);
354 a14.extend(t.count);
355 a15.extend(t.count);
356 a16.extend(t.count);
357 a17.extend(t.count);
358 a18.extend(t.count);
359 a19.extend(t.count);
360 a20.extend(t.count);
361 a21.extend(t.count);
362 a22.extend(t.count);
363 a23.extend(t.count);
364 a24.extend(t.count);
365 a25.extend(t.count);
366 a26.extend(t.count);
367 a27.extend(t.count);
368 a28.extend(t.count);
369 a29.extend(t.count);
370 a30.extend(t.count);
371 a31.extend(t.count);
372 a32.extend(t.count);
373 a33.extend(t.count);
374 a34.extend(t.count);
375 a35.extend(t.count);
376 a36.extend(t.count);
377 a37.extend(t.count);
378 a38.extend(t.count);
379 a39.extend(t.count);
380 a40.extend(t.count);
381 a41.extend(t.count);
382 a42.extend(t.count);
383 a43.extend(t.count);
384 a44.extend(t.count);
385 a45.extend(t.count);
386 a46.extend(t.count);
387 a47.extend(t.count);
388 a48.extend(t.count);
389 a49.extend(t.count);
390 a50.extend(t.count);
391 a51.extend(t.count);
392 a52.extend(t.count);
393 a53.extend(t.count);
394 a54.extend(t.count);
395 a55.extend(t.count);
396 a56.extend(t.count);
397 a57.extend(t.count);
398 a58.extend(t.count);
399 ddindx := t.first;
400 indx := 1;
401 while true loop
402 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
403 a1(indx) := rosetta_g_miss_num_map(t(ddindx).sty_id);
404 a2(indx) := rosetta_g_miss_num_map(t(ddindx).kle_id);
405 a3(indx) := t(ddindx).qlt_code;
406 a4(indx) := rosetta_g_miss_num_map(t(ddindx).qte_id);
407 a5(indx) := rosetta_g_miss_num_map(t(ddindx).line_number);
408 a6(indx) := rosetta_g_miss_num_map(t(ddindx).amount);
409 a7(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
410 a8(indx) := t(ddindx).modified_yn;
411 a9(indx) := t(ddindx).taxed_yn;
412 a10(indx) := t(ddindx).defaulted_yn;
413 a11(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
414 a12(indx) := rosetta_g_miss_num_map(t(ddindx).request_id);
415 a13(indx) := rosetta_g_miss_num_map(t(ddindx).program_application_id);
416 a14(indx) := rosetta_g_miss_num_map(t(ddindx).program_id);
417 a15(indx) := t(ddindx).program_update_date;
418 a16(indx) := t(ddindx).attribute_category;
419 a17(indx) := t(ddindx).attribute1;
420 a18(indx) := t(ddindx).attribute2;
421 a19(indx) := t(ddindx).attribute3;
422 a20(indx) := t(ddindx).attribute4;
423 a21(indx) := t(ddindx).attribute5;
424 a22(indx) := t(ddindx).attribute6;
425 a23(indx) := t(ddindx).attribute7;
426 a24(indx) := t(ddindx).attribute8;
427 a25(indx) := t(ddindx).attribute9;
428 a26(indx) := t(ddindx).attribute10;
429 a27(indx) := t(ddindx).attribute11;
430 a28(indx) := t(ddindx).attribute12;
431 a29(indx) := t(ddindx).attribute13;
432 a30(indx) := t(ddindx).attribute14;
433 a31(indx) := t(ddindx).attribute15;
434 a32(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
435 a33(indx) := t(ddindx).creation_date;
436 a34(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
437 a35(indx) := t(ddindx).last_update_date;
438 a36(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
439 a37(indx) := t(ddindx).start_date;
440 a38(indx) := t(ddindx).period;
441 a39(indx) := rosetta_g_miss_num_map(t(ddindx).number_of_periods);
442 a40(indx) := t(ddindx).lock_level_step;
443 a41(indx) := t(ddindx).advance_or_arrears;
444 a42(indx) := t(ddindx).yield_name;
445 a43(indx) := rosetta_g_miss_num_map(t(ddindx).yield_value);
446 a44(indx) := rosetta_g_miss_num_map(t(ddindx).implicit_interest_rate);
447 a45(indx) := rosetta_g_miss_num_map(t(ddindx).asset_value);
448 a46(indx) := rosetta_g_miss_num_map(t(ddindx).residual_value);
449 a47(indx) := rosetta_g_miss_num_map(t(ddindx).unbilled_receivables);
450 a48(indx) := rosetta_g_miss_num_map(t(ddindx).asset_quantity);
451 a49(indx) := rosetta_g_miss_num_map(t(ddindx).quote_quantity);
452 a50(indx) := rosetta_g_miss_num_map(t(ddindx).split_kle_id);
453 a51(indx) := t(ddindx).split_kle_name;
454 a52(indx) := t(ddindx).currency_code;
455 a53(indx) := t(ddindx).currency_conversion_code;
456 a54(indx) := t(ddindx).currency_conversion_type;
457 a55(indx) := rosetta_g_miss_num_map(t(ddindx).currency_conversion_rate);
458 a56(indx) := t(ddindx).currency_conversion_date;
459 a57(indx) := t(ddindx).due_date;
460 a58(indx) := rosetta_g_miss_num_map(t(ddindx).try_id);
461 indx := indx+1;
462 if t.last =ddindx
463 then exit;
464 end if;
465 ddindx := t.next(ddindx);
466 end loop;
467 end if;
468 end if;
469 end rosetta_table_copy_out_p2;
470
471 procedure rosetta_table_copy_in_p5(t out nocopy okl_tql_pvt.okltxlquotelinestltbltype, a0 JTF_NUMBER_TABLE
472 , a1 JTF_VARCHAR2_TABLE_100
473 , a2 JTF_VARCHAR2_TABLE_100
474 , a3 JTF_VARCHAR2_TABLE_100
475 , a4 JTF_VARCHAR2_TABLE_2000
476 , a5 JTF_NUMBER_TABLE
477 , a6 JTF_DATE_TABLE
478 , a7 JTF_NUMBER_TABLE
479 , a8 JTF_DATE_TABLE
480 , a9 JTF_NUMBER_TABLE
481 ) as
482 ddindx binary_integer; indx binary_integer;
483 begin
484 if a0 is not null and a0.count > 0 then
485 if a0.count > 0 then
486 indx := a0.first;
487 ddindx := 1;
488 while true loop
489 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
490 t(ddindx).language := a1(indx);
491 t(ddindx).source_lang := a2(indx);
492 t(ddindx).sfwt_flag := a3(indx);
493 t(ddindx).description := a4(indx);
494 t(ddindx).created_by := rosetta_g_miss_num_map(a5(indx));
495 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a6(indx));
496 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a7(indx));
497 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a8(indx));
498 t(ddindx).last_update_login := rosetta_g_miss_num_map(a9(indx));
499 ddindx := ddindx+1;
500 if a0.last =indx
501 then exit;
502 end if;
503 indx := a0.next(indx);
504 end loop;
505 end if;
506 end if;
507 end rosetta_table_copy_in_p5;
508 procedure rosetta_table_copy_out_p5(t okl_tql_pvt.okltxlquotelinestltbltype, a0 out nocopy JTF_NUMBER_TABLE
509 , a1 out nocopy JTF_VARCHAR2_TABLE_100
510 , a2 out nocopy JTF_VARCHAR2_TABLE_100
511 , a3 out nocopy JTF_VARCHAR2_TABLE_100
512 , a4 out nocopy JTF_VARCHAR2_TABLE_2000
513 , a5 out nocopy JTF_NUMBER_TABLE
514 , a6 out nocopy JTF_DATE_TABLE
515 , a7 out nocopy JTF_NUMBER_TABLE
516 , a8 out nocopy JTF_DATE_TABLE
517 , a9 out nocopy JTF_NUMBER_TABLE
518 ) as
519 ddindx binary_integer; indx binary_integer;
520 begin
521 if t is null or t.count = 0 then
522 a0 := JTF_NUMBER_TABLE();
523 a1 := JTF_VARCHAR2_TABLE_100();
524 a2 := JTF_VARCHAR2_TABLE_100();
525 a3 := JTF_VARCHAR2_TABLE_100();
526 a4 := JTF_VARCHAR2_TABLE_2000();
527 a5 := JTF_NUMBER_TABLE();
528 a6 := JTF_DATE_TABLE();
529 a7 := JTF_NUMBER_TABLE();
530 a8 := JTF_DATE_TABLE();
531 a9 := JTF_NUMBER_TABLE();
532 else
533 a0 := JTF_NUMBER_TABLE();
534 a1 := JTF_VARCHAR2_TABLE_100();
535 a2 := JTF_VARCHAR2_TABLE_100();
536 a3 := JTF_VARCHAR2_TABLE_100();
537 a4 := JTF_VARCHAR2_TABLE_2000();
538 a5 := JTF_NUMBER_TABLE();
539 a6 := JTF_DATE_TABLE();
540 a7 := JTF_NUMBER_TABLE();
541 a8 := JTF_DATE_TABLE();
542 a9 := JTF_NUMBER_TABLE();
543 if t.count > 0 then
544 a0.extend(t.count);
545 a1.extend(t.count);
546 a2.extend(t.count);
547 a3.extend(t.count);
548 a4.extend(t.count);
549 a5.extend(t.count);
550 a6.extend(t.count);
551 a7.extend(t.count);
552 a8.extend(t.count);
553 a9.extend(t.count);
554 ddindx := t.first;
555 indx := 1;
556 while true loop
557 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
558 a1(indx) := t(ddindx).language;
559 a2(indx) := t(ddindx).source_lang;
560 a3(indx) := t(ddindx).sfwt_flag;
561 a4(indx) := t(ddindx).description;
562 a5(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
563 a6(indx) := t(ddindx).creation_date;
564 a7(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
565 a8(indx) := t(ddindx).last_update_date;
566 a9(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
567 indx := indx+1;
568 if t.last =ddindx
569 then exit;
570 end if;
571 ddindx := t.next(ddindx);
572 end loop;
573 end if;
574 end if;
575 end rosetta_table_copy_out_p5;
576
577 procedure rosetta_table_copy_in_p8(t out nocopy okl_tql_pvt.tqlv_tbl_type, a0 JTF_NUMBER_TABLE
578 , a1 JTF_NUMBER_TABLE
579 , a2 JTF_VARCHAR2_TABLE_100
580 , a3 JTF_VARCHAR2_TABLE_100
581 , a4 JTF_NUMBER_TABLE
582 , a5 JTF_NUMBER_TABLE
583 , a6 JTF_NUMBER_TABLE
584 , a7 JTF_NUMBER_TABLE
585 , a8 JTF_VARCHAR2_TABLE_2000
586 , a9 JTF_NUMBER_TABLE
587 , a10 JTF_VARCHAR2_TABLE_100
588 , a11 JTF_VARCHAR2_TABLE_100
589 , a12 JTF_VARCHAR2_TABLE_100
590 , a13 JTF_VARCHAR2_TABLE_100
591 , a14 JTF_VARCHAR2_TABLE_500
592 , a15 JTF_VARCHAR2_TABLE_500
593 , a16 JTF_VARCHAR2_TABLE_500
594 , a17 JTF_VARCHAR2_TABLE_500
595 , a18 JTF_VARCHAR2_TABLE_500
596 , a19 JTF_VARCHAR2_TABLE_500
597 , a20 JTF_VARCHAR2_TABLE_500
598 , a21 JTF_VARCHAR2_TABLE_500
599 , a22 JTF_VARCHAR2_TABLE_500
600 , a23 JTF_VARCHAR2_TABLE_500
601 , a24 JTF_VARCHAR2_TABLE_500
602 , a25 JTF_VARCHAR2_TABLE_500
603 , a26 JTF_VARCHAR2_TABLE_500
604 , a27 JTF_VARCHAR2_TABLE_500
605 , a28 JTF_VARCHAR2_TABLE_500
606 , a29 JTF_NUMBER_TABLE
607 , a30 JTF_NUMBER_TABLE
608 , a31 JTF_NUMBER_TABLE
609 , a32 JTF_NUMBER_TABLE
610 , a33 JTF_DATE_TABLE
611 , a34 JTF_NUMBER_TABLE
612 , a35 JTF_DATE_TABLE
613 , a36 JTF_NUMBER_TABLE
614 , a37 JTF_DATE_TABLE
615 , a38 JTF_NUMBER_TABLE
616 , a39 JTF_DATE_TABLE
617 , a40 JTF_VARCHAR2_TABLE_100
618 , a41 JTF_NUMBER_TABLE
619 , a42 JTF_VARCHAR2_TABLE_100
620 , a43 JTF_VARCHAR2_TABLE_100
621 , a44 JTF_VARCHAR2_TABLE_200
622 , a45 JTF_NUMBER_TABLE
623 , a46 JTF_NUMBER_TABLE
624 , a47 JTF_NUMBER_TABLE
625 , a48 JTF_NUMBER_TABLE
626 , a49 JTF_NUMBER_TABLE
627 , a50 JTF_NUMBER_TABLE
628 , a51 JTF_NUMBER_TABLE
629 , a52 JTF_NUMBER_TABLE
630 , a53 JTF_VARCHAR2_TABLE_200
631 , a54 JTF_VARCHAR2_TABLE_100
632 , a55 JTF_VARCHAR2_TABLE_100
633 , a56 JTF_VARCHAR2_TABLE_100
634 , a57 JTF_NUMBER_TABLE
635 , a58 JTF_DATE_TABLE
636 , a59 JTF_DATE_TABLE
637 , a60 JTF_NUMBER_TABLE
638 ) as
639 ddindx binary_integer; indx binary_integer;
640 begin
641 if a0 is not null and a0.count > 0 then
642 if a0.count > 0 then
643 indx := a0.first;
644 ddindx := 1;
645 while true loop
646 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
647 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
648 t(ddindx).sfwt_flag := a2(indx);
649 t(ddindx).qlt_code := a3(indx);
650 t(ddindx).kle_id := rosetta_g_miss_num_map(a4(indx));
651 t(ddindx).sty_id := rosetta_g_miss_num_map(a5(indx));
652 t(ddindx).qte_id := rosetta_g_miss_num_map(a6(indx));
653 t(ddindx).line_number := rosetta_g_miss_num_map(a7(indx));
654 t(ddindx).description := a8(indx);
655 t(ddindx).amount := rosetta_g_miss_num_map(a9(indx));
656 t(ddindx).modified_yn := a10(indx);
657 t(ddindx).taxed_yn := a11(indx);
658 t(ddindx).defaulted_yn := a12(indx);
659 t(ddindx).attribute_category := a13(indx);
660 t(ddindx).attribute1 := a14(indx);
661 t(ddindx).attribute2 := a15(indx);
662 t(ddindx).attribute3 := a16(indx);
663 t(ddindx).attribute4 := a17(indx);
664 t(ddindx).attribute5 := a18(indx);
665 t(ddindx).attribute6 := a19(indx);
666 t(ddindx).attribute7 := a20(indx);
667 t(ddindx).attribute8 := a21(indx);
668 t(ddindx).attribute9 := a22(indx);
669 t(ddindx).attribute10 := a23(indx);
670 t(ddindx).attribute11 := a24(indx);
671 t(ddindx).attribute12 := a25(indx);
672 t(ddindx).attribute13 := a26(indx);
673 t(ddindx).attribute14 := a27(indx);
674 t(ddindx).attribute15 := a28(indx);
675 t(ddindx).org_id := rosetta_g_miss_num_map(a29(indx));
676 t(ddindx).request_id := rosetta_g_miss_num_map(a30(indx));
677 t(ddindx).program_application_id := rosetta_g_miss_num_map(a31(indx));
678 t(ddindx).program_id := rosetta_g_miss_num_map(a32(indx));
679 t(ddindx).program_update_date := rosetta_g_miss_date_in_map(a33(indx));
680 t(ddindx).created_by := rosetta_g_miss_num_map(a34(indx));
681 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a35(indx));
682 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a36(indx));
683 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a37(indx));
684 t(ddindx).last_update_login := rosetta_g_miss_num_map(a38(indx));
685 t(ddindx).start_date := rosetta_g_miss_date_in_map(a39(indx));
686 t(ddindx).period := a40(indx);
687 t(ddindx).number_of_periods := rosetta_g_miss_num_map(a41(indx));
688 t(ddindx).lock_level_step := a42(indx);
689 t(ddindx).advance_or_arrears := a43(indx);
690 t(ddindx).yield_name := a44(indx);
691 t(ddindx).yield_value := rosetta_g_miss_num_map(a45(indx));
692 t(ddindx).implicit_interest_rate := rosetta_g_miss_num_map(a46(indx));
693 t(ddindx).asset_value := rosetta_g_miss_num_map(a47(indx));
694 t(ddindx).residual_value := rosetta_g_miss_num_map(a48(indx));
695 t(ddindx).unbilled_receivables := rosetta_g_miss_num_map(a49(indx));
696 t(ddindx).asset_quantity := rosetta_g_miss_num_map(a50(indx));
697 t(ddindx).quote_quantity := rosetta_g_miss_num_map(a51(indx));
698 t(ddindx).split_kle_id := rosetta_g_miss_num_map(a52(indx));
699 t(ddindx).split_kle_name := a53(indx);
700 t(ddindx).currency_code := a54(indx);
701 t(ddindx).currency_conversion_code := a55(indx);
702 t(ddindx).currency_conversion_type := a56(indx);
703 t(ddindx).currency_conversion_rate := rosetta_g_miss_num_map(a57(indx));
704 t(ddindx).currency_conversion_date := rosetta_g_miss_date_in_map(a58(indx));
705 t(ddindx).due_date := rosetta_g_miss_date_in_map(a59(indx));
706 t(ddindx).try_id := rosetta_g_miss_num_map(a60(indx));
707 ddindx := ddindx+1;
708 if a0.last =indx
709 then exit;
710 end if;
711 indx := a0.next(indx);
712 end loop;
713 end if;
714 end if;
715 end rosetta_table_copy_in_p8;
716 procedure rosetta_table_copy_out_p8(t okl_tql_pvt.tqlv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
717 , a1 out nocopy JTF_NUMBER_TABLE
718 , a2 out nocopy JTF_VARCHAR2_TABLE_100
719 , a3 out nocopy JTF_VARCHAR2_TABLE_100
720 , a4 out nocopy JTF_NUMBER_TABLE
721 , a5 out nocopy JTF_NUMBER_TABLE
722 , a6 out nocopy JTF_NUMBER_TABLE
723 , a7 out nocopy JTF_NUMBER_TABLE
724 , a8 out nocopy JTF_VARCHAR2_TABLE_2000
725 , a9 out nocopy JTF_NUMBER_TABLE
726 , a10 out nocopy JTF_VARCHAR2_TABLE_100
727 , a11 out nocopy JTF_VARCHAR2_TABLE_100
728 , a12 out nocopy JTF_VARCHAR2_TABLE_100
729 , a13 out nocopy JTF_VARCHAR2_TABLE_100
730 , a14 out nocopy JTF_VARCHAR2_TABLE_500
731 , a15 out nocopy JTF_VARCHAR2_TABLE_500
732 , a16 out nocopy JTF_VARCHAR2_TABLE_500
733 , a17 out nocopy JTF_VARCHAR2_TABLE_500
734 , a18 out nocopy JTF_VARCHAR2_TABLE_500
735 , a19 out nocopy JTF_VARCHAR2_TABLE_500
736 , a20 out nocopy JTF_VARCHAR2_TABLE_500
737 , a21 out nocopy JTF_VARCHAR2_TABLE_500
738 , a22 out nocopy JTF_VARCHAR2_TABLE_500
739 , a23 out nocopy JTF_VARCHAR2_TABLE_500
740 , a24 out nocopy JTF_VARCHAR2_TABLE_500
741 , a25 out nocopy JTF_VARCHAR2_TABLE_500
742 , a26 out nocopy JTF_VARCHAR2_TABLE_500
743 , a27 out nocopy JTF_VARCHAR2_TABLE_500
744 , a28 out nocopy JTF_VARCHAR2_TABLE_500
745 , a29 out nocopy JTF_NUMBER_TABLE
746 , a30 out nocopy JTF_NUMBER_TABLE
747 , a31 out nocopy JTF_NUMBER_TABLE
748 , a32 out nocopy JTF_NUMBER_TABLE
749 , a33 out nocopy JTF_DATE_TABLE
750 , a34 out nocopy JTF_NUMBER_TABLE
751 , a35 out nocopy JTF_DATE_TABLE
752 , a36 out nocopy JTF_NUMBER_TABLE
753 , a37 out nocopy JTF_DATE_TABLE
754 , a38 out nocopy JTF_NUMBER_TABLE
755 , a39 out nocopy JTF_DATE_TABLE
756 , a40 out nocopy JTF_VARCHAR2_TABLE_100
757 , a41 out nocopy JTF_NUMBER_TABLE
758 , a42 out nocopy JTF_VARCHAR2_TABLE_100
759 , a43 out nocopy JTF_VARCHAR2_TABLE_100
760 , a44 out nocopy JTF_VARCHAR2_TABLE_200
761 , a45 out nocopy JTF_NUMBER_TABLE
762 , a46 out nocopy JTF_NUMBER_TABLE
763 , a47 out nocopy JTF_NUMBER_TABLE
764 , a48 out nocopy JTF_NUMBER_TABLE
765 , a49 out nocopy JTF_NUMBER_TABLE
766 , a50 out nocopy JTF_NUMBER_TABLE
767 , a51 out nocopy JTF_NUMBER_TABLE
768 , a52 out nocopy JTF_NUMBER_TABLE
769 , a53 out nocopy JTF_VARCHAR2_TABLE_200
770 , a54 out nocopy JTF_VARCHAR2_TABLE_100
771 , a55 out nocopy JTF_VARCHAR2_TABLE_100
772 , a56 out nocopy JTF_VARCHAR2_TABLE_100
773 , a57 out nocopy JTF_NUMBER_TABLE
774 , a58 out nocopy JTF_DATE_TABLE
775 , a59 out nocopy JTF_DATE_TABLE
776 , a60 out nocopy JTF_NUMBER_TABLE
777 ) as
778 ddindx binary_integer; indx binary_integer;
779 begin
780 if t is null or t.count = 0 then
781 a0 := JTF_NUMBER_TABLE();
782 a1 := JTF_NUMBER_TABLE();
783 a2 := JTF_VARCHAR2_TABLE_100();
784 a3 := JTF_VARCHAR2_TABLE_100();
785 a4 := JTF_NUMBER_TABLE();
786 a5 := JTF_NUMBER_TABLE();
787 a6 := JTF_NUMBER_TABLE();
788 a7 := JTF_NUMBER_TABLE();
789 a8 := JTF_VARCHAR2_TABLE_2000();
790 a9 := JTF_NUMBER_TABLE();
791 a10 := JTF_VARCHAR2_TABLE_100();
792 a11 := JTF_VARCHAR2_TABLE_100();
793 a12 := JTF_VARCHAR2_TABLE_100();
794 a13 := JTF_VARCHAR2_TABLE_100();
795 a14 := JTF_VARCHAR2_TABLE_500();
796 a15 := JTF_VARCHAR2_TABLE_500();
797 a16 := JTF_VARCHAR2_TABLE_500();
798 a17 := JTF_VARCHAR2_TABLE_500();
799 a18 := JTF_VARCHAR2_TABLE_500();
800 a19 := JTF_VARCHAR2_TABLE_500();
801 a20 := JTF_VARCHAR2_TABLE_500();
802 a21 := JTF_VARCHAR2_TABLE_500();
803 a22 := JTF_VARCHAR2_TABLE_500();
804 a23 := JTF_VARCHAR2_TABLE_500();
805 a24 := JTF_VARCHAR2_TABLE_500();
806 a25 := JTF_VARCHAR2_TABLE_500();
807 a26 := JTF_VARCHAR2_TABLE_500();
808 a27 := JTF_VARCHAR2_TABLE_500();
809 a28 := JTF_VARCHAR2_TABLE_500();
810 a29 := JTF_NUMBER_TABLE();
811 a30 := JTF_NUMBER_TABLE();
812 a31 := JTF_NUMBER_TABLE();
813 a32 := JTF_NUMBER_TABLE();
814 a33 := JTF_DATE_TABLE();
815 a34 := JTF_NUMBER_TABLE();
816 a35 := JTF_DATE_TABLE();
817 a36 := JTF_NUMBER_TABLE();
818 a37 := JTF_DATE_TABLE();
819 a38 := JTF_NUMBER_TABLE();
820 a39 := JTF_DATE_TABLE();
821 a40 := JTF_VARCHAR2_TABLE_100();
822 a41 := JTF_NUMBER_TABLE();
823 a42 := JTF_VARCHAR2_TABLE_100();
824 a43 := JTF_VARCHAR2_TABLE_100();
825 a44 := JTF_VARCHAR2_TABLE_200();
826 a45 := JTF_NUMBER_TABLE();
827 a46 := JTF_NUMBER_TABLE();
828 a47 := JTF_NUMBER_TABLE();
829 a48 := JTF_NUMBER_TABLE();
830 a49 := JTF_NUMBER_TABLE();
831 a50 := JTF_NUMBER_TABLE();
832 a51 := JTF_NUMBER_TABLE();
833 a52 := JTF_NUMBER_TABLE();
834 a53 := JTF_VARCHAR2_TABLE_200();
835 a54 := JTF_VARCHAR2_TABLE_100();
836 a55 := JTF_VARCHAR2_TABLE_100();
837 a56 := JTF_VARCHAR2_TABLE_100();
838 a57 := JTF_NUMBER_TABLE();
839 a58 := JTF_DATE_TABLE();
840 a59 := JTF_DATE_TABLE();
841 a60 := JTF_NUMBER_TABLE();
842 else
843 a0 := JTF_NUMBER_TABLE();
844 a1 := JTF_NUMBER_TABLE();
845 a2 := JTF_VARCHAR2_TABLE_100();
846 a3 := JTF_VARCHAR2_TABLE_100();
847 a4 := JTF_NUMBER_TABLE();
848 a5 := JTF_NUMBER_TABLE();
849 a6 := JTF_NUMBER_TABLE();
850 a7 := JTF_NUMBER_TABLE();
851 a8 := JTF_VARCHAR2_TABLE_2000();
852 a9 := JTF_NUMBER_TABLE();
853 a10 := JTF_VARCHAR2_TABLE_100();
854 a11 := JTF_VARCHAR2_TABLE_100();
855 a12 := JTF_VARCHAR2_TABLE_100();
856 a13 := JTF_VARCHAR2_TABLE_100();
857 a14 := JTF_VARCHAR2_TABLE_500();
858 a15 := JTF_VARCHAR2_TABLE_500();
859 a16 := JTF_VARCHAR2_TABLE_500();
860 a17 := JTF_VARCHAR2_TABLE_500();
861 a18 := JTF_VARCHAR2_TABLE_500();
862 a19 := JTF_VARCHAR2_TABLE_500();
863 a20 := JTF_VARCHAR2_TABLE_500();
864 a21 := JTF_VARCHAR2_TABLE_500();
865 a22 := JTF_VARCHAR2_TABLE_500();
866 a23 := JTF_VARCHAR2_TABLE_500();
867 a24 := JTF_VARCHAR2_TABLE_500();
868 a25 := JTF_VARCHAR2_TABLE_500();
869 a26 := JTF_VARCHAR2_TABLE_500();
870 a27 := JTF_VARCHAR2_TABLE_500();
871 a28 := JTF_VARCHAR2_TABLE_500();
872 a29 := JTF_NUMBER_TABLE();
873 a30 := JTF_NUMBER_TABLE();
874 a31 := JTF_NUMBER_TABLE();
875 a32 := JTF_NUMBER_TABLE();
876 a33 := JTF_DATE_TABLE();
877 a34 := JTF_NUMBER_TABLE();
878 a35 := JTF_DATE_TABLE();
879 a36 := JTF_NUMBER_TABLE();
880 a37 := JTF_DATE_TABLE();
881 a38 := JTF_NUMBER_TABLE();
882 a39 := JTF_DATE_TABLE();
883 a40 := JTF_VARCHAR2_TABLE_100();
884 a41 := JTF_NUMBER_TABLE();
885 a42 := JTF_VARCHAR2_TABLE_100();
886 a43 := JTF_VARCHAR2_TABLE_100();
887 a44 := JTF_VARCHAR2_TABLE_200();
888 a45 := JTF_NUMBER_TABLE();
889 a46 := JTF_NUMBER_TABLE();
890 a47 := JTF_NUMBER_TABLE();
891 a48 := JTF_NUMBER_TABLE();
892 a49 := JTF_NUMBER_TABLE();
893 a50 := JTF_NUMBER_TABLE();
894 a51 := JTF_NUMBER_TABLE();
895 a52 := JTF_NUMBER_TABLE();
896 a53 := JTF_VARCHAR2_TABLE_200();
897 a54 := JTF_VARCHAR2_TABLE_100();
898 a55 := JTF_VARCHAR2_TABLE_100();
899 a56 := JTF_VARCHAR2_TABLE_100();
900 a57 := JTF_NUMBER_TABLE();
901 a58 := JTF_DATE_TABLE();
902 a59 := JTF_DATE_TABLE();
903 a60 := JTF_NUMBER_TABLE();
904 if t.count > 0 then
905 a0.extend(t.count);
906 a1.extend(t.count);
907 a2.extend(t.count);
908 a3.extend(t.count);
909 a4.extend(t.count);
910 a5.extend(t.count);
911 a6.extend(t.count);
912 a7.extend(t.count);
913 a8.extend(t.count);
914 a9.extend(t.count);
915 a10.extend(t.count);
916 a11.extend(t.count);
917 a12.extend(t.count);
918 a13.extend(t.count);
919 a14.extend(t.count);
920 a15.extend(t.count);
921 a16.extend(t.count);
922 a17.extend(t.count);
923 a18.extend(t.count);
924 a19.extend(t.count);
925 a20.extend(t.count);
926 a21.extend(t.count);
927 a22.extend(t.count);
928 a23.extend(t.count);
929 a24.extend(t.count);
930 a25.extend(t.count);
931 a26.extend(t.count);
932 a27.extend(t.count);
933 a28.extend(t.count);
934 a29.extend(t.count);
935 a30.extend(t.count);
936 a31.extend(t.count);
937 a32.extend(t.count);
938 a33.extend(t.count);
939 a34.extend(t.count);
940 a35.extend(t.count);
941 a36.extend(t.count);
942 a37.extend(t.count);
943 a38.extend(t.count);
944 a39.extend(t.count);
945 a40.extend(t.count);
946 a41.extend(t.count);
947 a42.extend(t.count);
948 a43.extend(t.count);
949 a44.extend(t.count);
950 a45.extend(t.count);
951 a46.extend(t.count);
952 a47.extend(t.count);
953 a48.extend(t.count);
954 a49.extend(t.count);
955 a50.extend(t.count);
956 a51.extend(t.count);
957 a52.extend(t.count);
958 a53.extend(t.count);
959 a54.extend(t.count);
960 a55.extend(t.count);
961 a56.extend(t.count);
962 a57.extend(t.count);
963 a58.extend(t.count);
964 a59.extend(t.count);
965 a60.extend(t.count);
966 ddindx := t.first;
967 indx := 1;
968 while true loop
969 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
970 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
971 a2(indx) := t(ddindx).sfwt_flag;
972 a3(indx) := t(ddindx).qlt_code;
973 a4(indx) := rosetta_g_miss_num_map(t(ddindx).kle_id);
974 a5(indx) := rosetta_g_miss_num_map(t(ddindx).sty_id);
975 a6(indx) := rosetta_g_miss_num_map(t(ddindx).qte_id);
976 a7(indx) := rosetta_g_miss_num_map(t(ddindx).line_number);
977 a8(indx) := t(ddindx).description;
978 a9(indx) := rosetta_g_miss_num_map(t(ddindx).amount);
979 a10(indx) := t(ddindx).modified_yn;
980 a11(indx) := t(ddindx).taxed_yn;
981 a12(indx) := t(ddindx).defaulted_yn;
982 a13(indx) := t(ddindx).attribute_category;
983 a14(indx) := t(ddindx).attribute1;
984 a15(indx) := t(ddindx).attribute2;
985 a16(indx) := t(ddindx).attribute3;
986 a17(indx) := t(ddindx).attribute4;
987 a18(indx) := t(ddindx).attribute5;
988 a19(indx) := t(ddindx).attribute6;
989 a20(indx) := t(ddindx).attribute7;
990 a21(indx) := t(ddindx).attribute8;
991 a22(indx) := t(ddindx).attribute9;
992 a23(indx) := t(ddindx).attribute10;
993 a24(indx) := t(ddindx).attribute11;
994 a25(indx) := t(ddindx).attribute12;
995 a26(indx) := t(ddindx).attribute13;
996 a27(indx) := t(ddindx).attribute14;
997 a28(indx) := t(ddindx).attribute15;
998 a29(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
999 a30(indx) := rosetta_g_miss_num_map(t(ddindx).request_id);
1000 a31(indx) := rosetta_g_miss_num_map(t(ddindx).program_application_id);
1001 a32(indx) := rosetta_g_miss_num_map(t(ddindx).program_id);
1002 a33(indx) := t(ddindx).program_update_date;
1003 a34(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
1004 a35(indx) := t(ddindx).creation_date;
1005 a36(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
1006 a37(indx) := t(ddindx).last_update_date;
1007 a38(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
1008 a39(indx) := t(ddindx).start_date;
1009 a40(indx) := t(ddindx).period;
1010 a41(indx) := rosetta_g_miss_num_map(t(ddindx).number_of_periods);
1011 a42(indx) := t(ddindx).lock_level_step;
1012 a43(indx) := t(ddindx).advance_or_arrears;
1013 a44(indx) := t(ddindx).yield_name;
1014 a45(indx) := rosetta_g_miss_num_map(t(ddindx).yield_value);
1015 a46(indx) := rosetta_g_miss_num_map(t(ddindx).implicit_interest_rate);
1016 a47(indx) := rosetta_g_miss_num_map(t(ddindx).asset_value);
1017 a48(indx) := rosetta_g_miss_num_map(t(ddindx).residual_value);
1018 a49(indx) := rosetta_g_miss_num_map(t(ddindx).unbilled_receivables);
1019 a50(indx) := rosetta_g_miss_num_map(t(ddindx).asset_quantity);
1020 a51(indx) := rosetta_g_miss_num_map(t(ddindx).quote_quantity);
1021 a52(indx) := rosetta_g_miss_num_map(t(ddindx).split_kle_id);
1022 a53(indx) := t(ddindx).split_kle_name;
1023 a54(indx) := t(ddindx).currency_code;
1024 a55(indx) := t(ddindx).currency_conversion_code;
1025 a56(indx) := t(ddindx).currency_conversion_type;
1026 a57(indx) := rosetta_g_miss_num_map(t(ddindx).currency_conversion_rate);
1027 a58(indx) := t(ddindx).currency_conversion_date;
1028 a59(indx) := t(ddindx).due_date;
1029 a60(indx) := rosetta_g_miss_num_map(t(ddindx).try_id);
1030 indx := indx+1;
1031 if t.last =ddindx
1032 then exit;
1033 end if;
1034 ddindx := t.next(ddindx);
1035 end loop;
1036 end if;
1037 end if;
1038 end rosetta_table_copy_out_p8;
1039
1040 procedure rosetta_table_copy_in_p9(t out nocopy okl_tql_pvt.numbertabtyp, a0 JTF_NUMBER_TABLE) as
1041 ddindx binary_integer; indx binary_integer;
1042 begin
1043 if a0 is not null and a0.count > 0 then
1044 if a0.count > 0 then
1045 indx := a0.first;
1046 ddindx := 1;
1047 while true loop
1048 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
1049 ddindx := ddindx+1;
1050 if a0.last =indx
1051 then exit;
1052 end if;
1053 indx := a0.next(indx);
1054 end loop;
1055 end if;
1056 end if;
1057 end rosetta_table_copy_in_p9;
1058 procedure rosetta_table_copy_out_p9(t okl_tql_pvt.numbertabtyp, a0 out nocopy JTF_NUMBER_TABLE) as
1059 ddindx binary_integer; indx binary_integer;
1060 begin
1061 if t is null or t.count = 0 then
1062 a0 := JTF_NUMBER_TABLE();
1063 else
1064 a0 := JTF_NUMBER_TABLE();
1065 if t.count > 0 then
1066 a0.extend(t.count);
1067 ddindx := t.first;
1068 indx := 1;
1069 while true loop
1070 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
1071 indx := indx+1;
1072 if t.last =ddindx
1073 then exit;
1074 end if;
1075 ddindx := t.next(ddindx);
1076 end loop;
1077 end if;
1078 end if;
1079 end rosetta_table_copy_out_p9;
1080
1081 procedure rosetta_table_copy_in_p10(t out nocopy okl_tql_pvt.number4tabtyp, a0 JTF_NUMBER_TABLE) as
1082 ddindx binary_integer; indx binary_integer;
1083 begin
1084 if a0 is not null and a0.count > 0 then
1085 if a0.count > 0 then
1086 indx := a0.first;
1087 ddindx := 1;
1088 while true loop
1089 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
1090 ddindx := ddindx+1;
1091 if a0.last =indx
1092 then exit;
1093 end if;
1094 indx := a0.next(indx);
1095 end loop;
1096 end if;
1097 end if;
1098 end rosetta_table_copy_in_p10;
1099 procedure rosetta_table_copy_out_p10(t okl_tql_pvt.number4tabtyp, a0 out nocopy JTF_NUMBER_TABLE) as
1100 ddindx binary_integer; indx binary_integer;
1101 begin
1102 if t is null or t.count = 0 then
1103 a0 := JTF_NUMBER_TABLE();
1104 else
1105 a0 := JTF_NUMBER_TABLE();
1106 if t.count > 0 then
1107 a0.extend(t.count);
1108 ddindx := t.first;
1109 indx := 1;
1110 while true loop
1111 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
1112 indx := indx+1;
1113 if t.last =ddindx
1114 then exit;
1115 end if;
1116 ddindx := t.next(ddindx);
1117 end loop;
1118 end if;
1119 end if;
1120 end rosetta_table_copy_out_p10;
1121
1122 procedure rosetta_table_copy_in_p11(t out nocopy okl_tql_pvt.number9tabtyp, a0 JTF_NUMBER_TABLE) as
1123 ddindx binary_integer; indx binary_integer;
1124 begin
1125 if a0 is not null and a0.count > 0 then
1126 if a0.count > 0 then
1127 indx := a0.first;
1128 ddindx := 1;
1129 while true loop
1130 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
1131 ddindx := ddindx+1;
1132 if a0.last =indx
1133 then exit;
1134 end if;
1135 indx := a0.next(indx);
1136 end loop;
1137 end if;
1138 end if;
1139 end rosetta_table_copy_in_p11;
1140 procedure rosetta_table_copy_out_p11(t okl_tql_pvt.number9tabtyp, a0 out nocopy JTF_NUMBER_TABLE) as
1141 ddindx binary_integer; indx binary_integer;
1142 begin
1143 if t is null or t.count = 0 then
1144 a0 := JTF_NUMBER_TABLE();
1145 else
1146 a0 := JTF_NUMBER_TABLE();
1147 if t.count > 0 then
1148 a0.extend(t.count);
1149 ddindx := t.first;
1150 indx := 1;
1151 while true loop
1152 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
1153 indx := indx+1;
1154 if t.last =ddindx
1155 then exit;
1156 end if;
1157 ddindx := t.next(ddindx);
1158 end loop;
1159 end if;
1160 end if;
1161 end rosetta_table_copy_out_p11;
1162
1163 procedure rosetta_table_copy_in_p12(t out nocopy okl_tql_pvt.number14p3tabtyp, a0 JTF_NUMBER_TABLE) as
1164 ddindx binary_integer; indx binary_integer;
1165 begin
1166 if a0 is not null and a0.count > 0 then
1167 if a0.count > 0 then
1168 indx := a0.first;
1169 ddindx := 1;
1170 while true loop
1171 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
1172 ddindx := ddindx+1;
1173 if a0.last =indx
1174 then exit;
1175 end if;
1176 indx := a0.next(indx);
1177 end loop;
1178 end if;
1179 end if;
1180 end rosetta_table_copy_in_p12;
1181 procedure rosetta_table_copy_out_p12(t okl_tql_pvt.number14p3tabtyp, a0 out nocopy JTF_NUMBER_TABLE) as
1182 ddindx binary_integer; indx binary_integer;
1183 begin
1184 if t is null or t.count = 0 then
1185 a0 := JTF_NUMBER_TABLE();
1186 else
1187 a0 := JTF_NUMBER_TABLE();
1188 if t.count > 0 then
1189 a0.extend(t.count);
1190 ddindx := t.first;
1191 indx := 1;
1192 while true loop
1193 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
1194 indx := indx+1;
1195 if t.last =ddindx
1196 then exit;
1197 end if;
1198 ddindx := t.next(ddindx);
1199 end loop;
1200 end if;
1201 end if;
1202 end rosetta_table_copy_out_p12;
1203
1204 procedure rosetta_table_copy_in_p13(t out nocopy okl_tql_pvt.number15tabtyp, a0 JTF_NUMBER_TABLE) as
1205 ddindx binary_integer; indx binary_integer;
1206 begin
1207 if a0 is not null and a0.count > 0 then
1208 if a0.count > 0 then
1209 indx := a0.first;
1210 ddindx := 1;
1211 while true loop
1212 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
1213 ddindx := ddindx+1;
1214 if a0.last =indx
1215 then exit;
1216 end if;
1217 indx := a0.next(indx);
1218 end loop;
1219 end if;
1220 end if;
1221 end rosetta_table_copy_in_p13;
1222 procedure rosetta_table_copy_out_p13(t okl_tql_pvt.number15tabtyp, a0 out nocopy JTF_NUMBER_TABLE) as
1223 ddindx binary_integer; indx binary_integer;
1224 begin
1225 if t is null or t.count = 0 then
1226 a0 := JTF_NUMBER_TABLE();
1227 else
1228 a0 := JTF_NUMBER_TABLE();
1229 if t.count > 0 then
1230 a0.extend(t.count);
1231 ddindx := t.first;
1232 indx := 1;
1233 while true loop
1234 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
1235 indx := indx+1;
1236 if t.last =ddindx
1237 then exit;
1238 end if;
1239 ddindx := t.next(ddindx);
1240 end loop;
1241 end if;
1242 end if;
1243 end rosetta_table_copy_out_p13;
1244
1245 procedure rosetta_table_copy_in_p14(t out nocopy okl_tql_pvt.number18p15tabtyp, a0 JTF_NUMBER_TABLE) as
1246 ddindx binary_integer; indx binary_integer;
1247 begin
1248 if a0 is not null and a0.count > 0 then
1249 if a0.count > 0 then
1250 indx := a0.first;
1251 ddindx := 1;
1252 while true loop
1253 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
1254 ddindx := ddindx+1;
1255 if a0.last =indx
1256 then exit;
1257 end if;
1258 indx := a0.next(indx);
1259 end loop;
1260 end if;
1261 end if;
1262 end rosetta_table_copy_in_p14;
1263 procedure rosetta_table_copy_out_p14(t okl_tql_pvt.number18p15tabtyp, a0 out nocopy JTF_NUMBER_TABLE) as
1264 ddindx binary_integer; indx binary_integer;
1265 begin
1266 if t is null or t.count = 0 then
1267 a0 := JTF_NUMBER_TABLE();
1268 else
1269 a0 := JTF_NUMBER_TABLE();
1270 if t.count > 0 then
1271 a0.extend(t.count);
1272 ddindx := t.first;
1273 indx := 1;
1274 while true loop
1275 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
1276 indx := indx+1;
1277 if t.last =ddindx
1278 then exit;
1279 end if;
1280 ddindx := t.next(ddindx);
1281 end loop;
1282 end if;
1283 end if;
1284 end rosetta_table_copy_out_p14;
1285
1286 procedure rosetta_table_copy_in_p15(t out nocopy okl_tql_pvt.datetabtyp, a0 JTF_DATE_TABLE) as
1287 ddindx binary_integer; indx binary_integer;
1288 begin
1289 if a0 is not null and a0.count > 0 then
1290 if a0.count > 0 then
1291 indx := a0.first;
1292 ddindx := 1;
1293 while true loop
1294 t(ddindx) := rosetta_g_miss_date_in_map(a0(indx));
1295 ddindx := ddindx+1;
1296 if a0.last =indx
1297 then exit;
1298 end if;
1299 indx := a0.next(indx);
1300 end loop;
1301 end if;
1302 end if;
1303 end rosetta_table_copy_in_p15;
1304 procedure rosetta_table_copy_out_p15(t okl_tql_pvt.datetabtyp, a0 out nocopy JTF_DATE_TABLE) as
1305 ddindx binary_integer; indx binary_integer;
1306 begin
1307 if t is null or t.count = 0 then
1308 a0 := JTF_DATE_TABLE();
1309 else
1310 a0 := JTF_DATE_TABLE();
1311 if t.count > 0 then
1312 a0.extend(t.count);
1313 ddindx := t.first;
1314 indx := 1;
1315 while true loop
1316 a0(indx) := rosetta_g_miss_date_in_map(t(ddindx));
1317 indx := indx+1;
1318 if t.last =ddindx
1319 then exit;
1320 end if;
1321 ddindx := t.next(ddindx);
1322 end loop;
1323 end if;
1324 end if;
1325 end rosetta_table_copy_out_p15;
1326
1327 procedure rosetta_table_copy_in_p16(t out nocopy okl_tql_pvt.var3tabtyp, a0 JTF_VARCHAR2_TABLE_100) as
1328 ddindx binary_integer; indx binary_integer;
1329 begin
1330 if a0 is not null and a0.count > 0 then
1331 if a0.count > 0 then
1332 indx := a0.first;
1333 ddindx := 1;
1334 while true loop
1335 t(ddindx) := a0(indx);
1336 ddindx := ddindx+1;
1337 if a0.last =indx
1338 then exit;
1339 end if;
1340 indx := a0.next(indx);
1341 end loop;
1342 end if;
1343 end if;
1344 end rosetta_table_copy_in_p16;
1345 procedure rosetta_table_copy_out_p16(t okl_tql_pvt.var3tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
1346 ddindx binary_integer; indx binary_integer;
1347 begin
1348 if t is null or t.count = 0 then
1349 a0 := JTF_VARCHAR2_TABLE_100();
1350 else
1351 a0 := JTF_VARCHAR2_TABLE_100();
1352 if t.count > 0 then
1353 a0.extend(t.count);
1354 ddindx := t.first;
1355 indx := 1;
1356 while true loop
1357 a0(indx) := t(ddindx);
1358 indx := indx+1;
1359 if t.last =ddindx
1360 then exit;
1361 end if;
1362 ddindx := t.next(ddindx);
1363 end loop;
1364 end if;
1365 end if;
1366 end rosetta_table_copy_out_p16;
1367
1368 procedure rosetta_table_copy_in_p17(t out nocopy okl_tql_pvt.var10tabtyp, a0 JTF_VARCHAR2_TABLE_100) as
1369 ddindx binary_integer; indx binary_integer;
1370 begin
1371 if a0 is not null and a0.count > 0 then
1372 if a0.count > 0 then
1373 indx := a0.first;
1374 ddindx := 1;
1375 while true loop
1376 t(ddindx) := a0(indx);
1377 ddindx := ddindx+1;
1378 if a0.last =indx
1379 then exit;
1380 end if;
1381 indx := a0.next(indx);
1382 end loop;
1383 end if;
1384 end if;
1385 end rosetta_table_copy_in_p17;
1386 procedure rosetta_table_copy_out_p17(t okl_tql_pvt.var10tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
1387 ddindx binary_integer; indx binary_integer;
1388 begin
1389 if t is null or t.count = 0 then
1390 a0 := JTF_VARCHAR2_TABLE_100();
1391 else
1392 a0 := JTF_VARCHAR2_TABLE_100();
1393 if t.count > 0 then
1394 a0.extend(t.count);
1395 ddindx := t.first;
1396 indx := 1;
1397 while true loop
1398 a0(indx) := t(ddindx);
1399 indx := indx+1;
1400 if t.last =ddindx
1401 then exit;
1402 end if;
1403 ddindx := t.next(ddindx);
1404 end loop;
1405 end if;
1406 end if;
1407 end rosetta_table_copy_out_p17;
1408
1409 procedure rosetta_table_copy_in_p18(t out nocopy okl_tql_pvt.var12tabtyp, a0 JTF_VARCHAR2_TABLE_100) as
1410 ddindx binary_integer; indx binary_integer;
1411 begin
1412 if a0 is not null and a0.count > 0 then
1413 if a0.count > 0 then
1414 indx := a0.first;
1415 ddindx := 1;
1416 while true loop
1417 t(ddindx) := a0(indx);
1418 ddindx := ddindx+1;
1419 if a0.last =indx
1420 then exit;
1421 end if;
1422 indx := a0.next(indx);
1423 end loop;
1424 end if;
1425 end if;
1426 end rosetta_table_copy_in_p18;
1427 procedure rosetta_table_copy_out_p18(t okl_tql_pvt.var12tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
1428 ddindx binary_integer; indx binary_integer;
1429 begin
1430 if t is null or t.count = 0 then
1431 a0 := JTF_VARCHAR2_TABLE_100();
1432 else
1433 a0 := JTF_VARCHAR2_TABLE_100();
1434 if t.count > 0 then
1435 a0.extend(t.count);
1436 ddindx := t.first;
1437 indx := 1;
1438 while true loop
1439 a0(indx) := t(ddindx);
1440 indx := indx+1;
1441 if t.last =ddindx
1442 then exit;
1443 end if;
1444 ddindx := t.next(ddindx);
1445 end loop;
1446 end if;
1447 end if;
1448 end rosetta_table_copy_out_p18;
1449
1450 procedure rosetta_table_copy_in_p19(t out nocopy okl_tql_pvt.var15tabtyp, a0 JTF_VARCHAR2_TABLE_100) as
1451 ddindx binary_integer; indx binary_integer;
1452 begin
1453 if a0 is not null and a0.count > 0 then
1454 if a0.count > 0 then
1455 indx := a0.first;
1456 ddindx := 1;
1457 while true loop
1458 t(ddindx) := a0(indx);
1459 ddindx := ddindx+1;
1460 if a0.last =indx
1461 then exit;
1462 end if;
1463 indx := a0.next(indx);
1464 end loop;
1465 end if;
1466 end if;
1467 end rosetta_table_copy_in_p19;
1468 procedure rosetta_table_copy_out_p19(t okl_tql_pvt.var15tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
1469 ddindx binary_integer; indx binary_integer;
1470 begin
1471 if t is null or t.count = 0 then
1472 a0 := JTF_VARCHAR2_TABLE_100();
1473 else
1474 a0 := JTF_VARCHAR2_TABLE_100();
1475 if t.count > 0 then
1476 a0.extend(t.count);
1477 ddindx := t.first;
1478 indx := 1;
1479 while true loop
1480 a0(indx) := t(ddindx);
1481 indx := indx+1;
1482 if t.last =ddindx
1483 then exit;
1484 end if;
1485 ddindx := t.next(ddindx);
1486 end loop;
1487 end if;
1488 end if;
1489 end rosetta_table_copy_out_p19;
1490
1491 procedure rosetta_table_copy_in_p20(t out nocopy okl_tql_pvt.var30tabtyp, a0 JTF_VARCHAR2_TABLE_100) as
1492 ddindx binary_integer; indx binary_integer;
1493 begin
1494 if a0 is not null and a0.count > 0 then
1495 if a0.count > 0 then
1496 indx := a0.first;
1497 ddindx := 1;
1498 while true loop
1499 t(ddindx) := a0(indx);
1500 ddindx := ddindx+1;
1501 if a0.last =indx
1502 then exit;
1503 end if;
1504 indx := a0.next(indx);
1505 end loop;
1506 end if;
1507 end if;
1508 end rosetta_table_copy_in_p20;
1509 procedure rosetta_table_copy_out_p20(t okl_tql_pvt.var30tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
1510 ddindx binary_integer; indx binary_integer;
1511 begin
1512 if t is null or t.count = 0 then
1513 a0 := JTF_VARCHAR2_TABLE_100();
1514 else
1515 a0 := JTF_VARCHAR2_TABLE_100();
1516 if t.count > 0 then
1517 a0.extend(t.count);
1518 ddindx := t.first;
1519 indx := 1;
1520 while true loop
1521 a0(indx) := t(ddindx);
1522 indx := indx+1;
1523 if t.last =ddindx
1524 then exit;
1525 end if;
1526 ddindx := t.next(ddindx);
1527 end loop;
1528 end if;
1529 end if;
1530 end rosetta_table_copy_out_p20;
1531
1532 procedure rosetta_table_copy_in_p21(t out nocopy okl_tql_pvt.var90tabtyp, a0 JTF_VARCHAR2_TABLE_100) as
1533 ddindx binary_integer; indx binary_integer;
1534 begin
1535 if a0 is not null and a0.count > 0 then
1536 if a0.count > 0 then
1537 indx := a0.first;
1538 ddindx := 1;
1539 while true loop
1540 t(ddindx) := a0(indx);
1541 ddindx := ddindx+1;
1542 if a0.last =indx
1543 then exit;
1544 end if;
1545 indx := a0.next(indx);
1546 end loop;
1547 end if;
1548 end if;
1549 end rosetta_table_copy_in_p21;
1550 procedure rosetta_table_copy_out_p21(t okl_tql_pvt.var90tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
1551 ddindx binary_integer; indx binary_integer;
1552 begin
1553 if t is null or t.count = 0 then
1554 a0 := JTF_VARCHAR2_TABLE_100();
1555 else
1556 a0 := JTF_VARCHAR2_TABLE_100();
1557 if t.count > 0 then
1558 a0.extend(t.count);
1559 ddindx := t.first;
1560 indx := 1;
1561 while true loop
1562 a0(indx) := t(ddindx);
1563 indx := indx+1;
1564 if t.last =ddindx
1565 then exit;
1566 end if;
1567 ddindx := t.next(ddindx);
1568 end loop;
1569 end if;
1570 end if;
1571 end rosetta_table_copy_out_p21;
1572
1573 procedure rosetta_table_copy_in_p22(t out nocopy okl_tql_pvt.var150tabtyp, a0 JTF_VARCHAR2_TABLE_200) as
1574 ddindx binary_integer; indx binary_integer;
1575 begin
1576 if a0 is not null and a0.count > 0 then
1577 if a0.count > 0 then
1578 indx := a0.first;
1579 ddindx := 1;
1580 while true loop
1581 t(ddindx) := a0(indx);
1582 ddindx := ddindx+1;
1583 if a0.last =indx
1584 then exit;
1585 end if;
1586 indx := a0.next(indx);
1587 end loop;
1588 end if;
1589 end if;
1590 end rosetta_table_copy_in_p22;
1591 procedure rosetta_table_copy_out_p22(t okl_tql_pvt.var150tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_200) as
1592 ddindx binary_integer; indx binary_integer;
1593 begin
1594 if t is null or t.count = 0 then
1595 a0 := JTF_VARCHAR2_TABLE_200();
1596 else
1597 a0 := JTF_VARCHAR2_TABLE_200();
1598 if t.count > 0 then
1599 a0.extend(t.count);
1600 ddindx := t.first;
1601 indx := 1;
1602 while true loop
1603 a0(indx) := t(ddindx);
1604 indx := indx+1;
1605 if t.last =ddindx
1606 then exit;
1607 end if;
1608 ddindx := t.next(ddindx);
1609 end loop;
1610 end if;
1611 end if;
1612 end rosetta_table_copy_out_p22;
1613
1614 procedure rosetta_table_copy_in_p23(t out nocopy okl_tql_pvt.var450tabtyp, a0 JTF_VARCHAR2_TABLE_500) as
1615 ddindx binary_integer; indx binary_integer;
1616 begin
1617 if a0 is not null and a0.count > 0 then
1618 if a0.count > 0 then
1619 indx := a0.first;
1620 ddindx := 1;
1621 while true loop
1622 t(ddindx) := a0(indx);
1623 ddindx := ddindx+1;
1624 if a0.last =indx
1625 then exit;
1626 end if;
1627 indx := a0.next(indx);
1628 end loop;
1629 end if;
1630 end if;
1631 end rosetta_table_copy_in_p23;
1632 procedure rosetta_table_copy_out_p23(t okl_tql_pvt.var450tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_500) as
1633 ddindx binary_integer; indx binary_integer;
1634 begin
1635 if t is null or t.count = 0 then
1636 a0 := JTF_VARCHAR2_TABLE_500();
1637 else
1638 a0 := JTF_VARCHAR2_TABLE_500();
1639 if t.count > 0 then
1640 a0.extend(t.count);
1641 ddindx := t.first;
1642 indx := 1;
1643 while true loop
1644 a0(indx) := t(ddindx);
1645 indx := indx+1;
1646 if t.last =ddindx
1647 then exit;
1648 end if;
1649 ddindx := t.next(ddindx);
1650 end loop;
1651 end if;
1652 end if;
1653 end rosetta_table_copy_out_p23;
1654
1655 procedure rosetta_table_copy_in_p24(t out nocopy okl_tql_pvt.var1995tabtyp, a0 JTF_VARCHAR2_TABLE_2000) as
1656 ddindx binary_integer; indx binary_integer;
1657 begin
1658 if a0 is not null and a0.count > 0 then
1659 if a0.count > 0 then
1660 indx := a0.first;
1661 ddindx := 1;
1662 while true loop
1663 t(ddindx) := a0(indx);
1664 ddindx := ddindx+1;
1665 if a0.last =indx
1666 then exit;
1667 end if;
1668 indx := a0.next(indx);
1669 end loop;
1670 end if;
1671 end if;
1672 end rosetta_table_copy_in_p24;
1673 procedure rosetta_table_copy_out_p24(t okl_tql_pvt.var1995tabtyp, a0 out nocopy JTF_VARCHAR2_TABLE_2000) as
1674 ddindx binary_integer; indx binary_integer;
1675 begin
1676 if t is null or t.count = 0 then
1677 a0 := JTF_VARCHAR2_TABLE_2000();
1678 else
1679 a0 := JTF_VARCHAR2_TABLE_2000();
1680 if t.count > 0 then
1681 a0.extend(t.count);
1682 ddindx := t.first;
1683 indx := 1;
1684 while true loop
1685 a0(indx) := t(ddindx);
1686 indx := indx+1;
1687 if t.last =ddindx
1688 then exit;
1689 end if;
1690 ddindx := t.next(ddindx);
1691 end loop;
1692 end if;
1693 end if;
1694 end rosetta_table_copy_out_p24;
1695
1696 procedure insert_row(p_api_version NUMBER
1697 , p_init_msg_list VARCHAR2
1698 , x_return_status out nocopy VARCHAR2
1699 , x_msg_count out nocopy NUMBER
1700 , x_msg_data out nocopy VARCHAR2
1701 , p6_a0 out nocopy NUMBER
1702 , p6_a1 out nocopy NUMBER
1703 , p6_a2 out nocopy VARCHAR2
1704 , p6_a3 out nocopy VARCHAR2
1705 , p6_a4 out nocopy NUMBER
1706 , p6_a5 out nocopy NUMBER
1707 , p6_a6 out nocopy NUMBER
1708 , p6_a7 out nocopy NUMBER
1709 , p6_a8 out nocopy VARCHAR2
1710 , p6_a9 out nocopy NUMBER
1711 , p6_a10 out nocopy VARCHAR2
1712 , p6_a11 out nocopy VARCHAR2
1713 , p6_a12 out nocopy VARCHAR2
1714 , p6_a13 out nocopy VARCHAR2
1715 , p6_a14 out nocopy VARCHAR2
1716 , p6_a15 out nocopy VARCHAR2
1717 , p6_a16 out nocopy VARCHAR2
1718 , p6_a17 out nocopy VARCHAR2
1719 , p6_a18 out nocopy VARCHAR2
1720 , p6_a19 out nocopy VARCHAR2
1721 , p6_a20 out nocopy VARCHAR2
1722 , p6_a21 out nocopy VARCHAR2
1723 , p6_a22 out nocopy VARCHAR2
1724 , p6_a23 out nocopy VARCHAR2
1725 , p6_a24 out nocopy VARCHAR2
1726 , p6_a25 out nocopy VARCHAR2
1727 , p6_a26 out nocopy VARCHAR2
1728 , p6_a27 out nocopy VARCHAR2
1729 , p6_a28 out nocopy VARCHAR2
1730 , p6_a29 out nocopy NUMBER
1731 , p6_a30 out nocopy NUMBER
1732 , p6_a31 out nocopy NUMBER
1733 , p6_a32 out nocopy NUMBER
1734 , p6_a33 out nocopy DATE
1735 , p6_a34 out nocopy NUMBER
1736 , p6_a35 out nocopy DATE
1737 , p6_a36 out nocopy NUMBER
1738 , p6_a37 out nocopy DATE
1739 , p6_a38 out nocopy NUMBER
1740 , p6_a39 out nocopy DATE
1741 , p6_a40 out nocopy VARCHAR2
1742 , p6_a41 out nocopy NUMBER
1743 , p6_a42 out nocopy VARCHAR2
1744 , p6_a43 out nocopy VARCHAR2
1745 , p6_a44 out nocopy VARCHAR2
1746 , p6_a45 out nocopy NUMBER
1747 , p6_a46 out nocopy NUMBER
1748 , p6_a47 out nocopy NUMBER
1749 , p6_a48 out nocopy NUMBER
1750 , p6_a49 out nocopy NUMBER
1751 , p6_a50 out nocopy NUMBER
1752 , p6_a51 out nocopy NUMBER
1753 , p6_a52 out nocopy NUMBER
1754 , p6_a53 out nocopy VARCHAR2
1755 , p6_a54 out nocopy VARCHAR2
1756 , p6_a55 out nocopy VARCHAR2
1757 , p6_a56 out nocopy VARCHAR2
1758 , p6_a57 out nocopy NUMBER
1759 , p6_a58 out nocopy DATE
1760 , p6_a59 out nocopy DATE
1761 , p6_a60 out nocopy NUMBER
1762 , p5_a0 NUMBER := 0-1962.0724
1763 , p5_a1 NUMBER := 0-1962.0724
1764 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1765 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
1766 , p5_a4 NUMBER := 0-1962.0724
1767 , p5_a5 NUMBER := 0-1962.0724
1768 , p5_a6 NUMBER := 0-1962.0724
1769 , p5_a7 NUMBER := 0-1962.0724
1770 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1771 , p5_a9 NUMBER := 0-1962.0724
1772 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1773 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1774 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1775 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1776 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1777 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1778 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1779 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1780 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1781 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1782 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1783 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1784 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1785 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1786 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1787 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1788 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1789 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
1790 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
1791 , p5_a29 NUMBER := 0-1962.0724
1792 , p5_a30 NUMBER := 0-1962.0724
1793 , p5_a31 NUMBER := 0-1962.0724
1794 , p5_a32 NUMBER := 0-1962.0724
1795 , p5_a33 DATE := fnd_api.g_miss_date
1796 , p5_a34 NUMBER := 0-1962.0724
1797 , p5_a35 DATE := fnd_api.g_miss_date
1798 , p5_a36 NUMBER := 0-1962.0724
1799 , p5_a37 DATE := fnd_api.g_miss_date
1800 , p5_a38 NUMBER := 0-1962.0724
1801 , p5_a39 DATE := fnd_api.g_miss_date
1802 , p5_a40 VARCHAR2 := fnd_api.g_miss_char
1803 , p5_a41 NUMBER := 0-1962.0724
1804 , p5_a42 VARCHAR2 := fnd_api.g_miss_char
1805 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
1806 , p5_a44 VARCHAR2 := fnd_api.g_miss_char
1807 , p5_a45 NUMBER := 0-1962.0724
1808 , p5_a46 NUMBER := 0-1962.0724
1809 , p5_a47 NUMBER := 0-1962.0724
1810 , p5_a48 NUMBER := 0-1962.0724
1811 , p5_a49 NUMBER := 0-1962.0724
1812 , p5_a50 NUMBER := 0-1962.0724
1813 , p5_a51 NUMBER := 0-1962.0724
1814 , p5_a52 NUMBER := 0-1962.0724
1815 , p5_a53 VARCHAR2 := fnd_api.g_miss_char
1816 , p5_a54 VARCHAR2 := fnd_api.g_miss_char
1817 , p5_a55 VARCHAR2 := fnd_api.g_miss_char
1818 , p5_a56 VARCHAR2 := fnd_api.g_miss_char
1819 , p5_a57 NUMBER := 0-1962.0724
1820 , p5_a58 DATE := fnd_api.g_miss_date
1821 , p5_a59 DATE := fnd_api.g_miss_date
1822 , p5_a60 NUMBER := 0-1962.0724
1823 )
1824
1825 as
1826 ddp_tqlv_rec okl_tql_pvt.tqlv_rec_type;
1827 ddx_tqlv_rec okl_tql_pvt.tqlv_rec_type;
1828 ddindx binary_integer; indx binary_integer;
1829 begin
1830
1831 -- copy data to the local IN or IN-OUT args, if any
1832
1833
1834
1835
1836
1837 ddp_tqlv_rec.id := rosetta_g_miss_num_map(p5_a0);
1838 ddp_tqlv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1839 ddp_tqlv_rec.sfwt_flag := p5_a2;
1840 ddp_tqlv_rec.qlt_code := p5_a3;
1841 ddp_tqlv_rec.kle_id := rosetta_g_miss_num_map(p5_a4);
1842 ddp_tqlv_rec.sty_id := rosetta_g_miss_num_map(p5_a5);
1843 ddp_tqlv_rec.qte_id := rosetta_g_miss_num_map(p5_a6);
1844 ddp_tqlv_rec.line_number := rosetta_g_miss_num_map(p5_a7);
1845 ddp_tqlv_rec.description := p5_a8;
1846 ddp_tqlv_rec.amount := rosetta_g_miss_num_map(p5_a9);
1847 ddp_tqlv_rec.modified_yn := p5_a10;
1848 ddp_tqlv_rec.taxed_yn := p5_a11;
1849 ddp_tqlv_rec.defaulted_yn := p5_a12;
1850 ddp_tqlv_rec.attribute_category := p5_a13;
1851 ddp_tqlv_rec.attribute1 := p5_a14;
1852 ddp_tqlv_rec.attribute2 := p5_a15;
1853 ddp_tqlv_rec.attribute3 := p5_a16;
1854 ddp_tqlv_rec.attribute4 := p5_a17;
1855 ddp_tqlv_rec.attribute5 := p5_a18;
1856 ddp_tqlv_rec.attribute6 := p5_a19;
1857 ddp_tqlv_rec.attribute7 := p5_a20;
1858 ddp_tqlv_rec.attribute8 := p5_a21;
1859 ddp_tqlv_rec.attribute9 := p5_a22;
1860 ddp_tqlv_rec.attribute10 := p5_a23;
1861 ddp_tqlv_rec.attribute11 := p5_a24;
1862 ddp_tqlv_rec.attribute12 := p5_a25;
1863 ddp_tqlv_rec.attribute13 := p5_a26;
1864 ddp_tqlv_rec.attribute14 := p5_a27;
1865 ddp_tqlv_rec.attribute15 := p5_a28;
1866 ddp_tqlv_rec.org_id := rosetta_g_miss_num_map(p5_a29);
1867 ddp_tqlv_rec.request_id := rosetta_g_miss_num_map(p5_a30);
1868 ddp_tqlv_rec.program_application_id := rosetta_g_miss_num_map(p5_a31);
1869 ddp_tqlv_rec.program_id := rosetta_g_miss_num_map(p5_a32);
1870 ddp_tqlv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a33);
1871 ddp_tqlv_rec.created_by := rosetta_g_miss_num_map(p5_a34);
1872 ddp_tqlv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a35);
1873 ddp_tqlv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a36);
1874 ddp_tqlv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a37);
1875 ddp_tqlv_rec.last_update_login := rosetta_g_miss_num_map(p5_a38);
1876 ddp_tqlv_rec.start_date := rosetta_g_miss_date_in_map(p5_a39);
1877 ddp_tqlv_rec.period := p5_a40;
1878 ddp_tqlv_rec.number_of_periods := rosetta_g_miss_num_map(p5_a41);
1879 ddp_tqlv_rec.lock_level_step := p5_a42;
1880 ddp_tqlv_rec.advance_or_arrears := p5_a43;
1881 ddp_tqlv_rec.yield_name := p5_a44;
1882 ddp_tqlv_rec.yield_value := rosetta_g_miss_num_map(p5_a45);
1883 ddp_tqlv_rec.implicit_interest_rate := rosetta_g_miss_num_map(p5_a46);
1884 ddp_tqlv_rec.asset_value := rosetta_g_miss_num_map(p5_a47);
1885 ddp_tqlv_rec.residual_value := rosetta_g_miss_num_map(p5_a48);
1886 ddp_tqlv_rec.unbilled_receivables := rosetta_g_miss_num_map(p5_a49);
1887 ddp_tqlv_rec.asset_quantity := rosetta_g_miss_num_map(p5_a50);
1888 ddp_tqlv_rec.quote_quantity := rosetta_g_miss_num_map(p5_a51);
1889 ddp_tqlv_rec.split_kle_id := rosetta_g_miss_num_map(p5_a52);
1890 ddp_tqlv_rec.split_kle_name := p5_a53;
1891 ddp_tqlv_rec.currency_code := p5_a54;
1892 ddp_tqlv_rec.currency_conversion_code := p5_a55;
1893 ddp_tqlv_rec.currency_conversion_type := p5_a56;
1894 ddp_tqlv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a57);
1895 ddp_tqlv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a58);
1896 ddp_tqlv_rec.due_date := rosetta_g_miss_date_in_map(p5_a59);
1897 ddp_tqlv_rec.try_id := rosetta_g_miss_num_map(p5_a60);
1898
1899
1900 -- here's the delegated call to the old PL/SQL routine
1901 okl_tql_pvt.insert_row(p_api_version,
1902 p_init_msg_list,
1903 x_return_status,
1904 x_msg_count,
1905 x_msg_data,
1906 ddp_tqlv_rec,
1907 ddx_tqlv_rec);
1908
1909 -- copy data back from the local variables to OUT or IN-OUT args, if any
1910
1911
1912
1913
1914
1915
1916 p6_a0 := rosetta_g_miss_num_map(ddx_tqlv_rec.id);
1917 p6_a1 := rosetta_g_miss_num_map(ddx_tqlv_rec.object_version_number);
1918 p6_a2 := ddx_tqlv_rec.sfwt_flag;
1919 p6_a3 := ddx_tqlv_rec.qlt_code;
1920 p6_a4 := rosetta_g_miss_num_map(ddx_tqlv_rec.kle_id);
1921 p6_a5 := rosetta_g_miss_num_map(ddx_tqlv_rec.sty_id);
1922 p6_a6 := rosetta_g_miss_num_map(ddx_tqlv_rec.qte_id);
1923 p6_a7 := rosetta_g_miss_num_map(ddx_tqlv_rec.line_number);
1924 p6_a8 := ddx_tqlv_rec.description;
1925 p6_a9 := rosetta_g_miss_num_map(ddx_tqlv_rec.amount);
1926 p6_a10 := ddx_tqlv_rec.modified_yn;
1927 p6_a11 := ddx_tqlv_rec.taxed_yn;
1928 p6_a12 := ddx_tqlv_rec.defaulted_yn;
1929 p6_a13 := ddx_tqlv_rec.attribute_category;
1930 p6_a14 := ddx_tqlv_rec.attribute1;
1931 p6_a15 := ddx_tqlv_rec.attribute2;
1932 p6_a16 := ddx_tqlv_rec.attribute3;
1933 p6_a17 := ddx_tqlv_rec.attribute4;
1934 p6_a18 := ddx_tqlv_rec.attribute5;
1935 p6_a19 := ddx_tqlv_rec.attribute6;
1936 p6_a20 := ddx_tqlv_rec.attribute7;
1937 p6_a21 := ddx_tqlv_rec.attribute8;
1938 p6_a22 := ddx_tqlv_rec.attribute9;
1939 p6_a23 := ddx_tqlv_rec.attribute10;
1940 p6_a24 := ddx_tqlv_rec.attribute11;
1941 p6_a25 := ddx_tqlv_rec.attribute12;
1942 p6_a26 := ddx_tqlv_rec.attribute13;
1943 p6_a27 := ddx_tqlv_rec.attribute14;
1944 p6_a28 := ddx_tqlv_rec.attribute15;
1945 p6_a29 := rosetta_g_miss_num_map(ddx_tqlv_rec.org_id);
1946 p6_a30 := rosetta_g_miss_num_map(ddx_tqlv_rec.request_id);
1947 p6_a31 := rosetta_g_miss_num_map(ddx_tqlv_rec.program_application_id);
1948 p6_a32 := rosetta_g_miss_num_map(ddx_tqlv_rec.program_id);
1949 p6_a33 := ddx_tqlv_rec.program_update_date;
1950 p6_a34 := rosetta_g_miss_num_map(ddx_tqlv_rec.created_by);
1951 p6_a35 := ddx_tqlv_rec.creation_date;
1952 p6_a36 := rosetta_g_miss_num_map(ddx_tqlv_rec.last_updated_by);
1953 p6_a37 := ddx_tqlv_rec.last_update_date;
1954 p6_a38 := rosetta_g_miss_num_map(ddx_tqlv_rec.last_update_login);
1955 p6_a39 := ddx_tqlv_rec.start_date;
1956 p6_a40 := ddx_tqlv_rec.period;
1957 p6_a41 := rosetta_g_miss_num_map(ddx_tqlv_rec.number_of_periods);
1958 p6_a42 := ddx_tqlv_rec.lock_level_step;
1959 p6_a43 := ddx_tqlv_rec.advance_or_arrears;
1960 p6_a44 := ddx_tqlv_rec.yield_name;
1961 p6_a45 := rosetta_g_miss_num_map(ddx_tqlv_rec.yield_value);
1962 p6_a46 := rosetta_g_miss_num_map(ddx_tqlv_rec.implicit_interest_rate);
1963 p6_a47 := rosetta_g_miss_num_map(ddx_tqlv_rec.asset_value);
1964 p6_a48 := rosetta_g_miss_num_map(ddx_tqlv_rec.residual_value);
1965 p6_a49 := rosetta_g_miss_num_map(ddx_tqlv_rec.unbilled_receivables);
1966 p6_a50 := rosetta_g_miss_num_map(ddx_tqlv_rec.asset_quantity);
1967 p6_a51 := rosetta_g_miss_num_map(ddx_tqlv_rec.quote_quantity);
1968 p6_a52 := rosetta_g_miss_num_map(ddx_tqlv_rec.split_kle_id);
1969 p6_a53 := ddx_tqlv_rec.split_kle_name;
1970 p6_a54 := ddx_tqlv_rec.currency_code;
1971 p6_a55 := ddx_tqlv_rec.currency_conversion_code;
1972 p6_a56 := ddx_tqlv_rec.currency_conversion_type;
1973 p6_a57 := rosetta_g_miss_num_map(ddx_tqlv_rec.currency_conversion_rate);
1974 p6_a58 := ddx_tqlv_rec.currency_conversion_date;
1975 p6_a59 := ddx_tqlv_rec.due_date;
1976 p6_a60 := rosetta_g_miss_num_map(ddx_tqlv_rec.try_id);
1977 end;
1978
1979 procedure insert_row(p_api_version NUMBER
1980 , p_init_msg_list VARCHAR2
1981 , x_return_status out nocopy VARCHAR2
1982 , x_msg_count out nocopy NUMBER
1983 , x_msg_data out nocopy VARCHAR2
1984 , p5_a0 JTF_NUMBER_TABLE
1985 , p5_a1 JTF_NUMBER_TABLE
1986 , p5_a2 JTF_VARCHAR2_TABLE_100
1987 , p5_a3 JTF_VARCHAR2_TABLE_100
1988 , p5_a4 JTF_NUMBER_TABLE
1989 , p5_a5 JTF_NUMBER_TABLE
1990 , p5_a6 JTF_NUMBER_TABLE
1991 , p5_a7 JTF_NUMBER_TABLE
1992 , p5_a8 JTF_VARCHAR2_TABLE_2000
1993 , p5_a9 JTF_NUMBER_TABLE
1994 , p5_a10 JTF_VARCHAR2_TABLE_100
1995 , p5_a11 JTF_VARCHAR2_TABLE_100
1996 , p5_a12 JTF_VARCHAR2_TABLE_100
1997 , p5_a13 JTF_VARCHAR2_TABLE_100
1998 , p5_a14 JTF_VARCHAR2_TABLE_500
1999 , p5_a15 JTF_VARCHAR2_TABLE_500
2000 , p5_a16 JTF_VARCHAR2_TABLE_500
2001 , p5_a17 JTF_VARCHAR2_TABLE_500
2002 , p5_a18 JTF_VARCHAR2_TABLE_500
2003 , p5_a19 JTF_VARCHAR2_TABLE_500
2004 , p5_a20 JTF_VARCHAR2_TABLE_500
2005 , p5_a21 JTF_VARCHAR2_TABLE_500
2006 , p5_a22 JTF_VARCHAR2_TABLE_500
2007 , p5_a23 JTF_VARCHAR2_TABLE_500
2008 , p5_a24 JTF_VARCHAR2_TABLE_500
2009 , p5_a25 JTF_VARCHAR2_TABLE_500
2010 , p5_a26 JTF_VARCHAR2_TABLE_500
2011 , p5_a27 JTF_VARCHAR2_TABLE_500
2012 , p5_a28 JTF_VARCHAR2_TABLE_500
2013 , p5_a29 JTF_NUMBER_TABLE
2014 , p5_a30 JTF_NUMBER_TABLE
2015 , p5_a31 JTF_NUMBER_TABLE
2016 , p5_a32 JTF_NUMBER_TABLE
2017 , p5_a33 JTF_DATE_TABLE
2018 , p5_a34 JTF_NUMBER_TABLE
2019 , p5_a35 JTF_DATE_TABLE
2020 , p5_a36 JTF_NUMBER_TABLE
2021 , p5_a37 JTF_DATE_TABLE
2022 , p5_a38 JTF_NUMBER_TABLE
2023 , p5_a39 JTF_DATE_TABLE
2024 , p5_a40 JTF_VARCHAR2_TABLE_100
2025 , p5_a41 JTF_NUMBER_TABLE
2026 , p5_a42 JTF_VARCHAR2_TABLE_100
2027 , p5_a43 JTF_VARCHAR2_TABLE_100
2028 , p5_a44 JTF_VARCHAR2_TABLE_200
2029 , p5_a45 JTF_NUMBER_TABLE
2030 , p5_a46 JTF_NUMBER_TABLE
2031 , p5_a47 JTF_NUMBER_TABLE
2032 , p5_a48 JTF_NUMBER_TABLE
2033 , p5_a49 JTF_NUMBER_TABLE
2034 , p5_a50 JTF_NUMBER_TABLE
2035 , p5_a51 JTF_NUMBER_TABLE
2036 , p5_a52 JTF_NUMBER_TABLE
2037 , p5_a53 JTF_VARCHAR2_TABLE_200
2038 , p5_a54 JTF_VARCHAR2_TABLE_100
2039 , p5_a55 JTF_VARCHAR2_TABLE_100
2040 , p5_a56 JTF_VARCHAR2_TABLE_100
2041 , p5_a57 JTF_NUMBER_TABLE
2042 , p5_a58 JTF_DATE_TABLE
2043 , p5_a59 JTF_DATE_TABLE
2044 , p5_a60 JTF_NUMBER_TABLE
2045 , p6_a0 out nocopy JTF_NUMBER_TABLE
2046 , p6_a1 out nocopy JTF_NUMBER_TABLE
2047 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
2048 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
2049 , p6_a4 out nocopy JTF_NUMBER_TABLE
2050 , p6_a5 out nocopy JTF_NUMBER_TABLE
2051 , p6_a6 out nocopy JTF_NUMBER_TABLE
2052 , p6_a7 out nocopy JTF_NUMBER_TABLE
2053 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_2000
2054 , p6_a9 out nocopy JTF_NUMBER_TABLE
2055 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
2056 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
2057 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
2058 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
2059 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
2060 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
2061 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
2062 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
2063 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
2064 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
2065 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
2066 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
2067 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
2068 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
2069 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
2070 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
2071 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
2072 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
2073 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
2074 , p6_a29 out nocopy JTF_NUMBER_TABLE
2075 , p6_a30 out nocopy JTF_NUMBER_TABLE
2076 , p6_a31 out nocopy JTF_NUMBER_TABLE
2077 , p6_a32 out nocopy JTF_NUMBER_TABLE
2078 , p6_a33 out nocopy JTF_DATE_TABLE
2079 , p6_a34 out nocopy JTF_NUMBER_TABLE
2080 , p6_a35 out nocopy JTF_DATE_TABLE
2081 , p6_a36 out nocopy JTF_NUMBER_TABLE
2082 , p6_a37 out nocopy JTF_DATE_TABLE
2083 , p6_a38 out nocopy JTF_NUMBER_TABLE
2084 , p6_a39 out nocopy JTF_DATE_TABLE
2085 , p6_a40 out nocopy JTF_VARCHAR2_TABLE_100
2086 , p6_a41 out nocopy JTF_NUMBER_TABLE
2087 , p6_a42 out nocopy JTF_VARCHAR2_TABLE_100
2088 , p6_a43 out nocopy JTF_VARCHAR2_TABLE_100
2089 , p6_a44 out nocopy JTF_VARCHAR2_TABLE_200
2090 , p6_a45 out nocopy JTF_NUMBER_TABLE
2091 , p6_a46 out nocopy JTF_NUMBER_TABLE
2092 , p6_a47 out nocopy JTF_NUMBER_TABLE
2093 , p6_a48 out nocopy JTF_NUMBER_TABLE
2094 , p6_a49 out nocopy JTF_NUMBER_TABLE
2095 , p6_a50 out nocopy JTF_NUMBER_TABLE
2096 , p6_a51 out nocopy JTF_NUMBER_TABLE
2097 , p6_a52 out nocopy JTF_NUMBER_TABLE
2098 , p6_a53 out nocopy JTF_VARCHAR2_TABLE_200
2099 , p6_a54 out nocopy JTF_VARCHAR2_TABLE_100
2100 , p6_a55 out nocopy JTF_VARCHAR2_TABLE_100
2101 , p6_a56 out nocopy JTF_VARCHAR2_TABLE_100
2102 , p6_a57 out nocopy JTF_NUMBER_TABLE
2103 , p6_a58 out nocopy JTF_DATE_TABLE
2104 , p6_a59 out nocopy JTF_DATE_TABLE
2105 , p6_a60 out nocopy JTF_NUMBER_TABLE
2106 )
2107
2108 as
2109 ddp_tqlv_tbl okl_tql_pvt.tqlv_tbl_type;
2110 ddx_tqlv_tbl okl_tql_pvt.tqlv_tbl_type;
2111 ddindx binary_integer; indx binary_integer;
2112 begin
2113
2114 -- copy data to the local IN or IN-OUT args, if any
2115
2116
2117
2118
2119
2120 okl_tql_pvt_w.rosetta_table_copy_in_p8(ddp_tqlv_tbl, p5_a0
2121 , p5_a1
2122 , p5_a2
2123 , p5_a3
2124 , p5_a4
2125 , p5_a5
2126 , p5_a6
2127 , p5_a7
2128 , p5_a8
2129 , p5_a9
2130 , p5_a10
2131 , p5_a11
2132 , p5_a12
2133 , p5_a13
2134 , p5_a14
2135 , p5_a15
2136 , p5_a16
2137 , p5_a17
2138 , p5_a18
2139 , p5_a19
2140 , p5_a20
2141 , p5_a21
2142 , p5_a22
2143 , p5_a23
2144 , p5_a24
2145 , p5_a25
2146 , p5_a26
2147 , p5_a27
2148 , p5_a28
2149 , p5_a29
2150 , p5_a30
2151 , p5_a31
2152 , p5_a32
2153 , p5_a33
2154 , p5_a34
2155 , p5_a35
2156 , p5_a36
2157 , p5_a37
2158 , p5_a38
2159 , p5_a39
2160 , p5_a40
2161 , p5_a41
2162 , p5_a42
2163 , p5_a43
2164 , p5_a44
2165 , p5_a45
2166 , p5_a46
2167 , p5_a47
2168 , p5_a48
2169 , p5_a49
2170 , p5_a50
2171 , p5_a51
2172 , p5_a52
2173 , p5_a53
2174 , p5_a54
2175 , p5_a55
2176 , p5_a56
2177 , p5_a57
2178 , p5_a58
2179 , p5_a59
2180 , p5_a60
2181 );
2182
2183
2184 -- here's the delegated call to the old PL/SQL routine
2185 okl_tql_pvt.insert_row(p_api_version,
2186 p_init_msg_list,
2187 x_return_status,
2188 x_msg_count,
2189 x_msg_data,
2190 ddp_tqlv_tbl,
2191 ddx_tqlv_tbl);
2192
2193 -- copy data back from the local variables to OUT or IN-OUT args, if any
2194
2195
2196
2197
2198
2199
2200 okl_tql_pvt_w.rosetta_table_copy_out_p8(ddx_tqlv_tbl, p6_a0
2201 , p6_a1
2202 , p6_a2
2203 , p6_a3
2204 , p6_a4
2205 , p6_a5
2206 , p6_a6
2207 , p6_a7
2208 , p6_a8
2209 , p6_a9
2210 , p6_a10
2211 , p6_a11
2212 , p6_a12
2213 , p6_a13
2214 , p6_a14
2215 , p6_a15
2216 , p6_a16
2217 , p6_a17
2218 , p6_a18
2219 , p6_a19
2220 , p6_a20
2221 , p6_a21
2222 , p6_a22
2223 , p6_a23
2224 , p6_a24
2225 , p6_a25
2226 , p6_a26
2227 , p6_a27
2228 , p6_a28
2229 , p6_a29
2230 , p6_a30
2231 , p6_a31
2232 , p6_a32
2233 , p6_a33
2234 , p6_a34
2235 , p6_a35
2236 , p6_a36
2237 , p6_a37
2238 , p6_a38
2239 , p6_a39
2240 , p6_a40
2241 , p6_a41
2242 , p6_a42
2243 , p6_a43
2244 , p6_a44
2245 , p6_a45
2246 , p6_a46
2247 , p6_a47
2248 , p6_a48
2249 , p6_a49
2250 , p6_a50
2251 , p6_a51
2252 , p6_a52
2253 , p6_a53
2254 , p6_a54
2255 , p6_a55
2256 , p6_a56
2257 , p6_a57
2258 , p6_a58
2259 , p6_a59
2260 , p6_a60
2261 );
2262 end;
2263
2264 procedure lock_row(p_api_version NUMBER
2265 , p_init_msg_list VARCHAR2
2266 , x_return_status out nocopy VARCHAR2
2267 , x_msg_count out nocopy NUMBER
2268 , x_msg_data out nocopy VARCHAR2
2269 , p5_a0 NUMBER := 0-1962.0724
2270 , p5_a1 NUMBER := 0-1962.0724
2271 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
2272 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
2273 , p5_a4 NUMBER := 0-1962.0724
2274 , p5_a5 NUMBER := 0-1962.0724
2275 , p5_a6 NUMBER := 0-1962.0724
2276 , p5_a7 NUMBER := 0-1962.0724
2277 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
2278 , p5_a9 NUMBER := 0-1962.0724
2279 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
2280 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
2281 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
2282 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
2283 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
2284 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
2285 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
2286 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
2287 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
2288 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
2289 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
2290 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
2291 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
2292 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
2293 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
2294 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
2295 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
2296 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
2297 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
2298 , p5_a29 NUMBER := 0-1962.0724
2299 , p5_a30 NUMBER := 0-1962.0724
2300 , p5_a31 NUMBER := 0-1962.0724
2301 , p5_a32 NUMBER := 0-1962.0724
2302 , p5_a33 DATE := fnd_api.g_miss_date
2303 , p5_a34 NUMBER := 0-1962.0724
2304 , p5_a35 DATE := fnd_api.g_miss_date
2305 , p5_a36 NUMBER := 0-1962.0724
2306 , p5_a37 DATE := fnd_api.g_miss_date
2307 , p5_a38 NUMBER := 0-1962.0724
2308 , p5_a39 DATE := fnd_api.g_miss_date
2309 , p5_a40 VARCHAR2 := fnd_api.g_miss_char
2310 , p5_a41 NUMBER := 0-1962.0724
2311 , p5_a42 VARCHAR2 := fnd_api.g_miss_char
2312 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
2313 , p5_a44 VARCHAR2 := fnd_api.g_miss_char
2314 , p5_a45 NUMBER := 0-1962.0724
2315 , p5_a46 NUMBER := 0-1962.0724
2316 , p5_a47 NUMBER := 0-1962.0724
2317 , p5_a48 NUMBER := 0-1962.0724
2318 , p5_a49 NUMBER := 0-1962.0724
2319 , p5_a50 NUMBER := 0-1962.0724
2320 , p5_a51 NUMBER := 0-1962.0724
2321 , p5_a52 NUMBER := 0-1962.0724
2322 , p5_a53 VARCHAR2 := fnd_api.g_miss_char
2323 , p5_a54 VARCHAR2 := fnd_api.g_miss_char
2324 , p5_a55 VARCHAR2 := fnd_api.g_miss_char
2325 , p5_a56 VARCHAR2 := fnd_api.g_miss_char
2326 , p5_a57 NUMBER := 0-1962.0724
2327 , p5_a58 DATE := fnd_api.g_miss_date
2328 , p5_a59 DATE := fnd_api.g_miss_date
2329 , p5_a60 NUMBER := 0-1962.0724
2330 )
2331
2332 as
2333 ddp_tqlv_rec okl_tql_pvt.tqlv_rec_type;
2334 ddindx binary_integer; indx binary_integer;
2335 begin
2336
2337 -- copy data to the local IN or IN-OUT args, if any
2338
2339
2340
2341
2342
2343 ddp_tqlv_rec.id := rosetta_g_miss_num_map(p5_a0);
2344 ddp_tqlv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
2345 ddp_tqlv_rec.sfwt_flag := p5_a2;
2346 ddp_tqlv_rec.qlt_code := p5_a3;
2347 ddp_tqlv_rec.kle_id := rosetta_g_miss_num_map(p5_a4);
2348 ddp_tqlv_rec.sty_id := rosetta_g_miss_num_map(p5_a5);
2349 ddp_tqlv_rec.qte_id := rosetta_g_miss_num_map(p5_a6);
2350 ddp_tqlv_rec.line_number := rosetta_g_miss_num_map(p5_a7);
2351 ddp_tqlv_rec.description := p5_a8;
2352 ddp_tqlv_rec.amount := rosetta_g_miss_num_map(p5_a9);
2353 ddp_tqlv_rec.modified_yn := p5_a10;
2354 ddp_tqlv_rec.taxed_yn := p5_a11;
2355 ddp_tqlv_rec.defaulted_yn := p5_a12;
2356 ddp_tqlv_rec.attribute_category := p5_a13;
2357 ddp_tqlv_rec.attribute1 := p5_a14;
2358 ddp_tqlv_rec.attribute2 := p5_a15;
2359 ddp_tqlv_rec.attribute3 := p5_a16;
2360 ddp_tqlv_rec.attribute4 := p5_a17;
2361 ddp_tqlv_rec.attribute5 := p5_a18;
2362 ddp_tqlv_rec.attribute6 := p5_a19;
2363 ddp_tqlv_rec.attribute7 := p5_a20;
2364 ddp_tqlv_rec.attribute8 := p5_a21;
2365 ddp_tqlv_rec.attribute9 := p5_a22;
2366 ddp_tqlv_rec.attribute10 := p5_a23;
2367 ddp_tqlv_rec.attribute11 := p5_a24;
2368 ddp_tqlv_rec.attribute12 := p5_a25;
2369 ddp_tqlv_rec.attribute13 := p5_a26;
2370 ddp_tqlv_rec.attribute14 := p5_a27;
2371 ddp_tqlv_rec.attribute15 := p5_a28;
2372 ddp_tqlv_rec.org_id := rosetta_g_miss_num_map(p5_a29);
2373 ddp_tqlv_rec.request_id := rosetta_g_miss_num_map(p5_a30);
2374 ddp_tqlv_rec.program_application_id := rosetta_g_miss_num_map(p5_a31);
2375 ddp_tqlv_rec.program_id := rosetta_g_miss_num_map(p5_a32);
2376 ddp_tqlv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a33);
2377 ddp_tqlv_rec.created_by := rosetta_g_miss_num_map(p5_a34);
2378 ddp_tqlv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a35);
2379 ddp_tqlv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a36);
2380 ddp_tqlv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a37);
2381 ddp_tqlv_rec.last_update_login := rosetta_g_miss_num_map(p5_a38);
2382 ddp_tqlv_rec.start_date := rosetta_g_miss_date_in_map(p5_a39);
2383 ddp_tqlv_rec.period := p5_a40;
2384 ddp_tqlv_rec.number_of_periods := rosetta_g_miss_num_map(p5_a41);
2385 ddp_tqlv_rec.lock_level_step := p5_a42;
2386 ddp_tqlv_rec.advance_or_arrears := p5_a43;
2387 ddp_tqlv_rec.yield_name := p5_a44;
2388 ddp_tqlv_rec.yield_value := rosetta_g_miss_num_map(p5_a45);
2389 ddp_tqlv_rec.implicit_interest_rate := rosetta_g_miss_num_map(p5_a46);
2390 ddp_tqlv_rec.asset_value := rosetta_g_miss_num_map(p5_a47);
2391 ddp_tqlv_rec.residual_value := rosetta_g_miss_num_map(p5_a48);
2392 ddp_tqlv_rec.unbilled_receivables := rosetta_g_miss_num_map(p5_a49);
2393 ddp_tqlv_rec.asset_quantity := rosetta_g_miss_num_map(p5_a50);
2394 ddp_tqlv_rec.quote_quantity := rosetta_g_miss_num_map(p5_a51);
2395 ddp_tqlv_rec.split_kle_id := rosetta_g_miss_num_map(p5_a52);
2396 ddp_tqlv_rec.split_kle_name := p5_a53;
2397 ddp_tqlv_rec.currency_code := p5_a54;
2398 ddp_tqlv_rec.currency_conversion_code := p5_a55;
2399 ddp_tqlv_rec.currency_conversion_type := p5_a56;
2400 ddp_tqlv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a57);
2401 ddp_tqlv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a58);
2402 ddp_tqlv_rec.due_date := rosetta_g_miss_date_in_map(p5_a59);
2403 ddp_tqlv_rec.try_id := rosetta_g_miss_num_map(p5_a60);
2404
2405 -- here's the delegated call to the old PL/SQL routine
2406 okl_tql_pvt.lock_row(p_api_version,
2407 p_init_msg_list,
2408 x_return_status,
2409 x_msg_count,
2410 x_msg_data,
2411 ddp_tqlv_rec);
2412
2413 -- copy data back from the local variables to OUT or IN-OUT args, if any
2414
2415
2416
2417
2418
2419 end;
2420
2421 procedure lock_row(p_api_version NUMBER
2422 , p_init_msg_list VARCHAR2
2423 , x_return_status out nocopy VARCHAR2
2424 , x_msg_count out nocopy NUMBER
2425 , x_msg_data out nocopy VARCHAR2
2426 , p5_a0 JTF_NUMBER_TABLE
2427 , p5_a1 JTF_NUMBER_TABLE
2428 , p5_a2 JTF_VARCHAR2_TABLE_100
2429 , p5_a3 JTF_VARCHAR2_TABLE_100
2430 , p5_a4 JTF_NUMBER_TABLE
2431 , p5_a5 JTF_NUMBER_TABLE
2432 , p5_a6 JTF_NUMBER_TABLE
2433 , p5_a7 JTF_NUMBER_TABLE
2434 , p5_a8 JTF_VARCHAR2_TABLE_2000
2435 , p5_a9 JTF_NUMBER_TABLE
2436 , p5_a10 JTF_VARCHAR2_TABLE_100
2437 , p5_a11 JTF_VARCHAR2_TABLE_100
2438 , p5_a12 JTF_VARCHAR2_TABLE_100
2439 , p5_a13 JTF_VARCHAR2_TABLE_100
2440 , p5_a14 JTF_VARCHAR2_TABLE_500
2441 , p5_a15 JTF_VARCHAR2_TABLE_500
2442 , p5_a16 JTF_VARCHAR2_TABLE_500
2443 , p5_a17 JTF_VARCHAR2_TABLE_500
2444 , p5_a18 JTF_VARCHAR2_TABLE_500
2445 , p5_a19 JTF_VARCHAR2_TABLE_500
2446 , p5_a20 JTF_VARCHAR2_TABLE_500
2447 , p5_a21 JTF_VARCHAR2_TABLE_500
2448 , p5_a22 JTF_VARCHAR2_TABLE_500
2449 , p5_a23 JTF_VARCHAR2_TABLE_500
2450 , p5_a24 JTF_VARCHAR2_TABLE_500
2451 , p5_a25 JTF_VARCHAR2_TABLE_500
2452 , p5_a26 JTF_VARCHAR2_TABLE_500
2453 , p5_a27 JTF_VARCHAR2_TABLE_500
2454 , p5_a28 JTF_VARCHAR2_TABLE_500
2455 , p5_a29 JTF_NUMBER_TABLE
2456 , p5_a30 JTF_NUMBER_TABLE
2457 , p5_a31 JTF_NUMBER_TABLE
2458 , p5_a32 JTF_NUMBER_TABLE
2459 , p5_a33 JTF_DATE_TABLE
2460 , p5_a34 JTF_NUMBER_TABLE
2461 , p5_a35 JTF_DATE_TABLE
2462 , p5_a36 JTF_NUMBER_TABLE
2463 , p5_a37 JTF_DATE_TABLE
2464 , p5_a38 JTF_NUMBER_TABLE
2465 , p5_a39 JTF_DATE_TABLE
2466 , p5_a40 JTF_VARCHAR2_TABLE_100
2467 , p5_a41 JTF_NUMBER_TABLE
2468 , p5_a42 JTF_VARCHAR2_TABLE_100
2469 , p5_a43 JTF_VARCHAR2_TABLE_100
2470 , p5_a44 JTF_VARCHAR2_TABLE_200
2471 , p5_a45 JTF_NUMBER_TABLE
2472 , p5_a46 JTF_NUMBER_TABLE
2473 , p5_a47 JTF_NUMBER_TABLE
2474 , p5_a48 JTF_NUMBER_TABLE
2475 , p5_a49 JTF_NUMBER_TABLE
2476 , p5_a50 JTF_NUMBER_TABLE
2477 , p5_a51 JTF_NUMBER_TABLE
2478 , p5_a52 JTF_NUMBER_TABLE
2479 , p5_a53 JTF_VARCHAR2_TABLE_200
2480 , p5_a54 JTF_VARCHAR2_TABLE_100
2481 , p5_a55 JTF_VARCHAR2_TABLE_100
2482 , p5_a56 JTF_VARCHAR2_TABLE_100
2483 , p5_a57 JTF_NUMBER_TABLE
2484 , p5_a58 JTF_DATE_TABLE
2485 , p5_a59 JTF_DATE_TABLE
2486 , p5_a60 JTF_NUMBER_TABLE
2487 )
2488
2489 as
2490 ddp_tqlv_tbl okl_tql_pvt.tqlv_tbl_type;
2491 ddindx binary_integer; indx binary_integer;
2492 begin
2493
2494 -- copy data to the local IN or IN-OUT args, if any
2495
2496
2497
2498
2499
2500 okl_tql_pvt_w.rosetta_table_copy_in_p8(ddp_tqlv_tbl, p5_a0
2501 , p5_a1
2502 , p5_a2
2503 , p5_a3
2504 , p5_a4
2505 , p5_a5
2506 , p5_a6
2507 , p5_a7
2508 , p5_a8
2509 , p5_a9
2510 , p5_a10
2511 , p5_a11
2512 , p5_a12
2513 , p5_a13
2514 , p5_a14
2515 , p5_a15
2516 , p5_a16
2517 , p5_a17
2518 , p5_a18
2519 , p5_a19
2520 , p5_a20
2521 , p5_a21
2522 , p5_a22
2523 , p5_a23
2524 , p5_a24
2525 , p5_a25
2526 , p5_a26
2527 , p5_a27
2528 , p5_a28
2529 , p5_a29
2530 , p5_a30
2531 , p5_a31
2532 , p5_a32
2533 , p5_a33
2534 , p5_a34
2535 , p5_a35
2536 , p5_a36
2537 , p5_a37
2538 , p5_a38
2539 , p5_a39
2540 , p5_a40
2541 , p5_a41
2542 , p5_a42
2543 , p5_a43
2544 , p5_a44
2545 , p5_a45
2546 , p5_a46
2547 , p5_a47
2548 , p5_a48
2549 , p5_a49
2550 , p5_a50
2551 , p5_a51
2552 , p5_a52
2553 , p5_a53
2554 , p5_a54
2555 , p5_a55
2556 , p5_a56
2557 , p5_a57
2558 , p5_a58
2559 , p5_a59
2560 , p5_a60
2561 );
2562
2563 -- here's the delegated call to the old PL/SQL routine
2564 okl_tql_pvt.lock_row(p_api_version,
2565 p_init_msg_list,
2566 x_return_status,
2567 x_msg_count,
2568 x_msg_data,
2569 ddp_tqlv_tbl);
2570
2571 -- copy data back from the local variables to OUT or IN-OUT args, if any
2572
2573
2574
2575
2576
2577 end;
2578
2579 procedure update_row(p_api_version NUMBER
2580 , p_init_msg_list VARCHAR2
2581 , x_return_status out nocopy VARCHAR2
2582 , x_msg_count out nocopy NUMBER
2583 , x_msg_data out nocopy VARCHAR2
2584 , p6_a0 out nocopy NUMBER
2585 , p6_a1 out nocopy NUMBER
2586 , p6_a2 out nocopy VARCHAR2
2587 , p6_a3 out nocopy VARCHAR2
2588 , p6_a4 out nocopy NUMBER
2589 , p6_a5 out nocopy NUMBER
2590 , p6_a6 out nocopy NUMBER
2591 , p6_a7 out nocopy NUMBER
2592 , p6_a8 out nocopy VARCHAR2
2593 , p6_a9 out nocopy NUMBER
2594 , p6_a10 out nocopy VARCHAR2
2595 , p6_a11 out nocopy VARCHAR2
2596 , p6_a12 out nocopy VARCHAR2
2597 , p6_a13 out nocopy VARCHAR2
2598 , p6_a14 out nocopy VARCHAR2
2599 , p6_a15 out nocopy VARCHAR2
2600 , p6_a16 out nocopy VARCHAR2
2601 , p6_a17 out nocopy VARCHAR2
2602 , p6_a18 out nocopy VARCHAR2
2603 , p6_a19 out nocopy VARCHAR2
2604 , p6_a20 out nocopy VARCHAR2
2605 , p6_a21 out nocopy VARCHAR2
2606 , p6_a22 out nocopy VARCHAR2
2607 , p6_a23 out nocopy VARCHAR2
2608 , p6_a24 out nocopy VARCHAR2
2609 , p6_a25 out nocopy VARCHAR2
2610 , p6_a26 out nocopy VARCHAR2
2611 , p6_a27 out nocopy VARCHAR2
2612 , p6_a28 out nocopy VARCHAR2
2613 , p6_a29 out nocopy NUMBER
2614 , p6_a30 out nocopy NUMBER
2615 , p6_a31 out nocopy NUMBER
2616 , p6_a32 out nocopy NUMBER
2617 , p6_a33 out nocopy DATE
2618 , p6_a34 out nocopy NUMBER
2619 , p6_a35 out nocopy DATE
2620 , p6_a36 out nocopy NUMBER
2621 , p6_a37 out nocopy DATE
2622 , p6_a38 out nocopy NUMBER
2623 , p6_a39 out nocopy DATE
2624 , p6_a40 out nocopy VARCHAR2
2625 , p6_a41 out nocopy NUMBER
2626 , p6_a42 out nocopy VARCHAR2
2627 , p6_a43 out nocopy VARCHAR2
2628 , p6_a44 out nocopy VARCHAR2
2629 , p6_a45 out nocopy NUMBER
2630 , p6_a46 out nocopy NUMBER
2631 , p6_a47 out nocopy NUMBER
2632 , p6_a48 out nocopy NUMBER
2633 , p6_a49 out nocopy NUMBER
2634 , p6_a50 out nocopy NUMBER
2635 , p6_a51 out nocopy NUMBER
2636 , p6_a52 out nocopy NUMBER
2637 , p6_a53 out nocopy VARCHAR2
2638 , p6_a54 out nocopy VARCHAR2
2639 , p6_a55 out nocopy VARCHAR2
2640 , p6_a56 out nocopy VARCHAR2
2641 , p6_a57 out nocopy NUMBER
2642 , p6_a58 out nocopy DATE
2643 , p6_a59 out nocopy DATE
2644 , p6_a60 out nocopy NUMBER
2645 , p5_a0 NUMBER := 0-1962.0724
2646 , p5_a1 NUMBER := 0-1962.0724
2647 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
2648 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
2649 , p5_a4 NUMBER := 0-1962.0724
2650 , p5_a5 NUMBER := 0-1962.0724
2651 , p5_a6 NUMBER := 0-1962.0724
2652 , p5_a7 NUMBER := 0-1962.0724
2653 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
2654 , p5_a9 NUMBER := 0-1962.0724
2655 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
2656 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
2657 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
2658 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
2659 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
2660 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
2661 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
2662 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
2663 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
2664 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
2665 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
2666 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
2667 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
2668 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
2669 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
2670 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
2671 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
2672 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
2673 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
2674 , p5_a29 NUMBER := 0-1962.0724
2675 , p5_a30 NUMBER := 0-1962.0724
2676 , p5_a31 NUMBER := 0-1962.0724
2677 , p5_a32 NUMBER := 0-1962.0724
2678 , p5_a33 DATE := fnd_api.g_miss_date
2679 , p5_a34 NUMBER := 0-1962.0724
2680 , p5_a35 DATE := fnd_api.g_miss_date
2681 , p5_a36 NUMBER := 0-1962.0724
2682 , p5_a37 DATE := fnd_api.g_miss_date
2683 , p5_a38 NUMBER := 0-1962.0724
2684 , p5_a39 DATE := fnd_api.g_miss_date
2685 , p5_a40 VARCHAR2 := fnd_api.g_miss_char
2686 , p5_a41 NUMBER := 0-1962.0724
2687 , p5_a42 VARCHAR2 := fnd_api.g_miss_char
2688 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
2689 , p5_a44 VARCHAR2 := fnd_api.g_miss_char
2690 , p5_a45 NUMBER := 0-1962.0724
2691 , p5_a46 NUMBER := 0-1962.0724
2692 , p5_a47 NUMBER := 0-1962.0724
2693 , p5_a48 NUMBER := 0-1962.0724
2694 , p5_a49 NUMBER := 0-1962.0724
2695 , p5_a50 NUMBER := 0-1962.0724
2696 , p5_a51 NUMBER := 0-1962.0724
2697 , p5_a52 NUMBER := 0-1962.0724
2698 , p5_a53 VARCHAR2 := fnd_api.g_miss_char
2699 , p5_a54 VARCHAR2 := fnd_api.g_miss_char
2700 , p5_a55 VARCHAR2 := fnd_api.g_miss_char
2701 , p5_a56 VARCHAR2 := fnd_api.g_miss_char
2702 , p5_a57 NUMBER := 0-1962.0724
2703 , p5_a58 DATE := fnd_api.g_miss_date
2704 , p5_a59 DATE := fnd_api.g_miss_date
2705 , p5_a60 NUMBER := 0-1962.0724
2706 )
2707
2708 as
2709 ddp_tqlv_rec okl_tql_pvt.tqlv_rec_type;
2710 ddx_tqlv_rec okl_tql_pvt.tqlv_rec_type;
2711 ddindx binary_integer; indx binary_integer;
2712 begin
2713
2714 -- copy data to the local IN or IN-OUT args, if any
2715
2716
2717
2718
2719
2720 ddp_tqlv_rec.id := rosetta_g_miss_num_map(p5_a0);
2721 ddp_tqlv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
2722 ddp_tqlv_rec.sfwt_flag := p5_a2;
2723 ddp_tqlv_rec.qlt_code := p5_a3;
2724 ddp_tqlv_rec.kle_id := rosetta_g_miss_num_map(p5_a4);
2725 ddp_tqlv_rec.sty_id := rosetta_g_miss_num_map(p5_a5);
2726 ddp_tqlv_rec.qte_id := rosetta_g_miss_num_map(p5_a6);
2727 ddp_tqlv_rec.line_number := rosetta_g_miss_num_map(p5_a7);
2728 ddp_tqlv_rec.description := p5_a8;
2729 ddp_tqlv_rec.amount := rosetta_g_miss_num_map(p5_a9);
2730 ddp_tqlv_rec.modified_yn := p5_a10;
2731 ddp_tqlv_rec.taxed_yn := p5_a11;
2732 ddp_tqlv_rec.defaulted_yn := p5_a12;
2733 ddp_tqlv_rec.attribute_category := p5_a13;
2734 ddp_tqlv_rec.attribute1 := p5_a14;
2735 ddp_tqlv_rec.attribute2 := p5_a15;
2736 ddp_tqlv_rec.attribute3 := p5_a16;
2737 ddp_tqlv_rec.attribute4 := p5_a17;
2738 ddp_tqlv_rec.attribute5 := p5_a18;
2739 ddp_tqlv_rec.attribute6 := p5_a19;
2740 ddp_tqlv_rec.attribute7 := p5_a20;
2741 ddp_tqlv_rec.attribute8 := p5_a21;
2742 ddp_tqlv_rec.attribute9 := p5_a22;
2743 ddp_tqlv_rec.attribute10 := p5_a23;
2744 ddp_tqlv_rec.attribute11 := p5_a24;
2745 ddp_tqlv_rec.attribute12 := p5_a25;
2746 ddp_tqlv_rec.attribute13 := p5_a26;
2747 ddp_tqlv_rec.attribute14 := p5_a27;
2748 ddp_tqlv_rec.attribute15 := p5_a28;
2749 ddp_tqlv_rec.org_id := rosetta_g_miss_num_map(p5_a29);
2750 ddp_tqlv_rec.request_id := rosetta_g_miss_num_map(p5_a30);
2751 ddp_tqlv_rec.program_application_id := rosetta_g_miss_num_map(p5_a31);
2752 ddp_tqlv_rec.program_id := rosetta_g_miss_num_map(p5_a32);
2753 ddp_tqlv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a33);
2754 ddp_tqlv_rec.created_by := rosetta_g_miss_num_map(p5_a34);
2755 ddp_tqlv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a35);
2756 ddp_tqlv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a36);
2757 ddp_tqlv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a37);
2758 ddp_tqlv_rec.last_update_login := rosetta_g_miss_num_map(p5_a38);
2759 ddp_tqlv_rec.start_date := rosetta_g_miss_date_in_map(p5_a39);
2760 ddp_tqlv_rec.period := p5_a40;
2761 ddp_tqlv_rec.number_of_periods := rosetta_g_miss_num_map(p5_a41);
2762 ddp_tqlv_rec.lock_level_step := p5_a42;
2763 ddp_tqlv_rec.advance_or_arrears := p5_a43;
2764 ddp_tqlv_rec.yield_name := p5_a44;
2765 ddp_tqlv_rec.yield_value := rosetta_g_miss_num_map(p5_a45);
2766 ddp_tqlv_rec.implicit_interest_rate := rosetta_g_miss_num_map(p5_a46);
2767 ddp_tqlv_rec.asset_value := rosetta_g_miss_num_map(p5_a47);
2768 ddp_tqlv_rec.residual_value := rosetta_g_miss_num_map(p5_a48);
2769 ddp_tqlv_rec.unbilled_receivables := rosetta_g_miss_num_map(p5_a49);
2770 ddp_tqlv_rec.asset_quantity := rosetta_g_miss_num_map(p5_a50);
2771 ddp_tqlv_rec.quote_quantity := rosetta_g_miss_num_map(p5_a51);
2772 ddp_tqlv_rec.split_kle_id := rosetta_g_miss_num_map(p5_a52);
2773 ddp_tqlv_rec.split_kle_name := p5_a53;
2774 ddp_tqlv_rec.currency_code := p5_a54;
2775 ddp_tqlv_rec.currency_conversion_code := p5_a55;
2776 ddp_tqlv_rec.currency_conversion_type := p5_a56;
2777 ddp_tqlv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a57);
2778 ddp_tqlv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a58);
2779 ddp_tqlv_rec.due_date := rosetta_g_miss_date_in_map(p5_a59);
2780 ddp_tqlv_rec.try_id := rosetta_g_miss_num_map(p5_a60);
2781
2782
2783 -- here's the delegated call to the old PL/SQL routine
2784 okl_tql_pvt.update_row(p_api_version,
2785 p_init_msg_list,
2786 x_return_status,
2787 x_msg_count,
2788 x_msg_data,
2789 ddp_tqlv_rec,
2790 ddx_tqlv_rec);
2791
2792 -- copy data back from the local variables to OUT or IN-OUT args, if any
2793
2794
2795
2796
2797
2798
2799 p6_a0 := rosetta_g_miss_num_map(ddx_tqlv_rec.id);
2800 p6_a1 := rosetta_g_miss_num_map(ddx_tqlv_rec.object_version_number);
2801 p6_a2 := ddx_tqlv_rec.sfwt_flag;
2802 p6_a3 := ddx_tqlv_rec.qlt_code;
2803 p6_a4 := rosetta_g_miss_num_map(ddx_tqlv_rec.kle_id);
2804 p6_a5 := rosetta_g_miss_num_map(ddx_tqlv_rec.sty_id);
2805 p6_a6 := rosetta_g_miss_num_map(ddx_tqlv_rec.qte_id);
2806 p6_a7 := rosetta_g_miss_num_map(ddx_tqlv_rec.line_number);
2807 p6_a8 := ddx_tqlv_rec.description;
2808 p6_a9 := rosetta_g_miss_num_map(ddx_tqlv_rec.amount);
2809 p6_a10 := ddx_tqlv_rec.modified_yn;
2810 p6_a11 := ddx_tqlv_rec.taxed_yn;
2811 p6_a12 := ddx_tqlv_rec.defaulted_yn;
2812 p6_a13 := ddx_tqlv_rec.attribute_category;
2813 p6_a14 := ddx_tqlv_rec.attribute1;
2814 p6_a15 := ddx_tqlv_rec.attribute2;
2815 p6_a16 := ddx_tqlv_rec.attribute3;
2816 p6_a17 := ddx_tqlv_rec.attribute4;
2817 p6_a18 := ddx_tqlv_rec.attribute5;
2818 p6_a19 := ddx_tqlv_rec.attribute6;
2819 p6_a20 := ddx_tqlv_rec.attribute7;
2820 p6_a21 := ddx_tqlv_rec.attribute8;
2821 p6_a22 := ddx_tqlv_rec.attribute9;
2822 p6_a23 := ddx_tqlv_rec.attribute10;
2823 p6_a24 := ddx_tqlv_rec.attribute11;
2824 p6_a25 := ddx_tqlv_rec.attribute12;
2825 p6_a26 := ddx_tqlv_rec.attribute13;
2826 p6_a27 := ddx_tqlv_rec.attribute14;
2827 p6_a28 := ddx_tqlv_rec.attribute15;
2828 p6_a29 := rosetta_g_miss_num_map(ddx_tqlv_rec.org_id);
2829 p6_a30 := rosetta_g_miss_num_map(ddx_tqlv_rec.request_id);
2830 p6_a31 := rosetta_g_miss_num_map(ddx_tqlv_rec.program_application_id);
2831 p6_a32 := rosetta_g_miss_num_map(ddx_tqlv_rec.program_id);
2832 p6_a33 := ddx_tqlv_rec.program_update_date;
2833 p6_a34 := rosetta_g_miss_num_map(ddx_tqlv_rec.created_by);
2834 p6_a35 := ddx_tqlv_rec.creation_date;
2835 p6_a36 := rosetta_g_miss_num_map(ddx_tqlv_rec.last_updated_by);
2836 p6_a37 := ddx_tqlv_rec.last_update_date;
2837 p6_a38 := rosetta_g_miss_num_map(ddx_tqlv_rec.last_update_login);
2838 p6_a39 := ddx_tqlv_rec.start_date;
2839 p6_a40 := ddx_tqlv_rec.period;
2840 p6_a41 := rosetta_g_miss_num_map(ddx_tqlv_rec.number_of_periods);
2841 p6_a42 := ddx_tqlv_rec.lock_level_step;
2842 p6_a43 := ddx_tqlv_rec.advance_or_arrears;
2843 p6_a44 := ddx_tqlv_rec.yield_name;
2844 p6_a45 := rosetta_g_miss_num_map(ddx_tqlv_rec.yield_value);
2845 p6_a46 := rosetta_g_miss_num_map(ddx_tqlv_rec.implicit_interest_rate);
2846 p6_a47 := rosetta_g_miss_num_map(ddx_tqlv_rec.asset_value);
2847 p6_a48 := rosetta_g_miss_num_map(ddx_tqlv_rec.residual_value);
2848 p6_a49 := rosetta_g_miss_num_map(ddx_tqlv_rec.unbilled_receivables);
2849 p6_a50 := rosetta_g_miss_num_map(ddx_tqlv_rec.asset_quantity);
2850 p6_a51 := rosetta_g_miss_num_map(ddx_tqlv_rec.quote_quantity);
2851 p6_a52 := rosetta_g_miss_num_map(ddx_tqlv_rec.split_kle_id);
2852 p6_a53 := ddx_tqlv_rec.split_kle_name;
2853 p6_a54 := ddx_tqlv_rec.currency_code;
2854 p6_a55 := ddx_tqlv_rec.currency_conversion_code;
2855 p6_a56 := ddx_tqlv_rec.currency_conversion_type;
2856 p6_a57 := rosetta_g_miss_num_map(ddx_tqlv_rec.currency_conversion_rate);
2857 p6_a58 := ddx_tqlv_rec.currency_conversion_date;
2858 p6_a59 := ddx_tqlv_rec.due_date;
2859 p6_a60 := rosetta_g_miss_num_map(ddx_tqlv_rec.try_id);
2860 end;
2861
2862 procedure update_row(p_api_version NUMBER
2863 , p_init_msg_list VARCHAR2
2864 , x_return_status out nocopy VARCHAR2
2865 , x_msg_count out nocopy NUMBER
2866 , x_msg_data out nocopy VARCHAR2
2867 , p5_a0 JTF_NUMBER_TABLE
2868 , p5_a1 JTF_NUMBER_TABLE
2869 , p5_a2 JTF_VARCHAR2_TABLE_100
2870 , p5_a3 JTF_VARCHAR2_TABLE_100
2871 , p5_a4 JTF_NUMBER_TABLE
2872 , p5_a5 JTF_NUMBER_TABLE
2873 , p5_a6 JTF_NUMBER_TABLE
2874 , p5_a7 JTF_NUMBER_TABLE
2875 , p5_a8 JTF_VARCHAR2_TABLE_2000
2876 , p5_a9 JTF_NUMBER_TABLE
2877 , p5_a10 JTF_VARCHAR2_TABLE_100
2878 , p5_a11 JTF_VARCHAR2_TABLE_100
2879 , p5_a12 JTF_VARCHAR2_TABLE_100
2880 , p5_a13 JTF_VARCHAR2_TABLE_100
2881 , p5_a14 JTF_VARCHAR2_TABLE_500
2882 , p5_a15 JTF_VARCHAR2_TABLE_500
2883 , p5_a16 JTF_VARCHAR2_TABLE_500
2884 , p5_a17 JTF_VARCHAR2_TABLE_500
2885 , p5_a18 JTF_VARCHAR2_TABLE_500
2886 , p5_a19 JTF_VARCHAR2_TABLE_500
2887 , p5_a20 JTF_VARCHAR2_TABLE_500
2888 , p5_a21 JTF_VARCHAR2_TABLE_500
2889 , p5_a22 JTF_VARCHAR2_TABLE_500
2890 , p5_a23 JTF_VARCHAR2_TABLE_500
2891 , p5_a24 JTF_VARCHAR2_TABLE_500
2892 , p5_a25 JTF_VARCHAR2_TABLE_500
2893 , p5_a26 JTF_VARCHAR2_TABLE_500
2894 , p5_a27 JTF_VARCHAR2_TABLE_500
2895 , p5_a28 JTF_VARCHAR2_TABLE_500
2896 , p5_a29 JTF_NUMBER_TABLE
2897 , p5_a30 JTF_NUMBER_TABLE
2898 , p5_a31 JTF_NUMBER_TABLE
2899 , p5_a32 JTF_NUMBER_TABLE
2900 , p5_a33 JTF_DATE_TABLE
2901 , p5_a34 JTF_NUMBER_TABLE
2902 , p5_a35 JTF_DATE_TABLE
2903 , p5_a36 JTF_NUMBER_TABLE
2904 , p5_a37 JTF_DATE_TABLE
2905 , p5_a38 JTF_NUMBER_TABLE
2906 , p5_a39 JTF_DATE_TABLE
2907 , p5_a40 JTF_VARCHAR2_TABLE_100
2908 , p5_a41 JTF_NUMBER_TABLE
2909 , p5_a42 JTF_VARCHAR2_TABLE_100
2910 , p5_a43 JTF_VARCHAR2_TABLE_100
2911 , p5_a44 JTF_VARCHAR2_TABLE_200
2912 , p5_a45 JTF_NUMBER_TABLE
2913 , p5_a46 JTF_NUMBER_TABLE
2914 , p5_a47 JTF_NUMBER_TABLE
2915 , p5_a48 JTF_NUMBER_TABLE
2916 , p5_a49 JTF_NUMBER_TABLE
2917 , p5_a50 JTF_NUMBER_TABLE
2918 , p5_a51 JTF_NUMBER_TABLE
2919 , p5_a52 JTF_NUMBER_TABLE
2920 , p5_a53 JTF_VARCHAR2_TABLE_200
2921 , p5_a54 JTF_VARCHAR2_TABLE_100
2922 , p5_a55 JTF_VARCHAR2_TABLE_100
2923 , p5_a56 JTF_VARCHAR2_TABLE_100
2924 , p5_a57 JTF_NUMBER_TABLE
2925 , p5_a58 JTF_DATE_TABLE
2926 , p5_a59 JTF_DATE_TABLE
2927 , p5_a60 JTF_NUMBER_TABLE
2928 , p6_a0 out nocopy JTF_NUMBER_TABLE
2929 , p6_a1 out nocopy JTF_NUMBER_TABLE
2930 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
2931 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
2932 , p6_a4 out nocopy JTF_NUMBER_TABLE
2933 , p6_a5 out nocopy JTF_NUMBER_TABLE
2934 , p6_a6 out nocopy JTF_NUMBER_TABLE
2935 , p6_a7 out nocopy JTF_NUMBER_TABLE
2936 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_2000
2937 , p6_a9 out nocopy JTF_NUMBER_TABLE
2938 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
2939 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
2940 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
2941 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
2942 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
2943 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
2944 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
2945 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
2946 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
2947 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
2948 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
2949 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
2950 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
2951 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
2952 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
2953 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
2954 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
2955 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
2956 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
2957 , p6_a29 out nocopy JTF_NUMBER_TABLE
2958 , p6_a30 out nocopy JTF_NUMBER_TABLE
2959 , p6_a31 out nocopy JTF_NUMBER_TABLE
2960 , p6_a32 out nocopy JTF_NUMBER_TABLE
2961 , p6_a33 out nocopy JTF_DATE_TABLE
2962 , p6_a34 out nocopy JTF_NUMBER_TABLE
2963 , p6_a35 out nocopy JTF_DATE_TABLE
2964 , p6_a36 out nocopy JTF_NUMBER_TABLE
2965 , p6_a37 out nocopy JTF_DATE_TABLE
2966 , p6_a38 out nocopy JTF_NUMBER_TABLE
2967 , p6_a39 out nocopy JTF_DATE_TABLE
2968 , p6_a40 out nocopy JTF_VARCHAR2_TABLE_100
2969 , p6_a41 out nocopy JTF_NUMBER_TABLE
2970 , p6_a42 out nocopy JTF_VARCHAR2_TABLE_100
2971 , p6_a43 out nocopy JTF_VARCHAR2_TABLE_100
2972 , p6_a44 out nocopy JTF_VARCHAR2_TABLE_200
2973 , p6_a45 out nocopy JTF_NUMBER_TABLE
2974 , p6_a46 out nocopy JTF_NUMBER_TABLE
2975 , p6_a47 out nocopy JTF_NUMBER_TABLE
2976 , p6_a48 out nocopy JTF_NUMBER_TABLE
2977 , p6_a49 out nocopy JTF_NUMBER_TABLE
2978 , p6_a50 out nocopy JTF_NUMBER_TABLE
2979 , p6_a51 out nocopy JTF_NUMBER_TABLE
2980 , p6_a52 out nocopy JTF_NUMBER_TABLE
2981 , p6_a53 out nocopy JTF_VARCHAR2_TABLE_200
2982 , p6_a54 out nocopy JTF_VARCHAR2_TABLE_100
2983 , p6_a55 out nocopy JTF_VARCHAR2_TABLE_100
2984 , p6_a56 out nocopy JTF_VARCHAR2_TABLE_100
2985 , p6_a57 out nocopy JTF_NUMBER_TABLE
2986 , p6_a58 out nocopy JTF_DATE_TABLE
2987 , p6_a59 out nocopy JTF_DATE_TABLE
2988 , p6_a60 out nocopy JTF_NUMBER_TABLE
2989 )
2990
2991 as
2992 ddp_tqlv_tbl okl_tql_pvt.tqlv_tbl_type;
2993 ddx_tqlv_tbl okl_tql_pvt.tqlv_tbl_type;
2994 ddindx binary_integer; indx binary_integer;
2995 begin
2996
2997 -- copy data to the local IN or IN-OUT args, if any
2998
2999
3000
3001
3002
3003 okl_tql_pvt_w.rosetta_table_copy_in_p8(ddp_tqlv_tbl, p5_a0
3004 , p5_a1
3005 , p5_a2
3006 , p5_a3
3007 , p5_a4
3008 , p5_a5
3009 , p5_a6
3010 , p5_a7
3011 , p5_a8
3012 , p5_a9
3013 , p5_a10
3014 , p5_a11
3015 , p5_a12
3016 , p5_a13
3017 , p5_a14
3018 , p5_a15
3019 , p5_a16
3020 , p5_a17
3021 , p5_a18
3022 , p5_a19
3023 , p5_a20
3024 , p5_a21
3025 , p5_a22
3026 , p5_a23
3027 , p5_a24
3028 , p5_a25
3029 , p5_a26
3030 , p5_a27
3031 , p5_a28
3032 , p5_a29
3033 , p5_a30
3034 , p5_a31
3035 , p5_a32
3036 , p5_a33
3037 , p5_a34
3038 , p5_a35
3039 , p5_a36
3040 , p5_a37
3041 , p5_a38
3042 , p5_a39
3043 , p5_a40
3044 , p5_a41
3045 , p5_a42
3046 , p5_a43
3047 , p5_a44
3048 , p5_a45
3049 , p5_a46
3050 , p5_a47
3051 , p5_a48
3052 , p5_a49
3053 , p5_a50
3054 , p5_a51
3055 , p5_a52
3056 , p5_a53
3057 , p5_a54
3058 , p5_a55
3059 , p5_a56
3060 , p5_a57
3061 , p5_a58
3062 , p5_a59
3063 , p5_a60
3064 );
3065
3066
3067 -- here's the delegated call to the old PL/SQL routine
3068 okl_tql_pvt.update_row(p_api_version,
3069 p_init_msg_list,
3070 x_return_status,
3071 x_msg_count,
3072 x_msg_data,
3073 ddp_tqlv_tbl,
3074 ddx_tqlv_tbl);
3075
3076 -- copy data back from the local variables to OUT or IN-OUT args, if any
3077
3078
3079
3080
3081
3082
3083 okl_tql_pvt_w.rosetta_table_copy_out_p8(ddx_tqlv_tbl, p6_a0
3084 , p6_a1
3085 , p6_a2
3086 , p6_a3
3087 , p6_a4
3088 , p6_a5
3089 , p6_a6
3090 , p6_a7
3091 , p6_a8
3092 , p6_a9
3093 , p6_a10
3094 , p6_a11
3095 , p6_a12
3096 , p6_a13
3097 , p6_a14
3098 , p6_a15
3099 , p6_a16
3100 , p6_a17
3101 , p6_a18
3102 , p6_a19
3103 , p6_a20
3104 , p6_a21
3105 , p6_a22
3106 , p6_a23
3107 , p6_a24
3108 , p6_a25
3109 , p6_a26
3110 , p6_a27
3111 , p6_a28
3112 , p6_a29
3113 , p6_a30
3114 , p6_a31
3115 , p6_a32
3116 , p6_a33
3117 , p6_a34
3118 , p6_a35
3119 , p6_a36
3120 , p6_a37
3121 , p6_a38
3122 , p6_a39
3123 , p6_a40
3124 , p6_a41
3125 , p6_a42
3126 , p6_a43
3127 , p6_a44
3128 , p6_a45
3129 , p6_a46
3130 , p6_a47
3131 , p6_a48
3132 , p6_a49
3133 , p6_a50
3134 , p6_a51
3135 , p6_a52
3136 , p6_a53
3137 , p6_a54
3138 , p6_a55
3139 , p6_a56
3140 , p6_a57
3141 , p6_a58
3142 , p6_a59
3143 , p6_a60
3144 );
3145 end;
3146
3147 procedure delete_row(p_api_version NUMBER
3148 , p_init_msg_list VARCHAR2
3149 , x_return_status out nocopy VARCHAR2
3150 , x_msg_count out nocopy NUMBER
3151 , x_msg_data out nocopy VARCHAR2
3152 , p5_a0 NUMBER := 0-1962.0724
3153 , p5_a1 NUMBER := 0-1962.0724
3154 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
3155 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
3156 , p5_a4 NUMBER := 0-1962.0724
3157 , p5_a5 NUMBER := 0-1962.0724
3158 , p5_a6 NUMBER := 0-1962.0724
3159 , p5_a7 NUMBER := 0-1962.0724
3160 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
3161 , p5_a9 NUMBER := 0-1962.0724
3162 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
3163 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
3164 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
3165 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
3166 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
3167 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
3168 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
3169 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
3170 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
3171 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
3172 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
3173 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
3174 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
3175 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
3176 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
3177 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
3178 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
3179 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
3180 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
3181 , p5_a29 NUMBER := 0-1962.0724
3182 , p5_a30 NUMBER := 0-1962.0724
3183 , p5_a31 NUMBER := 0-1962.0724
3184 , p5_a32 NUMBER := 0-1962.0724
3185 , p5_a33 DATE := fnd_api.g_miss_date
3186 , p5_a34 NUMBER := 0-1962.0724
3187 , p5_a35 DATE := fnd_api.g_miss_date
3188 , p5_a36 NUMBER := 0-1962.0724
3189 , p5_a37 DATE := fnd_api.g_miss_date
3190 , p5_a38 NUMBER := 0-1962.0724
3191 , p5_a39 DATE := fnd_api.g_miss_date
3192 , p5_a40 VARCHAR2 := fnd_api.g_miss_char
3193 , p5_a41 NUMBER := 0-1962.0724
3194 , p5_a42 VARCHAR2 := fnd_api.g_miss_char
3195 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
3196 , p5_a44 VARCHAR2 := fnd_api.g_miss_char
3197 , p5_a45 NUMBER := 0-1962.0724
3198 , p5_a46 NUMBER := 0-1962.0724
3199 , p5_a47 NUMBER := 0-1962.0724
3200 , p5_a48 NUMBER := 0-1962.0724
3201 , p5_a49 NUMBER := 0-1962.0724
3202 , p5_a50 NUMBER := 0-1962.0724
3203 , p5_a51 NUMBER := 0-1962.0724
3204 , p5_a52 NUMBER := 0-1962.0724
3205 , p5_a53 VARCHAR2 := fnd_api.g_miss_char
3206 , p5_a54 VARCHAR2 := fnd_api.g_miss_char
3207 , p5_a55 VARCHAR2 := fnd_api.g_miss_char
3208 , p5_a56 VARCHAR2 := fnd_api.g_miss_char
3209 , p5_a57 NUMBER := 0-1962.0724
3210 , p5_a58 DATE := fnd_api.g_miss_date
3211 , p5_a59 DATE := fnd_api.g_miss_date
3212 , p5_a60 NUMBER := 0-1962.0724
3213 )
3214
3215 as
3216 ddp_tqlv_rec okl_tql_pvt.tqlv_rec_type;
3217 ddindx binary_integer; indx binary_integer;
3218 begin
3219
3220 -- copy data to the local IN or IN-OUT args, if any
3221
3222
3223
3224
3225
3226 ddp_tqlv_rec.id := rosetta_g_miss_num_map(p5_a0);
3227 ddp_tqlv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
3228 ddp_tqlv_rec.sfwt_flag := p5_a2;
3229 ddp_tqlv_rec.qlt_code := p5_a3;
3230 ddp_tqlv_rec.kle_id := rosetta_g_miss_num_map(p5_a4);
3231 ddp_tqlv_rec.sty_id := rosetta_g_miss_num_map(p5_a5);
3232 ddp_tqlv_rec.qte_id := rosetta_g_miss_num_map(p5_a6);
3233 ddp_tqlv_rec.line_number := rosetta_g_miss_num_map(p5_a7);
3234 ddp_tqlv_rec.description := p5_a8;
3235 ddp_tqlv_rec.amount := rosetta_g_miss_num_map(p5_a9);
3236 ddp_tqlv_rec.modified_yn := p5_a10;
3237 ddp_tqlv_rec.taxed_yn := p5_a11;
3238 ddp_tqlv_rec.defaulted_yn := p5_a12;
3239 ddp_tqlv_rec.attribute_category := p5_a13;
3240 ddp_tqlv_rec.attribute1 := p5_a14;
3241 ddp_tqlv_rec.attribute2 := p5_a15;
3242 ddp_tqlv_rec.attribute3 := p5_a16;
3243 ddp_tqlv_rec.attribute4 := p5_a17;
3244 ddp_tqlv_rec.attribute5 := p5_a18;
3245 ddp_tqlv_rec.attribute6 := p5_a19;
3246 ddp_tqlv_rec.attribute7 := p5_a20;
3247 ddp_tqlv_rec.attribute8 := p5_a21;
3248 ddp_tqlv_rec.attribute9 := p5_a22;
3249 ddp_tqlv_rec.attribute10 := p5_a23;
3250 ddp_tqlv_rec.attribute11 := p5_a24;
3251 ddp_tqlv_rec.attribute12 := p5_a25;
3252 ddp_tqlv_rec.attribute13 := p5_a26;
3253 ddp_tqlv_rec.attribute14 := p5_a27;
3254 ddp_tqlv_rec.attribute15 := p5_a28;
3255 ddp_tqlv_rec.org_id := rosetta_g_miss_num_map(p5_a29);
3256 ddp_tqlv_rec.request_id := rosetta_g_miss_num_map(p5_a30);
3257 ddp_tqlv_rec.program_application_id := rosetta_g_miss_num_map(p5_a31);
3258 ddp_tqlv_rec.program_id := rosetta_g_miss_num_map(p5_a32);
3259 ddp_tqlv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a33);
3260 ddp_tqlv_rec.created_by := rosetta_g_miss_num_map(p5_a34);
3261 ddp_tqlv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a35);
3262 ddp_tqlv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a36);
3263 ddp_tqlv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a37);
3264 ddp_tqlv_rec.last_update_login := rosetta_g_miss_num_map(p5_a38);
3265 ddp_tqlv_rec.start_date := rosetta_g_miss_date_in_map(p5_a39);
3266 ddp_tqlv_rec.period := p5_a40;
3267 ddp_tqlv_rec.number_of_periods := rosetta_g_miss_num_map(p5_a41);
3268 ddp_tqlv_rec.lock_level_step := p5_a42;
3269 ddp_tqlv_rec.advance_or_arrears := p5_a43;
3270 ddp_tqlv_rec.yield_name := p5_a44;
3271 ddp_tqlv_rec.yield_value := rosetta_g_miss_num_map(p5_a45);
3272 ddp_tqlv_rec.implicit_interest_rate := rosetta_g_miss_num_map(p5_a46);
3273 ddp_tqlv_rec.asset_value := rosetta_g_miss_num_map(p5_a47);
3274 ddp_tqlv_rec.residual_value := rosetta_g_miss_num_map(p5_a48);
3275 ddp_tqlv_rec.unbilled_receivables := rosetta_g_miss_num_map(p5_a49);
3276 ddp_tqlv_rec.asset_quantity := rosetta_g_miss_num_map(p5_a50);
3277 ddp_tqlv_rec.quote_quantity := rosetta_g_miss_num_map(p5_a51);
3278 ddp_tqlv_rec.split_kle_id := rosetta_g_miss_num_map(p5_a52);
3279 ddp_tqlv_rec.split_kle_name := p5_a53;
3280 ddp_tqlv_rec.currency_code := p5_a54;
3281 ddp_tqlv_rec.currency_conversion_code := p5_a55;
3282 ddp_tqlv_rec.currency_conversion_type := p5_a56;
3283 ddp_tqlv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a57);
3284 ddp_tqlv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a58);
3285 ddp_tqlv_rec.due_date := rosetta_g_miss_date_in_map(p5_a59);
3286 ddp_tqlv_rec.try_id := rosetta_g_miss_num_map(p5_a60);
3287
3288 -- here's the delegated call to the old PL/SQL routine
3289 okl_tql_pvt.delete_row(p_api_version,
3290 p_init_msg_list,
3291 x_return_status,
3292 x_msg_count,
3293 x_msg_data,
3294 ddp_tqlv_rec);
3295
3296 -- copy data back from the local variables to OUT or IN-OUT args, if any
3297
3298
3299
3300
3301
3302 end;
3303
3304 procedure delete_row(p_api_version NUMBER
3305 , p_init_msg_list VARCHAR2
3306 , x_return_status out nocopy VARCHAR2
3307 , x_msg_count out nocopy NUMBER
3308 , x_msg_data out nocopy VARCHAR2
3309 , p5_a0 JTF_NUMBER_TABLE
3310 , p5_a1 JTF_NUMBER_TABLE
3311 , p5_a2 JTF_VARCHAR2_TABLE_100
3312 , p5_a3 JTF_VARCHAR2_TABLE_100
3313 , p5_a4 JTF_NUMBER_TABLE
3314 , p5_a5 JTF_NUMBER_TABLE
3315 , p5_a6 JTF_NUMBER_TABLE
3316 , p5_a7 JTF_NUMBER_TABLE
3317 , p5_a8 JTF_VARCHAR2_TABLE_2000
3318 , p5_a9 JTF_NUMBER_TABLE
3319 , p5_a10 JTF_VARCHAR2_TABLE_100
3320 , p5_a11 JTF_VARCHAR2_TABLE_100
3321 , p5_a12 JTF_VARCHAR2_TABLE_100
3322 , p5_a13 JTF_VARCHAR2_TABLE_100
3323 , p5_a14 JTF_VARCHAR2_TABLE_500
3324 , p5_a15 JTF_VARCHAR2_TABLE_500
3325 , p5_a16 JTF_VARCHAR2_TABLE_500
3326 , p5_a17 JTF_VARCHAR2_TABLE_500
3327 , p5_a18 JTF_VARCHAR2_TABLE_500
3328 , p5_a19 JTF_VARCHAR2_TABLE_500
3329 , p5_a20 JTF_VARCHAR2_TABLE_500
3330 , p5_a21 JTF_VARCHAR2_TABLE_500
3331 , p5_a22 JTF_VARCHAR2_TABLE_500
3332 , p5_a23 JTF_VARCHAR2_TABLE_500
3333 , p5_a24 JTF_VARCHAR2_TABLE_500
3334 , p5_a25 JTF_VARCHAR2_TABLE_500
3335 , p5_a26 JTF_VARCHAR2_TABLE_500
3336 , p5_a27 JTF_VARCHAR2_TABLE_500
3337 , p5_a28 JTF_VARCHAR2_TABLE_500
3338 , p5_a29 JTF_NUMBER_TABLE
3339 , p5_a30 JTF_NUMBER_TABLE
3340 , p5_a31 JTF_NUMBER_TABLE
3341 , p5_a32 JTF_NUMBER_TABLE
3342 , p5_a33 JTF_DATE_TABLE
3343 , p5_a34 JTF_NUMBER_TABLE
3344 , p5_a35 JTF_DATE_TABLE
3345 , p5_a36 JTF_NUMBER_TABLE
3346 , p5_a37 JTF_DATE_TABLE
3347 , p5_a38 JTF_NUMBER_TABLE
3348 , p5_a39 JTF_DATE_TABLE
3349 , p5_a40 JTF_VARCHAR2_TABLE_100
3350 , p5_a41 JTF_NUMBER_TABLE
3351 , p5_a42 JTF_VARCHAR2_TABLE_100
3352 , p5_a43 JTF_VARCHAR2_TABLE_100
3353 , p5_a44 JTF_VARCHAR2_TABLE_200
3354 , p5_a45 JTF_NUMBER_TABLE
3355 , p5_a46 JTF_NUMBER_TABLE
3356 , p5_a47 JTF_NUMBER_TABLE
3357 , p5_a48 JTF_NUMBER_TABLE
3358 , p5_a49 JTF_NUMBER_TABLE
3359 , p5_a50 JTF_NUMBER_TABLE
3360 , p5_a51 JTF_NUMBER_TABLE
3361 , p5_a52 JTF_NUMBER_TABLE
3362 , p5_a53 JTF_VARCHAR2_TABLE_200
3363 , p5_a54 JTF_VARCHAR2_TABLE_100
3364 , p5_a55 JTF_VARCHAR2_TABLE_100
3365 , p5_a56 JTF_VARCHAR2_TABLE_100
3366 , p5_a57 JTF_NUMBER_TABLE
3367 , p5_a58 JTF_DATE_TABLE
3368 , p5_a59 JTF_DATE_TABLE
3369 , p5_a60 JTF_NUMBER_TABLE
3370 )
3371
3372 as
3373 ddp_tqlv_tbl okl_tql_pvt.tqlv_tbl_type;
3374 ddindx binary_integer; indx binary_integer;
3375 begin
3376
3377 -- copy data to the local IN or IN-OUT args, if any
3378
3379
3380
3381
3382
3383 okl_tql_pvt_w.rosetta_table_copy_in_p8(ddp_tqlv_tbl, p5_a0
3384 , p5_a1
3385 , p5_a2
3386 , p5_a3
3387 , p5_a4
3388 , p5_a5
3389 , p5_a6
3390 , p5_a7
3391 , p5_a8
3392 , p5_a9
3393 , p5_a10
3394 , p5_a11
3395 , p5_a12
3396 , p5_a13
3397 , p5_a14
3398 , p5_a15
3399 , p5_a16
3400 , p5_a17
3401 , p5_a18
3402 , p5_a19
3403 , p5_a20
3404 , p5_a21
3405 , p5_a22
3406 , p5_a23
3407 , p5_a24
3408 , p5_a25
3409 , p5_a26
3410 , p5_a27
3411 , p5_a28
3412 , p5_a29
3413 , p5_a30
3414 , p5_a31
3415 , p5_a32
3416 , p5_a33
3417 , p5_a34
3418 , p5_a35
3419 , p5_a36
3420 , p5_a37
3421 , p5_a38
3422 , p5_a39
3423 , p5_a40
3424 , p5_a41
3425 , p5_a42
3426 , p5_a43
3427 , p5_a44
3428 , p5_a45
3429 , p5_a46
3430 , p5_a47
3431 , p5_a48
3432 , p5_a49
3433 , p5_a50
3434 , p5_a51
3435 , p5_a52
3436 , p5_a53
3437 , p5_a54
3438 , p5_a55
3439 , p5_a56
3440 , p5_a57
3441 , p5_a58
3442 , p5_a59
3443 , p5_a60
3444 );
3445
3446 -- here's the delegated call to the old PL/SQL routine
3447 okl_tql_pvt.delete_row(p_api_version,
3448 p_init_msg_list,
3449 x_return_status,
3450 x_msg_count,
3451 x_msg_data,
3452 ddp_tqlv_tbl);
3453
3454 -- copy data back from the local variables to OUT or IN-OUT args, if any
3455
3456
3457
3458
3459
3460 end;
3461
3462 procedure validate_row(p_api_version NUMBER
3463 , p_init_msg_list VARCHAR2
3464 , x_return_status out nocopy VARCHAR2
3465 , x_msg_count out nocopy NUMBER
3466 , x_msg_data out nocopy VARCHAR2
3467 , p5_a0 NUMBER := 0-1962.0724
3468 , p5_a1 NUMBER := 0-1962.0724
3469 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
3470 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
3471 , p5_a4 NUMBER := 0-1962.0724
3472 , p5_a5 NUMBER := 0-1962.0724
3473 , p5_a6 NUMBER := 0-1962.0724
3474 , p5_a7 NUMBER := 0-1962.0724
3475 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
3476 , p5_a9 NUMBER := 0-1962.0724
3477 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
3478 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
3479 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
3480 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
3481 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
3482 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
3483 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
3484 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
3485 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
3486 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
3487 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
3488 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
3489 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
3490 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
3491 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
3492 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
3493 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
3494 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
3495 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
3496 , p5_a29 NUMBER := 0-1962.0724
3497 , p5_a30 NUMBER := 0-1962.0724
3498 , p5_a31 NUMBER := 0-1962.0724
3499 , p5_a32 NUMBER := 0-1962.0724
3500 , p5_a33 DATE := fnd_api.g_miss_date
3501 , p5_a34 NUMBER := 0-1962.0724
3502 , p5_a35 DATE := fnd_api.g_miss_date
3503 , p5_a36 NUMBER := 0-1962.0724
3504 , p5_a37 DATE := fnd_api.g_miss_date
3505 , p5_a38 NUMBER := 0-1962.0724
3506 , p5_a39 DATE := fnd_api.g_miss_date
3507 , p5_a40 VARCHAR2 := fnd_api.g_miss_char
3508 , p5_a41 NUMBER := 0-1962.0724
3509 , p5_a42 VARCHAR2 := fnd_api.g_miss_char
3510 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
3511 , p5_a44 VARCHAR2 := fnd_api.g_miss_char
3512 , p5_a45 NUMBER := 0-1962.0724
3513 , p5_a46 NUMBER := 0-1962.0724
3514 , p5_a47 NUMBER := 0-1962.0724
3515 , p5_a48 NUMBER := 0-1962.0724
3516 , p5_a49 NUMBER := 0-1962.0724
3517 , p5_a50 NUMBER := 0-1962.0724
3518 , p5_a51 NUMBER := 0-1962.0724
3519 , p5_a52 NUMBER := 0-1962.0724
3520 , p5_a53 VARCHAR2 := fnd_api.g_miss_char
3521 , p5_a54 VARCHAR2 := fnd_api.g_miss_char
3522 , p5_a55 VARCHAR2 := fnd_api.g_miss_char
3523 , p5_a56 VARCHAR2 := fnd_api.g_miss_char
3524 , p5_a57 NUMBER := 0-1962.0724
3525 , p5_a58 DATE := fnd_api.g_miss_date
3526 , p5_a59 DATE := fnd_api.g_miss_date
3527 , p5_a60 NUMBER := 0-1962.0724
3528 )
3529
3530 as
3531 ddp_tqlv_rec okl_tql_pvt.tqlv_rec_type;
3532 ddindx binary_integer; indx binary_integer;
3533 begin
3534
3535 -- copy data to the local IN or IN-OUT args, if any
3536
3537
3538
3539
3540
3541 ddp_tqlv_rec.id := rosetta_g_miss_num_map(p5_a0);
3542 ddp_tqlv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
3543 ddp_tqlv_rec.sfwt_flag := p5_a2;
3544 ddp_tqlv_rec.qlt_code := p5_a3;
3545 ddp_tqlv_rec.kle_id := rosetta_g_miss_num_map(p5_a4);
3546 ddp_tqlv_rec.sty_id := rosetta_g_miss_num_map(p5_a5);
3547 ddp_tqlv_rec.qte_id := rosetta_g_miss_num_map(p5_a6);
3548 ddp_tqlv_rec.line_number := rosetta_g_miss_num_map(p5_a7);
3549 ddp_tqlv_rec.description := p5_a8;
3550 ddp_tqlv_rec.amount := rosetta_g_miss_num_map(p5_a9);
3551 ddp_tqlv_rec.modified_yn := p5_a10;
3552 ddp_tqlv_rec.taxed_yn := p5_a11;
3553 ddp_tqlv_rec.defaulted_yn := p5_a12;
3554 ddp_tqlv_rec.attribute_category := p5_a13;
3555 ddp_tqlv_rec.attribute1 := p5_a14;
3556 ddp_tqlv_rec.attribute2 := p5_a15;
3557 ddp_tqlv_rec.attribute3 := p5_a16;
3558 ddp_tqlv_rec.attribute4 := p5_a17;
3559 ddp_tqlv_rec.attribute5 := p5_a18;
3560 ddp_tqlv_rec.attribute6 := p5_a19;
3561 ddp_tqlv_rec.attribute7 := p5_a20;
3562 ddp_tqlv_rec.attribute8 := p5_a21;
3563 ddp_tqlv_rec.attribute9 := p5_a22;
3564 ddp_tqlv_rec.attribute10 := p5_a23;
3565 ddp_tqlv_rec.attribute11 := p5_a24;
3566 ddp_tqlv_rec.attribute12 := p5_a25;
3567 ddp_tqlv_rec.attribute13 := p5_a26;
3568 ddp_tqlv_rec.attribute14 := p5_a27;
3569 ddp_tqlv_rec.attribute15 := p5_a28;
3570 ddp_tqlv_rec.org_id := rosetta_g_miss_num_map(p5_a29);
3571 ddp_tqlv_rec.request_id := rosetta_g_miss_num_map(p5_a30);
3572 ddp_tqlv_rec.program_application_id := rosetta_g_miss_num_map(p5_a31);
3573 ddp_tqlv_rec.program_id := rosetta_g_miss_num_map(p5_a32);
3574 ddp_tqlv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a33);
3575 ddp_tqlv_rec.created_by := rosetta_g_miss_num_map(p5_a34);
3576 ddp_tqlv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a35);
3577 ddp_tqlv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a36);
3578 ddp_tqlv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a37);
3579 ddp_tqlv_rec.last_update_login := rosetta_g_miss_num_map(p5_a38);
3580 ddp_tqlv_rec.start_date := rosetta_g_miss_date_in_map(p5_a39);
3581 ddp_tqlv_rec.period := p5_a40;
3582 ddp_tqlv_rec.number_of_periods := rosetta_g_miss_num_map(p5_a41);
3583 ddp_tqlv_rec.lock_level_step := p5_a42;
3584 ddp_tqlv_rec.advance_or_arrears := p5_a43;
3585 ddp_tqlv_rec.yield_name := p5_a44;
3586 ddp_tqlv_rec.yield_value := rosetta_g_miss_num_map(p5_a45);
3587 ddp_tqlv_rec.implicit_interest_rate := rosetta_g_miss_num_map(p5_a46);
3588 ddp_tqlv_rec.asset_value := rosetta_g_miss_num_map(p5_a47);
3589 ddp_tqlv_rec.residual_value := rosetta_g_miss_num_map(p5_a48);
3590 ddp_tqlv_rec.unbilled_receivables := rosetta_g_miss_num_map(p5_a49);
3591 ddp_tqlv_rec.asset_quantity := rosetta_g_miss_num_map(p5_a50);
3592 ddp_tqlv_rec.quote_quantity := rosetta_g_miss_num_map(p5_a51);
3593 ddp_tqlv_rec.split_kle_id := rosetta_g_miss_num_map(p5_a52);
3594 ddp_tqlv_rec.split_kle_name := p5_a53;
3595 ddp_tqlv_rec.currency_code := p5_a54;
3596 ddp_tqlv_rec.currency_conversion_code := p5_a55;
3597 ddp_tqlv_rec.currency_conversion_type := p5_a56;
3598 ddp_tqlv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a57);
3599 ddp_tqlv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a58);
3600 ddp_tqlv_rec.due_date := rosetta_g_miss_date_in_map(p5_a59);
3601 ddp_tqlv_rec.try_id := rosetta_g_miss_num_map(p5_a60);
3602
3603 -- here's the delegated call to the old PL/SQL routine
3604 okl_tql_pvt.validate_row(p_api_version,
3605 p_init_msg_list,
3606 x_return_status,
3607 x_msg_count,
3608 x_msg_data,
3609 ddp_tqlv_rec);
3610
3611 -- copy data back from the local variables to OUT or IN-OUT args, if any
3612
3613
3614
3615
3616
3617 end;
3618
3619 procedure validate_row(p_api_version NUMBER
3620 , p_init_msg_list VARCHAR2
3621 , x_return_status out nocopy VARCHAR2
3622 , x_msg_count out nocopy NUMBER
3623 , x_msg_data out nocopy VARCHAR2
3624 , p5_a0 JTF_NUMBER_TABLE
3625 , p5_a1 JTF_NUMBER_TABLE
3626 , p5_a2 JTF_VARCHAR2_TABLE_100
3627 , p5_a3 JTF_VARCHAR2_TABLE_100
3628 , p5_a4 JTF_NUMBER_TABLE
3629 , p5_a5 JTF_NUMBER_TABLE
3630 , p5_a6 JTF_NUMBER_TABLE
3631 , p5_a7 JTF_NUMBER_TABLE
3632 , p5_a8 JTF_VARCHAR2_TABLE_2000
3633 , p5_a9 JTF_NUMBER_TABLE
3634 , p5_a10 JTF_VARCHAR2_TABLE_100
3635 , p5_a11 JTF_VARCHAR2_TABLE_100
3636 , p5_a12 JTF_VARCHAR2_TABLE_100
3637 , p5_a13 JTF_VARCHAR2_TABLE_100
3638 , p5_a14 JTF_VARCHAR2_TABLE_500
3639 , p5_a15 JTF_VARCHAR2_TABLE_500
3640 , p5_a16 JTF_VARCHAR2_TABLE_500
3641 , p5_a17 JTF_VARCHAR2_TABLE_500
3642 , p5_a18 JTF_VARCHAR2_TABLE_500
3643 , p5_a19 JTF_VARCHAR2_TABLE_500
3644 , p5_a20 JTF_VARCHAR2_TABLE_500
3645 , p5_a21 JTF_VARCHAR2_TABLE_500
3646 , p5_a22 JTF_VARCHAR2_TABLE_500
3647 , p5_a23 JTF_VARCHAR2_TABLE_500
3648 , p5_a24 JTF_VARCHAR2_TABLE_500
3649 , p5_a25 JTF_VARCHAR2_TABLE_500
3650 , p5_a26 JTF_VARCHAR2_TABLE_500
3651 , p5_a27 JTF_VARCHAR2_TABLE_500
3652 , p5_a28 JTF_VARCHAR2_TABLE_500
3653 , p5_a29 JTF_NUMBER_TABLE
3654 , p5_a30 JTF_NUMBER_TABLE
3655 , p5_a31 JTF_NUMBER_TABLE
3656 , p5_a32 JTF_NUMBER_TABLE
3657 , p5_a33 JTF_DATE_TABLE
3658 , p5_a34 JTF_NUMBER_TABLE
3659 , p5_a35 JTF_DATE_TABLE
3660 , p5_a36 JTF_NUMBER_TABLE
3661 , p5_a37 JTF_DATE_TABLE
3662 , p5_a38 JTF_NUMBER_TABLE
3663 , p5_a39 JTF_DATE_TABLE
3664 , p5_a40 JTF_VARCHAR2_TABLE_100
3665 , p5_a41 JTF_NUMBER_TABLE
3666 , p5_a42 JTF_VARCHAR2_TABLE_100
3667 , p5_a43 JTF_VARCHAR2_TABLE_100
3668 , p5_a44 JTF_VARCHAR2_TABLE_200
3669 , p5_a45 JTF_NUMBER_TABLE
3670 , p5_a46 JTF_NUMBER_TABLE
3671 , p5_a47 JTF_NUMBER_TABLE
3672 , p5_a48 JTF_NUMBER_TABLE
3673 , p5_a49 JTF_NUMBER_TABLE
3674 , p5_a50 JTF_NUMBER_TABLE
3675 , p5_a51 JTF_NUMBER_TABLE
3676 , p5_a52 JTF_NUMBER_TABLE
3677 , p5_a53 JTF_VARCHAR2_TABLE_200
3678 , p5_a54 JTF_VARCHAR2_TABLE_100
3679 , p5_a55 JTF_VARCHAR2_TABLE_100
3680 , p5_a56 JTF_VARCHAR2_TABLE_100
3681 , p5_a57 JTF_NUMBER_TABLE
3682 , p5_a58 JTF_DATE_TABLE
3683 , p5_a59 JTF_DATE_TABLE
3684 , p5_a60 JTF_NUMBER_TABLE
3685 )
3686
3687 as
3688 ddp_tqlv_tbl okl_tql_pvt.tqlv_tbl_type;
3689 ddindx binary_integer; indx binary_integer;
3690 begin
3691
3692 -- copy data to the local IN or IN-OUT args, if any
3693
3694
3695
3696
3697
3698 okl_tql_pvt_w.rosetta_table_copy_in_p8(ddp_tqlv_tbl, p5_a0
3699 , p5_a1
3700 , p5_a2
3701 , p5_a3
3702 , p5_a4
3703 , p5_a5
3704 , p5_a6
3705 , p5_a7
3706 , p5_a8
3707 , p5_a9
3708 , p5_a10
3709 , p5_a11
3710 , p5_a12
3711 , p5_a13
3712 , p5_a14
3713 , p5_a15
3714 , p5_a16
3715 , p5_a17
3716 , p5_a18
3717 , p5_a19
3718 , p5_a20
3719 , p5_a21
3720 , p5_a22
3721 , p5_a23
3722 , p5_a24
3723 , p5_a25
3724 , p5_a26
3725 , p5_a27
3726 , p5_a28
3727 , p5_a29
3728 , p5_a30
3729 , p5_a31
3730 , p5_a32
3731 , p5_a33
3732 , p5_a34
3733 , p5_a35
3734 , p5_a36
3735 , p5_a37
3736 , p5_a38
3737 , p5_a39
3738 , p5_a40
3739 , p5_a41
3740 , p5_a42
3741 , p5_a43
3742 , p5_a44
3743 , p5_a45
3744 , p5_a46
3745 , p5_a47
3746 , p5_a48
3747 , p5_a49
3748 , p5_a50
3749 , p5_a51
3750 , p5_a52
3751 , p5_a53
3752 , p5_a54
3753 , p5_a55
3754 , p5_a56
3755 , p5_a57
3756 , p5_a58
3757 , p5_a59
3758 , p5_a60
3759 );
3760
3761 -- here's the delegated call to the old PL/SQL routine
3762 okl_tql_pvt.validate_row(p_api_version,
3763 p_init_msg_list,
3764 x_return_status,
3765 x_msg_count,
3766 x_msg_data,
3767 ddp_tqlv_tbl);
3768
3769 -- copy data back from the local variables to OUT or IN-OUT args, if any
3770
3771
3772
3773
3774
3775 end;
3776
3777 procedure insert_row_bulk(p_api_version NUMBER
3778 , p_init_msg_list VARCHAR2
3779 , x_return_status out nocopy VARCHAR2
3780 , x_msg_count out nocopy NUMBER
3781 , x_msg_data out nocopy VARCHAR2
3782 , p5_a0 JTF_NUMBER_TABLE
3783 , p5_a1 JTF_NUMBER_TABLE
3784 , p5_a2 JTF_VARCHAR2_TABLE_100
3785 , p5_a3 JTF_VARCHAR2_TABLE_100
3786 , p5_a4 JTF_NUMBER_TABLE
3787 , p5_a5 JTF_NUMBER_TABLE
3788 , p5_a6 JTF_NUMBER_TABLE
3789 , p5_a7 JTF_NUMBER_TABLE
3790 , p5_a8 JTF_VARCHAR2_TABLE_2000
3791 , p5_a9 JTF_NUMBER_TABLE
3792 , p5_a10 JTF_VARCHAR2_TABLE_100
3793 , p5_a11 JTF_VARCHAR2_TABLE_100
3794 , p5_a12 JTF_VARCHAR2_TABLE_100
3795 , p5_a13 JTF_VARCHAR2_TABLE_100
3796 , p5_a14 JTF_VARCHAR2_TABLE_500
3797 , p5_a15 JTF_VARCHAR2_TABLE_500
3798 , p5_a16 JTF_VARCHAR2_TABLE_500
3799 , p5_a17 JTF_VARCHAR2_TABLE_500
3800 , p5_a18 JTF_VARCHAR2_TABLE_500
3801 , p5_a19 JTF_VARCHAR2_TABLE_500
3802 , p5_a20 JTF_VARCHAR2_TABLE_500
3803 , p5_a21 JTF_VARCHAR2_TABLE_500
3804 , p5_a22 JTF_VARCHAR2_TABLE_500
3805 , p5_a23 JTF_VARCHAR2_TABLE_500
3806 , p5_a24 JTF_VARCHAR2_TABLE_500
3807 , p5_a25 JTF_VARCHAR2_TABLE_500
3808 , p5_a26 JTF_VARCHAR2_TABLE_500
3809 , p5_a27 JTF_VARCHAR2_TABLE_500
3810 , p5_a28 JTF_VARCHAR2_TABLE_500
3811 , p5_a29 JTF_NUMBER_TABLE
3812 , p5_a30 JTF_NUMBER_TABLE
3813 , p5_a31 JTF_NUMBER_TABLE
3814 , p5_a32 JTF_NUMBER_TABLE
3815 , p5_a33 JTF_DATE_TABLE
3816 , p5_a34 JTF_NUMBER_TABLE
3817 , p5_a35 JTF_DATE_TABLE
3818 , p5_a36 JTF_NUMBER_TABLE
3819 , p5_a37 JTF_DATE_TABLE
3820 , p5_a38 JTF_NUMBER_TABLE
3821 , p5_a39 JTF_DATE_TABLE
3822 , p5_a40 JTF_VARCHAR2_TABLE_100
3823 , p5_a41 JTF_NUMBER_TABLE
3824 , p5_a42 JTF_VARCHAR2_TABLE_100
3825 , p5_a43 JTF_VARCHAR2_TABLE_100
3826 , p5_a44 JTF_VARCHAR2_TABLE_200
3827 , p5_a45 JTF_NUMBER_TABLE
3828 , p5_a46 JTF_NUMBER_TABLE
3829 , p5_a47 JTF_NUMBER_TABLE
3830 , p5_a48 JTF_NUMBER_TABLE
3831 , p5_a49 JTF_NUMBER_TABLE
3832 , p5_a50 JTF_NUMBER_TABLE
3833 , p5_a51 JTF_NUMBER_TABLE
3834 , p5_a52 JTF_NUMBER_TABLE
3835 , p5_a53 JTF_VARCHAR2_TABLE_200
3836 , p5_a54 JTF_VARCHAR2_TABLE_100
3837 , p5_a55 JTF_VARCHAR2_TABLE_100
3838 , p5_a56 JTF_VARCHAR2_TABLE_100
3839 , p5_a57 JTF_NUMBER_TABLE
3840 , p5_a58 JTF_DATE_TABLE
3841 , p5_a59 JTF_DATE_TABLE
3842 , p5_a60 JTF_NUMBER_TABLE
3843 , p6_a0 out nocopy JTF_NUMBER_TABLE
3844 , p6_a1 out nocopy JTF_NUMBER_TABLE
3845 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
3846 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
3847 , p6_a4 out nocopy JTF_NUMBER_TABLE
3848 , p6_a5 out nocopy JTF_NUMBER_TABLE
3849 , p6_a6 out nocopy JTF_NUMBER_TABLE
3850 , p6_a7 out nocopy JTF_NUMBER_TABLE
3851 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_2000
3852 , p6_a9 out nocopy JTF_NUMBER_TABLE
3853 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
3854 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
3855 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
3856 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
3857 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
3858 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
3859 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
3860 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
3861 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
3862 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
3863 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
3864 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
3865 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
3866 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
3867 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
3868 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
3869 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
3870 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
3871 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
3872 , p6_a29 out nocopy JTF_NUMBER_TABLE
3873 , p6_a30 out nocopy JTF_NUMBER_TABLE
3874 , p6_a31 out nocopy JTF_NUMBER_TABLE
3875 , p6_a32 out nocopy JTF_NUMBER_TABLE
3876 , p6_a33 out nocopy JTF_DATE_TABLE
3877 , p6_a34 out nocopy JTF_NUMBER_TABLE
3878 , p6_a35 out nocopy JTF_DATE_TABLE
3879 , p6_a36 out nocopy JTF_NUMBER_TABLE
3880 , p6_a37 out nocopy JTF_DATE_TABLE
3881 , p6_a38 out nocopy JTF_NUMBER_TABLE
3882 , p6_a39 out nocopy JTF_DATE_TABLE
3883 , p6_a40 out nocopy JTF_VARCHAR2_TABLE_100
3884 , p6_a41 out nocopy JTF_NUMBER_TABLE
3885 , p6_a42 out nocopy JTF_VARCHAR2_TABLE_100
3886 , p6_a43 out nocopy JTF_VARCHAR2_TABLE_100
3887 , p6_a44 out nocopy JTF_VARCHAR2_TABLE_200
3888 , p6_a45 out nocopy JTF_NUMBER_TABLE
3889 , p6_a46 out nocopy JTF_NUMBER_TABLE
3890 , p6_a47 out nocopy JTF_NUMBER_TABLE
3891 , p6_a48 out nocopy JTF_NUMBER_TABLE
3892 , p6_a49 out nocopy JTF_NUMBER_TABLE
3893 , p6_a50 out nocopy JTF_NUMBER_TABLE
3894 , p6_a51 out nocopy JTF_NUMBER_TABLE
3895 , p6_a52 out nocopy JTF_NUMBER_TABLE
3896 , p6_a53 out nocopy JTF_VARCHAR2_TABLE_200
3897 , p6_a54 out nocopy JTF_VARCHAR2_TABLE_100
3898 , p6_a55 out nocopy JTF_VARCHAR2_TABLE_100
3899 , p6_a56 out nocopy JTF_VARCHAR2_TABLE_100
3900 , p6_a57 out nocopy JTF_NUMBER_TABLE
3901 , p6_a58 out nocopy JTF_DATE_TABLE
3902 , p6_a59 out nocopy JTF_DATE_TABLE
3903 , p6_a60 out nocopy JTF_NUMBER_TABLE
3904 )
3905
3906 as
3907 ddp_tqlv_tbl okl_tql_pvt.tqlv_tbl_type;
3908 ddx_tqlv_tbl okl_tql_pvt.tqlv_tbl_type;
3909 ddindx binary_integer; indx binary_integer;
3910 begin
3911
3912 -- copy data to the local IN or IN-OUT args, if any
3913
3914
3915
3916
3917
3918 okl_tql_pvt_w.rosetta_table_copy_in_p8(ddp_tqlv_tbl, p5_a0
3919 , p5_a1
3920 , p5_a2
3921 , p5_a3
3922 , p5_a4
3923 , p5_a5
3924 , p5_a6
3925 , p5_a7
3926 , p5_a8
3927 , p5_a9
3928 , p5_a10
3929 , p5_a11
3930 , p5_a12
3931 , p5_a13
3932 , p5_a14
3933 , p5_a15
3934 , p5_a16
3935 , p5_a17
3936 , p5_a18
3937 , p5_a19
3938 , p5_a20
3939 , p5_a21
3940 , p5_a22
3941 , p5_a23
3942 , p5_a24
3943 , p5_a25
3944 , p5_a26
3945 , p5_a27
3946 , p5_a28
3947 , p5_a29
3948 , p5_a30
3949 , p5_a31
3950 , p5_a32
3951 , p5_a33
3952 , p5_a34
3953 , p5_a35
3954 , p5_a36
3955 , p5_a37
3956 , p5_a38
3957 , p5_a39
3958 , p5_a40
3959 , p5_a41
3960 , p5_a42
3961 , p5_a43
3962 , p5_a44
3963 , p5_a45
3964 , p5_a46
3965 , p5_a47
3966 , p5_a48
3967 , p5_a49
3968 , p5_a50
3969 , p5_a51
3970 , p5_a52
3971 , p5_a53
3972 , p5_a54
3973 , p5_a55
3974 , p5_a56
3975 , p5_a57
3976 , p5_a58
3977 , p5_a59
3978 , p5_a60
3979 );
3980
3981
3982 -- here's the delegated call to the old PL/SQL routine
3983 okl_tql_pvt.insert_row_bulk(p_api_version,
3984 p_init_msg_list,
3985 x_return_status,
3986 x_msg_count,
3987 x_msg_data,
3988 ddp_tqlv_tbl,
3989 ddx_tqlv_tbl);
3990
3991 -- copy data back from the local variables to OUT or IN-OUT args, if any
3992
3993
3994
3995
3996
3997
3998 okl_tql_pvt_w.rosetta_table_copy_out_p8(ddx_tqlv_tbl, p6_a0
3999 , p6_a1
4000 , p6_a2
4001 , p6_a3
4002 , p6_a4
4003 , p6_a5
4004 , p6_a6
4005 , p6_a7
4006 , p6_a8
4007 , p6_a9
4008 , p6_a10
4009 , p6_a11
4010 , p6_a12
4011 , p6_a13
4012 , p6_a14
4013 , p6_a15
4014 , p6_a16
4015 , p6_a17
4016 , p6_a18
4017 , p6_a19
4018 , p6_a20
4019 , p6_a21
4020 , p6_a22
4021 , p6_a23
4022 , p6_a24
4023 , p6_a25
4024 , p6_a26
4025 , p6_a27
4026 , p6_a28
4027 , p6_a29
4028 , p6_a30
4029 , p6_a31
4030 , p6_a32
4031 , p6_a33
4032 , p6_a34
4033 , p6_a35
4034 , p6_a36
4035 , p6_a37
4036 , p6_a38
4037 , p6_a39
4038 , p6_a40
4039 , p6_a41
4040 , p6_a42
4041 , p6_a43
4042 , p6_a44
4043 , p6_a45
4044 , p6_a46
4045 , p6_a47
4046 , p6_a48
4047 , p6_a49
4048 , p6_a50
4049 , p6_a51
4050 , p6_a52
4051 , p6_a53
4052 , p6_a54
4053 , p6_a55
4054 , p6_a56
4055 , p6_a57
4056 , p6_a58
4057 , p6_a59
4058 , p6_a60
4059 );
4060 end;
4061
4062 end okl_tql_pvt_w;