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