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