[Home] [Help]
PACKAGE BODY: APPS.OKL_QUICK_QUOTES_PVT_W
Source
1 package body okl_quick_quotes_pvt_w as
2 /* $Header: OKLEQQHB.pls 120.3 2006/02/10 07:40:49 asawanka noship $ */
3 procedure rosetta_table_copy_in_p8(t out nocopy okl_quick_quotes_pvt.rent_payments_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_DATE_TABLE
9 ) as
10 ddindx binary_integer; indx binary_integer;
11 begin
12 if a0 is not null and a0.count > 0 then
13 if a0.count > 0 then
14 indx := a0.first;
15 ddindx := 1;
16 while true loop
17 t(ddindx).rate := a0(indx);
18 t(ddindx).stub_amt := a1(indx);
19 t(ddindx).stub_days := a2(indx);
20 t(ddindx).periods := a3(indx);
21 t(ddindx).periodic_amount := a4(indx);
22 t(ddindx).start_date := a5(indx);
23 ddindx := ddindx+1;
24 if a0.last =indx
25 then exit;
26 end if;
27 indx := a0.next(indx);
28 end loop;
29 end if;
30 end if;
31 end rosetta_table_copy_in_p8;
32 procedure rosetta_table_copy_out_p8(t okl_quick_quotes_pvt.rent_payments_tbl, a0 out nocopy JTF_NUMBER_TABLE
33 , a1 out nocopy JTF_NUMBER_TABLE
34 , a2 out nocopy JTF_NUMBER_TABLE
35 , a3 out nocopy JTF_NUMBER_TABLE
36 , a4 out nocopy JTF_NUMBER_TABLE
37 , a5 out nocopy JTF_DATE_TABLE
38 ) as
39 ddindx binary_integer; indx binary_integer;
40 begin
41 if t is null or t.count = 0 then
42 a0 := JTF_NUMBER_TABLE();
43 a1 := JTF_NUMBER_TABLE();
44 a2 := JTF_NUMBER_TABLE();
45 a3 := JTF_NUMBER_TABLE();
46 a4 := JTF_NUMBER_TABLE();
47 a5 := JTF_DATE_TABLE();
48 else
49 a0 := JTF_NUMBER_TABLE();
50 a1 := JTF_NUMBER_TABLE();
51 a2 := JTF_NUMBER_TABLE();
52 a3 := JTF_NUMBER_TABLE();
53 a4 := JTF_NUMBER_TABLE();
54 a5 := JTF_DATE_TABLE();
55 if t.count > 0 then
56 a0.extend(t.count);
57 a1.extend(t.count);
58 a2.extend(t.count);
59 a3.extend(t.count);
60 a4.extend(t.count);
61 a5.extend(t.count);
62 ddindx := t.first;
63 indx := 1;
64 while true loop
65 a0(indx) := t(ddindx).rate;
66 a1(indx) := t(ddindx).stub_amt;
67 a2(indx) := t(ddindx).stub_days;
68 a3(indx) := t(ddindx).periods;
69 a4(indx) := t(ddindx).periodic_amount;
70 a5(indx) := t(ddindx).start_date;
71 indx := indx+1;
72 if t.last =ddindx
73 then exit;
74 end if;
75 ddindx := t.next(ddindx);
76 end loop;
77 end if;
78 end if;
79 end rosetta_table_copy_out_p8;
80
81 procedure rosetta_table_copy_in_p10(t out nocopy okl_quick_quotes_pvt.fee_service_payments_tbl, a0 JTF_VARCHAR2_TABLE_100
82 , a1 JTF_NUMBER_TABLE
83 , a2 JTF_NUMBER_TABLE
84 , a3 JTF_DATE_TABLE
85 ) as
86 ddindx binary_integer; indx binary_integer;
87 begin
88 if a0 is not null and a0.count > 0 then
89 if a0.count > 0 then
90 indx := a0.first;
91 ddindx := 1;
92 while true loop
93 t(ddindx).payment_type := a0(indx);
94 t(ddindx).periods := a1(indx);
95 t(ddindx).periodic_amt := a2(indx);
96 t(ddindx).start_date := a3(indx);
97 ddindx := ddindx+1;
98 if a0.last =indx
99 then exit;
100 end if;
101 indx := a0.next(indx);
102 end loop;
103 end if;
104 end if;
105 end rosetta_table_copy_in_p10;
106 procedure rosetta_table_copy_out_p10(t okl_quick_quotes_pvt.fee_service_payments_tbl, a0 out nocopy JTF_VARCHAR2_TABLE_100
107 , a1 out nocopy JTF_NUMBER_TABLE
108 , a2 out nocopy JTF_NUMBER_TABLE
109 , a3 out nocopy JTF_DATE_TABLE
110 ) as
111 ddindx binary_integer; indx binary_integer;
112 begin
113 if t is null or t.count = 0 then
114 a0 := JTF_VARCHAR2_TABLE_100();
115 a1 := JTF_NUMBER_TABLE();
116 a2 := JTF_NUMBER_TABLE();
117 a3 := JTF_DATE_TABLE();
118 else
119 a0 := JTF_VARCHAR2_TABLE_100();
120 a1 := JTF_NUMBER_TABLE();
121 a2 := JTF_NUMBER_TABLE();
122 a3 := JTF_DATE_TABLE();
123 if t.count > 0 then
124 a0.extend(t.count);
125 a1.extend(t.count);
126 a2.extend(t.count);
127 a3.extend(t.count);
128 ddindx := t.first;
129 indx := 1;
130 while true loop
131 a0(indx) := t(ddindx).payment_type;
132 a1(indx) := t(ddindx).periods;
133 a2(indx) := t(ddindx).periodic_amt;
134 a3(indx) := t(ddindx).start_date;
135 indx := indx+1;
136 if t.last =ddindx
137 then exit;
138 end if;
139 ddindx := t.next(ddindx);
140 end loop;
141 end if;
142 end if;
143 end rosetta_table_copy_out_p10;
144
145 procedure rosetta_table_copy_in_p12(t out nocopy okl_quick_quotes_pvt.item_order_estimate_tbl, a0 JTF_VARCHAR2_TABLE_300
146 , a1 JTF_VARCHAR2_TABLE_300
147 , a2 JTF_NUMBER_TABLE
148 , a3 JTF_NUMBER_TABLE
149 , a4 JTF_NUMBER_TABLE
150 , a5 JTF_NUMBER_TABLE
151 , a6 JTF_NUMBER_TABLE
152 , a7 JTF_DATE_TABLE
153 ) as
154 ddindx binary_integer; indx binary_integer;
155 begin
156 if a0 is not null and a0.count > 0 then
157 if a0.count > 0 then
158 indx := a0.first;
159 ddindx := 1;
160 while true loop
161 t(ddindx).item_category := a0(indx);
162 t(ddindx).description := a1(indx);
163 t(ddindx).cost := a2(indx);
164 t(ddindx).purchase_option_value := a3(indx);
165 t(ddindx).rate_factor := a4(indx);
166 t(ddindx).periods := a5(indx);
167 t(ddindx).periodic_amt := a6(indx);
168 t(ddindx).start_date := a7(indx);
169 ddindx := ddindx+1;
170 if a0.last =indx
171 then exit;
172 end if;
173 indx := a0.next(indx);
174 end loop;
175 end if;
176 end if;
177 end rosetta_table_copy_in_p12;
178 procedure rosetta_table_copy_out_p12(t okl_quick_quotes_pvt.item_order_estimate_tbl, a0 out nocopy JTF_VARCHAR2_TABLE_300
179 , a1 out nocopy JTF_VARCHAR2_TABLE_300
180 , a2 out nocopy JTF_NUMBER_TABLE
181 , a3 out nocopy JTF_NUMBER_TABLE
182 , a4 out nocopy JTF_NUMBER_TABLE
183 , a5 out nocopy JTF_NUMBER_TABLE
184 , a6 out nocopy JTF_NUMBER_TABLE
185 , a7 out nocopy JTF_DATE_TABLE
186 ) as
187 ddindx binary_integer; indx binary_integer;
188 begin
189 if t is null or t.count = 0 then
190 a0 := JTF_VARCHAR2_TABLE_300();
191 a1 := JTF_VARCHAR2_TABLE_300();
192 a2 := JTF_NUMBER_TABLE();
193 a3 := JTF_NUMBER_TABLE();
194 a4 := JTF_NUMBER_TABLE();
195 a5 := JTF_NUMBER_TABLE();
196 a6 := JTF_NUMBER_TABLE();
197 a7 := JTF_DATE_TABLE();
198 else
199 a0 := JTF_VARCHAR2_TABLE_300();
200 a1 := JTF_VARCHAR2_TABLE_300();
201 a2 := JTF_NUMBER_TABLE();
202 a3 := JTF_NUMBER_TABLE();
203 a4 := JTF_NUMBER_TABLE();
204 a5 := JTF_NUMBER_TABLE();
205 a6 := JTF_NUMBER_TABLE();
206 a7 := JTF_DATE_TABLE();
207 if t.count > 0 then
208 a0.extend(t.count);
209 a1.extend(t.count);
210 a2.extend(t.count);
211 a3.extend(t.count);
212 a4.extend(t.count);
213 a5.extend(t.count);
214 a6.extend(t.count);
215 a7.extend(t.count);
216 ddindx := t.first;
217 indx := 1;
218 while true loop
219 a0(indx) := t(ddindx).item_category;
220 a1(indx) := t(ddindx).description;
221 a2(indx) := t(ddindx).cost;
222 a3(indx) := t(ddindx).purchase_option_value;
223 a4(indx) := t(ddindx).rate_factor;
224 a5(indx) := t(ddindx).periods;
225 a6(indx) := t(ddindx).periodic_amt;
226 a7(indx) := t(ddindx).start_date;
227 indx := indx+1;
228 if t.last =ddindx
229 then exit;
230 end if;
231 ddindx := t.next(ddindx);
232 end loop;
233 end if;
234 end if;
235 end rosetta_table_copy_out_p12;
236
237 procedure create_quick_qte(p_api_version NUMBER
238 , p_init_msg_list VARCHAR2
239 , x_return_status out nocopy VARCHAR2
240 , x_msg_count out nocopy NUMBER
241 , x_msg_data out nocopy VARCHAR2
242 , p5_a0 NUMBER
243 , p5_a1 NUMBER
244 , p5_a2 VARCHAR2
245 , p5_a3 VARCHAR2
246 , p5_a4 VARCHAR2
247 , p5_a5 VARCHAR2
248 , p5_a6 VARCHAR2
249 , p5_a7 VARCHAR2
250 , p5_a8 VARCHAR2
251 , p5_a9 VARCHAR2
252 , p5_a10 VARCHAR2
253 , p5_a11 VARCHAR2
254 , p5_a12 VARCHAR2
255 , p5_a13 VARCHAR2
256 , p5_a14 VARCHAR2
257 , p5_a15 VARCHAR2
258 , p5_a16 VARCHAR2
259 , p5_a17 VARCHAR2
260 , p5_a18 VARCHAR2
261 , p5_a19 DATE
262 , p5_a20 NUMBER
263 , p5_a21 NUMBER
264 , p5_a22 VARCHAR2
265 , p5_a23 NUMBER
266 , p5_a24 NUMBER
267 , p5_a25 VARCHAR2
268 , p5_a26 NUMBER
269 , p5_a27 NUMBER
270 , p5_a28 NUMBER
271 , p5_a29 NUMBER
272 , p5_a30 NUMBER
273 , p5_a31 VARCHAR2
274 , p5_a32 VARCHAR2
275 , p5_a33 NUMBER
276 , p5_a34 NUMBER
277 , p5_a35 NUMBER
278 , p5_a36 VARCHAR2
279 , p5_a37 NUMBER
280 , p5_a38 NUMBER
281 , p5_a39 VARCHAR2
282 , p5_a40 VARCHAR2
283 , p5_a41 NUMBER
284 , p5_a42 NUMBER
285 , p5_a43 NUMBER
286 , p5_a44 NUMBER
287 , p5_a45 NUMBER
288 , p5_a46 NUMBER
289 , p5_a47 NUMBER
290 , p5_a48 NUMBER
291 , p5_a49 NUMBER
292 , p5_a50 VARCHAR2
293 , p5_a51 VARCHAR2
294 , p5_a52 VARCHAR2
295 , p5_a53 VARCHAR2
296 , p6_a0 out nocopy NUMBER
297 , p6_a1 out nocopy NUMBER
298 , p6_a2 out nocopy VARCHAR2
299 , p6_a3 out nocopy VARCHAR2
300 , p6_a4 out nocopy VARCHAR2
301 , p6_a5 out nocopy VARCHAR2
302 , p6_a6 out nocopy VARCHAR2
303 , p6_a7 out nocopy VARCHAR2
304 , p6_a8 out nocopy VARCHAR2
305 , p6_a9 out nocopy VARCHAR2
306 , p6_a10 out nocopy VARCHAR2
307 , p6_a11 out nocopy VARCHAR2
308 , p6_a12 out nocopy VARCHAR2
309 , p6_a13 out nocopy VARCHAR2
310 , p6_a14 out nocopy VARCHAR2
311 , p6_a15 out nocopy VARCHAR2
312 , p6_a16 out nocopy VARCHAR2
313 , p6_a17 out nocopy VARCHAR2
314 , p6_a18 out nocopy VARCHAR2
315 , p6_a19 out nocopy DATE
316 , p6_a20 out nocopy NUMBER
317 , p6_a21 out nocopy NUMBER
318 , p6_a22 out nocopy VARCHAR2
319 , p6_a23 out nocopy NUMBER
320 , p6_a24 out nocopy NUMBER
321 , p6_a25 out nocopy VARCHAR2
322 , p6_a26 out nocopy NUMBER
323 , p6_a27 out nocopy NUMBER
324 , p6_a28 out nocopy NUMBER
325 , p6_a29 out nocopy NUMBER
326 , p6_a30 out nocopy NUMBER
327 , p6_a31 out nocopy VARCHAR2
328 , p6_a32 out nocopy VARCHAR2
329 , p6_a33 out nocopy NUMBER
330 , p6_a34 out nocopy NUMBER
331 , p6_a35 out nocopy NUMBER
332 , p6_a36 out nocopy VARCHAR2
333 , p6_a37 out nocopy NUMBER
334 , p6_a38 out nocopy NUMBER
335 , p6_a39 out nocopy VARCHAR2
336 , p6_a40 out nocopy VARCHAR2
337 , p6_a41 out nocopy NUMBER
338 , p6_a42 out nocopy NUMBER
339 , p6_a43 out nocopy NUMBER
340 , p6_a44 out nocopy NUMBER
341 , p6_a45 out nocopy NUMBER
342 , p6_a46 out nocopy NUMBER
343 , p6_a47 out nocopy NUMBER
344 , p6_a48 out nocopy NUMBER
345 , p6_a49 out nocopy NUMBER
346 , p6_a50 out nocopy VARCHAR2
347 , p6_a51 out nocopy VARCHAR2
348 , p6_a52 out nocopy VARCHAR2
349 , p6_a53 out nocopy VARCHAR2
350 , p7_a0 JTF_NUMBER_TABLE
351 , p7_a1 JTF_NUMBER_TABLE
352 , p7_a2 JTF_VARCHAR2_TABLE_100
353 , p7_a3 JTF_VARCHAR2_TABLE_500
354 , p7_a4 JTF_VARCHAR2_TABLE_500
355 , p7_a5 JTF_VARCHAR2_TABLE_500
356 , p7_a6 JTF_VARCHAR2_TABLE_500
357 , p7_a7 JTF_VARCHAR2_TABLE_500
358 , p7_a8 JTF_VARCHAR2_TABLE_500
359 , p7_a9 JTF_VARCHAR2_TABLE_500
360 , p7_a10 JTF_VARCHAR2_TABLE_500
361 , p7_a11 JTF_VARCHAR2_TABLE_500
362 , p7_a12 JTF_VARCHAR2_TABLE_500
363 , p7_a13 JTF_VARCHAR2_TABLE_500
364 , p7_a14 JTF_VARCHAR2_TABLE_500
365 , p7_a15 JTF_VARCHAR2_TABLE_500
366 , p7_a16 JTF_VARCHAR2_TABLE_500
367 , p7_a17 JTF_VARCHAR2_TABLE_500
368 , p7_a18 JTF_NUMBER_TABLE
369 , p7_a19 JTF_VARCHAR2_TABLE_100
370 , p7_a20 JTF_VARCHAR2_TABLE_100
371 , p7_a21 JTF_NUMBER_TABLE
372 , p7_a22 JTF_NUMBER_TABLE
373 , p7_a23 JTF_NUMBER_TABLE
374 , p7_a24 JTF_NUMBER_TABLE
375 , p7_a25 JTF_NUMBER_TABLE
376 , p7_a26 JTF_NUMBER_TABLE
377 , p7_a27 JTF_NUMBER_TABLE
378 , p7_a28 JTF_VARCHAR2_TABLE_300
379 , p7_a29 JTF_VARCHAR2_TABLE_2000
380 , p7_a30 JTF_VARCHAR2_TABLE_2000
381 , p8_a0 out nocopy JTF_NUMBER_TABLE
382 , p8_a1 out nocopy JTF_NUMBER_TABLE
383 , p8_a2 out nocopy JTF_VARCHAR2_TABLE_100
384 , p8_a3 out nocopy JTF_VARCHAR2_TABLE_500
385 , p8_a4 out nocopy JTF_VARCHAR2_TABLE_500
386 , p8_a5 out nocopy JTF_VARCHAR2_TABLE_500
387 , p8_a6 out nocopy JTF_VARCHAR2_TABLE_500
388 , p8_a7 out nocopy JTF_VARCHAR2_TABLE_500
389 , p8_a8 out nocopy JTF_VARCHAR2_TABLE_500
390 , p8_a9 out nocopy JTF_VARCHAR2_TABLE_500
391 , p8_a10 out nocopy JTF_VARCHAR2_TABLE_500
392 , p8_a11 out nocopy JTF_VARCHAR2_TABLE_500
393 , p8_a12 out nocopy JTF_VARCHAR2_TABLE_500
394 , p8_a13 out nocopy JTF_VARCHAR2_TABLE_500
395 , p8_a14 out nocopy JTF_VARCHAR2_TABLE_500
396 , p8_a15 out nocopy JTF_VARCHAR2_TABLE_500
397 , p8_a16 out nocopy JTF_VARCHAR2_TABLE_500
398 , p8_a17 out nocopy JTF_VARCHAR2_TABLE_500
399 , p8_a18 out nocopy JTF_NUMBER_TABLE
400 , p8_a19 out nocopy JTF_VARCHAR2_TABLE_100
401 , p8_a20 out nocopy JTF_VARCHAR2_TABLE_100
402 , p8_a21 out nocopy JTF_NUMBER_TABLE
403 , p8_a22 out nocopy JTF_NUMBER_TABLE
404 , p8_a23 out nocopy JTF_NUMBER_TABLE
405 , p8_a24 out nocopy JTF_NUMBER_TABLE
406 , p8_a25 out nocopy JTF_NUMBER_TABLE
407 , p8_a26 out nocopy JTF_NUMBER_TABLE
408 , p8_a27 out nocopy JTF_NUMBER_TABLE
409 , p8_a28 out nocopy JTF_VARCHAR2_TABLE_300
410 , p8_a29 out nocopy JTF_VARCHAR2_TABLE_2000
411 , p8_a30 out nocopy JTF_VARCHAR2_TABLE_2000
412 )
413
414 as
415 ddp_qqhv_rec_type okl_quick_quotes_pvt.qqhv_rec_type;
416 ddx_qqhv_rec_type okl_quick_quotes_pvt.qqhv_rec_type;
417 ddp_qqlv_tbl_type okl_quick_quotes_pvt.qqlv_tbl_type;
418 ddx_qqlv_tbl_type okl_quick_quotes_pvt.qqlv_tbl_type;
419 ddindx binary_integer; indx binary_integer;
420 begin
421
422 -- copy data to the local IN or IN-OUT args, if any
423
424
425
426
427
428 ddp_qqhv_rec_type.id := p5_a0;
429 ddp_qqhv_rec_type.object_version_number := p5_a1;
430 ddp_qqhv_rec_type.attribute_category := p5_a2;
431 ddp_qqhv_rec_type.attribute1 := p5_a3;
432 ddp_qqhv_rec_type.attribute2 := p5_a4;
433 ddp_qqhv_rec_type.attribute3 := p5_a5;
434 ddp_qqhv_rec_type.attribute4 := p5_a6;
435 ddp_qqhv_rec_type.attribute5 := p5_a7;
436 ddp_qqhv_rec_type.attribute6 := p5_a8;
437 ddp_qqhv_rec_type.attribute7 := p5_a9;
438 ddp_qqhv_rec_type.attribute8 := p5_a10;
439 ddp_qqhv_rec_type.attribute9 := p5_a11;
440 ddp_qqhv_rec_type.attribute10 := p5_a12;
441 ddp_qqhv_rec_type.attribute11 := p5_a13;
442 ddp_qqhv_rec_type.attribute12 := p5_a14;
443 ddp_qqhv_rec_type.attribute13 := p5_a15;
444 ddp_qqhv_rec_type.attribute14 := p5_a16;
445 ddp_qqhv_rec_type.attribute15 := p5_a17;
446 ddp_qqhv_rec_type.reference_number := p5_a18;
447 ddp_qqhv_rec_type.expected_start_date := p5_a19;
448 ddp_qqhv_rec_type.org_id := p5_a20;
449 ddp_qqhv_rec_type.inv_org_id := p5_a21;
450 ddp_qqhv_rec_type.currency_code := p5_a22;
451 ddp_qqhv_rec_type.term := p5_a23;
452 ddp_qqhv_rec_type.end_of_term_option_id := p5_a24;
453 ddp_qqhv_rec_type.pricing_method := p5_a25;
454 ddp_qqhv_rec_type.lease_opportunity_id := p5_a26;
455 ddp_qqhv_rec_type.originating_vendor_id := p5_a27;
456 ddp_qqhv_rec_type.program_agreement_id := p5_a28;
457 ddp_qqhv_rec_type.sales_rep_id := p5_a29;
458 ddp_qqhv_rec_type.sales_territory_id := p5_a30;
459 ddp_qqhv_rec_type.structured_pricing := p5_a31;
460 ddp_qqhv_rec_type.line_level_pricing := p5_a32;
461 ddp_qqhv_rec_type.rate_template_id := p5_a33;
462 ddp_qqhv_rec_type.rate_card_id := p5_a34;
463 ddp_qqhv_rec_type.lease_rate_factor := p5_a35;
464 ddp_qqhv_rec_type.target_rate_type := p5_a36;
465 ddp_qqhv_rec_type.target_rate := p5_a37;
466 ddp_qqhv_rec_type.target_amount := p5_a38;
467 ddp_qqhv_rec_type.target_frequency := p5_a39;
468 ddp_qqhv_rec_type.target_arrears := p5_a40;
469 ddp_qqhv_rec_type.target_periods := p5_a41;
470 ddp_qqhv_rec_type.iir := p5_a42;
471 ddp_qqhv_rec_type.sub_iir := p5_a43;
472 ddp_qqhv_rec_type.booking_yield := p5_a44;
473 ddp_qqhv_rec_type.sub_booking_yield := p5_a45;
474 ddp_qqhv_rec_type.pirr := p5_a46;
475 ddp_qqhv_rec_type.sub_pirr := p5_a47;
476 ddp_qqhv_rec_type.airr := p5_a48;
477 ddp_qqhv_rec_type.sub_airr := p5_a49;
478 ddp_qqhv_rec_type.short_description := p5_a50;
479 ddp_qqhv_rec_type.description := p5_a51;
480 ddp_qqhv_rec_type.comments := p5_a52;
481 ddp_qqhv_rec_type.sts_code := p5_a53;
482
483
484 okl_qql_pvt_w.rosetta_table_copy_in_p23(ddp_qqlv_tbl_type, p7_a0
485 , p7_a1
486 , p7_a2
487 , p7_a3
488 , p7_a4
489 , p7_a5
490 , p7_a6
491 , p7_a7
492 , p7_a8
493 , p7_a9
494 , p7_a10
495 , p7_a11
496 , p7_a12
497 , p7_a13
498 , p7_a14
499 , p7_a15
500 , p7_a16
501 , p7_a17
502 , p7_a18
503 , p7_a19
504 , p7_a20
505 , p7_a21
506 , p7_a22
507 , p7_a23
508 , p7_a24
509 , p7_a25
510 , p7_a26
511 , p7_a27
512 , p7_a28
513 , p7_a29
514 , p7_a30
515 );
516
517
518 -- here's the delegated call to the old PL/SQL routine
519 okl_quick_quotes_pvt.create_quick_qte(p_api_version,
520 p_init_msg_list,
521 x_return_status,
522 x_msg_count,
523 x_msg_data,
524 ddp_qqhv_rec_type,
525 ddx_qqhv_rec_type,
526 ddp_qqlv_tbl_type,
527 ddx_qqlv_tbl_type);
528
529 -- copy data back from the local variables to OUT or IN-OUT args, if any
530
531
532
533
534
535
536 p6_a0 := ddx_qqhv_rec_type.id;
537 p6_a1 := ddx_qqhv_rec_type.object_version_number;
538 p6_a2 := ddx_qqhv_rec_type.attribute_category;
539 p6_a3 := ddx_qqhv_rec_type.attribute1;
540 p6_a4 := ddx_qqhv_rec_type.attribute2;
541 p6_a5 := ddx_qqhv_rec_type.attribute3;
542 p6_a6 := ddx_qqhv_rec_type.attribute4;
543 p6_a7 := ddx_qqhv_rec_type.attribute5;
544 p6_a8 := ddx_qqhv_rec_type.attribute6;
545 p6_a9 := ddx_qqhv_rec_type.attribute7;
546 p6_a10 := ddx_qqhv_rec_type.attribute8;
547 p6_a11 := ddx_qqhv_rec_type.attribute9;
548 p6_a12 := ddx_qqhv_rec_type.attribute10;
549 p6_a13 := ddx_qqhv_rec_type.attribute11;
550 p6_a14 := ddx_qqhv_rec_type.attribute12;
551 p6_a15 := ddx_qqhv_rec_type.attribute13;
552 p6_a16 := ddx_qqhv_rec_type.attribute14;
553 p6_a17 := ddx_qqhv_rec_type.attribute15;
554 p6_a18 := ddx_qqhv_rec_type.reference_number;
555 p6_a19 := ddx_qqhv_rec_type.expected_start_date;
556 p6_a20 := ddx_qqhv_rec_type.org_id;
557 p6_a21 := ddx_qqhv_rec_type.inv_org_id;
558 p6_a22 := ddx_qqhv_rec_type.currency_code;
559 p6_a23 := ddx_qqhv_rec_type.term;
560 p6_a24 := ddx_qqhv_rec_type.end_of_term_option_id;
561 p6_a25 := ddx_qqhv_rec_type.pricing_method;
562 p6_a26 := ddx_qqhv_rec_type.lease_opportunity_id;
563 p6_a27 := ddx_qqhv_rec_type.originating_vendor_id;
564 p6_a28 := ddx_qqhv_rec_type.program_agreement_id;
565 p6_a29 := ddx_qqhv_rec_type.sales_rep_id;
566 p6_a30 := ddx_qqhv_rec_type.sales_territory_id;
567 p6_a31 := ddx_qqhv_rec_type.structured_pricing;
568 p6_a32 := ddx_qqhv_rec_type.line_level_pricing;
569 p6_a33 := ddx_qqhv_rec_type.rate_template_id;
570 p6_a34 := ddx_qqhv_rec_type.rate_card_id;
571 p6_a35 := ddx_qqhv_rec_type.lease_rate_factor;
572 p6_a36 := ddx_qqhv_rec_type.target_rate_type;
573 p6_a37 := ddx_qqhv_rec_type.target_rate;
574 p6_a38 := ddx_qqhv_rec_type.target_amount;
575 p6_a39 := ddx_qqhv_rec_type.target_frequency;
576 p6_a40 := ddx_qqhv_rec_type.target_arrears;
577 p6_a41 := ddx_qqhv_rec_type.target_periods;
578 p6_a42 := ddx_qqhv_rec_type.iir;
579 p6_a43 := ddx_qqhv_rec_type.sub_iir;
580 p6_a44 := ddx_qqhv_rec_type.booking_yield;
581 p6_a45 := ddx_qqhv_rec_type.sub_booking_yield;
582 p6_a46 := ddx_qqhv_rec_type.pirr;
583 p6_a47 := ddx_qqhv_rec_type.sub_pirr;
584 p6_a48 := ddx_qqhv_rec_type.airr;
585 p6_a49 := ddx_qqhv_rec_type.sub_airr;
586 p6_a50 := ddx_qqhv_rec_type.short_description;
587 p6_a51 := ddx_qqhv_rec_type.description;
588 p6_a52 := ddx_qqhv_rec_type.comments;
589 p6_a53 := ddx_qqhv_rec_type.sts_code;
590
591
592 okl_qql_pvt_w.rosetta_table_copy_out_p23(ddx_qqlv_tbl_type, p8_a0
593 , p8_a1
594 , p8_a2
595 , p8_a3
596 , p8_a4
597 , p8_a5
598 , p8_a6
599 , p8_a7
600 , p8_a8
601 , p8_a9
602 , p8_a10
603 , p8_a11
604 , p8_a12
605 , p8_a13
606 , p8_a14
607 , p8_a15
608 , p8_a16
609 , p8_a17
610 , p8_a18
611 , p8_a19
612 , p8_a20
613 , p8_a21
614 , p8_a22
615 , p8_a23
616 , p8_a24
617 , p8_a25
618 , p8_a26
619 , p8_a27
620 , p8_a28
621 , p8_a29
622 , p8_a30
623 );
624 end;
625
626 procedure update_quick_qte(p_api_version NUMBER
627 , p_init_msg_list VARCHAR2
628 , x_return_status out nocopy VARCHAR2
629 , x_msg_count out nocopy NUMBER
630 , x_msg_data out nocopy VARCHAR2
631 , p5_a0 NUMBER
632 , p5_a1 NUMBER
633 , p5_a2 VARCHAR2
634 , p5_a3 VARCHAR2
635 , p5_a4 VARCHAR2
636 , p5_a5 VARCHAR2
637 , p5_a6 VARCHAR2
638 , p5_a7 VARCHAR2
639 , p5_a8 VARCHAR2
640 , p5_a9 VARCHAR2
641 , p5_a10 VARCHAR2
642 , p5_a11 VARCHAR2
643 , p5_a12 VARCHAR2
644 , p5_a13 VARCHAR2
645 , p5_a14 VARCHAR2
646 , p5_a15 VARCHAR2
647 , p5_a16 VARCHAR2
648 , p5_a17 VARCHAR2
649 , p5_a18 VARCHAR2
650 , p5_a19 DATE
651 , p5_a20 NUMBER
652 , p5_a21 NUMBER
653 , p5_a22 VARCHAR2
654 , p5_a23 NUMBER
655 , p5_a24 NUMBER
656 , p5_a25 VARCHAR2
657 , p5_a26 NUMBER
658 , p5_a27 NUMBER
659 , p5_a28 NUMBER
660 , p5_a29 NUMBER
661 , p5_a30 NUMBER
662 , p5_a31 VARCHAR2
663 , p5_a32 VARCHAR2
664 , p5_a33 NUMBER
665 , p5_a34 NUMBER
666 , p5_a35 NUMBER
667 , p5_a36 VARCHAR2
668 , p5_a37 NUMBER
669 , p5_a38 NUMBER
670 , p5_a39 VARCHAR2
671 , p5_a40 VARCHAR2
672 , p5_a41 NUMBER
673 , p5_a42 NUMBER
674 , p5_a43 NUMBER
675 , p5_a44 NUMBER
676 , p5_a45 NUMBER
677 , p5_a46 NUMBER
678 , p5_a47 NUMBER
679 , p5_a48 NUMBER
680 , p5_a49 NUMBER
681 , p5_a50 VARCHAR2
682 , p5_a51 VARCHAR2
683 , p5_a52 VARCHAR2
684 , p5_a53 VARCHAR2
685 , p6_a0 out nocopy NUMBER
686 , p6_a1 out nocopy NUMBER
687 , p6_a2 out nocopy VARCHAR2
688 , p6_a3 out nocopy VARCHAR2
689 , p6_a4 out nocopy VARCHAR2
690 , p6_a5 out nocopy VARCHAR2
691 , p6_a6 out nocopy VARCHAR2
692 , p6_a7 out nocopy VARCHAR2
693 , p6_a8 out nocopy VARCHAR2
694 , p6_a9 out nocopy VARCHAR2
695 , p6_a10 out nocopy VARCHAR2
696 , p6_a11 out nocopy VARCHAR2
697 , p6_a12 out nocopy VARCHAR2
698 , p6_a13 out nocopy VARCHAR2
699 , p6_a14 out nocopy VARCHAR2
700 , p6_a15 out nocopy VARCHAR2
701 , p6_a16 out nocopy VARCHAR2
702 , p6_a17 out nocopy VARCHAR2
703 , p6_a18 out nocopy VARCHAR2
704 , p6_a19 out nocopy DATE
705 , p6_a20 out nocopy NUMBER
706 , p6_a21 out nocopy NUMBER
707 , p6_a22 out nocopy VARCHAR2
708 , p6_a23 out nocopy NUMBER
709 , p6_a24 out nocopy NUMBER
710 , p6_a25 out nocopy VARCHAR2
711 , p6_a26 out nocopy NUMBER
712 , p6_a27 out nocopy NUMBER
713 , p6_a28 out nocopy NUMBER
714 , p6_a29 out nocopy NUMBER
715 , p6_a30 out nocopy NUMBER
716 , p6_a31 out nocopy VARCHAR2
717 , p6_a32 out nocopy VARCHAR2
718 , p6_a33 out nocopy NUMBER
719 , p6_a34 out nocopy NUMBER
720 , p6_a35 out nocopy NUMBER
721 , p6_a36 out nocopy VARCHAR2
722 , p6_a37 out nocopy NUMBER
723 , p6_a38 out nocopy NUMBER
724 , p6_a39 out nocopy VARCHAR2
725 , p6_a40 out nocopy VARCHAR2
726 , p6_a41 out nocopy NUMBER
727 , p6_a42 out nocopy NUMBER
728 , p6_a43 out nocopy NUMBER
729 , p6_a44 out nocopy NUMBER
730 , p6_a45 out nocopy NUMBER
731 , p6_a46 out nocopy NUMBER
732 , p6_a47 out nocopy NUMBER
733 , p6_a48 out nocopy NUMBER
734 , p6_a49 out nocopy NUMBER
735 , p6_a50 out nocopy VARCHAR2
736 , p6_a51 out nocopy VARCHAR2
737 , p6_a52 out nocopy VARCHAR2
738 , p6_a53 out nocopy VARCHAR2
739 , p7_a0 JTF_NUMBER_TABLE
740 , p7_a1 JTF_NUMBER_TABLE
741 , p7_a2 JTF_VARCHAR2_TABLE_100
742 , p7_a3 JTF_VARCHAR2_TABLE_500
743 , p7_a4 JTF_VARCHAR2_TABLE_500
744 , p7_a5 JTF_VARCHAR2_TABLE_500
745 , p7_a6 JTF_VARCHAR2_TABLE_500
746 , p7_a7 JTF_VARCHAR2_TABLE_500
747 , p7_a8 JTF_VARCHAR2_TABLE_500
748 , p7_a9 JTF_VARCHAR2_TABLE_500
749 , p7_a10 JTF_VARCHAR2_TABLE_500
750 , p7_a11 JTF_VARCHAR2_TABLE_500
751 , p7_a12 JTF_VARCHAR2_TABLE_500
752 , p7_a13 JTF_VARCHAR2_TABLE_500
753 , p7_a14 JTF_VARCHAR2_TABLE_500
754 , p7_a15 JTF_VARCHAR2_TABLE_500
755 , p7_a16 JTF_VARCHAR2_TABLE_500
756 , p7_a17 JTF_VARCHAR2_TABLE_500
757 , p7_a18 JTF_NUMBER_TABLE
758 , p7_a19 JTF_VARCHAR2_TABLE_100
759 , p7_a20 JTF_VARCHAR2_TABLE_100
760 , p7_a21 JTF_NUMBER_TABLE
761 , p7_a22 JTF_NUMBER_TABLE
762 , p7_a23 JTF_NUMBER_TABLE
763 , p7_a24 JTF_NUMBER_TABLE
764 , p7_a25 JTF_NUMBER_TABLE
765 , p7_a26 JTF_NUMBER_TABLE
766 , p7_a27 JTF_NUMBER_TABLE
767 , p7_a28 JTF_VARCHAR2_TABLE_300
768 , p7_a29 JTF_VARCHAR2_TABLE_2000
769 , p7_a30 JTF_VARCHAR2_TABLE_2000
770 , p8_a0 out nocopy JTF_NUMBER_TABLE
771 , p8_a1 out nocopy JTF_NUMBER_TABLE
772 , p8_a2 out nocopy JTF_VARCHAR2_TABLE_100
773 , p8_a3 out nocopy JTF_VARCHAR2_TABLE_500
774 , p8_a4 out nocopy JTF_VARCHAR2_TABLE_500
775 , p8_a5 out nocopy JTF_VARCHAR2_TABLE_500
776 , p8_a6 out nocopy JTF_VARCHAR2_TABLE_500
777 , p8_a7 out nocopy JTF_VARCHAR2_TABLE_500
778 , p8_a8 out nocopy JTF_VARCHAR2_TABLE_500
779 , p8_a9 out nocopy JTF_VARCHAR2_TABLE_500
780 , p8_a10 out nocopy JTF_VARCHAR2_TABLE_500
781 , p8_a11 out nocopy JTF_VARCHAR2_TABLE_500
782 , p8_a12 out nocopy JTF_VARCHAR2_TABLE_500
783 , p8_a13 out nocopy JTF_VARCHAR2_TABLE_500
784 , p8_a14 out nocopy JTF_VARCHAR2_TABLE_500
785 , p8_a15 out nocopy JTF_VARCHAR2_TABLE_500
786 , p8_a16 out nocopy JTF_VARCHAR2_TABLE_500
787 , p8_a17 out nocopy JTF_VARCHAR2_TABLE_500
788 , p8_a18 out nocopy JTF_NUMBER_TABLE
789 , p8_a19 out nocopy JTF_VARCHAR2_TABLE_100
790 , p8_a20 out nocopy JTF_VARCHAR2_TABLE_100
791 , p8_a21 out nocopy JTF_NUMBER_TABLE
792 , p8_a22 out nocopy JTF_NUMBER_TABLE
793 , p8_a23 out nocopy JTF_NUMBER_TABLE
794 , p8_a24 out nocopy JTF_NUMBER_TABLE
795 , p8_a25 out nocopy JTF_NUMBER_TABLE
796 , p8_a26 out nocopy JTF_NUMBER_TABLE
797 , p8_a27 out nocopy JTF_NUMBER_TABLE
798 , p8_a28 out nocopy JTF_VARCHAR2_TABLE_300
799 , p8_a29 out nocopy JTF_VARCHAR2_TABLE_2000
800 , p8_a30 out nocopy JTF_VARCHAR2_TABLE_2000
801 )
802
803 as
804 ddp_qqhv_rec_type okl_quick_quotes_pvt.qqhv_rec_type;
805 ddx_qqhv_rec_type okl_quick_quotes_pvt.qqhv_rec_type;
806 ddp_qqlv_tbl_type okl_quick_quotes_pvt.qqlv_tbl_type;
807 ddx_qqlv_tbl_type okl_quick_quotes_pvt.qqlv_tbl_type;
808 ddindx binary_integer; indx binary_integer;
809 begin
810
811 -- copy data to the local IN or IN-OUT args, if any
812
813
814
815
816
817 ddp_qqhv_rec_type.id := p5_a0;
818 ddp_qqhv_rec_type.object_version_number := p5_a1;
819 ddp_qqhv_rec_type.attribute_category := p5_a2;
820 ddp_qqhv_rec_type.attribute1 := p5_a3;
821 ddp_qqhv_rec_type.attribute2 := p5_a4;
822 ddp_qqhv_rec_type.attribute3 := p5_a5;
823 ddp_qqhv_rec_type.attribute4 := p5_a6;
824 ddp_qqhv_rec_type.attribute5 := p5_a7;
825 ddp_qqhv_rec_type.attribute6 := p5_a8;
826 ddp_qqhv_rec_type.attribute7 := p5_a9;
827 ddp_qqhv_rec_type.attribute8 := p5_a10;
828 ddp_qqhv_rec_type.attribute9 := p5_a11;
829 ddp_qqhv_rec_type.attribute10 := p5_a12;
830 ddp_qqhv_rec_type.attribute11 := p5_a13;
831 ddp_qqhv_rec_type.attribute12 := p5_a14;
832 ddp_qqhv_rec_type.attribute13 := p5_a15;
833 ddp_qqhv_rec_type.attribute14 := p5_a16;
834 ddp_qqhv_rec_type.attribute15 := p5_a17;
835 ddp_qqhv_rec_type.reference_number := p5_a18;
836 ddp_qqhv_rec_type.expected_start_date := p5_a19;
837 ddp_qqhv_rec_type.org_id := p5_a20;
838 ddp_qqhv_rec_type.inv_org_id := p5_a21;
839 ddp_qqhv_rec_type.currency_code := p5_a22;
840 ddp_qqhv_rec_type.term := p5_a23;
841 ddp_qqhv_rec_type.end_of_term_option_id := p5_a24;
842 ddp_qqhv_rec_type.pricing_method := p5_a25;
843 ddp_qqhv_rec_type.lease_opportunity_id := p5_a26;
844 ddp_qqhv_rec_type.originating_vendor_id := p5_a27;
845 ddp_qqhv_rec_type.program_agreement_id := p5_a28;
846 ddp_qqhv_rec_type.sales_rep_id := p5_a29;
847 ddp_qqhv_rec_type.sales_territory_id := p5_a30;
848 ddp_qqhv_rec_type.structured_pricing := p5_a31;
849 ddp_qqhv_rec_type.line_level_pricing := p5_a32;
850 ddp_qqhv_rec_type.rate_template_id := p5_a33;
851 ddp_qqhv_rec_type.rate_card_id := p5_a34;
852 ddp_qqhv_rec_type.lease_rate_factor := p5_a35;
853 ddp_qqhv_rec_type.target_rate_type := p5_a36;
854 ddp_qqhv_rec_type.target_rate := p5_a37;
855 ddp_qqhv_rec_type.target_amount := p5_a38;
856 ddp_qqhv_rec_type.target_frequency := p5_a39;
857 ddp_qqhv_rec_type.target_arrears := p5_a40;
858 ddp_qqhv_rec_type.target_periods := p5_a41;
859 ddp_qqhv_rec_type.iir := p5_a42;
860 ddp_qqhv_rec_type.sub_iir := p5_a43;
861 ddp_qqhv_rec_type.booking_yield := p5_a44;
862 ddp_qqhv_rec_type.sub_booking_yield := p5_a45;
863 ddp_qqhv_rec_type.pirr := p5_a46;
864 ddp_qqhv_rec_type.sub_pirr := p5_a47;
865 ddp_qqhv_rec_type.airr := p5_a48;
866 ddp_qqhv_rec_type.sub_airr := p5_a49;
867 ddp_qqhv_rec_type.short_description := p5_a50;
868 ddp_qqhv_rec_type.description := p5_a51;
869 ddp_qqhv_rec_type.comments := p5_a52;
870 ddp_qqhv_rec_type.sts_code := p5_a53;
871
872
873 okl_qql_pvt_w.rosetta_table_copy_in_p23(ddp_qqlv_tbl_type, p7_a0
874 , p7_a1
875 , p7_a2
876 , p7_a3
877 , p7_a4
878 , p7_a5
879 , p7_a6
880 , p7_a7
881 , p7_a8
882 , p7_a9
883 , p7_a10
884 , p7_a11
885 , p7_a12
886 , p7_a13
887 , p7_a14
888 , p7_a15
889 , p7_a16
890 , p7_a17
891 , p7_a18
892 , p7_a19
893 , p7_a20
894 , p7_a21
895 , p7_a22
896 , p7_a23
897 , p7_a24
898 , p7_a25
899 , p7_a26
900 , p7_a27
901 , p7_a28
902 , p7_a29
903 , p7_a30
904 );
905
906
907 -- here's the delegated call to the old PL/SQL routine
908 okl_quick_quotes_pvt.update_quick_qte(p_api_version,
909 p_init_msg_list,
910 x_return_status,
911 x_msg_count,
912 x_msg_data,
913 ddp_qqhv_rec_type,
914 ddx_qqhv_rec_type,
915 ddp_qqlv_tbl_type,
916 ddx_qqlv_tbl_type);
917
918 -- copy data back from the local variables to OUT or IN-OUT args, if any
919
920
921
922
923
924
925 p6_a0 := ddx_qqhv_rec_type.id;
926 p6_a1 := ddx_qqhv_rec_type.object_version_number;
927 p6_a2 := ddx_qqhv_rec_type.attribute_category;
928 p6_a3 := ddx_qqhv_rec_type.attribute1;
929 p6_a4 := ddx_qqhv_rec_type.attribute2;
930 p6_a5 := ddx_qqhv_rec_type.attribute3;
931 p6_a6 := ddx_qqhv_rec_type.attribute4;
932 p6_a7 := ddx_qqhv_rec_type.attribute5;
933 p6_a8 := ddx_qqhv_rec_type.attribute6;
934 p6_a9 := ddx_qqhv_rec_type.attribute7;
935 p6_a10 := ddx_qqhv_rec_type.attribute8;
936 p6_a11 := ddx_qqhv_rec_type.attribute9;
937 p6_a12 := ddx_qqhv_rec_type.attribute10;
938 p6_a13 := ddx_qqhv_rec_type.attribute11;
939 p6_a14 := ddx_qqhv_rec_type.attribute12;
940 p6_a15 := ddx_qqhv_rec_type.attribute13;
941 p6_a16 := ddx_qqhv_rec_type.attribute14;
942 p6_a17 := ddx_qqhv_rec_type.attribute15;
943 p6_a18 := ddx_qqhv_rec_type.reference_number;
944 p6_a19 := ddx_qqhv_rec_type.expected_start_date;
945 p6_a20 := ddx_qqhv_rec_type.org_id;
946 p6_a21 := ddx_qqhv_rec_type.inv_org_id;
947 p6_a22 := ddx_qqhv_rec_type.currency_code;
948 p6_a23 := ddx_qqhv_rec_type.term;
949 p6_a24 := ddx_qqhv_rec_type.end_of_term_option_id;
950 p6_a25 := ddx_qqhv_rec_type.pricing_method;
951 p6_a26 := ddx_qqhv_rec_type.lease_opportunity_id;
952 p6_a27 := ddx_qqhv_rec_type.originating_vendor_id;
953 p6_a28 := ddx_qqhv_rec_type.program_agreement_id;
954 p6_a29 := ddx_qqhv_rec_type.sales_rep_id;
955 p6_a30 := ddx_qqhv_rec_type.sales_territory_id;
956 p6_a31 := ddx_qqhv_rec_type.structured_pricing;
957 p6_a32 := ddx_qqhv_rec_type.line_level_pricing;
958 p6_a33 := ddx_qqhv_rec_type.rate_template_id;
959 p6_a34 := ddx_qqhv_rec_type.rate_card_id;
960 p6_a35 := ddx_qqhv_rec_type.lease_rate_factor;
961 p6_a36 := ddx_qqhv_rec_type.target_rate_type;
962 p6_a37 := ddx_qqhv_rec_type.target_rate;
963 p6_a38 := ddx_qqhv_rec_type.target_amount;
964 p6_a39 := ddx_qqhv_rec_type.target_frequency;
965 p6_a40 := ddx_qqhv_rec_type.target_arrears;
966 p6_a41 := ddx_qqhv_rec_type.target_periods;
967 p6_a42 := ddx_qqhv_rec_type.iir;
968 p6_a43 := ddx_qqhv_rec_type.sub_iir;
969 p6_a44 := ddx_qqhv_rec_type.booking_yield;
970 p6_a45 := ddx_qqhv_rec_type.sub_booking_yield;
971 p6_a46 := ddx_qqhv_rec_type.pirr;
972 p6_a47 := ddx_qqhv_rec_type.sub_pirr;
973 p6_a48 := ddx_qqhv_rec_type.airr;
974 p6_a49 := ddx_qqhv_rec_type.sub_airr;
975 p6_a50 := ddx_qqhv_rec_type.short_description;
976 p6_a51 := ddx_qqhv_rec_type.description;
977 p6_a52 := ddx_qqhv_rec_type.comments;
978 p6_a53 := ddx_qqhv_rec_type.sts_code;
979
980
981 okl_qql_pvt_w.rosetta_table_copy_out_p23(ddx_qqlv_tbl_type, p8_a0
982 , p8_a1
983 , p8_a2
984 , p8_a3
985 , p8_a4
986 , p8_a5
987 , p8_a6
988 , p8_a7
989 , p8_a8
990 , p8_a9
991 , p8_a10
992 , p8_a11
993 , p8_a12
994 , p8_a13
995 , p8_a14
996 , p8_a15
997 , p8_a16
998 , p8_a17
999 , p8_a18
1000 , p8_a19
1001 , p8_a20
1002 , p8_a21
1003 , p8_a22
1004 , p8_a23
1005 , p8_a24
1006 , p8_a25
1007 , p8_a26
1008 , p8_a27
1009 , p8_a28
1010 , p8_a29
1011 , p8_a30
1012 );
1013 end;
1014
1015 procedure delete_qql(p_api_version NUMBER
1016 , p_init_msg_list VARCHAR2
1017 , x_return_status out nocopy VARCHAR2
1018 , x_msg_count out nocopy NUMBER
1019 , x_msg_data out nocopy VARCHAR2
1020 , p5_a0 NUMBER
1021 , p5_a1 NUMBER
1022 , p5_a2 VARCHAR2
1023 , p5_a3 VARCHAR2
1024 , p5_a4 VARCHAR2
1025 , p5_a5 VARCHAR2
1026 , p5_a6 VARCHAR2
1027 , p5_a7 VARCHAR2
1028 , p5_a8 VARCHAR2
1029 , p5_a9 VARCHAR2
1030 , p5_a10 VARCHAR2
1031 , p5_a11 VARCHAR2
1032 , p5_a12 VARCHAR2
1033 , p5_a13 VARCHAR2
1034 , p5_a14 VARCHAR2
1035 , p5_a15 VARCHAR2
1036 , p5_a16 VARCHAR2
1037 , p5_a17 VARCHAR2
1038 , p5_a18 NUMBER
1039 , p5_a19 VARCHAR2
1040 , p5_a20 VARCHAR2
1041 , p5_a21 NUMBER
1042 , p5_a22 NUMBER
1043 , p5_a23 NUMBER
1044 , p5_a24 NUMBER
1045 , p5_a25 NUMBER
1046 , p5_a26 NUMBER
1047 , p5_a27 NUMBER
1048 , p5_a28 VARCHAR2
1049 , p5_a29 VARCHAR2
1050 , p5_a30 VARCHAR2
1051 )
1052
1053 as
1054 ddp_qqlv_rec_type okl_quick_quotes_pvt.qqlv_rec_type;
1055 ddindx binary_integer; indx binary_integer;
1056 begin
1057
1058 -- copy data to the local IN or IN-OUT args, if any
1059
1060
1061
1062
1063
1064 ddp_qqlv_rec_type.id := p5_a0;
1065 ddp_qqlv_rec_type.object_version_number := p5_a1;
1066 ddp_qqlv_rec_type.attribute_category := p5_a2;
1067 ddp_qqlv_rec_type.attribute1 := p5_a3;
1068 ddp_qqlv_rec_type.attribute2 := p5_a4;
1069 ddp_qqlv_rec_type.attribute3 := p5_a5;
1070 ddp_qqlv_rec_type.attribute4 := p5_a6;
1071 ddp_qqlv_rec_type.attribute5 := p5_a7;
1072 ddp_qqlv_rec_type.attribute6 := p5_a8;
1073 ddp_qqlv_rec_type.attribute7 := p5_a9;
1074 ddp_qqlv_rec_type.attribute8 := p5_a10;
1075 ddp_qqlv_rec_type.attribute9 := p5_a11;
1076 ddp_qqlv_rec_type.attribute10 := p5_a12;
1077 ddp_qqlv_rec_type.attribute11 := p5_a13;
1078 ddp_qqlv_rec_type.attribute12 := p5_a14;
1079 ddp_qqlv_rec_type.attribute13 := p5_a15;
1080 ddp_qqlv_rec_type.attribute14 := p5_a16;
1081 ddp_qqlv_rec_type.attribute15 := p5_a17;
1082 ddp_qqlv_rec_type.quick_quote_id := p5_a18;
1083 ddp_qqlv_rec_type.type := p5_a19;
1084 ddp_qqlv_rec_type.basis := p5_a20;
1085 ddp_qqlv_rec_type.value := p5_a21;
1086 ddp_qqlv_rec_type.end_of_term_value_default := p5_a22;
1087 ddp_qqlv_rec_type.end_of_term_value := p5_a23;
1088 ddp_qqlv_rec_type.percentage_of_total_cost := p5_a24;
1089 ddp_qqlv_rec_type.item_category_id := p5_a25;
1090 ddp_qqlv_rec_type.item_category_set_id := p5_a26;
1091 ddp_qqlv_rec_type.lease_rate_factor := p5_a27;
1092 ddp_qqlv_rec_type.short_description := p5_a28;
1093 ddp_qqlv_rec_type.description := p5_a29;
1094 ddp_qqlv_rec_type.comments := p5_a30;
1095
1096 -- here's the delegated call to the old PL/SQL routine
1097 okl_quick_quotes_pvt.delete_qql(p_api_version,
1098 p_init_msg_list,
1099 x_return_status,
1100 x_msg_count,
1101 x_msg_data,
1102 ddp_qqlv_rec_type);
1103
1104 -- copy data back from the local variables to OUT or IN-OUT args, if any
1105
1106
1107
1108
1109
1110 end;
1111
1112 procedure delete_qql(p_api_version NUMBER
1113 , p_init_msg_list VARCHAR2
1114 , x_return_status out nocopy VARCHAR2
1115 , x_msg_count out nocopy NUMBER
1116 , x_msg_data out nocopy VARCHAR2
1117 , p5_a0 JTF_NUMBER_TABLE
1118 , p5_a1 JTF_NUMBER_TABLE
1119 , p5_a2 JTF_VARCHAR2_TABLE_100
1120 , p5_a3 JTF_VARCHAR2_TABLE_500
1121 , p5_a4 JTF_VARCHAR2_TABLE_500
1122 , p5_a5 JTF_VARCHAR2_TABLE_500
1123 , p5_a6 JTF_VARCHAR2_TABLE_500
1124 , p5_a7 JTF_VARCHAR2_TABLE_500
1125 , p5_a8 JTF_VARCHAR2_TABLE_500
1126 , p5_a9 JTF_VARCHAR2_TABLE_500
1127 , p5_a10 JTF_VARCHAR2_TABLE_500
1128 , p5_a11 JTF_VARCHAR2_TABLE_500
1129 , p5_a12 JTF_VARCHAR2_TABLE_500
1130 , p5_a13 JTF_VARCHAR2_TABLE_500
1131 , p5_a14 JTF_VARCHAR2_TABLE_500
1132 , p5_a15 JTF_VARCHAR2_TABLE_500
1133 , p5_a16 JTF_VARCHAR2_TABLE_500
1134 , p5_a17 JTF_VARCHAR2_TABLE_500
1135 , p5_a18 JTF_NUMBER_TABLE
1136 , p5_a19 JTF_VARCHAR2_TABLE_100
1137 , p5_a20 JTF_VARCHAR2_TABLE_100
1138 , p5_a21 JTF_NUMBER_TABLE
1139 , p5_a22 JTF_NUMBER_TABLE
1140 , p5_a23 JTF_NUMBER_TABLE
1141 , p5_a24 JTF_NUMBER_TABLE
1142 , p5_a25 JTF_NUMBER_TABLE
1143 , p5_a26 JTF_NUMBER_TABLE
1144 , p5_a27 JTF_NUMBER_TABLE
1145 , p5_a28 JTF_VARCHAR2_TABLE_300
1146 , p5_a29 JTF_VARCHAR2_TABLE_2000
1147 , p5_a30 JTF_VARCHAR2_TABLE_2000
1148 )
1149
1150 as
1151 ddp_qqlv_tbl_type okl_quick_quotes_pvt.qqlv_tbl_type;
1152 ddindx binary_integer; indx binary_integer;
1153 begin
1154
1155 -- copy data to the local IN or IN-OUT args, if any
1156
1157
1158
1159
1160
1161 okl_qql_pvt_w.rosetta_table_copy_in_p23(ddp_qqlv_tbl_type, p5_a0
1162 , p5_a1
1163 , p5_a2
1164 , p5_a3
1165 , p5_a4
1166 , p5_a5
1167 , p5_a6
1168 , p5_a7
1169 , p5_a8
1170 , p5_a9
1171 , p5_a10
1172 , p5_a11
1173 , p5_a12
1174 , p5_a13
1175 , p5_a14
1176 , p5_a15
1177 , p5_a16
1178 , p5_a17
1179 , p5_a18
1180 , p5_a19
1181 , p5_a20
1182 , p5_a21
1183 , p5_a22
1184 , p5_a23
1185 , p5_a24
1186 , p5_a25
1187 , p5_a26
1188 , p5_a27
1189 , p5_a28
1190 , p5_a29
1191 , p5_a30
1192 );
1193
1194 -- here's the delegated call to the old PL/SQL routine
1195 okl_quick_quotes_pvt.delete_qql(p_api_version,
1196 p_init_msg_list,
1197 x_return_status,
1198 x_msg_count,
1199 x_msg_data,
1200 ddp_qqlv_tbl_type);
1201
1202 -- copy data back from the local variables to OUT or IN-OUT args, if any
1203
1204
1205
1206
1207
1208 end;
1209
1210 procedure handle_quick_quote(p_api_version NUMBER
1211 , p_init_msg_list VARCHAR2
1212 , x_return_status out nocopy VARCHAR2
1213 , x_msg_count out nocopy NUMBER
1214 , x_msg_data out nocopy VARCHAR2
1215 , p5_a0 NUMBER
1216 , p5_a1 NUMBER
1217 , p5_a2 VARCHAR2
1218 , p5_a3 VARCHAR2
1219 , p5_a4 VARCHAR2
1220 , p5_a5 VARCHAR2
1221 , p5_a6 VARCHAR2
1222 , p5_a7 VARCHAR2
1223 , p5_a8 VARCHAR2
1224 , p5_a9 VARCHAR2
1225 , p5_a10 VARCHAR2
1226 , p5_a11 VARCHAR2
1227 , p5_a12 VARCHAR2
1228 , p5_a13 VARCHAR2
1229 , p5_a14 VARCHAR2
1230 , p5_a15 VARCHAR2
1231 , p5_a16 VARCHAR2
1232 , p5_a17 VARCHAR2
1233 , p5_a18 VARCHAR2
1234 , p5_a19 DATE
1235 , p5_a20 NUMBER
1236 , p5_a21 NUMBER
1237 , p5_a22 VARCHAR2
1238 , p5_a23 NUMBER
1239 , p5_a24 NUMBER
1240 , p5_a25 VARCHAR2
1241 , p5_a26 NUMBER
1242 , p5_a27 NUMBER
1243 , p5_a28 NUMBER
1244 , p5_a29 NUMBER
1245 , p5_a30 NUMBER
1246 , p5_a31 VARCHAR2
1247 , p5_a32 VARCHAR2
1248 , p5_a33 NUMBER
1249 , p5_a34 NUMBER
1250 , p5_a35 NUMBER
1251 , p5_a36 VARCHAR2
1252 , p5_a37 NUMBER
1253 , p5_a38 NUMBER
1254 , p5_a39 VARCHAR2
1255 , p5_a40 VARCHAR2
1256 , p5_a41 NUMBER
1257 , p5_a42 NUMBER
1258 , p5_a43 NUMBER
1259 , p5_a44 NUMBER
1260 , p5_a45 NUMBER
1261 , p5_a46 NUMBER
1262 , p5_a47 NUMBER
1263 , p5_a48 NUMBER
1264 , p5_a49 NUMBER
1265 , p5_a50 VARCHAR2
1266 , p5_a51 VARCHAR2
1267 , p5_a52 VARCHAR2
1268 , p5_a53 VARCHAR2
1269 , p6_a0 JTF_NUMBER_TABLE
1270 , p6_a1 JTF_NUMBER_TABLE
1271 , p6_a2 JTF_VARCHAR2_TABLE_100
1272 , p6_a3 JTF_VARCHAR2_TABLE_500
1273 , p6_a4 JTF_VARCHAR2_TABLE_500
1274 , p6_a5 JTF_VARCHAR2_TABLE_500
1275 , p6_a6 JTF_VARCHAR2_TABLE_500
1276 , p6_a7 JTF_VARCHAR2_TABLE_500
1277 , p6_a8 JTF_VARCHAR2_TABLE_500
1278 , p6_a9 JTF_VARCHAR2_TABLE_500
1279 , p6_a10 JTF_VARCHAR2_TABLE_500
1280 , p6_a11 JTF_VARCHAR2_TABLE_500
1281 , p6_a12 JTF_VARCHAR2_TABLE_500
1282 , p6_a13 JTF_VARCHAR2_TABLE_500
1283 , p6_a14 JTF_VARCHAR2_TABLE_500
1284 , p6_a15 JTF_VARCHAR2_TABLE_500
1285 , p6_a16 JTF_VARCHAR2_TABLE_500
1286 , p6_a17 JTF_VARCHAR2_TABLE_500
1287 , p6_a18 JTF_NUMBER_TABLE
1288 , p6_a19 JTF_VARCHAR2_TABLE_100
1289 , p6_a20 JTF_VARCHAR2_TABLE_100
1290 , p6_a21 JTF_NUMBER_TABLE
1291 , p6_a22 JTF_NUMBER_TABLE
1292 , p6_a23 JTF_NUMBER_TABLE
1293 , p6_a24 JTF_NUMBER_TABLE
1294 , p6_a25 JTF_NUMBER_TABLE
1295 , p6_a26 JTF_NUMBER_TABLE
1296 , p6_a27 JTF_NUMBER_TABLE
1297 , p6_a28 JTF_VARCHAR2_TABLE_300
1298 , p6_a29 JTF_VARCHAR2_TABLE_2000
1299 , p6_a30 JTF_VARCHAR2_TABLE_2000
1300 , p7_a0 VARCHAR2
1301 , p7_a1 NUMBER
1302 , p7_a2 VARCHAR2
1303 , p7_a3 VARCHAR2
1304 , p7_a4 VARCHAR2
1305 , p7_a5 VARCHAR2
1306 , p7_a6 VARCHAR2
1307 , p7_a7 VARCHAR2
1308 , p7_a8 NUMBER
1309 , p7_a9 VARCHAR2
1310 , p7_a10 NUMBER
1311 , p7_a11 NUMBER
1312 , p7_a12 NUMBER
1313 , p7_a13 NUMBER
1314 , p8_a0 JTF_NUMBER_TABLE
1315 , p8_a1 JTF_DATE_TABLE
1316 , p8_a2 JTF_NUMBER_TABLE
1317 , p8_a3 JTF_NUMBER_TABLE
1318 , p8_a4 JTF_NUMBER_TABLE
1319 , p8_a5 JTF_NUMBER_TABLE
1320 , p8_a6 JTF_NUMBER_TABLE
1321 , p8_a7 JTF_NUMBER_TABLE
1322 , p8_a8 JTF_VARCHAR2_TABLE_100
1323 , p8_a9 JTF_VARCHAR2_TABLE_100
1324 , p_commit VARCHAR2
1325 , create_yn VARCHAR2
1326 , p11_a0 out nocopy NUMBER
1327 , p11_a1 out nocopy NUMBER
1328 , p11_a2 out nocopy VARCHAR2
1329 , p11_a3 out nocopy VARCHAR2
1330 , p11_a4 out nocopy NUMBER
1331 , p11_a5 out nocopy NUMBER
1332 , p11_a6 out nocopy NUMBER
1333 , p11_a7 out nocopy NUMBER
1334 , p11_a8 out nocopy NUMBER
1335 , p11_a9 out nocopy NUMBER
1336 , p11_a10 out nocopy NUMBER
1337 , p11_a11 out nocopy NUMBER
1338 , p12_a0 out nocopy JTF_NUMBER_TABLE
1339 , p12_a1 out nocopy JTF_NUMBER_TABLE
1340 , p12_a2 out nocopy JTF_NUMBER_TABLE
1341 , p12_a3 out nocopy JTF_NUMBER_TABLE
1342 , p12_a4 out nocopy JTF_NUMBER_TABLE
1343 , p12_a5 out nocopy JTF_DATE_TABLE
1344 , p13_a0 out nocopy JTF_VARCHAR2_TABLE_100
1345 , p13_a1 out nocopy JTF_NUMBER_TABLE
1346 , p13_a2 out nocopy JTF_NUMBER_TABLE
1347 , p13_a3 out nocopy JTF_DATE_TABLE
1348 , p14_a0 out nocopy JTF_VARCHAR2_TABLE_300
1349 , p14_a1 out nocopy JTF_VARCHAR2_TABLE_300
1350 , p14_a2 out nocopy JTF_NUMBER_TABLE
1351 , p14_a3 out nocopy JTF_NUMBER_TABLE
1352 , p14_a4 out nocopy JTF_NUMBER_TABLE
1353 , p14_a5 out nocopy JTF_NUMBER_TABLE
1354 , p14_a6 out nocopy JTF_NUMBER_TABLE
1355 , p14_a7 out nocopy JTF_DATE_TABLE
1356 , p15_a0 out nocopy NUMBER
1357 , p15_a1 out nocopy NUMBER
1358 , p15_a2 out nocopy VARCHAR2
1359 , p15_a3 out nocopy VARCHAR2
1360 , p15_a4 out nocopy VARCHAR2
1361 , p15_a5 out nocopy VARCHAR2
1362 , p15_a6 out nocopy VARCHAR2
1363 , p15_a7 out nocopy VARCHAR2
1364 , p15_a8 out nocopy VARCHAR2
1365 , p15_a9 out nocopy VARCHAR2
1366 , p15_a10 out nocopy VARCHAR2
1367 , p15_a11 out nocopy VARCHAR2
1368 , p15_a12 out nocopy VARCHAR2
1369 , p15_a13 out nocopy VARCHAR2
1370 , p15_a14 out nocopy VARCHAR2
1371 , p15_a15 out nocopy VARCHAR2
1372 , p15_a16 out nocopy VARCHAR2
1373 , p15_a17 out nocopy VARCHAR2
1374 , p15_a18 out nocopy VARCHAR2
1375 , p15_a19 out nocopy DATE
1376 , p15_a20 out nocopy NUMBER
1377 , p15_a21 out nocopy NUMBER
1378 , p15_a22 out nocopy VARCHAR2
1379 , p15_a23 out nocopy NUMBER
1380 , p15_a24 out nocopy NUMBER
1381 , p15_a25 out nocopy VARCHAR2
1382 , p15_a26 out nocopy NUMBER
1383 , p15_a27 out nocopy NUMBER
1384 , p15_a28 out nocopy NUMBER
1385 , p15_a29 out nocopy NUMBER
1386 , p15_a30 out nocopy NUMBER
1387 , p15_a31 out nocopy VARCHAR2
1388 , p15_a32 out nocopy VARCHAR2
1389 , p15_a33 out nocopy NUMBER
1390 , p15_a34 out nocopy NUMBER
1391 , p15_a35 out nocopy NUMBER
1392 , p15_a36 out nocopy VARCHAR2
1393 , p15_a37 out nocopy NUMBER
1394 , p15_a38 out nocopy NUMBER
1395 , p15_a39 out nocopy VARCHAR2
1396 , p15_a40 out nocopy VARCHAR2
1397 , p15_a41 out nocopy NUMBER
1398 , p15_a42 out nocopy NUMBER
1399 , p15_a43 out nocopy NUMBER
1400 , p15_a44 out nocopy NUMBER
1401 , p15_a45 out nocopy NUMBER
1402 , p15_a46 out nocopy NUMBER
1403 , p15_a47 out nocopy NUMBER
1404 , p15_a48 out nocopy NUMBER
1405 , p15_a49 out nocopy NUMBER
1406 , p15_a50 out nocopy VARCHAR2
1407 , p15_a51 out nocopy VARCHAR2
1408 , p15_a52 out nocopy VARCHAR2
1409 , p15_a53 out nocopy VARCHAR2
1410 , p16_a0 out nocopy JTF_NUMBER_TABLE
1411 , p16_a1 out nocopy JTF_NUMBER_TABLE
1412 , p16_a2 out nocopy JTF_VARCHAR2_TABLE_100
1413 , p16_a3 out nocopy JTF_VARCHAR2_TABLE_500
1414 , p16_a4 out nocopy JTF_VARCHAR2_TABLE_500
1415 , p16_a5 out nocopy JTF_VARCHAR2_TABLE_500
1416 , p16_a6 out nocopy JTF_VARCHAR2_TABLE_500
1417 , p16_a7 out nocopy JTF_VARCHAR2_TABLE_500
1418 , p16_a8 out nocopy JTF_VARCHAR2_TABLE_500
1419 , p16_a9 out nocopy JTF_VARCHAR2_TABLE_500
1420 , p16_a10 out nocopy JTF_VARCHAR2_TABLE_500
1421 , p16_a11 out nocopy JTF_VARCHAR2_TABLE_500
1422 , p16_a12 out nocopy JTF_VARCHAR2_TABLE_500
1423 , p16_a13 out nocopy JTF_VARCHAR2_TABLE_500
1424 , p16_a14 out nocopy JTF_VARCHAR2_TABLE_500
1425 , p16_a15 out nocopy JTF_VARCHAR2_TABLE_500
1426 , p16_a16 out nocopy JTF_VARCHAR2_TABLE_500
1427 , p16_a17 out nocopy JTF_VARCHAR2_TABLE_500
1428 , p16_a18 out nocopy JTF_NUMBER_TABLE
1429 , p16_a19 out nocopy JTF_VARCHAR2_TABLE_100
1430 , p16_a20 out nocopy JTF_VARCHAR2_TABLE_100
1431 , p16_a21 out nocopy JTF_NUMBER_TABLE
1432 , p16_a22 out nocopy JTF_NUMBER_TABLE
1433 , p16_a23 out nocopy JTF_NUMBER_TABLE
1434 , p16_a24 out nocopy JTF_NUMBER_TABLE
1435 , p16_a25 out nocopy JTF_NUMBER_TABLE
1436 , p16_a26 out nocopy JTF_NUMBER_TABLE
1437 , p16_a27 out nocopy JTF_NUMBER_TABLE
1438 , p16_a28 out nocopy JTF_VARCHAR2_TABLE_300
1439 , p16_a29 out nocopy JTF_VARCHAR2_TABLE_2000
1440 , p16_a30 out nocopy JTF_VARCHAR2_TABLE_2000
1441 )
1442
1443 as
1444 ddp_qqhv_rec_type okl_quick_quotes_pvt.qqhv_rec_type;
1445 ddp_qqlv_tbl_type okl_quick_quotes_pvt.qqlv_tbl_type;
1446 ddp_cfh_rec_type okl_quick_quotes_pvt.cashflow_hdr_rec;
1447 ddp_cfl_tbl_type okl_quick_quotes_pvt.cashflow_level_tbl;
1448 ddx_payment_rec okl_quick_quotes_pvt.payment_rec_type;
1449 ddx_rent_payments_tbl okl_quick_quotes_pvt.rent_payments_tbl;
1450 ddx_fee_payments_tbl okl_quick_quotes_pvt.fee_service_payments_tbl;
1451 ddx_item_tbl okl_quick_quotes_pvt.item_order_estimate_tbl;
1452 ddx_qqhv_rec_type okl_quick_quotes_pvt.qqhv_rec_type;
1453 ddx_qqlv_tbl_type okl_quick_quotes_pvt.qqlv_tbl_type;
1454 ddindx binary_integer; indx binary_integer;
1455 begin
1456
1457 -- copy data to the local IN or IN-OUT args, if any
1458
1459
1460
1461
1462
1463 ddp_qqhv_rec_type.id := p5_a0;
1464 ddp_qqhv_rec_type.object_version_number := p5_a1;
1465 ddp_qqhv_rec_type.attribute_category := p5_a2;
1466 ddp_qqhv_rec_type.attribute1 := p5_a3;
1467 ddp_qqhv_rec_type.attribute2 := p5_a4;
1468 ddp_qqhv_rec_type.attribute3 := p5_a5;
1469 ddp_qqhv_rec_type.attribute4 := p5_a6;
1470 ddp_qqhv_rec_type.attribute5 := p5_a7;
1471 ddp_qqhv_rec_type.attribute6 := p5_a8;
1472 ddp_qqhv_rec_type.attribute7 := p5_a9;
1473 ddp_qqhv_rec_type.attribute8 := p5_a10;
1474 ddp_qqhv_rec_type.attribute9 := p5_a11;
1475 ddp_qqhv_rec_type.attribute10 := p5_a12;
1476 ddp_qqhv_rec_type.attribute11 := p5_a13;
1477 ddp_qqhv_rec_type.attribute12 := p5_a14;
1478 ddp_qqhv_rec_type.attribute13 := p5_a15;
1479 ddp_qqhv_rec_type.attribute14 := p5_a16;
1480 ddp_qqhv_rec_type.attribute15 := p5_a17;
1481 ddp_qqhv_rec_type.reference_number := p5_a18;
1482 ddp_qqhv_rec_type.expected_start_date := p5_a19;
1483 ddp_qqhv_rec_type.org_id := p5_a20;
1484 ddp_qqhv_rec_type.inv_org_id := p5_a21;
1485 ddp_qqhv_rec_type.currency_code := p5_a22;
1486 ddp_qqhv_rec_type.term := p5_a23;
1487 ddp_qqhv_rec_type.end_of_term_option_id := p5_a24;
1488 ddp_qqhv_rec_type.pricing_method := p5_a25;
1489 ddp_qqhv_rec_type.lease_opportunity_id := p5_a26;
1490 ddp_qqhv_rec_type.originating_vendor_id := p5_a27;
1491 ddp_qqhv_rec_type.program_agreement_id := p5_a28;
1492 ddp_qqhv_rec_type.sales_rep_id := p5_a29;
1493 ddp_qqhv_rec_type.sales_territory_id := p5_a30;
1494 ddp_qqhv_rec_type.structured_pricing := p5_a31;
1495 ddp_qqhv_rec_type.line_level_pricing := p5_a32;
1496 ddp_qqhv_rec_type.rate_template_id := p5_a33;
1497 ddp_qqhv_rec_type.rate_card_id := p5_a34;
1498 ddp_qqhv_rec_type.lease_rate_factor := p5_a35;
1499 ddp_qqhv_rec_type.target_rate_type := p5_a36;
1500 ddp_qqhv_rec_type.target_rate := p5_a37;
1501 ddp_qqhv_rec_type.target_amount := p5_a38;
1502 ddp_qqhv_rec_type.target_frequency := p5_a39;
1503 ddp_qqhv_rec_type.target_arrears := p5_a40;
1504 ddp_qqhv_rec_type.target_periods := p5_a41;
1505 ddp_qqhv_rec_type.iir := p5_a42;
1506 ddp_qqhv_rec_type.sub_iir := p5_a43;
1507 ddp_qqhv_rec_type.booking_yield := p5_a44;
1508 ddp_qqhv_rec_type.sub_booking_yield := p5_a45;
1509 ddp_qqhv_rec_type.pirr := p5_a46;
1510 ddp_qqhv_rec_type.sub_pirr := p5_a47;
1511 ddp_qqhv_rec_type.airr := p5_a48;
1512 ddp_qqhv_rec_type.sub_airr := p5_a49;
1513 ddp_qqhv_rec_type.short_description := p5_a50;
1514 ddp_qqhv_rec_type.description := p5_a51;
1515 ddp_qqhv_rec_type.comments := p5_a52;
1516 ddp_qqhv_rec_type.sts_code := p5_a53;
1517
1518 okl_qql_pvt_w.rosetta_table_copy_in_p23(ddp_qqlv_tbl_type, p6_a0
1519 , p6_a1
1520 , p6_a2
1521 , p6_a3
1522 , p6_a4
1523 , p6_a5
1524 , p6_a6
1525 , p6_a7
1526 , p6_a8
1527 , p6_a9
1528 , p6_a10
1529 , p6_a11
1530 , p6_a12
1531 , p6_a13
1532 , p6_a14
1533 , p6_a15
1534 , p6_a16
1535 , p6_a17
1536 , p6_a18
1537 , p6_a19
1538 , p6_a20
1539 , p6_a21
1540 , p6_a22
1541 , p6_a23
1542 , p6_a24
1543 , p6_a25
1544 , p6_a26
1545 , p6_a27
1546 , p6_a28
1547 , p6_a29
1548 , p6_a30
1549 );
1550
1551 ddp_cfh_rec_type.type_code := p7_a0;
1552 ddp_cfh_rec_type.stream_type_id := p7_a1;
1553 ddp_cfh_rec_type.status_code := p7_a2;
1554 ddp_cfh_rec_type.arrears_flag := p7_a3;
1555 ddp_cfh_rec_type.frequency_code := p7_a4;
1556 ddp_cfh_rec_type.dnz_periods := p7_a5;
1557 ddp_cfh_rec_type.dnz_periodic_amount := p7_a6;
1558 ddp_cfh_rec_type.parent_object_code := p7_a7;
1559 ddp_cfh_rec_type.parent_object_id := p7_a8;
1560 ddp_cfh_rec_type.quote_type_code := p7_a9;
1561 ddp_cfh_rec_type.quote_id := p7_a10;
1562 ddp_cfh_rec_type.cashflow_header_id := p7_a11;
1563 ddp_cfh_rec_type.cashflow_object_id := p7_a12;
1564 ddp_cfh_rec_type.cashflow_header_ovn := p7_a13;
1565
1566 okl_lease_quote_cashflow_pvt_w.rosetta_table_copy_in_p21(ddp_cfl_tbl_type, p8_a0
1567 , p8_a1
1568 , p8_a2
1569 , p8_a3
1570 , p8_a4
1571 , p8_a5
1572 , p8_a6
1573 , p8_a7
1574 , p8_a8
1575 , p8_a9
1576 );
1577
1578
1579
1580
1581
1582
1583
1584
1585
1586 -- here's the delegated call to the old PL/SQL routine
1587 okl_quick_quotes_pvt.handle_quick_quote(p_api_version,
1588 p_init_msg_list,
1589 x_return_status,
1590 x_msg_count,
1591 x_msg_data,
1592 ddp_qqhv_rec_type,
1593 ddp_qqlv_tbl_type,
1594 ddp_cfh_rec_type,
1595 ddp_cfl_tbl_type,
1596 p_commit,
1597 create_yn,
1598 ddx_payment_rec,
1599 ddx_rent_payments_tbl,
1600 ddx_fee_payments_tbl,
1601 ddx_item_tbl,
1602 ddx_qqhv_rec_type,
1603 ddx_qqlv_tbl_type);
1604
1605 -- copy data back from the local variables to OUT or IN-OUT args, if any
1606
1607
1608
1609
1610
1611
1612
1613
1614
1615
1616
1617 p11_a0 := ddx_payment_rec.subsidy_amount;
1618 p11_a1 := ddx_payment_rec.financed_amount;
1619 p11_a2 := ddx_payment_rec.arrears_yn;
1620 p11_a3 := ddx_payment_rec.frequency_code;
1621 p11_a4 := ddx_payment_rec.pre_tax_irr;
1622 p11_a5 := ddx_payment_rec.after_tax_irr;
1623 p11_a6 := ddx_payment_rec.book_yield;
1624 p11_a7 := ddx_payment_rec.iir;
1625 p11_a8 := ddx_payment_rec.sub_pre_tax_irr;
1626 p11_a9 := ddx_payment_rec.sub_after_tax_irr;
1627 p11_a10 := ddx_payment_rec.sub_book_yield;
1628 p11_a11 := ddx_payment_rec.sub_iir;
1629
1630 okl_quick_quotes_pvt_w.rosetta_table_copy_out_p8(ddx_rent_payments_tbl, p12_a0
1631 , p12_a1
1632 , p12_a2
1633 , p12_a3
1634 , p12_a4
1635 , p12_a5
1636 );
1637
1638 okl_quick_quotes_pvt_w.rosetta_table_copy_out_p10(ddx_fee_payments_tbl, p13_a0
1639 , p13_a1
1640 , p13_a2
1641 , p13_a3
1642 );
1643
1644 okl_quick_quotes_pvt_w.rosetta_table_copy_out_p12(ddx_item_tbl, p14_a0
1645 , p14_a1
1646 , p14_a2
1647 , p14_a3
1648 , p14_a4
1649 , p14_a5
1650 , p14_a6
1651 , p14_a7
1652 );
1653
1654 p15_a0 := ddx_qqhv_rec_type.id;
1655 p15_a1 := ddx_qqhv_rec_type.object_version_number;
1656 p15_a2 := ddx_qqhv_rec_type.attribute_category;
1657 p15_a3 := ddx_qqhv_rec_type.attribute1;
1658 p15_a4 := ddx_qqhv_rec_type.attribute2;
1659 p15_a5 := ddx_qqhv_rec_type.attribute3;
1660 p15_a6 := ddx_qqhv_rec_type.attribute4;
1661 p15_a7 := ddx_qqhv_rec_type.attribute5;
1662 p15_a8 := ddx_qqhv_rec_type.attribute6;
1663 p15_a9 := ddx_qqhv_rec_type.attribute7;
1664 p15_a10 := ddx_qqhv_rec_type.attribute8;
1665 p15_a11 := ddx_qqhv_rec_type.attribute9;
1666 p15_a12 := ddx_qqhv_rec_type.attribute10;
1667 p15_a13 := ddx_qqhv_rec_type.attribute11;
1668 p15_a14 := ddx_qqhv_rec_type.attribute12;
1669 p15_a15 := ddx_qqhv_rec_type.attribute13;
1670 p15_a16 := ddx_qqhv_rec_type.attribute14;
1671 p15_a17 := ddx_qqhv_rec_type.attribute15;
1672 p15_a18 := ddx_qqhv_rec_type.reference_number;
1673 p15_a19 := ddx_qqhv_rec_type.expected_start_date;
1674 p15_a20 := ddx_qqhv_rec_type.org_id;
1675 p15_a21 := ddx_qqhv_rec_type.inv_org_id;
1676 p15_a22 := ddx_qqhv_rec_type.currency_code;
1677 p15_a23 := ddx_qqhv_rec_type.term;
1678 p15_a24 := ddx_qqhv_rec_type.end_of_term_option_id;
1679 p15_a25 := ddx_qqhv_rec_type.pricing_method;
1680 p15_a26 := ddx_qqhv_rec_type.lease_opportunity_id;
1681 p15_a27 := ddx_qqhv_rec_type.originating_vendor_id;
1682 p15_a28 := ddx_qqhv_rec_type.program_agreement_id;
1683 p15_a29 := ddx_qqhv_rec_type.sales_rep_id;
1684 p15_a30 := ddx_qqhv_rec_type.sales_territory_id;
1685 p15_a31 := ddx_qqhv_rec_type.structured_pricing;
1686 p15_a32 := ddx_qqhv_rec_type.line_level_pricing;
1687 p15_a33 := ddx_qqhv_rec_type.rate_template_id;
1688 p15_a34 := ddx_qqhv_rec_type.rate_card_id;
1689 p15_a35 := ddx_qqhv_rec_type.lease_rate_factor;
1690 p15_a36 := ddx_qqhv_rec_type.target_rate_type;
1691 p15_a37 := ddx_qqhv_rec_type.target_rate;
1692 p15_a38 := ddx_qqhv_rec_type.target_amount;
1693 p15_a39 := ddx_qqhv_rec_type.target_frequency;
1694 p15_a40 := ddx_qqhv_rec_type.target_arrears;
1695 p15_a41 := ddx_qqhv_rec_type.target_periods;
1696 p15_a42 := ddx_qqhv_rec_type.iir;
1697 p15_a43 := ddx_qqhv_rec_type.sub_iir;
1698 p15_a44 := ddx_qqhv_rec_type.booking_yield;
1699 p15_a45 := ddx_qqhv_rec_type.sub_booking_yield;
1700 p15_a46 := ddx_qqhv_rec_type.pirr;
1701 p15_a47 := ddx_qqhv_rec_type.sub_pirr;
1702 p15_a48 := ddx_qqhv_rec_type.airr;
1703 p15_a49 := ddx_qqhv_rec_type.sub_airr;
1704 p15_a50 := ddx_qqhv_rec_type.short_description;
1705 p15_a51 := ddx_qqhv_rec_type.description;
1706 p15_a52 := ddx_qqhv_rec_type.comments;
1707 p15_a53 := ddx_qqhv_rec_type.sts_code;
1708
1709 okl_qql_pvt_w.rosetta_table_copy_out_p23(ddx_qqlv_tbl_type, p16_a0
1710 , p16_a1
1711 , p16_a2
1712 , p16_a3
1713 , p16_a4
1714 , p16_a5
1715 , p16_a6
1716 , p16_a7
1717 , p16_a8
1718 , p16_a9
1719 , p16_a10
1720 , p16_a11
1721 , p16_a12
1722 , p16_a13
1723 , p16_a14
1724 , p16_a15
1725 , p16_a16
1726 , p16_a17
1727 , p16_a18
1728 , p16_a19
1729 , p16_a20
1730 , p16_a21
1731 , p16_a22
1732 , p16_a23
1733 , p16_a24
1734 , p16_a25
1735 , p16_a26
1736 , p16_a27
1737 , p16_a28
1738 , p16_a29
1739 , p16_a30
1740 );
1741 end;
1742
1743 procedure cancel_quick_quote(p_api_version NUMBER
1744 , p_init_msg_list VARCHAR2
1745 , x_return_status out nocopy VARCHAR2
1746 , x_msg_count out nocopy NUMBER
1747 , x_msg_data out nocopy VARCHAR2
1748 , p5_a0 NUMBER
1749 , p5_a1 NUMBER
1750 , p5_a2 VARCHAR2
1751 , p5_a3 VARCHAR2
1752 , p5_a4 VARCHAR2
1753 , p5_a5 VARCHAR2
1754 , p5_a6 VARCHAR2
1755 , p5_a7 VARCHAR2
1756 , p5_a8 VARCHAR2
1757 , p5_a9 VARCHAR2
1758 , p5_a10 VARCHAR2
1759 , p5_a11 VARCHAR2
1760 , p5_a12 VARCHAR2
1761 , p5_a13 VARCHAR2
1762 , p5_a14 VARCHAR2
1763 , p5_a15 VARCHAR2
1764 , p5_a16 VARCHAR2
1765 , p5_a17 VARCHAR2
1766 , p5_a18 VARCHAR2
1767 , p5_a19 DATE
1768 , p5_a20 NUMBER
1769 , p5_a21 NUMBER
1770 , p5_a22 VARCHAR2
1771 , p5_a23 NUMBER
1772 , p5_a24 NUMBER
1773 , p5_a25 VARCHAR2
1774 , p5_a26 NUMBER
1775 , p5_a27 NUMBER
1776 , p5_a28 NUMBER
1777 , p5_a29 NUMBER
1778 , p5_a30 NUMBER
1779 , p5_a31 VARCHAR2
1780 , p5_a32 VARCHAR2
1781 , p5_a33 NUMBER
1782 , p5_a34 NUMBER
1783 , p5_a35 NUMBER
1784 , p5_a36 VARCHAR2
1785 , p5_a37 NUMBER
1786 , p5_a38 NUMBER
1787 , p5_a39 VARCHAR2
1788 , p5_a40 VARCHAR2
1789 , p5_a41 NUMBER
1790 , p5_a42 NUMBER
1791 , p5_a43 NUMBER
1792 , p5_a44 NUMBER
1793 , p5_a45 NUMBER
1794 , p5_a46 NUMBER
1795 , p5_a47 NUMBER
1796 , p5_a48 NUMBER
1797 , p5_a49 NUMBER
1798 , p5_a50 VARCHAR2
1799 , p5_a51 VARCHAR2
1800 , p5_a52 VARCHAR2
1801 , p5_a53 VARCHAR2
1802 , p6_a0 out nocopy NUMBER
1803 , p6_a1 out nocopy NUMBER
1804 , p6_a2 out nocopy VARCHAR2
1805 , p6_a3 out nocopy VARCHAR2
1806 , p6_a4 out nocopy VARCHAR2
1807 , p6_a5 out nocopy VARCHAR2
1808 , p6_a6 out nocopy VARCHAR2
1809 , p6_a7 out nocopy VARCHAR2
1810 , p6_a8 out nocopy VARCHAR2
1811 , p6_a9 out nocopy VARCHAR2
1812 , p6_a10 out nocopy VARCHAR2
1813 , p6_a11 out nocopy VARCHAR2
1814 , p6_a12 out nocopy VARCHAR2
1815 , p6_a13 out nocopy VARCHAR2
1816 , p6_a14 out nocopy VARCHAR2
1817 , p6_a15 out nocopy VARCHAR2
1818 , p6_a16 out nocopy VARCHAR2
1819 , p6_a17 out nocopy VARCHAR2
1820 , p6_a18 out nocopy VARCHAR2
1821 , p6_a19 out nocopy DATE
1822 , p6_a20 out nocopy NUMBER
1823 , p6_a21 out nocopy NUMBER
1824 , p6_a22 out nocopy VARCHAR2
1825 , p6_a23 out nocopy NUMBER
1826 , p6_a24 out nocopy NUMBER
1827 , p6_a25 out nocopy VARCHAR2
1828 , p6_a26 out nocopy NUMBER
1829 , p6_a27 out nocopy NUMBER
1830 , p6_a28 out nocopy NUMBER
1831 , p6_a29 out nocopy NUMBER
1832 , p6_a30 out nocopy NUMBER
1833 , p6_a31 out nocopy VARCHAR2
1834 , p6_a32 out nocopy VARCHAR2
1835 , p6_a33 out nocopy NUMBER
1836 , p6_a34 out nocopy NUMBER
1837 , p6_a35 out nocopy NUMBER
1838 , p6_a36 out nocopy VARCHAR2
1839 , p6_a37 out nocopy NUMBER
1840 , p6_a38 out nocopy NUMBER
1841 , p6_a39 out nocopy VARCHAR2
1842 , p6_a40 out nocopy VARCHAR2
1843 , p6_a41 out nocopy NUMBER
1844 , p6_a42 out nocopy NUMBER
1845 , p6_a43 out nocopy NUMBER
1846 , p6_a44 out nocopy NUMBER
1847 , p6_a45 out nocopy NUMBER
1848 , p6_a46 out nocopy NUMBER
1849 , p6_a47 out nocopy NUMBER
1850 , p6_a48 out nocopy NUMBER
1851 , p6_a49 out nocopy NUMBER
1852 , p6_a50 out nocopy VARCHAR2
1853 , p6_a51 out nocopy VARCHAR2
1854 , p6_a52 out nocopy VARCHAR2
1855 , p6_a53 out nocopy VARCHAR2
1856 )
1857
1858 as
1859 ddp_qqhv_rec_type okl_quick_quotes_pvt.qqhv_rec_type;
1860 ddx_qqhv_rec_type okl_quick_quotes_pvt.qqhv_rec_type;
1861 ddindx binary_integer; indx binary_integer;
1862 begin
1863
1864 -- copy data to the local IN or IN-OUT args, if any
1865
1866
1867
1868
1869
1870 ddp_qqhv_rec_type.id := p5_a0;
1871 ddp_qqhv_rec_type.object_version_number := p5_a1;
1872 ddp_qqhv_rec_type.attribute_category := p5_a2;
1873 ddp_qqhv_rec_type.attribute1 := p5_a3;
1874 ddp_qqhv_rec_type.attribute2 := p5_a4;
1875 ddp_qqhv_rec_type.attribute3 := p5_a5;
1876 ddp_qqhv_rec_type.attribute4 := p5_a6;
1877 ddp_qqhv_rec_type.attribute5 := p5_a7;
1878 ddp_qqhv_rec_type.attribute6 := p5_a8;
1879 ddp_qqhv_rec_type.attribute7 := p5_a9;
1880 ddp_qqhv_rec_type.attribute8 := p5_a10;
1881 ddp_qqhv_rec_type.attribute9 := p5_a11;
1882 ddp_qqhv_rec_type.attribute10 := p5_a12;
1883 ddp_qqhv_rec_type.attribute11 := p5_a13;
1884 ddp_qqhv_rec_type.attribute12 := p5_a14;
1885 ddp_qqhv_rec_type.attribute13 := p5_a15;
1886 ddp_qqhv_rec_type.attribute14 := p5_a16;
1887 ddp_qqhv_rec_type.attribute15 := p5_a17;
1888 ddp_qqhv_rec_type.reference_number := p5_a18;
1889 ddp_qqhv_rec_type.expected_start_date := p5_a19;
1890 ddp_qqhv_rec_type.org_id := p5_a20;
1891 ddp_qqhv_rec_type.inv_org_id := p5_a21;
1892 ddp_qqhv_rec_type.currency_code := p5_a22;
1893 ddp_qqhv_rec_type.term := p5_a23;
1894 ddp_qqhv_rec_type.end_of_term_option_id := p5_a24;
1895 ddp_qqhv_rec_type.pricing_method := p5_a25;
1896 ddp_qqhv_rec_type.lease_opportunity_id := p5_a26;
1897 ddp_qqhv_rec_type.originating_vendor_id := p5_a27;
1898 ddp_qqhv_rec_type.program_agreement_id := p5_a28;
1899 ddp_qqhv_rec_type.sales_rep_id := p5_a29;
1900 ddp_qqhv_rec_type.sales_territory_id := p5_a30;
1901 ddp_qqhv_rec_type.structured_pricing := p5_a31;
1902 ddp_qqhv_rec_type.line_level_pricing := p5_a32;
1903 ddp_qqhv_rec_type.rate_template_id := p5_a33;
1904 ddp_qqhv_rec_type.rate_card_id := p5_a34;
1905 ddp_qqhv_rec_type.lease_rate_factor := p5_a35;
1906 ddp_qqhv_rec_type.target_rate_type := p5_a36;
1907 ddp_qqhv_rec_type.target_rate := p5_a37;
1908 ddp_qqhv_rec_type.target_amount := p5_a38;
1909 ddp_qqhv_rec_type.target_frequency := p5_a39;
1910 ddp_qqhv_rec_type.target_arrears := p5_a40;
1911 ddp_qqhv_rec_type.target_periods := p5_a41;
1912 ddp_qqhv_rec_type.iir := p5_a42;
1913 ddp_qqhv_rec_type.sub_iir := p5_a43;
1914 ddp_qqhv_rec_type.booking_yield := p5_a44;
1915 ddp_qqhv_rec_type.sub_booking_yield := p5_a45;
1916 ddp_qqhv_rec_type.pirr := p5_a46;
1917 ddp_qqhv_rec_type.sub_pirr := p5_a47;
1918 ddp_qqhv_rec_type.airr := p5_a48;
1919 ddp_qqhv_rec_type.sub_airr := p5_a49;
1920 ddp_qqhv_rec_type.short_description := p5_a50;
1921 ddp_qqhv_rec_type.description := p5_a51;
1922 ddp_qqhv_rec_type.comments := p5_a52;
1923 ddp_qqhv_rec_type.sts_code := p5_a53;
1924
1925
1926 -- here's the delegated call to the old PL/SQL routine
1927 okl_quick_quotes_pvt.cancel_quick_quote(p_api_version,
1928 p_init_msg_list,
1929 x_return_status,
1930 x_msg_count,
1931 x_msg_data,
1932 ddp_qqhv_rec_type,
1933 ddx_qqhv_rec_type);
1934
1935 -- copy data back from the local variables to OUT or IN-OUT args, if any
1936
1937
1938
1939
1940
1941
1942 p6_a0 := ddx_qqhv_rec_type.id;
1943 p6_a1 := ddx_qqhv_rec_type.object_version_number;
1944 p6_a2 := ddx_qqhv_rec_type.attribute_category;
1945 p6_a3 := ddx_qqhv_rec_type.attribute1;
1946 p6_a4 := ddx_qqhv_rec_type.attribute2;
1947 p6_a5 := ddx_qqhv_rec_type.attribute3;
1948 p6_a6 := ddx_qqhv_rec_type.attribute4;
1949 p6_a7 := ddx_qqhv_rec_type.attribute5;
1950 p6_a8 := ddx_qqhv_rec_type.attribute6;
1951 p6_a9 := ddx_qqhv_rec_type.attribute7;
1952 p6_a10 := ddx_qqhv_rec_type.attribute8;
1953 p6_a11 := ddx_qqhv_rec_type.attribute9;
1954 p6_a12 := ddx_qqhv_rec_type.attribute10;
1955 p6_a13 := ddx_qqhv_rec_type.attribute11;
1956 p6_a14 := ddx_qqhv_rec_type.attribute12;
1957 p6_a15 := ddx_qqhv_rec_type.attribute13;
1958 p6_a16 := ddx_qqhv_rec_type.attribute14;
1959 p6_a17 := ddx_qqhv_rec_type.attribute15;
1960 p6_a18 := ddx_qqhv_rec_type.reference_number;
1961 p6_a19 := ddx_qqhv_rec_type.expected_start_date;
1962 p6_a20 := ddx_qqhv_rec_type.org_id;
1963 p6_a21 := ddx_qqhv_rec_type.inv_org_id;
1964 p6_a22 := ddx_qqhv_rec_type.currency_code;
1965 p6_a23 := ddx_qqhv_rec_type.term;
1966 p6_a24 := ddx_qqhv_rec_type.end_of_term_option_id;
1967 p6_a25 := ddx_qqhv_rec_type.pricing_method;
1968 p6_a26 := ddx_qqhv_rec_type.lease_opportunity_id;
1969 p6_a27 := ddx_qqhv_rec_type.originating_vendor_id;
1970 p6_a28 := ddx_qqhv_rec_type.program_agreement_id;
1971 p6_a29 := ddx_qqhv_rec_type.sales_rep_id;
1972 p6_a30 := ddx_qqhv_rec_type.sales_territory_id;
1973 p6_a31 := ddx_qqhv_rec_type.structured_pricing;
1974 p6_a32 := ddx_qqhv_rec_type.line_level_pricing;
1975 p6_a33 := ddx_qqhv_rec_type.rate_template_id;
1976 p6_a34 := ddx_qqhv_rec_type.rate_card_id;
1977 p6_a35 := ddx_qqhv_rec_type.lease_rate_factor;
1978 p6_a36 := ddx_qqhv_rec_type.target_rate_type;
1979 p6_a37 := ddx_qqhv_rec_type.target_rate;
1980 p6_a38 := ddx_qqhv_rec_type.target_amount;
1981 p6_a39 := ddx_qqhv_rec_type.target_frequency;
1982 p6_a40 := ddx_qqhv_rec_type.target_arrears;
1983 p6_a41 := ddx_qqhv_rec_type.target_periods;
1984 p6_a42 := ddx_qqhv_rec_type.iir;
1985 p6_a43 := ddx_qqhv_rec_type.sub_iir;
1986 p6_a44 := ddx_qqhv_rec_type.booking_yield;
1987 p6_a45 := ddx_qqhv_rec_type.sub_booking_yield;
1988 p6_a46 := ddx_qqhv_rec_type.pirr;
1989 p6_a47 := ddx_qqhv_rec_type.sub_pirr;
1990 p6_a48 := ddx_qqhv_rec_type.airr;
1991 p6_a49 := ddx_qqhv_rec_type.sub_airr;
1992 p6_a50 := ddx_qqhv_rec_type.short_description;
1993 p6_a51 := ddx_qqhv_rec_type.description;
1994 p6_a52 := ddx_qqhv_rec_type.comments;
1995 p6_a53 := ddx_qqhv_rec_type.sts_code;
1996 end;
1997
1998 end okl_quick_quotes_pvt_w;