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