[Home] [Help]
PACKAGE BODY: APPS.OKL_ETO_PVT_W
Source
1 package body okl_eto_pvt_w as
2 /* $Header: OKLIETOB.pls 120.0 2005/07/07 10:38:40 viselvar noship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy okl_eto_pvt.okl_eto_tbl, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_NUMBER_TABLE
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_NUMBER_TABLE
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_NUMBER_TABLE
11 , a8 JTF_VARCHAR2_TABLE_100
12 , a9 JTF_VARCHAR2_TABLE_500
13 , a10 JTF_VARCHAR2_TABLE_500
14 , a11 JTF_VARCHAR2_TABLE_500
15 , a12 JTF_VARCHAR2_TABLE_500
16 , a13 JTF_VARCHAR2_TABLE_500
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_NUMBER_TABLE
28 , a25 JTF_DATE_TABLE
29 , a26 JTF_NUMBER_TABLE
30 , a27 JTF_DATE_TABLE
31 , a28 JTF_NUMBER_TABLE
32 ) as
33 ddindx binary_integer; indx binary_integer;
34 begin
35 if a0 is not null and a0.count > 0 then
36 if a0.count > 0 then
37 indx := a0.first;
38 ddindx := 1;
39 while true loop
40 t(ddindx).end_of_term_obj_id := a0(indx);
41 t(ddindx).object_version_number := a1(indx);
42 t(ddindx).inventory_item_id := a2(indx);
43 t(ddindx).organization_id := a3(indx);
44 t(ddindx).category_id := a4(indx);
45 t(ddindx).category_set_id := a5(indx);
46 t(ddindx).resi_category_set_id := a6(indx);
47 t(ddindx).end_of_term_ver_id := a7(indx);
48 t(ddindx).attribute_category := a8(indx);
49 t(ddindx).attribute1 := a9(indx);
50 t(ddindx).attribute2 := a10(indx);
51 t(ddindx).attribute3 := a11(indx);
52 t(ddindx).attribute4 := a12(indx);
53 t(ddindx).attribute5 := a13(indx);
54 t(ddindx).attribute6 := a14(indx);
55 t(ddindx).attribute7 := a15(indx);
56 t(ddindx).attribute8 := a16(indx);
57 t(ddindx).attribute9 := a17(indx);
58 t(ddindx).attribute10 := a18(indx);
59 t(ddindx).attribute11 := a19(indx);
60 t(ddindx).attribute12 := a20(indx);
61 t(ddindx).attribute13 := a21(indx);
62 t(ddindx).attribute14 := a22(indx);
63 t(ddindx).attribute15 := a23(indx);
64 t(ddindx).created_by := a24(indx);
65 t(ddindx).creation_date := a25(indx);
66 t(ddindx).last_updated_by := a26(indx);
67 t(ddindx).last_update_date := a27(indx);
68 t(ddindx).last_update_login := a28(indx);
69 ddindx := ddindx+1;
70 if a0.last =indx
71 then exit;
72 end if;
73 indx := a0.next(indx);
74 end loop;
75 end if;
76 end if;
77 end rosetta_table_copy_in_p1;
78 procedure rosetta_table_copy_out_p1(t okl_eto_pvt.okl_eto_tbl, a0 out nocopy JTF_NUMBER_TABLE
79 , a1 out nocopy JTF_NUMBER_TABLE
80 , a2 out nocopy JTF_NUMBER_TABLE
81 , a3 out nocopy JTF_NUMBER_TABLE
82 , a4 out nocopy JTF_NUMBER_TABLE
83 , a5 out nocopy JTF_NUMBER_TABLE
84 , a6 out nocopy JTF_NUMBER_TABLE
85 , a7 out nocopy JTF_NUMBER_TABLE
86 , a8 out nocopy JTF_VARCHAR2_TABLE_100
87 , a9 out nocopy JTF_VARCHAR2_TABLE_500
88 , a10 out nocopy JTF_VARCHAR2_TABLE_500
89 , a11 out nocopy JTF_VARCHAR2_TABLE_500
90 , a12 out nocopy JTF_VARCHAR2_TABLE_500
91 , a13 out nocopy JTF_VARCHAR2_TABLE_500
92 , a14 out nocopy JTF_VARCHAR2_TABLE_500
93 , a15 out nocopy JTF_VARCHAR2_TABLE_500
94 , a16 out nocopy JTF_VARCHAR2_TABLE_500
95 , a17 out nocopy JTF_VARCHAR2_TABLE_500
96 , a18 out nocopy JTF_VARCHAR2_TABLE_500
97 , a19 out nocopy JTF_VARCHAR2_TABLE_500
98 , a20 out nocopy JTF_VARCHAR2_TABLE_500
99 , a21 out nocopy JTF_VARCHAR2_TABLE_500
100 , a22 out nocopy JTF_VARCHAR2_TABLE_500
101 , a23 out nocopy JTF_VARCHAR2_TABLE_500
102 , a24 out nocopy JTF_NUMBER_TABLE
103 , a25 out nocopy JTF_DATE_TABLE
104 , a26 out nocopy JTF_NUMBER_TABLE
105 , a27 out nocopy JTF_DATE_TABLE
106 , a28 out nocopy JTF_NUMBER_TABLE
107 ) as
108 ddindx binary_integer; indx binary_integer;
109 begin
110 if t is null or t.count = 0 then
111 a0 := JTF_NUMBER_TABLE();
112 a1 := JTF_NUMBER_TABLE();
113 a2 := JTF_NUMBER_TABLE();
114 a3 := JTF_NUMBER_TABLE();
115 a4 := JTF_NUMBER_TABLE();
116 a5 := JTF_NUMBER_TABLE();
117 a6 := JTF_NUMBER_TABLE();
118 a7 := JTF_NUMBER_TABLE();
119 a8 := JTF_VARCHAR2_TABLE_100();
120 a9 := JTF_VARCHAR2_TABLE_500();
121 a10 := JTF_VARCHAR2_TABLE_500();
122 a11 := JTF_VARCHAR2_TABLE_500();
123 a12 := JTF_VARCHAR2_TABLE_500();
124 a13 := JTF_VARCHAR2_TABLE_500();
125 a14 := JTF_VARCHAR2_TABLE_500();
126 a15 := JTF_VARCHAR2_TABLE_500();
127 a16 := JTF_VARCHAR2_TABLE_500();
128 a17 := JTF_VARCHAR2_TABLE_500();
129 a18 := JTF_VARCHAR2_TABLE_500();
130 a19 := JTF_VARCHAR2_TABLE_500();
131 a20 := JTF_VARCHAR2_TABLE_500();
132 a21 := JTF_VARCHAR2_TABLE_500();
133 a22 := JTF_VARCHAR2_TABLE_500();
134 a23 := JTF_VARCHAR2_TABLE_500();
135 a24 := JTF_NUMBER_TABLE();
136 a25 := JTF_DATE_TABLE();
137 a26 := JTF_NUMBER_TABLE();
138 a27 := JTF_DATE_TABLE();
139 a28 := JTF_NUMBER_TABLE();
140 else
141 a0 := JTF_NUMBER_TABLE();
142 a1 := JTF_NUMBER_TABLE();
143 a2 := JTF_NUMBER_TABLE();
144 a3 := JTF_NUMBER_TABLE();
145 a4 := JTF_NUMBER_TABLE();
146 a5 := JTF_NUMBER_TABLE();
147 a6 := JTF_NUMBER_TABLE();
148 a7 := JTF_NUMBER_TABLE();
149 a8 := JTF_VARCHAR2_TABLE_100();
150 a9 := JTF_VARCHAR2_TABLE_500();
151 a10 := JTF_VARCHAR2_TABLE_500();
152 a11 := JTF_VARCHAR2_TABLE_500();
153 a12 := JTF_VARCHAR2_TABLE_500();
154 a13 := JTF_VARCHAR2_TABLE_500();
155 a14 := JTF_VARCHAR2_TABLE_500();
156 a15 := JTF_VARCHAR2_TABLE_500();
157 a16 := JTF_VARCHAR2_TABLE_500();
158 a17 := JTF_VARCHAR2_TABLE_500();
159 a18 := JTF_VARCHAR2_TABLE_500();
160 a19 := JTF_VARCHAR2_TABLE_500();
161 a20 := JTF_VARCHAR2_TABLE_500();
162 a21 := JTF_VARCHAR2_TABLE_500();
163 a22 := JTF_VARCHAR2_TABLE_500();
164 a23 := JTF_VARCHAR2_TABLE_500();
165 a24 := JTF_NUMBER_TABLE();
166 a25 := JTF_DATE_TABLE();
167 a26 := JTF_NUMBER_TABLE();
168 a27 := JTF_DATE_TABLE();
169 a28 := JTF_NUMBER_TABLE();
170 if t.count > 0 then
171 a0.extend(t.count);
172 a1.extend(t.count);
173 a2.extend(t.count);
174 a3.extend(t.count);
175 a4.extend(t.count);
176 a5.extend(t.count);
177 a6.extend(t.count);
178 a7.extend(t.count);
179 a8.extend(t.count);
180 a9.extend(t.count);
181 a10.extend(t.count);
182 a11.extend(t.count);
183 a12.extend(t.count);
184 a13.extend(t.count);
185 a14.extend(t.count);
186 a15.extend(t.count);
187 a16.extend(t.count);
188 a17.extend(t.count);
189 a18.extend(t.count);
190 a19.extend(t.count);
191 a20.extend(t.count);
192 a21.extend(t.count);
193 a22.extend(t.count);
194 a23.extend(t.count);
195 a24.extend(t.count);
196 a25.extend(t.count);
197 a26.extend(t.count);
198 a27.extend(t.count);
199 a28.extend(t.count);
200 ddindx := t.first;
201 indx := 1;
202 while true loop
203 a0(indx) := t(ddindx).end_of_term_obj_id;
204 a1(indx) := t(ddindx).object_version_number;
205 a2(indx) := t(ddindx).inventory_item_id;
206 a3(indx) := t(ddindx).organization_id;
207 a4(indx) := t(ddindx).category_id;
208 a5(indx) := t(ddindx).category_set_id;
209 a6(indx) := t(ddindx).resi_category_set_id;
210 a7(indx) := t(ddindx).end_of_term_ver_id;
211 a8(indx) := t(ddindx).attribute_category;
212 a9(indx) := t(ddindx).attribute1;
213 a10(indx) := t(ddindx).attribute2;
214 a11(indx) := t(ddindx).attribute3;
215 a12(indx) := t(ddindx).attribute4;
216 a13(indx) := t(ddindx).attribute5;
217 a14(indx) := t(ddindx).attribute6;
218 a15(indx) := t(ddindx).attribute7;
219 a16(indx) := t(ddindx).attribute8;
220 a17(indx) := t(ddindx).attribute9;
221 a18(indx) := t(ddindx).attribute10;
222 a19(indx) := t(ddindx).attribute11;
223 a20(indx) := t(ddindx).attribute12;
224 a21(indx) := t(ddindx).attribute13;
225 a22(indx) := t(ddindx).attribute14;
226 a23(indx) := t(ddindx).attribute15;
227 a24(indx) := t(ddindx).created_by;
228 a25(indx) := t(ddindx).creation_date;
229 a26(indx) := t(ddindx).last_updated_by;
230 a27(indx) := t(ddindx).last_update_date;
231 a28(indx) := t(ddindx).last_update_login;
232 indx := indx+1;
233 if t.last =ddindx
234 then exit;
235 end if;
236 ddindx := t.next(ddindx);
237 end loop;
238 end if;
239 end if;
240 end rosetta_table_copy_out_p1;
241
242 procedure insert_row(p_api_version NUMBER
243 , p_init_msg_list VARCHAR2
244 , x_return_status out nocopy VARCHAR2
245 , x_msg_count out nocopy NUMBER
246 , x_msg_data out nocopy VARCHAR2
247 , p5_a0 NUMBER
248 , p5_a1 NUMBER
249 , p5_a2 NUMBER
250 , p5_a3 NUMBER
251 , p5_a4 NUMBER
252 , p5_a5 NUMBER
253 , p5_a6 NUMBER
254 , p5_a7 NUMBER
255 , p5_a8 VARCHAR2
256 , p5_a9 VARCHAR2
257 , p5_a10 VARCHAR2
258 , p5_a11 VARCHAR2
259 , p5_a12 VARCHAR2
260 , p5_a13 VARCHAR2
261 , p5_a14 VARCHAR2
262 , p5_a15 VARCHAR2
263 , p5_a16 VARCHAR2
264 , p5_a17 VARCHAR2
265 , p5_a18 VARCHAR2
266 , p5_a19 VARCHAR2
267 , p5_a20 VARCHAR2
268 , p5_a21 VARCHAR2
269 , p5_a22 VARCHAR2
270 , p5_a23 VARCHAR2
271 , p5_a24 NUMBER
272 , p5_a25 DATE
273 , p5_a26 NUMBER
274 , p5_a27 DATE
275 , p5_a28 NUMBER
276 , p6_a0 out nocopy NUMBER
277 , p6_a1 out nocopy NUMBER
278 , p6_a2 out nocopy NUMBER
279 , p6_a3 out nocopy NUMBER
280 , p6_a4 out nocopy NUMBER
281 , p6_a5 out nocopy NUMBER
282 , p6_a6 out nocopy NUMBER
283 , p6_a7 out nocopy NUMBER
284 , p6_a8 out nocopy VARCHAR2
285 , p6_a9 out nocopy VARCHAR2
286 , p6_a10 out nocopy VARCHAR2
287 , p6_a11 out nocopy VARCHAR2
288 , p6_a12 out nocopy VARCHAR2
289 , p6_a13 out nocopy VARCHAR2
290 , p6_a14 out nocopy VARCHAR2
291 , p6_a15 out nocopy VARCHAR2
292 , p6_a16 out nocopy VARCHAR2
293 , p6_a17 out nocopy VARCHAR2
294 , p6_a18 out nocopy VARCHAR2
295 , p6_a19 out nocopy VARCHAR2
296 , p6_a20 out nocopy VARCHAR2
297 , p6_a21 out nocopy VARCHAR2
298 , p6_a22 out nocopy VARCHAR2
299 , p6_a23 out nocopy VARCHAR2
300 , p6_a24 out nocopy NUMBER
301 , p6_a25 out nocopy DATE
302 , p6_a26 out nocopy NUMBER
303 , p6_a27 out nocopy DATE
304 , p6_a28 out nocopy NUMBER
305 )
306
307 as
308 ddp_eto_rec okl_eto_pvt.okl_eto_rec;
309 ddx_eto_rec okl_eto_pvt.okl_eto_rec;
310 ddindx binary_integer; indx binary_integer;
311 begin
312
313 -- copy data to the local IN or IN-OUT args, if any
314
315
316
317
318
319 ddp_eto_rec.end_of_term_obj_id := p5_a0;
320 ddp_eto_rec.object_version_number := p5_a1;
321 ddp_eto_rec.inventory_item_id := p5_a2;
322 ddp_eto_rec.organization_id := p5_a3;
323 ddp_eto_rec.category_id := p5_a4;
324 ddp_eto_rec.category_set_id := p5_a5;
325 ddp_eto_rec.resi_category_set_id := p5_a6;
326 ddp_eto_rec.end_of_term_ver_id := p5_a7;
327 ddp_eto_rec.attribute_category := p5_a8;
328 ddp_eto_rec.attribute1 := p5_a9;
329 ddp_eto_rec.attribute2 := p5_a10;
330 ddp_eto_rec.attribute3 := p5_a11;
331 ddp_eto_rec.attribute4 := p5_a12;
332 ddp_eto_rec.attribute5 := p5_a13;
333 ddp_eto_rec.attribute6 := p5_a14;
334 ddp_eto_rec.attribute7 := p5_a15;
335 ddp_eto_rec.attribute8 := p5_a16;
336 ddp_eto_rec.attribute9 := p5_a17;
337 ddp_eto_rec.attribute10 := p5_a18;
338 ddp_eto_rec.attribute11 := p5_a19;
339 ddp_eto_rec.attribute12 := p5_a20;
340 ddp_eto_rec.attribute13 := p5_a21;
341 ddp_eto_rec.attribute14 := p5_a22;
342 ddp_eto_rec.attribute15 := p5_a23;
343 ddp_eto_rec.created_by := p5_a24;
344 ddp_eto_rec.creation_date := p5_a25;
345 ddp_eto_rec.last_updated_by := p5_a26;
346 ddp_eto_rec.last_update_date := p5_a27;
347 ddp_eto_rec.last_update_login := p5_a28;
348
349
350 -- here's the delegated call to the old PL/SQL routine
351 okl_eto_pvt.insert_row(p_api_version,
352 p_init_msg_list,
353 x_return_status,
354 x_msg_count,
355 x_msg_data,
356 ddp_eto_rec,
357 ddx_eto_rec);
358
359 -- copy data back from the local variables to OUT or IN-OUT args, if any
360
361
362
363
364
365
366 p6_a0 := ddx_eto_rec.end_of_term_obj_id;
367 p6_a1 := ddx_eto_rec.object_version_number;
368 p6_a2 := ddx_eto_rec.inventory_item_id;
369 p6_a3 := ddx_eto_rec.organization_id;
370 p6_a4 := ddx_eto_rec.category_id;
371 p6_a5 := ddx_eto_rec.category_set_id;
372 p6_a6 := ddx_eto_rec.resi_category_set_id;
373 p6_a7 := ddx_eto_rec.end_of_term_ver_id;
374 p6_a8 := ddx_eto_rec.attribute_category;
375 p6_a9 := ddx_eto_rec.attribute1;
376 p6_a10 := ddx_eto_rec.attribute2;
377 p6_a11 := ddx_eto_rec.attribute3;
378 p6_a12 := ddx_eto_rec.attribute4;
379 p6_a13 := ddx_eto_rec.attribute5;
380 p6_a14 := ddx_eto_rec.attribute6;
381 p6_a15 := ddx_eto_rec.attribute7;
382 p6_a16 := ddx_eto_rec.attribute8;
383 p6_a17 := ddx_eto_rec.attribute9;
384 p6_a18 := ddx_eto_rec.attribute10;
385 p6_a19 := ddx_eto_rec.attribute11;
386 p6_a20 := ddx_eto_rec.attribute12;
387 p6_a21 := ddx_eto_rec.attribute13;
388 p6_a22 := ddx_eto_rec.attribute14;
389 p6_a23 := ddx_eto_rec.attribute15;
390 p6_a24 := ddx_eto_rec.created_by;
391 p6_a25 := ddx_eto_rec.creation_date;
392 p6_a26 := ddx_eto_rec.last_updated_by;
393 p6_a27 := ddx_eto_rec.last_update_date;
394 p6_a28 := ddx_eto_rec.last_update_login;
395 end;
396
397 procedure insert_row(p_api_version NUMBER
398 , p_init_msg_list VARCHAR2
399 , x_return_status out nocopy VARCHAR2
400 , x_msg_count out nocopy NUMBER
401 , x_msg_data out nocopy VARCHAR2
402 , p5_a0 JTF_NUMBER_TABLE
403 , p5_a1 JTF_NUMBER_TABLE
404 , p5_a2 JTF_NUMBER_TABLE
405 , p5_a3 JTF_NUMBER_TABLE
406 , p5_a4 JTF_NUMBER_TABLE
407 , p5_a5 JTF_NUMBER_TABLE
408 , p5_a6 JTF_NUMBER_TABLE
409 , p5_a7 JTF_NUMBER_TABLE
410 , p5_a8 JTF_VARCHAR2_TABLE_100
411 , p5_a9 JTF_VARCHAR2_TABLE_500
412 , p5_a10 JTF_VARCHAR2_TABLE_500
413 , p5_a11 JTF_VARCHAR2_TABLE_500
414 , p5_a12 JTF_VARCHAR2_TABLE_500
415 , p5_a13 JTF_VARCHAR2_TABLE_500
416 , p5_a14 JTF_VARCHAR2_TABLE_500
417 , p5_a15 JTF_VARCHAR2_TABLE_500
418 , p5_a16 JTF_VARCHAR2_TABLE_500
419 , p5_a17 JTF_VARCHAR2_TABLE_500
420 , p5_a18 JTF_VARCHAR2_TABLE_500
421 , p5_a19 JTF_VARCHAR2_TABLE_500
422 , p5_a20 JTF_VARCHAR2_TABLE_500
423 , p5_a21 JTF_VARCHAR2_TABLE_500
424 , p5_a22 JTF_VARCHAR2_TABLE_500
425 , p5_a23 JTF_VARCHAR2_TABLE_500
426 , p5_a24 JTF_NUMBER_TABLE
427 , p5_a25 JTF_DATE_TABLE
428 , p5_a26 JTF_NUMBER_TABLE
429 , p5_a27 JTF_DATE_TABLE
430 , p5_a28 JTF_NUMBER_TABLE
431 , p6_a0 out nocopy JTF_NUMBER_TABLE
432 , p6_a1 out nocopy JTF_NUMBER_TABLE
433 , p6_a2 out nocopy JTF_NUMBER_TABLE
434 , p6_a3 out nocopy JTF_NUMBER_TABLE
435 , p6_a4 out nocopy JTF_NUMBER_TABLE
436 , p6_a5 out nocopy JTF_NUMBER_TABLE
437 , p6_a6 out nocopy JTF_NUMBER_TABLE
438 , p6_a7 out nocopy JTF_NUMBER_TABLE
439 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
440 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
441 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
442 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
443 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
444 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
445 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
446 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
447 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
448 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
449 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
450 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
451 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
452 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
453 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
454 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
455 , p6_a24 out nocopy JTF_NUMBER_TABLE
456 , p6_a25 out nocopy JTF_DATE_TABLE
457 , p6_a26 out nocopy JTF_NUMBER_TABLE
458 , p6_a27 out nocopy JTF_DATE_TABLE
459 , p6_a28 out nocopy JTF_NUMBER_TABLE
460 )
461
462 as
463 ddp_eto_tbl okl_eto_pvt.okl_eto_tbl;
464 ddx_eto_tbl okl_eto_pvt.okl_eto_tbl;
465 ddindx binary_integer; indx binary_integer;
466 begin
467
468 -- copy data to the local IN or IN-OUT args, if any
469
470
471
472
473
474 okl_eto_pvt_w.rosetta_table_copy_in_p1(ddp_eto_tbl, p5_a0
475 , p5_a1
476 , p5_a2
477 , p5_a3
478 , p5_a4
479 , p5_a5
480 , p5_a6
481 , p5_a7
482 , p5_a8
483 , p5_a9
484 , p5_a10
485 , p5_a11
486 , p5_a12
487 , p5_a13
488 , p5_a14
489 , p5_a15
490 , p5_a16
491 , p5_a17
492 , p5_a18
493 , p5_a19
494 , p5_a20
495 , p5_a21
496 , p5_a22
497 , p5_a23
498 , p5_a24
499 , p5_a25
500 , p5_a26
501 , p5_a27
502 , p5_a28
503 );
504
505
506 -- here's the delegated call to the old PL/SQL routine
507 okl_eto_pvt.insert_row(p_api_version,
508 p_init_msg_list,
509 x_return_status,
510 x_msg_count,
511 x_msg_data,
512 ddp_eto_tbl,
513 ddx_eto_tbl);
514
515 -- copy data back from the local variables to OUT or IN-OUT args, if any
516
517
518
519
520
521
522 okl_eto_pvt_w.rosetta_table_copy_out_p1(ddx_eto_tbl, p6_a0
523 , p6_a1
524 , p6_a2
525 , p6_a3
526 , p6_a4
527 , p6_a5
528 , p6_a6
529 , p6_a7
530 , p6_a8
531 , p6_a9
532 , p6_a10
533 , p6_a11
534 , p6_a12
535 , p6_a13
536 , p6_a14
537 , p6_a15
538 , p6_a16
539 , p6_a17
540 , p6_a18
541 , p6_a19
542 , p6_a20
543 , p6_a21
544 , p6_a22
545 , p6_a23
546 , p6_a24
547 , p6_a25
548 , p6_a26
549 , p6_a27
550 , p6_a28
551 );
552 end;
553
554 procedure update_row(p_api_version NUMBER
555 , p_init_msg_list VARCHAR2
556 , x_return_status out nocopy VARCHAR2
557 , x_msg_count out nocopy NUMBER
558 , x_msg_data out nocopy VARCHAR2
559 , p5_a0 NUMBER
560 , p5_a1 NUMBER
561 , p5_a2 NUMBER
562 , p5_a3 NUMBER
563 , p5_a4 NUMBER
564 , p5_a5 NUMBER
565 , p5_a6 NUMBER
566 , p5_a7 NUMBER
567 , p5_a8 VARCHAR2
568 , p5_a9 VARCHAR2
569 , p5_a10 VARCHAR2
570 , p5_a11 VARCHAR2
571 , p5_a12 VARCHAR2
572 , p5_a13 VARCHAR2
573 , p5_a14 VARCHAR2
574 , p5_a15 VARCHAR2
575 , p5_a16 VARCHAR2
576 , p5_a17 VARCHAR2
577 , p5_a18 VARCHAR2
578 , p5_a19 VARCHAR2
579 , p5_a20 VARCHAR2
580 , p5_a21 VARCHAR2
581 , p5_a22 VARCHAR2
582 , p5_a23 VARCHAR2
583 , p5_a24 NUMBER
584 , p5_a25 DATE
585 , p5_a26 NUMBER
586 , p5_a27 DATE
587 , p5_a28 NUMBER
588 , p6_a0 out nocopy NUMBER
589 , p6_a1 out nocopy NUMBER
590 , p6_a2 out nocopy NUMBER
591 , p6_a3 out nocopy NUMBER
592 , p6_a4 out nocopy NUMBER
593 , p6_a5 out nocopy NUMBER
594 , p6_a6 out nocopy NUMBER
595 , p6_a7 out nocopy NUMBER
596 , p6_a8 out nocopy VARCHAR2
597 , p6_a9 out nocopy VARCHAR2
598 , p6_a10 out nocopy VARCHAR2
599 , p6_a11 out nocopy VARCHAR2
600 , p6_a12 out nocopy VARCHAR2
601 , p6_a13 out nocopy VARCHAR2
602 , p6_a14 out nocopy VARCHAR2
603 , p6_a15 out nocopy VARCHAR2
604 , p6_a16 out nocopy VARCHAR2
605 , p6_a17 out nocopy VARCHAR2
606 , p6_a18 out nocopy VARCHAR2
607 , p6_a19 out nocopy VARCHAR2
608 , p6_a20 out nocopy VARCHAR2
609 , p6_a21 out nocopy VARCHAR2
610 , p6_a22 out nocopy VARCHAR2
611 , p6_a23 out nocopy VARCHAR2
612 , p6_a24 out nocopy NUMBER
613 , p6_a25 out nocopy DATE
614 , p6_a26 out nocopy NUMBER
615 , p6_a27 out nocopy DATE
616 , p6_a28 out nocopy NUMBER
617 )
618
619 as
620 ddp_eto_rec okl_eto_pvt.okl_eto_rec;
621 ddx_eto_rec okl_eto_pvt.okl_eto_rec;
622 ddindx binary_integer; indx binary_integer;
623 begin
624
625 -- copy data to the local IN or IN-OUT args, if any
626
627
628
629
630
631 ddp_eto_rec.end_of_term_obj_id := p5_a0;
632 ddp_eto_rec.object_version_number := p5_a1;
633 ddp_eto_rec.inventory_item_id := p5_a2;
634 ddp_eto_rec.organization_id := p5_a3;
635 ddp_eto_rec.category_id := p5_a4;
636 ddp_eto_rec.category_set_id := p5_a5;
637 ddp_eto_rec.resi_category_set_id := p5_a6;
638 ddp_eto_rec.end_of_term_ver_id := p5_a7;
639 ddp_eto_rec.attribute_category := p5_a8;
640 ddp_eto_rec.attribute1 := p5_a9;
641 ddp_eto_rec.attribute2 := p5_a10;
642 ddp_eto_rec.attribute3 := p5_a11;
643 ddp_eto_rec.attribute4 := p5_a12;
644 ddp_eto_rec.attribute5 := p5_a13;
645 ddp_eto_rec.attribute6 := p5_a14;
646 ddp_eto_rec.attribute7 := p5_a15;
647 ddp_eto_rec.attribute8 := p5_a16;
648 ddp_eto_rec.attribute9 := p5_a17;
649 ddp_eto_rec.attribute10 := p5_a18;
650 ddp_eto_rec.attribute11 := p5_a19;
651 ddp_eto_rec.attribute12 := p5_a20;
652 ddp_eto_rec.attribute13 := p5_a21;
653 ddp_eto_rec.attribute14 := p5_a22;
654 ddp_eto_rec.attribute15 := p5_a23;
655 ddp_eto_rec.created_by := p5_a24;
656 ddp_eto_rec.creation_date := p5_a25;
657 ddp_eto_rec.last_updated_by := p5_a26;
658 ddp_eto_rec.last_update_date := p5_a27;
659 ddp_eto_rec.last_update_login := p5_a28;
660
661
662 -- here's the delegated call to the old PL/SQL routine
663 okl_eto_pvt.update_row(p_api_version,
664 p_init_msg_list,
665 x_return_status,
666 x_msg_count,
667 x_msg_data,
668 ddp_eto_rec,
669 ddx_eto_rec);
670
671 -- copy data back from the local variables to OUT or IN-OUT args, if any
672
673
674
675
676
677
678 p6_a0 := ddx_eto_rec.end_of_term_obj_id;
679 p6_a1 := ddx_eto_rec.object_version_number;
680 p6_a2 := ddx_eto_rec.inventory_item_id;
681 p6_a3 := ddx_eto_rec.organization_id;
682 p6_a4 := ddx_eto_rec.category_id;
683 p6_a5 := ddx_eto_rec.category_set_id;
684 p6_a6 := ddx_eto_rec.resi_category_set_id;
685 p6_a7 := ddx_eto_rec.end_of_term_ver_id;
686 p6_a8 := ddx_eto_rec.attribute_category;
687 p6_a9 := ddx_eto_rec.attribute1;
688 p6_a10 := ddx_eto_rec.attribute2;
689 p6_a11 := ddx_eto_rec.attribute3;
690 p6_a12 := ddx_eto_rec.attribute4;
691 p6_a13 := ddx_eto_rec.attribute5;
692 p6_a14 := ddx_eto_rec.attribute6;
693 p6_a15 := ddx_eto_rec.attribute7;
694 p6_a16 := ddx_eto_rec.attribute8;
695 p6_a17 := ddx_eto_rec.attribute9;
696 p6_a18 := ddx_eto_rec.attribute10;
697 p6_a19 := ddx_eto_rec.attribute11;
698 p6_a20 := ddx_eto_rec.attribute12;
699 p6_a21 := ddx_eto_rec.attribute13;
700 p6_a22 := ddx_eto_rec.attribute14;
701 p6_a23 := ddx_eto_rec.attribute15;
702 p6_a24 := ddx_eto_rec.created_by;
703 p6_a25 := ddx_eto_rec.creation_date;
704 p6_a26 := ddx_eto_rec.last_updated_by;
705 p6_a27 := ddx_eto_rec.last_update_date;
706 p6_a28 := ddx_eto_rec.last_update_login;
707 end;
708
709 procedure update_row(p_api_version NUMBER
710 , p_init_msg_list VARCHAR2
711 , x_return_status out nocopy VARCHAR2
712 , x_msg_count out nocopy NUMBER
713 , x_msg_data out nocopy VARCHAR2
714 , p5_a0 JTF_NUMBER_TABLE
715 , p5_a1 JTF_NUMBER_TABLE
716 , p5_a2 JTF_NUMBER_TABLE
717 , p5_a3 JTF_NUMBER_TABLE
718 , p5_a4 JTF_NUMBER_TABLE
719 , p5_a5 JTF_NUMBER_TABLE
720 , p5_a6 JTF_NUMBER_TABLE
721 , p5_a7 JTF_NUMBER_TABLE
722 , p5_a8 JTF_VARCHAR2_TABLE_100
723 , p5_a9 JTF_VARCHAR2_TABLE_500
724 , p5_a10 JTF_VARCHAR2_TABLE_500
725 , p5_a11 JTF_VARCHAR2_TABLE_500
726 , p5_a12 JTF_VARCHAR2_TABLE_500
727 , p5_a13 JTF_VARCHAR2_TABLE_500
728 , p5_a14 JTF_VARCHAR2_TABLE_500
729 , p5_a15 JTF_VARCHAR2_TABLE_500
730 , p5_a16 JTF_VARCHAR2_TABLE_500
731 , p5_a17 JTF_VARCHAR2_TABLE_500
732 , p5_a18 JTF_VARCHAR2_TABLE_500
733 , p5_a19 JTF_VARCHAR2_TABLE_500
734 , p5_a20 JTF_VARCHAR2_TABLE_500
735 , p5_a21 JTF_VARCHAR2_TABLE_500
736 , p5_a22 JTF_VARCHAR2_TABLE_500
737 , p5_a23 JTF_VARCHAR2_TABLE_500
738 , p5_a24 JTF_NUMBER_TABLE
739 , p5_a25 JTF_DATE_TABLE
740 , p5_a26 JTF_NUMBER_TABLE
741 , p5_a27 JTF_DATE_TABLE
742 , p5_a28 JTF_NUMBER_TABLE
743 , p6_a0 out nocopy JTF_NUMBER_TABLE
744 , p6_a1 out nocopy JTF_NUMBER_TABLE
745 , p6_a2 out nocopy JTF_NUMBER_TABLE
746 , p6_a3 out nocopy JTF_NUMBER_TABLE
747 , p6_a4 out nocopy JTF_NUMBER_TABLE
748 , p6_a5 out nocopy JTF_NUMBER_TABLE
749 , p6_a6 out nocopy JTF_NUMBER_TABLE
750 , p6_a7 out nocopy JTF_NUMBER_TABLE
751 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
752 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
753 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
754 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
755 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
756 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
757 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
758 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
759 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
760 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
761 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
762 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
763 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
764 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
765 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
766 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
767 , p6_a24 out nocopy JTF_NUMBER_TABLE
768 , p6_a25 out nocopy JTF_DATE_TABLE
769 , p6_a26 out nocopy JTF_NUMBER_TABLE
770 , p6_a27 out nocopy JTF_DATE_TABLE
771 , p6_a28 out nocopy JTF_NUMBER_TABLE
772 )
773
774 as
775 ddp_eto_tbl okl_eto_pvt.okl_eto_tbl;
776 ddx_eto_tbl okl_eto_pvt.okl_eto_tbl;
777 ddindx binary_integer; indx binary_integer;
778 begin
779
780 -- copy data to the local IN or IN-OUT args, if any
781
782
783
784
785
786 okl_eto_pvt_w.rosetta_table_copy_in_p1(ddp_eto_tbl, p5_a0
787 , p5_a1
788 , p5_a2
789 , p5_a3
790 , p5_a4
791 , p5_a5
792 , p5_a6
793 , p5_a7
794 , p5_a8
795 , p5_a9
796 , p5_a10
797 , p5_a11
798 , p5_a12
799 , p5_a13
800 , p5_a14
801 , p5_a15
802 , p5_a16
803 , p5_a17
804 , p5_a18
805 , p5_a19
806 , p5_a20
807 , p5_a21
808 , p5_a22
809 , p5_a23
810 , p5_a24
811 , p5_a25
812 , p5_a26
813 , p5_a27
814 , p5_a28
815 );
816
817
818 -- here's the delegated call to the old PL/SQL routine
819 okl_eto_pvt.update_row(p_api_version,
820 p_init_msg_list,
821 x_return_status,
822 x_msg_count,
823 x_msg_data,
824 ddp_eto_tbl,
825 ddx_eto_tbl);
826
827 -- copy data back from the local variables to OUT or IN-OUT args, if any
828
829
830
831
832
833
834 okl_eto_pvt_w.rosetta_table_copy_out_p1(ddx_eto_tbl, p6_a0
835 , p6_a1
836 , p6_a2
837 , p6_a3
838 , p6_a4
839 , p6_a5
840 , p6_a6
841 , p6_a7
842 , p6_a8
843 , p6_a9
844 , p6_a10
845 , p6_a11
846 , p6_a12
847 , p6_a13
848 , p6_a14
849 , p6_a15
850 , p6_a16
851 , p6_a17
852 , p6_a18
853 , p6_a19
854 , p6_a20
855 , p6_a21
856 , p6_a22
857 , p6_a23
858 , p6_a24
859 , p6_a25
860 , p6_a26
861 , p6_a27
862 , p6_a28
863 );
864 end;
865
866 procedure delete_row(p_api_version NUMBER
867 , p_init_msg_list VARCHAR2
868 , x_return_status out nocopy VARCHAR2
869 , x_msg_count out nocopy NUMBER
870 , x_msg_data out nocopy VARCHAR2
871 , p5_a0 NUMBER
872 , p5_a1 NUMBER
873 , p5_a2 NUMBER
874 , p5_a3 NUMBER
875 , p5_a4 NUMBER
876 , p5_a5 NUMBER
877 , p5_a6 NUMBER
878 , p5_a7 NUMBER
879 , p5_a8 VARCHAR2
880 , p5_a9 VARCHAR2
881 , p5_a10 VARCHAR2
882 , p5_a11 VARCHAR2
883 , p5_a12 VARCHAR2
884 , p5_a13 VARCHAR2
885 , p5_a14 VARCHAR2
886 , p5_a15 VARCHAR2
887 , p5_a16 VARCHAR2
888 , p5_a17 VARCHAR2
889 , p5_a18 VARCHAR2
890 , p5_a19 VARCHAR2
891 , p5_a20 VARCHAR2
892 , p5_a21 VARCHAR2
893 , p5_a22 VARCHAR2
894 , p5_a23 VARCHAR2
895 , p5_a24 NUMBER
896 , p5_a25 DATE
897 , p5_a26 NUMBER
898 , p5_a27 DATE
899 , p5_a28 NUMBER
900 )
901
902 as
903 ddp_eto_rec okl_eto_pvt.okl_eto_rec;
904 ddindx binary_integer; indx binary_integer;
905 begin
906
907 -- copy data to the local IN or IN-OUT args, if any
908
909
910
911
912
913 ddp_eto_rec.end_of_term_obj_id := p5_a0;
914 ddp_eto_rec.object_version_number := p5_a1;
915 ddp_eto_rec.inventory_item_id := p5_a2;
916 ddp_eto_rec.organization_id := p5_a3;
917 ddp_eto_rec.category_id := p5_a4;
918 ddp_eto_rec.category_set_id := p5_a5;
919 ddp_eto_rec.resi_category_set_id := p5_a6;
920 ddp_eto_rec.end_of_term_ver_id := p5_a7;
921 ddp_eto_rec.attribute_category := p5_a8;
922 ddp_eto_rec.attribute1 := p5_a9;
923 ddp_eto_rec.attribute2 := p5_a10;
924 ddp_eto_rec.attribute3 := p5_a11;
925 ddp_eto_rec.attribute4 := p5_a12;
926 ddp_eto_rec.attribute5 := p5_a13;
927 ddp_eto_rec.attribute6 := p5_a14;
928 ddp_eto_rec.attribute7 := p5_a15;
929 ddp_eto_rec.attribute8 := p5_a16;
930 ddp_eto_rec.attribute9 := p5_a17;
931 ddp_eto_rec.attribute10 := p5_a18;
932 ddp_eto_rec.attribute11 := p5_a19;
933 ddp_eto_rec.attribute12 := p5_a20;
934 ddp_eto_rec.attribute13 := p5_a21;
935 ddp_eto_rec.attribute14 := p5_a22;
936 ddp_eto_rec.attribute15 := p5_a23;
937 ddp_eto_rec.created_by := p5_a24;
938 ddp_eto_rec.creation_date := p5_a25;
939 ddp_eto_rec.last_updated_by := p5_a26;
940 ddp_eto_rec.last_update_date := p5_a27;
941 ddp_eto_rec.last_update_login := p5_a28;
942
943 -- here's the delegated call to the old PL/SQL routine
944 okl_eto_pvt.delete_row(p_api_version,
945 p_init_msg_list,
946 x_return_status,
947 x_msg_count,
948 x_msg_data,
949 ddp_eto_rec);
950
951 -- copy data back from the local variables to OUT or IN-OUT args, if any
952
953
954
955
956
957 end;
958
959 procedure delete_row(p_api_version NUMBER
960 , p_init_msg_list VARCHAR2
961 , x_return_status out nocopy VARCHAR2
962 , x_msg_count out nocopy NUMBER
963 , x_msg_data out nocopy VARCHAR2
964 , p5_a0 JTF_NUMBER_TABLE
965 , p5_a1 JTF_NUMBER_TABLE
966 , p5_a2 JTF_NUMBER_TABLE
967 , p5_a3 JTF_NUMBER_TABLE
968 , p5_a4 JTF_NUMBER_TABLE
969 , p5_a5 JTF_NUMBER_TABLE
970 , p5_a6 JTF_NUMBER_TABLE
971 , p5_a7 JTF_NUMBER_TABLE
972 , p5_a8 JTF_VARCHAR2_TABLE_100
973 , p5_a9 JTF_VARCHAR2_TABLE_500
974 , p5_a10 JTF_VARCHAR2_TABLE_500
975 , p5_a11 JTF_VARCHAR2_TABLE_500
976 , p5_a12 JTF_VARCHAR2_TABLE_500
977 , p5_a13 JTF_VARCHAR2_TABLE_500
978 , p5_a14 JTF_VARCHAR2_TABLE_500
979 , p5_a15 JTF_VARCHAR2_TABLE_500
980 , p5_a16 JTF_VARCHAR2_TABLE_500
981 , p5_a17 JTF_VARCHAR2_TABLE_500
982 , p5_a18 JTF_VARCHAR2_TABLE_500
983 , p5_a19 JTF_VARCHAR2_TABLE_500
984 , p5_a20 JTF_VARCHAR2_TABLE_500
985 , p5_a21 JTF_VARCHAR2_TABLE_500
986 , p5_a22 JTF_VARCHAR2_TABLE_500
987 , p5_a23 JTF_VARCHAR2_TABLE_500
988 , p5_a24 JTF_NUMBER_TABLE
989 , p5_a25 JTF_DATE_TABLE
990 , p5_a26 JTF_NUMBER_TABLE
991 , p5_a27 JTF_DATE_TABLE
992 , p5_a28 JTF_NUMBER_TABLE
993 )
994
995 as
996 ddp_eto_tbl okl_eto_pvt.okl_eto_tbl;
997 ddindx binary_integer; indx binary_integer;
998 begin
999
1000 -- copy data to the local IN or IN-OUT args, if any
1001
1002
1003
1004
1005
1006 okl_eto_pvt_w.rosetta_table_copy_in_p1(ddp_eto_tbl, p5_a0
1007 , p5_a1
1008 , p5_a2
1009 , p5_a3
1010 , p5_a4
1011 , p5_a5
1012 , p5_a6
1013 , p5_a7
1014 , p5_a8
1015 , p5_a9
1016 , p5_a10
1017 , p5_a11
1018 , p5_a12
1019 , p5_a13
1020 , p5_a14
1021 , p5_a15
1022 , p5_a16
1023 , p5_a17
1024 , p5_a18
1025 , p5_a19
1026 , p5_a20
1027 , p5_a21
1028 , p5_a22
1029 , p5_a23
1030 , p5_a24
1031 , p5_a25
1032 , p5_a26
1033 , p5_a27
1034 , p5_a28
1035 );
1036
1037 -- here's the delegated call to the old PL/SQL routine
1038 okl_eto_pvt.delete_row(p_api_version,
1039 p_init_msg_list,
1040 x_return_status,
1041 x_msg_count,
1042 x_msg_data,
1043 ddp_eto_tbl);
1044
1045 -- copy data back from the local variables to OUT or IN-OUT args, if any
1046
1047
1048
1049
1050
1051 end;
1052
1053 end okl_eto_pvt_w;