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