[Home] [Help]
PACKAGE BODY: APPS.OKL_TCL_PVT_W
Source
1 package body okl_tcl_pvt_w as
2 /* $Header: OKLITCLB.pls 120.7.12010000.3 2008/11/07 10:26:57 sosharma ship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 function rosetta_g_miss_num_map(n number) return number as
17 a number := fnd_api.g_miss_num;
18 b number := 0-1962.0724;
19 begin
20 if n=a then return b; end if;
21 if n=b then return a; end if;
22 return n;
23 end;
24
25 procedure rosetta_table_copy_in_p2(t out nocopy okl_tcl_pvt.tcl_tbl_type, a0 JTF_NUMBER_TABLE
26 , a1 JTF_NUMBER_TABLE
27 , a2 JTF_NUMBER_TABLE
28 , a3 JTF_VARCHAR2_TABLE_100
29 , a4 JTF_NUMBER_TABLE
30 , a5 JTF_NUMBER_TABLE
31 , a6 JTF_NUMBER_TABLE
32 , a7 JTF_NUMBER_TABLE
33 , a8 JTF_NUMBER_TABLE
34 , a9 JTF_VARCHAR2_TABLE_100
35 , a10 JTF_NUMBER_TABLE
36 , a11 JTF_NUMBER_TABLE
37 , a12 JTF_DATE_TABLE
38 , a13 JTF_NUMBER_TABLE
39 , a14 JTF_DATE_TABLE
40 , a15 JTF_NUMBER_TABLE
41 , a16 JTF_VARCHAR2_TABLE_2000
42 , a17 JTF_NUMBER_TABLE
43 , a18 JTF_VARCHAR2_TABLE_100
44 , a19 JTF_NUMBER_TABLE
45 , a20 JTF_NUMBER_TABLE
46 , a21 JTF_VARCHAR2_TABLE_200
47 , a22 JTF_NUMBER_TABLE
48 , a23 JTF_DATE_TABLE
49 , a24 JTF_VARCHAR2_TABLE_100
50 , a25 JTF_VARCHAR2_TABLE_500
51 , a26 JTF_VARCHAR2_TABLE_500
52 , a27 JTF_VARCHAR2_TABLE_500
53 , a28 JTF_VARCHAR2_TABLE_500
54 , a29 JTF_VARCHAR2_TABLE_500
55 , a30 JTF_VARCHAR2_TABLE_500
56 , a31 JTF_VARCHAR2_TABLE_500
57 , a32 JTF_VARCHAR2_TABLE_500
58 , a33 JTF_VARCHAR2_TABLE_500
59 , a34 JTF_VARCHAR2_TABLE_500
60 , a35 JTF_VARCHAR2_TABLE_500
61 , a36 JTF_VARCHAR2_TABLE_500
62 , a37 JTF_VARCHAR2_TABLE_500
63 , a38 JTF_VARCHAR2_TABLE_500
64 , a39 JTF_VARCHAR2_TABLE_500
65 , a40 JTF_NUMBER_TABLE
66 , a41 JTF_NUMBER_TABLE
67 , a42 JTF_NUMBER_TABLE
68 , a43 JTF_NUMBER_TABLE
69 , a44 JTF_NUMBER_TABLE
70 , a45 JTF_VARCHAR2_TABLE_100
71 , a46 JTF_VARCHAR2_TABLE_200
72 , a47 JTF_NUMBER_TABLE
73 , a48 JTF_VARCHAR2_TABLE_200
74 , a49 JTF_NUMBER_TABLE
75 , a50 JTF_VARCHAR2_TABLE_200
76 , a51 JTF_NUMBER_TABLE
77 , a52 JTF_DATE_TABLE
78 , a53 JTF_NUMBER_TABLE
79 , a54 JTF_VARCHAR2_TABLE_200
80 , a55 JTF_VARCHAR2_TABLE_300
81 , a56 JTF_VARCHAR2_TABLE_100
82 , a57 JTF_VARCHAR2_TABLE_100
83 ) as
84 ddindx binary_integer; indx binary_integer;
85 begin
86 if a0 is not null and a0.count > 0 then
87 if a0.count > 0 then
88 indx := a0.first;
89 ddindx := 1;
90 while true loop
91 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
92 t(ddindx).khr_id := rosetta_g_miss_num_map(a1(indx));
93 t(ddindx).kle_id := rosetta_g_miss_num_map(a2(indx));
94 t(ddindx).before_transfer_yn := a3(indx);
95 t(ddindx).tcn_id := rosetta_g_miss_num_map(a4(indx));
96 t(ddindx).rct_id := rosetta_g_miss_num_map(a5(indx));
97 t(ddindx).btc_id := rosetta_g_miss_num_map(a6(indx));
98 t(ddindx).sty_id := rosetta_g_miss_num_map(a7(indx));
99 t(ddindx).line_number := rosetta_g_miss_num_map(a8(indx));
100 t(ddindx).tcl_type := a9(indx);
101 t(ddindx).object_version_number := rosetta_g_miss_num_map(a10(indx));
102 t(ddindx).created_by := rosetta_g_miss_num_map(a11(indx));
103 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a12(indx));
104 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a13(indx));
105 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a14(indx));
106 t(ddindx).org_id := rosetta_g_miss_num_map(a15(indx));
107 t(ddindx).description := a16(indx);
108 t(ddindx).program_id := rosetta_g_miss_num_map(a17(indx));
109 t(ddindx).gl_reversal_yn := a18(indx);
110 t(ddindx).amount := rosetta_g_miss_num_map(a19(indx));
111 t(ddindx).program_application_id := rosetta_g_miss_num_map(a20(indx));
112 t(ddindx).currency_code := a21(indx);
113 t(ddindx).request_id := rosetta_g_miss_num_map(a22(indx));
114 t(ddindx).program_update_date := rosetta_g_miss_date_in_map(a23(indx));
115 t(ddindx).attribute_category := a24(indx);
116 t(ddindx).attribute1 := a25(indx);
117 t(ddindx).attribute2 := a26(indx);
118 t(ddindx).attribute3 := a27(indx);
119 t(ddindx).attribute4 := a28(indx);
120 t(ddindx).attribute5 := a29(indx);
121 t(ddindx).attribute6 := a30(indx);
122 t(ddindx).attribute7 := a31(indx);
123 t(ddindx).attribute8 := a32(indx);
124 t(ddindx).attribute9 := a33(indx);
125 t(ddindx).attribute10 := a34(indx);
126 t(ddindx).attribute11 := a35(indx);
127 t(ddindx).attribute12 := a36(indx);
128 t(ddindx).attribute13 := a37(indx);
129 t(ddindx).attribute14 := a38(indx);
130 t(ddindx).attribute15 := a39(indx);
131 t(ddindx).last_update_login := rosetta_g_miss_num_map(a40(indx));
132 t(ddindx).avl_id := rosetta_g_miss_num_map(a41(indx));
133 t(ddindx).bkt_id := rosetta_g_miss_num_map(a42(indx));
134 t(ddindx).kle_id_new := rosetta_g_miss_num_map(a43(indx));
135 t(ddindx).percentage := rosetta_g_miss_num_map(a44(indx));
136 t(ddindx).accrual_rule_yn := a45(indx);
137 t(ddindx).source_column_1 := a46(indx);
138 t(ddindx).source_value_1 := rosetta_g_miss_num_map(a47(indx));
139 t(ddindx).source_column_2 := a48(indx);
140 t(ddindx).source_value_2 := rosetta_g_miss_num_map(a49(indx));
141 t(ddindx).source_column_3 := a50(indx);
142 t(ddindx).source_value_3 := rosetta_g_miss_num_map(a51(indx));
143 t(ddindx).canceled_date := rosetta_g_miss_date_in_map(a52(indx));
144 t(ddindx).tax_line_id := rosetta_g_miss_num_map(a53(indx));
145 t(ddindx).stream_type_code := a54(indx);
146 t(ddindx).stream_type_purpose := a55(indx);
147 t(ddindx).asset_book_type_name := a56(indx);
148 t(ddindx).upgrade_status_flag := a57(indx);
149 ddindx := ddindx+1;
150 if a0.last =indx
151 then exit;
152 end if;
153 indx := a0.next(indx);
154 end loop;
155 end if;
156 end if;
157 end rosetta_table_copy_in_p2;
158 procedure rosetta_table_copy_out_p2(t okl_tcl_pvt.tcl_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
159 , a1 out nocopy JTF_NUMBER_TABLE
160 , a2 out nocopy JTF_NUMBER_TABLE
161 , a3 out nocopy JTF_VARCHAR2_TABLE_100
162 , a4 out nocopy JTF_NUMBER_TABLE
163 , a5 out nocopy JTF_NUMBER_TABLE
164 , a6 out nocopy JTF_NUMBER_TABLE
165 , a7 out nocopy JTF_NUMBER_TABLE
166 , a8 out nocopy JTF_NUMBER_TABLE
167 , a9 out nocopy JTF_VARCHAR2_TABLE_100
168 , a10 out nocopy JTF_NUMBER_TABLE
169 , a11 out nocopy JTF_NUMBER_TABLE
170 , a12 out nocopy JTF_DATE_TABLE
171 , a13 out nocopy JTF_NUMBER_TABLE
172 , a14 out nocopy JTF_DATE_TABLE
173 , a15 out nocopy JTF_NUMBER_TABLE
174 , a16 out nocopy JTF_VARCHAR2_TABLE_2000
175 , a17 out nocopy JTF_NUMBER_TABLE
176 , a18 out nocopy JTF_VARCHAR2_TABLE_100
177 , a19 out nocopy JTF_NUMBER_TABLE
178 , a20 out nocopy JTF_NUMBER_TABLE
179 , a21 out nocopy JTF_VARCHAR2_TABLE_200
180 , a22 out nocopy JTF_NUMBER_TABLE
181 , a23 out nocopy JTF_DATE_TABLE
182 , a24 out nocopy JTF_VARCHAR2_TABLE_100
183 , a25 out nocopy JTF_VARCHAR2_TABLE_500
184 , a26 out nocopy JTF_VARCHAR2_TABLE_500
185 , a27 out nocopy JTF_VARCHAR2_TABLE_500
186 , a28 out nocopy JTF_VARCHAR2_TABLE_500
187 , a29 out nocopy JTF_VARCHAR2_TABLE_500
188 , a30 out nocopy JTF_VARCHAR2_TABLE_500
189 , a31 out nocopy JTF_VARCHAR2_TABLE_500
190 , a32 out nocopy JTF_VARCHAR2_TABLE_500
191 , a33 out nocopy JTF_VARCHAR2_TABLE_500
192 , a34 out nocopy JTF_VARCHAR2_TABLE_500
193 , a35 out nocopy JTF_VARCHAR2_TABLE_500
194 , a36 out nocopy JTF_VARCHAR2_TABLE_500
195 , a37 out nocopy JTF_VARCHAR2_TABLE_500
196 , a38 out nocopy JTF_VARCHAR2_TABLE_500
197 , a39 out nocopy JTF_VARCHAR2_TABLE_500
198 , a40 out nocopy JTF_NUMBER_TABLE
199 , a41 out nocopy JTF_NUMBER_TABLE
200 , a42 out nocopy JTF_NUMBER_TABLE
201 , a43 out nocopy JTF_NUMBER_TABLE
202 , a44 out nocopy JTF_NUMBER_TABLE
203 , a45 out nocopy JTF_VARCHAR2_TABLE_100
204 , a46 out nocopy JTF_VARCHAR2_TABLE_200
205 , a47 out nocopy JTF_NUMBER_TABLE
206 , a48 out nocopy JTF_VARCHAR2_TABLE_200
207 , a49 out nocopy JTF_NUMBER_TABLE
208 , a50 out nocopy JTF_VARCHAR2_TABLE_200
209 , a51 out nocopy JTF_NUMBER_TABLE
210 , a52 out nocopy JTF_DATE_TABLE
211 , a53 out nocopy JTF_NUMBER_TABLE
212 , a54 out nocopy JTF_VARCHAR2_TABLE_200
213 , a55 out nocopy JTF_VARCHAR2_TABLE_300
214 , a56 out nocopy JTF_VARCHAR2_TABLE_100
215 , a57 out nocopy JTF_VARCHAR2_TABLE_100
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_NUMBER_TABLE();
229 a9 := JTF_VARCHAR2_TABLE_100();
230 a10 := JTF_NUMBER_TABLE();
231 a11 := JTF_NUMBER_TABLE();
232 a12 := JTF_DATE_TABLE();
233 a13 := JTF_NUMBER_TABLE();
234 a14 := JTF_DATE_TABLE();
235 a15 := JTF_NUMBER_TABLE();
236 a16 := JTF_VARCHAR2_TABLE_2000();
237 a17 := JTF_NUMBER_TABLE();
238 a18 := JTF_VARCHAR2_TABLE_100();
239 a19 := JTF_NUMBER_TABLE();
240 a20 := JTF_NUMBER_TABLE();
241 a21 := JTF_VARCHAR2_TABLE_200();
242 a22 := JTF_NUMBER_TABLE();
243 a23 := JTF_DATE_TABLE();
244 a24 := JTF_VARCHAR2_TABLE_100();
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_VARCHAR2_TABLE_500();
253 a33 := JTF_VARCHAR2_TABLE_500();
254 a34 := JTF_VARCHAR2_TABLE_500();
255 a35 := JTF_VARCHAR2_TABLE_500();
256 a36 := JTF_VARCHAR2_TABLE_500();
257 a37 := JTF_VARCHAR2_TABLE_500();
258 a38 := JTF_VARCHAR2_TABLE_500();
259 a39 := JTF_VARCHAR2_TABLE_500();
260 a40 := JTF_NUMBER_TABLE();
261 a41 := JTF_NUMBER_TABLE();
262 a42 := JTF_NUMBER_TABLE();
263 a43 := JTF_NUMBER_TABLE();
264 a44 := JTF_NUMBER_TABLE();
265 a45 := JTF_VARCHAR2_TABLE_100();
266 a46 := JTF_VARCHAR2_TABLE_200();
267 a47 := JTF_NUMBER_TABLE();
268 a48 := JTF_VARCHAR2_TABLE_200();
269 a49 := JTF_NUMBER_TABLE();
270 a50 := JTF_VARCHAR2_TABLE_200();
271 a51 := JTF_NUMBER_TABLE();
272 a52 := JTF_DATE_TABLE();
273 a53 := JTF_NUMBER_TABLE();
274 a54 := JTF_VARCHAR2_TABLE_200();
275 a55 := JTF_VARCHAR2_TABLE_300();
276 a56 := JTF_VARCHAR2_TABLE_100();
277 a57 := JTF_VARCHAR2_TABLE_100();
278 else
279 a0 := JTF_NUMBER_TABLE();
280 a1 := JTF_NUMBER_TABLE();
281 a2 := JTF_NUMBER_TABLE();
282 a3 := JTF_VARCHAR2_TABLE_100();
283 a4 := JTF_NUMBER_TABLE();
284 a5 := JTF_NUMBER_TABLE();
285 a6 := JTF_NUMBER_TABLE();
286 a7 := JTF_NUMBER_TABLE();
287 a8 := JTF_NUMBER_TABLE();
288 a9 := JTF_VARCHAR2_TABLE_100();
289 a10 := JTF_NUMBER_TABLE();
290 a11 := JTF_NUMBER_TABLE();
291 a12 := JTF_DATE_TABLE();
292 a13 := JTF_NUMBER_TABLE();
293 a14 := JTF_DATE_TABLE();
294 a15 := JTF_NUMBER_TABLE();
295 a16 := JTF_VARCHAR2_TABLE_2000();
296 a17 := JTF_NUMBER_TABLE();
297 a18 := JTF_VARCHAR2_TABLE_100();
298 a19 := JTF_NUMBER_TABLE();
299 a20 := JTF_NUMBER_TABLE();
300 a21 := JTF_VARCHAR2_TABLE_200();
301 a22 := JTF_NUMBER_TABLE();
302 a23 := JTF_DATE_TABLE();
303 a24 := JTF_VARCHAR2_TABLE_100();
304 a25 := JTF_VARCHAR2_TABLE_500();
305 a26 := JTF_VARCHAR2_TABLE_500();
306 a27 := JTF_VARCHAR2_TABLE_500();
307 a28 := JTF_VARCHAR2_TABLE_500();
308 a29 := JTF_VARCHAR2_TABLE_500();
309 a30 := JTF_VARCHAR2_TABLE_500();
310 a31 := JTF_VARCHAR2_TABLE_500();
311 a32 := JTF_VARCHAR2_TABLE_500();
312 a33 := JTF_VARCHAR2_TABLE_500();
313 a34 := JTF_VARCHAR2_TABLE_500();
314 a35 := JTF_VARCHAR2_TABLE_500();
315 a36 := JTF_VARCHAR2_TABLE_500();
316 a37 := JTF_VARCHAR2_TABLE_500();
317 a38 := JTF_VARCHAR2_TABLE_500();
318 a39 := JTF_VARCHAR2_TABLE_500();
319 a40 := JTF_NUMBER_TABLE();
320 a41 := JTF_NUMBER_TABLE();
321 a42 := JTF_NUMBER_TABLE();
322 a43 := JTF_NUMBER_TABLE();
323 a44 := JTF_NUMBER_TABLE();
324 a45 := JTF_VARCHAR2_TABLE_100();
325 a46 := JTF_VARCHAR2_TABLE_200();
326 a47 := JTF_NUMBER_TABLE();
327 a48 := JTF_VARCHAR2_TABLE_200();
328 a49 := JTF_NUMBER_TABLE();
329 a50 := JTF_VARCHAR2_TABLE_200();
330 a51 := JTF_NUMBER_TABLE();
331 a52 := JTF_DATE_TABLE();
332 a53 := JTF_NUMBER_TABLE();
333 a54 := JTF_VARCHAR2_TABLE_200();
334 a55 := JTF_VARCHAR2_TABLE_300();
335 a56 := JTF_VARCHAR2_TABLE_100();
336 a57 := JTF_VARCHAR2_TABLE_100();
337 if t.count > 0 then
338 a0.extend(t.count);
339 a1.extend(t.count);
340 a2.extend(t.count);
341 a3.extend(t.count);
342 a4.extend(t.count);
343 a5.extend(t.count);
344 a6.extend(t.count);
345 a7.extend(t.count);
346 a8.extend(t.count);
347 a9.extend(t.count);
348 a10.extend(t.count);
349 a11.extend(t.count);
350 a12.extend(t.count);
351 a13.extend(t.count);
352 a14.extend(t.count);
353 a15.extend(t.count);
354 a16.extend(t.count);
355 a17.extend(t.count);
356 a18.extend(t.count);
357 a19.extend(t.count);
358 a20.extend(t.count);
359 a21.extend(t.count);
360 a22.extend(t.count);
361 a23.extend(t.count);
362 a24.extend(t.count);
363 a25.extend(t.count);
364 a26.extend(t.count);
365 a27.extend(t.count);
366 a28.extend(t.count);
367 a29.extend(t.count);
368 a30.extend(t.count);
369 a31.extend(t.count);
370 a32.extend(t.count);
371 a33.extend(t.count);
372 a34.extend(t.count);
373 a35.extend(t.count);
374 a36.extend(t.count);
375 a37.extend(t.count);
376 a38.extend(t.count);
377 a39.extend(t.count);
378 a40.extend(t.count);
379 a41.extend(t.count);
380 a42.extend(t.count);
381 a43.extend(t.count);
382 a44.extend(t.count);
383 a45.extend(t.count);
384 a46.extend(t.count);
385 a47.extend(t.count);
386 a48.extend(t.count);
387 a49.extend(t.count);
388 a50.extend(t.count);
389 a51.extend(t.count);
390 a52.extend(t.count);
391 a53.extend(t.count);
392 a54.extend(t.count);
393 a55.extend(t.count);
394 a56.extend(t.count);
395 a57.extend(t.count);
396 ddindx := t.first;
397 indx := 1;
398 while true loop
399 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
400 a1(indx) := rosetta_g_miss_num_map(t(ddindx).khr_id);
401 a2(indx) := rosetta_g_miss_num_map(t(ddindx).kle_id);
402 a3(indx) := t(ddindx).before_transfer_yn;
403 a4(indx) := rosetta_g_miss_num_map(t(ddindx).tcn_id);
404 a5(indx) := rosetta_g_miss_num_map(t(ddindx).rct_id);
405 a6(indx) := rosetta_g_miss_num_map(t(ddindx).btc_id);
406 a7(indx) := rosetta_g_miss_num_map(t(ddindx).sty_id);
407 a8(indx) := rosetta_g_miss_num_map(t(ddindx).line_number);
408 a9(indx) := t(ddindx).tcl_type;
409 a10(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
410 a11(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
411 a12(indx) := t(ddindx).creation_date;
412 a13(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
413 a14(indx) := t(ddindx).last_update_date;
414 a15(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
415 a16(indx) := t(ddindx).description;
416 a17(indx) := rosetta_g_miss_num_map(t(ddindx).program_id);
417 a18(indx) := t(ddindx).gl_reversal_yn;
418 a19(indx) := rosetta_g_miss_num_map(t(ddindx).amount);
419 a20(indx) := rosetta_g_miss_num_map(t(ddindx).program_application_id);
420 a21(indx) := t(ddindx).currency_code;
421 a22(indx) := rosetta_g_miss_num_map(t(ddindx).request_id);
422 a23(indx) := t(ddindx).program_update_date;
423 a24(indx) := t(ddindx).attribute_category;
424 a25(indx) := t(ddindx).attribute1;
425 a26(indx) := t(ddindx).attribute2;
426 a27(indx) := t(ddindx).attribute3;
427 a28(indx) := t(ddindx).attribute4;
428 a29(indx) := t(ddindx).attribute5;
429 a30(indx) := t(ddindx).attribute6;
430 a31(indx) := t(ddindx).attribute7;
431 a32(indx) := t(ddindx).attribute8;
432 a33(indx) := t(ddindx).attribute9;
433 a34(indx) := t(ddindx).attribute10;
434 a35(indx) := t(ddindx).attribute11;
435 a36(indx) := t(ddindx).attribute12;
436 a37(indx) := t(ddindx).attribute13;
437 a38(indx) := t(ddindx).attribute14;
438 a39(indx) := t(ddindx).attribute15;
439 a40(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
440 a41(indx) := rosetta_g_miss_num_map(t(ddindx).avl_id);
441 a42(indx) := rosetta_g_miss_num_map(t(ddindx).bkt_id);
442 a43(indx) := rosetta_g_miss_num_map(t(ddindx).kle_id_new);
443 a44(indx) := rosetta_g_miss_num_map(t(ddindx).percentage);
444 a45(indx) := t(ddindx).accrual_rule_yn;
445 a46(indx) := t(ddindx).source_column_1;
446 a47(indx) := rosetta_g_miss_num_map(t(ddindx).source_value_1);
447 a48(indx) := t(ddindx).source_column_2;
448 a49(indx) := rosetta_g_miss_num_map(t(ddindx).source_value_2);
449 a50(indx) := t(ddindx).source_column_3;
450 a51(indx) := rosetta_g_miss_num_map(t(ddindx).source_value_3);
451 a52(indx) := t(ddindx).canceled_date;
452 a53(indx) := rosetta_g_miss_num_map(t(ddindx).tax_line_id);
453 a54(indx) := t(ddindx).stream_type_code;
454 a55(indx) := t(ddindx).stream_type_purpose;
455 a56(indx) := t(ddindx).asset_book_type_name;
456 a57(indx) := t(ddindx).upgrade_status_flag;
457 indx := indx+1;
458 if t.last =ddindx
459 then exit;
460 end if;
461 ddindx := t.next(ddindx);
462 end loop;
463 end if;
464 end if;
465 end rosetta_table_copy_out_p2;
466
467 procedure rosetta_table_copy_in_p5(t out nocopy okl_tcl_pvt.tclv_tbl_type, a0 JTF_NUMBER_TABLE
468 , a1 JTF_NUMBER_TABLE
469 , a2 JTF_NUMBER_TABLE
470 , a3 JTF_NUMBER_TABLE
471 , a4 JTF_NUMBER_TABLE
472 , a5 JTF_NUMBER_TABLE
473 , a6 JTF_NUMBER_TABLE
474 , a7 JTF_NUMBER_TABLE
475 , a8 JTF_VARCHAR2_TABLE_100
476 , a9 JTF_NUMBER_TABLE
477 , a10 JTF_VARCHAR2_TABLE_2000
478 , a11 JTF_NUMBER_TABLE
479 , a12 JTF_VARCHAR2_TABLE_200
480 , a13 JTF_VARCHAR2_TABLE_100
481 , a14 JTF_VARCHAR2_TABLE_100
482 , a15 JTF_VARCHAR2_TABLE_500
483 , a16 JTF_VARCHAR2_TABLE_500
484 , a17 JTF_VARCHAR2_TABLE_500
485 , a18 JTF_VARCHAR2_TABLE_500
486 , a19 JTF_VARCHAR2_TABLE_500
487 , a20 JTF_VARCHAR2_TABLE_500
488 , a21 JTF_VARCHAR2_TABLE_500
489 , a22 JTF_VARCHAR2_TABLE_500
490 , a23 JTF_VARCHAR2_TABLE_500
491 , a24 JTF_VARCHAR2_TABLE_500
492 , a25 JTF_VARCHAR2_TABLE_500
493 , a26 JTF_VARCHAR2_TABLE_500
494 , a27 JTF_VARCHAR2_TABLE_500
495 , a28 JTF_VARCHAR2_TABLE_500
496 , a29 JTF_VARCHAR2_TABLE_500
497 , a30 JTF_VARCHAR2_TABLE_100
498 , a31 JTF_NUMBER_TABLE
499 , a32 JTF_DATE_TABLE
500 , a33 JTF_NUMBER_TABLE
501 , a34 JTF_DATE_TABLE
502 , a35 JTF_NUMBER_TABLE
503 , a36 JTF_NUMBER_TABLE
504 , a37 JTF_NUMBER_TABLE
505 , a38 JTF_NUMBER_TABLE
506 , a39 JTF_DATE_TABLE
507 , a40 JTF_NUMBER_TABLE
508 , a41 JTF_NUMBER_TABLE
509 , a42 JTF_NUMBER_TABLE
510 , a43 JTF_NUMBER_TABLE
511 , a44 JTF_NUMBER_TABLE
512 , a45 JTF_VARCHAR2_TABLE_100
513 , a46 JTF_VARCHAR2_TABLE_200
514 , a47 JTF_NUMBER_TABLE
515 , a48 JTF_VARCHAR2_TABLE_200
516 , a49 JTF_NUMBER_TABLE
517 , a50 JTF_VARCHAR2_TABLE_200
518 , a51 JTF_NUMBER_TABLE
519 , a52 JTF_DATE_TABLE
520 , a53 JTF_NUMBER_TABLE
521 , a54 JTF_VARCHAR2_TABLE_200
522 , a55 JTF_VARCHAR2_TABLE_300
523 , a56 JTF_VARCHAR2_TABLE_100
524 , a57 JTF_VARCHAR2_TABLE_100
525 ) as
526 ddindx binary_integer; indx binary_integer;
527 begin
528 if a0 is not null and a0.count > 0 then
529 if a0.count > 0 then
530 indx := a0.first;
531 ddindx := 1;
532 while true loop
533 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
534 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
535 t(ddindx).sty_id := rosetta_g_miss_num_map(a2(indx));
536 t(ddindx).rct_id := rosetta_g_miss_num_map(a3(indx));
537 t(ddindx).btc_id := rosetta_g_miss_num_map(a4(indx));
538 t(ddindx).tcn_id := rosetta_g_miss_num_map(a5(indx));
539 t(ddindx).khr_id := rosetta_g_miss_num_map(a6(indx));
540 t(ddindx).kle_id := rosetta_g_miss_num_map(a7(indx));
541 t(ddindx).before_transfer_yn := a8(indx);
542 t(ddindx).line_number := rosetta_g_miss_num_map(a9(indx));
543 t(ddindx).description := a10(indx);
544 t(ddindx).amount := rosetta_g_miss_num_map(a11(indx));
545 t(ddindx).currency_code := a12(indx);
546 t(ddindx).gl_reversal_yn := a13(indx);
547 t(ddindx).attribute_category := a14(indx);
548 t(ddindx).attribute1 := a15(indx);
549 t(ddindx).attribute2 := a16(indx);
550 t(ddindx).attribute3 := a17(indx);
551 t(ddindx).attribute4 := a18(indx);
552 t(ddindx).attribute5 := a19(indx);
553 t(ddindx).attribute6 := a20(indx);
554 t(ddindx).attribute7 := a21(indx);
555 t(ddindx).attribute8 := a22(indx);
556 t(ddindx).attribute9 := a23(indx);
557 t(ddindx).attribute10 := a24(indx);
558 t(ddindx).attribute11 := a25(indx);
559 t(ddindx).attribute12 := a26(indx);
560 t(ddindx).attribute13 := a27(indx);
561 t(ddindx).attribute14 := a28(indx);
562 t(ddindx).attribute15 := a29(indx);
563 t(ddindx).tcl_type := a30(indx);
564 t(ddindx).created_by := rosetta_g_miss_num_map(a31(indx));
565 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a32(indx));
566 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a33(indx));
567 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a34(indx));
568 t(ddindx).org_id := rosetta_g_miss_num_map(a35(indx));
569 t(ddindx).program_id := rosetta_g_miss_num_map(a36(indx));
570 t(ddindx).program_application_id := rosetta_g_miss_num_map(a37(indx));
571 t(ddindx).request_id := rosetta_g_miss_num_map(a38(indx));
572 t(ddindx).program_update_date := rosetta_g_miss_date_in_map(a39(indx));
573 t(ddindx).last_update_login := rosetta_g_miss_num_map(a40(indx));
574 t(ddindx).avl_id := rosetta_g_miss_num_map(a41(indx));
575 t(ddindx).bkt_id := rosetta_g_miss_num_map(a42(indx));
576 t(ddindx).kle_id_new := rosetta_g_miss_num_map(a43(indx));
577 t(ddindx).percentage := rosetta_g_miss_num_map(a44(indx));
578 t(ddindx).accrual_rule_yn := a45(indx);
579 t(ddindx).source_column_1 := a46(indx);
580 t(ddindx).source_value_1 := rosetta_g_miss_num_map(a47(indx));
581 t(ddindx).source_column_2 := a48(indx);
582 t(ddindx).source_value_2 := rosetta_g_miss_num_map(a49(indx));
583 t(ddindx).source_column_3 := a50(indx);
584 t(ddindx).source_value_3 := rosetta_g_miss_num_map(a51(indx));
585 t(ddindx).canceled_date := rosetta_g_miss_date_in_map(a52(indx));
586 t(ddindx).tax_line_id := rosetta_g_miss_num_map(a53(indx));
587 t(ddindx).stream_type_code := a54(indx);
588 t(ddindx).stream_type_purpose := a55(indx);
589 t(ddindx).asset_book_type_name := a56(indx);
590 t(ddindx).upgrade_status_flag := a57(indx);
591 ddindx := ddindx+1;
592 if a0.last =indx
593 then exit;
594 end if;
595 indx := a0.next(indx);
596 end loop;
597 end if;
598 end if;
599 end rosetta_table_copy_in_p5;
600 procedure rosetta_table_copy_out_p5(t okl_tcl_pvt.tclv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
601 , a1 out nocopy JTF_NUMBER_TABLE
602 , a2 out nocopy JTF_NUMBER_TABLE
603 , a3 out nocopy JTF_NUMBER_TABLE
604 , a4 out nocopy JTF_NUMBER_TABLE
605 , a5 out nocopy JTF_NUMBER_TABLE
606 , a6 out nocopy JTF_NUMBER_TABLE
607 , a7 out nocopy JTF_NUMBER_TABLE
608 , a8 out nocopy JTF_VARCHAR2_TABLE_100
609 , a9 out nocopy JTF_NUMBER_TABLE
610 , a10 out nocopy JTF_VARCHAR2_TABLE_2000
611 , a11 out nocopy JTF_NUMBER_TABLE
612 , a12 out nocopy JTF_VARCHAR2_TABLE_200
613 , a13 out nocopy JTF_VARCHAR2_TABLE_100
614 , a14 out nocopy JTF_VARCHAR2_TABLE_100
615 , a15 out nocopy JTF_VARCHAR2_TABLE_500
616 , a16 out nocopy JTF_VARCHAR2_TABLE_500
617 , a17 out nocopy JTF_VARCHAR2_TABLE_500
618 , a18 out nocopy JTF_VARCHAR2_TABLE_500
619 , a19 out nocopy JTF_VARCHAR2_TABLE_500
620 , a20 out nocopy JTF_VARCHAR2_TABLE_500
621 , a21 out nocopy JTF_VARCHAR2_TABLE_500
622 , a22 out nocopy JTF_VARCHAR2_TABLE_500
623 , a23 out nocopy JTF_VARCHAR2_TABLE_500
624 , a24 out nocopy JTF_VARCHAR2_TABLE_500
625 , a25 out nocopy JTF_VARCHAR2_TABLE_500
626 , a26 out nocopy JTF_VARCHAR2_TABLE_500
627 , a27 out nocopy JTF_VARCHAR2_TABLE_500
628 , a28 out nocopy JTF_VARCHAR2_TABLE_500
629 , a29 out nocopy JTF_VARCHAR2_TABLE_500
630 , a30 out nocopy JTF_VARCHAR2_TABLE_100
631 , a31 out nocopy JTF_NUMBER_TABLE
632 , a32 out nocopy JTF_DATE_TABLE
633 , a33 out nocopy JTF_NUMBER_TABLE
634 , a34 out nocopy JTF_DATE_TABLE
635 , a35 out nocopy JTF_NUMBER_TABLE
636 , a36 out nocopy JTF_NUMBER_TABLE
637 , a37 out nocopy JTF_NUMBER_TABLE
638 , a38 out nocopy JTF_NUMBER_TABLE
639 , a39 out nocopy JTF_DATE_TABLE
640 , a40 out nocopy JTF_NUMBER_TABLE
641 , a41 out nocopy JTF_NUMBER_TABLE
642 , a42 out nocopy JTF_NUMBER_TABLE
643 , a43 out nocopy JTF_NUMBER_TABLE
644 , a44 out nocopy JTF_NUMBER_TABLE
645 , a45 out nocopy JTF_VARCHAR2_TABLE_100
646 , a46 out nocopy JTF_VARCHAR2_TABLE_200
647 , a47 out nocopy JTF_NUMBER_TABLE
648 , a48 out nocopy JTF_VARCHAR2_TABLE_200
649 , a49 out nocopy JTF_NUMBER_TABLE
650 , a50 out nocopy JTF_VARCHAR2_TABLE_200
651 , a51 out nocopy JTF_NUMBER_TABLE
652 , a52 out nocopy JTF_DATE_TABLE
653 , a53 out nocopy JTF_NUMBER_TABLE
654 , a54 out nocopy JTF_VARCHAR2_TABLE_200
655 , a55 out nocopy JTF_VARCHAR2_TABLE_300
656 , a56 out nocopy JTF_VARCHAR2_TABLE_100
657 , a57 out nocopy JTF_VARCHAR2_TABLE_100
658 ) as
659 ddindx binary_integer; indx binary_integer;
660 begin
661 if t is null or t.count = 0 then
662 a0 := JTF_NUMBER_TABLE();
663 a1 := JTF_NUMBER_TABLE();
664 a2 := JTF_NUMBER_TABLE();
665 a3 := JTF_NUMBER_TABLE();
666 a4 := JTF_NUMBER_TABLE();
667 a5 := JTF_NUMBER_TABLE();
668 a6 := JTF_NUMBER_TABLE();
669 a7 := JTF_NUMBER_TABLE();
670 a8 := JTF_VARCHAR2_TABLE_100();
671 a9 := JTF_NUMBER_TABLE();
672 a10 := JTF_VARCHAR2_TABLE_2000();
673 a11 := JTF_NUMBER_TABLE();
674 a12 := JTF_VARCHAR2_TABLE_200();
675 a13 := JTF_VARCHAR2_TABLE_100();
676 a14 := JTF_VARCHAR2_TABLE_100();
677 a15 := JTF_VARCHAR2_TABLE_500();
678 a16 := JTF_VARCHAR2_TABLE_500();
679 a17 := JTF_VARCHAR2_TABLE_500();
680 a18 := JTF_VARCHAR2_TABLE_500();
681 a19 := JTF_VARCHAR2_TABLE_500();
682 a20 := JTF_VARCHAR2_TABLE_500();
683 a21 := JTF_VARCHAR2_TABLE_500();
684 a22 := JTF_VARCHAR2_TABLE_500();
685 a23 := JTF_VARCHAR2_TABLE_500();
686 a24 := JTF_VARCHAR2_TABLE_500();
687 a25 := JTF_VARCHAR2_TABLE_500();
688 a26 := JTF_VARCHAR2_TABLE_500();
689 a27 := JTF_VARCHAR2_TABLE_500();
690 a28 := JTF_VARCHAR2_TABLE_500();
691 a29 := JTF_VARCHAR2_TABLE_500();
692 a30 := JTF_VARCHAR2_TABLE_100();
693 a31 := JTF_NUMBER_TABLE();
694 a32 := JTF_DATE_TABLE();
695 a33 := JTF_NUMBER_TABLE();
696 a34 := JTF_DATE_TABLE();
697 a35 := JTF_NUMBER_TABLE();
698 a36 := JTF_NUMBER_TABLE();
699 a37 := JTF_NUMBER_TABLE();
700 a38 := JTF_NUMBER_TABLE();
701 a39 := JTF_DATE_TABLE();
702 a40 := JTF_NUMBER_TABLE();
703 a41 := JTF_NUMBER_TABLE();
704 a42 := JTF_NUMBER_TABLE();
705 a43 := JTF_NUMBER_TABLE();
706 a44 := JTF_NUMBER_TABLE();
707 a45 := JTF_VARCHAR2_TABLE_100();
708 a46 := JTF_VARCHAR2_TABLE_200();
709 a47 := JTF_NUMBER_TABLE();
710 a48 := JTF_VARCHAR2_TABLE_200();
711 a49 := JTF_NUMBER_TABLE();
712 a50 := JTF_VARCHAR2_TABLE_200();
713 a51 := JTF_NUMBER_TABLE();
714 a52 := JTF_DATE_TABLE();
715 a53 := JTF_NUMBER_TABLE();
716 a54 := JTF_VARCHAR2_TABLE_200();
717 a55 := JTF_VARCHAR2_TABLE_300();
718 a56 := JTF_VARCHAR2_TABLE_100();
719 a57 := JTF_VARCHAR2_TABLE_100();
720 else
721 a0 := JTF_NUMBER_TABLE();
722 a1 := JTF_NUMBER_TABLE();
723 a2 := JTF_NUMBER_TABLE();
724 a3 := JTF_NUMBER_TABLE();
725 a4 := JTF_NUMBER_TABLE();
726 a5 := JTF_NUMBER_TABLE();
727 a6 := JTF_NUMBER_TABLE();
728 a7 := JTF_NUMBER_TABLE();
729 a8 := JTF_VARCHAR2_TABLE_100();
730 a9 := JTF_NUMBER_TABLE();
731 a10 := JTF_VARCHAR2_TABLE_2000();
732 a11 := JTF_NUMBER_TABLE();
733 a12 := JTF_VARCHAR2_TABLE_200();
734 a13 := JTF_VARCHAR2_TABLE_100();
735 a14 := JTF_VARCHAR2_TABLE_100();
736 a15 := JTF_VARCHAR2_TABLE_500();
737 a16 := JTF_VARCHAR2_TABLE_500();
738 a17 := JTF_VARCHAR2_TABLE_500();
739 a18 := JTF_VARCHAR2_TABLE_500();
740 a19 := JTF_VARCHAR2_TABLE_500();
741 a20 := JTF_VARCHAR2_TABLE_500();
742 a21 := JTF_VARCHAR2_TABLE_500();
743 a22 := JTF_VARCHAR2_TABLE_500();
744 a23 := JTF_VARCHAR2_TABLE_500();
745 a24 := JTF_VARCHAR2_TABLE_500();
746 a25 := JTF_VARCHAR2_TABLE_500();
747 a26 := JTF_VARCHAR2_TABLE_500();
748 a27 := JTF_VARCHAR2_TABLE_500();
749 a28 := JTF_VARCHAR2_TABLE_500();
750 a29 := JTF_VARCHAR2_TABLE_500();
751 a30 := JTF_VARCHAR2_TABLE_100();
752 a31 := JTF_NUMBER_TABLE();
753 a32 := JTF_DATE_TABLE();
754 a33 := JTF_NUMBER_TABLE();
755 a34 := JTF_DATE_TABLE();
756 a35 := JTF_NUMBER_TABLE();
757 a36 := JTF_NUMBER_TABLE();
758 a37 := JTF_NUMBER_TABLE();
759 a38 := JTF_NUMBER_TABLE();
760 a39 := JTF_DATE_TABLE();
761 a40 := JTF_NUMBER_TABLE();
762 a41 := JTF_NUMBER_TABLE();
763 a42 := JTF_NUMBER_TABLE();
764 a43 := JTF_NUMBER_TABLE();
765 a44 := JTF_NUMBER_TABLE();
766 a45 := JTF_VARCHAR2_TABLE_100();
767 a46 := JTF_VARCHAR2_TABLE_200();
768 a47 := JTF_NUMBER_TABLE();
769 a48 := JTF_VARCHAR2_TABLE_200();
770 a49 := JTF_NUMBER_TABLE();
771 a50 := JTF_VARCHAR2_TABLE_200();
772 a51 := JTF_NUMBER_TABLE();
773 a52 := JTF_DATE_TABLE();
774 a53 := JTF_NUMBER_TABLE();
775 a54 := JTF_VARCHAR2_TABLE_200();
776 a55 := JTF_VARCHAR2_TABLE_300();
777 a56 := JTF_VARCHAR2_TABLE_100();
778 a57 := JTF_VARCHAR2_TABLE_100();
779 if t.count > 0 then
780 a0.extend(t.count);
781 a1.extend(t.count);
782 a2.extend(t.count);
783 a3.extend(t.count);
784 a4.extend(t.count);
785 a5.extend(t.count);
786 a6.extend(t.count);
787 a7.extend(t.count);
788 a8.extend(t.count);
789 a9.extend(t.count);
790 a10.extend(t.count);
791 a11.extend(t.count);
792 a12.extend(t.count);
793 a13.extend(t.count);
794 a14.extend(t.count);
795 a15.extend(t.count);
796 a16.extend(t.count);
797 a17.extend(t.count);
798 a18.extend(t.count);
799 a19.extend(t.count);
800 a20.extend(t.count);
801 a21.extend(t.count);
802 a22.extend(t.count);
803 a23.extend(t.count);
804 a24.extend(t.count);
805 a25.extend(t.count);
806 a26.extend(t.count);
807 a27.extend(t.count);
808 a28.extend(t.count);
809 a29.extend(t.count);
810 a30.extend(t.count);
811 a31.extend(t.count);
812 a32.extend(t.count);
813 a33.extend(t.count);
814 a34.extend(t.count);
815 a35.extend(t.count);
816 a36.extend(t.count);
817 a37.extend(t.count);
818 a38.extend(t.count);
819 a39.extend(t.count);
820 a40.extend(t.count);
821 a41.extend(t.count);
822 a42.extend(t.count);
823 a43.extend(t.count);
824 a44.extend(t.count);
825 a45.extend(t.count);
826 a46.extend(t.count);
827 a47.extend(t.count);
828 a48.extend(t.count);
829 a49.extend(t.count);
830 a50.extend(t.count);
831 a51.extend(t.count);
832 a52.extend(t.count);
833 a53.extend(t.count);
834 a54.extend(t.count);
835 a55.extend(t.count);
836 a56.extend(t.count);
837 a57.extend(t.count);
838 ddindx := t.first;
839 indx := 1;
840 while true loop
841 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
842 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
843 a2(indx) := rosetta_g_miss_num_map(t(ddindx).sty_id);
844 a3(indx) := rosetta_g_miss_num_map(t(ddindx).rct_id);
845 a4(indx) := rosetta_g_miss_num_map(t(ddindx).btc_id);
846 a5(indx) := rosetta_g_miss_num_map(t(ddindx).tcn_id);
847 a6(indx) := rosetta_g_miss_num_map(t(ddindx).khr_id);
848 a7(indx) := rosetta_g_miss_num_map(t(ddindx).kle_id);
849 a8(indx) := t(ddindx).before_transfer_yn;
850 a9(indx) := rosetta_g_miss_num_map(t(ddindx).line_number);
851 a10(indx) := t(ddindx).description;
852 a11(indx) := rosetta_g_miss_num_map(t(ddindx).amount);
853 a12(indx) := t(ddindx).currency_code;
854 a13(indx) := t(ddindx).gl_reversal_yn;
855 a14(indx) := t(ddindx).attribute_category;
856 a15(indx) := t(ddindx).attribute1;
857 a16(indx) := t(ddindx).attribute2;
858 a17(indx) := t(ddindx).attribute3;
859 a18(indx) := t(ddindx).attribute4;
860 a19(indx) := t(ddindx).attribute5;
861 a20(indx) := t(ddindx).attribute6;
862 a21(indx) := t(ddindx).attribute7;
863 a22(indx) := t(ddindx).attribute8;
864 a23(indx) := t(ddindx).attribute9;
865 a24(indx) := t(ddindx).attribute10;
866 a25(indx) := t(ddindx).attribute11;
867 a26(indx) := t(ddindx).attribute12;
868 a27(indx) := t(ddindx).attribute13;
869 a28(indx) := t(ddindx).attribute14;
870 a29(indx) := t(ddindx).attribute15;
871 a30(indx) := t(ddindx).tcl_type;
872 a31(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
873 a32(indx) := t(ddindx).creation_date;
874 a33(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
875 a34(indx) := t(ddindx).last_update_date;
876 a35(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
877 a36(indx) := rosetta_g_miss_num_map(t(ddindx).program_id);
878 a37(indx) := rosetta_g_miss_num_map(t(ddindx).program_application_id);
879 a38(indx) := rosetta_g_miss_num_map(t(ddindx).request_id);
880 a39(indx) := t(ddindx).program_update_date;
881 a40(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
882 a41(indx) := rosetta_g_miss_num_map(t(ddindx).avl_id);
883 a42(indx) := rosetta_g_miss_num_map(t(ddindx).bkt_id);
884 a43(indx) := rosetta_g_miss_num_map(t(ddindx).kle_id_new);
885 a44(indx) := rosetta_g_miss_num_map(t(ddindx).percentage);
886 a45(indx) := t(ddindx).accrual_rule_yn;
887 a46(indx) := t(ddindx).source_column_1;
888 a47(indx) := rosetta_g_miss_num_map(t(ddindx).source_value_1);
889 a48(indx) := t(ddindx).source_column_2;
890 a49(indx) := rosetta_g_miss_num_map(t(ddindx).source_value_2);
891 a50(indx) := t(ddindx).source_column_3;
892 a51(indx) := rosetta_g_miss_num_map(t(ddindx).source_value_3);
893 a52(indx) := t(ddindx).canceled_date;
894 a53(indx) := rosetta_g_miss_num_map(t(ddindx).tax_line_id);
895 a54(indx) := t(ddindx).stream_type_code;
896 a55(indx) := t(ddindx).stream_type_purpose;
897 a56(indx) := t(ddindx).asset_book_type_name;
898 a57(indx) := t(ddindx).upgrade_status_flag;
899 indx := indx+1;
900 if t.last =ddindx
901 then exit;
902 end if;
903 ddindx := t.next(ddindx);
904 end loop;
905 end if;
906 end if;
907 end rosetta_table_copy_out_p5;
908
909 procedure insert_row(p_api_version NUMBER
910 , p_init_msg_list VARCHAR2
911 , x_return_status out nocopy VARCHAR2
912 , x_msg_count out nocopy NUMBER
913 , x_msg_data out nocopy VARCHAR2
914 , p6_a0 out nocopy NUMBER
915 , p6_a1 out nocopy NUMBER
916 , p6_a2 out nocopy NUMBER
917 , p6_a3 out nocopy NUMBER
918 , p6_a4 out nocopy NUMBER
919 , p6_a5 out nocopy NUMBER
920 , p6_a6 out nocopy NUMBER
921 , p6_a7 out nocopy NUMBER
922 , p6_a8 out nocopy VARCHAR2
923 , p6_a9 out nocopy NUMBER
924 , p6_a10 out nocopy VARCHAR2
925 , p6_a11 out nocopy NUMBER
926 , p6_a12 out nocopy VARCHAR2
927 , p6_a13 out nocopy VARCHAR2
928 , p6_a14 out nocopy VARCHAR2
929 , p6_a15 out nocopy VARCHAR2
930 , p6_a16 out nocopy VARCHAR2
931 , p6_a17 out nocopy VARCHAR2
932 , p6_a18 out nocopy VARCHAR2
933 , p6_a19 out nocopy VARCHAR2
934 , p6_a20 out nocopy VARCHAR2
935 , p6_a21 out nocopy VARCHAR2
936 , p6_a22 out nocopy VARCHAR2
937 , p6_a23 out nocopy VARCHAR2
938 , p6_a24 out nocopy VARCHAR2
939 , p6_a25 out nocopy VARCHAR2
940 , p6_a26 out nocopy VARCHAR2
941 , p6_a27 out nocopy VARCHAR2
942 , p6_a28 out nocopy VARCHAR2
943 , p6_a29 out nocopy VARCHAR2
944 , p6_a30 out nocopy VARCHAR2
945 , p6_a31 out nocopy NUMBER
946 , p6_a32 out nocopy DATE
947 , p6_a33 out nocopy NUMBER
948 , p6_a34 out nocopy DATE
949 , p6_a35 out nocopy NUMBER
950 , p6_a36 out nocopy NUMBER
951 , p6_a37 out nocopy NUMBER
952 , p6_a38 out nocopy NUMBER
953 , p6_a39 out nocopy DATE
954 , p6_a40 out nocopy NUMBER
955 , p6_a41 out nocopy NUMBER
956 , p6_a42 out nocopy NUMBER
957 , p6_a43 out nocopy NUMBER
958 , p6_a44 out nocopy NUMBER
959 , p6_a45 out nocopy VARCHAR2
960 , p6_a46 out nocopy VARCHAR2
961 , p6_a47 out nocopy NUMBER
962 , p6_a48 out nocopy VARCHAR2
963 , p6_a49 out nocopy NUMBER
964 , p6_a50 out nocopy VARCHAR2
965 , p6_a51 out nocopy NUMBER
966 , p6_a52 out nocopy DATE
967 , p6_a53 out nocopy NUMBER
968 , p6_a54 out nocopy VARCHAR2
969 , p6_a55 out nocopy VARCHAR2
970 , p6_a56 out nocopy VARCHAR2
971 , p6_a57 out nocopy VARCHAR2
972 , p5_a0 NUMBER := 0-1962.0724
973 , p5_a1 NUMBER := 0-1962.0724
974 , p5_a2 NUMBER := 0-1962.0724
975 , p5_a3 NUMBER := 0-1962.0724
976 , p5_a4 NUMBER := 0-1962.0724
977 , p5_a5 NUMBER := 0-1962.0724
978 , p5_a6 NUMBER := 0-1962.0724
979 , p5_a7 NUMBER := 0-1962.0724
980 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
981 , p5_a9 NUMBER := 0-1962.0724
982 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
983 , p5_a11 NUMBER := 0-1962.0724
984 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
985 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
986 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
987 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
988 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
989 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
990 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
991 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
992 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
993 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
994 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
995 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
996 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
997 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
998 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
999 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
1000 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
1001 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
1002 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1003 , p5_a31 NUMBER := 0-1962.0724
1004 , p5_a32 DATE := fnd_api.g_miss_date
1005 , p5_a33 NUMBER := 0-1962.0724
1006 , p5_a34 DATE := fnd_api.g_miss_date
1007 , p5_a35 NUMBER := 0-1962.0724
1008 , p5_a36 NUMBER := 0-1962.0724
1009 , p5_a37 NUMBER := 0-1962.0724
1010 , p5_a38 NUMBER := 0-1962.0724
1011 , p5_a39 DATE := fnd_api.g_miss_date
1012 , p5_a40 NUMBER := 0-1962.0724
1013 , p5_a41 NUMBER := 0-1962.0724
1014 , p5_a42 NUMBER := 0-1962.0724
1015 , p5_a43 NUMBER := 0-1962.0724
1016 , p5_a44 NUMBER := 0-1962.0724
1017 , p5_a45 VARCHAR2 := fnd_api.g_miss_char
1018 , p5_a46 VARCHAR2 := fnd_api.g_miss_char
1019 , p5_a47 NUMBER := 0-1962.0724
1020 , p5_a48 VARCHAR2 := fnd_api.g_miss_char
1021 , p5_a49 NUMBER := 0-1962.0724
1022 , p5_a50 VARCHAR2 := fnd_api.g_miss_char
1023 , p5_a51 NUMBER := 0-1962.0724
1024 , p5_a52 DATE := fnd_api.g_miss_date
1025 , p5_a53 NUMBER := 0-1962.0724
1026 , p5_a54 VARCHAR2 := fnd_api.g_miss_char
1027 , p5_a55 VARCHAR2 := fnd_api.g_miss_char
1028 , p5_a56 VARCHAR2 := fnd_api.g_miss_char
1029 , p5_a57 VARCHAR2 := fnd_api.g_miss_char
1030 )
1031
1032 as
1033 ddp_tclv_rec okl_tcl_pvt.tclv_rec_type;
1034 ddx_tclv_rec okl_tcl_pvt.tclv_rec_type;
1035 ddindx binary_integer; indx binary_integer;
1036 begin
1037
1038 -- copy data to the local IN or IN-OUT args, if any
1039
1040
1041
1042
1043
1044 ddp_tclv_rec.id := rosetta_g_miss_num_map(p5_a0);
1045 ddp_tclv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1046 ddp_tclv_rec.sty_id := rosetta_g_miss_num_map(p5_a2);
1047 ddp_tclv_rec.rct_id := rosetta_g_miss_num_map(p5_a3);
1048 ddp_tclv_rec.btc_id := rosetta_g_miss_num_map(p5_a4);
1049 ddp_tclv_rec.tcn_id := rosetta_g_miss_num_map(p5_a5);
1050 ddp_tclv_rec.khr_id := rosetta_g_miss_num_map(p5_a6);
1051 ddp_tclv_rec.kle_id := rosetta_g_miss_num_map(p5_a7);
1052 ddp_tclv_rec.before_transfer_yn := p5_a8;
1053 ddp_tclv_rec.line_number := rosetta_g_miss_num_map(p5_a9);
1054 ddp_tclv_rec.description := p5_a10;
1055 ddp_tclv_rec.amount := rosetta_g_miss_num_map(p5_a11);
1056 ddp_tclv_rec.currency_code := p5_a12;
1057 ddp_tclv_rec.gl_reversal_yn := p5_a13;
1058 ddp_tclv_rec.attribute_category := p5_a14;
1059 ddp_tclv_rec.attribute1 := p5_a15;
1060 ddp_tclv_rec.attribute2 := p5_a16;
1061 ddp_tclv_rec.attribute3 := p5_a17;
1062 ddp_tclv_rec.attribute4 := p5_a18;
1063 ddp_tclv_rec.attribute5 := p5_a19;
1064 ddp_tclv_rec.attribute6 := p5_a20;
1065 ddp_tclv_rec.attribute7 := p5_a21;
1066 ddp_tclv_rec.attribute8 := p5_a22;
1067 ddp_tclv_rec.attribute9 := p5_a23;
1068 ddp_tclv_rec.attribute10 := p5_a24;
1069 ddp_tclv_rec.attribute11 := p5_a25;
1070 ddp_tclv_rec.attribute12 := p5_a26;
1071 ddp_tclv_rec.attribute13 := p5_a27;
1072 ddp_tclv_rec.attribute14 := p5_a28;
1073 ddp_tclv_rec.attribute15 := p5_a29;
1074 ddp_tclv_rec.tcl_type := p5_a30;
1075 ddp_tclv_rec.created_by := rosetta_g_miss_num_map(p5_a31);
1076 ddp_tclv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a32);
1077 ddp_tclv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a33);
1078 ddp_tclv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a34);
1079 ddp_tclv_rec.org_id := rosetta_g_miss_num_map(p5_a35);
1080 ddp_tclv_rec.program_id := rosetta_g_miss_num_map(p5_a36);
1081 ddp_tclv_rec.program_application_id := rosetta_g_miss_num_map(p5_a37);
1082 ddp_tclv_rec.request_id := rosetta_g_miss_num_map(p5_a38);
1083 ddp_tclv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a39);
1084 ddp_tclv_rec.last_update_login := rosetta_g_miss_num_map(p5_a40);
1085 ddp_tclv_rec.avl_id := rosetta_g_miss_num_map(p5_a41);
1086 ddp_tclv_rec.bkt_id := rosetta_g_miss_num_map(p5_a42);
1087 ddp_tclv_rec.kle_id_new := rosetta_g_miss_num_map(p5_a43);
1088 ddp_tclv_rec.percentage := rosetta_g_miss_num_map(p5_a44);
1089 ddp_tclv_rec.accrual_rule_yn := p5_a45;
1090 ddp_tclv_rec.source_column_1 := p5_a46;
1091 ddp_tclv_rec.source_value_1 := rosetta_g_miss_num_map(p5_a47);
1092 ddp_tclv_rec.source_column_2 := p5_a48;
1093 ddp_tclv_rec.source_value_2 := rosetta_g_miss_num_map(p5_a49);
1094 ddp_tclv_rec.source_column_3 := p5_a50;
1095 ddp_tclv_rec.source_value_3 := rosetta_g_miss_num_map(p5_a51);
1096 ddp_tclv_rec.canceled_date := rosetta_g_miss_date_in_map(p5_a52);
1097 ddp_tclv_rec.tax_line_id := rosetta_g_miss_num_map(p5_a53);
1098 ddp_tclv_rec.stream_type_code := p5_a54;
1099 ddp_tclv_rec.stream_type_purpose := p5_a55;
1100 ddp_tclv_rec.asset_book_type_name := p5_a56;
1101 ddp_tclv_rec.upgrade_status_flag := p5_a57;
1102
1103
1104 -- here's the delegated call to the old PL/SQL routine
1105 okl_tcl_pvt.insert_row(p_api_version,
1106 p_init_msg_list,
1107 x_return_status,
1108 x_msg_count,
1109 x_msg_data,
1110 ddp_tclv_rec,
1111 ddx_tclv_rec);
1112
1113 -- copy data back from the local variables to OUT or IN-OUT args, if any
1114
1115
1116
1117
1118
1119
1120 p6_a0 := rosetta_g_miss_num_map(ddx_tclv_rec.id);
1121 p6_a1 := rosetta_g_miss_num_map(ddx_tclv_rec.object_version_number);
1122 p6_a2 := rosetta_g_miss_num_map(ddx_tclv_rec.sty_id);
1123 p6_a3 := rosetta_g_miss_num_map(ddx_tclv_rec.rct_id);
1124 p6_a4 := rosetta_g_miss_num_map(ddx_tclv_rec.btc_id);
1125 p6_a5 := rosetta_g_miss_num_map(ddx_tclv_rec.tcn_id);
1126 p6_a6 := rosetta_g_miss_num_map(ddx_tclv_rec.khr_id);
1127 p6_a7 := rosetta_g_miss_num_map(ddx_tclv_rec.kle_id);
1128 p6_a8 := ddx_tclv_rec.before_transfer_yn;
1129 p6_a9 := rosetta_g_miss_num_map(ddx_tclv_rec.line_number);
1130 p6_a10 := ddx_tclv_rec.description;
1131 p6_a11 := rosetta_g_miss_num_map(ddx_tclv_rec.amount);
1132 p6_a12 := ddx_tclv_rec.currency_code;
1133 p6_a13 := ddx_tclv_rec.gl_reversal_yn;
1134 p6_a14 := ddx_tclv_rec.attribute_category;
1135 p6_a15 := ddx_tclv_rec.attribute1;
1136 p6_a16 := ddx_tclv_rec.attribute2;
1137 p6_a17 := ddx_tclv_rec.attribute3;
1138 p6_a18 := ddx_tclv_rec.attribute4;
1139 p6_a19 := ddx_tclv_rec.attribute5;
1140 p6_a20 := ddx_tclv_rec.attribute6;
1141 p6_a21 := ddx_tclv_rec.attribute7;
1142 p6_a22 := ddx_tclv_rec.attribute8;
1143 p6_a23 := ddx_tclv_rec.attribute9;
1144 p6_a24 := ddx_tclv_rec.attribute10;
1145 p6_a25 := ddx_tclv_rec.attribute11;
1146 p6_a26 := ddx_tclv_rec.attribute12;
1147 p6_a27 := ddx_tclv_rec.attribute13;
1148 p6_a28 := ddx_tclv_rec.attribute14;
1149 p6_a29 := ddx_tclv_rec.attribute15;
1150 p6_a30 := ddx_tclv_rec.tcl_type;
1151 p6_a31 := rosetta_g_miss_num_map(ddx_tclv_rec.created_by);
1152 p6_a32 := ddx_tclv_rec.creation_date;
1153 p6_a33 := rosetta_g_miss_num_map(ddx_tclv_rec.last_updated_by);
1154 p6_a34 := ddx_tclv_rec.last_update_date;
1155 p6_a35 := rosetta_g_miss_num_map(ddx_tclv_rec.org_id);
1156 p6_a36 := rosetta_g_miss_num_map(ddx_tclv_rec.program_id);
1157 p6_a37 := rosetta_g_miss_num_map(ddx_tclv_rec.program_application_id);
1158 p6_a38 := rosetta_g_miss_num_map(ddx_tclv_rec.request_id);
1159 p6_a39 := ddx_tclv_rec.program_update_date;
1160 p6_a40 := rosetta_g_miss_num_map(ddx_tclv_rec.last_update_login);
1161 p6_a41 := rosetta_g_miss_num_map(ddx_tclv_rec.avl_id);
1162 p6_a42 := rosetta_g_miss_num_map(ddx_tclv_rec.bkt_id);
1163 p6_a43 := rosetta_g_miss_num_map(ddx_tclv_rec.kle_id_new);
1164 p6_a44 := rosetta_g_miss_num_map(ddx_tclv_rec.percentage);
1165 p6_a45 := ddx_tclv_rec.accrual_rule_yn;
1166 p6_a46 := ddx_tclv_rec.source_column_1;
1167 p6_a47 := rosetta_g_miss_num_map(ddx_tclv_rec.source_value_1);
1168 p6_a48 := ddx_tclv_rec.source_column_2;
1169 p6_a49 := rosetta_g_miss_num_map(ddx_tclv_rec.source_value_2);
1170 p6_a50 := ddx_tclv_rec.source_column_3;
1171 p6_a51 := rosetta_g_miss_num_map(ddx_tclv_rec.source_value_3);
1172 p6_a52 := ddx_tclv_rec.canceled_date;
1173 p6_a53 := rosetta_g_miss_num_map(ddx_tclv_rec.tax_line_id);
1174 p6_a54 := ddx_tclv_rec.stream_type_code;
1175 p6_a55 := ddx_tclv_rec.stream_type_purpose;
1176 p6_a56 := ddx_tclv_rec.asset_book_type_name;
1177 p6_a57 := ddx_tclv_rec.upgrade_status_flag;
1178 end;
1179
1180 procedure insert_row(p_api_version NUMBER
1181 , p_init_msg_list VARCHAR2
1182 , x_return_status out nocopy VARCHAR2
1183 , x_msg_count out nocopy NUMBER
1184 , x_msg_data out nocopy VARCHAR2
1185 , p5_a0 JTF_NUMBER_TABLE
1186 , p5_a1 JTF_NUMBER_TABLE
1187 , p5_a2 JTF_NUMBER_TABLE
1188 , p5_a3 JTF_NUMBER_TABLE
1189 , p5_a4 JTF_NUMBER_TABLE
1190 , p5_a5 JTF_NUMBER_TABLE
1191 , p5_a6 JTF_NUMBER_TABLE
1192 , p5_a7 JTF_NUMBER_TABLE
1193 , p5_a8 JTF_VARCHAR2_TABLE_100
1194 , p5_a9 JTF_NUMBER_TABLE
1195 , p5_a10 JTF_VARCHAR2_TABLE_2000
1196 , p5_a11 JTF_NUMBER_TABLE
1197 , p5_a12 JTF_VARCHAR2_TABLE_200
1198 , p5_a13 JTF_VARCHAR2_TABLE_100
1199 , p5_a14 JTF_VARCHAR2_TABLE_100
1200 , p5_a15 JTF_VARCHAR2_TABLE_500
1201 , p5_a16 JTF_VARCHAR2_TABLE_500
1202 , p5_a17 JTF_VARCHAR2_TABLE_500
1203 , p5_a18 JTF_VARCHAR2_TABLE_500
1204 , p5_a19 JTF_VARCHAR2_TABLE_500
1205 , p5_a20 JTF_VARCHAR2_TABLE_500
1206 , p5_a21 JTF_VARCHAR2_TABLE_500
1207 , p5_a22 JTF_VARCHAR2_TABLE_500
1208 , p5_a23 JTF_VARCHAR2_TABLE_500
1209 , p5_a24 JTF_VARCHAR2_TABLE_500
1210 , p5_a25 JTF_VARCHAR2_TABLE_500
1211 , p5_a26 JTF_VARCHAR2_TABLE_500
1212 , p5_a27 JTF_VARCHAR2_TABLE_500
1213 , p5_a28 JTF_VARCHAR2_TABLE_500
1214 , p5_a29 JTF_VARCHAR2_TABLE_500
1215 , p5_a30 JTF_VARCHAR2_TABLE_100
1216 , p5_a31 JTF_NUMBER_TABLE
1217 , p5_a32 JTF_DATE_TABLE
1218 , p5_a33 JTF_NUMBER_TABLE
1219 , p5_a34 JTF_DATE_TABLE
1220 , p5_a35 JTF_NUMBER_TABLE
1221 , p5_a36 JTF_NUMBER_TABLE
1222 , p5_a37 JTF_NUMBER_TABLE
1223 , p5_a38 JTF_NUMBER_TABLE
1224 , p5_a39 JTF_DATE_TABLE
1225 , p5_a40 JTF_NUMBER_TABLE
1226 , p5_a41 JTF_NUMBER_TABLE
1227 , p5_a42 JTF_NUMBER_TABLE
1228 , p5_a43 JTF_NUMBER_TABLE
1229 , p5_a44 JTF_NUMBER_TABLE
1230 , p5_a45 JTF_VARCHAR2_TABLE_100
1231 , p5_a46 JTF_VARCHAR2_TABLE_200
1232 , p5_a47 JTF_NUMBER_TABLE
1233 , p5_a48 JTF_VARCHAR2_TABLE_200
1234 , p5_a49 JTF_NUMBER_TABLE
1235 , p5_a50 JTF_VARCHAR2_TABLE_200
1236 , p5_a51 JTF_NUMBER_TABLE
1237 , p5_a52 JTF_DATE_TABLE
1238 , p5_a53 JTF_NUMBER_TABLE
1239 , p5_a54 JTF_VARCHAR2_TABLE_200
1240 , p5_a55 JTF_VARCHAR2_TABLE_300
1241 , p5_a56 JTF_VARCHAR2_TABLE_100
1242 , p5_a57 JTF_VARCHAR2_TABLE_100
1243 , p6_a0 out nocopy JTF_NUMBER_TABLE
1244 , p6_a1 out nocopy JTF_NUMBER_TABLE
1245 , p6_a2 out nocopy JTF_NUMBER_TABLE
1246 , p6_a3 out nocopy JTF_NUMBER_TABLE
1247 , p6_a4 out nocopy JTF_NUMBER_TABLE
1248 , p6_a5 out nocopy JTF_NUMBER_TABLE
1249 , p6_a6 out nocopy JTF_NUMBER_TABLE
1250 , p6_a7 out nocopy JTF_NUMBER_TABLE
1251 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
1252 , p6_a9 out nocopy JTF_NUMBER_TABLE
1253 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_2000
1254 , p6_a11 out nocopy JTF_NUMBER_TABLE
1255 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_200
1256 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
1257 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
1258 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
1259 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
1260 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
1261 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
1262 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
1263 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
1264 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
1265 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
1266 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
1267 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
1268 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
1269 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
1270 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
1271 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
1272 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
1273 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_100
1274 , p6_a31 out nocopy JTF_NUMBER_TABLE
1275 , p6_a32 out nocopy JTF_DATE_TABLE
1276 , p6_a33 out nocopy JTF_NUMBER_TABLE
1277 , p6_a34 out nocopy JTF_DATE_TABLE
1278 , p6_a35 out nocopy JTF_NUMBER_TABLE
1279 , p6_a36 out nocopy JTF_NUMBER_TABLE
1280 , p6_a37 out nocopy JTF_NUMBER_TABLE
1281 , p6_a38 out nocopy JTF_NUMBER_TABLE
1282 , p6_a39 out nocopy JTF_DATE_TABLE
1283 , p6_a40 out nocopy JTF_NUMBER_TABLE
1284 , p6_a41 out nocopy JTF_NUMBER_TABLE
1285 , p6_a42 out nocopy JTF_NUMBER_TABLE
1286 , p6_a43 out nocopy JTF_NUMBER_TABLE
1287 , p6_a44 out nocopy JTF_NUMBER_TABLE
1288 , p6_a45 out nocopy JTF_VARCHAR2_TABLE_100
1289 , p6_a46 out nocopy JTF_VARCHAR2_TABLE_200
1290 , p6_a47 out nocopy JTF_NUMBER_TABLE
1291 , p6_a48 out nocopy JTF_VARCHAR2_TABLE_200
1292 , p6_a49 out nocopy JTF_NUMBER_TABLE
1293 , p6_a50 out nocopy JTF_VARCHAR2_TABLE_200
1294 , p6_a51 out nocopy JTF_NUMBER_TABLE
1295 , p6_a52 out nocopy JTF_DATE_TABLE
1296 , p6_a53 out nocopy JTF_NUMBER_TABLE
1297 , p6_a54 out nocopy JTF_VARCHAR2_TABLE_200
1298 , p6_a55 out nocopy JTF_VARCHAR2_TABLE_300
1299 , p6_a56 out nocopy JTF_VARCHAR2_TABLE_100
1300 , p6_a57 out nocopy JTF_VARCHAR2_TABLE_100
1301 )
1302
1303 as
1304 ddp_tclv_tbl okl_tcl_pvt.tclv_tbl_type;
1305 ddx_tclv_tbl okl_tcl_pvt.tclv_tbl_type;
1306 ddindx binary_integer; indx binary_integer;
1307 begin
1308
1309 -- copy data to the local IN or IN-OUT args, if any
1310
1311
1312
1313
1314
1315 okl_tcl_pvt_w.rosetta_table_copy_in_p5(ddp_tclv_tbl, p5_a0
1316 , p5_a1
1317 , p5_a2
1318 , p5_a3
1319 , p5_a4
1320 , p5_a5
1321 , p5_a6
1322 , p5_a7
1323 , p5_a8
1324 , p5_a9
1325 , p5_a10
1326 , p5_a11
1327 , p5_a12
1328 , p5_a13
1329 , p5_a14
1330 , p5_a15
1331 , p5_a16
1332 , p5_a17
1333 , p5_a18
1334 , p5_a19
1335 , p5_a20
1336 , p5_a21
1337 , p5_a22
1338 , p5_a23
1339 , p5_a24
1340 , p5_a25
1341 , p5_a26
1342 , p5_a27
1343 , p5_a28
1344 , p5_a29
1345 , p5_a30
1346 , p5_a31
1347 , p5_a32
1348 , p5_a33
1349 , p5_a34
1350 , p5_a35
1351 , p5_a36
1352 , p5_a37
1353 , p5_a38
1354 , p5_a39
1355 , p5_a40
1356 , p5_a41
1357 , p5_a42
1358 , p5_a43
1359 , p5_a44
1360 , p5_a45
1361 , p5_a46
1362 , p5_a47
1363 , p5_a48
1364 , p5_a49
1365 , p5_a50
1366 , p5_a51
1367 , p5_a52
1368 , p5_a53
1369 , p5_a54
1370 , p5_a55
1371 , p5_a56
1372 , p5_a57
1373 );
1374
1375
1376 -- here's the delegated call to the old PL/SQL routine
1377 okl_tcl_pvt.insert_row(p_api_version,
1378 p_init_msg_list,
1379 x_return_status,
1380 x_msg_count,
1381 x_msg_data,
1382 ddp_tclv_tbl,
1383 ddx_tclv_tbl);
1384
1385 -- copy data back from the local variables to OUT or IN-OUT args, if any
1386
1387
1388
1389
1390
1391
1392 okl_tcl_pvt_w.rosetta_table_copy_out_p5(ddx_tclv_tbl, p6_a0
1393 , p6_a1
1394 , p6_a2
1395 , p6_a3
1396 , p6_a4
1397 , p6_a5
1398 , p6_a6
1399 , p6_a7
1400 , p6_a8
1401 , p6_a9
1402 , p6_a10
1403 , p6_a11
1404 , p6_a12
1405 , p6_a13
1406 , p6_a14
1407 , p6_a15
1408 , p6_a16
1409 , p6_a17
1410 , p6_a18
1411 , p6_a19
1412 , p6_a20
1413 , p6_a21
1414 , p6_a22
1415 , p6_a23
1416 , p6_a24
1417 , p6_a25
1418 , p6_a26
1419 , p6_a27
1420 , p6_a28
1421 , p6_a29
1422 , p6_a30
1423 , p6_a31
1424 , p6_a32
1425 , p6_a33
1426 , p6_a34
1427 , p6_a35
1428 , p6_a36
1429 , p6_a37
1430 , p6_a38
1431 , p6_a39
1432 , p6_a40
1433 , p6_a41
1434 , p6_a42
1435 , p6_a43
1436 , p6_a44
1437 , p6_a45
1438 , p6_a46
1439 , p6_a47
1440 , p6_a48
1441 , p6_a49
1442 , p6_a50
1443 , p6_a51
1444 , p6_a52
1445 , p6_a53
1446 , p6_a54
1447 , p6_a55
1448 , p6_a56
1449 , p6_a57
1450 );
1451 end;
1452
1453 procedure lock_row(p_api_version NUMBER
1454 , p_init_msg_list VARCHAR2
1455 , x_return_status out nocopy VARCHAR2
1456 , x_msg_count out nocopy NUMBER
1457 , x_msg_data out nocopy VARCHAR2
1458 , p5_a0 NUMBER := 0-1962.0724
1459 , p5_a1 NUMBER := 0-1962.0724
1460 , p5_a2 NUMBER := 0-1962.0724
1461 , p5_a3 NUMBER := 0-1962.0724
1462 , p5_a4 NUMBER := 0-1962.0724
1463 , p5_a5 NUMBER := 0-1962.0724
1464 , p5_a6 NUMBER := 0-1962.0724
1465 , p5_a7 NUMBER := 0-1962.0724
1466 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1467 , p5_a9 NUMBER := 0-1962.0724
1468 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1469 , p5_a11 NUMBER := 0-1962.0724
1470 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1471 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1472 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1473 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1474 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1475 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1476 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1477 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1478 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1479 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1480 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1481 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1482 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1483 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1484 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1485 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
1486 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
1487 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
1488 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1489 , p5_a31 NUMBER := 0-1962.0724
1490 , p5_a32 DATE := fnd_api.g_miss_date
1491 , p5_a33 NUMBER := 0-1962.0724
1492 , p5_a34 DATE := fnd_api.g_miss_date
1493 , p5_a35 NUMBER := 0-1962.0724
1494 , p5_a36 NUMBER := 0-1962.0724
1495 , p5_a37 NUMBER := 0-1962.0724
1496 , p5_a38 NUMBER := 0-1962.0724
1497 , p5_a39 DATE := fnd_api.g_miss_date
1498 , p5_a40 NUMBER := 0-1962.0724
1499 , p5_a41 NUMBER := 0-1962.0724
1500 , p5_a42 NUMBER := 0-1962.0724
1501 , p5_a43 NUMBER := 0-1962.0724
1502 , p5_a44 NUMBER := 0-1962.0724
1503 , p5_a45 VARCHAR2 := fnd_api.g_miss_char
1504 , p5_a46 VARCHAR2 := fnd_api.g_miss_char
1505 , p5_a47 NUMBER := 0-1962.0724
1506 , p5_a48 VARCHAR2 := fnd_api.g_miss_char
1507 , p5_a49 NUMBER := 0-1962.0724
1508 , p5_a50 VARCHAR2 := fnd_api.g_miss_char
1509 , p5_a51 NUMBER := 0-1962.0724
1510 , p5_a52 DATE := fnd_api.g_miss_date
1511 , p5_a53 NUMBER := 0-1962.0724
1512 , p5_a54 VARCHAR2 := fnd_api.g_miss_char
1513 , p5_a55 VARCHAR2 := fnd_api.g_miss_char
1514 , p5_a56 VARCHAR2 := fnd_api.g_miss_char
1515 , p5_a57 VARCHAR2 := fnd_api.g_miss_char
1516 )
1517
1518 as
1519 ddp_tclv_rec okl_tcl_pvt.tclv_rec_type;
1520 ddindx binary_integer; indx binary_integer;
1521 begin
1522
1523 -- copy data to the local IN or IN-OUT args, if any
1524
1525
1526
1527
1528
1529 ddp_tclv_rec.id := rosetta_g_miss_num_map(p5_a0);
1530 ddp_tclv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1531 ddp_tclv_rec.sty_id := rosetta_g_miss_num_map(p5_a2);
1532 ddp_tclv_rec.rct_id := rosetta_g_miss_num_map(p5_a3);
1533 ddp_tclv_rec.btc_id := rosetta_g_miss_num_map(p5_a4);
1534 ddp_tclv_rec.tcn_id := rosetta_g_miss_num_map(p5_a5);
1535 ddp_tclv_rec.khr_id := rosetta_g_miss_num_map(p5_a6);
1536 ddp_tclv_rec.kle_id := rosetta_g_miss_num_map(p5_a7);
1537 ddp_tclv_rec.before_transfer_yn := p5_a8;
1538 ddp_tclv_rec.line_number := rosetta_g_miss_num_map(p5_a9);
1539 ddp_tclv_rec.description := p5_a10;
1540 ddp_tclv_rec.amount := rosetta_g_miss_num_map(p5_a11);
1541 ddp_tclv_rec.currency_code := p5_a12;
1542 ddp_tclv_rec.gl_reversal_yn := p5_a13;
1543 ddp_tclv_rec.attribute_category := p5_a14;
1544 ddp_tclv_rec.attribute1 := p5_a15;
1545 ddp_tclv_rec.attribute2 := p5_a16;
1546 ddp_tclv_rec.attribute3 := p5_a17;
1547 ddp_tclv_rec.attribute4 := p5_a18;
1548 ddp_tclv_rec.attribute5 := p5_a19;
1549 ddp_tclv_rec.attribute6 := p5_a20;
1550 ddp_tclv_rec.attribute7 := p5_a21;
1551 ddp_tclv_rec.attribute8 := p5_a22;
1552 ddp_tclv_rec.attribute9 := p5_a23;
1553 ddp_tclv_rec.attribute10 := p5_a24;
1554 ddp_tclv_rec.attribute11 := p5_a25;
1555 ddp_tclv_rec.attribute12 := p5_a26;
1556 ddp_tclv_rec.attribute13 := p5_a27;
1557 ddp_tclv_rec.attribute14 := p5_a28;
1558 ddp_tclv_rec.attribute15 := p5_a29;
1559 ddp_tclv_rec.tcl_type := p5_a30;
1560 ddp_tclv_rec.created_by := rosetta_g_miss_num_map(p5_a31);
1561 ddp_tclv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a32);
1562 ddp_tclv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a33);
1563 ddp_tclv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a34);
1564 ddp_tclv_rec.org_id := rosetta_g_miss_num_map(p5_a35);
1565 ddp_tclv_rec.program_id := rosetta_g_miss_num_map(p5_a36);
1566 ddp_tclv_rec.program_application_id := rosetta_g_miss_num_map(p5_a37);
1567 ddp_tclv_rec.request_id := rosetta_g_miss_num_map(p5_a38);
1568 ddp_tclv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a39);
1569 ddp_tclv_rec.last_update_login := rosetta_g_miss_num_map(p5_a40);
1570 ddp_tclv_rec.avl_id := rosetta_g_miss_num_map(p5_a41);
1571 ddp_tclv_rec.bkt_id := rosetta_g_miss_num_map(p5_a42);
1572 ddp_tclv_rec.kle_id_new := rosetta_g_miss_num_map(p5_a43);
1573 ddp_tclv_rec.percentage := rosetta_g_miss_num_map(p5_a44);
1574 ddp_tclv_rec.accrual_rule_yn := p5_a45;
1575 ddp_tclv_rec.source_column_1 := p5_a46;
1576 ddp_tclv_rec.source_value_1 := rosetta_g_miss_num_map(p5_a47);
1577 ddp_tclv_rec.source_column_2 := p5_a48;
1578 ddp_tclv_rec.source_value_2 := rosetta_g_miss_num_map(p5_a49);
1579 ddp_tclv_rec.source_column_3 := p5_a50;
1580 ddp_tclv_rec.source_value_3 := rosetta_g_miss_num_map(p5_a51);
1581 ddp_tclv_rec.canceled_date := rosetta_g_miss_date_in_map(p5_a52);
1582 ddp_tclv_rec.tax_line_id := rosetta_g_miss_num_map(p5_a53);
1583 ddp_tclv_rec.stream_type_code := p5_a54;
1584 ddp_tclv_rec.stream_type_purpose := p5_a55;
1585 ddp_tclv_rec.asset_book_type_name := p5_a56;
1586 ddp_tclv_rec.upgrade_status_flag := p5_a57;
1587
1588 -- here's the delegated call to the old PL/SQL routine
1589 okl_tcl_pvt.lock_row(p_api_version,
1590 p_init_msg_list,
1591 x_return_status,
1592 x_msg_count,
1593 x_msg_data,
1594 ddp_tclv_rec);
1595
1596 -- copy data back from the local variables to OUT or IN-OUT args, if any
1597
1598
1599
1600
1601
1602 end;
1603
1604 procedure lock_row(p_api_version NUMBER
1605 , p_init_msg_list VARCHAR2
1606 , x_return_status out nocopy VARCHAR2
1607 , x_msg_count out nocopy NUMBER
1608 , x_msg_data out nocopy VARCHAR2
1609 , p5_a0 JTF_NUMBER_TABLE
1610 , p5_a1 JTF_NUMBER_TABLE
1611 , p5_a2 JTF_NUMBER_TABLE
1612 , p5_a3 JTF_NUMBER_TABLE
1613 , p5_a4 JTF_NUMBER_TABLE
1614 , p5_a5 JTF_NUMBER_TABLE
1615 , p5_a6 JTF_NUMBER_TABLE
1616 , p5_a7 JTF_NUMBER_TABLE
1617 , p5_a8 JTF_VARCHAR2_TABLE_100
1618 , p5_a9 JTF_NUMBER_TABLE
1619 , p5_a10 JTF_VARCHAR2_TABLE_2000
1620 , p5_a11 JTF_NUMBER_TABLE
1621 , p5_a12 JTF_VARCHAR2_TABLE_200
1622 , p5_a13 JTF_VARCHAR2_TABLE_100
1623 , p5_a14 JTF_VARCHAR2_TABLE_100
1624 , p5_a15 JTF_VARCHAR2_TABLE_500
1625 , p5_a16 JTF_VARCHAR2_TABLE_500
1626 , p5_a17 JTF_VARCHAR2_TABLE_500
1627 , p5_a18 JTF_VARCHAR2_TABLE_500
1628 , p5_a19 JTF_VARCHAR2_TABLE_500
1629 , p5_a20 JTF_VARCHAR2_TABLE_500
1630 , p5_a21 JTF_VARCHAR2_TABLE_500
1631 , p5_a22 JTF_VARCHAR2_TABLE_500
1632 , p5_a23 JTF_VARCHAR2_TABLE_500
1633 , p5_a24 JTF_VARCHAR2_TABLE_500
1634 , p5_a25 JTF_VARCHAR2_TABLE_500
1635 , p5_a26 JTF_VARCHAR2_TABLE_500
1636 , p5_a27 JTF_VARCHAR2_TABLE_500
1637 , p5_a28 JTF_VARCHAR2_TABLE_500
1638 , p5_a29 JTF_VARCHAR2_TABLE_500
1639 , p5_a30 JTF_VARCHAR2_TABLE_100
1640 , p5_a31 JTF_NUMBER_TABLE
1641 , p5_a32 JTF_DATE_TABLE
1642 , p5_a33 JTF_NUMBER_TABLE
1643 , p5_a34 JTF_DATE_TABLE
1644 , p5_a35 JTF_NUMBER_TABLE
1645 , p5_a36 JTF_NUMBER_TABLE
1646 , p5_a37 JTF_NUMBER_TABLE
1647 , p5_a38 JTF_NUMBER_TABLE
1648 , p5_a39 JTF_DATE_TABLE
1649 , p5_a40 JTF_NUMBER_TABLE
1650 , p5_a41 JTF_NUMBER_TABLE
1651 , p5_a42 JTF_NUMBER_TABLE
1652 , p5_a43 JTF_NUMBER_TABLE
1653 , p5_a44 JTF_NUMBER_TABLE
1654 , p5_a45 JTF_VARCHAR2_TABLE_100
1655 , p5_a46 JTF_VARCHAR2_TABLE_200
1656 , p5_a47 JTF_NUMBER_TABLE
1657 , p5_a48 JTF_VARCHAR2_TABLE_200
1658 , p5_a49 JTF_NUMBER_TABLE
1659 , p5_a50 JTF_VARCHAR2_TABLE_200
1660 , p5_a51 JTF_NUMBER_TABLE
1661 , p5_a52 JTF_DATE_TABLE
1662 , p5_a53 JTF_NUMBER_TABLE
1663 , p5_a54 JTF_VARCHAR2_TABLE_200
1664 , p5_a55 JTF_VARCHAR2_TABLE_300
1665 , p5_a56 JTF_VARCHAR2_TABLE_100
1666 , p5_a57 JTF_VARCHAR2_TABLE_100
1667 )
1668
1669 as
1670 ddp_tclv_tbl okl_tcl_pvt.tclv_tbl_type;
1671 ddindx binary_integer; indx binary_integer;
1672 begin
1673
1674 -- copy data to the local IN or IN-OUT args, if any
1675
1676
1677
1678
1679
1680 okl_tcl_pvt_w.rosetta_table_copy_in_p5(ddp_tclv_tbl, p5_a0
1681 , p5_a1
1682 , p5_a2
1683 , p5_a3
1684 , p5_a4
1685 , p5_a5
1686 , p5_a6
1687 , p5_a7
1688 , p5_a8
1689 , p5_a9
1690 , p5_a10
1691 , p5_a11
1692 , p5_a12
1693 , p5_a13
1694 , p5_a14
1695 , p5_a15
1696 , p5_a16
1697 , p5_a17
1698 , p5_a18
1699 , p5_a19
1700 , p5_a20
1701 , p5_a21
1702 , p5_a22
1703 , p5_a23
1704 , p5_a24
1705 , p5_a25
1706 , p5_a26
1707 , p5_a27
1708 , p5_a28
1709 , p5_a29
1710 , p5_a30
1711 , p5_a31
1712 , p5_a32
1713 , p5_a33
1714 , p5_a34
1715 , p5_a35
1716 , p5_a36
1717 , p5_a37
1718 , p5_a38
1719 , p5_a39
1720 , p5_a40
1721 , p5_a41
1722 , p5_a42
1723 , p5_a43
1724 , p5_a44
1725 , p5_a45
1726 , p5_a46
1727 , p5_a47
1728 , p5_a48
1729 , p5_a49
1730 , p5_a50
1731 , p5_a51
1732 , p5_a52
1733 , p5_a53
1734 , p5_a54
1735 , p5_a55
1736 , p5_a56
1737 , p5_a57
1738 );
1739
1740 -- here's the delegated call to the old PL/SQL routine
1741 okl_tcl_pvt.lock_row(p_api_version,
1742 p_init_msg_list,
1743 x_return_status,
1744 x_msg_count,
1745 x_msg_data,
1746 ddp_tclv_tbl);
1747
1748 -- copy data back from the local variables to OUT or IN-OUT args, if any
1749
1750
1751
1752
1753
1754 end;
1755
1756 procedure update_row(p_api_version NUMBER
1757 , p_init_msg_list VARCHAR2
1758 , x_return_status out nocopy VARCHAR2
1759 , x_msg_count out nocopy NUMBER
1760 , x_msg_data out nocopy VARCHAR2
1761 , p6_a0 out nocopy NUMBER
1762 , p6_a1 out nocopy NUMBER
1763 , p6_a2 out nocopy NUMBER
1764 , p6_a3 out nocopy NUMBER
1765 , p6_a4 out nocopy NUMBER
1766 , p6_a5 out nocopy NUMBER
1767 , p6_a6 out nocopy NUMBER
1768 , p6_a7 out nocopy NUMBER
1769 , p6_a8 out nocopy VARCHAR2
1770 , p6_a9 out nocopy NUMBER
1771 , p6_a10 out nocopy VARCHAR2
1772 , p6_a11 out nocopy NUMBER
1773 , p6_a12 out nocopy VARCHAR2
1774 , p6_a13 out nocopy VARCHAR2
1775 , p6_a14 out nocopy VARCHAR2
1776 , p6_a15 out nocopy VARCHAR2
1777 , p6_a16 out nocopy VARCHAR2
1778 , p6_a17 out nocopy VARCHAR2
1779 , p6_a18 out nocopy VARCHAR2
1780 , p6_a19 out nocopy VARCHAR2
1781 , p6_a20 out nocopy VARCHAR2
1782 , p6_a21 out nocopy VARCHAR2
1783 , p6_a22 out nocopy VARCHAR2
1784 , p6_a23 out nocopy VARCHAR2
1785 , p6_a24 out nocopy VARCHAR2
1786 , p6_a25 out nocopy VARCHAR2
1787 , p6_a26 out nocopy VARCHAR2
1788 , p6_a27 out nocopy VARCHAR2
1789 , p6_a28 out nocopy VARCHAR2
1790 , p6_a29 out nocopy VARCHAR2
1791 , p6_a30 out nocopy VARCHAR2
1792 , p6_a31 out nocopy NUMBER
1793 , p6_a32 out nocopy DATE
1794 , p6_a33 out nocopy NUMBER
1795 , p6_a34 out nocopy DATE
1796 , p6_a35 out nocopy NUMBER
1797 , p6_a36 out nocopy NUMBER
1798 , p6_a37 out nocopy NUMBER
1799 , p6_a38 out nocopy NUMBER
1800 , p6_a39 out nocopy DATE
1801 , p6_a40 out nocopy NUMBER
1802 , p6_a41 out nocopy NUMBER
1803 , p6_a42 out nocopy NUMBER
1804 , p6_a43 out nocopy NUMBER
1805 , p6_a44 out nocopy NUMBER
1806 , p6_a45 out nocopy VARCHAR2
1807 , p6_a46 out nocopy VARCHAR2
1808 , p6_a47 out nocopy NUMBER
1809 , p6_a48 out nocopy VARCHAR2
1810 , p6_a49 out nocopy NUMBER
1811 , p6_a50 out nocopy VARCHAR2
1812 , p6_a51 out nocopy NUMBER
1813 , p6_a52 out nocopy DATE
1814 , p6_a53 out nocopy NUMBER
1815 , p6_a54 out nocopy VARCHAR2
1816 , p6_a55 out nocopy VARCHAR2
1817 , p6_a56 out nocopy VARCHAR2
1818 , p6_a57 out nocopy VARCHAR2
1819 , p5_a0 NUMBER := 0-1962.0724
1820 , p5_a1 NUMBER := 0-1962.0724
1821 , p5_a2 NUMBER := 0-1962.0724
1822 , p5_a3 NUMBER := 0-1962.0724
1823 , p5_a4 NUMBER := 0-1962.0724
1824 , p5_a5 NUMBER := 0-1962.0724
1825 , p5_a6 NUMBER := 0-1962.0724
1826 , p5_a7 NUMBER := 0-1962.0724
1827 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1828 , p5_a9 NUMBER := 0-1962.0724
1829 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1830 , p5_a11 NUMBER := 0-1962.0724
1831 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1832 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1833 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1834 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1835 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1836 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1837 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1838 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1839 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1840 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1841 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1842 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1843 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1844 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1845 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1846 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
1847 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
1848 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
1849 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1850 , p5_a31 NUMBER := 0-1962.0724
1851 , p5_a32 DATE := fnd_api.g_miss_date
1852 , p5_a33 NUMBER := 0-1962.0724
1853 , p5_a34 DATE := fnd_api.g_miss_date
1854 , p5_a35 NUMBER := 0-1962.0724
1855 , p5_a36 NUMBER := 0-1962.0724
1856 , p5_a37 NUMBER := 0-1962.0724
1857 , p5_a38 NUMBER := 0-1962.0724
1858 , p5_a39 DATE := fnd_api.g_miss_date
1859 , p5_a40 NUMBER := 0-1962.0724
1860 , p5_a41 NUMBER := 0-1962.0724
1861 , p5_a42 NUMBER := 0-1962.0724
1862 , p5_a43 NUMBER := 0-1962.0724
1863 , p5_a44 NUMBER := 0-1962.0724
1864 , p5_a45 VARCHAR2 := fnd_api.g_miss_char
1865 , p5_a46 VARCHAR2 := fnd_api.g_miss_char
1866 , p5_a47 NUMBER := 0-1962.0724
1867 , p5_a48 VARCHAR2 := fnd_api.g_miss_char
1868 , p5_a49 NUMBER := 0-1962.0724
1869 , p5_a50 VARCHAR2 := fnd_api.g_miss_char
1870 , p5_a51 NUMBER := 0-1962.0724
1871 , p5_a52 DATE := fnd_api.g_miss_date
1872 , p5_a53 NUMBER := 0-1962.0724
1873 , p5_a54 VARCHAR2 := fnd_api.g_miss_char
1874 , p5_a55 VARCHAR2 := fnd_api.g_miss_char
1875 , p5_a56 VARCHAR2 := fnd_api.g_miss_char
1876 , p5_a57 VARCHAR2 := fnd_api.g_miss_char
1877 )
1878
1879 as
1880 ddp_tclv_rec okl_tcl_pvt.tclv_rec_type;
1881 ddx_tclv_rec okl_tcl_pvt.tclv_rec_type;
1882 ddindx binary_integer; indx binary_integer;
1883 begin
1884
1885 -- copy data to the local IN or IN-OUT args, if any
1886
1887
1888
1889
1890
1891 ddp_tclv_rec.id := rosetta_g_miss_num_map(p5_a0);
1892 ddp_tclv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1893 ddp_tclv_rec.sty_id := rosetta_g_miss_num_map(p5_a2);
1894 ddp_tclv_rec.rct_id := rosetta_g_miss_num_map(p5_a3);
1895 ddp_tclv_rec.btc_id := rosetta_g_miss_num_map(p5_a4);
1896 ddp_tclv_rec.tcn_id := rosetta_g_miss_num_map(p5_a5);
1897 ddp_tclv_rec.khr_id := rosetta_g_miss_num_map(p5_a6);
1898 ddp_tclv_rec.kle_id := rosetta_g_miss_num_map(p5_a7);
1899 ddp_tclv_rec.before_transfer_yn := p5_a8;
1900 ddp_tclv_rec.line_number := rosetta_g_miss_num_map(p5_a9);
1901 ddp_tclv_rec.description := p5_a10;
1902 ddp_tclv_rec.amount := rosetta_g_miss_num_map(p5_a11);
1903 ddp_tclv_rec.currency_code := p5_a12;
1904 ddp_tclv_rec.gl_reversal_yn := p5_a13;
1905 ddp_tclv_rec.attribute_category := p5_a14;
1906 ddp_tclv_rec.attribute1 := p5_a15;
1907 ddp_tclv_rec.attribute2 := p5_a16;
1908 ddp_tclv_rec.attribute3 := p5_a17;
1909 ddp_tclv_rec.attribute4 := p5_a18;
1910 ddp_tclv_rec.attribute5 := p5_a19;
1911 ddp_tclv_rec.attribute6 := p5_a20;
1912 ddp_tclv_rec.attribute7 := p5_a21;
1913 ddp_tclv_rec.attribute8 := p5_a22;
1914 ddp_tclv_rec.attribute9 := p5_a23;
1915 ddp_tclv_rec.attribute10 := p5_a24;
1916 ddp_tclv_rec.attribute11 := p5_a25;
1917 ddp_tclv_rec.attribute12 := p5_a26;
1918 ddp_tclv_rec.attribute13 := p5_a27;
1919 ddp_tclv_rec.attribute14 := p5_a28;
1920 ddp_tclv_rec.attribute15 := p5_a29;
1921 ddp_tclv_rec.tcl_type := p5_a30;
1922 ddp_tclv_rec.created_by := rosetta_g_miss_num_map(p5_a31);
1923 ddp_tclv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a32);
1924 ddp_tclv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a33);
1925 ddp_tclv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a34);
1926 ddp_tclv_rec.org_id := rosetta_g_miss_num_map(p5_a35);
1927 ddp_tclv_rec.program_id := rosetta_g_miss_num_map(p5_a36);
1928 ddp_tclv_rec.program_application_id := rosetta_g_miss_num_map(p5_a37);
1929 ddp_tclv_rec.request_id := rosetta_g_miss_num_map(p5_a38);
1930 ddp_tclv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a39);
1931 ddp_tclv_rec.last_update_login := rosetta_g_miss_num_map(p5_a40);
1932 ddp_tclv_rec.avl_id := rosetta_g_miss_num_map(p5_a41);
1933 ddp_tclv_rec.bkt_id := rosetta_g_miss_num_map(p5_a42);
1934 ddp_tclv_rec.kle_id_new := rosetta_g_miss_num_map(p5_a43);
1935 ddp_tclv_rec.percentage := rosetta_g_miss_num_map(p5_a44);
1936 ddp_tclv_rec.accrual_rule_yn := p5_a45;
1937 ddp_tclv_rec.source_column_1 := p5_a46;
1938 ddp_tclv_rec.source_value_1 := rosetta_g_miss_num_map(p5_a47);
1939 ddp_tclv_rec.source_column_2 := p5_a48;
1940 ddp_tclv_rec.source_value_2 := rosetta_g_miss_num_map(p5_a49);
1941 ddp_tclv_rec.source_column_3 := p5_a50;
1942 ddp_tclv_rec.source_value_3 := rosetta_g_miss_num_map(p5_a51);
1943 ddp_tclv_rec.canceled_date := rosetta_g_miss_date_in_map(p5_a52);
1944 ddp_tclv_rec.tax_line_id := rosetta_g_miss_num_map(p5_a53);
1945 ddp_tclv_rec.stream_type_code := p5_a54;
1946 ddp_tclv_rec.stream_type_purpose := p5_a55;
1947 ddp_tclv_rec.asset_book_type_name := p5_a56;
1948 ddp_tclv_rec.upgrade_status_flag := p5_a57;
1949
1950
1951 -- here's the delegated call to the old PL/SQL routine
1952 okl_tcl_pvt.update_row(p_api_version,
1953 p_init_msg_list,
1954 x_return_status,
1955 x_msg_count,
1956 x_msg_data,
1957 ddp_tclv_rec,
1958 ddx_tclv_rec);
1959
1960 -- copy data back from the local variables to OUT or IN-OUT args, if any
1961
1962
1963
1964
1965
1966
1967 p6_a0 := rosetta_g_miss_num_map(ddx_tclv_rec.id);
1968 p6_a1 := rosetta_g_miss_num_map(ddx_tclv_rec.object_version_number);
1969 p6_a2 := rosetta_g_miss_num_map(ddx_tclv_rec.sty_id);
1970 p6_a3 := rosetta_g_miss_num_map(ddx_tclv_rec.rct_id);
1971 p6_a4 := rosetta_g_miss_num_map(ddx_tclv_rec.btc_id);
1972 p6_a5 := rosetta_g_miss_num_map(ddx_tclv_rec.tcn_id);
1973 p6_a6 := rosetta_g_miss_num_map(ddx_tclv_rec.khr_id);
1974 p6_a7 := rosetta_g_miss_num_map(ddx_tclv_rec.kle_id);
1975 p6_a8 := ddx_tclv_rec.before_transfer_yn;
1976 p6_a9 := rosetta_g_miss_num_map(ddx_tclv_rec.line_number);
1977 p6_a10 := ddx_tclv_rec.description;
1978 p6_a11 := rosetta_g_miss_num_map(ddx_tclv_rec.amount);
1979 p6_a12 := ddx_tclv_rec.currency_code;
1980 p6_a13 := ddx_tclv_rec.gl_reversal_yn;
1981 p6_a14 := ddx_tclv_rec.attribute_category;
1982 p6_a15 := ddx_tclv_rec.attribute1;
1983 p6_a16 := ddx_tclv_rec.attribute2;
1984 p6_a17 := ddx_tclv_rec.attribute3;
1985 p6_a18 := ddx_tclv_rec.attribute4;
1986 p6_a19 := ddx_tclv_rec.attribute5;
1987 p6_a20 := ddx_tclv_rec.attribute6;
1988 p6_a21 := ddx_tclv_rec.attribute7;
1989 p6_a22 := ddx_tclv_rec.attribute8;
1990 p6_a23 := ddx_tclv_rec.attribute9;
1991 p6_a24 := ddx_tclv_rec.attribute10;
1992 p6_a25 := ddx_tclv_rec.attribute11;
1993 p6_a26 := ddx_tclv_rec.attribute12;
1994 p6_a27 := ddx_tclv_rec.attribute13;
1995 p6_a28 := ddx_tclv_rec.attribute14;
1996 p6_a29 := ddx_tclv_rec.attribute15;
1997 p6_a30 := ddx_tclv_rec.tcl_type;
1998 p6_a31 := rosetta_g_miss_num_map(ddx_tclv_rec.created_by);
1999 p6_a32 := ddx_tclv_rec.creation_date;
2000 p6_a33 := rosetta_g_miss_num_map(ddx_tclv_rec.last_updated_by);
2001 p6_a34 := ddx_tclv_rec.last_update_date;
2002 p6_a35 := rosetta_g_miss_num_map(ddx_tclv_rec.org_id);
2003 p6_a36 := rosetta_g_miss_num_map(ddx_tclv_rec.program_id);
2004 p6_a37 := rosetta_g_miss_num_map(ddx_tclv_rec.program_application_id);
2005 p6_a38 := rosetta_g_miss_num_map(ddx_tclv_rec.request_id);
2006 p6_a39 := ddx_tclv_rec.program_update_date;
2007 p6_a40 := rosetta_g_miss_num_map(ddx_tclv_rec.last_update_login);
2008 p6_a41 := rosetta_g_miss_num_map(ddx_tclv_rec.avl_id);
2009 p6_a42 := rosetta_g_miss_num_map(ddx_tclv_rec.bkt_id);
2010 p6_a43 := rosetta_g_miss_num_map(ddx_tclv_rec.kle_id_new);
2011 p6_a44 := rosetta_g_miss_num_map(ddx_tclv_rec.percentage);
2012 p6_a45 := ddx_tclv_rec.accrual_rule_yn;
2013 p6_a46 := ddx_tclv_rec.source_column_1;
2014 p6_a47 := rosetta_g_miss_num_map(ddx_tclv_rec.source_value_1);
2015 p6_a48 := ddx_tclv_rec.source_column_2;
2016 p6_a49 := rosetta_g_miss_num_map(ddx_tclv_rec.source_value_2);
2017 p6_a50 := ddx_tclv_rec.source_column_3;
2018 p6_a51 := rosetta_g_miss_num_map(ddx_tclv_rec.source_value_3);
2019 p6_a52 := ddx_tclv_rec.canceled_date;
2020 p6_a53 := rosetta_g_miss_num_map(ddx_tclv_rec.tax_line_id);
2021 p6_a54 := ddx_tclv_rec.stream_type_code;
2022 p6_a55 := ddx_tclv_rec.stream_type_purpose;
2023 p6_a56 := ddx_tclv_rec.asset_book_type_name;
2024 p6_a57 := ddx_tclv_rec.upgrade_status_flag;
2025 end;
2026
2027 procedure update_row(p_api_version NUMBER
2028 , p_init_msg_list VARCHAR2
2029 , x_return_status out nocopy VARCHAR2
2030 , x_msg_count out nocopy NUMBER
2031 , x_msg_data out nocopy VARCHAR2
2032 , p5_a0 JTF_NUMBER_TABLE
2033 , p5_a1 JTF_NUMBER_TABLE
2034 , p5_a2 JTF_NUMBER_TABLE
2035 , p5_a3 JTF_NUMBER_TABLE
2036 , p5_a4 JTF_NUMBER_TABLE
2037 , p5_a5 JTF_NUMBER_TABLE
2038 , p5_a6 JTF_NUMBER_TABLE
2039 , p5_a7 JTF_NUMBER_TABLE
2040 , p5_a8 JTF_VARCHAR2_TABLE_100
2041 , p5_a9 JTF_NUMBER_TABLE
2042 , p5_a10 JTF_VARCHAR2_TABLE_2000
2043 , p5_a11 JTF_NUMBER_TABLE
2044 , p5_a12 JTF_VARCHAR2_TABLE_200
2045 , p5_a13 JTF_VARCHAR2_TABLE_100
2046 , p5_a14 JTF_VARCHAR2_TABLE_100
2047 , p5_a15 JTF_VARCHAR2_TABLE_500
2048 , p5_a16 JTF_VARCHAR2_TABLE_500
2049 , p5_a17 JTF_VARCHAR2_TABLE_500
2050 , p5_a18 JTF_VARCHAR2_TABLE_500
2051 , p5_a19 JTF_VARCHAR2_TABLE_500
2052 , p5_a20 JTF_VARCHAR2_TABLE_500
2053 , p5_a21 JTF_VARCHAR2_TABLE_500
2054 , p5_a22 JTF_VARCHAR2_TABLE_500
2055 , p5_a23 JTF_VARCHAR2_TABLE_500
2056 , p5_a24 JTF_VARCHAR2_TABLE_500
2057 , p5_a25 JTF_VARCHAR2_TABLE_500
2058 , p5_a26 JTF_VARCHAR2_TABLE_500
2059 , p5_a27 JTF_VARCHAR2_TABLE_500
2060 , p5_a28 JTF_VARCHAR2_TABLE_500
2061 , p5_a29 JTF_VARCHAR2_TABLE_500
2062 , p5_a30 JTF_VARCHAR2_TABLE_100
2063 , p5_a31 JTF_NUMBER_TABLE
2064 , p5_a32 JTF_DATE_TABLE
2065 , p5_a33 JTF_NUMBER_TABLE
2066 , p5_a34 JTF_DATE_TABLE
2067 , p5_a35 JTF_NUMBER_TABLE
2068 , p5_a36 JTF_NUMBER_TABLE
2069 , p5_a37 JTF_NUMBER_TABLE
2070 , p5_a38 JTF_NUMBER_TABLE
2071 , p5_a39 JTF_DATE_TABLE
2072 , p5_a40 JTF_NUMBER_TABLE
2073 , p5_a41 JTF_NUMBER_TABLE
2074 , p5_a42 JTF_NUMBER_TABLE
2075 , p5_a43 JTF_NUMBER_TABLE
2076 , p5_a44 JTF_NUMBER_TABLE
2077 , p5_a45 JTF_VARCHAR2_TABLE_100
2078 , p5_a46 JTF_VARCHAR2_TABLE_200
2079 , p5_a47 JTF_NUMBER_TABLE
2080 , p5_a48 JTF_VARCHAR2_TABLE_200
2081 , p5_a49 JTF_NUMBER_TABLE
2082 , p5_a50 JTF_VARCHAR2_TABLE_200
2083 , p5_a51 JTF_NUMBER_TABLE
2084 , p5_a52 JTF_DATE_TABLE
2085 , p5_a53 JTF_NUMBER_TABLE
2086 , p5_a54 JTF_VARCHAR2_TABLE_200
2087 , p5_a55 JTF_VARCHAR2_TABLE_300
2088 , p5_a56 JTF_VARCHAR2_TABLE_100
2089 , p5_a57 JTF_VARCHAR2_TABLE_100
2090 , p6_a0 out nocopy JTF_NUMBER_TABLE
2091 , p6_a1 out nocopy JTF_NUMBER_TABLE
2092 , p6_a2 out nocopy JTF_NUMBER_TABLE
2093 , p6_a3 out nocopy JTF_NUMBER_TABLE
2094 , p6_a4 out nocopy JTF_NUMBER_TABLE
2095 , p6_a5 out nocopy JTF_NUMBER_TABLE
2096 , p6_a6 out nocopy JTF_NUMBER_TABLE
2097 , p6_a7 out nocopy JTF_NUMBER_TABLE
2098 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
2099 , p6_a9 out nocopy JTF_NUMBER_TABLE
2100 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_2000
2101 , p6_a11 out nocopy JTF_NUMBER_TABLE
2102 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_200
2103 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
2104 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
2105 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
2106 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
2107 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
2108 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
2109 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
2110 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
2111 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
2112 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
2113 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
2114 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
2115 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
2116 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
2117 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
2118 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
2119 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
2120 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_100
2121 , p6_a31 out nocopy JTF_NUMBER_TABLE
2122 , p6_a32 out nocopy JTF_DATE_TABLE
2123 , p6_a33 out nocopy JTF_NUMBER_TABLE
2124 , p6_a34 out nocopy JTF_DATE_TABLE
2125 , p6_a35 out nocopy JTF_NUMBER_TABLE
2126 , p6_a36 out nocopy JTF_NUMBER_TABLE
2127 , p6_a37 out nocopy JTF_NUMBER_TABLE
2128 , p6_a38 out nocopy JTF_NUMBER_TABLE
2129 , p6_a39 out nocopy JTF_DATE_TABLE
2130 , p6_a40 out nocopy JTF_NUMBER_TABLE
2131 , p6_a41 out nocopy JTF_NUMBER_TABLE
2132 , p6_a42 out nocopy JTF_NUMBER_TABLE
2133 , p6_a43 out nocopy JTF_NUMBER_TABLE
2134 , p6_a44 out nocopy JTF_NUMBER_TABLE
2135 , p6_a45 out nocopy JTF_VARCHAR2_TABLE_100
2136 , p6_a46 out nocopy JTF_VARCHAR2_TABLE_200
2137 , p6_a47 out nocopy JTF_NUMBER_TABLE
2138 , p6_a48 out nocopy JTF_VARCHAR2_TABLE_200
2139 , p6_a49 out nocopy JTF_NUMBER_TABLE
2140 , p6_a50 out nocopy JTF_VARCHAR2_TABLE_200
2141 , p6_a51 out nocopy JTF_NUMBER_TABLE
2142 , p6_a52 out nocopy JTF_DATE_TABLE
2143 , p6_a53 out nocopy JTF_NUMBER_TABLE
2144 , p6_a54 out nocopy JTF_VARCHAR2_TABLE_200
2145 , p6_a55 out nocopy JTF_VARCHAR2_TABLE_300
2146 , p6_a56 out nocopy JTF_VARCHAR2_TABLE_100
2147 , p6_a57 out nocopy JTF_VARCHAR2_TABLE_100
2148 )
2149
2150 as
2151 ddp_tclv_tbl okl_tcl_pvt.tclv_tbl_type;
2152 ddx_tclv_tbl okl_tcl_pvt.tclv_tbl_type;
2153 ddindx binary_integer; indx binary_integer;
2154 begin
2155
2156 -- copy data to the local IN or IN-OUT args, if any
2157
2158
2159
2160
2161
2162 okl_tcl_pvt_w.rosetta_table_copy_in_p5(ddp_tclv_tbl, p5_a0
2163 , p5_a1
2164 , p5_a2
2165 , p5_a3
2166 , p5_a4
2167 , p5_a5
2168 , p5_a6
2169 , p5_a7
2170 , p5_a8
2171 , p5_a9
2172 , p5_a10
2173 , p5_a11
2174 , p5_a12
2175 , p5_a13
2176 , p5_a14
2177 , p5_a15
2178 , p5_a16
2179 , p5_a17
2180 , p5_a18
2181 , p5_a19
2182 , p5_a20
2183 , p5_a21
2184 , p5_a22
2185 , p5_a23
2186 , p5_a24
2187 , p5_a25
2188 , p5_a26
2189 , p5_a27
2190 , p5_a28
2191 , p5_a29
2192 , p5_a30
2193 , p5_a31
2194 , p5_a32
2195 , p5_a33
2196 , p5_a34
2197 , p5_a35
2198 , p5_a36
2199 , p5_a37
2200 , p5_a38
2201 , p5_a39
2202 , p5_a40
2203 , p5_a41
2204 , p5_a42
2205 , p5_a43
2206 , p5_a44
2207 , p5_a45
2208 , p5_a46
2209 , p5_a47
2210 , p5_a48
2211 , p5_a49
2212 , p5_a50
2213 , p5_a51
2214 , p5_a52
2215 , p5_a53
2216 , p5_a54
2217 , p5_a55
2218 , p5_a56
2219 , p5_a57
2220 );
2221
2222
2223 -- here's the delegated call to the old PL/SQL routine
2224 okl_tcl_pvt.update_row(p_api_version,
2225 p_init_msg_list,
2226 x_return_status,
2227 x_msg_count,
2228 x_msg_data,
2229 ddp_tclv_tbl,
2230 ddx_tclv_tbl);
2231
2232 -- copy data back from the local variables to OUT or IN-OUT args, if any
2233
2234
2235
2236
2237
2238
2239 okl_tcl_pvt_w.rosetta_table_copy_out_p5(ddx_tclv_tbl, p6_a0
2240 , p6_a1
2241 , p6_a2
2242 , p6_a3
2243 , p6_a4
2244 , p6_a5
2245 , p6_a6
2246 , p6_a7
2247 , p6_a8
2248 , p6_a9
2249 , p6_a10
2250 , p6_a11
2251 , p6_a12
2252 , p6_a13
2253 , p6_a14
2254 , p6_a15
2255 , p6_a16
2256 , p6_a17
2257 , p6_a18
2258 , p6_a19
2259 , p6_a20
2260 , p6_a21
2261 , p6_a22
2262 , p6_a23
2263 , p6_a24
2264 , p6_a25
2265 , p6_a26
2266 , p6_a27
2267 , p6_a28
2268 , p6_a29
2269 , p6_a30
2270 , p6_a31
2271 , p6_a32
2272 , p6_a33
2273 , p6_a34
2274 , p6_a35
2275 , p6_a36
2276 , p6_a37
2277 , p6_a38
2278 , p6_a39
2279 , p6_a40
2280 , p6_a41
2281 , p6_a42
2282 , p6_a43
2283 , p6_a44
2284 , p6_a45
2285 , p6_a46
2286 , p6_a47
2287 , p6_a48
2288 , p6_a49
2289 , p6_a50
2290 , p6_a51
2291 , p6_a52
2292 , p6_a53
2293 , p6_a54
2294 , p6_a55
2295 , p6_a56
2296 , p6_a57
2297 );
2298 end;
2299
2300 procedure delete_row(p_api_version NUMBER
2301 , p_init_msg_list VARCHAR2
2302 , x_return_status out nocopy VARCHAR2
2303 , x_msg_count out nocopy NUMBER
2304 , x_msg_data out nocopy VARCHAR2
2305 , p5_a0 NUMBER := 0-1962.0724
2306 , p5_a1 NUMBER := 0-1962.0724
2307 , p5_a2 NUMBER := 0-1962.0724
2308 , p5_a3 NUMBER := 0-1962.0724
2309 , p5_a4 NUMBER := 0-1962.0724
2310 , p5_a5 NUMBER := 0-1962.0724
2311 , p5_a6 NUMBER := 0-1962.0724
2312 , p5_a7 NUMBER := 0-1962.0724
2313 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
2314 , p5_a9 NUMBER := 0-1962.0724
2315 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
2316 , p5_a11 NUMBER := 0-1962.0724
2317 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
2318 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
2319 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
2320 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
2321 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
2322 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
2323 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
2324 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
2325 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
2326 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
2327 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
2328 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
2329 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
2330 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
2331 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
2332 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
2333 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
2334 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
2335 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
2336 , p5_a31 NUMBER := 0-1962.0724
2337 , p5_a32 DATE := fnd_api.g_miss_date
2338 , p5_a33 NUMBER := 0-1962.0724
2339 , p5_a34 DATE := fnd_api.g_miss_date
2340 , p5_a35 NUMBER := 0-1962.0724
2341 , p5_a36 NUMBER := 0-1962.0724
2342 , p5_a37 NUMBER := 0-1962.0724
2343 , p5_a38 NUMBER := 0-1962.0724
2344 , p5_a39 DATE := fnd_api.g_miss_date
2345 , p5_a40 NUMBER := 0-1962.0724
2346 , p5_a41 NUMBER := 0-1962.0724
2347 , p5_a42 NUMBER := 0-1962.0724
2348 , p5_a43 NUMBER := 0-1962.0724
2349 , p5_a44 NUMBER := 0-1962.0724
2350 , p5_a45 VARCHAR2 := fnd_api.g_miss_char
2351 , p5_a46 VARCHAR2 := fnd_api.g_miss_char
2352 , p5_a47 NUMBER := 0-1962.0724
2353 , p5_a48 VARCHAR2 := fnd_api.g_miss_char
2354 , p5_a49 NUMBER := 0-1962.0724
2355 , p5_a50 VARCHAR2 := fnd_api.g_miss_char
2356 , p5_a51 NUMBER := 0-1962.0724
2357 , p5_a52 DATE := fnd_api.g_miss_date
2358 , p5_a53 NUMBER := 0-1962.0724
2359 , p5_a54 VARCHAR2 := fnd_api.g_miss_char
2360 , p5_a55 VARCHAR2 := fnd_api.g_miss_char
2361 , p5_a56 VARCHAR2 := fnd_api.g_miss_char
2362 , p5_a57 VARCHAR2 := fnd_api.g_miss_char
2363 )
2364
2365 as
2366 ddp_tclv_rec okl_tcl_pvt.tclv_rec_type;
2367 ddindx binary_integer; indx binary_integer;
2368 begin
2369
2370 -- copy data to the local IN or IN-OUT args, if any
2371
2372
2373
2374
2375
2376 ddp_tclv_rec.id := rosetta_g_miss_num_map(p5_a0);
2377 ddp_tclv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
2378 ddp_tclv_rec.sty_id := rosetta_g_miss_num_map(p5_a2);
2379 ddp_tclv_rec.rct_id := rosetta_g_miss_num_map(p5_a3);
2380 ddp_tclv_rec.btc_id := rosetta_g_miss_num_map(p5_a4);
2381 ddp_tclv_rec.tcn_id := rosetta_g_miss_num_map(p5_a5);
2382 ddp_tclv_rec.khr_id := rosetta_g_miss_num_map(p5_a6);
2383 ddp_tclv_rec.kle_id := rosetta_g_miss_num_map(p5_a7);
2384 ddp_tclv_rec.before_transfer_yn := p5_a8;
2385 ddp_tclv_rec.line_number := rosetta_g_miss_num_map(p5_a9);
2386 ddp_tclv_rec.description := p5_a10;
2387 ddp_tclv_rec.amount := rosetta_g_miss_num_map(p5_a11);
2388 ddp_tclv_rec.currency_code := p5_a12;
2389 ddp_tclv_rec.gl_reversal_yn := p5_a13;
2390 ddp_tclv_rec.attribute_category := p5_a14;
2391 ddp_tclv_rec.attribute1 := p5_a15;
2392 ddp_tclv_rec.attribute2 := p5_a16;
2393 ddp_tclv_rec.attribute3 := p5_a17;
2394 ddp_tclv_rec.attribute4 := p5_a18;
2395 ddp_tclv_rec.attribute5 := p5_a19;
2396 ddp_tclv_rec.attribute6 := p5_a20;
2397 ddp_tclv_rec.attribute7 := p5_a21;
2398 ddp_tclv_rec.attribute8 := p5_a22;
2399 ddp_tclv_rec.attribute9 := p5_a23;
2400 ddp_tclv_rec.attribute10 := p5_a24;
2401 ddp_tclv_rec.attribute11 := p5_a25;
2402 ddp_tclv_rec.attribute12 := p5_a26;
2403 ddp_tclv_rec.attribute13 := p5_a27;
2404 ddp_tclv_rec.attribute14 := p5_a28;
2405 ddp_tclv_rec.attribute15 := p5_a29;
2406 ddp_tclv_rec.tcl_type := p5_a30;
2407 ddp_tclv_rec.created_by := rosetta_g_miss_num_map(p5_a31);
2408 ddp_tclv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a32);
2409 ddp_tclv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a33);
2410 ddp_tclv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a34);
2411 ddp_tclv_rec.org_id := rosetta_g_miss_num_map(p5_a35);
2412 ddp_tclv_rec.program_id := rosetta_g_miss_num_map(p5_a36);
2413 ddp_tclv_rec.program_application_id := rosetta_g_miss_num_map(p5_a37);
2414 ddp_tclv_rec.request_id := rosetta_g_miss_num_map(p5_a38);
2415 ddp_tclv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a39);
2416 ddp_tclv_rec.last_update_login := rosetta_g_miss_num_map(p5_a40);
2417 ddp_tclv_rec.avl_id := rosetta_g_miss_num_map(p5_a41);
2418 ddp_tclv_rec.bkt_id := rosetta_g_miss_num_map(p5_a42);
2419 ddp_tclv_rec.kle_id_new := rosetta_g_miss_num_map(p5_a43);
2420 ddp_tclv_rec.percentage := rosetta_g_miss_num_map(p5_a44);
2421 ddp_tclv_rec.accrual_rule_yn := p5_a45;
2422 ddp_tclv_rec.source_column_1 := p5_a46;
2423 ddp_tclv_rec.source_value_1 := rosetta_g_miss_num_map(p5_a47);
2424 ddp_tclv_rec.source_column_2 := p5_a48;
2425 ddp_tclv_rec.source_value_2 := rosetta_g_miss_num_map(p5_a49);
2426 ddp_tclv_rec.source_column_3 := p5_a50;
2427 ddp_tclv_rec.source_value_3 := rosetta_g_miss_num_map(p5_a51);
2428 ddp_tclv_rec.canceled_date := rosetta_g_miss_date_in_map(p5_a52);
2429 ddp_tclv_rec.tax_line_id := rosetta_g_miss_num_map(p5_a53);
2430 ddp_tclv_rec.stream_type_code := p5_a54;
2431 ddp_tclv_rec.stream_type_purpose := p5_a55;
2432 ddp_tclv_rec.asset_book_type_name := p5_a56;
2433 ddp_tclv_rec.upgrade_status_flag := p5_a57;
2434
2435 -- here's the delegated call to the old PL/SQL routine
2436 okl_tcl_pvt.delete_row(p_api_version,
2437 p_init_msg_list,
2438 x_return_status,
2439 x_msg_count,
2440 x_msg_data,
2441 ddp_tclv_rec);
2442
2443 -- copy data back from the local variables to OUT or IN-OUT args, if any
2444
2445
2446
2447
2448
2449 end;
2450
2451 procedure delete_row(p_api_version NUMBER
2452 , p_init_msg_list VARCHAR2
2453 , x_return_status out nocopy VARCHAR2
2454 , x_msg_count out nocopy NUMBER
2455 , x_msg_data out nocopy VARCHAR2
2456 , p5_a0 JTF_NUMBER_TABLE
2457 , p5_a1 JTF_NUMBER_TABLE
2458 , p5_a2 JTF_NUMBER_TABLE
2459 , p5_a3 JTF_NUMBER_TABLE
2460 , p5_a4 JTF_NUMBER_TABLE
2461 , p5_a5 JTF_NUMBER_TABLE
2462 , p5_a6 JTF_NUMBER_TABLE
2463 , p5_a7 JTF_NUMBER_TABLE
2464 , p5_a8 JTF_VARCHAR2_TABLE_100
2465 , p5_a9 JTF_NUMBER_TABLE
2466 , p5_a10 JTF_VARCHAR2_TABLE_2000
2467 , p5_a11 JTF_NUMBER_TABLE
2468 , p5_a12 JTF_VARCHAR2_TABLE_200
2469 , p5_a13 JTF_VARCHAR2_TABLE_100
2470 , p5_a14 JTF_VARCHAR2_TABLE_100
2471 , p5_a15 JTF_VARCHAR2_TABLE_500
2472 , p5_a16 JTF_VARCHAR2_TABLE_500
2473 , p5_a17 JTF_VARCHAR2_TABLE_500
2474 , p5_a18 JTF_VARCHAR2_TABLE_500
2475 , p5_a19 JTF_VARCHAR2_TABLE_500
2476 , p5_a20 JTF_VARCHAR2_TABLE_500
2477 , p5_a21 JTF_VARCHAR2_TABLE_500
2478 , p5_a22 JTF_VARCHAR2_TABLE_500
2479 , p5_a23 JTF_VARCHAR2_TABLE_500
2480 , p5_a24 JTF_VARCHAR2_TABLE_500
2481 , p5_a25 JTF_VARCHAR2_TABLE_500
2482 , p5_a26 JTF_VARCHAR2_TABLE_500
2483 , p5_a27 JTF_VARCHAR2_TABLE_500
2484 , p5_a28 JTF_VARCHAR2_TABLE_500
2485 , p5_a29 JTF_VARCHAR2_TABLE_500
2486 , p5_a30 JTF_VARCHAR2_TABLE_100
2487 , p5_a31 JTF_NUMBER_TABLE
2488 , p5_a32 JTF_DATE_TABLE
2489 , p5_a33 JTF_NUMBER_TABLE
2490 , p5_a34 JTF_DATE_TABLE
2491 , p5_a35 JTF_NUMBER_TABLE
2492 , p5_a36 JTF_NUMBER_TABLE
2493 , p5_a37 JTF_NUMBER_TABLE
2494 , p5_a38 JTF_NUMBER_TABLE
2495 , p5_a39 JTF_DATE_TABLE
2496 , p5_a40 JTF_NUMBER_TABLE
2497 , p5_a41 JTF_NUMBER_TABLE
2498 , p5_a42 JTF_NUMBER_TABLE
2499 , p5_a43 JTF_NUMBER_TABLE
2500 , p5_a44 JTF_NUMBER_TABLE
2501 , p5_a45 JTF_VARCHAR2_TABLE_100
2502 , p5_a46 JTF_VARCHAR2_TABLE_200
2503 , p5_a47 JTF_NUMBER_TABLE
2504 , p5_a48 JTF_VARCHAR2_TABLE_200
2505 , p5_a49 JTF_NUMBER_TABLE
2506 , p5_a50 JTF_VARCHAR2_TABLE_200
2507 , p5_a51 JTF_NUMBER_TABLE
2508 , p5_a52 JTF_DATE_TABLE
2509 , p5_a53 JTF_NUMBER_TABLE
2510 , p5_a54 JTF_VARCHAR2_TABLE_200
2511 , p5_a55 JTF_VARCHAR2_TABLE_300
2512 , p5_a56 JTF_VARCHAR2_TABLE_100
2513 , p5_a57 JTF_VARCHAR2_TABLE_100
2514 )
2515
2516 as
2517 ddp_tclv_tbl okl_tcl_pvt.tclv_tbl_type;
2518 ddindx binary_integer; indx binary_integer;
2519 begin
2520
2521 -- copy data to the local IN or IN-OUT args, if any
2522
2523
2524
2525
2526
2527 okl_tcl_pvt_w.rosetta_table_copy_in_p5(ddp_tclv_tbl, p5_a0
2528 , p5_a1
2529 , p5_a2
2530 , p5_a3
2531 , p5_a4
2532 , p5_a5
2533 , p5_a6
2534 , p5_a7
2535 , p5_a8
2536 , p5_a9
2537 , p5_a10
2538 , p5_a11
2539 , p5_a12
2540 , p5_a13
2541 , p5_a14
2542 , p5_a15
2543 , p5_a16
2544 , p5_a17
2545 , p5_a18
2546 , p5_a19
2547 , p5_a20
2548 , p5_a21
2549 , p5_a22
2550 , p5_a23
2551 , p5_a24
2552 , p5_a25
2553 , p5_a26
2554 , p5_a27
2555 , p5_a28
2556 , p5_a29
2557 , p5_a30
2558 , p5_a31
2559 , p5_a32
2560 , p5_a33
2561 , p5_a34
2562 , p5_a35
2563 , p5_a36
2564 , p5_a37
2565 , p5_a38
2566 , p5_a39
2567 , p5_a40
2568 , p5_a41
2569 , p5_a42
2570 , p5_a43
2571 , p5_a44
2572 , p5_a45
2573 , p5_a46
2574 , p5_a47
2575 , p5_a48
2576 , p5_a49
2577 , p5_a50
2578 , p5_a51
2579 , p5_a52
2580 , p5_a53
2581 , p5_a54
2582 , p5_a55
2583 , p5_a56
2584 , p5_a57
2585 );
2586
2587 -- here's the delegated call to the old PL/SQL routine
2588 okl_tcl_pvt.delete_row(p_api_version,
2589 p_init_msg_list,
2590 x_return_status,
2591 x_msg_count,
2592 x_msg_data,
2593 ddp_tclv_tbl);
2594
2595 -- copy data back from the local variables to OUT or IN-OUT args, if any
2596
2597
2598
2599
2600
2601 end;
2602
2603 procedure validate_row(p_api_version NUMBER
2604 , p_init_msg_list VARCHAR2
2605 , x_return_status out nocopy VARCHAR2
2606 , x_msg_count out nocopy NUMBER
2607 , x_msg_data out nocopy VARCHAR2
2608 , p5_a0 NUMBER := 0-1962.0724
2609 , p5_a1 NUMBER := 0-1962.0724
2610 , p5_a2 NUMBER := 0-1962.0724
2611 , p5_a3 NUMBER := 0-1962.0724
2612 , p5_a4 NUMBER := 0-1962.0724
2613 , p5_a5 NUMBER := 0-1962.0724
2614 , p5_a6 NUMBER := 0-1962.0724
2615 , p5_a7 NUMBER := 0-1962.0724
2616 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
2617 , p5_a9 NUMBER := 0-1962.0724
2618 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
2619 , p5_a11 NUMBER := 0-1962.0724
2620 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
2621 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
2622 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
2623 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
2624 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
2625 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
2626 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
2627 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
2628 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
2629 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
2630 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
2631 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
2632 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
2633 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
2634 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
2635 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
2636 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
2637 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
2638 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
2639 , p5_a31 NUMBER := 0-1962.0724
2640 , p5_a32 DATE := fnd_api.g_miss_date
2641 , p5_a33 NUMBER := 0-1962.0724
2642 , p5_a34 DATE := fnd_api.g_miss_date
2643 , p5_a35 NUMBER := 0-1962.0724
2644 , p5_a36 NUMBER := 0-1962.0724
2645 , p5_a37 NUMBER := 0-1962.0724
2646 , p5_a38 NUMBER := 0-1962.0724
2647 , p5_a39 DATE := fnd_api.g_miss_date
2648 , p5_a40 NUMBER := 0-1962.0724
2649 , p5_a41 NUMBER := 0-1962.0724
2650 , p5_a42 NUMBER := 0-1962.0724
2651 , p5_a43 NUMBER := 0-1962.0724
2652 , p5_a44 NUMBER := 0-1962.0724
2653 , p5_a45 VARCHAR2 := fnd_api.g_miss_char
2654 , p5_a46 VARCHAR2 := fnd_api.g_miss_char
2655 , p5_a47 NUMBER := 0-1962.0724
2656 , p5_a48 VARCHAR2 := fnd_api.g_miss_char
2657 , p5_a49 NUMBER := 0-1962.0724
2658 , p5_a50 VARCHAR2 := fnd_api.g_miss_char
2659 , p5_a51 NUMBER := 0-1962.0724
2660 , p5_a52 DATE := fnd_api.g_miss_date
2661 , p5_a53 NUMBER := 0-1962.0724
2662 , p5_a54 VARCHAR2 := fnd_api.g_miss_char
2663 , p5_a55 VARCHAR2 := fnd_api.g_miss_char
2664 , p5_a56 VARCHAR2 := fnd_api.g_miss_char
2665 , p5_a57 VARCHAR2 := fnd_api.g_miss_char
2666 )
2667
2668 as
2669 ddp_tclv_rec okl_tcl_pvt.tclv_rec_type;
2670 ddindx binary_integer; indx binary_integer;
2671 begin
2672
2673 -- copy data to the local IN or IN-OUT args, if any
2674
2675
2676
2677
2678
2679 ddp_tclv_rec.id := rosetta_g_miss_num_map(p5_a0);
2680 ddp_tclv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
2681 ddp_tclv_rec.sty_id := rosetta_g_miss_num_map(p5_a2);
2682 ddp_tclv_rec.rct_id := rosetta_g_miss_num_map(p5_a3);
2683 ddp_tclv_rec.btc_id := rosetta_g_miss_num_map(p5_a4);
2684 ddp_tclv_rec.tcn_id := rosetta_g_miss_num_map(p5_a5);
2685 ddp_tclv_rec.khr_id := rosetta_g_miss_num_map(p5_a6);
2686 ddp_tclv_rec.kle_id := rosetta_g_miss_num_map(p5_a7);
2687 ddp_tclv_rec.before_transfer_yn := p5_a8;
2688 ddp_tclv_rec.line_number := rosetta_g_miss_num_map(p5_a9);
2689 ddp_tclv_rec.description := p5_a10;
2690 ddp_tclv_rec.amount := rosetta_g_miss_num_map(p5_a11);
2691 ddp_tclv_rec.currency_code := p5_a12;
2692 ddp_tclv_rec.gl_reversal_yn := p5_a13;
2693 ddp_tclv_rec.attribute_category := p5_a14;
2694 ddp_tclv_rec.attribute1 := p5_a15;
2695 ddp_tclv_rec.attribute2 := p5_a16;
2696 ddp_tclv_rec.attribute3 := p5_a17;
2697 ddp_tclv_rec.attribute4 := p5_a18;
2698 ddp_tclv_rec.attribute5 := p5_a19;
2699 ddp_tclv_rec.attribute6 := p5_a20;
2700 ddp_tclv_rec.attribute7 := p5_a21;
2701 ddp_tclv_rec.attribute8 := p5_a22;
2702 ddp_tclv_rec.attribute9 := p5_a23;
2703 ddp_tclv_rec.attribute10 := p5_a24;
2704 ddp_tclv_rec.attribute11 := p5_a25;
2705 ddp_tclv_rec.attribute12 := p5_a26;
2706 ddp_tclv_rec.attribute13 := p5_a27;
2707 ddp_tclv_rec.attribute14 := p5_a28;
2708 ddp_tclv_rec.attribute15 := p5_a29;
2709 ddp_tclv_rec.tcl_type := p5_a30;
2710 ddp_tclv_rec.created_by := rosetta_g_miss_num_map(p5_a31);
2711 ddp_tclv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a32);
2712 ddp_tclv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a33);
2713 ddp_tclv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a34);
2714 ddp_tclv_rec.org_id := rosetta_g_miss_num_map(p5_a35);
2715 ddp_tclv_rec.program_id := rosetta_g_miss_num_map(p5_a36);
2716 ddp_tclv_rec.program_application_id := rosetta_g_miss_num_map(p5_a37);
2717 ddp_tclv_rec.request_id := rosetta_g_miss_num_map(p5_a38);
2718 ddp_tclv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a39);
2719 ddp_tclv_rec.last_update_login := rosetta_g_miss_num_map(p5_a40);
2720 ddp_tclv_rec.avl_id := rosetta_g_miss_num_map(p5_a41);
2721 ddp_tclv_rec.bkt_id := rosetta_g_miss_num_map(p5_a42);
2722 ddp_tclv_rec.kle_id_new := rosetta_g_miss_num_map(p5_a43);
2723 ddp_tclv_rec.percentage := rosetta_g_miss_num_map(p5_a44);
2724 ddp_tclv_rec.accrual_rule_yn := p5_a45;
2725 ddp_tclv_rec.source_column_1 := p5_a46;
2726 ddp_tclv_rec.source_value_1 := rosetta_g_miss_num_map(p5_a47);
2727 ddp_tclv_rec.source_column_2 := p5_a48;
2728 ddp_tclv_rec.source_value_2 := rosetta_g_miss_num_map(p5_a49);
2729 ddp_tclv_rec.source_column_3 := p5_a50;
2730 ddp_tclv_rec.source_value_3 := rosetta_g_miss_num_map(p5_a51);
2731 ddp_tclv_rec.canceled_date := rosetta_g_miss_date_in_map(p5_a52);
2732 ddp_tclv_rec.tax_line_id := rosetta_g_miss_num_map(p5_a53);
2733 ddp_tclv_rec.stream_type_code := p5_a54;
2734 ddp_tclv_rec.stream_type_purpose := p5_a55;
2735 ddp_tclv_rec.asset_book_type_name := p5_a56;
2736 ddp_tclv_rec.upgrade_status_flag := p5_a57;
2737
2738 -- here's the delegated call to the old PL/SQL routine
2739 okl_tcl_pvt.validate_row(p_api_version,
2740 p_init_msg_list,
2741 x_return_status,
2742 x_msg_count,
2743 x_msg_data,
2744 ddp_tclv_rec);
2745
2746 -- copy data back from the local variables to OUT or IN-OUT args, if any
2747
2748
2749
2750
2751
2752 end;
2753
2754 procedure validate_row(p_api_version NUMBER
2755 , p_init_msg_list VARCHAR2
2756 , x_return_status out nocopy VARCHAR2
2757 , x_msg_count out nocopy NUMBER
2758 , x_msg_data out nocopy VARCHAR2
2759 , p5_a0 JTF_NUMBER_TABLE
2760 , p5_a1 JTF_NUMBER_TABLE
2761 , p5_a2 JTF_NUMBER_TABLE
2762 , p5_a3 JTF_NUMBER_TABLE
2763 , p5_a4 JTF_NUMBER_TABLE
2764 , p5_a5 JTF_NUMBER_TABLE
2765 , p5_a6 JTF_NUMBER_TABLE
2766 , p5_a7 JTF_NUMBER_TABLE
2767 , p5_a8 JTF_VARCHAR2_TABLE_100
2768 , p5_a9 JTF_NUMBER_TABLE
2769 , p5_a10 JTF_VARCHAR2_TABLE_2000
2770 , p5_a11 JTF_NUMBER_TABLE
2771 , p5_a12 JTF_VARCHAR2_TABLE_200
2772 , p5_a13 JTF_VARCHAR2_TABLE_100
2773 , p5_a14 JTF_VARCHAR2_TABLE_100
2774 , p5_a15 JTF_VARCHAR2_TABLE_500
2775 , p5_a16 JTF_VARCHAR2_TABLE_500
2776 , p5_a17 JTF_VARCHAR2_TABLE_500
2777 , p5_a18 JTF_VARCHAR2_TABLE_500
2778 , p5_a19 JTF_VARCHAR2_TABLE_500
2779 , p5_a20 JTF_VARCHAR2_TABLE_500
2780 , p5_a21 JTF_VARCHAR2_TABLE_500
2781 , p5_a22 JTF_VARCHAR2_TABLE_500
2782 , p5_a23 JTF_VARCHAR2_TABLE_500
2783 , p5_a24 JTF_VARCHAR2_TABLE_500
2784 , p5_a25 JTF_VARCHAR2_TABLE_500
2785 , p5_a26 JTF_VARCHAR2_TABLE_500
2786 , p5_a27 JTF_VARCHAR2_TABLE_500
2787 , p5_a28 JTF_VARCHAR2_TABLE_500
2788 , p5_a29 JTF_VARCHAR2_TABLE_500
2789 , p5_a30 JTF_VARCHAR2_TABLE_100
2790 , p5_a31 JTF_NUMBER_TABLE
2791 , p5_a32 JTF_DATE_TABLE
2792 , p5_a33 JTF_NUMBER_TABLE
2793 , p5_a34 JTF_DATE_TABLE
2794 , p5_a35 JTF_NUMBER_TABLE
2795 , p5_a36 JTF_NUMBER_TABLE
2796 , p5_a37 JTF_NUMBER_TABLE
2797 , p5_a38 JTF_NUMBER_TABLE
2798 , p5_a39 JTF_DATE_TABLE
2799 , p5_a40 JTF_NUMBER_TABLE
2800 , p5_a41 JTF_NUMBER_TABLE
2801 , p5_a42 JTF_NUMBER_TABLE
2802 , p5_a43 JTF_NUMBER_TABLE
2803 , p5_a44 JTF_NUMBER_TABLE
2804 , p5_a45 JTF_VARCHAR2_TABLE_100
2805 , p5_a46 JTF_VARCHAR2_TABLE_200
2806 , p5_a47 JTF_NUMBER_TABLE
2807 , p5_a48 JTF_VARCHAR2_TABLE_200
2808 , p5_a49 JTF_NUMBER_TABLE
2809 , p5_a50 JTF_VARCHAR2_TABLE_200
2810 , p5_a51 JTF_NUMBER_TABLE
2811 , p5_a52 JTF_DATE_TABLE
2812 , p5_a53 JTF_NUMBER_TABLE
2813 , p5_a54 JTF_VARCHAR2_TABLE_200
2814 , p5_a55 JTF_VARCHAR2_TABLE_300
2815 , p5_a56 JTF_VARCHAR2_TABLE_100
2816 , p5_a57 JTF_VARCHAR2_TABLE_100
2817 )
2818
2819 as
2820 ddp_tclv_tbl okl_tcl_pvt.tclv_tbl_type;
2821 ddindx binary_integer; indx binary_integer;
2822 begin
2823
2824 -- copy data to the local IN or IN-OUT args, if any
2825
2826
2827
2828
2829
2830 okl_tcl_pvt_w.rosetta_table_copy_in_p5(ddp_tclv_tbl, p5_a0
2831 , p5_a1
2832 , p5_a2
2833 , p5_a3
2834 , p5_a4
2835 , p5_a5
2836 , p5_a6
2837 , p5_a7
2838 , p5_a8
2839 , p5_a9
2840 , p5_a10
2841 , p5_a11
2842 , p5_a12
2843 , p5_a13
2844 , p5_a14
2845 , p5_a15
2846 , p5_a16
2847 , p5_a17
2848 , p5_a18
2849 , p5_a19
2850 , p5_a20
2851 , p5_a21
2852 , p5_a22
2853 , p5_a23
2854 , p5_a24
2855 , p5_a25
2856 , p5_a26
2857 , p5_a27
2858 , p5_a28
2859 , p5_a29
2860 , p5_a30
2861 , p5_a31
2862 , p5_a32
2863 , p5_a33
2864 , p5_a34
2865 , p5_a35
2866 , p5_a36
2867 , p5_a37
2868 , p5_a38
2869 , p5_a39
2870 , p5_a40
2871 , p5_a41
2872 , p5_a42
2873 , p5_a43
2874 , p5_a44
2875 , p5_a45
2876 , p5_a46
2877 , p5_a47
2878 , p5_a48
2879 , p5_a49
2880 , p5_a50
2881 , p5_a51
2882 , p5_a52
2883 , p5_a53
2884 , p5_a54
2885 , p5_a55
2886 , p5_a56
2887 , p5_a57
2888 );
2889
2890 -- here's the delegated call to the old PL/SQL routine
2891 okl_tcl_pvt.validate_row(p_api_version,
2892 p_init_msg_list,
2893 x_return_status,
2894 x_msg_count,
2895 x_msg_data,
2896 ddp_tclv_tbl);
2897
2898 -- copy data back from the local variables to OUT or IN-OUT args, if any
2899
2900
2901
2902
2903
2904 end;
2905
2906 end okl_tcl_pvt_w;