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