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