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