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