[Home] [Help]
PACKAGE BODY: APPS.OKL_LEASE_QUOTE_PVT_W
Source
1 package body okl_lease_quote_pvt_w as
2 /* $Header: OKLELSQB.pls 120.7 2007/08/08 21:09:32 rravikir noship $ */
3 procedure create_lease_qte(p_api_version NUMBER
4 , p_init_msg_list VARCHAR2
5 , p_transaction_control VARCHAR2
6 , p3_a0 NUMBER
7 , p3_a1 NUMBER
8 , p3_a2 VARCHAR2
9 , p3_a3 VARCHAR2
10 , p3_a4 VARCHAR2
11 , p3_a5 VARCHAR2
12 , p3_a6 VARCHAR2
13 , p3_a7 VARCHAR2
14 , p3_a8 VARCHAR2
15 , p3_a9 VARCHAR2
16 , p3_a10 VARCHAR2
17 , p3_a11 VARCHAR2
18 , p3_a12 VARCHAR2
19 , p3_a13 VARCHAR2
20 , p3_a14 VARCHAR2
21 , p3_a15 VARCHAR2
22 , p3_a16 VARCHAR2
23 , p3_a17 VARCHAR2
24 , p3_a18 VARCHAR2
25 , p3_a19 VARCHAR2
26 , p3_a20 VARCHAR2
27 , p3_a21 NUMBER
28 , p3_a22 DATE
29 , p3_a23 DATE
30 , p3_a24 VARCHAR2
31 , p3_a25 VARCHAR2
32 , p3_a26 DATE
33 , p3_a27 DATE
34 , p3_a28 DATE
35 , p3_a29 VARCHAR2
36 , p3_a30 NUMBER
37 , p3_a31 NUMBER
38 , p3_a32 NUMBER
39 , p3_a33 VARCHAR2
40 , p3_a34 VARCHAR2
41 , p3_a35 NUMBER
42 , p3_a36 NUMBER
43 , p3_a37 NUMBER
44 , p3_a38 VARCHAR2
45 , p3_a39 NUMBER
46 , p3_a40 NUMBER
47 , p3_a41 VARCHAR2
48 , p3_a42 VARCHAR2
49 , p3_a43 NUMBER
50 , p3_a44 NUMBER
51 , p3_a45 NUMBER
52 , p3_a46 NUMBER
53 , p3_a47 NUMBER
54 , p3_a48 NUMBER
55 , p3_a49 NUMBER
56 , p3_a50 NUMBER
57 , p3_a51 NUMBER
58 , p3_a52 VARCHAR2
59 , p3_a53 VARCHAR2
60 , p3_a54 VARCHAR2
61 , p3_a55 NUMBER
62 , p3_a56 NUMBER
63 , p3_a57 VARCHAR2
64 , p3_a58 VARCHAR2
65 , p3_a59 VARCHAR2
66 , p3_a60 NUMBER
67 , p3_a61 VARCHAR2
68 , p3_a62 NUMBER
69 , p3_a63 VARCHAR2
70 , p3_a64 VARCHAR2
71 , p3_a65 VARCHAR2
72 , p3_a66 VARCHAR2
73 , p3_a67 NUMBER
74 , p3_a68 VARCHAR2
75 , p3_a69 VARCHAR2
76 , p3_a70 VARCHAR2
77 , p3_a71 VARCHAR2
78 , p4_a0 out nocopy NUMBER
79 , p4_a1 out nocopy NUMBER
80 , p4_a2 out nocopy VARCHAR2
81 , p4_a3 out nocopy VARCHAR2
82 , p4_a4 out nocopy VARCHAR2
83 , p4_a5 out nocopy VARCHAR2
84 , p4_a6 out nocopy VARCHAR2
85 , p4_a7 out nocopy VARCHAR2
86 , p4_a8 out nocopy VARCHAR2
87 , p4_a9 out nocopy VARCHAR2
88 , p4_a10 out nocopy VARCHAR2
89 , p4_a11 out nocopy VARCHAR2
90 , p4_a12 out nocopy VARCHAR2
91 , p4_a13 out nocopy VARCHAR2
92 , p4_a14 out nocopy VARCHAR2
93 , p4_a15 out nocopy VARCHAR2
94 , p4_a16 out nocopy VARCHAR2
95 , p4_a17 out nocopy VARCHAR2
96 , p4_a18 out nocopy VARCHAR2
97 , p4_a19 out nocopy VARCHAR2
98 , p4_a20 out nocopy VARCHAR2
99 , p4_a21 out nocopy NUMBER
100 , p4_a22 out nocopy DATE
101 , p4_a23 out nocopy DATE
102 , p4_a24 out nocopy VARCHAR2
103 , p4_a25 out nocopy VARCHAR2
104 , p4_a26 out nocopy DATE
105 , p4_a27 out nocopy DATE
106 , p4_a28 out nocopy DATE
107 , p4_a29 out nocopy VARCHAR2
108 , p4_a30 out nocopy NUMBER
109 , p4_a31 out nocopy NUMBER
110 , p4_a32 out nocopy NUMBER
111 , p4_a33 out nocopy VARCHAR2
112 , p4_a34 out nocopy VARCHAR2
113 , p4_a35 out nocopy NUMBER
114 , p4_a36 out nocopy NUMBER
115 , p4_a37 out nocopy NUMBER
116 , p4_a38 out nocopy VARCHAR2
117 , p4_a39 out nocopy NUMBER
118 , p4_a40 out nocopy NUMBER
119 , p4_a41 out nocopy VARCHAR2
120 , p4_a42 out nocopy VARCHAR2
121 , p4_a43 out nocopy NUMBER
122 , p4_a44 out nocopy NUMBER
123 , p4_a45 out nocopy NUMBER
124 , p4_a46 out nocopy NUMBER
125 , p4_a47 out nocopy NUMBER
126 , p4_a48 out nocopy NUMBER
127 , p4_a49 out nocopy NUMBER
128 , p4_a50 out nocopy NUMBER
129 , p4_a51 out nocopy NUMBER
130 , p4_a52 out nocopy VARCHAR2
131 , p4_a53 out nocopy VARCHAR2
132 , p4_a54 out nocopy VARCHAR2
133 , p4_a55 out nocopy NUMBER
134 , p4_a56 out nocopy NUMBER
135 , p4_a57 out nocopy VARCHAR2
136 , p4_a58 out nocopy VARCHAR2
137 , p4_a59 out nocopy VARCHAR2
138 , p4_a60 out nocopy NUMBER
139 , p4_a61 out nocopy VARCHAR2
140 , p4_a62 out nocopy NUMBER
141 , p4_a63 out nocopy VARCHAR2
142 , p4_a64 out nocopy VARCHAR2
143 , p4_a65 out nocopy VARCHAR2
144 , p4_a66 out nocopy VARCHAR2
145 , p4_a67 out nocopy NUMBER
146 , p4_a68 out nocopy VARCHAR2
147 , p4_a69 out nocopy VARCHAR2
148 , p4_a70 out nocopy VARCHAR2
149 , p4_a71 out nocopy VARCHAR2
150 , x_return_status out nocopy VARCHAR2
151 , x_msg_count out nocopy NUMBER
152 , x_msg_data out nocopy VARCHAR2
153 )
154
155 as
156 ddp_lease_qte_rec okl_lease_quote_pvt.lease_qte_rec_type;
157 ddx_lease_qte_rec okl_lease_quote_pvt.lease_qte_rec_type;
158 ddindx binary_integer; indx binary_integer;
159 begin
160
161 -- copy data to the local IN or IN-OUT args, if any
162
163
164
165 ddp_lease_qte_rec.id := p3_a0;
166 ddp_lease_qte_rec.object_version_number := p3_a1;
167 ddp_lease_qte_rec.attribute_category := p3_a2;
168 ddp_lease_qte_rec.attribute1 := p3_a3;
169 ddp_lease_qte_rec.attribute2 := p3_a4;
170 ddp_lease_qte_rec.attribute3 := p3_a5;
171 ddp_lease_qte_rec.attribute4 := p3_a6;
172 ddp_lease_qte_rec.attribute5 := p3_a7;
173 ddp_lease_qte_rec.attribute6 := p3_a8;
174 ddp_lease_qte_rec.attribute7 := p3_a9;
175 ddp_lease_qte_rec.attribute8 := p3_a10;
176 ddp_lease_qte_rec.attribute9 := p3_a11;
177 ddp_lease_qte_rec.attribute10 := p3_a12;
178 ddp_lease_qte_rec.attribute11 := p3_a13;
179 ddp_lease_qte_rec.attribute12 := p3_a14;
180 ddp_lease_qte_rec.attribute13 := p3_a15;
181 ddp_lease_qte_rec.attribute14 := p3_a16;
182 ddp_lease_qte_rec.attribute15 := p3_a17;
183 ddp_lease_qte_rec.reference_number := p3_a18;
184 ddp_lease_qte_rec.status := p3_a19;
185 ddp_lease_qte_rec.parent_object_code := p3_a20;
186 ddp_lease_qte_rec.parent_object_id := p3_a21;
187 ddp_lease_qte_rec.valid_from := p3_a22;
188 ddp_lease_qte_rec.valid_to := p3_a23;
189 ddp_lease_qte_rec.customer_bookclass := p3_a24;
190 ddp_lease_qte_rec.customer_taxowner := p3_a25;
191 ddp_lease_qte_rec.expected_start_date := p3_a26;
192 ddp_lease_qte_rec.expected_funding_date := p3_a27;
193 ddp_lease_qte_rec.expected_delivery_date := p3_a28;
194 ddp_lease_qte_rec.pricing_method := p3_a29;
195 ddp_lease_qte_rec.term := p3_a30;
196 ddp_lease_qte_rec.product_id := p3_a31;
197 ddp_lease_qte_rec.end_of_term_option_id := p3_a32;
198 ddp_lease_qte_rec.structured_pricing := p3_a33;
199 ddp_lease_qte_rec.line_level_pricing := p3_a34;
200 ddp_lease_qte_rec.rate_template_id := p3_a35;
201 ddp_lease_qte_rec.rate_card_id := p3_a36;
202 ddp_lease_qte_rec.lease_rate_factor := p3_a37;
203 ddp_lease_qte_rec.target_rate_type := p3_a38;
204 ddp_lease_qte_rec.target_rate := p3_a39;
205 ddp_lease_qte_rec.target_amount := p3_a40;
206 ddp_lease_qte_rec.target_frequency := p3_a41;
207 ddp_lease_qte_rec.target_arrears_yn := p3_a42;
208 ddp_lease_qte_rec.target_periods := p3_a43;
209 ddp_lease_qte_rec.iir := p3_a44;
210 ddp_lease_qte_rec.booking_yield := p3_a45;
211 ddp_lease_qte_rec.pirr := p3_a46;
212 ddp_lease_qte_rec.airr := p3_a47;
213 ddp_lease_qte_rec.sub_iir := p3_a48;
214 ddp_lease_qte_rec.sub_booking_yield := p3_a49;
215 ddp_lease_qte_rec.sub_pirr := p3_a50;
216 ddp_lease_qte_rec.sub_airr := p3_a51;
217 ddp_lease_qte_rec.usage_category := p3_a52;
218 ddp_lease_qte_rec.usage_industry_class := p3_a53;
219 ddp_lease_qte_rec.usage_industry_code := p3_a54;
220 ddp_lease_qte_rec.usage_amount := p3_a55;
221 ddp_lease_qte_rec.usage_location_id := p3_a56;
222 ddp_lease_qte_rec.property_tax_applicable := p3_a57;
223 ddp_lease_qte_rec.property_tax_billing_type := p3_a58;
224 ddp_lease_qte_rec.upfront_tax_treatment := p3_a59;
225 ddp_lease_qte_rec.upfront_tax_stream_type := p3_a60;
226 ddp_lease_qte_rec.transfer_of_title := p3_a61;
227 ddp_lease_qte_rec.age_of_equipment := p3_a62;
228 ddp_lease_qte_rec.purchase_of_lease := p3_a63;
229 ddp_lease_qte_rec.sale_and_lease_back := p3_a64;
230 ddp_lease_qte_rec.interest_disclosed := p3_a65;
231 ddp_lease_qte_rec.primary_quote := p3_a66;
232 ddp_lease_qte_rec.legal_entity_id := p3_a67;
233 ddp_lease_qte_rec.line_intended_use := p3_a68;
234 ddp_lease_qte_rec.short_description := p3_a69;
235 ddp_lease_qte_rec.description := p3_a70;
236 ddp_lease_qte_rec.comments := p3_a71;
237
238
239
240
241
242 -- here's the delegated call to the old PL/SQL routine
243 okl_lease_quote_pvt.create_lease_qte(p_api_version,
244 p_init_msg_list,
245 p_transaction_control,
246 ddp_lease_qte_rec,
247 ddx_lease_qte_rec,
248 x_return_status,
249 x_msg_count,
250 x_msg_data);
251
252 -- copy data back from the local variables to OUT or IN-OUT args, if any
253
254
255
256
257 p4_a0 := ddx_lease_qte_rec.id;
258 p4_a1 := ddx_lease_qte_rec.object_version_number;
259 p4_a2 := ddx_lease_qte_rec.attribute_category;
260 p4_a3 := ddx_lease_qte_rec.attribute1;
261 p4_a4 := ddx_lease_qte_rec.attribute2;
262 p4_a5 := ddx_lease_qte_rec.attribute3;
263 p4_a6 := ddx_lease_qte_rec.attribute4;
264 p4_a7 := ddx_lease_qte_rec.attribute5;
265 p4_a8 := ddx_lease_qte_rec.attribute6;
266 p4_a9 := ddx_lease_qte_rec.attribute7;
267 p4_a10 := ddx_lease_qte_rec.attribute8;
268 p4_a11 := ddx_lease_qte_rec.attribute9;
269 p4_a12 := ddx_lease_qte_rec.attribute10;
270 p4_a13 := ddx_lease_qte_rec.attribute11;
271 p4_a14 := ddx_lease_qte_rec.attribute12;
272 p4_a15 := ddx_lease_qte_rec.attribute13;
273 p4_a16 := ddx_lease_qte_rec.attribute14;
274 p4_a17 := ddx_lease_qte_rec.attribute15;
275 p4_a18 := ddx_lease_qte_rec.reference_number;
276 p4_a19 := ddx_lease_qte_rec.status;
277 p4_a20 := ddx_lease_qte_rec.parent_object_code;
278 p4_a21 := ddx_lease_qte_rec.parent_object_id;
279 p4_a22 := ddx_lease_qte_rec.valid_from;
280 p4_a23 := ddx_lease_qte_rec.valid_to;
281 p4_a24 := ddx_lease_qte_rec.customer_bookclass;
282 p4_a25 := ddx_lease_qte_rec.customer_taxowner;
283 p4_a26 := ddx_lease_qte_rec.expected_start_date;
284 p4_a27 := ddx_lease_qte_rec.expected_funding_date;
285 p4_a28 := ddx_lease_qte_rec.expected_delivery_date;
286 p4_a29 := ddx_lease_qte_rec.pricing_method;
287 p4_a30 := ddx_lease_qte_rec.term;
288 p4_a31 := ddx_lease_qte_rec.product_id;
289 p4_a32 := ddx_lease_qte_rec.end_of_term_option_id;
290 p4_a33 := ddx_lease_qte_rec.structured_pricing;
291 p4_a34 := ddx_lease_qte_rec.line_level_pricing;
292 p4_a35 := ddx_lease_qte_rec.rate_template_id;
293 p4_a36 := ddx_lease_qte_rec.rate_card_id;
294 p4_a37 := ddx_lease_qte_rec.lease_rate_factor;
295 p4_a38 := ddx_lease_qte_rec.target_rate_type;
296 p4_a39 := ddx_lease_qte_rec.target_rate;
297 p4_a40 := ddx_lease_qte_rec.target_amount;
298 p4_a41 := ddx_lease_qte_rec.target_frequency;
299 p4_a42 := ddx_lease_qte_rec.target_arrears_yn;
300 p4_a43 := ddx_lease_qte_rec.target_periods;
301 p4_a44 := ddx_lease_qte_rec.iir;
302 p4_a45 := ddx_lease_qte_rec.booking_yield;
303 p4_a46 := ddx_lease_qte_rec.pirr;
304 p4_a47 := ddx_lease_qte_rec.airr;
305 p4_a48 := ddx_lease_qte_rec.sub_iir;
306 p4_a49 := ddx_lease_qte_rec.sub_booking_yield;
307 p4_a50 := ddx_lease_qte_rec.sub_pirr;
308 p4_a51 := ddx_lease_qte_rec.sub_airr;
309 p4_a52 := ddx_lease_qte_rec.usage_category;
310 p4_a53 := ddx_lease_qte_rec.usage_industry_class;
311 p4_a54 := ddx_lease_qte_rec.usage_industry_code;
312 p4_a55 := ddx_lease_qte_rec.usage_amount;
313 p4_a56 := ddx_lease_qte_rec.usage_location_id;
314 p4_a57 := ddx_lease_qte_rec.property_tax_applicable;
315 p4_a58 := ddx_lease_qte_rec.property_tax_billing_type;
316 p4_a59 := ddx_lease_qte_rec.upfront_tax_treatment;
317 p4_a60 := ddx_lease_qte_rec.upfront_tax_stream_type;
318 p4_a61 := ddx_lease_qte_rec.transfer_of_title;
319 p4_a62 := ddx_lease_qte_rec.age_of_equipment;
320 p4_a63 := ddx_lease_qte_rec.purchase_of_lease;
321 p4_a64 := ddx_lease_qte_rec.sale_and_lease_back;
322 p4_a65 := ddx_lease_qte_rec.interest_disclosed;
323 p4_a66 := ddx_lease_qte_rec.primary_quote;
324 p4_a67 := ddx_lease_qte_rec.legal_entity_id;
325 p4_a68 := ddx_lease_qte_rec.line_intended_use;
326 p4_a69 := ddx_lease_qte_rec.short_description;
327 p4_a70 := ddx_lease_qte_rec.description;
328 p4_a71 := ddx_lease_qte_rec.comments;
329
330
331
332 end;
333
334 procedure update_lease_qte(p_api_version NUMBER
335 , p_init_msg_list VARCHAR2
336 , p_transaction_control VARCHAR2
337 , p3_a0 NUMBER
338 , p3_a1 NUMBER
339 , p3_a2 VARCHAR2
340 , p3_a3 VARCHAR2
341 , p3_a4 VARCHAR2
342 , p3_a5 VARCHAR2
343 , p3_a6 VARCHAR2
344 , p3_a7 VARCHAR2
345 , p3_a8 VARCHAR2
346 , p3_a9 VARCHAR2
347 , p3_a10 VARCHAR2
348 , p3_a11 VARCHAR2
349 , p3_a12 VARCHAR2
350 , p3_a13 VARCHAR2
351 , p3_a14 VARCHAR2
352 , p3_a15 VARCHAR2
353 , p3_a16 VARCHAR2
354 , p3_a17 VARCHAR2
355 , p3_a18 VARCHAR2
356 , p3_a19 VARCHAR2
357 , p3_a20 VARCHAR2
358 , p3_a21 NUMBER
359 , p3_a22 DATE
360 , p3_a23 DATE
361 , p3_a24 VARCHAR2
362 , p3_a25 VARCHAR2
363 , p3_a26 DATE
364 , p3_a27 DATE
365 , p3_a28 DATE
366 , p3_a29 VARCHAR2
367 , p3_a30 NUMBER
368 , p3_a31 NUMBER
369 , p3_a32 NUMBER
370 , p3_a33 VARCHAR2
371 , p3_a34 VARCHAR2
372 , p3_a35 NUMBER
373 , p3_a36 NUMBER
374 , p3_a37 NUMBER
375 , p3_a38 VARCHAR2
376 , p3_a39 NUMBER
377 , p3_a40 NUMBER
378 , p3_a41 VARCHAR2
379 , p3_a42 VARCHAR2
380 , p3_a43 NUMBER
381 , p3_a44 NUMBER
382 , p3_a45 NUMBER
383 , p3_a46 NUMBER
384 , p3_a47 NUMBER
385 , p3_a48 NUMBER
386 , p3_a49 NUMBER
387 , p3_a50 NUMBER
388 , p3_a51 NUMBER
389 , p3_a52 VARCHAR2
390 , p3_a53 VARCHAR2
391 , p3_a54 VARCHAR2
392 , p3_a55 NUMBER
393 , p3_a56 NUMBER
394 , p3_a57 VARCHAR2
395 , p3_a58 VARCHAR2
396 , p3_a59 VARCHAR2
397 , p3_a60 NUMBER
398 , p3_a61 VARCHAR2
399 , p3_a62 NUMBER
400 , p3_a63 VARCHAR2
401 , p3_a64 VARCHAR2
402 , p3_a65 VARCHAR2
403 , p3_a66 VARCHAR2
404 , p3_a67 NUMBER
405 , p3_a68 VARCHAR2
406 , p3_a69 VARCHAR2
407 , p3_a70 VARCHAR2
408 , p3_a71 VARCHAR2
409 , p4_a0 out nocopy NUMBER
410 , p4_a1 out nocopy NUMBER
411 , p4_a2 out nocopy VARCHAR2
412 , p4_a3 out nocopy VARCHAR2
413 , p4_a4 out nocopy VARCHAR2
414 , p4_a5 out nocopy VARCHAR2
415 , p4_a6 out nocopy VARCHAR2
416 , p4_a7 out nocopy VARCHAR2
417 , p4_a8 out nocopy VARCHAR2
418 , p4_a9 out nocopy VARCHAR2
419 , p4_a10 out nocopy VARCHAR2
420 , p4_a11 out nocopy VARCHAR2
421 , p4_a12 out nocopy VARCHAR2
422 , p4_a13 out nocopy VARCHAR2
423 , p4_a14 out nocopy VARCHAR2
424 , p4_a15 out nocopy VARCHAR2
425 , p4_a16 out nocopy VARCHAR2
426 , p4_a17 out nocopy VARCHAR2
427 , p4_a18 out nocopy VARCHAR2
428 , p4_a19 out nocopy VARCHAR2
429 , p4_a20 out nocopy VARCHAR2
430 , p4_a21 out nocopy NUMBER
431 , p4_a22 out nocopy DATE
432 , p4_a23 out nocopy DATE
433 , p4_a24 out nocopy VARCHAR2
434 , p4_a25 out nocopy VARCHAR2
435 , p4_a26 out nocopy DATE
436 , p4_a27 out nocopy DATE
437 , p4_a28 out nocopy DATE
438 , p4_a29 out nocopy VARCHAR2
439 , p4_a30 out nocopy NUMBER
440 , p4_a31 out nocopy NUMBER
441 , p4_a32 out nocopy NUMBER
442 , p4_a33 out nocopy VARCHAR2
443 , p4_a34 out nocopy VARCHAR2
444 , p4_a35 out nocopy NUMBER
445 , p4_a36 out nocopy NUMBER
446 , p4_a37 out nocopy NUMBER
447 , p4_a38 out nocopy VARCHAR2
448 , p4_a39 out nocopy NUMBER
449 , p4_a40 out nocopy NUMBER
450 , p4_a41 out nocopy VARCHAR2
451 , p4_a42 out nocopy VARCHAR2
452 , p4_a43 out nocopy NUMBER
453 , p4_a44 out nocopy NUMBER
454 , p4_a45 out nocopy NUMBER
455 , p4_a46 out nocopy NUMBER
456 , p4_a47 out nocopy NUMBER
457 , p4_a48 out nocopy NUMBER
458 , p4_a49 out nocopy NUMBER
459 , p4_a50 out nocopy NUMBER
460 , p4_a51 out nocopy NUMBER
461 , p4_a52 out nocopy VARCHAR2
462 , p4_a53 out nocopy VARCHAR2
463 , p4_a54 out nocopy VARCHAR2
464 , p4_a55 out nocopy NUMBER
465 , p4_a56 out nocopy NUMBER
466 , p4_a57 out nocopy VARCHAR2
467 , p4_a58 out nocopy VARCHAR2
468 , p4_a59 out nocopy VARCHAR2
469 , p4_a60 out nocopy NUMBER
470 , p4_a61 out nocopy VARCHAR2
471 , p4_a62 out nocopy NUMBER
472 , p4_a63 out nocopy VARCHAR2
473 , p4_a64 out nocopy VARCHAR2
474 , p4_a65 out nocopy VARCHAR2
475 , p4_a66 out nocopy VARCHAR2
476 , p4_a67 out nocopy NUMBER
477 , p4_a68 out nocopy VARCHAR2
478 , p4_a69 out nocopy VARCHAR2
479 , p4_a70 out nocopy VARCHAR2
480 , p4_a71 out nocopy VARCHAR2
481 , x_return_status out nocopy VARCHAR2
482 , x_msg_count out nocopy NUMBER
483 , x_msg_data out nocopy VARCHAR2
484 )
485
486 as
487 ddp_lease_qte_rec okl_lease_quote_pvt.lease_qte_rec_type;
488 ddx_lease_qte_rec okl_lease_quote_pvt.lease_qte_rec_type;
489 ddindx binary_integer; indx binary_integer;
490 begin
491
492 -- copy data to the local IN or IN-OUT args, if any
493
494
495
496 ddp_lease_qte_rec.id := p3_a0;
497 ddp_lease_qte_rec.object_version_number := p3_a1;
498 ddp_lease_qte_rec.attribute_category := p3_a2;
499 ddp_lease_qte_rec.attribute1 := p3_a3;
500 ddp_lease_qte_rec.attribute2 := p3_a4;
501 ddp_lease_qte_rec.attribute3 := p3_a5;
502 ddp_lease_qte_rec.attribute4 := p3_a6;
503 ddp_lease_qte_rec.attribute5 := p3_a7;
504 ddp_lease_qte_rec.attribute6 := p3_a8;
505 ddp_lease_qte_rec.attribute7 := p3_a9;
506 ddp_lease_qte_rec.attribute8 := p3_a10;
507 ddp_lease_qte_rec.attribute9 := p3_a11;
508 ddp_lease_qte_rec.attribute10 := p3_a12;
509 ddp_lease_qte_rec.attribute11 := p3_a13;
510 ddp_lease_qte_rec.attribute12 := p3_a14;
511 ddp_lease_qte_rec.attribute13 := p3_a15;
512 ddp_lease_qte_rec.attribute14 := p3_a16;
513 ddp_lease_qte_rec.attribute15 := p3_a17;
514 ddp_lease_qte_rec.reference_number := p3_a18;
515 ddp_lease_qte_rec.status := p3_a19;
516 ddp_lease_qte_rec.parent_object_code := p3_a20;
517 ddp_lease_qte_rec.parent_object_id := p3_a21;
518 ddp_lease_qte_rec.valid_from := p3_a22;
519 ddp_lease_qte_rec.valid_to := p3_a23;
520 ddp_lease_qte_rec.customer_bookclass := p3_a24;
521 ddp_lease_qte_rec.customer_taxowner := p3_a25;
522 ddp_lease_qte_rec.expected_start_date := p3_a26;
523 ddp_lease_qte_rec.expected_funding_date := p3_a27;
524 ddp_lease_qte_rec.expected_delivery_date := p3_a28;
525 ddp_lease_qte_rec.pricing_method := p3_a29;
526 ddp_lease_qte_rec.term := p3_a30;
527 ddp_lease_qte_rec.product_id := p3_a31;
528 ddp_lease_qte_rec.end_of_term_option_id := p3_a32;
529 ddp_lease_qte_rec.structured_pricing := p3_a33;
530 ddp_lease_qte_rec.line_level_pricing := p3_a34;
531 ddp_lease_qte_rec.rate_template_id := p3_a35;
532 ddp_lease_qte_rec.rate_card_id := p3_a36;
533 ddp_lease_qte_rec.lease_rate_factor := p3_a37;
534 ddp_lease_qte_rec.target_rate_type := p3_a38;
535 ddp_lease_qte_rec.target_rate := p3_a39;
536 ddp_lease_qte_rec.target_amount := p3_a40;
537 ddp_lease_qte_rec.target_frequency := p3_a41;
538 ddp_lease_qte_rec.target_arrears_yn := p3_a42;
539 ddp_lease_qte_rec.target_periods := p3_a43;
540 ddp_lease_qte_rec.iir := p3_a44;
541 ddp_lease_qte_rec.booking_yield := p3_a45;
542 ddp_lease_qte_rec.pirr := p3_a46;
543 ddp_lease_qte_rec.airr := p3_a47;
544 ddp_lease_qte_rec.sub_iir := p3_a48;
545 ddp_lease_qte_rec.sub_booking_yield := p3_a49;
546 ddp_lease_qte_rec.sub_pirr := p3_a50;
547 ddp_lease_qte_rec.sub_airr := p3_a51;
548 ddp_lease_qte_rec.usage_category := p3_a52;
549 ddp_lease_qte_rec.usage_industry_class := p3_a53;
550 ddp_lease_qte_rec.usage_industry_code := p3_a54;
551 ddp_lease_qte_rec.usage_amount := p3_a55;
552 ddp_lease_qte_rec.usage_location_id := p3_a56;
553 ddp_lease_qte_rec.property_tax_applicable := p3_a57;
554 ddp_lease_qte_rec.property_tax_billing_type := p3_a58;
555 ddp_lease_qte_rec.upfront_tax_treatment := p3_a59;
556 ddp_lease_qte_rec.upfront_tax_stream_type := p3_a60;
557 ddp_lease_qte_rec.transfer_of_title := p3_a61;
558 ddp_lease_qte_rec.age_of_equipment := p3_a62;
559 ddp_lease_qte_rec.purchase_of_lease := p3_a63;
560 ddp_lease_qte_rec.sale_and_lease_back := p3_a64;
561 ddp_lease_qte_rec.interest_disclosed := p3_a65;
562 ddp_lease_qte_rec.primary_quote := p3_a66;
563 ddp_lease_qte_rec.legal_entity_id := p3_a67;
564 ddp_lease_qte_rec.line_intended_use := p3_a68;
565 ddp_lease_qte_rec.short_description := p3_a69;
566 ddp_lease_qte_rec.description := p3_a70;
567 ddp_lease_qte_rec.comments := p3_a71;
568
569
570
571
572
573 -- here's the delegated call to the old PL/SQL routine
574 okl_lease_quote_pvt.update_lease_qte(p_api_version,
575 p_init_msg_list,
576 p_transaction_control,
577 ddp_lease_qte_rec,
578 ddx_lease_qte_rec,
579 x_return_status,
580 x_msg_count,
581 x_msg_data);
582
583 -- copy data back from the local variables to OUT or IN-OUT args, if any
584
585
586
587
588 p4_a0 := ddx_lease_qte_rec.id;
589 p4_a1 := ddx_lease_qte_rec.object_version_number;
590 p4_a2 := ddx_lease_qte_rec.attribute_category;
591 p4_a3 := ddx_lease_qte_rec.attribute1;
592 p4_a4 := ddx_lease_qte_rec.attribute2;
593 p4_a5 := ddx_lease_qte_rec.attribute3;
594 p4_a6 := ddx_lease_qte_rec.attribute4;
595 p4_a7 := ddx_lease_qte_rec.attribute5;
596 p4_a8 := ddx_lease_qte_rec.attribute6;
597 p4_a9 := ddx_lease_qte_rec.attribute7;
598 p4_a10 := ddx_lease_qte_rec.attribute8;
599 p4_a11 := ddx_lease_qte_rec.attribute9;
600 p4_a12 := ddx_lease_qte_rec.attribute10;
601 p4_a13 := ddx_lease_qte_rec.attribute11;
602 p4_a14 := ddx_lease_qte_rec.attribute12;
603 p4_a15 := ddx_lease_qte_rec.attribute13;
604 p4_a16 := ddx_lease_qte_rec.attribute14;
605 p4_a17 := ddx_lease_qte_rec.attribute15;
606 p4_a18 := ddx_lease_qte_rec.reference_number;
607 p4_a19 := ddx_lease_qte_rec.status;
608 p4_a20 := ddx_lease_qte_rec.parent_object_code;
609 p4_a21 := ddx_lease_qte_rec.parent_object_id;
610 p4_a22 := ddx_lease_qte_rec.valid_from;
611 p4_a23 := ddx_lease_qte_rec.valid_to;
612 p4_a24 := ddx_lease_qte_rec.customer_bookclass;
613 p4_a25 := ddx_lease_qte_rec.customer_taxowner;
614 p4_a26 := ddx_lease_qte_rec.expected_start_date;
615 p4_a27 := ddx_lease_qte_rec.expected_funding_date;
616 p4_a28 := ddx_lease_qte_rec.expected_delivery_date;
617 p4_a29 := ddx_lease_qte_rec.pricing_method;
618 p4_a30 := ddx_lease_qte_rec.term;
619 p4_a31 := ddx_lease_qte_rec.product_id;
620 p4_a32 := ddx_lease_qte_rec.end_of_term_option_id;
621 p4_a33 := ddx_lease_qte_rec.structured_pricing;
622 p4_a34 := ddx_lease_qte_rec.line_level_pricing;
623 p4_a35 := ddx_lease_qte_rec.rate_template_id;
624 p4_a36 := ddx_lease_qte_rec.rate_card_id;
625 p4_a37 := ddx_lease_qte_rec.lease_rate_factor;
626 p4_a38 := ddx_lease_qte_rec.target_rate_type;
627 p4_a39 := ddx_lease_qte_rec.target_rate;
628 p4_a40 := ddx_lease_qte_rec.target_amount;
629 p4_a41 := ddx_lease_qte_rec.target_frequency;
630 p4_a42 := ddx_lease_qte_rec.target_arrears_yn;
631 p4_a43 := ddx_lease_qte_rec.target_periods;
632 p4_a44 := ddx_lease_qte_rec.iir;
633 p4_a45 := ddx_lease_qte_rec.booking_yield;
634 p4_a46 := ddx_lease_qte_rec.pirr;
635 p4_a47 := ddx_lease_qte_rec.airr;
636 p4_a48 := ddx_lease_qte_rec.sub_iir;
637 p4_a49 := ddx_lease_qte_rec.sub_booking_yield;
638 p4_a50 := ddx_lease_qte_rec.sub_pirr;
639 p4_a51 := ddx_lease_qte_rec.sub_airr;
640 p4_a52 := ddx_lease_qte_rec.usage_category;
641 p4_a53 := ddx_lease_qte_rec.usage_industry_class;
642 p4_a54 := ddx_lease_qte_rec.usage_industry_code;
643 p4_a55 := ddx_lease_qte_rec.usage_amount;
644 p4_a56 := ddx_lease_qte_rec.usage_location_id;
645 p4_a57 := ddx_lease_qte_rec.property_tax_applicable;
646 p4_a58 := ddx_lease_qte_rec.property_tax_billing_type;
647 p4_a59 := ddx_lease_qte_rec.upfront_tax_treatment;
648 p4_a60 := ddx_lease_qte_rec.upfront_tax_stream_type;
649 p4_a61 := ddx_lease_qte_rec.transfer_of_title;
650 p4_a62 := ddx_lease_qte_rec.age_of_equipment;
651 p4_a63 := ddx_lease_qte_rec.purchase_of_lease;
652 p4_a64 := ddx_lease_qte_rec.sale_and_lease_back;
653 p4_a65 := ddx_lease_qte_rec.interest_disclosed;
654 p4_a66 := ddx_lease_qte_rec.primary_quote;
655 p4_a67 := ddx_lease_qte_rec.legal_entity_id;
656 p4_a68 := ddx_lease_qte_rec.line_intended_use;
657 p4_a69 := ddx_lease_qte_rec.short_description;
658 p4_a70 := ddx_lease_qte_rec.description;
659 p4_a71 := ddx_lease_qte_rec.comments;
660
661
662
663 end;
664
665 procedure duplicate_lease_qte(p_api_version NUMBER
666 , p_init_msg_list VARCHAR2
667 , p_transaction_control VARCHAR2
668 , p_source_quote_id NUMBER
669 , p4_a0 NUMBER
670 , p4_a1 NUMBER
671 , p4_a2 VARCHAR2
672 , p4_a3 VARCHAR2
673 , p4_a4 VARCHAR2
674 , p4_a5 VARCHAR2
675 , p4_a6 VARCHAR2
676 , p4_a7 VARCHAR2
677 , p4_a8 VARCHAR2
678 , p4_a9 VARCHAR2
679 , p4_a10 VARCHAR2
680 , p4_a11 VARCHAR2
681 , p4_a12 VARCHAR2
682 , p4_a13 VARCHAR2
683 , p4_a14 VARCHAR2
684 , p4_a15 VARCHAR2
685 , p4_a16 VARCHAR2
686 , p4_a17 VARCHAR2
687 , p4_a18 VARCHAR2
688 , p4_a19 VARCHAR2
689 , p4_a20 VARCHAR2
690 , p4_a21 NUMBER
691 , p4_a22 DATE
692 , p4_a23 DATE
693 , p4_a24 VARCHAR2
694 , p4_a25 VARCHAR2
695 , p4_a26 DATE
696 , p4_a27 DATE
697 , p4_a28 DATE
698 , p4_a29 VARCHAR2
699 , p4_a30 NUMBER
700 , p4_a31 NUMBER
701 , p4_a32 NUMBER
702 , p4_a33 VARCHAR2
703 , p4_a34 VARCHAR2
704 , p4_a35 NUMBER
705 , p4_a36 NUMBER
706 , p4_a37 NUMBER
707 , p4_a38 VARCHAR2
708 , p4_a39 NUMBER
709 , p4_a40 NUMBER
710 , p4_a41 VARCHAR2
711 , p4_a42 VARCHAR2
712 , p4_a43 NUMBER
713 , p4_a44 NUMBER
714 , p4_a45 NUMBER
715 , p4_a46 NUMBER
716 , p4_a47 NUMBER
717 , p4_a48 NUMBER
718 , p4_a49 NUMBER
719 , p4_a50 NUMBER
720 , p4_a51 NUMBER
721 , p4_a52 VARCHAR2
722 , p4_a53 VARCHAR2
723 , p4_a54 VARCHAR2
724 , p4_a55 NUMBER
725 , p4_a56 NUMBER
726 , p4_a57 VARCHAR2
727 , p4_a58 VARCHAR2
728 , p4_a59 VARCHAR2
729 , p4_a60 NUMBER
730 , p4_a61 VARCHAR2
731 , p4_a62 NUMBER
732 , p4_a63 VARCHAR2
733 , p4_a64 VARCHAR2
734 , p4_a65 VARCHAR2
735 , p4_a66 VARCHAR2
736 , p4_a67 NUMBER
737 , p4_a68 VARCHAR2
738 , p4_a69 VARCHAR2
739 , p4_a70 VARCHAR2
740 , p4_a71 VARCHAR2
741 , p5_a0 out nocopy NUMBER
742 , p5_a1 out nocopy NUMBER
743 , p5_a2 out nocopy VARCHAR2
744 , p5_a3 out nocopy VARCHAR2
745 , p5_a4 out nocopy VARCHAR2
746 , p5_a5 out nocopy VARCHAR2
747 , p5_a6 out nocopy VARCHAR2
748 , p5_a7 out nocopy VARCHAR2
749 , p5_a8 out nocopy VARCHAR2
750 , p5_a9 out nocopy VARCHAR2
751 , p5_a10 out nocopy VARCHAR2
752 , p5_a11 out nocopy VARCHAR2
753 , p5_a12 out nocopy VARCHAR2
754 , p5_a13 out nocopy VARCHAR2
755 , p5_a14 out nocopy VARCHAR2
756 , p5_a15 out nocopy VARCHAR2
757 , p5_a16 out nocopy VARCHAR2
758 , p5_a17 out nocopy VARCHAR2
759 , p5_a18 out nocopy VARCHAR2
760 , p5_a19 out nocopy VARCHAR2
761 , p5_a20 out nocopy VARCHAR2
762 , p5_a21 out nocopy NUMBER
763 , p5_a22 out nocopy DATE
764 , p5_a23 out nocopy DATE
765 , p5_a24 out nocopy VARCHAR2
766 , p5_a25 out nocopy VARCHAR2
767 , p5_a26 out nocopy DATE
768 , p5_a27 out nocopy DATE
769 , p5_a28 out nocopy DATE
770 , p5_a29 out nocopy VARCHAR2
771 , p5_a30 out nocopy NUMBER
772 , p5_a31 out nocopy NUMBER
773 , p5_a32 out nocopy NUMBER
774 , p5_a33 out nocopy VARCHAR2
775 , p5_a34 out nocopy VARCHAR2
776 , p5_a35 out nocopy NUMBER
777 , p5_a36 out nocopy NUMBER
778 , p5_a37 out nocopy NUMBER
779 , p5_a38 out nocopy VARCHAR2
780 , p5_a39 out nocopy NUMBER
781 , p5_a40 out nocopy NUMBER
782 , p5_a41 out nocopy VARCHAR2
783 , p5_a42 out nocopy VARCHAR2
784 , p5_a43 out nocopy NUMBER
785 , p5_a44 out nocopy NUMBER
786 , p5_a45 out nocopy NUMBER
787 , p5_a46 out nocopy NUMBER
788 , p5_a47 out nocopy NUMBER
789 , p5_a48 out nocopy NUMBER
790 , p5_a49 out nocopy NUMBER
791 , p5_a50 out nocopy NUMBER
792 , p5_a51 out nocopy NUMBER
793 , p5_a52 out nocopy VARCHAR2
794 , p5_a53 out nocopy VARCHAR2
795 , p5_a54 out nocopy VARCHAR2
796 , p5_a55 out nocopy NUMBER
797 , p5_a56 out nocopy NUMBER
798 , p5_a57 out nocopy VARCHAR2
799 , p5_a58 out nocopy VARCHAR2
800 , p5_a59 out nocopy VARCHAR2
801 , p5_a60 out nocopy NUMBER
802 , p5_a61 out nocopy VARCHAR2
803 , p5_a62 out nocopy NUMBER
804 , p5_a63 out nocopy VARCHAR2
805 , p5_a64 out nocopy VARCHAR2
806 , p5_a65 out nocopy VARCHAR2
807 , p5_a66 out nocopy VARCHAR2
808 , p5_a67 out nocopy NUMBER
809 , p5_a68 out nocopy VARCHAR2
810 , p5_a69 out nocopy VARCHAR2
811 , p5_a70 out nocopy VARCHAR2
812 , p5_a71 out nocopy VARCHAR2
813 , x_return_status out nocopy VARCHAR2
814 , x_msg_count out nocopy NUMBER
815 , x_msg_data out nocopy VARCHAR2
816 )
817
818 as
819 ddp_lease_qte_rec okl_lease_quote_pvt.lease_qte_rec_type;
820 ddx_lease_qte_rec okl_lease_quote_pvt.lease_qte_rec_type;
821 ddindx binary_integer; indx binary_integer;
822 begin
823
824 -- copy data to the local IN or IN-OUT args, if any
825
826
827
828
829 ddp_lease_qte_rec.id := p4_a0;
830 ddp_lease_qte_rec.object_version_number := p4_a1;
831 ddp_lease_qte_rec.attribute_category := p4_a2;
832 ddp_lease_qte_rec.attribute1 := p4_a3;
833 ddp_lease_qte_rec.attribute2 := p4_a4;
834 ddp_lease_qte_rec.attribute3 := p4_a5;
835 ddp_lease_qte_rec.attribute4 := p4_a6;
836 ddp_lease_qte_rec.attribute5 := p4_a7;
837 ddp_lease_qte_rec.attribute6 := p4_a8;
838 ddp_lease_qte_rec.attribute7 := p4_a9;
839 ddp_lease_qte_rec.attribute8 := p4_a10;
840 ddp_lease_qte_rec.attribute9 := p4_a11;
841 ddp_lease_qte_rec.attribute10 := p4_a12;
842 ddp_lease_qte_rec.attribute11 := p4_a13;
843 ddp_lease_qte_rec.attribute12 := p4_a14;
844 ddp_lease_qte_rec.attribute13 := p4_a15;
845 ddp_lease_qte_rec.attribute14 := p4_a16;
846 ddp_lease_qte_rec.attribute15 := p4_a17;
847 ddp_lease_qte_rec.reference_number := p4_a18;
848 ddp_lease_qte_rec.status := p4_a19;
849 ddp_lease_qte_rec.parent_object_code := p4_a20;
850 ddp_lease_qte_rec.parent_object_id := p4_a21;
851 ddp_lease_qte_rec.valid_from := p4_a22;
852 ddp_lease_qte_rec.valid_to := p4_a23;
853 ddp_lease_qte_rec.customer_bookclass := p4_a24;
854 ddp_lease_qte_rec.customer_taxowner := p4_a25;
855 ddp_lease_qte_rec.expected_start_date := p4_a26;
856 ddp_lease_qte_rec.expected_funding_date := p4_a27;
857 ddp_lease_qte_rec.expected_delivery_date := p4_a28;
858 ddp_lease_qte_rec.pricing_method := p4_a29;
859 ddp_lease_qte_rec.term := p4_a30;
860 ddp_lease_qte_rec.product_id := p4_a31;
861 ddp_lease_qte_rec.end_of_term_option_id := p4_a32;
862 ddp_lease_qte_rec.structured_pricing := p4_a33;
863 ddp_lease_qte_rec.line_level_pricing := p4_a34;
864 ddp_lease_qte_rec.rate_template_id := p4_a35;
865 ddp_lease_qte_rec.rate_card_id := p4_a36;
866 ddp_lease_qte_rec.lease_rate_factor := p4_a37;
867 ddp_lease_qte_rec.target_rate_type := p4_a38;
868 ddp_lease_qte_rec.target_rate := p4_a39;
869 ddp_lease_qte_rec.target_amount := p4_a40;
870 ddp_lease_qte_rec.target_frequency := p4_a41;
871 ddp_lease_qte_rec.target_arrears_yn := p4_a42;
872 ddp_lease_qte_rec.target_periods := p4_a43;
873 ddp_lease_qte_rec.iir := p4_a44;
874 ddp_lease_qte_rec.booking_yield := p4_a45;
875 ddp_lease_qte_rec.pirr := p4_a46;
876 ddp_lease_qte_rec.airr := p4_a47;
877 ddp_lease_qte_rec.sub_iir := p4_a48;
878 ddp_lease_qte_rec.sub_booking_yield := p4_a49;
879 ddp_lease_qte_rec.sub_pirr := p4_a50;
880 ddp_lease_qte_rec.sub_airr := p4_a51;
881 ddp_lease_qte_rec.usage_category := p4_a52;
882 ddp_lease_qte_rec.usage_industry_class := p4_a53;
883 ddp_lease_qte_rec.usage_industry_code := p4_a54;
884 ddp_lease_qte_rec.usage_amount := p4_a55;
885 ddp_lease_qte_rec.usage_location_id := p4_a56;
886 ddp_lease_qte_rec.property_tax_applicable := p4_a57;
887 ddp_lease_qte_rec.property_tax_billing_type := p4_a58;
888 ddp_lease_qte_rec.upfront_tax_treatment := p4_a59;
889 ddp_lease_qte_rec.upfront_tax_stream_type := p4_a60;
890 ddp_lease_qte_rec.transfer_of_title := p4_a61;
891 ddp_lease_qte_rec.age_of_equipment := p4_a62;
892 ddp_lease_qte_rec.purchase_of_lease := p4_a63;
893 ddp_lease_qte_rec.sale_and_lease_back := p4_a64;
894 ddp_lease_qte_rec.interest_disclosed := p4_a65;
895 ddp_lease_qte_rec.primary_quote := p4_a66;
896 ddp_lease_qte_rec.legal_entity_id := p4_a67;
897 ddp_lease_qte_rec.line_intended_use := p4_a68;
898 ddp_lease_qte_rec.short_description := p4_a69;
899 ddp_lease_qte_rec.description := p4_a70;
900 ddp_lease_qte_rec.comments := p4_a71;
901
902
903
904
905
906 -- here's the delegated call to the old PL/SQL routine
907 okl_lease_quote_pvt.duplicate_lease_qte(p_api_version,
908 p_init_msg_list,
909 p_transaction_control,
910 p_source_quote_id,
911 ddp_lease_qte_rec,
912 ddx_lease_qte_rec,
913 x_return_status,
914 x_msg_count,
915 x_msg_data);
916
917 -- copy data back from the local variables to OUT or IN-OUT args, if any
918
919
920
921
922
923 p5_a0 := ddx_lease_qte_rec.id;
924 p5_a1 := ddx_lease_qte_rec.object_version_number;
925 p5_a2 := ddx_lease_qte_rec.attribute_category;
926 p5_a3 := ddx_lease_qte_rec.attribute1;
927 p5_a4 := ddx_lease_qte_rec.attribute2;
928 p5_a5 := ddx_lease_qte_rec.attribute3;
929 p5_a6 := ddx_lease_qte_rec.attribute4;
930 p5_a7 := ddx_lease_qte_rec.attribute5;
931 p5_a8 := ddx_lease_qte_rec.attribute6;
932 p5_a9 := ddx_lease_qte_rec.attribute7;
933 p5_a10 := ddx_lease_qte_rec.attribute8;
934 p5_a11 := ddx_lease_qte_rec.attribute9;
935 p5_a12 := ddx_lease_qte_rec.attribute10;
936 p5_a13 := ddx_lease_qte_rec.attribute11;
937 p5_a14 := ddx_lease_qte_rec.attribute12;
938 p5_a15 := ddx_lease_qte_rec.attribute13;
939 p5_a16 := ddx_lease_qte_rec.attribute14;
940 p5_a17 := ddx_lease_qte_rec.attribute15;
941 p5_a18 := ddx_lease_qte_rec.reference_number;
942 p5_a19 := ddx_lease_qte_rec.status;
943 p5_a20 := ddx_lease_qte_rec.parent_object_code;
944 p5_a21 := ddx_lease_qte_rec.parent_object_id;
945 p5_a22 := ddx_lease_qte_rec.valid_from;
946 p5_a23 := ddx_lease_qte_rec.valid_to;
947 p5_a24 := ddx_lease_qte_rec.customer_bookclass;
948 p5_a25 := ddx_lease_qte_rec.customer_taxowner;
949 p5_a26 := ddx_lease_qte_rec.expected_start_date;
950 p5_a27 := ddx_lease_qte_rec.expected_funding_date;
951 p5_a28 := ddx_lease_qte_rec.expected_delivery_date;
952 p5_a29 := ddx_lease_qte_rec.pricing_method;
953 p5_a30 := ddx_lease_qte_rec.term;
954 p5_a31 := ddx_lease_qte_rec.product_id;
955 p5_a32 := ddx_lease_qte_rec.end_of_term_option_id;
956 p5_a33 := ddx_lease_qte_rec.structured_pricing;
957 p5_a34 := ddx_lease_qte_rec.line_level_pricing;
958 p5_a35 := ddx_lease_qte_rec.rate_template_id;
959 p5_a36 := ddx_lease_qte_rec.rate_card_id;
960 p5_a37 := ddx_lease_qte_rec.lease_rate_factor;
961 p5_a38 := ddx_lease_qte_rec.target_rate_type;
962 p5_a39 := ddx_lease_qte_rec.target_rate;
963 p5_a40 := ddx_lease_qte_rec.target_amount;
964 p5_a41 := ddx_lease_qte_rec.target_frequency;
965 p5_a42 := ddx_lease_qte_rec.target_arrears_yn;
966 p5_a43 := ddx_lease_qte_rec.target_periods;
967 p5_a44 := ddx_lease_qte_rec.iir;
968 p5_a45 := ddx_lease_qte_rec.booking_yield;
969 p5_a46 := ddx_lease_qte_rec.pirr;
970 p5_a47 := ddx_lease_qte_rec.airr;
971 p5_a48 := ddx_lease_qte_rec.sub_iir;
972 p5_a49 := ddx_lease_qte_rec.sub_booking_yield;
973 p5_a50 := ddx_lease_qte_rec.sub_pirr;
974 p5_a51 := ddx_lease_qte_rec.sub_airr;
975 p5_a52 := ddx_lease_qte_rec.usage_category;
976 p5_a53 := ddx_lease_qte_rec.usage_industry_class;
977 p5_a54 := ddx_lease_qte_rec.usage_industry_code;
978 p5_a55 := ddx_lease_qte_rec.usage_amount;
979 p5_a56 := ddx_lease_qte_rec.usage_location_id;
980 p5_a57 := ddx_lease_qte_rec.property_tax_applicable;
981 p5_a58 := ddx_lease_qte_rec.property_tax_billing_type;
982 p5_a59 := ddx_lease_qte_rec.upfront_tax_treatment;
983 p5_a60 := ddx_lease_qte_rec.upfront_tax_stream_type;
984 p5_a61 := ddx_lease_qte_rec.transfer_of_title;
985 p5_a62 := ddx_lease_qte_rec.age_of_equipment;
986 p5_a63 := ddx_lease_qte_rec.purchase_of_lease;
987 p5_a64 := ddx_lease_qte_rec.sale_and_lease_back;
988 p5_a65 := ddx_lease_qte_rec.interest_disclosed;
989 p5_a66 := ddx_lease_qte_rec.primary_quote;
990 p5_a67 := ddx_lease_qte_rec.legal_entity_id;
991 p5_a68 := ddx_lease_qte_rec.line_intended_use;
992 p5_a69 := ddx_lease_qte_rec.short_description;
993 p5_a70 := ddx_lease_qte_rec.description;
994 p5_a71 := ddx_lease_qte_rec.comments;
995
996
997
998 end;
999
1000 procedure duplicate_lease_qte(p_api_version NUMBER
1001 , p_init_msg_list VARCHAR2
1002 , p_transaction_control VARCHAR2
1003 , p_quote_id NUMBER
1004 , p4_a0 out nocopy NUMBER
1005 , p4_a1 out nocopy NUMBER
1006 , p4_a2 out nocopy VARCHAR2
1007 , p4_a3 out nocopy VARCHAR2
1008 , p4_a4 out nocopy VARCHAR2
1009 , p4_a5 out nocopy VARCHAR2
1010 , p4_a6 out nocopy VARCHAR2
1011 , p4_a7 out nocopy VARCHAR2
1012 , p4_a8 out nocopy VARCHAR2
1013 , p4_a9 out nocopy VARCHAR2
1014 , p4_a10 out nocopy VARCHAR2
1015 , p4_a11 out nocopy VARCHAR2
1016 , p4_a12 out nocopy VARCHAR2
1017 , p4_a13 out nocopy VARCHAR2
1018 , p4_a14 out nocopy VARCHAR2
1019 , p4_a15 out nocopy VARCHAR2
1020 , p4_a16 out nocopy VARCHAR2
1021 , p4_a17 out nocopy VARCHAR2
1022 , p4_a18 out nocopy VARCHAR2
1023 , p4_a19 out nocopy VARCHAR2
1024 , p4_a20 out nocopy VARCHAR2
1025 , p4_a21 out nocopy NUMBER
1026 , p4_a22 out nocopy DATE
1027 , p4_a23 out nocopy DATE
1028 , p4_a24 out nocopy VARCHAR2
1029 , p4_a25 out nocopy VARCHAR2
1030 , p4_a26 out nocopy DATE
1031 , p4_a27 out nocopy DATE
1032 , p4_a28 out nocopy DATE
1033 , p4_a29 out nocopy VARCHAR2
1034 , p4_a30 out nocopy NUMBER
1035 , p4_a31 out nocopy NUMBER
1036 , p4_a32 out nocopy NUMBER
1037 , p4_a33 out nocopy VARCHAR2
1038 , p4_a34 out nocopy VARCHAR2
1039 , p4_a35 out nocopy NUMBER
1040 , p4_a36 out nocopy NUMBER
1041 , p4_a37 out nocopy NUMBER
1042 , p4_a38 out nocopy VARCHAR2
1043 , p4_a39 out nocopy NUMBER
1044 , p4_a40 out nocopy NUMBER
1045 , p4_a41 out nocopy VARCHAR2
1046 , p4_a42 out nocopy VARCHAR2
1047 , p4_a43 out nocopy NUMBER
1048 , p4_a44 out nocopy NUMBER
1049 , p4_a45 out nocopy NUMBER
1050 , p4_a46 out nocopy NUMBER
1051 , p4_a47 out nocopy NUMBER
1052 , p4_a48 out nocopy NUMBER
1053 , p4_a49 out nocopy NUMBER
1054 , p4_a50 out nocopy NUMBER
1055 , p4_a51 out nocopy NUMBER
1056 , p4_a52 out nocopy VARCHAR2
1057 , p4_a53 out nocopy VARCHAR2
1058 , p4_a54 out nocopy VARCHAR2
1059 , p4_a55 out nocopy NUMBER
1060 , p4_a56 out nocopy NUMBER
1061 , p4_a57 out nocopy VARCHAR2
1062 , p4_a58 out nocopy VARCHAR2
1063 , p4_a59 out nocopy VARCHAR2
1064 , p4_a60 out nocopy NUMBER
1065 , p4_a61 out nocopy VARCHAR2
1066 , p4_a62 out nocopy NUMBER
1067 , p4_a63 out nocopy VARCHAR2
1068 , p4_a64 out nocopy VARCHAR2
1069 , p4_a65 out nocopy VARCHAR2
1070 , p4_a66 out nocopy VARCHAR2
1071 , p4_a67 out nocopy NUMBER
1072 , p4_a68 out nocopy VARCHAR2
1073 , p4_a69 out nocopy VARCHAR2
1074 , p4_a70 out nocopy VARCHAR2
1075 , p4_a71 out nocopy VARCHAR2
1076 , x_return_status out nocopy VARCHAR2
1077 , x_msg_count out nocopy NUMBER
1078 , x_msg_data out nocopy VARCHAR2
1079 )
1080
1081 as
1082 ddx_lease_qte_rec okl_lease_quote_pvt.lease_qte_rec_type;
1083 ddindx binary_integer; indx binary_integer;
1084 begin
1085
1086 -- copy data to the local IN or IN-OUT args, if any
1087
1088
1089
1090
1091
1092
1093
1094
1095 -- here's the delegated call to the old PL/SQL routine
1096 okl_lease_quote_pvt.duplicate_lease_qte(p_api_version,
1097 p_init_msg_list,
1098 p_transaction_control,
1099 p_quote_id,
1100 ddx_lease_qte_rec,
1101 x_return_status,
1102 x_msg_count,
1103 x_msg_data);
1104
1105 -- copy data back from the local variables to OUT or IN-OUT args, if any
1106
1107
1108
1109
1110 p4_a0 := ddx_lease_qte_rec.id;
1111 p4_a1 := ddx_lease_qte_rec.object_version_number;
1112 p4_a2 := ddx_lease_qte_rec.attribute_category;
1113 p4_a3 := ddx_lease_qte_rec.attribute1;
1114 p4_a4 := ddx_lease_qte_rec.attribute2;
1115 p4_a5 := ddx_lease_qte_rec.attribute3;
1116 p4_a6 := ddx_lease_qte_rec.attribute4;
1117 p4_a7 := ddx_lease_qte_rec.attribute5;
1118 p4_a8 := ddx_lease_qte_rec.attribute6;
1119 p4_a9 := ddx_lease_qte_rec.attribute7;
1120 p4_a10 := ddx_lease_qte_rec.attribute8;
1121 p4_a11 := ddx_lease_qte_rec.attribute9;
1122 p4_a12 := ddx_lease_qte_rec.attribute10;
1123 p4_a13 := ddx_lease_qte_rec.attribute11;
1124 p4_a14 := ddx_lease_qte_rec.attribute12;
1125 p4_a15 := ddx_lease_qte_rec.attribute13;
1126 p4_a16 := ddx_lease_qte_rec.attribute14;
1127 p4_a17 := ddx_lease_qte_rec.attribute15;
1128 p4_a18 := ddx_lease_qte_rec.reference_number;
1129 p4_a19 := ddx_lease_qte_rec.status;
1130 p4_a20 := ddx_lease_qte_rec.parent_object_code;
1131 p4_a21 := ddx_lease_qte_rec.parent_object_id;
1132 p4_a22 := ddx_lease_qte_rec.valid_from;
1133 p4_a23 := ddx_lease_qte_rec.valid_to;
1134 p4_a24 := ddx_lease_qte_rec.customer_bookclass;
1135 p4_a25 := ddx_lease_qte_rec.customer_taxowner;
1136 p4_a26 := ddx_lease_qte_rec.expected_start_date;
1137 p4_a27 := ddx_lease_qte_rec.expected_funding_date;
1138 p4_a28 := ddx_lease_qte_rec.expected_delivery_date;
1139 p4_a29 := ddx_lease_qte_rec.pricing_method;
1140 p4_a30 := ddx_lease_qte_rec.term;
1141 p4_a31 := ddx_lease_qte_rec.product_id;
1142 p4_a32 := ddx_lease_qte_rec.end_of_term_option_id;
1143 p4_a33 := ddx_lease_qte_rec.structured_pricing;
1144 p4_a34 := ddx_lease_qte_rec.line_level_pricing;
1145 p4_a35 := ddx_lease_qte_rec.rate_template_id;
1146 p4_a36 := ddx_lease_qte_rec.rate_card_id;
1147 p4_a37 := ddx_lease_qte_rec.lease_rate_factor;
1148 p4_a38 := ddx_lease_qte_rec.target_rate_type;
1149 p4_a39 := ddx_lease_qte_rec.target_rate;
1150 p4_a40 := ddx_lease_qte_rec.target_amount;
1151 p4_a41 := ddx_lease_qte_rec.target_frequency;
1152 p4_a42 := ddx_lease_qte_rec.target_arrears_yn;
1153 p4_a43 := ddx_lease_qte_rec.target_periods;
1154 p4_a44 := ddx_lease_qte_rec.iir;
1155 p4_a45 := ddx_lease_qte_rec.booking_yield;
1156 p4_a46 := ddx_lease_qte_rec.pirr;
1157 p4_a47 := ddx_lease_qte_rec.airr;
1158 p4_a48 := ddx_lease_qte_rec.sub_iir;
1159 p4_a49 := ddx_lease_qte_rec.sub_booking_yield;
1160 p4_a50 := ddx_lease_qte_rec.sub_pirr;
1161 p4_a51 := ddx_lease_qte_rec.sub_airr;
1162 p4_a52 := ddx_lease_qte_rec.usage_category;
1163 p4_a53 := ddx_lease_qte_rec.usage_industry_class;
1164 p4_a54 := ddx_lease_qte_rec.usage_industry_code;
1165 p4_a55 := ddx_lease_qte_rec.usage_amount;
1166 p4_a56 := ddx_lease_qte_rec.usage_location_id;
1167 p4_a57 := ddx_lease_qte_rec.property_tax_applicable;
1168 p4_a58 := ddx_lease_qte_rec.property_tax_billing_type;
1169 p4_a59 := ddx_lease_qte_rec.upfront_tax_treatment;
1170 p4_a60 := ddx_lease_qte_rec.upfront_tax_stream_type;
1171 p4_a61 := ddx_lease_qte_rec.transfer_of_title;
1172 p4_a62 := ddx_lease_qte_rec.age_of_equipment;
1173 p4_a63 := ddx_lease_qte_rec.purchase_of_lease;
1174 p4_a64 := ddx_lease_qte_rec.sale_and_lease_back;
1175 p4_a65 := ddx_lease_qte_rec.interest_disclosed;
1176 p4_a66 := ddx_lease_qte_rec.primary_quote;
1177 p4_a67 := ddx_lease_qte_rec.legal_entity_id;
1178 p4_a68 := ddx_lease_qte_rec.line_intended_use;
1179 p4_a69 := ddx_lease_qte_rec.short_description;
1180 p4_a70 := ddx_lease_qte_rec.description;
1181 p4_a71 := ddx_lease_qte_rec.comments;
1182
1183
1184
1185 end;
1186
1187 procedure cancel_lease_qte(p_api_version NUMBER
1188 , p_init_msg_list VARCHAR2
1189 , p_transaction_control VARCHAR2
1190 , p3_a0 JTF_NUMBER_TABLE
1191 , p3_a1 JTF_NUMBER_TABLE
1192 , p3_a2 JTF_VARCHAR2_TABLE_100
1193 , p3_a3 JTF_VARCHAR2_TABLE_500
1194 , p3_a4 JTF_VARCHAR2_TABLE_500
1195 , p3_a5 JTF_VARCHAR2_TABLE_500
1196 , p3_a6 JTF_VARCHAR2_TABLE_500
1197 , p3_a7 JTF_VARCHAR2_TABLE_500
1198 , p3_a8 JTF_VARCHAR2_TABLE_500
1199 , p3_a9 JTF_VARCHAR2_TABLE_500
1200 , p3_a10 JTF_VARCHAR2_TABLE_500
1201 , p3_a11 JTF_VARCHAR2_TABLE_500
1202 , p3_a12 JTF_VARCHAR2_TABLE_500
1203 , p3_a13 JTF_VARCHAR2_TABLE_500
1204 , p3_a14 JTF_VARCHAR2_TABLE_500
1205 , p3_a15 JTF_VARCHAR2_TABLE_500
1206 , p3_a16 JTF_VARCHAR2_TABLE_500
1207 , p3_a17 JTF_VARCHAR2_TABLE_500
1208 , p3_a18 JTF_VARCHAR2_TABLE_200
1209 , p3_a19 JTF_VARCHAR2_TABLE_100
1210 , p3_a20 JTF_VARCHAR2_TABLE_100
1211 , p3_a21 JTF_NUMBER_TABLE
1212 , p3_a22 JTF_DATE_TABLE
1213 , p3_a23 JTF_DATE_TABLE
1214 , p3_a24 JTF_VARCHAR2_TABLE_100
1215 , p3_a25 JTF_VARCHAR2_TABLE_100
1216 , p3_a26 JTF_DATE_TABLE
1217 , p3_a27 JTF_DATE_TABLE
1218 , p3_a28 JTF_DATE_TABLE
1219 , p3_a29 JTF_VARCHAR2_TABLE_100
1220 , p3_a30 JTF_NUMBER_TABLE
1221 , p3_a31 JTF_NUMBER_TABLE
1222 , p3_a32 JTF_NUMBER_TABLE
1223 , p3_a33 JTF_VARCHAR2_TABLE_100
1224 , p3_a34 JTF_VARCHAR2_TABLE_100
1225 , p3_a35 JTF_NUMBER_TABLE
1226 , p3_a36 JTF_NUMBER_TABLE
1227 , p3_a37 JTF_NUMBER_TABLE
1228 , p3_a38 JTF_VARCHAR2_TABLE_100
1229 , p3_a39 JTF_NUMBER_TABLE
1230 , p3_a40 JTF_NUMBER_TABLE
1231 , p3_a41 JTF_VARCHAR2_TABLE_100
1232 , p3_a42 JTF_VARCHAR2_TABLE_100
1233 , p3_a43 JTF_NUMBER_TABLE
1234 , p3_a44 JTF_NUMBER_TABLE
1235 , p3_a45 JTF_NUMBER_TABLE
1236 , p3_a46 JTF_NUMBER_TABLE
1237 , p3_a47 JTF_NUMBER_TABLE
1238 , p3_a48 JTF_NUMBER_TABLE
1239 , p3_a49 JTF_NUMBER_TABLE
1240 , p3_a50 JTF_NUMBER_TABLE
1241 , p3_a51 JTF_NUMBER_TABLE
1242 , p3_a52 JTF_VARCHAR2_TABLE_100
1243 , p3_a53 JTF_VARCHAR2_TABLE_100
1244 , p3_a54 JTF_VARCHAR2_TABLE_100
1245 , p3_a55 JTF_NUMBER_TABLE
1246 , p3_a56 JTF_NUMBER_TABLE
1247 , p3_a57 JTF_VARCHAR2_TABLE_100
1248 , p3_a58 JTF_VARCHAR2_TABLE_100
1249 , p3_a59 JTF_VARCHAR2_TABLE_100
1250 , p3_a60 JTF_NUMBER_TABLE
1251 , p3_a61 JTF_VARCHAR2_TABLE_100
1252 , p3_a62 JTF_NUMBER_TABLE
1253 , p3_a63 JTF_VARCHAR2_TABLE_100
1254 , p3_a64 JTF_VARCHAR2_TABLE_100
1255 , p3_a65 JTF_VARCHAR2_TABLE_100
1256 , p3_a66 JTF_VARCHAR2_TABLE_100
1257 , p3_a67 JTF_NUMBER_TABLE
1258 , p3_a68 JTF_VARCHAR2_TABLE_300
1259 , p3_a69 JTF_VARCHAR2_TABLE_300
1260 , p3_a70 JTF_VARCHAR2_TABLE_2000
1261 , p3_a71 JTF_VARCHAR2_TABLE_2000
1262 , x_return_status out nocopy VARCHAR2
1263 , x_msg_count out nocopy NUMBER
1264 , x_msg_data out nocopy VARCHAR2
1265 )
1266
1267 as
1268 ddp_lease_qte_tbl okl_lease_quote_pvt.lease_qte_tbl_type;
1269 ddindx binary_integer; indx binary_integer;
1270 begin
1271
1272 -- copy data to the local IN or IN-OUT args, if any
1273
1274
1275
1276 okl_lsq_pvt_w.rosetta_table_copy_in_p23(ddp_lease_qte_tbl, p3_a0
1277 , p3_a1
1278 , p3_a2
1279 , p3_a3
1280 , p3_a4
1281 , p3_a5
1282 , p3_a6
1283 , p3_a7
1284 , p3_a8
1285 , p3_a9
1286 , p3_a10
1287 , p3_a11
1288 , p3_a12
1289 , p3_a13
1290 , p3_a14
1291 , p3_a15
1292 , p3_a16
1293 , p3_a17
1294 , p3_a18
1295 , p3_a19
1296 , p3_a20
1297 , p3_a21
1298 , p3_a22
1299 , p3_a23
1300 , p3_a24
1301 , p3_a25
1302 , p3_a26
1303 , p3_a27
1304 , p3_a28
1305 , p3_a29
1306 , p3_a30
1307 , p3_a31
1308 , p3_a32
1309 , p3_a33
1310 , p3_a34
1311 , p3_a35
1312 , p3_a36
1313 , p3_a37
1314 , p3_a38
1315 , p3_a39
1316 , p3_a40
1317 , p3_a41
1318 , p3_a42
1319 , p3_a43
1320 , p3_a44
1321 , p3_a45
1322 , p3_a46
1323 , p3_a47
1324 , p3_a48
1325 , p3_a49
1326 , p3_a50
1327 , p3_a51
1328 , p3_a52
1329 , p3_a53
1330 , p3_a54
1331 , p3_a55
1332 , p3_a56
1333 , p3_a57
1334 , p3_a58
1335 , p3_a59
1336 , p3_a60
1337 , p3_a61
1338 , p3_a62
1339 , p3_a63
1340 , p3_a64
1341 , p3_a65
1342 , p3_a66
1343 , p3_a67
1344 , p3_a68
1345 , p3_a69
1346 , p3_a70
1347 , p3_a71
1348 );
1349
1350
1351
1352
1353 -- here's the delegated call to the old PL/SQL routine
1354 okl_lease_quote_pvt.cancel_lease_qte(p_api_version,
1355 p_init_msg_list,
1356 p_transaction_control,
1357 ddp_lease_qte_tbl,
1358 x_return_status,
1359 x_msg_count,
1360 x_msg_data);
1361
1362 -- copy data back from the local variables to OUT or IN-OUT args, if any
1363
1364
1365
1366
1367
1368
1369 end;
1370
1371 procedure validate_lease_qte(p0_a0 NUMBER
1372 , p0_a1 NUMBER
1373 , p0_a2 VARCHAR2
1374 , p0_a3 VARCHAR2
1375 , p0_a4 VARCHAR2
1376 , p0_a5 VARCHAR2
1377 , p0_a6 VARCHAR2
1378 , p0_a7 VARCHAR2
1379 , p0_a8 VARCHAR2
1380 , p0_a9 VARCHAR2
1381 , p0_a10 VARCHAR2
1382 , p0_a11 VARCHAR2
1383 , p0_a12 VARCHAR2
1384 , p0_a13 VARCHAR2
1385 , p0_a14 VARCHAR2
1386 , p0_a15 VARCHAR2
1387 , p0_a16 VARCHAR2
1388 , p0_a17 VARCHAR2
1389 , p0_a18 VARCHAR2
1390 , p0_a19 VARCHAR2
1391 , p0_a20 VARCHAR2
1392 , p0_a21 NUMBER
1393 , p0_a22 DATE
1394 , p0_a23 DATE
1395 , p0_a24 VARCHAR2
1396 , p0_a25 VARCHAR2
1397 , p0_a26 DATE
1398 , p0_a27 DATE
1399 , p0_a28 DATE
1400 , p0_a29 VARCHAR2
1401 , p0_a30 NUMBER
1402 , p0_a31 NUMBER
1403 , p0_a32 NUMBER
1404 , p0_a33 VARCHAR2
1405 , p0_a34 VARCHAR2
1406 , p0_a35 NUMBER
1407 , p0_a36 NUMBER
1408 , p0_a37 NUMBER
1409 , p0_a38 VARCHAR2
1410 , p0_a39 NUMBER
1411 , p0_a40 NUMBER
1412 , p0_a41 VARCHAR2
1413 , p0_a42 VARCHAR2
1414 , p0_a43 NUMBER
1415 , p0_a44 NUMBER
1416 , p0_a45 NUMBER
1417 , p0_a46 NUMBER
1418 , p0_a47 NUMBER
1419 , p0_a48 NUMBER
1420 , p0_a49 NUMBER
1421 , p0_a50 NUMBER
1422 , p0_a51 NUMBER
1423 , p0_a52 VARCHAR2
1424 , p0_a53 VARCHAR2
1425 , p0_a54 VARCHAR2
1426 , p0_a55 NUMBER
1427 , p0_a56 NUMBER
1428 , p0_a57 VARCHAR2
1429 , p0_a58 VARCHAR2
1430 , p0_a59 VARCHAR2
1431 , p0_a60 NUMBER
1432 , p0_a61 VARCHAR2
1433 , p0_a62 NUMBER
1434 , p0_a63 VARCHAR2
1435 , p0_a64 VARCHAR2
1436 , p0_a65 VARCHAR2
1437 , p0_a66 VARCHAR2
1438 , p0_a67 NUMBER
1439 , p0_a68 VARCHAR2
1440 , p0_a69 VARCHAR2
1441 , p0_a70 VARCHAR2
1442 , p0_a71 VARCHAR2
1443 , x_return_status out nocopy VARCHAR2
1444 )
1445
1446 as
1447 ddp_lease_qte_rec okl_lease_quote_pvt.lease_qte_rec_type;
1448 ddindx binary_integer; indx binary_integer;
1449 begin
1450
1451 -- copy data to the local IN or IN-OUT args, if any
1452 ddp_lease_qte_rec.id := p0_a0;
1453 ddp_lease_qte_rec.object_version_number := p0_a1;
1454 ddp_lease_qte_rec.attribute_category := p0_a2;
1455 ddp_lease_qte_rec.attribute1 := p0_a3;
1456 ddp_lease_qte_rec.attribute2 := p0_a4;
1457 ddp_lease_qte_rec.attribute3 := p0_a5;
1458 ddp_lease_qte_rec.attribute4 := p0_a6;
1459 ddp_lease_qte_rec.attribute5 := p0_a7;
1460 ddp_lease_qte_rec.attribute6 := p0_a8;
1461 ddp_lease_qte_rec.attribute7 := p0_a9;
1462 ddp_lease_qte_rec.attribute8 := p0_a10;
1463 ddp_lease_qte_rec.attribute9 := p0_a11;
1464 ddp_lease_qte_rec.attribute10 := p0_a12;
1465 ddp_lease_qte_rec.attribute11 := p0_a13;
1466 ddp_lease_qte_rec.attribute12 := p0_a14;
1467 ddp_lease_qte_rec.attribute13 := p0_a15;
1468 ddp_lease_qte_rec.attribute14 := p0_a16;
1469 ddp_lease_qte_rec.attribute15 := p0_a17;
1470 ddp_lease_qte_rec.reference_number := p0_a18;
1471 ddp_lease_qte_rec.status := p0_a19;
1472 ddp_lease_qte_rec.parent_object_code := p0_a20;
1473 ddp_lease_qte_rec.parent_object_id := p0_a21;
1474 ddp_lease_qte_rec.valid_from := p0_a22;
1475 ddp_lease_qte_rec.valid_to := p0_a23;
1476 ddp_lease_qte_rec.customer_bookclass := p0_a24;
1477 ddp_lease_qte_rec.customer_taxowner := p0_a25;
1478 ddp_lease_qte_rec.expected_start_date := p0_a26;
1479 ddp_lease_qte_rec.expected_funding_date := p0_a27;
1480 ddp_lease_qte_rec.expected_delivery_date := p0_a28;
1481 ddp_lease_qte_rec.pricing_method := p0_a29;
1482 ddp_lease_qte_rec.term := p0_a30;
1483 ddp_lease_qte_rec.product_id := p0_a31;
1484 ddp_lease_qte_rec.end_of_term_option_id := p0_a32;
1485 ddp_lease_qte_rec.structured_pricing := p0_a33;
1486 ddp_lease_qte_rec.line_level_pricing := p0_a34;
1487 ddp_lease_qte_rec.rate_template_id := p0_a35;
1488 ddp_lease_qte_rec.rate_card_id := p0_a36;
1489 ddp_lease_qte_rec.lease_rate_factor := p0_a37;
1490 ddp_lease_qte_rec.target_rate_type := p0_a38;
1491 ddp_lease_qte_rec.target_rate := p0_a39;
1492 ddp_lease_qte_rec.target_amount := p0_a40;
1493 ddp_lease_qte_rec.target_frequency := p0_a41;
1494 ddp_lease_qte_rec.target_arrears_yn := p0_a42;
1495 ddp_lease_qte_rec.target_periods := p0_a43;
1496 ddp_lease_qte_rec.iir := p0_a44;
1497 ddp_lease_qte_rec.booking_yield := p0_a45;
1498 ddp_lease_qte_rec.pirr := p0_a46;
1499 ddp_lease_qte_rec.airr := p0_a47;
1500 ddp_lease_qte_rec.sub_iir := p0_a48;
1501 ddp_lease_qte_rec.sub_booking_yield := p0_a49;
1502 ddp_lease_qte_rec.sub_pirr := p0_a50;
1503 ddp_lease_qte_rec.sub_airr := p0_a51;
1504 ddp_lease_qte_rec.usage_category := p0_a52;
1505 ddp_lease_qte_rec.usage_industry_class := p0_a53;
1506 ddp_lease_qte_rec.usage_industry_code := p0_a54;
1507 ddp_lease_qte_rec.usage_amount := p0_a55;
1508 ddp_lease_qte_rec.usage_location_id := p0_a56;
1509 ddp_lease_qte_rec.property_tax_applicable := p0_a57;
1510 ddp_lease_qte_rec.property_tax_billing_type := p0_a58;
1511 ddp_lease_qte_rec.upfront_tax_treatment := p0_a59;
1512 ddp_lease_qte_rec.upfront_tax_stream_type := p0_a60;
1513 ddp_lease_qte_rec.transfer_of_title := p0_a61;
1514 ddp_lease_qte_rec.age_of_equipment := p0_a62;
1515 ddp_lease_qte_rec.purchase_of_lease := p0_a63;
1516 ddp_lease_qte_rec.sale_and_lease_back := p0_a64;
1517 ddp_lease_qte_rec.interest_disclosed := p0_a65;
1518 ddp_lease_qte_rec.primary_quote := p0_a66;
1519 ddp_lease_qte_rec.legal_entity_id := p0_a67;
1520 ddp_lease_qte_rec.line_intended_use := p0_a68;
1521 ddp_lease_qte_rec.short_description := p0_a69;
1522 ddp_lease_qte_rec.description := p0_a70;
1523 ddp_lease_qte_rec.comments := p0_a71;
1524
1525
1526 -- here's the delegated call to the old PL/SQL routine
1527 okl_lease_quote_pvt.validate_lease_qte(ddp_lease_qte_rec,
1528 x_return_status);
1529
1530 -- copy data back from the local variables to OUT or IN-OUT args, if any
1531
1532 end;
1533
1534 end okl_lease_quote_pvt_w;