[Home] [Help]
PACKAGE BODY: APPS.OKL_ILS_PVT_W
Source
1 package body okl_ils_pvt_w as
2 /* $Header: OKLIILSB.pls 120.1 2005/07/13 09:27:29 asawanka 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_ils_pvt.ils_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_VARCHAR2_TABLE_100
28 , a6 JTF_VARCHAR2_TABLE_500
29 , a7 JTF_VARCHAR2_TABLE_500
30 , a8 JTF_VARCHAR2_TABLE_500
31 , a9 JTF_VARCHAR2_TABLE_500
32 , a10 JTF_VARCHAR2_TABLE_500
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_NUMBER_TABLE
44 , a22 JTF_DATE_TABLE
45 , a23 JTF_NUMBER_TABLE
46 , a24 JTF_DATE_TABLE
47 , a25 JTF_NUMBER_TABLE
48 ) as
49 ddindx binary_integer; indx binary_integer;
50 begin
51 if a0 is not null and a0.count > 0 then
52 if a0.count > 0 then
53 indx := a0.first;
54 ddindx := 1;
55 while true loop
56 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
57 t(ddindx).sty_id := rosetta_g_miss_num_map(a1(indx));
58 t(ddindx).inf_id := rosetta_g_miss_num_map(a2(indx));
59 t(ddindx).ilt_id := rosetta_g_miss_num_map(a3(indx));
60 t(ddindx).object_version_number := rosetta_g_miss_num_map(a4(indx));
61 t(ddindx).attribute_category := a5(indx);
62 t(ddindx).attribute1 := a6(indx);
63 t(ddindx).attribute2 := a7(indx);
64 t(ddindx).attribute3 := a8(indx);
65 t(ddindx).attribute4 := a9(indx);
66 t(ddindx).attribute5 := a10(indx);
67 t(ddindx).attribute6 := a11(indx);
68 t(ddindx).attribute7 := a12(indx);
69 t(ddindx).attribute8 := a13(indx);
70 t(ddindx).attribute9 := a14(indx);
71 t(ddindx).attribute10 := a15(indx);
72 t(ddindx).attribute11 := a16(indx);
73 t(ddindx).attribute12 := a17(indx);
74 t(ddindx).attribute13 := a18(indx);
75 t(ddindx).attribute14 := a19(indx);
76 t(ddindx).attribute15 := a20(indx);
77 t(ddindx).created_by := rosetta_g_miss_num_map(a21(indx));
78 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a22(indx));
79 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a23(indx));
80 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a24(indx));
81 t(ddindx).last_update_login := rosetta_g_miss_num_map(a25(indx));
82 ddindx := ddindx+1;
83 if a0.last =indx
84 then exit;
85 end if;
86 indx := a0.next(indx);
87 end loop;
88 end if;
89 end if;
90 end rosetta_table_copy_in_p2;
91 procedure rosetta_table_copy_out_p2(t okl_ils_pvt.ils_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
92 , a1 out nocopy JTF_NUMBER_TABLE
93 , a2 out nocopy JTF_NUMBER_TABLE
94 , a3 out nocopy JTF_NUMBER_TABLE
95 , a4 out nocopy JTF_NUMBER_TABLE
96 , a5 out nocopy JTF_VARCHAR2_TABLE_100
97 , a6 out nocopy JTF_VARCHAR2_TABLE_500
98 , a7 out nocopy JTF_VARCHAR2_TABLE_500
99 , a8 out nocopy JTF_VARCHAR2_TABLE_500
100 , a9 out nocopy JTF_VARCHAR2_TABLE_500
101 , a10 out nocopy JTF_VARCHAR2_TABLE_500
102 , a11 out nocopy JTF_VARCHAR2_TABLE_500
103 , a12 out nocopy JTF_VARCHAR2_TABLE_500
104 , a13 out nocopy JTF_VARCHAR2_TABLE_500
105 , a14 out nocopy JTF_VARCHAR2_TABLE_500
106 , a15 out nocopy JTF_VARCHAR2_TABLE_500
107 , a16 out nocopy JTF_VARCHAR2_TABLE_500
108 , a17 out nocopy JTF_VARCHAR2_TABLE_500
109 , a18 out nocopy JTF_VARCHAR2_TABLE_500
110 , a19 out nocopy JTF_VARCHAR2_TABLE_500
111 , a20 out nocopy JTF_VARCHAR2_TABLE_500
112 , a21 out nocopy JTF_NUMBER_TABLE
113 , a22 out nocopy JTF_DATE_TABLE
114 , a23 out nocopy JTF_NUMBER_TABLE
115 , a24 out nocopy JTF_DATE_TABLE
116 , a25 out nocopy JTF_NUMBER_TABLE
117 ) as
118 ddindx binary_integer; indx binary_integer;
119 begin
120 if t is null or t.count = 0 then
121 a0 := JTF_NUMBER_TABLE();
122 a1 := JTF_NUMBER_TABLE();
123 a2 := JTF_NUMBER_TABLE();
124 a3 := JTF_NUMBER_TABLE();
125 a4 := JTF_NUMBER_TABLE();
126 a5 := JTF_VARCHAR2_TABLE_100();
127 a6 := JTF_VARCHAR2_TABLE_500();
128 a7 := JTF_VARCHAR2_TABLE_500();
129 a8 := JTF_VARCHAR2_TABLE_500();
130 a9 := JTF_VARCHAR2_TABLE_500();
131 a10 := JTF_VARCHAR2_TABLE_500();
132 a11 := JTF_VARCHAR2_TABLE_500();
133 a12 := JTF_VARCHAR2_TABLE_500();
134 a13 := JTF_VARCHAR2_TABLE_500();
135 a14 := JTF_VARCHAR2_TABLE_500();
136 a15 := JTF_VARCHAR2_TABLE_500();
137 a16 := JTF_VARCHAR2_TABLE_500();
138 a17 := JTF_VARCHAR2_TABLE_500();
139 a18 := JTF_VARCHAR2_TABLE_500();
140 a19 := JTF_VARCHAR2_TABLE_500();
141 a20 := JTF_VARCHAR2_TABLE_500();
142 a21 := JTF_NUMBER_TABLE();
143 a22 := JTF_DATE_TABLE();
144 a23 := JTF_NUMBER_TABLE();
145 a24 := JTF_DATE_TABLE();
146 a25 := JTF_NUMBER_TABLE();
147 else
148 a0 := JTF_NUMBER_TABLE();
149 a1 := JTF_NUMBER_TABLE();
150 a2 := JTF_NUMBER_TABLE();
151 a3 := JTF_NUMBER_TABLE();
152 a4 := JTF_NUMBER_TABLE();
153 a5 := JTF_VARCHAR2_TABLE_100();
154 a6 := JTF_VARCHAR2_TABLE_500();
155 a7 := JTF_VARCHAR2_TABLE_500();
156 a8 := JTF_VARCHAR2_TABLE_500();
157 a9 := JTF_VARCHAR2_TABLE_500();
158 a10 := JTF_VARCHAR2_TABLE_500();
159 a11 := JTF_VARCHAR2_TABLE_500();
160 a12 := JTF_VARCHAR2_TABLE_500();
161 a13 := JTF_VARCHAR2_TABLE_500();
162 a14 := JTF_VARCHAR2_TABLE_500();
163 a15 := JTF_VARCHAR2_TABLE_500();
164 a16 := JTF_VARCHAR2_TABLE_500();
165 a17 := JTF_VARCHAR2_TABLE_500();
166 a18 := JTF_VARCHAR2_TABLE_500();
167 a19 := JTF_VARCHAR2_TABLE_500();
168 a20 := JTF_VARCHAR2_TABLE_500();
169 a21 := JTF_NUMBER_TABLE();
170 a22 := JTF_DATE_TABLE();
171 a23 := JTF_NUMBER_TABLE();
172 a24 := JTF_DATE_TABLE();
173 a25 := JTF_NUMBER_TABLE();
174 if t.count > 0 then
175 a0.extend(t.count);
176 a1.extend(t.count);
177 a2.extend(t.count);
178 a3.extend(t.count);
179 a4.extend(t.count);
180 a5.extend(t.count);
181 a6.extend(t.count);
182 a7.extend(t.count);
183 a8.extend(t.count);
184 a9.extend(t.count);
185 a10.extend(t.count);
186 a11.extend(t.count);
187 a12.extend(t.count);
188 a13.extend(t.count);
189 a14.extend(t.count);
190 a15.extend(t.count);
191 a16.extend(t.count);
192 a17.extend(t.count);
193 a18.extend(t.count);
194 a19.extend(t.count);
195 a20.extend(t.count);
196 a21.extend(t.count);
197 a22.extend(t.count);
198 a23.extend(t.count);
199 a24.extend(t.count);
200 a25.extend(t.count);
201 ddindx := t.first;
202 indx := 1;
203 while true loop
204 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
205 a1(indx) := rosetta_g_miss_num_map(t(ddindx).sty_id);
206 a2(indx) := rosetta_g_miss_num_map(t(ddindx).inf_id);
207 a3(indx) := rosetta_g_miss_num_map(t(ddindx).ilt_id);
208 a4(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
209 a5(indx) := t(ddindx).attribute_category;
210 a6(indx) := t(ddindx).attribute1;
211 a7(indx) := t(ddindx).attribute2;
212 a8(indx) := t(ddindx).attribute3;
213 a9(indx) := t(ddindx).attribute4;
214 a10(indx) := t(ddindx).attribute5;
215 a11(indx) := t(ddindx).attribute6;
216 a12(indx) := t(ddindx).attribute7;
217 a13(indx) := t(ddindx).attribute8;
218 a14(indx) := t(ddindx).attribute9;
219 a15(indx) := t(ddindx).attribute10;
220 a16(indx) := t(ddindx).attribute11;
221 a17(indx) := t(ddindx).attribute12;
222 a18(indx) := t(ddindx).attribute13;
223 a19(indx) := t(ddindx).attribute14;
224 a20(indx) := t(ddindx).attribute15;
225 a21(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
226 a22(indx) := t(ddindx).creation_date;
227 a23(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
228 a24(indx) := t(ddindx).last_update_date;
229 a25(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
230 indx := indx+1;
231 if t.last =ddindx
232 then exit;
233 end if;
234 ddindx := t.next(ddindx);
235 end loop;
236 end if;
237 end if;
238 end rosetta_table_copy_out_p2;
239
240 procedure rosetta_table_copy_in_p5(t out nocopy okl_ils_pvt.ilsv_tbl_type, a0 JTF_NUMBER_TABLE
241 , a1 JTF_NUMBER_TABLE
242 , a2 JTF_NUMBER_TABLE
243 , a3 JTF_NUMBER_TABLE
244 , a4 JTF_NUMBER_TABLE
245 , a5 JTF_VARCHAR2_TABLE_100
246 , a6 JTF_VARCHAR2_TABLE_500
247 , a7 JTF_VARCHAR2_TABLE_500
248 , a8 JTF_VARCHAR2_TABLE_500
249 , a9 JTF_VARCHAR2_TABLE_500
250 , a10 JTF_VARCHAR2_TABLE_500
251 , a11 JTF_VARCHAR2_TABLE_500
252 , a12 JTF_VARCHAR2_TABLE_500
253 , a13 JTF_VARCHAR2_TABLE_500
254 , a14 JTF_VARCHAR2_TABLE_500
255 , a15 JTF_VARCHAR2_TABLE_500
256 , a16 JTF_VARCHAR2_TABLE_500
257 , a17 JTF_VARCHAR2_TABLE_500
258 , a18 JTF_VARCHAR2_TABLE_500
259 , a19 JTF_VARCHAR2_TABLE_500
260 , a20 JTF_VARCHAR2_TABLE_500
261 , a21 JTF_NUMBER_TABLE
262 , a22 JTF_DATE_TABLE
263 , a23 JTF_NUMBER_TABLE
264 , a24 JTF_DATE_TABLE
265 , a25 JTF_NUMBER_TABLE
266 ) as
267 ddindx binary_integer; indx binary_integer;
268 begin
269 if a0 is not null and a0.count > 0 then
270 if a0.count > 0 then
271 indx := a0.first;
272 ddindx := 1;
273 while true loop
274 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
275 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
276 t(ddindx).sty_id := rosetta_g_miss_num_map(a2(indx));
277 t(ddindx).inf_id := rosetta_g_miss_num_map(a3(indx));
278 t(ddindx).ilt_id := rosetta_g_miss_num_map(a4(indx));
279 t(ddindx).attribute_category := a5(indx);
280 t(ddindx).attribute1 := a6(indx);
281 t(ddindx).attribute2 := a7(indx);
282 t(ddindx).attribute3 := a8(indx);
283 t(ddindx).attribute4 := a9(indx);
284 t(ddindx).attribute5 := a10(indx);
285 t(ddindx).attribute6 := a11(indx);
286 t(ddindx).attribute7 := a12(indx);
287 t(ddindx).attribute8 := a13(indx);
288 t(ddindx).attribute9 := a14(indx);
289 t(ddindx).attribute10 := a15(indx);
290 t(ddindx).attribute11 := a16(indx);
291 t(ddindx).attribute12 := a17(indx);
292 t(ddindx).attribute13 := a18(indx);
293 t(ddindx).attribute14 := a19(indx);
294 t(ddindx).attribute15 := a20(indx);
295 t(ddindx).created_by := rosetta_g_miss_num_map(a21(indx));
296 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a22(indx));
297 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a23(indx));
298 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a24(indx));
299 t(ddindx).last_update_login := rosetta_g_miss_num_map(a25(indx));
300 ddindx := ddindx+1;
301 if a0.last =indx
302 then exit;
303 end if;
304 indx := a0.next(indx);
305 end loop;
306 end if;
307 end if;
308 end rosetta_table_copy_in_p5;
309 procedure rosetta_table_copy_out_p5(t okl_ils_pvt.ilsv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
310 , a1 out nocopy JTF_NUMBER_TABLE
311 , a2 out nocopy JTF_NUMBER_TABLE
312 , a3 out nocopy JTF_NUMBER_TABLE
313 , a4 out nocopy JTF_NUMBER_TABLE
314 , a5 out nocopy JTF_VARCHAR2_TABLE_100
315 , a6 out nocopy JTF_VARCHAR2_TABLE_500
316 , a7 out nocopy JTF_VARCHAR2_TABLE_500
317 , a8 out nocopy JTF_VARCHAR2_TABLE_500
318 , a9 out nocopy JTF_VARCHAR2_TABLE_500
319 , a10 out nocopy JTF_VARCHAR2_TABLE_500
320 , a11 out nocopy JTF_VARCHAR2_TABLE_500
321 , a12 out nocopy JTF_VARCHAR2_TABLE_500
322 , a13 out nocopy JTF_VARCHAR2_TABLE_500
323 , a14 out nocopy JTF_VARCHAR2_TABLE_500
324 , a15 out nocopy JTF_VARCHAR2_TABLE_500
325 , a16 out nocopy JTF_VARCHAR2_TABLE_500
326 , a17 out nocopy JTF_VARCHAR2_TABLE_500
327 , a18 out nocopy JTF_VARCHAR2_TABLE_500
328 , a19 out nocopy JTF_VARCHAR2_TABLE_500
329 , a20 out nocopy JTF_VARCHAR2_TABLE_500
330 , a21 out nocopy JTF_NUMBER_TABLE
331 , a22 out nocopy JTF_DATE_TABLE
332 , a23 out nocopy JTF_NUMBER_TABLE
333 , a24 out nocopy JTF_DATE_TABLE
334 , a25 out nocopy JTF_NUMBER_TABLE
335 ) as
336 ddindx binary_integer; indx binary_integer;
337 begin
338 if t is null or t.count = 0 then
339 a0 := JTF_NUMBER_TABLE();
340 a1 := JTF_NUMBER_TABLE();
341 a2 := JTF_NUMBER_TABLE();
342 a3 := JTF_NUMBER_TABLE();
343 a4 := JTF_NUMBER_TABLE();
344 a5 := JTF_VARCHAR2_TABLE_100();
345 a6 := JTF_VARCHAR2_TABLE_500();
346 a7 := JTF_VARCHAR2_TABLE_500();
347 a8 := JTF_VARCHAR2_TABLE_500();
348 a9 := JTF_VARCHAR2_TABLE_500();
349 a10 := JTF_VARCHAR2_TABLE_500();
350 a11 := JTF_VARCHAR2_TABLE_500();
351 a12 := JTF_VARCHAR2_TABLE_500();
352 a13 := JTF_VARCHAR2_TABLE_500();
353 a14 := JTF_VARCHAR2_TABLE_500();
354 a15 := JTF_VARCHAR2_TABLE_500();
355 a16 := JTF_VARCHAR2_TABLE_500();
356 a17 := JTF_VARCHAR2_TABLE_500();
357 a18 := JTF_VARCHAR2_TABLE_500();
358 a19 := JTF_VARCHAR2_TABLE_500();
359 a20 := JTF_VARCHAR2_TABLE_500();
360 a21 := JTF_NUMBER_TABLE();
361 a22 := JTF_DATE_TABLE();
362 a23 := JTF_NUMBER_TABLE();
363 a24 := JTF_DATE_TABLE();
364 a25 := JTF_NUMBER_TABLE();
365 else
366 a0 := JTF_NUMBER_TABLE();
367 a1 := JTF_NUMBER_TABLE();
368 a2 := JTF_NUMBER_TABLE();
369 a3 := JTF_NUMBER_TABLE();
370 a4 := JTF_NUMBER_TABLE();
371 a5 := JTF_VARCHAR2_TABLE_100();
372 a6 := JTF_VARCHAR2_TABLE_500();
373 a7 := JTF_VARCHAR2_TABLE_500();
374 a8 := JTF_VARCHAR2_TABLE_500();
375 a9 := JTF_VARCHAR2_TABLE_500();
376 a10 := JTF_VARCHAR2_TABLE_500();
377 a11 := JTF_VARCHAR2_TABLE_500();
378 a12 := JTF_VARCHAR2_TABLE_500();
379 a13 := JTF_VARCHAR2_TABLE_500();
380 a14 := JTF_VARCHAR2_TABLE_500();
381 a15 := JTF_VARCHAR2_TABLE_500();
382 a16 := JTF_VARCHAR2_TABLE_500();
383 a17 := JTF_VARCHAR2_TABLE_500();
384 a18 := JTF_VARCHAR2_TABLE_500();
385 a19 := JTF_VARCHAR2_TABLE_500();
386 a20 := JTF_VARCHAR2_TABLE_500();
387 a21 := JTF_NUMBER_TABLE();
388 a22 := JTF_DATE_TABLE();
389 a23 := JTF_NUMBER_TABLE();
390 a24 := JTF_DATE_TABLE();
391 a25 := JTF_NUMBER_TABLE();
392 if t.count > 0 then
393 a0.extend(t.count);
394 a1.extend(t.count);
395 a2.extend(t.count);
396 a3.extend(t.count);
397 a4.extend(t.count);
398 a5.extend(t.count);
399 a6.extend(t.count);
400 a7.extend(t.count);
401 a8.extend(t.count);
402 a9.extend(t.count);
403 a10.extend(t.count);
404 a11.extend(t.count);
405 a12.extend(t.count);
406 a13.extend(t.count);
407 a14.extend(t.count);
408 a15.extend(t.count);
409 a16.extend(t.count);
410 a17.extend(t.count);
411 a18.extend(t.count);
412 a19.extend(t.count);
413 a20.extend(t.count);
414 a21.extend(t.count);
415 a22.extend(t.count);
416 a23.extend(t.count);
417 a24.extend(t.count);
418 a25.extend(t.count);
419 ddindx := t.first;
420 indx := 1;
421 while true loop
422 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
423 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
424 a2(indx) := rosetta_g_miss_num_map(t(ddindx).sty_id);
425 a3(indx) := rosetta_g_miss_num_map(t(ddindx).inf_id);
426 a4(indx) := rosetta_g_miss_num_map(t(ddindx).ilt_id);
427 a5(indx) := t(ddindx).attribute_category;
428 a6(indx) := t(ddindx).attribute1;
429 a7(indx) := t(ddindx).attribute2;
430 a8(indx) := t(ddindx).attribute3;
431 a9(indx) := t(ddindx).attribute4;
432 a10(indx) := t(ddindx).attribute5;
433 a11(indx) := t(ddindx).attribute6;
434 a12(indx) := t(ddindx).attribute7;
435 a13(indx) := t(ddindx).attribute8;
436 a14(indx) := t(ddindx).attribute9;
437 a15(indx) := t(ddindx).attribute10;
438 a16(indx) := t(ddindx).attribute11;
439 a17(indx) := t(ddindx).attribute12;
440 a18(indx) := t(ddindx).attribute13;
441 a19(indx) := t(ddindx).attribute14;
442 a20(indx) := t(ddindx).attribute15;
443 a21(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
444 a22(indx) := t(ddindx).creation_date;
445 a23(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
446 a24(indx) := t(ddindx).last_update_date;
447 a25(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
448 indx := indx+1;
449 if t.last =ddindx
450 then exit;
451 end if;
452 ddindx := t.next(ddindx);
453 end loop;
454 end if;
455 end if;
456 end rosetta_table_copy_out_p5;
457
458 procedure insert_row(p_api_version NUMBER
459 , p_init_msg_list VARCHAR2
460 , x_return_status out nocopy VARCHAR2
461 , x_msg_count out nocopy NUMBER
462 , x_msg_data out nocopy VARCHAR2
463 , p6_a0 out nocopy NUMBER
464 , p6_a1 out nocopy NUMBER
465 , p6_a2 out nocopy NUMBER
466 , p6_a3 out nocopy NUMBER
467 , p6_a4 out nocopy NUMBER
468 , p6_a5 out nocopy VARCHAR2
469 , p6_a6 out nocopy VARCHAR2
470 , p6_a7 out nocopy VARCHAR2
471 , p6_a8 out nocopy VARCHAR2
472 , p6_a9 out nocopy VARCHAR2
473 , p6_a10 out nocopy VARCHAR2
474 , p6_a11 out nocopy VARCHAR2
475 , p6_a12 out nocopy VARCHAR2
476 , p6_a13 out nocopy VARCHAR2
477 , p6_a14 out nocopy VARCHAR2
478 , p6_a15 out nocopy VARCHAR2
479 , p6_a16 out nocopy VARCHAR2
480 , p6_a17 out nocopy VARCHAR2
481 , p6_a18 out nocopy VARCHAR2
482 , p6_a19 out nocopy VARCHAR2
483 , p6_a20 out nocopy VARCHAR2
484 , p6_a21 out nocopy NUMBER
485 , p6_a22 out nocopy DATE
486 , p6_a23 out nocopy NUMBER
487 , p6_a24 out nocopy DATE
488 , p6_a25 out nocopy NUMBER
489 , p5_a0 NUMBER := 0-1962.0724
490 , p5_a1 NUMBER := 0-1962.0724
491 , p5_a2 NUMBER := 0-1962.0724
492 , p5_a3 NUMBER := 0-1962.0724
493 , p5_a4 NUMBER := 0-1962.0724
494 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
495 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
496 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
497 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
498 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
499 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
500 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
501 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
502 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
503 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
504 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
505 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
506 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
507 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
508 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
509 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
510 , p5_a21 NUMBER := 0-1962.0724
511 , p5_a22 DATE := fnd_api.g_miss_date
512 , p5_a23 NUMBER := 0-1962.0724
513 , p5_a24 DATE := fnd_api.g_miss_date
514 , p5_a25 NUMBER := 0-1962.0724
515 )
516
517 as
518 ddp_ilsv_rec okl_ils_pvt.ilsv_rec_type;
519 ddx_ilsv_rec okl_ils_pvt.ilsv_rec_type;
520 ddindx binary_integer; indx binary_integer;
521 begin
522
523 -- copy data to the local IN or IN-OUT args, if any
524
525
526
527
528
529 ddp_ilsv_rec.id := rosetta_g_miss_num_map(p5_a0);
530 ddp_ilsv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
531 ddp_ilsv_rec.sty_id := rosetta_g_miss_num_map(p5_a2);
532 ddp_ilsv_rec.inf_id := rosetta_g_miss_num_map(p5_a3);
533 ddp_ilsv_rec.ilt_id := rosetta_g_miss_num_map(p5_a4);
534 ddp_ilsv_rec.attribute_category := p5_a5;
535 ddp_ilsv_rec.attribute1 := p5_a6;
536 ddp_ilsv_rec.attribute2 := p5_a7;
537 ddp_ilsv_rec.attribute3 := p5_a8;
538 ddp_ilsv_rec.attribute4 := p5_a9;
539 ddp_ilsv_rec.attribute5 := p5_a10;
540 ddp_ilsv_rec.attribute6 := p5_a11;
541 ddp_ilsv_rec.attribute7 := p5_a12;
542 ddp_ilsv_rec.attribute8 := p5_a13;
543 ddp_ilsv_rec.attribute9 := p5_a14;
544 ddp_ilsv_rec.attribute10 := p5_a15;
545 ddp_ilsv_rec.attribute11 := p5_a16;
546 ddp_ilsv_rec.attribute12 := p5_a17;
547 ddp_ilsv_rec.attribute13 := p5_a18;
548 ddp_ilsv_rec.attribute14 := p5_a19;
549 ddp_ilsv_rec.attribute15 := p5_a20;
550 ddp_ilsv_rec.created_by := rosetta_g_miss_num_map(p5_a21);
551 ddp_ilsv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a22);
552 ddp_ilsv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a23);
553 ddp_ilsv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a24);
554 ddp_ilsv_rec.last_update_login := rosetta_g_miss_num_map(p5_a25);
555
556
557 -- here's the delegated call to the old PL/SQL routine
558 okl_ils_pvt.insert_row(p_api_version,
559 p_init_msg_list,
560 x_return_status,
561 x_msg_count,
562 x_msg_data,
563 ddp_ilsv_rec,
564 ddx_ilsv_rec);
565
566 -- copy data back from the local variables to OUT or IN-OUT args, if any
567
568
569
570
571
572
573 p6_a0 := rosetta_g_miss_num_map(ddx_ilsv_rec.id);
574 p6_a1 := rosetta_g_miss_num_map(ddx_ilsv_rec.object_version_number);
575 p6_a2 := rosetta_g_miss_num_map(ddx_ilsv_rec.sty_id);
576 p6_a3 := rosetta_g_miss_num_map(ddx_ilsv_rec.inf_id);
577 p6_a4 := rosetta_g_miss_num_map(ddx_ilsv_rec.ilt_id);
578 p6_a5 := ddx_ilsv_rec.attribute_category;
579 p6_a6 := ddx_ilsv_rec.attribute1;
580 p6_a7 := ddx_ilsv_rec.attribute2;
581 p6_a8 := ddx_ilsv_rec.attribute3;
582 p6_a9 := ddx_ilsv_rec.attribute4;
583 p6_a10 := ddx_ilsv_rec.attribute5;
584 p6_a11 := ddx_ilsv_rec.attribute6;
585 p6_a12 := ddx_ilsv_rec.attribute7;
586 p6_a13 := ddx_ilsv_rec.attribute8;
587 p6_a14 := ddx_ilsv_rec.attribute9;
588 p6_a15 := ddx_ilsv_rec.attribute10;
589 p6_a16 := ddx_ilsv_rec.attribute11;
590 p6_a17 := ddx_ilsv_rec.attribute12;
591 p6_a18 := ddx_ilsv_rec.attribute13;
592 p6_a19 := ddx_ilsv_rec.attribute14;
593 p6_a20 := ddx_ilsv_rec.attribute15;
594 p6_a21 := rosetta_g_miss_num_map(ddx_ilsv_rec.created_by);
595 p6_a22 := ddx_ilsv_rec.creation_date;
596 p6_a23 := rosetta_g_miss_num_map(ddx_ilsv_rec.last_updated_by);
597 p6_a24 := ddx_ilsv_rec.last_update_date;
598 p6_a25 := rosetta_g_miss_num_map(ddx_ilsv_rec.last_update_login);
599 end;
600
601 procedure insert_row(p_api_version NUMBER
602 , p_init_msg_list VARCHAR2
603 , x_return_status out nocopy VARCHAR2
604 , x_msg_count out nocopy NUMBER
605 , x_msg_data out nocopy VARCHAR2
606 , p5_a0 JTF_NUMBER_TABLE
607 , p5_a1 JTF_NUMBER_TABLE
608 , p5_a2 JTF_NUMBER_TABLE
609 , p5_a3 JTF_NUMBER_TABLE
610 , p5_a4 JTF_NUMBER_TABLE
611 , p5_a5 JTF_VARCHAR2_TABLE_100
612 , p5_a6 JTF_VARCHAR2_TABLE_500
613 , p5_a7 JTF_VARCHAR2_TABLE_500
614 , p5_a8 JTF_VARCHAR2_TABLE_500
615 , p5_a9 JTF_VARCHAR2_TABLE_500
616 , p5_a10 JTF_VARCHAR2_TABLE_500
617 , p5_a11 JTF_VARCHAR2_TABLE_500
618 , p5_a12 JTF_VARCHAR2_TABLE_500
619 , p5_a13 JTF_VARCHAR2_TABLE_500
620 , p5_a14 JTF_VARCHAR2_TABLE_500
621 , p5_a15 JTF_VARCHAR2_TABLE_500
622 , p5_a16 JTF_VARCHAR2_TABLE_500
623 , p5_a17 JTF_VARCHAR2_TABLE_500
624 , p5_a18 JTF_VARCHAR2_TABLE_500
625 , p5_a19 JTF_VARCHAR2_TABLE_500
626 , p5_a20 JTF_VARCHAR2_TABLE_500
627 , p5_a21 JTF_NUMBER_TABLE
628 , p5_a22 JTF_DATE_TABLE
629 , p5_a23 JTF_NUMBER_TABLE
630 , p5_a24 JTF_DATE_TABLE
631 , p5_a25 JTF_NUMBER_TABLE
632 , p6_a0 out nocopy JTF_NUMBER_TABLE
633 , p6_a1 out nocopy JTF_NUMBER_TABLE
634 , p6_a2 out nocopy JTF_NUMBER_TABLE
635 , p6_a3 out nocopy JTF_NUMBER_TABLE
636 , p6_a4 out nocopy JTF_NUMBER_TABLE
637 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
638 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_500
639 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_500
640 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_500
641 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
642 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
643 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
644 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
645 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
646 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
647 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
648 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
649 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
650 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
651 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
652 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
653 , p6_a21 out nocopy JTF_NUMBER_TABLE
654 , p6_a22 out nocopy JTF_DATE_TABLE
655 , p6_a23 out nocopy JTF_NUMBER_TABLE
656 , p6_a24 out nocopy JTF_DATE_TABLE
657 , p6_a25 out nocopy JTF_NUMBER_TABLE
658 )
659
660 as
661 ddp_ilsv_tbl okl_ils_pvt.ilsv_tbl_type;
662 ddx_ilsv_tbl okl_ils_pvt.ilsv_tbl_type;
663 ddindx binary_integer; indx binary_integer;
664 begin
665
666 -- copy data to the local IN or IN-OUT args, if any
667
668
669
670
671
672 okl_ils_pvt_w.rosetta_table_copy_in_p5(ddp_ilsv_tbl, p5_a0
673 , p5_a1
674 , p5_a2
675 , p5_a3
676 , p5_a4
677 , p5_a5
678 , p5_a6
679 , p5_a7
680 , p5_a8
681 , p5_a9
682 , p5_a10
683 , p5_a11
684 , p5_a12
685 , p5_a13
686 , p5_a14
687 , p5_a15
688 , p5_a16
689 , p5_a17
690 , p5_a18
691 , p5_a19
692 , p5_a20
693 , p5_a21
694 , p5_a22
695 , p5_a23
696 , p5_a24
697 , p5_a25
698 );
699
700
701 -- here's the delegated call to the old PL/SQL routine
702 okl_ils_pvt.insert_row(p_api_version,
703 p_init_msg_list,
704 x_return_status,
705 x_msg_count,
706 x_msg_data,
707 ddp_ilsv_tbl,
708 ddx_ilsv_tbl);
709
710 -- copy data back from the local variables to OUT or IN-OUT args, if any
711
712
713
714
715
716
717 okl_ils_pvt_w.rosetta_table_copy_out_p5(ddx_ilsv_tbl, p6_a0
718 , p6_a1
719 , p6_a2
720 , p6_a3
721 , p6_a4
722 , p6_a5
723 , p6_a6
724 , p6_a7
725 , p6_a8
726 , p6_a9
727 , p6_a10
728 , p6_a11
729 , p6_a12
730 , p6_a13
731 , p6_a14
732 , p6_a15
733 , p6_a16
734 , p6_a17
735 , p6_a18
736 , p6_a19
737 , p6_a20
738 , p6_a21
739 , p6_a22
740 , p6_a23
741 , p6_a24
742 , p6_a25
743 );
744 end;
745
746 procedure lock_row(p_api_version NUMBER
747 , p_init_msg_list VARCHAR2
748 , x_return_status out nocopy VARCHAR2
749 , x_msg_count out nocopy NUMBER
750 , x_msg_data out nocopy VARCHAR2
751 , p5_a0 NUMBER := 0-1962.0724
752 , p5_a1 NUMBER := 0-1962.0724
753 , p5_a2 NUMBER := 0-1962.0724
754 , p5_a3 NUMBER := 0-1962.0724
755 , p5_a4 NUMBER := 0-1962.0724
756 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
757 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
758 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
759 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
760 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
761 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
762 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
763 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
764 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
765 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
766 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
767 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
768 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
769 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
770 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
771 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
772 , p5_a21 NUMBER := 0-1962.0724
773 , p5_a22 DATE := fnd_api.g_miss_date
774 , p5_a23 NUMBER := 0-1962.0724
775 , p5_a24 DATE := fnd_api.g_miss_date
776 , p5_a25 NUMBER := 0-1962.0724
777 )
778
779 as
780 ddp_ilsv_rec okl_ils_pvt.ilsv_rec_type;
781 ddindx binary_integer; indx binary_integer;
782 begin
783
784 -- copy data to the local IN or IN-OUT args, if any
785
786
787
788
789
790 ddp_ilsv_rec.id := rosetta_g_miss_num_map(p5_a0);
791 ddp_ilsv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
792 ddp_ilsv_rec.sty_id := rosetta_g_miss_num_map(p5_a2);
793 ddp_ilsv_rec.inf_id := rosetta_g_miss_num_map(p5_a3);
794 ddp_ilsv_rec.ilt_id := rosetta_g_miss_num_map(p5_a4);
795 ddp_ilsv_rec.attribute_category := p5_a5;
796 ddp_ilsv_rec.attribute1 := p5_a6;
797 ddp_ilsv_rec.attribute2 := p5_a7;
798 ddp_ilsv_rec.attribute3 := p5_a8;
799 ddp_ilsv_rec.attribute4 := p5_a9;
800 ddp_ilsv_rec.attribute5 := p5_a10;
801 ddp_ilsv_rec.attribute6 := p5_a11;
802 ddp_ilsv_rec.attribute7 := p5_a12;
803 ddp_ilsv_rec.attribute8 := p5_a13;
804 ddp_ilsv_rec.attribute9 := p5_a14;
805 ddp_ilsv_rec.attribute10 := p5_a15;
806 ddp_ilsv_rec.attribute11 := p5_a16;
807 ddp_ilsv_rec.attribute12 := p5_a17;
808 ddp_ilsv_rec.attribute13 := p5_a18;
809 ddp_ilsv_rec.attribute14 := p5_a19;
810 ddp_ilsv_rec.attribute15 := p5_a20;
811 ddp_ilsv_rec.created_by := rosetta_g_miss_num_map(p5_a21);
812 ddp_ilsv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a22);
813 ddp_ilsv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a23);
814 ddp_ilsv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a24);
815 ddp_ilsv_rec.last_update_login := rosetta_g_miss_num_map(p5_a25);
816
817 -- here's the delegated call to the old PL/SQL routine
818 okl_ils_pvt.lock_row(p_api_version,
819 p_init_msg_list,
820 x_return_status,
821 x_msg_count,
822 x_msg_data,
823 ddp_ilsv_rec);
824
825 -- copy data back from the local variables to OUT or IN-OUT args, if any
826
827
828
829
830
831 end;
832
833 procedure lock_row(p_api_version NUMBER
834 , p_init_msg_list VARCHAR2
835 , x_return_status out nocopy VARCHAR2
836 , x_msg_count out nocopy NUMBER
837 , x_msg_data out nocopy VARCHAR2
838 , p5_a0 JTF_NUMBER_TABLE
839 , p5_a1 JTF_NUMBER_TABLE
840 , p5_a2 JTF_NUMBER_TABLE
841 , p5_a3 JTF_NUMBER_TABLE
842 , p5_a4 JTF_NUMBER_TABLE
843 , p5_a5 JTF_VARCHAR2_TABLE_100
844 , p5_a6 JTF_VARCHAR2_TABLE_500
845 , p5_a7 JTF_VARCHAR2_TABLE_500
846 , p5_a8 JTF_VARCHAR2_TABLE_500
847 , p5_a9 JTF_VARCHAR2_TABLE_500
848 , p5_a10 JTF_VARCHAR2_TABLE_500
849 , p5_a11 JTF_VARCHAR2_TABLE_500
850 , p5_a12 JTF_VARCHAR2_TABLE_500
851 , p5_a13 JTF_VARCHAR2_TABLE_500
852 , p5_a14 JTF_VARCHAR2_TABLE_500
853 , p5_a15 JTF_VARCHAR2_TABLE_500
854 , p5_a16 JTF_VARCHAR2_TABLE_500
855 , p5_a17 JTF_VARCHAR2_TABLE_500
856 , p5_a18 JTF_VARCHAR2_TABLE_500
857 , p5_a19 JTF_VARCHAR2_TABLE_500
858 , p5_a20 JTF_VARCHAR2_TABLE_500
859 , p5_a21 JTF_NUMBER_TABLE
860 , p5_a22 JTF_DATE_TABLE
861 , p5_a23 JTF_NUMBER_TABLE
862 , p5_a24 JTF_DATE_TABLE
863 , p5_a25 JTF_NUMBER_TABLE
864 )
865
866 as
867 ddp_ilsv_tbl okl_ils_pvt.ilsv_tbl_type;
868 ddindx binary_integer; indx binary_integer;
869 begin
870
871 -- copy data to the local IN or IN-OUT args, if any
872
873
874
875
876
877 okl_ils_pvt_w.rosetta_table_copy_in_p5(ddp_ilsv_tbl, p5_a0
878 , p5_a1
879 , p5_a2
880 , p5_a3
881 , p5_a4
882 , p5_a5
883 , p5_a6
884 , p5_a7
885 , p5_a8
886 , p5_a9
887 , p5_a10
888 , p5_a11
889 , p5_a12
890 , p5_a13
891 , p5_a14
892 , p5_a15
893 , p5_a16
894 , p5_a17
895 , p5_a18
896 , p5_a19
897 , p5_a20
898 , p5_a21
899 , p5_a22
900 , p5_a23
901 , p5_a24
902 , p5_a25
903 );
904
905 -- here's the delegated call to the old PL/SQL routine
906 okl_ils_pvt.lock_row(p_api_version,
907 p_init_msg_list,
908 x_return_status,
909 x_msg_count,
910 x_msg_data,
911 ddp_ilsv_tbl);
912
913 -- copy data back from the local variables to OUT or IN-OUT args, if any
914
915
916
917
918
919 end;
920
921 procedure update_row(p_api_version NUMBER
922 , p_init_msg_list VARCHAR2
923 , x_return_status out nocopy VARCHAR2
924 , x_msg_count out nocopy NUMBER
925 , x_msg_data out nocopy VARCHAR2
926 , p6_a0 out nocopy NUMBER
927 , p6_a1 out nocopy NUMBER
928 , p6_a2 out nocopy NUMBER
929 , p6_a3 out nocopy NUMBER
930 , p6_a4 out nocopy NUMBER
931 , p6_a5 out nocopy VARCHAR2
932 , p6_a6 out nocopy VARCHAR2
933 , p6_a7 out nocopy VARCHAR2
934 , p6_a8 out nocopy VARCHAR2
935 , p6_a9 out nocopy VARCHAR2
936 , p6_a10 out nocopy VARCHAR2
937 , p6_a11 out nocopy VARCHAR2
938 , p6_a12 out nocopy VARCHAR2
939 , p6_a13 out nocopy VARCHAR2
940 , p6_a14 out nocopy VARCHAR2
941 , p6_a15 out nocopy VARCHAR2
942 , p6_a16 out nocopy VARCHAR2
943 , p6_a17 out nocopy VARCHAR2
944 , p6_a18 out nocopy VARCHAR2
945 , p6_a19 out nocopy VARCHAR2
946 , p6_a20 out nocopy VARCHAR2
947 , p6_a21 out nocopy NUMBER
948 , p6_a22 out nocopy DATE
949 , p6_a23 out nocopy NUMBER
950 , p6_a24 out nocopy DATE
951 , p6_a25 out nocopy NUMBER
952 , p5_a0 NUMBER := 0-1962.0724
953 , p5_a1 NUMBER := 0-1962.0724
954 , p5_a2 NUMBER := 0-1962.0724
955 , p5_a3 NUMBER := 0-1962.0724
956 , p5_a4 NUMBER := 0-1962.0724
957 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
958 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
959 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
960 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
961 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
962 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
963 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
964 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
965 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
966 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
967 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
968 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
969 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
970 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
971 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
972 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
973 , p5_a21 NUMBER := 0-1962.0724
974 , p5_a22 DATE := fnd_api.g_miss_date
975 , p5_a23 NUMBER := 0-1962.0724
976 , p5_a24 DATE := fnd_api.g_miss_date
977 , p5_a25 NUMBER := 0-1962.0724
978 )
979
980 as
981 ddp_ilsv_rec okl_ils_pvt.ilsv_rec_type;
982 ddx_ilsv_rec okl_ils_pvt.ilsv_rec_type;
983 ddindx binary_integer; indx binary_integer;
984 begin
985
986 -- copy data to the local IN or IN-OUT args, if any
987
988
989
990
991
992 ddp_ilsv_rec.id := rosetta_g_miss_num_map(p5_a0);
993 ddp_ilsv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
994 ddp_ilsv_rec.sty_id := rosetta_g_miss_num_map(p5_a2);
995 ddp_ilsv_rec.inf_id := rosetta_g_miss_num_map(p5_a3);
996 ddp_ilsv_rec.ilt_id := rosetta_g_miss_num_map(p5_a4);
997 ddp_ilsv_rec.attribute_category := p5_a5;
998 ddp_ilsv_rec.attribute1 := p5_a6;
999 ddp_ilsv_rec.attribute2 := p5_a7;
1000 ddp_ilsv_rec.attribute3 := p5_a8;
1001 ddp_ilsv_rec.attribute4 := p5_a9;
1002 ddp_ilsv_rec.attribute5 := p5_a10;
1003 ddp_ilsv_rec.attribute6 := p5_a11;
1004 ddp_ilsv_rec.attribute7 := p5_a12;
1005 ddp_ilsv_rec.attribute8 := p5_a13;
1006 ddp_ilsv_rec.attribute9 := p5_a14;
1007 ddp_ilsv_rec.attribute10 := p5_a15;
1008 ddp_ilsv_rec.attribute11 := p5_a16;
1009 ddp_ilsv_rec.attribute12 := p5_a17;
1010 ddp_ilsv_rec.attribute13 := p5_a18;
1011 ddp_ilsv_rec.attribute14 := p5_a19;
1012 ddp_ilsv_rec.attribute15 := p5_a20;
1013 ddp_ilsv_rec.created_by := rosetta_g_miss_num_map(p5_a21);
1014 ddp_ilsv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a22);
1015 ddp_ilsv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a23);
1016 ddp_ilsv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a24);
1017 ddp_ilsv_rec.last_update_login := rosetta_g_miss_num_map(p5_a25);
1018
1019
1020 -- here's the delegated call to the old PL/SQL routine
1021 okl_ils_pvt.update_row(p_api_version,
1022 p_init_msg_list,
1023 x_return_status,
1024 x_msg_count,
1025 x_msg_data,
1026 ddp_ilsv_rec,
1027 ddx_ilsv_rec);
1028
1029 -- copy data back from the local variables to OUT or IN-OUT args, if any
1030
1031
1032
1033
1034
1035
1036 p6_a0 := rosetta_g_miss_num_map(ddx_ilsv_rec.id);
1037 p6_a1 := rosetta_g_miss_num_map(ddx_ilsv_rec.object_version_number);
1038 p6_a2 := rosetta_g_miss_num_map(ddx_ilsv_rec.sty_id);
1039 p6_a3 := rosetta_g_miss_num_map(ddx_ilsv_rec.inf_id);
1040 p6_a4 := rosetta_g_miss_num_map(ddx_ilsv_rec.ilt_id);
1041 p6_a5 := ddx_ilsv_rec.attribute_category;
1042 p6_a6 := ddx_ilsv_rec.attribute1;
1043 p6_a7 := ddx_ilsv_rec.attribute2;
1044 p6_a8 := ddx_ilsv_rec.attribute3;
1045 p6_a9 := ddx_ilsv_rec.attribute4;
1046 p6_a10 := ddx_ilsv_rec.attribute5;
1047 p6_a11 := ddx_ilsv_rec.attribute6;
1048 p6_a12 := ddx_ilsv_rec.attribute7;
1049 p6_a13 := ddx_ilsv_rec.attribute8;
1050 p6_a14 := ddx_ilsv_rec.attribute9;
1051 p6_a15 := ddx_ilsv_rec.attribute10;
1052 p6_a16 := ddx_ilsv_rec.attribute11;
1053 p6_a17 := ddx_ilsv_rec.attribute12;
1054 p6_a18 := ddx_ilsv_rec.attribute13;
1055 p6_a19 := ddx_ilsv_rec.attribute14;
1056 p6_a20 := ddx_ilsv_rec.attribute15;
1057 p6_a21 := rosetta_g_miss_num_map(ddx_ilsv_rec.created_by);
1058 p6_a22 := ddx_ilsv_rec.creation_date;
1059 p6_a23 := rosetta_g_miss_num_map(ddx_ilsv_rec.last_updated_by);
1060 p6_a24 := ddx_ilsv_rec.last_update_date;
1061 p6_a25 := rosetta_g_miss_num_map(ddx_ilsv_rec.last_update_login);
1062 end;
1063
1064 procedure update_row(p_api_version NUMBER
1065 , p_init_msg_list VARCHAR2
1066 , x_return_status out nocopy VARCHAR2
1067 , x_msg_count out nocopy NUMBER
1068 , x_msg_data out nocopy VARCHAR2
1069 , p5_a0 JTF_NUMBER_TABLE
1070 , p5_a1 JTF_NUMBER_TABLE
1071 , p5_a2 JTF_NUMBER_TABLE
1072 , p5_a3 JTF_NUMBER_TABLE
1073 , p5_a4 JTF_NUMBER_TABLE
1074 , p5_a5 JTF_VARCHAR2_TABLE_100
1075 , p5_a6 JTF_VARCHAR2_TABLE_500
1076 , p5_a7 JTF_VARCHAR2_TABLE_500
1077 , p5_a8 JTF_VARCHAR2_TABLE_500
1078 , p5_a9 JTF_VARCHAR2_TABLE_500
1079 , p5_a10 JTF_VARCHAR2_TABLE_500
1080 , p5_a11 JTF_VARCHAR2_TABLE_500
1081 , p5_a12 JTF_VARCHAR2_TABLE_500
1082 , p5_a13 JTF_VARCHAR2_TABLE_500
1083 , p5_a14 JTF_VARCHAR2_TABLE_500
1084 , p5_a15 JTF_VARCHAR2_TABLE_500
1085 , p5_a16 JTF_VARCHAR2_TABLE_500
1086 , p5_a17 JTF_VARCHAR2_TABLE_500
1087 , p5_a18 JTF_VARCHAR2_TABLE_500
1088 , p5_a19 JTF_VARCHAR2_TABLE_500
1089 , p5_a20 JTF_VARCHAR2_TABLE_500
1090 , p5_a21 JTF_NUMBER_TABLE
1091 , p5_a22 JTF_DATE_TABLE
1092 , p5_a23 JTF_NUMBER_TABLE
1093 , p5_a24 JTF_DATE_TABLE
1094 , p5_a25 JTF_NUMBER_TABLE
1095 , p6_a0 out nocopy JTF_NUMBER_TABLE
1096 , p6_a1 out nocopy JTF_NUMBER_TABLE
1097 , p6_a2 out nocopy JTF_NUMBER_TABLE
1098 , p6_a3 out nocopy JTF_NUMBER_TABLE
1099 , p6_a4 out nocopy JTF_NUMBER_TABLE
1100 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
1101 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_500
1102 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_500
1103 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_500
1104 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
1105 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
1106 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
1107 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
1108 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
1109 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
1110 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
1111 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
1112 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
1113 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
1114 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
1115 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
1116 , p6_a21 out nocopy JTF_NUMBER_TABLE
1117 , p6_a22 out nocopy JTF_DATE_TABLE
1118 , p6_a23 out nocopy JTF_NUMBER_TABLE
1119 , p6_a24 out nocopy JTF_DATE_TABLE
1120 , p6_a25 out nocopy JTF_NUMBER_TABLE
1121 )
1122
1123 as
1124 ddp_ilsv_tbl okl_ils_pvt.ilsv_tbl_type;
1125 ddx_ilsv_tbl okl_ils_pvt.ilsv_tbl_type;
1126 ddindx binary_integer; indx binary_integer;
1127 begin
1128
1129 -- copy data to the local IN or IN-OUT args, if any
1130
1131
1132
1133
1134
1135 okl_ils_pvt_w.rosetta_table_copy_in_p5(ddp_ilsv_tbl, p5_a0
1136 , p5_a1
1137 , p5_a2
1138 , p5_a3
1139 , p5_a4
1140 , p5_a5
1141 , p5_a6
1142 , p5_a7
1143 , p5_a8
1144 , p5_a9
1145 , p5_a10
1146 , p5_a11
1147 , p5_a12
1148 , p5_a13
1149 , p5_a14
1150 , p5_a15
1151 , p5_a16
1152 , p5_a17
1153 , p5_a18
1154 , p5_a19
1155 , p5_a20
1156 , p5_a21
1157 , p5_a22
1158 , p5_a23
1159 , p5_a24
1160 , p5_a25
1161 );
1162
1163
1164 -- here's the delegated call to the old PL/SQL routine
1165 okl_ils_pvt.update_row(p_api_version,
1166 p_init_msg_list,
1167 x_return_status,
1168 x_msg_count,
1169 x_msg_data,
1170 ddp_ilsv_tbl,
1171 ddx_ilsv_tbl);
1172
1173 -- copy data back from the local variables to OUT or IN-OUT args, if any
1174
1175
1176
1177
1178
1179
1180 okl_ils_pvt_w.rosetta_table_copy_out_p5(ddx_ilsv_tbl, p6_a0
1181 , p6_a1
1182 , p6_a2
1183 , p6_a3
1184 , p6_a4
1185 , p6_a5
1186 , p6_a6
1187 , p6_a7
1188 , p6_a8
1189 , p6_a9
1190 , p6_a10
1191 , p6_a11
1192 , p6_a12
1193 , p6_a13
1194 , p6_a14
1195 , p6_a15
1196 , p6_a16
1197 , p6_a17
1198 , p6_a18
1199 , p6_a19
1200 , p6_a20
1201 , p6_a21
1202 , p6_a22
1203 , p6_a23
1204 , p6_a24
1205 , p6_a25
1206 );
1207 end;
1208
1209 procedure delete_row(p_api_version NUMBER
1210 , p_init_msg_list VARCHAR2
1211 , x_return_status out nocopy VARCHAR2
1212 , x_msg_count out nocopy NUMBER
1213 , x_msg_data out nocopy VARCHAR2
1214 , p5_a0 NUMBER := 0-1962.0724
1215 , p5_a1 NUMBER := 0-1962.0724
1216 , p5_a2 NUMBER := 0-1962.0724
1217 , p5_a3 NUMBER := 0-1962.0724
1218 , p5_a4 NUMBER := 0-1962.0724
1219 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1220 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1221 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1222 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1223 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1224 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1225 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1226 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1227 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1228 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1229 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1230 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1231 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1232 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1233 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1234 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1235 , p5_a21 NUMBER := 0-1962.0724
1236 , p5_a22 DATE := fnd_api.g_miss_date
1237 , p5_a23 NUMBER := 0-1962.0724
1238 , p5_a24 DATE := fnd_api.g_miss_date
1239 , p5_a25 NUMBER := 0-1962.0724
1240 )
1241
1242 as
1243 ddp_ilsv_rec okl_ils_pvt.ilsv_rec_type;
1244 ddindx binary_integer; indx binary_integer;
1245 begin
1246
1247 -- copy data to the local IN or IN-OUT args, if any
1248
1249
1250
1251
1252
1253 ddp_ilsv_rec.id := rosetta_g_miss_num_map(p5_a0);
1254 ddp_ilsv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1255 ddp_ilsv_rec.sty_id := rosetta_g_miss_num_map(p5_a2);
1256 ddp_ilsv_rec.inf_id := rosetta_g_miss_num_map(p5_a3);
1257 ddp_ilsv_rec.ilt_id := rosetta_g_miss_num_map(p5_a4);
1258 ddp_ilsv_rec.attribute_category := p5_a5;
1259 ddp_ilsv_rec.attribute1 := p5_a6;
1260 ddp_ilsv_rec.attribute2 := p5_a7;
1261 ddp_ilsv_rec.attribute3 := p5_a8;
1262 ddp_ilsv_rec.attribute4 := p5_a9;
1263 ddp_ilsv_rec.attribute5 := p5_a10;
1264 ddp_ilsv_rec.attribute6 := p5_a11;
1265 ddp_ilsv_rec.attribute7 := p5_a12;
1266 ddp_ilsv_rec.attribute8 := p5_a13;
1267 ddp_ilsv_rec.attribute9 := p5_a14;
1268 ddp_ilsv_rec.attribute10 := p5_a15;
1269 ddp_ilsv_rec.attribute11 := p5_a16;
1270 ddp_ilsv_rec.attribute12 := p5_a17;
1271 ddp_ilsv_rec.attribute13 := p5_a18;
1272 ddp_ilsv_rec.attribute14 := p5_a19;
1273 ddp_ilsv_rec.attribute15 := p5_a20;
1274 ddp_ilsv_rec.created_by := rosetta_g_miss_num_map(p5_a21);
1275 ddp_ilsv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a22);
1276 ddp_ilsv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a23);
1277 ddp_ilsv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a24);
1278 ddp_ilsv_rec.last_update_login := rosetta_g_miss_num_map(p5_a25);
1279
1280 -- here's the delegated call to the old PL/SQL routine
1281 okl_ils_pvt.delete_row(p_api_version,
1282 p_init_msg_list,
1283 x_return_status,
1284 x_msg_count,
1285 x_msg_data,
1286 ddp_ilsv_rec);
1287
1288 -- copy data back from the local variables to OUT or IN-OUT args, if any
1289
1290
1291
1292
1293
1294 end;
1295
1296 procedure delete_row(p_api_version NUMBER
1297 , p_init_msg_list VARCHAR2
1298 , x_return_status out nocopy VARCHAR2
1299 , x_msg_count out nocopy NUMBER
1300 , x_msg_data out nocopy VARCHAR2
1301 , p5_a0 JTF_NUMBER_TABLE
1302 , p5_a1 JTF_NUMBER_TABLE
1303 , p5_a2 JTF_NUMBER_TABLE
1304 , p5_a3 JTF_NUMBER_TABLE
1305 , p5_a4 JTF_NUMBER_TABLE
1306 , p5_a5 JTF_VARCHAR2_TABLE_100
1307 , p5_a6 JTF_VARCHAR2_TABLE_500
1308 , p5_a7 JTF_VARCHAR2_TABLE_500
1309 , p5_a8 JTF_VARCHAR2_TABLE_500
1310 , p5_a9 JTF_VARCHAR2_TABLE_500
1311 , p5_a10 JTF_VARCHAR2_TABLE_500
1312 , p5_a11 JTF_VARCHAR2_TABLE_500
1313 , p5_a12 JTF_VARCHAR2_TABLE_500
1314 , p5_a13 JTF_VARCHAR2_TABLE_500
1315 , p5_a14 JTF_VARCHAR2_TABLE_500
1316 , p5_a15 JTF_VARCHAR2_TABLE_500
1317 , p5_a16 JTF_VARCHAR2_TABLE_500
1318 , p5_a17 JTF_VARCHAR2_TABLE_500
1319 , p5_a18 JTF_VARCHAR2_TABLE_500
1320 , p5_a19 JTF_VARCHAR2_TABLE_500
1321 , p5_a20 JTF_VARCHAR2_TABLE_500
1322 , p5_a21 JTF_NUMBER_TABLE
1323 , p5_a22 JTF_DATE_TABLE
1324 , p5_a23 JTF_NUMBER_TABLE
1325 , p5_a24 JTF_DATE_TABLE
1326 , p5_a25 JTF_NUMBER_TABLE
1327 )
1328
1329 as
1330 ddp_ilsv_tbl okl_ils_pvt.ilsv_tbl_type;
1331 ddindx binary_integer; indx binary_integer;
1332 begin
1333
1334 -- copy data to the local IN or IN-OUT args, if any
1335
1336
1337
1338
1339
1340 okl_ils_pvt_w.rosetta_table_copy_in_p5(ddp_ilsv_tbl, p5_a0
1341 , p5_a1
1342 , p5_a2
1343 , p5_a3
1344 , p5_a4
1345 , p5_a5
1346 , p5_a6
1347 , p5_a7
1348 , p5_a8
1349 , p5_a9
1350 , p5_a10
1351 , p5_a11
1352 , p5_a12
1353 , p5_a13
1354 , p5_a14
1355 , p5_a15
1356 , p5_a16
1357 , p5_a17
1358 , p5_a18
1359 , p5_a19
1360 , p5_a20
1361 , p5_a21
1362 , p5_a22
1363 , p5_a23
1364 , p5_a24
1365 , p5_a25
1366 );
1367
1368 -- here's the delegated call to the old PL/SQL routine
1369 okl_ils_pvt.delete_row(p_api_version,
1370 p_init_msg_list,
1371 x_return_status,
1372 x_msg_count,
1373 x_msg_data,
1374 ddp_ilsv_tbl);
1375
1376 -- copy data back from the local variables to OUT or IN-OUT args, if any
1377
1378
1379
1380
1381
1382 end;
1383
1384 procedure validate_row(p_api_version NUMBER
1385 , p_init_msg_list VARCHAR2
1386 , x_return_status out nocopy VARCHAR2
1387 , x_msg_count out nocopy NUMBER
1388 , x_msg_data out nocopy VARCHAR2
1389 , p5_a0 NUMBER := 0-1962.0724
1390 , p5_a1 NUMBER := 0-1962.0724
1391 , p5_a2 NUMBER := 0-1962.0724
1392 , p5_a3 NUMBER := 0-1962.0724
1393 , p5_a4 NUMBER := 0-1962.0724
1394 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1395 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1396 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1397 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1398 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1399 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1400 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1401 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1402 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1403 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1404 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1405 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1406 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1407 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1408 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1409 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1410 , p5_a21 NUMBER := 0-1962.0724
1411 , p5_a22 DATE := fnd_api.g_miss_date
1412 , p5_a23 NUMBER := 0-1962.0724
1413 , p5_a24 DATE := fnd_api.g_miss_date
1414 , p5_a25 NUMBER := 0-1962.0724
1415 )
1416
1417 as
1418 ddp_ilsv_rec okl_ils_pvt.ilsv_rec_type;
1419 ddindx binary_integer; indx binary_integer;
1420 begin
1421
1422 -- copy data to the local IN or IN-OUT args, if any
1423
1424
1425
1426
1427
1428 ddp_ilsv_rec.id := rosetta_g_miss_num_map(p5_a0);
1429 ddp_ilsv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1430 ddp_ilsv_rec.sty_id := rosetta_g_miss_num_map(p5_a2);
1431 ddp_ilsv_rec.inf_id := rosetta_g_miss_num_map(p5_a3);
1432 ddp_ilsv_rec.ilt_id := rosetta_g_miss_num_map(p5_a4);
1433 ddp_ilsv_rec.attribute_category := p5_a5;
1434 ddp_ilsv_rec.attribute1 := p5_a6;
1435 ddp_ilsv_rec.attribute2 := p5_a7;
1436 ddp_ilsv_rec.attribute3 := p5_a8;
1437 ddp_ilsv_rec.attribute4 := p5_a9;
1438 ddp_ilsv_rec.attribute5 := p5_a10;
1439 ddp_ilsv_rec.attribute6 := p5_a11;
1440 ddp_ilsv_rec.attribute7 := p5_a12;
1441 ddp_ilsv_rec.attribute8 := p5_a13;
1442 ddp_ilsv_rec.attribute9 := p5_a14;
1443 ddp_ilsv_rec.attribute10 := p5_a15;
1444 ddp_ilsv_rec.attribute11 := p5_a16;
1445 ddp_ilsv_rec.attribute12 := p5_a17;
1446 ddp_ilsv_rec.attribute13 := p5_a18;
1447 ddp_ilsv_rec.attribute14 := p5_a19;
1448 ddp_ilsv_rec.attribute15 := p5_a20;
1449 ddp_ilsv_rec.created_by := rosetta_g_miss_num_map(p5_a21);
1450 ddp_ilsv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a22);
1451 ddp_ilsv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a23);
1452 ddp_ilsv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a24);
1453 ddp_ilsv_rec.last_update_login := rosetta_g_miss_num_map(p5_a25);
1454
1455 -- here's the delegated call to the old PL/SQL routine
1456 okl_ils_pvt.validate_row(p_api_version,
1457 p_init_msg_list,
1458 x_return_status,
1459 x_msg_count,
1460 x_msg_data,
1461 ddp_ilsv_rec);
1462
1463 -- copy data back from the local variables to OUT or IN-OUT args, if any
1464
1465
1466
1467
1468
1469 end;
1470
1471 procedure validate_row(p_api_version NUMBER
1472 , p_init_msg_list VARCHAR2
1473 , x_return_status out nocopy VARCHAR2
1474 , x_msg_count out nocopy NUMBER
1475 , x_msg_data out nocopy VARCHAR2
1476 , p5_a0 JTF_NUMBER_TABLE
1477 , p5_a1 JTF_NUMBER_TABLE
1478 , p5_a2 JTF_NUMBER_TABLE
1479 , p5_a3 JTF_NUMBER_TABLE
1480 , p5_a4 JTF_NUMBER_TABLE
1481 , p5_a5 JTF_VARCHAR2_TABLE_100
1482 , p5_a6 JTF_VARCHAR2_TABLE_500
1483 , p5_a7 JTF_VARCHAR2_TABLE_500
1484 , p5_a8 JTF_VARCHAR2_TABLE_500
1485 , p5_a9 JTF_VARCHAR2_TABLE_500
1486 , p5_a10 JTF_VARCHAR2_TABLE_500
1487 , p5_a11 JTF_VARCHAR2_TABLE_500
1488 , p5_a12 JTF_VARCHAR2_TABLE_500
1489 , p5_a13 JTF_VARCHAR2_TABLE_500
1490 , p5_a14 JTF_VARCHAR2_TABLE_500
1491 , p5_a15 JTF_VARCHAR2_TABLE_500
1492 , p5_a16 JTF_VARCHAR2_TABLE_500
1493 , p5_a17 JTF_VARCHAR2_TABLE_500
1494 , p5_a18 JTF_VARCHAR2_TABLE_500
1495 , p5_a19 JTF_VARCHAR2_TABLE_500
1496 , p5_a20 JTF_VARCHAR2_TABLE_500
1497 , p5_a21 JTF_NUMBER_TABLE
1498 , p5_a22 JTF_DATE_TABLE
1499 , p5_a23 JTF_NUMBER_TABLE
1500 , p5_a24 JTF_DATE_TABLE
1501 , p5_a25 JTF_NUMBER_TABLE
1502 )
1503
1504 as
1505 ddp_ilsv_tbl okl_ils_pvt.ilsv_tbl_type;
1506 ddindx binary_integer; indx binary_integer;
1507 begin
1508
1509 -- copy data to the local IN or IN-OUT args, if any
1510
1511
1512
1513
1514
1515 okl_ils_pvt_w.rosetta_table_copy_in_p5(ddp_ilsv_tbl, p5_a0
1516 , p5_a1
1517 , p5_a2
1518 , p5_a3
1519 , p5_a4
1520 , p5_a5
1521 , p5_a6
1522 , p5_a7
1523 , p5_a8
1524 , p5_a9
1525 , p5_a10
1526 , p5_a11
1527 , p5_a12
1528 , p5_a13
1529 , p5_a14
1530 , p5_a15
1531 , p5_a16
1532 , p5_a17
1533 , p5_a18
1534 , p5_a19
1535 , p5_a20
1536 , p5_a21
1537 , p5_a22
1538 , p5_a23
1539 , p5_a24
1540 , p5_a25
1541 );
1542
1543 -- here's the delegated call to the old PL/SQL routine
1544 okl_ils_pvt.validate_row(p_api_version,
1545 p_init_msg_list,
1546 x_return_status,
1547 x_msg_count,
1548 x_msg_data,
1549 ddp_ilsv_tbl);
1550
1551 -- copy data back from the local variables to OUT or IN-OUT args, if any
1552
1553
1554
1555
1556
1557 end;
1558
1559 end okl_ils_pvt_w;