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