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