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