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