[Home] [Help]
PACKAGE BODY: APPS.OKL_LEASE_APP_PVT_W
Source
1 package body okl_lease_app_pvt_w as
2 /* $Header: OKLELAPB.pls 120.13 2007/03/20 22:36:42 rravikir noship $ */
3 procedure rosetta_table_copy_in_p3(t out nocopy okl_lease_app_pvt.name_val_tbl_type, a0 JTF_VARCHAR2_TABLE_100
4 , a1 JTF_VARCHAR2_TABLE_100
5 ) as
6 ddindx binary_integer; indx binary_integer;
7 begin
8 if a0 is not null and a0.count > 0 then
9 if a0.count > 0 then
10 indx := a0.first;
11 ddindx := 1;
12 while true loop
13 t(ddindx).itm_name := a0(indx);
14 t(ddindx).itm_value := a1(indx);
15 ddindx := ddindx+1;
16 if a0.last =indx
17 then exit;
18 end if;
19 indx := a0.next(indx);
20 end loop;
21 end if;
22 end if;
23 end rosetta_table_copy_in_p3;
24 procedure rosetta_table_copy_out_p3(t okl_lease_app_pvt.name_val_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
25 , a1 out nocopy JTF_VARCHAR2_TABLE_100
26 ) as
27 ddindx binary_integer; indx binary_integer;
28 begin
29 if t is null or t.count = 0 then
30 a0 := JTF_VARCHAR2_TABLE_100();
31 a1 := JTF_VARCHAR2_TABLE_100();
32 else
33 a0 := JTF_VARCHAR2_TABLE_100();
34 a1 := JTF_VARCHAR2_TABLE_100();
35 if t.count > 0 then
36 a0.extend(t.count);
37 a1.extend(t.count);
38 ddindx := t.first;
39 indx := 1;
40 while true loop
41 a0(indx) := t(ddindx).itm_name;
42 a1(indx) := t(ddindx).itm_value;
43 indx := indx+1;
44 if t.last =ddindx
45 then exit;
46 end if;
47 ddindx := t.next(ddindx);
48 end loop;
49 end if;
50 end if;
51 end rosetta_table_copy_out_p3;
52
53 procedure lease_app_cre(p_api_version NUMBER
54 , p_init_msg_list VARCHAR2
55 , x_return_status out nocopy VARCHAR2
56 , x_msg_count out nocopy NUMBER
57 , x_msg_data out nocopy VARCHAR2
58 , p5_a0 NUMBER
59 , p5_a1 NUMBER
60 , p5_a2 VARCHAR2
61 , p5_a3 VARCHAR2
62 , p5_a4 VARCHAR2
63 , p5_a5 VARCHAR2
64 , p5_a6 VARCHAR2
65 , p5_a7 VARCHAR2
66 , p5_a8 VARCHAR2
67 , p5_a9 VARCHAR2
68 , p5_a10 VARCHAR2
69 , p5_a11 VARCHAR2
70 , p5_a12 VARCHAR2
71 , p5_a13 VARCHAR2
72 , p5_a14 VARCHAR2
73 , p5_a15 VARCHAR2
74 , p5_a16 VARCHAR2
75 , p5_a17 VARCHAR2
76 , p5_a18 VARCHAR2
77 , p5_a19 VARCHAR2
78 , p5_a20 DATE
79 , p5_a21 DATE
80 , p5_a22 NUMBER
81 , p5_a23 NUMBER
82 , p5_a24 NUMBER
83 , p5_a25 NUMBER
84 , p5_a26 NUMBER
85 , p5_a27 VARCHAR2
86 , p5_a28 VARCHAR2
87 , p5_a29 VARCHAR2
88 , p5_a30 VARCHAR2
89 , p5_a31 NUMBER
90 , p5_a32 DATE
91 , p5_a33 NUMBER
92 , p5_a34 NUMBER
93 , p5_a35 NUMBER
94 , p5_a36 NUMBER
95 , p5_a37 NUMBER
96 , p5_a38 NUMBER
97 , p5_a39 NUMBER
98 , p5_a40 NUMBER
99 , p5_a41 NUMBER
100 , p5_a42 VARCHAR2
101 , p5_a43 VARCHAR2
102 , p5_a44 NUMBER
103 , p5_a45 VARCHAR2
104 , p5_a46 VARCHAR2
105 , p6_a0 out nocopy NUMBER
106 , p6_a1 out nocopy NUMBER
107 , p6_a2 out nocopy VARCHAR2
108 , p6_a3 out nocopy VARCHAR2
109 , p6_a4 out nocopy VARCHAR2
110 , p6_a5 out nocopy VARCHAR2
111 , p6_a6 out nocopy VARCHAR2
112 , p6_a7 out nocopy VARCHAR2
113 , p6_a8 out nocopy VARCHAR2
114 , p6_a9 out nocopy VARCHAR2
115 , p6_a10 out nocopy VARCHAR2
116 , p6_a11 out nocopy VARCHAR2
117 , p6_a12 out nocopy VARCHAR2
118 , p6_a13 out nocopy VARCHAR2
119 , p6_a14 out nocopy VARCHAR2
120 , p6_a15 out nocopy VARCHAR2
121 , p6_a16 out nocopy VARCHAR2
122 , p6_a17 out nocopy VARCHAR2
123 , p6_a18 out nocopy VARCHAR2
124 , p6_a19 out nocopy VARCHAR2
125 , p6_a20 out nocopy DATE
126 , p6_a21 out nocopy DATE
127 , p6_a22 out nocopy NUMBER
128 , p6_a23 out nocopy NUMBER
129 , p6_a24 out nocopy NUMBER
130 , p6_a25 out nocopy NUMBER
131 , p6_a26 out nocopy NUMBER
132 , p6_a27 out nocopy VARCHAR2
133 , p6_a28 out nocopy VARCHAR2
134 , p6_a29 out nocopy VARCHAR2
135 , p6_a30 out nocopy VARCHAR2
136 , p6_a31 out nocopy NUMBER
137 , p6_a32 out nocopy DATE
138 , p6_a33 out nocopy NUMBER
139 , p6_a34 out nocopy NUMBER
140 , p6_a35 out nocopy NUMBER
141 , p6_a36 out nocopy NUMBER
142 , p6_a37 out nocopy NUMBER
143 , p6_a38 out nocopy NUMBER
144 , p6_a39 out nocopy NUMBER
145 , p6_a40 out nocopy NUMBER
146 , p6_a41 out nocopy NUMBER
147 , p6_a42 out nocopy VARCHAR2
148 , p6_a43 out nocopy VARCHAR2
149 , p6_a44 out nocopy NUMBER
150 , p6_a45 out nocopy VARCHAR2
151 , p6_a46 out nocopy VARCHAR2
152 , p7_a0 NUMBER
153 , p7_a1 NUMBER
154 , p7_a2 VARCHAR2
155 , p7_a3 VARCHAR2
156 , p7_a4 VARCHAR2
157 , p7_a5 VARCHAR2
158 , p7_a6 VARCHAR2
159 , p7_a7 VARCHAR2
160 , p7_a8 VARCHAR2
161 , p7_a9 VARCHAR2
162 , p7_a10 VARCHAR2
163 , p7_a11 VARCHAR2
164 , p7_a12 VARCHAR2
165 , p7_a13 VARCHAR2
166 , p7_a14 VARCHAR2
167 , p7_a15 VARCHAR2
168 , p7_a16 VARCHAR2
169 , p7_a17 VARCHAR2
170 , p7_a18 VARCHAR2
171 , p7_a19 VARCHAR2
172 , p7_a20 VARCHAR2
173 , p7_a21 NUMBER
174 , p7_a22 DATE
175 , p7_a23 DATE
176 , p7_a24 VARCHAR2
177 , p7_a25 VARCHAR2
178 , p7_a26 DATE
179 , p7_a27 DATE
180 , p7_a28 DATE
181 , p7_a29 VARCHAR2
182 , p7_a30 NUMBER
183 , p7_a31 NUMBER
184 , p7_a32 NUMBER
185 , p7_a33 VARCHAR2
186 , p7_a34 VARCHAR2
187 , p7_a35 NUMBER
188 , p7_a36 NUMBER
189 , p7_a37 NUMBER
190 , p7_a38 VARCHAR2
191 , p7_a39 NUMBER
192 , p7_a40 NUMBER
193 , p7_a41 VARCHAR2
194 , p7_a42 VARCHAR2
195 , p7_a43 NUMBER
196 , p7_a44 NUMBER
197 , p7_a45 NUMBER
198 , p7_a46 NUMBER
199 , p7_a47 NUMBER
200 , p7_a48 NUMBER
201 , p7_a49 NUMBER
202 , p7_a50 NUMBER
203 , p7_a51 NUMBER
204 , p7_a52 VARCHAR2
205 , p7_a53 VARCHAR2
206 , p7_a54 VARCHAR2
207 , p7_a55 NUMBER
208 , p7_a56 NUMBER
209 , p7_a57 VARCHAR2
210 , p7_a58 VARCHAR2
211 , p7_a59 VARCHAR2
212 , p7_a60 NUMBER
213 , p7_a61 VARCHAR2
214 , p7_a62 NUMBER
215 , p7_a63 VARCHAR2
216 , p7_a64 VARCHAR2
217 , p7_a65 VARCHAR2
218 , p7_a66 VARCHAR2
219 , p7_a67 NUMBER
220 , p7_a68 VARCHAR2
221 , p7_a69 VARCHAR2
222 , p7_a70 VARCHAR2
223 , p7_a71 VARCHAR2
224 , p8_a0 out nocopy NUMBER
225 , p8_a1 out nocopy NUMBER
226 , p8_a2 out nocopy VARCHAR2
227 , p8_a3 out nocopy VARCHAR2
228 , p8_a4 out nocopy VARCHAR2
229 , p8_a5 out nocopy VARCHAR2
230 , p8_a6 out nocopy VARCHAR2
231 , p8_a7 out nocopy VARCHAR2
232 , p8_a8 out nocopy VARCHAR2
233 , p8_a9 out nocopy VARCHAR2
234 , p8_a10 out nocopy VARCHAR2
235 , p8_a11 out nocopy VARCHAR2
236 , p8_a12 out nocopy VARCHAR2
237 , p8_a13 out nocopy VARCHAR2
238 , p8_a14 out nocopy VARCHAR2
239 , p8_a15 out nocopy VARCHAR2
240 , p8_a16 out nocopy VARCHAR2
241 , p8_a17 out nocopy VARCHAR2
242 , p8_a18 out nocopy VARCHAR2
243 , p8_a19 out nocopy VARCHAR2
244 , p8_a20 out nocopy VARCHAR2
245 , p8_a21 out nocopy NUMBER
246 , p8_a22 out nocopy DATE
247 , p8_a23 out nocopy DATE
248 , p8_a24 out nocopy VARCHAR2
249 , p8_a25 out nocopy VARCHAR2
250 , p8_a26 out nocopy DATE
251 , p8_a27 out nocopy DATE
252 , p8_a28 out nocopy DATE
253 , p8_a29 out nocopy VARCHAR2
254 , p8_a30 out nocopy NUMBER
255 , p8_a31 out nocopy NUMBER
256 , p8_a32 out nocopy NUMBER
257 , p8_a33 out nocopy VARCHAR2
258 , p8_a34 out nocopy VARCHAR2
259 , p8_a35 out nocopy NUMBER
260 , p8_a36 out nocopy NUMBER
261 , p8_a37 out nocopy NUMBER
262 , p8_a38 out nocopy VARCHAR2
263 , p8_a39 out nocopy NUMBER
264 , p8_a40 out nocopy NUMBER
265 , p8_a41 out nocopy VARCHAR2
266 , p8_a42 out nocopy VARCHAR2
267 , p8_a43 out nocopy NUMBER
268 , p8_a44 out nocopy NUMBER
269 , p8_a45 out nocopy NUMBER
270 , p8_a46 out nocopy NUMBER
271 , p8_a47 out nocopy NUMBER
272 , p8_a48 out nocopy NUMBER
273 , p8_a49 out nocopy NUMBER
274 , p8_a50 out nocopy NUMBER
275 , p8_a51 out nocopy NUMBER
276 , p8_a52 out nocopy VARCHAR2
277 , p8_a53 out nocopy VARCHAR2
278 , p8_a54 out nocopy VARCHAR2
279 , p8_a55 out nocopy NUMBER
280 , p8_a56 out nocopy NUMBER
281 , p8_a57 out nocopy VARCHAR2
282 , p8_a58 out nocopy VARCHAR2
283 , p8_a59 out nocopy VARCHAR2
284 , p8_a60 out nocopy NUMBER
285 , p8_a61 out nocopy VARCHAR2
286 , p8_a62 out nocopy NUMBER
287 , p8_a63 out nocopy VARCHAR2
288 , p8_a64 out nocopy VARCHAR2
289 , p8_a65 out nocopy VARCHAR2
290 , p8_a66 out nocopy VARCHAR2
291 , p8_a67 out nocopy NUMBER
292 , p8_a68 out nocopy VARCHAR2
293 , p8_a69 out nocopy VARCHAR2
294 , p8_a70 out nocopy VARCHAR2
295 , p8_a71 out nocopy VARCHAR2
296 )
297
298 as
299 ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
300 ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
301 ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
302 ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
303 ddindx binary_integer; indx binary_integer;
304 begin
305
306 -- copy data to the local IN or IN-OUT args, if any
307
308
309
310
311
312 ddp_lapv_rec.id := p5_a0;
313 ddp_lapv_rec.object_version_number := p5_a1;
314 ddp_lapv_rec.attribute_category := p5_a2;
315 ddp_lapv_rec.attribute1 := p5_a3;
316 ddp_lapv_rec.attribute2 := p5_a4;
317 ddp_lapv_rec.attribute3 := p5_a5;
318 ddp_lapv_rec.attribute4 := p5_a6;
319 ddp_lapv_rec.attribute5 := p5_a7;
320 ddp_lapv_rec.attribute6 := p5_a8;
321 ddp_lapv_rec.attribute7 := p5_a9;
322 ddp_lapv_rec.attribute8 := p5_a10;
323 ddp_lapv_rec.attribute9 := p5_a11;
324 ddp_lapv_rec.attribute10 := p5_a12;
325 ddp_lapv_rec.attribute11 := p5_a13;
326 ddp_lapv_rec.attribute12 := p5_a14;
327 ddp_lapv_rec.attribute13 := p5_a15;
328 ddp_lapv_rec.attribute14 := p5_a16;
329 ddp_lapv_rec.attribute15 := p5_a17;
330 ddp_lapv_rec.reference_number := p5_a18;
331 ddp_lapv_rec.application_status := p5_a19;
332 ddp_lapv_rec.valid_from := p5_a20;
333 ddp_lapv_rec.valid_to := p5_a21;
334 ddp_lapv_rec.org_id := p5_a22;
335 ddp_lapv_rec.inv_org_id := p5_a23;
336 ddp_lapv_rec.prospect_id := p5_a24;
337 ddp_lapv_rec.prospect_address_id := p5_a25;
338 ddp_lapv_rec.cust_acct_id := p5_a26;
339 ddp_lapv_rec.industry_class := p5_a27;
340 ddp_lapv_rec.industry_code := p5_a28;
341 ddp_lapv_rec.currency_code := p5_a29;
342 ddp_lapv_rec.currency_conversion_type := p5_a30;
343 ddp_lapv_rec.currency_conversion_rate := p5_a31;
344 ddp_lapv_rec.currency_conversion_date := p5_a32;
345 ddp_lapv_rec.leaseapp_template_id := p5_a33;
346 ddp_lapv_rec.parent_leaseapp_id := p5_a34;
347 ddp_lapv_rec.credit_line_id := p5_a35;
348 ddp_lapv_rec.program_agreement_id := p5_a36;
349 ddp_lapv_rec.master_lease_id := p5_a37;
350 ddp_lapv_rec.sales_rep_id := p5_a38;
351 ddp_lapv_rec.sales_territory_id := p5_a39;
352 ddp_lapv_rec.originating_vendor_id := p5_a40;
353 ddp_lapv_rec.lease_opportunity_id := p5_a41;
354 ddp_lapv_rec.short_description := p5_a42;
355 ddp_lapv_rec.comments := p5_a43;
356 ddp_lapv_rec.cr_exp_days := p5_a44;
357 ddp_lapv_rec.action := p5_a45;
358 ddp_lapv_rec.orig_status := p5_a46;
359
360
361 ddp_lsqv_rec.id := p7_a0;
362 ddp_lsqv_rec.object_version_number := p7_a1;
363 ddp_lsqv_rec.attribute_category := p7_a2;
364 ddp_lsqv_rec.attribute1 := p7_a3;
365 ddp_lsqv_rec.attribute2 := p7_a4;
366 ddp_lsqv_rec.attribute3 := p7_a5;
367 ddp_lsqv_rec.attribute4 := p7_a6;
368 ddp_lsqv_rec.attribute5 := p7_a7;
369 ddp_lsqv_rec.attribute6 := p7_a8;
370 ddp_lsqv_rec.attribute7 := p7_a9;
371 ddp_lsqv_rec.attribute8 := p7_a10;
372 ddp_lsqv_rec.attribute9 := p7_a11;
373 ddp_lsqv_rec.attribute10 := p7_a12;
374 ddp_lsqv_rec.attribute11 := p7_a13;
375 ddp_lsqv_rec.attribute12 := p7_a14;
376 ddp_lsqv_rec.attribute13 := p7_a15;
377 ddp_lsqv_rec.attribute14 := p7_a16;
378 ddp_lsqv_rec.attribute15 := p7_a17;
379 ddp_lsqv_rec.reference_number := p7_a18;
380 ddp_lsqv_rec.status := p7_a19;
381 ddp_lsqv_rec.parent_object_code := p7_a20;
382 ddp_lsqv_rec.parent_object_id := p7_a21;
383 ddp_lsqv_rec.valid_from := p7_a22;
384 ddp_lsqv_rec.valid_to := p7_a23;
385 ddp_lsqv_rec.customer_bookclass := p7_a24;
386 ddp_lsqv_rec.customer_taxowner := p7_a25;
387 ddp_lsqv_rec.expected_start_date := p7_a26;
388 ddp_lsqv_rec.expected_funding_date := p7_a27;
389 ddp_lsqv_rec.expected_delivery_date := p7_a28;
390 ddp_lsqv_rec.pricing_method := p7_a29;
391 ddp_lsqv_rec.term := p7_a30;
392 ddp_lsqv_rec.product_id := p7_a31;
393 ddp_lsqv_rec.end_of_term_option_id := p7_a32;
394 ddp_lsqv_rec.structured_pricing := p7_a33;
395 ddp_lsqv_rec.line_level_pricing := p7_a34;
396 ddp_lsqv_rec.rate_template_id := p7_a35;
397 ddp_lsqv_rec.rate_card_id := p7_a36;
398 ddp_lsqv_rec.lease_rate_factor := p7_a37;
399 ddp_lsqv_rec.target_rate_type := p7_a38;
400 ddp_lsqv_rec.target_rate := p7_a39;
401 ddp_lsqv_rec.target_amount := p7_a40;
402 ddp_lsqv_rec.target_frequency := p7_a41;
403 ddp_lsqv_rec.target_arrears_yn := p7_a42;
404 ddp_lsqv_rec.target_periods := p7_a43;
405 ddp_lsqv_rec.iir := p7_a44;
406 ddp_lsqv_rec.booking_yield := p7_a45;
407 ddp_lsqv_rec.pirr := p7_a46;
408 ddp_lsqv_rec.airr := p7_a47;
409 ddp_lsqv_rec.sub_iir := p7_a48;
410 ddp_lsqv_rec.sub_booking_yield := p7_a49;
411 ddp_lsqv_rec.sub_pirr := p7_a50;
412 ddp_lsqv_rec.sub_airr := p7_a51;
413 ddp_lsqv_rec.usage_category := p7_a52;
414 ddp_lsqv_rec.usage_industry_class := p7_a53;
415 ddp_lsqv_rec.usage_industry_code := p7_a54;
416 ddp_lsqv_rec.usage_amount := p7_a55;
417 ddp_lsqv_rec.usage_location_id := p7_a56;
418 ddp_lsqv_rec.property_tax_applicable := p7_a57;
419 ddp_lsqv_rec.property_tax_billing_type := p7_a58;
420 ddp_lsqv_rec.upfront_tax_treatment := p7_a59;
421 ddp_lsqv_rec.upfront_tax_stream_type := p7_a60;
422 ddp_lsqv_rec.transfer_of_title := p7_a61;
423 ddp_lsqv_rec.age_of_equipment := p7_a62;
424 ddp_lsqv_rec.purchase_of_lease := p7_a63;
425 ddp_lsqv_rec.sale_and_lease_back := p7_a64;
426 ddp_lsqv_rec.interest_disclosed := p7_a65;
427 ddp_lsqv_rec.primary_quote := p7_a66;
428 ddp_lsqv_rec.legal_entity_id := p7_a67;
429 ddp_lsqv_rec.line_intended_use := p7_a68;
430 ddp_lsqv_rec.short_description := p7_a69;
431 ddp_lsqv_rec.description := p7_a70;
432 ddp_lsqv_rec.comments := p7_a71;
433
434
435 -- here's the delegated call to the old PL/SQL routine
436 okl_lease_app_pvt.lease_app_cre(p_api_version,
437 p_init_msg_list,
438 x_return_status,
439 x_msg_count,
440 x_msg_data,
441 ddp_lapv_rec,
442 ddx_lapv_rec,
443 ddp_lsqv_rec,
444 ddx_lsqv_rec);
445
446 -- copy data back from the local variables to OUT or IN-OUT args, if any
447
448
449
450
451
452
453 p6_a0 := ddx_lapv_rec.id;
454 p6_a1 := ddx_lapv_rec.object_version_number;
455 p6_a2 := ddx_lapv_rec.attribute_category;
456 p6_a3 := ddx_lapv_rec.attribute1;
457 p6_a4 := ddx_lapv_rec.attribute2;
458 p6_a5 := ddx_lapv_rec.attribute3;
459 p6_a6 := ddx_lapv_rec.attribute4;
460 p6_a7 := ddx_lapv_rec.attribute5;
461 p6_a8 := ddx_lapv_rec.attribute6;
462 p6_a9 := ddx_lapv_rec.attribute7;
463 p6_a10 := ddx_lapv_rec.attribute8;
464 p6_a11 := ddx_lapv_rec.attribute9;
465 p6_a12 := ddx_lapv_rec.attribute10;
466 p6_a13 := ddx_lapv_rec.attribute11;
467 p6_a14 := ddx_lapv_rec.attribute12;
468 p6_a15 := ddx_lapv_rec.attribute13;
469 p6_a16 := ddx_lapv_rec.attribute14;
470 p6_a17 := ddx_lapv_rec.attribute15;
471 p6_a18 := ddx_lapv_rec.reference_number;
472 p6_a19 := ddx_lapv_rec.application_status;
473 p6_a20 := ddx_lapv_rec.valid_from;
474 p6_a21 := ddx_lapv_rec.valid_to;
475 p6_a22 := ddx_lapv_rec.org_id;
476 p6_a23 := ddx_lapv_rec.inv_org_id;
477 p6_a24 := ddx_lapv_rec.prospect_id;
478 p6_a25 := ddx_lapv_rec.prospect_address_id;
479 p6_a26 := ddx_lapv_rec.cust_acct_id;
480 p6_a27 := ddx_lapv_rec.industry_class;
481 p6_a28 := ddx_lapv_rec.industry_code;
482 p6_a29 := ddx_lapv_rec.currency_code;
483 p6_a30 := ddx_lapv_rec.currency_conversion_type;
484 p6_a31 := ddx_lapv_rec.currency_conversion_rate;
485 p6_a32 := ddx_lapv_rec.currency_conversion_date;
486 p6_a33 := ddx_lapv_rec.leaseapp_template_id;
487 p6_a34 := ddx_lapv_rec.parent_leaseapp_id;
488 p6_a35 := ddx_lapv_rec.credit_line_id;
489 p6_a36 := ddx_lapv_rec.program_agreement_id;
490 p6_a37 := ddx_lapv_rec.master_lease_id;
491 p6_a38 := ddx_lapv_rec.sales_rep_id;
492 p6_a39 := ddx_lapv_rec.sales_territory_id;
493 p6_a40 := ddx_lapv_rec.originating_vendor_id;
494 p6_a41 := ddx_lapv_rec.lease_opportunity_id;
495 p6_a42 := ddx_lapv_rec.short_description;
496 p6_a43 := ddx_lapv_rec.comments;
497 p6_a44 := ddx_lapv_rec.cr_exp_days;
498 p6_a45 := ddx_lapv_rec.action;
499 p6_a46 := ddx_lapv_rec.orig_status;
500
501
502 p8_a0 := ddx_lsqv_rec.id;
503 p8_a1 := ddx_lsqv_rec.object_version_number;
504 p8_a2 := ddx_lsqv_rec.attribute_category;
505 p8_a3 := ddx_lsqv_rec.attribute1;
506 p8_a4 := ddx_lsqv_rec.attribute2;
507 p8_a5 := ddx_lsqv_rec.attribute3;
508 p8_a6 := ddx_lsqv_rec.attribute4;
509 p8_a7 := ddx_lsqv_rec.attribute5;
510 p8_a8 := ddx_lsqv_rec.attribute6;
511 p8_a9 := ddx_lsqv_rec.attribute7;
512 p8_a10 := ddx_lsqv_rec.attribute8;
513 p8_a11 := ddx_lsqv_rec.attribute9;
514 p8_a12 := ddx_lsqv_rec.attribute10;
515 p8_a13 := ddx_lsqv_rec.attribute11;
516 p8_a14 := ddx_lsqv_rec.attribute12;
517 p8_a15 := ddx_lsqv_rec.attribute13;
518 p8_a16 := ddx_lsqv_rec.attribute14;
519 p8_a17 := ddx_lsqv_rec.attribute15;
520 p8_a18 := ddx_lsqv_rec.reference_number;
521 p8_a19 := ddx_lsqv_rec.status;
522 p8_a20 := ddx_lsqv_rec.parent_object_code;
523 p8_a21 := ddx_lsqv_rec.parent_object_id;
524 p8_a22 := ddx_lsqv_rec.valid_from;
525 p8_a23 := ddx_lsqv_rec.valid_to;
526 p8_a24 := ddx_lsqv_rec.customer_bookclass;
527 p8_a25 := ddx_lsqv_rec.customer_taxowner;
528 p8_a26 := ddx_lsqv_rec.expected_start_date;
529 p8_a27 := ddx_lsqv_rec.expected_funding_date;
530 p8_a28 := ddx_lsqv_rec.expected_delivery_date;
531 p8_a29 := ddx_lsqv_rec.pricing_method;
532 p8_a30 := ddx_lsqv_rec.term;
533 p8_a31 := ddx_lsqv_rec.product_id;
534 p8_a32 := ddx_lsqv_rec.end_of_term_option_id;
535 p8_a33 := ddx_lsqv_rec.structured_pricing;
536 p8_a34 := ddx_lsqv_rec.line_level_pricing;
537 p8_a35 := ddx_lsqv_rec.rate_template_id;
538 p8_a36 := ddx_lsqv_rec.rate_card_id;
539 p8_a37 := ddx_lsqv_rec.lease_rate_factor;
540 p8_a38 := ddx_lsqv_rec.target_rate_type;
541 p8_a39 := ddx_lsqv_rec.target_rate;
542 p8_a40 := ddx_lsqv_rec.target_amount;
543 p8_a41 := ddx_lsqv_rec.target_frequency;
544 p8_a42 := ddx_lsqv_rec.target_arrears_yn;
545 p8_a43 := ddx_lsqv_rec.target_periods;
546 p8_a44 := ddx_lsqv_rec.iir;
547 p8_a45 := ddx_lsqv_rec.booking_yield;
548 p8_a46 := ddx_lsqv_rec.pirr;
549 p8_a47 := ddx_lsqv_rec.airr;
550 p8_a48 := ddx_lsqv_rec.sub_iir;
551 p8_a49 := ddx_lsqv_rec.sub_booking_yield;
552 p8_a50 := ddx_lsqv_rec.sub_pirr;
553 p8_a51 := ddx_lsqv_rec.sub_airr;
554 p8_a52 := ddx_lsqv_rec.usage_category;
555 p8_a53 := ddx_lsqv_rec.usage_industry_class;
556 p8_a54 := ddx_lsqv_rec.usage_industry_code;
557 p8_a55 := ddx_lsqv_rec.usage_amount;
558 p8_a56 := ddx_lsqv_rec.usage_location_id;
559 p8_a57 := ddx_lsqv_rec.property_tax_applicable;
560 p8_a58 := ddx_lsqv_rec.property_tax_billing_type;
561 p8_a59 := ddx_lsqv_rec.upfront_tax_treatment;
562 p8_a60 := ddx_lsqv_rec.upfront_tax_stream_type;
563 p8_a61 := ddx_lsqv_rec.transfer_of_title;
564 p8_a62 := ddx_lsqv_rec.age_of_equipment;
565 p8_a63 := ddx_lsqv_rec.purchase_of_lease;
566 p8_a64 := ddx_lsqv_rec.sale_and_lease_back;
567 p8_a65 := ddx_lsqv_rec.interest_disclosed;
568 p8_a66 := ddx_lsqv_rec.primary_quote;
569 p8_a67 := ddx_lsqv_rec.legal_entity_id;
570 p8_a68 := ddx_lsqv_rec.line_intended_use;
571 p8_a69 := ddx_lsqv_rec.short_description;
572 p8_a70 := ddx_lsqv_rec.description;
573 p8_a71 := ddx_lsqv_rec.comments;
574 end;
575
576 procedure lease_app_upd(p_api_version NUMBER
577 , p_init_msg_list VARCHAR2
578 , x_return_status out nocopy VARCHAR2
579 , x_msg_count out nocopy NUMBER
580 , x_msg_data out nocopy VARCHAR2
581 , p5_a0 NUMBER
582 , p5_a1 NUMBER
583 , p5_a2 VARCHAR2
584 , p5_a3 VARCHAR2
585 , p5_a4 VARCHAR2
586 , p5_a5 VARCHAR2
587 , p5_a6 VARCHAR2
588 , p5_a7 VARCHAR2
589 , p5_a8 VARCHAR2
590 , p5_a9 VARCHAR2
591 , p5_a10 VARCHAR2
592 , p5_a11 VARCHAR2
593 , p5_a12 VARCHAR2
594 , p5_a13 VARCHAR2
595 , p5_a14 VARCHAR2
596 , p5_a15 VARCHAR2
597 , p5_a16 VARCHAR2
598 , p5_a17 VARCHAR2
599 , p5_a18 VARCHAR2
600 , p5_a19 VARCHAR2
601 , p5_a20 DATE
602 , p5_a21 DATE
603 , p5_a22 NUMBER
604 , p5_a23 NUMBER
605 , p5_a24 NUMBER
606 , p5_a25 NUMBER
607 , p5_a26 NUMBER
608 , p5_a27 VARCHAR2
609 , p5_a28 VARCHAR2
610 , p5_a29 VARCHAR2
611 , p5_a30 VARCHAR2
612 , p5_a31 NUMBER
613 , p5_a32 DATE
614 , p5_a33 NUMBER
615 , p5_a34 NUMBER
616 , p5_a35 NUMBER
617 , p5_a36 NUMBER
618 , p5_a37 NUMBER
619 , p5_a38 NUMBER
620 , p5_a39 NUMBER
621 , p5_a40 NUMBER
622 , p5_a41 NUMBER
623 , p5_a42 VARCHAR2
624 , p5_a43 VARCHAR2
625 , p5_a44 NUMBER
626 , p5_a45 VARCHAR2
627 , p5_a46 VARCHAR2
628 , p6_a0 out nocopy NUMBER
629 , p6_a1 out nocopy NUMBER
630 , p6_a2 out nocopy VARCHAR2
631 , p6_a3 out nocopy VARCHAR2
632 , p6_a4 out nocopy VARCHAR2
633 , p6_a5 out nocopy VARCHAR2
634 , p6_a6 out nocopy VARCHAR2
635 , p6_a7 out nocopy VARCHAR2
636 , p6_a8 out nocopy VARCHAR2
637 , p6_a9 out nocopy VARCHAR2
638 , p6_a10 out nocopy VARCHAR2
639 , p6_a11 out nocopy VARCHAR2
640 , p6_a12 out nocopy VARCHAR2
641 , p6_a13 out nocopy VARCHAR2
642 , p6_a14 out nocopy VARCHAR2
643 , p6_a15 out nocopy VARCHAR2
644 , p6_a16 out nocopy VARCHAR2
645 , p6_a17 out nocopy VARCHAR2
646 , p6_a18 out nocopy VARCHAR2
647 , p6_a19 out nocopy VARCHAR2
648 , p6_a20 out nocopy DATE
649 , p6_a21 out nocopy DATE
650 , p6_a22 out nocopy NUMBER
651 , p6_a23 out nocopy NUMBER
652 , p6_a24 out nocopy NUMBER
653 , p6_a25 out nocopy NUMBER
654 , p6_a26 out nocopy NUMBER
655 , p6_a27 out nocopy VARCHAR2
656 , p6_a28 out nocopy VARCHAR2
657 , p6_a29 out nocopy VARCHAR2
658 , p6_a30 out nocopy VARCHAR2
659 , p6_a31 out nocopy NUMBER
660 , p6_a32 out nocopy DATE
661 , p6_a33 out nocopy NUMBER
662 , p6_a34 out nocopy NUMBER
663 , p6_a35 out nocopy NUMBER
664 , p6_a36 out nocopy NUMBER
665 , p6_a37 out nocopy NUMBER
666 , p6_a38 out nocopy NUMBER
667 , p6_a39 out nocopy NUMBER
668 , p6_a40 out nocopy NUMBER
669 , p6_a41 out nocopy NUMBER
670 , p6_a42 out nocopy VARCHAR2
671 , p6_a43 out nocopy VARCHAR2
672 , p6_a44 out nocopy NUMBER
673 , p6_a45 out nocopy VARCHAR2
674 , p6_a46 out nocopy VARCHAR2
675 , p7_a0 NUMBER
676 , p7_a1 NUMBER
677 , p7_a2 VARCHAR2
678 , p7_a3 VARCHAR2
679 , p7_a4 VARCHAR2
680 , p7_a5 VARCHAR2
681 , p7_a6 VARCHAR2
682 , p7_a7 VARCHAR2
683 , p7_a8 VARCHAR2
684 , p7_a9 VARCHAR2
685 , p7_a10 VARCHAR2
686 , p7_a11 VARCHAR2
687 , p7_a12 VARCHAR2
688 , p7_a13 VARCHAR2
689 , p7_a14 VARCHAR2
690 , p7_a15 VARCHAR2
691 , p7_a16 VARCHAR2
692 , p7_a17 VARCHAR2
693 , p7_a18 VARCHAR2
694 , p7_a19 VARCHAR2
695 , p7_a20 VARCHAR2
696 , p7_a21 NUMBER
697 , p7_a22 DATE
698 , p7_a23 DATE
699 , p7_a24 VARCHAR2
700 , p7_a25 VARCHAR2
701 , p7_a26 DATE
702 , p7_a27 DATE
703 , p7_a28 DATE
704 , p7_a29 VARCHAR2
705 , p7_a30 NUMBER
706 , p7_a31 NUMBER
707 , p7_a32 NUMBER
708 , p7_a33 VARCHAR2
709 , p7_a34 VARCHAR2
710 , p7_a35 NUMBER
711 , p7_a36 NUMBER
712 , p7_a37 NUMBER
713 , p7_a38 VARCHAR2
714 , p7_a39 NUMBER
715 , p7_a40 NUMBER
716 , p7_a41 VARCHAR2
717 , p7_a42 VARCHAR2
718 , p7_a43 NUMBER
719 , p7_a44 NUMBER
720 , p7_a45 NUMBER
721 , p7_a46 NUMBER
722 , p7_a47 NUMBER
723 , p7_a48 NUMBER
724 , p7_a49 NUMBER
725 , p7_a50 NUMBER
726 , p7_a51 NUMBER
727 , p7_a52 VARCHAR2
728 , p7_a53 VARCHAR2
729 , p7_a54 VARCHAR2
730 , p7_a55 NUMBER
731 , p7_a56 NUMBER
732 , p7_a57 VARCHAR2
733 , p7_a58 VARCHAR2
734 , p7_a59 VARCHAR2
735 , p7_a60 NUMBER
736 , p7_a61 VARCHAR2
737 , p7_a62 NUMBER
738 , p7_a63 VARCHAR2
739 , p7_a64 VARCHAR2
740 , p7_a65 VARCHAR2
741 , p7_a66 VARCHAR2
742 , p7_a67 NUMBER
743 , p7_a68 VARCHAR2
744 , p7_a69 VARCHAR2
745 , p7_a70 VARCHAR2
746 , p7_a71 VARCHAR2
747 , p8_a0 out nocopy NUMBER
748 , p8_a1 out nocopy NUMBER
749 , p8_a2 out nocopy VARCHAR2
750 , p8_a3 out nocopy VARCHAR2
751 , p8_a4 out nocopy VARCHAR2
752 , p8_a5 out nocopy VARCHAR2
753 , p8_a6 out nocopy VARCHAR2
754 , p8_a7 out nocopy VARCHAR2
755 , p8_a8 out nocopy VARCHAR2
756 , p8_a9 out nocopy VARCHAR2
757 , p8_a10 out nocopy VARCHAR2
758 , p8_a11 out nocopy VARCHAR2
759 , p8_a12 out nocopy VARCHAR2
760 , p8_a13 out nocopy VARCHAR2
761 , p8_a14 out nocopy VARCHAR2
762 , p8_a15 out nocopy VARCHAR2
763 , p8_a16 out nocopy VARCHAR2
764 , p8_a17 out nocopy VARCHAR2
765 , p8_a18 out nocopy VARCHAR2
766 , p8_a19 out nocopy VARCHAR2
767 , p8_a20 out nocopy VARCHAR2
768 , p8_a21 out nocopy NUMBER
769 , p8_a22 out nocopy DATE
770 , p8_a23 out nocopy DATE
771 , p8_a24 out nocopy VARCHAR2
772 , p8_a25 out nocopy VARCHAR2
773 , p8_a26 out nocopy DATE
774 , p8_a27 out nocopy DATE
775 , p8_a28 out nocopy DATE
776 , p8_a29 out nocopy VARCHAR2
777 , p8_a30 out nocopy NUMBER
778 , p8_a31 out nocopy NUMBER
779 , p8_a32 out nocopy NUMBER
780 , p8_a33 out nocopy VARCHAR2
781 , p8_a34 out nocopy VARCHAR2
782 , p8_a35 out nocopy NUMBER
783 , p8_a36 out nocopy NUMBER
784 , p8_a37 out nocopy NUMBER
785 , p8_a38 out nocopy VARCHAR2
786 , p8_a39 out nocopy NUMBER
787 , p8_a40 out nocopy NUMBER
788 , p8_a41 out nocopy VARCHAR2
789 , p8_a42 out nocopy VARCHAR2
790 , p8_a43 out nocopy NUMBER
791 , p8_a44 out nocopy NUMBER
792 , p8_a45 out nocopy NUMBER
793 , p8_a46 out nocopy NUMBER
794 , p8_a47 out nocopy NUMBER
795 , p8_a48 out nocopy NUMBER
796 , p8_a49 out nocopy NUMBER
797 , p8_a50 out nocopy NUMBER
798 , p8_a51 out nocopy NUMBER
799 , p8_a52 out nocopy VARCHAR2
800 , p8_a53 out nocopy VARCHAR2
801 , p8_a54 out nocopy VARCHAR2
802 , p8_a55 out nocopy NUMBER
803 , p8_a56 out nocopy NUMBER
804 , p8_a57 out nocopy VARCHAR2
805 , p8_a58 out nocopy VARCHAR2
806 , p8_a59 out nocopy VARCHAR2
807 , p8_a60 out nocopy NUMBER
808 , p8_a61 out nocopy VARCHAR2
809 , p8_a62 out nocopy NUMBER
810 , p8_a63 out nocopy VARCHAR2
811 , p8_a64 out nocopy VARCHAR2
812 , p8_a65 out nocopy VARCHAR2
813 , p8_a66 out nocopy VARCHAR2
814 , p8_a67 out nocopy NUMBER
815 , p8_a68 out nocopy VARCHAR2
816 , p8_a69 out nocopy VARCHAR2
817 , p8_a70 out nocopy VARCHAR2
818 , p8_a71 out nocopy VARCHAR2
819 )
820
821 as
822 ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
823 ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
824 ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
825 ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
826 ddindx binary_integer; indx binary_integer;
827 begin
828
829 -- copy data to the local IN or IN-OUT args, if any
830
831
832
833
834
835 ddp_lapv_rec.id := p5_a0;
836 ddp_lapv_rec.object_version_number := p5_a1;
837 ddp_lapv_rec.attribute_category := p5_a2;
838 ddp_lapv_rec.attribute1 := p5_a3;
839 ddp_lapv_rec.attribute2 := p5_a4;
840 ddp_lapv_rec.attribute3 := p5_a5;
841 ddp_lapv_rec.attribute4 := p5_a6;
842 ddp_lapv_rec.attribute5 := p5_a7;
843 ddp_lapv_rec.attribute6 := p5_a8;
844 ddp_lapv_rec.attribute7 := p5_a9;
845 ddp_lapv_rec.attribute8 := p5_a10;
846 ddp_lapv_rec.attribute9 := p5_a11;
847 ddp_lapv_rec.attribute10 := p5_a12;
848 ddp_lapv_rec.attribute11 := p5_a13;
849 ddp_lapv_rec.attribute12 := p5_a14;
850 ddp_lapv_rec.attribute13 := p5_a15;
851 ddp_lapv_rec.attribute14 := p5_a16;
852 ddp_lapv_rec.attribute15 := p5_a17;
853 ddp_lapv_rec.reference_number := p5_a18;
854 ddp_lapv_rec.application_status := p5_a19;
855 ddp_lapv_rec.valid_from := p5_a20;
856 ddp_lapv_rec.valid_to := p5_a21;
857 ddp_lapv_rec.org_id := p5_a22;
858 ddp_lapv_rec.inv_org_id := p5_a23;
859 ddp_lapv_rec.prospect_id := p5_a24;
860 ddp_lapv_rec.prospect_address_id := p5_a25;
861 ddp_lapv_rec.cust_acct_id := p5_a26;
862 ddp_lapv_rec.industry_class := p5_a27;
863 ddp_lapv_rec.industry_code := p5_a28;
864 ddp_lapv_rec.currency_code := p5_a29;
865 ddp_lapv_rec.currency_conversion_type := p5_a30;
866 ddp_lapv_rec.currency_conversion_rate := p5_a31;
867 ddp_lapv_rec.currency_conversion_date := p5_a32;
868 ddp_lapv_rec.leaseapp_template_id := p5_a33;
869 ddp_lapv_rec.parent_leaseapp_id := p5_a34;
870 ddp_lapv_rec.credit_line_id := p5_a35;
871 ddp_lapv_rec.program_agreement_id := p5_a36;
872 ddp_lapv_rec.master_lease_id := p5_a37;
873 ddp_lapv_rec.sales_rep_id := p5_a38;
874 ddp_lapv_rec.sales_territory_id := p5_a39;
875 ddp_lapv_rec.originating_vendor_id := p5_a40;
876 ddp_lapv_rec.lease_opportunity_id := p5_a41;
877 ddp_lapv_rec.short_description := p5_a42;
878 ddp_lapv_rec.comments := p5_a43;
879 ddp_lapv_rec.cr_exp_days := p5_a44;
880 ddp_lapv_rec.action := p5_a45;
881 ddp_lapv_rec.orig_status := p5_a46;
882
883
884 ddp_lsqv_rec.id := p7_a0;
885 ddp_lsqv_rec.object_version_number := p7_a1;
886 ddp_lsqv_rec.attribute_category := p7_a2;
887 ddp_lsqv_rec.attribute1 := p7_a3;
888 ddp_lsqv_rec.attribute2 := p7_a4;
889 ddp_lsqv_rec.attribute3 := p7_a5;
890 ddp_lsqv_rec.attribute4 := p7_a6;
891 ddp_lsqv_rec.attribute5 := p7_a7;
892 ddp_lsqv_rec.attribute6 := p7_a8;
893 ddp_lsqv_rec.attribute7 := p7_a9;
894 ddp_lsqv_rec.attribute8 := p7_a10;
895 ddp_lsqv_rec.attribute9 := p7_a11;
896 ddp_lsqv_rec.attribute10 := p7_a12;
897 ddp_lsqv_rec.attribute11 := p7_a13;
898 ddp_lsqv_rec.attribute12 := p7_a14;
899 ddp_lsqv_rec.attribute13 := p7_a15;
900 ddp_lsqv_rec.attribute14 := p7_a16;
901 ddp_lsqv_rec.attribute15 := p7_a17;
902 ddp_lsqv_rec.reference_number := p7_a18;
903 ddp_lsqv_rec.status := p7_a19;
904 ddp_lsqv_rec.parent_object_code := p7_a20;
905 ddp_lsqv_rec.parent_object_id := p7_a21;
906 ddp_lsqv_rec.valid_from := p7_a22;
907 ddp_lsqv_rec.valid_to := p7_a23;
908 ddp_lsqv_rec.customer_bookclass := p7_a24;
909 ddp_lsqv_rec.customer_taxowner := p7_a25;
910 ddp_lsqv_rec.expected_start_date := p7_a26;
911 ddp_lsqv_rec.expected_funding_date := p7_a27;
912 ddp_lsqv_rec.expected_delivery_date := p7_a28;
913 ddp_lsqv_rec.pricing_method := p7_a29;
914 ddp_lsqv_rec.term := p7_a30;
915 ddp_lsqv_rec.product_id := p7_a31;
916 ddp_lsqv_rec.end_of_term_option_id := p7_a32;
917 ddp_lsqv_rec.structured_pricing := p7_a33;
918 ddp_lsqv_rec.line_level_pricing := p7_a34;
919 ddp_lsqv_rec.rate_template_id := p7_a35;
920 ddp_lsqv_rec.rate_card_id := p7_a36;
921 ddp_lsqv_rec.lease_rate_factor := p7_a37;
922 ddp_lsqv_rec.target_rate_type := p7_a38;
923 ddp_lsqv_rec.target_rate := p7_a39;
924 ddp_lsqv_rec.target_amount := p7_a40;
925 ddp_lsqv_rec.target_frequency := p7_a41;
926 ddp_lsqv_rec.target_arrears_yn := p7_a42;
927 ddp_lsqv_rec.target_periods := p7_a43;
928 ddp_lsqv_rec.iir := p7_a44;
929 ddp_lsqv_rec.booking_yield := p7_a45;
930 ddp_lsqv_rec.pirr := p7_a46;
931 ddp_lsqv_rec.airr := p7_a47;
932 ddp_lsqv_rec.sub_iir := p7_a48;
933 ddp_lsqv_rec.sub_booking_yield := p7_a49;
934 ddp_lsqv_rec.sub_pirr := p7_a50;
935 ddp_lsqv_rec.sub_airr := p7_a51;
936 ddp_lsqv_rec.usage_category := p7_a52;
937 ddp_lsqv_rec.usage_industry_class := p7_a53;
938 ddp_lsqv_rec.usage_industry_code := p7_a54;
939 ddp_lsqv_rec.usage_amount := p7_a55;
940 ddp_lsqv_rec.usage_location_id := p7_a56;
941 ddp_lsqv_rec.property_tax_applicable := p7_a57;
942 ddp_lsqv_rec.property_tax_billing_type := p7_a58;
943 ddp_lsqv_rec.upfront_tax_treatment := p7_a59;
944 ddp_lsqv_rec.upfront_tax_stream_type := p7_a60;
945 ddp_lsqv_rec.transfer_of_title := p7_a61;
946 ddp_lsqv_rec.age_of_equipment := p7_a62;
947 ddp_lsqv_rec.purchase_of_lease := p7_a63;
948 ddp_lsqv_rec.sale_and_lease_back := p7_a64;
949 ddp_lsqv_rec.interest_disclosed := p7_a65;
950 ddp_lsqv_rec.primary_quote := p7_a66;
951 ddp_lsqv_rec.legal_entity_id := p7_a67;
952 ddp_lsqv_rec.line_intended_use := p7_a68;
953 ddp_lsqv_rec.short_description := p7_a69;
954 ddp_lsqv_rec.description := p7_a70;
955 ddp_lsqv_rec.comments := p7_a71;
956
957
958 -- here's the delegated call to the old PL/SQL routine
959 okl_lease_app_pvt.lease_app_upd(p_api_version,
960 p_init_msg_list,
961 x_return_status,
962 x_msg_count,
963 x_msg_data,
964 ddp_lapv_rec,
965 ddx_lapv_rec,
966 ddp_lsqv_rec,
967 ddx_lsqv_rec);
968
969 -- copy data back from the local variables to OUT or IN-OUT args, if any
970
971
972
973
974
975
976 p6_a0 := ddx_lapv_rec.id;
977 p6_a1 := ddx_lapv_rec.object_version_number;
978 p6_a2 := ddx_lapv_rec.attribute_category;
979 p6_a3 := ddx_lapv_rec.attribute1;
980 p6_a4 := ddx_lapv_rec.attribute2;
981 p6_a5 := ddx_lapv_rec.attribute3;
982 p6_a6 := ddx_lapv_rec.attribute4;
983 p6_a7 := ddx_lapv_rec.attribute5;
984 p6_a8 := ddx_lapv_rec.attribute6;
985 p6_a9 := ddx_lapv_rec.attribute7;
986 p6_a10 := ddx_lapv_rec.attribute8;
987 p6_a11 := ddx_lapv_rec.attribute9;
988 p6_a12 := ddx_lapv_rec.attribute10;
989 p6_a13 := ddx_lapv_rec.attribute11;
990 p6_a14 := ddx_lapv_rec.attribute12;
991 p6_a15 := ddx_lapv_rec.attribute13;
992 p6_a16 := ddx_lapv_rec.attribute14;
993 p6_a17 := ddx_lapv_rec.attribute15;
994 p6_a18 := ddx_lapv_rec.reference_number;
995 p6_a19 := ddx_lapv_rec.application_status;
996 p6_a20 := ddx_lapv_rec.valid_from;
997 p6_a21 := ddx_lapv_rec.valid_to;
998 p6_a22 := ddx_lapv_rec.org_id;
999 p6_a23 := ddx_lapv_rec.inv_org_id;
1000 p6_a24 := ddx_lapv_rec.prospect_id;
1001 p6_a25 := ddx_lapv_rec.prospect_address_id;
1002 p6_a26 := ddx_lapv_rec.cust_acct_id;
1003 p6_a27 := ddx_lapv_rec.industry_class;
1004 p6_a28 := ddx_lapv_rec.industry_code;
1005 p6_a29 := ddx_lapv_rec.currency_code;
1006 p6_a30 := ddx_lapv_rec.currency_conversion_type;
1007 p6_a31 := ddx_lapv_rec.currency_conversion_rate;
1008 p6_a32 := ddx_lapv_rec.currency_conversion_date;
1009 p6_a33 := ddx_lapv_rec.leaseapp_template_id;
1010 p6_a34 := ddx_lapv_rec.parent_leaseapp_id;
1011 p6_a35 := ddx_lapv_rec.credit_line_id;
1012 p6_a36 := ddx_lapv_rec.program_agreement_id;
1013 p6_a37 := ddx_lapv_rec.master_lease_id;
1014 p6_a38 := ddx_lapv_rec.sales_rep_id;
1015 p6_a39 := ddx_lapv_rec.sales_territory_id;
1016 p6_a40 := ddx_lapv_rec.originating_vendor_id;
1017 p6_a41 := ddx_lapv_rec.lease_opportunity_id;
1018 p6_a42 := ddx_lapv_rec.short_description;
1019 p6_a43 := ddx_lapv_rec.comments;
1020 p6_a44 := ddx_lapv_rec.cr_exp_days;
1021 p6_a45 := ddx_lapv_rec.action;
1022 p6_a46 := ddx_lapv_rec.orig_status;
1023
1024
1025 p8_a0 := ddx_lsqv_rec.id;
1026 p8_a1 := ddx_lsqv_rec.object_version_number;
1027 p8_a2 := ddx_lsqv_rec.attribute_category;
1028 p8_a3 := ddx_lsqv_rec.attribute1;
1029 p8_a4 := ddx_lsqv_rec.attribute2;
1030 p8_a5 := ddx_lsqv_rec.attribute3;
1031 p8_a6 := ddx_lsqv_rec.attribute4;
1032 p8_a7 := ddx_lsqv_rec.attribute5;
1033 p8_a8 := ddx_lsqv_rec.attribute6;
1034 p8_a9 := ddx_lsqv_rec.attribute7;
1035 p8_a10 := ddx_lsqv_rec.attribute8;
1036 p8_a11 := ddx_lsqv_rec.attribute9;
1037 p8_a12 := ddx_lsqv_rec.attribute10;
1038 p8_a13 := ddx_lsqv_rec.attribute11;
1039 p8_a14 := ddx_lsqv_rec.attribute12;
1040 p8_a15 := ddx_lsqv_rec.attribute13;
1041 p8_a16 := ddx_lsqv_rec.attribute14;
1042 p8_a17 := ddx_lsqv_rec.attribute15;
1043 p8_a18 := ddx_lsqv_rec.reference_number;
1044 p8_a19 := ddx_lsqv_rec.status;
1045 p8_a20 := ddx_lsqv_rec.parent_object_code;
1046 p8_a21 := ddx_lsqv_rec.parent_object_id;
1047 p8_a22 := ddx_lsqv_rec.valid_from;
1048 p8_a23 := ddx_lsqv_rec.valid_to;
1049 p8_a24 := ddx_lsqv_rec.customer_bookclass;
1050 p8_a25 := ddx_lsqv_rec.customer_taxowner;
1051 p8_a26 := ddx_lsqv_rec.expected_start_date;
1052 p8_a27 := ddx_lsqv_rec.expected_funding_date;
1053 p8_a28 := ddx_lsqv_rec.expected_delivery_date;
1054 p8_a29 := ddx_lsqv_rec.pricing_method;
1055 p8_a30 := ddx_lsqv_rec.term;
1056 p8_a31 := ddx_lsqv_rec.product_id;
1057 p8_a32 := ddx_lsqv_rec.end_of_term_option_id;
1058 p8_a33 := ddx_lsqv_rec.structured_pricing;
1059 p8_a34 := ddx_lsqv_rec.line_level_pricing;
1060 p8_a35 := ddx_lsqv_rec.rate_template_id;
1061 p8_a36 := ddx_lsqv_rec.rate_card_id;
1062 p8_a37 := ddx_lsqv_rec.lease_rate_factor;
1063 p8_a38 := ddx_lsqv_rec.target_rate_type;
1064 p8_a39 := ddx_lsqv_rec.target_rate;
1065 p8_a40 := ddx_lsqv_rec.target_amount;
1066 p8_a41 := ddx_lsqv_rec.target_frequency;
1067 p8_a42 := ddx_lsqv_rec.target_arrears_yn;
1068 p8_a43 := ddx_lsqv_rec.target_periods;
1069 p8_a44 := ddx_lsqv_rec.iir;
1070 p8_a45 := ddx_lsqv_rec.booking_yield;
1071 p8_a46 := ddx_lsqv_rec.pirr;
1072 p8_a47 := ddx_lsqv_rec.airr;
1073 p8_a48 := ddx_lsqv_rec.sub_iir;
1074 p8_a49 := ddx_lsqv_rec.sub_booking_yield;
1075 p8_a50 := ddx_lsqv_rec.sub_pirr;
1076 p8_a51 := ddx_lsqv_rec.sub_airr;
1077 p8_a52 := ddx_lsqv_rec.usage_category;
1078 p8_a53 := ddx_lsqv_rec.usage_industry_class;
1079 p8_a54 := ddx_lsqv_rec.usage_industry_code;
1080 p8_a55 := ddx_lsqv_rec.usage_amount;
1081 p8_a56 := ddx_lsqv_rec.usage_location_id;
1082 p8_a57 := ddx_lsqv_rec.property_tax_applicable;
1083 p8_a58 := ddx_lsqv_rec.property_tax_billing_type;
1084 p8_a59 := ddx_lsqv_rec.upfront_tax_treatment;
1085 p8_a60 := ddx_lsqv_rec.upfront_tax_stream_type;
1086 p8_a61 := ddx_lsqv_rec.transfer_of_title;
1087 p8_a62 := ddx_lsqv_rec.age_of_equipment;
1088 p8_a63 := ddx_lsqv_rec.purchase_of_lease;
1089 p8_a64 := ddx_lsqv_rec.sale_and_lease_back;
1090 p8_a65 := ddx_lsqv_rec.interest_disclosed;
1091 p8_a66 := ddx_lsqv_rec.primary_quote;
1092 p8_a67 := ddx_lsqv_rec.legal_entity_id;
1093 p8_a68 := ddx_lsqv_rec.line_intended_use;
1094 p8_a69 := ddx_lsqv_rec.short_description;
1095 p8_a70 := ddx_lsqv_rec.description;
1096 p8_a71 := ddx_lsqv_rec.comments;
1097 end;
1098
1099 procedure lease_app_val(p_api_version NUMBER
1100 , p_init_msg_list VARCHAR2
1101 , x_return_status out nocopy VARCHAR2
1102 , x_msg_count out nocopy NUMBER
1103 , x_msg_data out nocopy VARCHAR2
1104 , p5_a0 NUMBER
1105 , p5_a1 NUMBER
1106 , p5_a2 VARCHAR2
1107 , p5_a3 VARCHAR2
1108 , p5_a4 VARCHAR2
1109 , p5_a5 VARCHAR2
1110 , p5_a6 VARCHAR2
1111 , p5_a7 VARCHAR2
1112 , p5_a8 VARCHAR2
1113 , p5_a9 VARCHAR2
1114 , p5_a10 VARCHAR2
1115 , p5_a11 VARCHAR2
1116 , p5_a12 VARCHAR2
1117 , p5_a13 VARCHAR2
1118 , p5_a14 VARCHAR2
1119 , p5_a15 VARCHAR2
1120 , p5_a16 VARCHAR2
1121 , p5_a17 VARCHAR2
1122 , p5_a18 VARCHAR2
1123 , p5_a19 VARCHAR2
1124 , p5_a20 DATE
1125 , p5_a21 DATE
1126 , p5_a22 NUMBER
1127 , p5_a23 NUMBER
1128 , p5_a24 NUMBER
1129 , p5_a25 NUMBER
1130 , p5_a26 NUMBER
1131 , p5_a27 VARCHAR2
1132 , p5_a28 VARCHAR2
1133 , p5_a29 VARCHAR2
1134 , p5_a30 VARCHAR2
1135 , p5_a31 NUMBER
1136 , p5_a32 DATE
1137 , p5_a33 NUMBER
1138 , p5_a34 NUMBER
1139 , p5_a35 NUMBER
1140 , p5_a36 NUMBER
1141 , p5_a37 NUMBER
1142 , p5_a38 NUMBER
1143 , p5_a39 NUMBER
1144 , p5_a40 NUMBER
1145 , p5_a41 NUMBER
1146 , p5_a42 VARCHAR2
1147 , p5_a43 VARCHAR2
1148 , p5_a44 NUMBER
1149 , p5_a45 VARCHAR2
1150 , p5_a46 VARCHAR2
1151 , p6_a0 NUMBER
1152 , p6_a1 NUMBER
1153 , p6_a2 VARCHAR2
1154 , p6_a3 VARCHAR2
1155 , p6_a4 VARCHAR2
1156 , p6_a5 VARCHAR2
1157 , p6_a6 VARCHAR2
1158 , p6_a7 VARCHAR2
1159 , p6_a8 VARCHAR2
1160 , p6_a9 VARCHAR2
1161 , p6_a10 VARCHAR2
1162 , p6_a11 VARCHAR2
1163 , p6_a12 VARCHAR2
1164 , p6_a13 VARCHAR2
1165 , p6_a14 VARCHAR2
1166 , p6_a15 VARCHAR2
1167 , p6_a16 VARCHAR2
1168 , p6_a17 VARCHAR2
1169 , p6_a18 VARCHAR2
1170 , p6_a19 VARCHAR2
1171 , p6_a20 VARCHAR2
1172 , p6_a21 NUMBER
1173 , p6_a22 DATE
1174 , p6_a23 DATE
1175 , p6_a24 VARCHAR2
1176 , p6_a25 VARCHAR2
1177 , p6_a26 DATE
1178 , p6_a27 DATE
1179 , p6_a28 DATE
1180 , p6_a29 VARCHAR2
1181 , p6_a30 NUMBER
1182 , p6_a31 NUMBER
1183 , p6_a32 NUMBER
1184 , p6_a33 VARCHAR2
1185 , p6_a34 VARCHAR2
1186 , p6_a35 NUMBER
1187 , p6_a36 NUMBER
1188 , p6_a37 NUMBER
1189 , p6_a38 VARCHAR2
1190 , p6_a39 NUMBER
1191 , p6_a40 NUMBER
1192 , p6_a41 VARCHAR2
1193 , p6_a42 VARCHAR2
1194 , p6_a43 NUMBER
1195 , p6_a44 NUMBER
1196 , p6_a45 NUMBER
1197 , p6_a46 NUMBER
1198 , p6_a47 NUMBER
1199 , p6_a48 NUMBER
1200 , p6_a49 NUMBER
1201 , p6_a50 NUMBER
1202 , p6_a51 NUMBER
1203 , p6_a52 VARCHAR2
1204 , p6_a53 VARCHAR2
1205 , p6_a54 VARCHAR2
1206 , p6_a55 NUMBER
1207 , p6_a56 NUMBER
1208 , p6_a57 VARCHAR2
1209 , p6_a58 VARCHAR2
1210 , p6_a59 VARCHAR2
1211 , p6_a60 NUMBER
1212 , p6_a61 VARCHAR2
1213 , p6_a62 NUMBER
1214 , p6_a63 VARCHAR2
1215 , p6_a64 VARCHAR2
1216 , p6_a65 VARCHAR2
1217 , p6_a66 VARCHAR2
1218 , p6_a67 NUMBER
1219 , p6_a68 VARCHAR2
1220 , p6_a69 VARCHAR2
1221 , p6_a70 VARCHAR2
1222 , p6_a71 VARCHAR2
1223 )
1224
1225 as
1226 ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
1227 ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
1228 ddindx binary_integer; indx binary_integer;
1229 begin
1230
1231 -- copy data to the local IN or IN-OUT args, if any
1232
1233
1234
1235
1236
1237 ddp_lapv_rec.id := p5_a0;
1238 ddp_lapv_rec.object_version_number := p5_a1;
1239 ddp_lapv_rec.attribute_category := p5_a2;
1240 ddp_lapv_rec.attribute1 := p5_a3;
1241 ddp_lapv_rec.attribute2 := p5_a4;
1242 ddp_lapv_rec.attribute3 := p5_a5;
1243 ddp_lapv_rec.attribute4 := p5_a6;
1244 ddp_lapv_rec.attribute5 := p5_a7;
1245 ddp_lapv_rec.attribute6 := p5_a8;
1246 ddp_lapv_rec.attribute7 := p5_a9;
1247 ddp_lapv_rec.attribute8 := p5_a10;
1248 ddp_lapv_rec.attribute9 := p5_a11;
1249 ddp_lapv_rec.attribute10 := p5_a12;
1250 ddp_lapv_rec.attribute11 := p5_a13;
1251 ddp_lapv_rec.attribute12 := p5_a14;
1252 ddp_lapv_rec.attribute13 := p5_a15;
1253 ddp_lapv_rec.attribute14 := p5_a16;
1254 ddp_lapv_rec.attribute15 := p5_a17;
1255 ddp_lapv_rec.reference_number := p5_a18;
1256 ddp_lapv_rec.application_status := p5_a19;
1257 ddp_lapv_rec.valid_from := p5_a20;
1258 ddp_lapv_rec.valid_to := p5_a21;
1259 ddp_lapv_rec.org_id := p5_a22;
1260 ddp_lapv_rec.inv_org_id := p5_a23;
1261 ddp_lapv_rec.prospect_id := p5_a24;
1262 ddp_lapv_rec.prospect_address_id := p5_a25;
1263 ddp_lapv_rec.cust_acct_id := p5_a26;
1264 ddp_lapv_rec.industry_class := p5_a27;
1265 ddp_lapv_rec.industry_code := p5_a28;
1266 ddp_lapv_rec.currency_code := p5_a29;
1267 ddp_lapv_rec.currency_conversion_type := p5_a30;
1268 ddp_lapv_rec.currency_conversion_rate := p5_a31;
1269 ddp_lapv_rec.currency_conversion_date := p5_a32;
1270 ddp_lapv_rec.leaseapp_template_id := p5_a33;
1271 ddp_lapv_rec.parent_leaseapp_id := p5_a34;
1272 ddp_lapv_rec.credit_line_id := p5_a35;
1273 ddp_lapv_rec.program_agreement_id := p5_a36;
1274 ddp_lapv_rec.master_lease_id := p5_a37;
1275 ddp_lapv_rec.sales_rep_id := p5_a38;
1276 ddp_lapv_rec.sales_territory_id := p5_a39;
1277 ddp_lapv_rec.originating_vendor_id := p5_a40;
1278 ddp_lapv_rec.lease_opportunity_id := p5_a41;
1279 ddp_lapv_rec.short_description := p5_a42;
1280 ddp_lapv_rec.comments := p5_a43;
1281 ddp_lapv_rec.cr_exp_days := p5_a44;
1282 ddp_lapv_rec.action := p5_a45;
1283 ddp_lapv_rec.orig_status := p5_a46;
1284
1285 ddp_lsqv_rec.id := p6_a0;
1286 ddp_lsqv_rec.object_version_number := p6_a1;
1287 ddp_lsqv_rec.attribute_category := p6_a2;
1288 ddp_lsqv_rec.attribute1 := p6_a3;
1289 ddp_lsqv_rec.attribute2 := p6_a4;
1290 ddp_lsqv_rec.attribute3 := p6_a5;
1291 ddp_lsqv_rec.attribute4 := p6_a6;
1292 ddp_lsqv_rec.attribute5 := p6_a7;
1293 ddp_lsqv_rec.attribute6 := p6_a8;
1294 ddp_lsqv_rec.attribute7 := p6_a9;
1295 ddp_lsqv_rec.attribute8 := p6_a10;
1296 ddp_lsqv_rec.attribute9 := p6_a11;
1297 ddp_lsqv_rec.attribute10 := p6_a12;
1298 ddp_lsqv_rec.attribute11 := p6_a13;
1299 ddp_lsqv_rec.attribute12 := p6_a14;
1300 ddp_lsqv_rec.attribute13 := p6_a15;
1301 ddp_lsqv_rec.attribute14 := p6_a16;
1302 ddp_lsqv_rec.attribute15 := p6_a17;
1303 ddp_lsqv_rec.reference_number := p6_a18;
1304 ddp_lsqv_rec.status := p6_a19;
1305 ddp_lsqv_rec.parent_object_code := p6_a20;
1306 ddp_lsqv_rec.parent_object_id := p6_a21;
1307 ddp_lsqv_rec.valid_from := p6_a22;
1308 ddp_lsqv_rec.valid_to := p6_a23;
1309 ddp_lsqv_rec.customer_bookclass := p6_a24;
1310 ddp_lsqv_rec.customer_taxowner := p6_a25;
1311 ddp_lsqv_rec.expected_start_date := p6_a26;
1312 ddp_lsqv_rec.expected_funding_date := p6_a27;
1313 ddp_lsqv_rec.expected_delivery_date := p6_a28;
1314 ddp_lsqv_rec.pricing_method := p6_a29;
1315 ddp_lsqv_rec.term := p6_a30;
1316 ddp_lsqv_rec.product_id := p6_a31;
1317 ddp_lsqv_rec.end_of_term_option_id := p6_a32;
1318 ddp_lsqv_rec.structured_pricing := p6_a33;
1319 ddp_lsqv_rec.line_level_pricing := p6_a34;
1320 ddp_lsqv_rec.rate_template_id := p6_a35;
1321 ddp_lsqv_rec.rate_card_id := p6_a36;
1322 ddp_lsqv_rec.lease_rate_factor := p6_a37;
1323 ddp_lsqv_rec.target_rate_type := p6_a38;
1324 ddp_lsqv_rec.target_rate := p6_a39;
1325 ddp_lsqv_rec.target_amount := p6_a40;
1326 ddp_lsqv_rec.target_frequency := p6_a41;
1327 ddp_lsqv_rec.target_arrears_yn := p6_a42;
1328 ddp_lsqv_rec.target_periods := p6_a43;
1329 ddp_lsqv_rec.iir := p6_a44;
1330 ddp_lsqv_rec.booking_yield := p6_a45;
1331 ddp_lsqv_rec.pirr := p6_a46;
1332 ddp_lsqv_rec.airr := p6_a47;
1333 ddp_lsqv_rec.sub_iir := p6_a48;
1334 ddp_lsqv_rec.sub_booking_yield := p6_a49;
1335 ddp_lsqv_rec.sub_pirr := p6_a50;
1336 ddp_lsqv_rec.sub_airr := p6_a51;
1337 ddp_lsqv_rec.usage_category := p6_a52;
1338 ddp_lsqv_rec.usage_industry_class := p6_a53;
1339 ddp_lsqv_rec.usage_industry_code := p6_a54;
1340 ddp_lsqv_rec.usage_amount := p6_a55;
1341 ddp_lsqv_rec.usage_location_id := p6_a56;
1342 ddp_lsqv_rec.property_tax_applicable := p6_a57;
1343 ddp_lsqv_rec.property_tax_billing_type := p6_a58;
1344 ddp_lsqv_rec.upfront_tax_treatment := p6_a59;
1345 ddp_lsqv_rec.upfront_tax_stream_type := p6_a60;
1346 ddp_lsqv_rec.transfer_of_title := p6_a61;
1347 ddp_lsqv_rec.age_of_equipment := p6_a62;
1348 ddp_lsqv_rec.purchase_of_lease := p6_a63;
1349 ddp_lsqv_rec.sale_and_lease_back := p6_a64;
1350 ddp_lsqv_rec.interest_disclosed := p6_a65;
1351 ddp_lsqv_rec.primary_quote := p6_a66;
1352 ddp_lsqv_rec.legal_entity_id := p6_a67;
1353 ddp_lsqv_rec.line_intended_use := p6_a68;
1354 ddp_lsqv_rec.short_description := p6_a69;
1355 ddp_lsqv_rec.description := p6_a70;
1356 ddp_lsqv_rec.comments := p6_a71;
1357
1358 -- here's the delegated call to the old PL/SQL routine
1359 okl_lease_app_pvt.lease_app_val(p_api_version,
1360 p_init_msg_list,
1361 x_return_status,
1362 x_msg_count,
1363 x_msg_data,
1364 ddp_lapv_rec,
1365 ddp_lsqv_rec);
1366
1367 -- copy data back from the local variables to OUT or IN-OUT args, if any
1368
1369
1370
1371
1372
1373
1374 end;
1375
1376 procedure lease_app_accept(p_api_version NUMBER
1377 , p_init_msg_list VARCHAR2
1378 , x_return_status out nocopy VARCHAR2
1379 , x_msg_count out nocopy NUMBER
1380 , x_msg_data out nocopy VARCHAR2
1381 , p5_a0 NUMBER
1382 , p5_a1 NUMBER
1383 , p5_a2 VARCHAR2
1384 , p5_a3 VARCHAR2
1385 , p5_a4 VARCHAR2
1386 , p5_a5 VARCHAR2
1387 , p5_a6 VARCHAR2
1388 , p5_a7 VARCHAR2
1389 , p5_a8 VARCHAR2
1390 , p5_a9 VARCHAR2
1391 , p5_a10 VARCHAR2
1392 , p5_a11 VARCHAR2
1393 , p5_a12 VARCHAR2
1394 , p5_a13 VARCHAR2
1395 , p5_a14 VARCHAR2
1396 , p5_a15 VARCHAR2
1397 , p5_a16 VARCHAR2
1398 , p5_a17 VARCHAR2
1399 , p5_a18 VARCHAR2
1400 , p5_a19 VARCHAR2
1401 , p5_a20 DATE
1402 , p5_a21 DATE
1403 , p5_a22 NUMBER
1404 , p5_a23 NUMBER
1405 , p5_a24 NUMBER
1406 , p5_a25 NUMBER
1407 , p5_a26 NUMBER
1408 , p5_a27 VARCHAR2
1409 , p5_a28 VARCHAR2
1410 , p5_a29 VARCHAR2
1411 , p5_a30 VARCHAR2
1412 , p5_a31 NUMBER
1413 , p5_a32 DATE
1414 , p5_a33 NUMBER
1415 , p5_a34 NUMBER
1416 , p5_a35 NUMBER
1417 , p5_a36 NUMBER
1418 , p5_a37 NUMBER
1419 , p5_a38 NUMBER
1420 , p5_a39 NUMBER
1421 , p5_a40 NUMBER
1422 , p5_a41 NUMBER
1423 , p5_a42 VARCHAR2
1424 , p5_a43 VARCHAR2
1425 , p5_a44 NUMBER
1426 , p5_a45 VARCHAR2
1427 , p5_a46 VARCHAR2
1428 , p6_a0 out nocopy NUMBER
1429 , p6_a1 out nocopy NUMBER
1430 , p6_a2 out nocopy VARCHAR2
1431 , p6_a3 out nocopy VARCHAR2
1432 , p6_a4 out nocopy VARCHAR2
1433 , p6_a5 out nocopy VARCHAR2
1434 , p6_a6 out nocopy VARCHAR2
1435 , p6_a7 out nocopy VARCHAR2
1436 , p6_a8 out nocopy VARCHAR2
1437 , p6_a9 out nocopy VARCHAR2
1438 , p6_a10 out nocopy VARCHAR2
1439 , p6_a11 out nocopy VARCHAR2
1440 , p6_a12 out nocopy VARCHAR2
1441 , p6_a13 out nocopy VARCHAR2
1442 , p6_a14 out nocopy VARCHAR2
1443 , p6_a15 out nocopy VARCHAR2
1444 , p6_a16 out nocopy VARCHAR2
1445 , p6_a17 out nocopy VARCHAR2
1446 , p6_a18 out nocopy VARCHAR2
1447 , p6_a19 out nocopy VARCHAR2
1448 , p6_a20 out nocopy DATE
1449 , p6_a21 out nocopy DATE
1450 , p6_a22 out nocopy NUMBER
1451 , p6_a23 out nocopy NUMBER
1452 , p6_a24 out nocopy NUMBER
1453 , p6_a25 out nocopy NUMBER
1454 , p6_a26 out nocopy NUMBER
1455 , p6_a27 out nocopy VARCHAR2
1456 , p6_a28 out nocopy VARCHAR2
1457 , p6_a29 out nocopy VARCHAR2
1458 , p6_a30 out nocopy VARCHAR2
1459 , p6_a31 out nocopy NUMBER
1460 , p6_a32 out nocopy DATE
1461 , p6_a33 out nocopy NUMBER
1462 , p6_a34 out nocopy NUMBER
1463 , p6_a35 out nocopy NUMBER
1464 , p6_a36 out nocopy NUMBER
1465 , p6_a37 out nocopy NUMBER
1466 , p6_a38 out nocopy NUMBER
1467 , p6_a39 out nocopy NUMBER
1468 , p6_a40 out nocopy NUMBER
1469 , p6_a41 out nocopy NUMBER
1470 , p6_a42 out nocopy VARCHAR2
1471 , p6_a43 out nocopy VARCHAR2
1472 , p6_a44 out nocopy NUMBER
1473 , p6_a45 out nocopy VARCHAR2
1474 , p6_a46 out nocopy VARCHAR2
1475 )
1476
1477 as
1478 ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
1479 ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
1480 ddindx binary_integer; indx binary_integer;
1481 begin
1482
1483 -- copy data to the local IN or IN-OUT args, if any
1484
1485
1486
1487
1488
1489 ddp_lapv_rec.id := p5_a0;
1490 ddp_lapv_rec.object_version_number := p5_a1;
1491 ddp_lapv_rec.attribute_category := p5_a2;
1492 ddp_lapv_rec.attribute1 := p5_a3;
1493 ddp_lapv_rec.attribute2 := p5_a4;
1494 ddp_lapv_rec.attribute3 := p5_a5;
1495 ddp_lapv_rec.attribute4 := p5_a6;
1496 ddp_lapv_rec.attribute5 := p5_a7;
1497 ddp_lapv_rec.attribute6 := p5_a8;
1498 ddp_lapv_rec.attribute7 := p5_a9;
1499 ddp_lapv_rec.attribute8 := p5_a10;
1500 ddp_lapv_rec.attribute9 := p5_a11;
1501 ddp_lapv_rec.attribute10 := p5_a12;
1502 ddp_lapv_rec.attribute11 := p5_a13;
1503 ddp_lapv_rec.attribute12 := p5_a14;
1504 ddp_lapv_rec.attribute13 := p5_a15;
1505 ddp_lapv_rec.attribute14 := p5_a16;
1506 ddp_lapv_rec.attribute15 := p5_a17;
1507 ddp_lapv_rec.reference_number := p5_a18;
1508 ddp_lapv_rec.application_status := p5_a19;
1509 ddp_lapv_rec.valid_from := p5_a20;
1510 ddp_lapv_rec.valid_to := p5_a21;
1511 ddp_lapv_rec.org_id := p5_a22;
1512 ddp_lapv_rec.inv_org_id := p5_a23;
1513 ddp_lapv_rec.prospect_id := p5_a24;
1514 ddp_lapv_rec.prospect_address_id := p5_a25;
1515 ddp_lapv_rec.cust_acct_id := p5_a26;
1516 ddp_lapv_rec.industry_class := p5_a27;
1517 ddp_lapv_rec.industry_code := p5_a28;
1518 ddp_lapv_rec.currency_code := p5_a29;
1519 ddp_lapv_rec.currency_conversion_type := p5_a30;
1520 ddp_lapv_rec.currency_conversion_rate := p5_a31;
1521 ddp_lapv_rec.currency_conversion_date := p5_a32;
1522 ddp_lapv_rec.leaseapp_template_id := p5_a33;
1523 ddp_lapv_rec.parent_leaseapp_id := p5_a34;
1524 ddp_lapv_rec.credit_line_id := p5_a35;
1525 ddp_lapv_rec.program_agreement_id := p5_a36;
1526 ddp_lapv_rec.master_lease_id := p5_a37;
1527 ddp_lapv_rec.sales_rep_id := p5_a38;
1528 ddp_lapv_rec.sales_territory_id := p5_a39;
1529 ddp_lapv_rec.originating_vendor_id := p5_a40;
1530 ddp_lapv_rec.lease_opportunity_id := p5_a41;
1531 ddp_lapv_rec.short_description := p5_a42;
1532 ddp_lapv_rec.comments := p5_a43;
1533 ddp_lapv_rec.cr_exp_days := p5_a44;
1534 ddp_lapv_rec.action := p5_a45;
1535 ddp_lapv_rec.orig_status := p5_a46;
1536
1537
1538 -- here's the delegated call to the old PL/SQL routine
1539 okl_lease_app_pvt.lease_app_accept(p_api_version,
1540 p_init_msg_list,
1541 x_return_status,
1542 x_msg_count,
1543 x_msg_data,
1544 ddp_lapv_rec,
1545 ddx_lapv_rec);
1546
1547 -- copy data back from the local variables to OUT or IN-OUT args, if any
1548
1549
1550
1551
1552
1553
1554 p6_a0 := ddx_lapv_rec.id;
1555 p6_a1 := ddx_lapv_rec.object_version_number;
1556 p6_a2 := ddx_lapv_rec.attribute_category;
1557 p6_a3 := ddx_lapv_rec.attribute1;
1558 p6_a4 := ddx_lapv_rec.attribute2;
1559 p6_a5 := ddx_lapv_rec.attribute3;
1560 p6_a6 := ddx_lapv_rec.attribute4;
1561 p6_a7 := ddx_lapv_rec.attribute5;
1562 p6_a8 := ddx_lapv_rec.attribute6;
1563 p6_a9 := ddx_lapv_rec.attribute7;
1564 p6_a10 := ddx_lapv_rec.attribute8;
1565 p6_a11 := ddx_lapv_rec.attribute9;
1566 p6_a12 := ddx_lapv_rec.attribute10;
1567 p6_a13 := ddx_lapv_rec.attribute11;
1568 p6_a14 := ddx_lapv_rec.attribute12;
1569 p6_a15 := ddx_lapv_rec.attribute13;
1570 p6_a16 := ddx_lapv_rec.attribute14;
1571 p6_a17 := ddx_lapv_rec.attribute15;
1572 p6_a18 := ddx_lapv_rec.reference_number;
1573 p6_a19 := ddx_lapv_rec.application_status;
1574 p6_a20 := ddx_lapv_rec.valid_from;
1575 p6_a21 := ddx_lapv_rec.valid_to;
1576 p6_a22 := ddx_lapv_rec.org_id;
1577 p6_a23 := ddx_lapv_rec.inv_org_id;
1578 p6_a24 := ddx_lapv_rec.prospect_id;
1579 p6_a25 := ddx_lapv_rec.prospect_address_id;
1580 p6_a26 := ddx_lapv_rec.cust_acct_id;
1581 p6_a27 := ddx_lapv_rec.industry_class;
1582 p6_a28 := ddx_lapv_rec.industry_code;
1583 p6_a29 := ddx_lapv_rec.currency_code;
1584 p6_a30 := ddx_lapv_rec.currency_conversion_type;
1585 p6_a31 := ddx_lapv_rec.currency_conversion_rate;
1586 p6_a32 := ddx_lapv_rec.currency_conversion_date;
1587 p6_a33 := ddx_lapv_rec.leaseapp_template_id;
1588 p6_a34 := ddx_lapv_rec.parent_leaseapp_id;
1589 p6_a35 := ddx_lapv_rec.credit_line_id;
1590 p6_a36 := ddx_lapv_rec.program_agreement_id;
1591 p6_a37 := ddx_lapv_rec.master_lease_id;
1592 p6_a38 := ddx_lapv_rec.sales_rep_id;
1593 p6_a39 := ddx_lapv_rec.sales_territory_id;
1594 p6_a40 := ddx_lapv_rec.originating_vendor_id;
1595 p6_a41 := ddx_lapv_rec.lease_opportunity_id;
1596 p6_a42 := ddx_lapv_rec.short_description;
1597 p6_a43 := ddx_lapv_rec.comments;
1598 p6_a44 := ddx_lapv_rec.cr_exp_days;
1599 p6_a45 := ddx_lapv_rec.action;
1600 p6_a46 := ddx_lapv_rec.orig_status;
1601 end;
1602
1603 procedure lease_app_withdraw(p_api_version NUMBER
1604 , p_init_msg_list VARCHAR2
1605 , x_return_status out nocopy VARCHAR2
1606 , x_msg_count out nocopy NUMBER
1607 , x_msg_data out nocopy VARCHAR2
1608 , p5_a0 NUMBER
1609 , p5_a1 NUMBER
1610 , p5_a2 VARCHAR2
1611 , p5_a3 VARCHAR2
1612 , p5_a4 VARCHAR2
1613 , p5_a5 VARCHAR2
1614 , p5_a6 VARCHAR2
1615 , p5_a7 VARCHAR2
1616 , p5_a8 VARCHAR2
1617 , p5_a9 VARCHAR2
1618 , p5_a10 VARCHAR2
1619 , p5_a11 VARCHAR2
1620 , p5_a12 VARCHAR2
1621 , p5_a13 VARCHAR2
1622 , p5_a14 VARCHAR2
1623 , p5_a15 VARCHAR2
1624 , p5_a16 VARCHAR2
1625 , p5_a17 VARCHAR2
1626 , p5_a18 VARCHAR2
1627 , p5_a19 VARCHAR2
1628 , p5_a20 DATE
1629 , p5_a21 DATE
1630 , p5_a22 NUMBER
1631 , p5_a23 NUMBER
1632 , p5_a24 NUMBER
1633 , p5_a25 NUMBER
1634 , p5_a26 NUMBER
1635 , p5_a27 VARCHAR2
1636 , p5_a28 VARCHAR2
1637 , p5_a29 VARCHAR2
1638 , p5_a30 VARCHAR2
1639 , p5_a31 NUMBER
1640 , p5_a32 DATE
1641 , p5_a33 NUMBER
1642 , p5_a34 NUMBER
1643 , p5_a35 NUMBER
1644 , p5_a36 NUMBER
1645 , p5_a37 NUMBER
1646 , p5_a38 NUMBER
1647 , p5_a39 NUMBER
1648 , p5_a40 NUMBER
1649 , p5_a41 NUMBER
1650 , p5_a42 VARCHAR2
1651 , p5_a43 VARCHAR2
1652 , p5_a44 NUMBER
1653 , p5_a45 VARCHAR2
1654 , p5_a46 VARCHAR2
1655 , p6_a0 out nocopy NUMBER
1656 , p6_a1 out nocopy NUMBER
1657 , p6_a2 out nocopy VARCHAR2
1658 , p6_a3 out nocopy VARCHAR2
1659 , p6_a4 out nocopy VARCHAR2
1660 , p6_a5 out nocopy VARCHAR2
1661 , p6_a6 out nocopy VARCHAR2
1662 , p6_a7 out nocopy VARCHAR2
1663 , p6_a8 out nocopy VARCHAR2
1664 , p6_a9 out nocopy VARCHAR2
1665 , p6_a10 out nocopy VARCHAR2
1666 , p6_a11 out nocopy VARCHAR2
1667 , p6_a12 out nocopy VARCHAR2
1668 , p6_a13 out nocopy VARCHAR2
1669 , p6_a14 out nocopy VARCHAR2
1670 , p6_a15 out nocopy VARCHAR2
1671 , p6_a16 out nocopy VARCHAR2
1672 , p6_a17 out nocopy VARCHAR2
1673 , p6_a18 out nocopy VARCHAR2
1674 , p6_a19 out nocopy VARCHAR2
1675 , p6_a20 out nocopy DATE
1676 , p6_a21 out nocopy DATE
1677 , p6_a22 out nocopy NUMBER
1678 , p6_a23 out nocopy NUMBER
1679 , p6_a24 out nocopy NUMBER
1680 , p6_a25 out nocopy NUMBER
1681 , p6_a26 out nocopy NUMBER
1682 , p6_a27 out nocopy VARCHAR2
1683 , p6_a28 out nocopy VARCHAR2
1684 , p6_a29 out nocopy VARCHAR2
1685 , p6_a30 out nocopy VARCHAR2
1686 , p6_a31 out nocopy NUMBER
1687 , p6_a32 out nocopy DATE
1688 , p6_a33 out nocopy NUMBER
1689 , p6_a34 out nocopy NUMBER
1690 , p6_a35 out nocopy NUMBER
1691 , p6_a36 out nocopy NUMBER
1692 , p6_a37 out nocopy NUMBER
1693 , p6_a38 out nocopy NUMBER
1694 , p6_a39 out nocopy NUMBER
1695 , p6_a40 out nocopy NUMBER
1696 , p6_a41 out nocopy NUMBER
1697 , p6_a42 out nocopy VARCHAR2
1698 , p6_a43 out nocopy VARCHAR2
1699 , p6_a44 out nocopy NUMBER
1700 , p6_a45 out nocopy VARCHAR2
1701 , p6_a46 out nocopy VARCHAR2
1702 )
1703
1704 as
1705 ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
1706 ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
1707 ddindx binary_integer; indx binary_integer;
1708 begin
1709
1710 -- copy data to the local IN or IN-OUT args, if any
1711
1712
1713
1714
1715
1716 ddp_lapv_rec.id := p5_a0;
1717 ddp_lapv_rec.object_version_number := p5_a1;
1718 ddp_lapv_rec.attribute_category := p5_a2;
1719 ddp_lapv_rec.attribute1 := p5_a3;
1720 ddp_lapv_rec.attribute2 := p5_a4;
1721 ddp_lapv_rec.attribute3 := p5_a5;
1722 ddp_lapv_rec.attribute4 := p5_a6;
1723 ddp_lapv_rec.attribute5 := p5_a7;
1724 ddp_lapv_rec.attribute6 := p5_a8;
1725 ddp_lapv_rec.attribute7 := p5_a9;
1726 ddp_lapv_rec.attribute8 := p5_a10;
1727 ddp_lapv_rec.attribute9 := p5_a11;
1728 ddp_lapv_rec.attribute10 := p5_a12;
1729 ddp_lapv_rec.attribute11 := p5_a13;
1730 ddp_lapv_rec.attribute12 := p5_a14;
1731 ddp_lapv_rec.attribute13 := p5_a15;
1732 ddp_lapv_rec.attribute14 := p5_a16;
1733 ddp_lapv_rec.attribute15 := p5_a17;
1734 ddp_lapv_rec.reference_number := p5_a18;
1735 ddp_lapv_rec.application_status := p5_a19;
1736 ddp_lapv_rec.valid_from := p5_a20;
1737 ddp_lapv_rec.valid_to := p5_a21;
1738 ddp_lapv_rec.org_id := p5_a22;
1739 ddp_lapv_rec.inv_org_id := p5_a23;
1740 ddp_lapv_rec.prospect_id := p5_a24;
1741 ddp_lapv_rec.prospect_address_id := p5_a25;
1742 ddp_lapv_rec.cust_acct_id := p5_a26;
1743 ddp_lapv_rec.industry_class := p5_a27;
1744 ddp_lapv_rec.industry_code := p5_a28;
1745 ddp_lapv_rec.currency_code := p5_a29;
1746 ddp_lapv_rec.currency_conversion_type := p5_a30;
1747 ddp_lapv_rec.currency_conversion_rate := p5_a31;
1748 ddp_lapv_rec.currency_conversion_date := p5_a32;
1749 ddp_lapv_rec.leaseapp_template_id := p5_a33;
1750 ddp_lapv_rec.parent_leaseapp_id := p5_a34;
1751 ddp_lapv_rec.credit_line_id := p5_a35;
1752 ddp_lapv_rec.program_agreement_id := p5_a36;
1753 ddp_lapv_rec.master_lease_id := p5_a37;
1754 ddp_lapv_rec.sales_rep_id := p5_a38;
1755 ddp_lapv_rec.sales_territory_id := p5_a39;
1756 ddp_lapv_rec.originating_vendor_id := p5_a40;
1757 ddp_lapv_rec.lease_opportunity_id := p5_a41;
1758 ddp_lapv_rec.short_description := p5_a42;
1759 ddp_lapv_rec.comments := p5_a43;
1760 ddp_lapv_rec.cr_exp_days := p5_a44;
1761 ddp_lapv_rec.action := p5_a45;
1762 ddp_lapv_rec.orig_status := p5_a46;
1763
1764
1765 -- here's the delegated call to the old PL/SQL routine
1766 okl_lease_app_pvt.lease_app_withdraw(p_api_version,
1767 p_init_msg_list,
1768 x_return_status,
1769 x_msg_count,
1770 x_msg_data,
1771 ddp_lapv_rec,
1772 ddx_lapv_rec);
1773
1774 -- copy data back from the local variables to OUT or IN-OUT args, if any
1775
1776
1777
1778
1779
1780
1781 p6_a0 := ddx_lapv_rec.id;
1782 p6_a1 := ddx_lapv_rec.object_version_number;
1783 p6_a2 := ddx_lapv_rec.attribute_category;
1784 p6_a3 := ddx_lapv_rec.attribute1;
1785 p6_a4 := ddx_lapv_rec.attribute2;
1786 p6_a5 := ddx_lapv_rec.attribute3;
1787 p6_a6 := ddx_lapv_rec.attribute4;
1788 p6_a7 := ddx_lapv_rec.attribute5;
1789 p6_a8 := ddx_lapv_rec.attribute6;
1790 p6_a9 := ddx_lapv_rec.attribute7;
1791 p6_a10 := ddx_lapv_rec.attribute8;
1792 p6_a11 := ddx_lapv_rec.attribute9;
1793 p6_a12 := ddx_lapv_rec.attribute10;
1794 p6_a13 := ddx_lapv_rec.attribute11;
1795 p6_a14 := ddx_lapv_rec.attribute12;
1796 p6_a15 := ddx_lapv_rec.attribute13;
1797 p6_a16 := ddx_lapv_rec.attribute14;
1798 p6_a17 := ddx_lapv_rec.attribute15;
1799 p6_a18 := ddx_lapv_rec.reference_number;
1800 p6_a19 := ddx_lapv_rec.application_status;
1801 p6_a20 := ddx_lapv_rec.valid_from;
1802 p6_a21 := ddx_lapv_rec.valid_to;
1803 p6_a22 := ddx_lapv_rec.org_id;
1804 p6_a23 := ddx_lapv_rec.inv_org_id;
1805 p6_a24 := ddx_lapv_rec.prospect_id;
1806 p6_a25 := ddx_lapv_rec.prospect_address_id;
1807 p6_a26 := ddx_lapv_rec.cust_acct_id;
1808 p6_a27 := ddx_lapv_rec.industry_class;
1809 p6_a28 := ddx_lapv_rec.industry_code;
1810 p6_a29 := ddx_lapv_rec.currency_code;
1811 p6_a30 := ddx_lapv_rec.currency_conversion_type;
1812 p6_a31 := ddx_lapv_rec.currency_conversion_rate;
1813 p6_a32 := ddx_lapv_rec.currency_conversion_date;
1814 p6_a33 := ddx_lapv_rec.leaseapp_template_id;
1815 p6_a34 := ddx_lapv_rec.parent_leaseapp_id;
1816 p6_a35 := ddx_lapv_rec.credit_line_id;
1817 p6_a36 := ddx_lapv_rec.program_agreement_id;
1818 p6_a37 := ddx_lapv_rec.master_lease_id;
1819 p6_a38 := ddx_lapv_rec.sales_rep_id;
1820 p6_a39 := ddx_lapv_rec.sales_territory_id;
1821 p6_a40 := ddx_lapv_rec.originating_vendor_id;
1822 p6_a41 := ddx_lapv_rec.lease_opportunity_id;
1823 p6_a42 := ddx_lapv_rec.short_description;
1824 p6_a43 := ddx_lapv_rec.comments;
1825 p6_a44 := ddx_lapv_rec.cr_exp_days;
1826 p6_a45 := ddx_lapv_rec.action;
1827 p6_a46 := ddx_lapv_rec.orig_status;
1828 end;
1829
1830 procedure lease_app_dup(p_api_version NUMBER
1831 , p_init_msg_list VARCHAR2
1832 , x_return_status out nocopy VARCHAR2
1833 , x_msg_count out nocopy NUMBER
1834 , x_msg_data out nocopy VARCHAR2
1835 , p_source_lap_id NUMBER
1836 , p6_a0 NUMBER
1837 , p6_a1 NUMBER
1838 , p6_a2 VARCHAR2
1839 , p6_a3 VARCHAR2
1840 , p6_a4 VARCHAR2
1841 , p6_a5 VARCHAR2
1842 , p6_a6 VARCHAR2
1843 , p6_a7 VARCHAR2
1844 , p6_a8 VARCHAR2
1845 , p6_a9 VARCHAR2
1846 , p6_a10 VARCHAR2
1847 , p6_a11 VARCHAR2
1848 , p6_a12 VARCHAR2
1849 , p6_a13 VARCHAR2
1850 , p6_a14 VARCHAR2
1851 , p6_a15 VARCHAR2
1852 , p6_a16 VARCHAR2
1853 , p6_a17 VARCHAR2
1854 , p6_a18 VARCHAR2
1855 , p6_a19 VARCHAR2
1856 , p6_a20 DATE
1857 , p6_a21 DATE
1858 , p6_a22 NUMBER
1859 , p6_a23 NUMBER
1860 , p6_a24 NUMBER
1861 , p6_a25 NUMBER
1862 , p6_a26 NUMBER
1863 , p6_a27 VARCHAR2
1864 , p6_a28 VARCHAR2
1865 , p6_a29 VARCHAR2
1866 , p6_a30 VARCHAR2
1867 , p6_a31 NUMBER
1868 , p6_a32 DATE
1869 , p6_a33 NUMBER
1870 , p6_a34 NUMBER
1871 , p6_a35 NUMBER
1872 , p6_a36 NUMBER
1873 , p6_a37 NUMBER
1874 , p6_a38 NUMBER
1875 , p6_a39 NUMBER
1876 , p6_a40 NUMBER
1877 , p6_a41 NUMBER
1878 , p6_a42 VARCHAR2
1879 , p6_a43 VARCHAR2
1880 , p6_a44 NUMBER
1881 , p6_a45 VARCHAR2
1882 , p6_a46 VARCHAR2
1883 , p7_a0 out nocopy NUMBER
1884 , p7_a1 out nocopy NUMBER
1885 , p7_a2 out nocopy VARCHAR2
1886 , p7_a3 out nocopy VARCHAR2
1887 , p7_a4 out nocopy VARCHAR2
1888 , p7_a5 out nocopy VARCHAR2
1889 , p7_a6 out nocopy VARCHAR2
1890 , p7_a7 out nocopy VARCHAR2
1891 , p7_a8 out nocopy VARCHAR2
1892 , p7_a9 out nocopy VARCHAR2
1893 , p7_a10 out nocopy VARCHAR2
1894 , p7_a11 out nocopy VARCHAR2
1895 , p7_a12 out nocopy VARCHAR2
1896 , p7_a13 out nocopy VARCHAR2
1897 , p7_a14 out nocopy VARCHAR2
1898 , p7_a15 out nocopy VARCHAR2
1899 , p7_a16 out nocopy VARCHAR2
1900 , p7_a17 out nocopy VARCHAR2
1901 , p7_a18 out nocopy VARCHAR2
1902 , p7_a19 out nocopy VARCHAR2
1903 , p7_a20 out nocopy DATE
1904 , p7_a21 out nocopy DATE
1905 , p7_a22 out nocopy NUMBER
1906 , p7_a23 out nocopy NUMBER
1907 , p7_a24 out nocopy NUMBER
1908 , p7_a25 out nocopy NUMBER
1909 , p7_a26 out nocopy NUMBER
1910 , p7_a27 out nocopy VARCHAR2
1911 , p7_a28 out nocopy VARCHAR2
1912 , p7_a29 out nocopy VARCHAR2
1913 , p7_a30 out nocopy VARCHAR2
1914 , p7_a31 out nocopy NUMBER
1915 , p7_a32 out nocopy DATE
1916 , p7_a33 out nocopy NUMBER
1917 , p7_a34 out nocopy NUMBER
1918 , p7_a35 out nocopy NUMBER
1919 , p7_a36 out nocopy NUMBER
1920 , p7_a37 out nocopy NUMBER
1921 , p7_a38 out nocopy NUMBER
1922 , p7_a39 out nocopy NUMBER
1923 , p7_a40 out nocopy NUMBER
1924 , p7_a41 out nocopy NUMBER
1925 , p7_a42 out nocopy VARCHAR2
1926 , p7_a43 out nocopy VARCHAR2
1927 , p7_a44 out nocopy NUMBER
1928 , p7_a45 out nocopy VARCHAR2
1929 , p7_a46 out nocopy VARCHAR2
1930 , p8_a0 NUMBER
1931 , p8_a1 NUMBER
1932 , p8_a2 VARCHAR2
1933 , p8_a3 VARCHAR2
1934 , p8_a4 VARCHAR2
1935 , p8_a5 VARCHAR2
1936 , p8_a6 VARCHAR2
1937 , p8_a7 VARCHAR2
1938 , p8_a8 VARCHAR2
1939 , p8_a9 VARCHAR2
1940 , p8_a10 VARCHAR2
1941 , p8_a11 VARCHAR2
1942 , p8_a12 VARCHAR2
1943 , p8_a13 VARCHAR2
1944 , p8_a14 VARCHAR2
1945 , p8_a15 VARCHAR2
1946 , p8_a16 VARCHAR2
1947 , p8_a17 VARCHAR2
1948 , p8_a18 VARCHAR2
1949 , p8_a19 VARCHAR2
1950 , p8_a20 VARCHAR2
1951 , p8_a21 NUMBER
1952 , p8_a22 DATE
1953 , p8_a23 DATE
1954 , p8_a24 VARCHAR2
1955 , p8_a25 VARCHAR2
1956 , p8_a26 DATE
1957 , p8_a27 DATE
1958 , p8_a28 DATE
1959 , p8_a29 VARCHAR2
1960 , p8_a30 NUMBER
1961 , p8_a31 NUMBER
1962 , p8_a32 NUMBER
1963 , p8_a33 VARCHAR2
1964 , p8_a34 VARCHAR2
1965 , p8_a35 NUMBER
1966 , p8_a36 NUMBER
1967 , p8_a37 NUMBER
1968 , p8_a38 VARCHAR2
1969 , p8_a39 NUMBER
1970 , p8_a40 NUMBER
1971 , p8_a41 VARCHAR2
1972 , p8_a42 VARCHAR2
1973 , p8_a43 NUMBER
1974 , p8_a44 NUMBER
1975 , p8_a45 NUMBER
1976 , p8_a46 NUMBER
1977 , p8_a47 NUMBER
1978 , p8_a48 NUMBER
1979 , p8_a49 NUMBER
1980 , p8_a50 NUMBER
1981 , p8_a51 NUMBER
1982 , p8_a52 VARCHAR2
1983 , p8_a53 VARCHAR2
1984 , p8_a54 VARCHAR2
1985 , p8_a55 NUMBER
1986 , p8_a56 NUMBER
1987 , p8_a57 VARCHAR2
1988 , p8_a58 VARCHAR2
1989 , p8_a59 VARCHAR2
1990 , p8_a60 NUMBER
1991 , p8_a61 VARCHAR2
1992 , p8_a62 NUMBER
1993 , p8_a63 VARCHAR2
1994 , p8_a64 VARCHAR2
1995 , p8_a65 VARCHAR2
1996 , p8_a66 VARCHAR2
1997 , p8_a67 NUMBER
1998 , p8_a68 VARCHAR2
1999 , p8_a69 VARCHAR2
2000 , p8_a70 VARCHAR2
2001 , p8_a71 VARCHAR2
2002 , p9_a0 out nocopy NUMBER
2003 , p9_a1 out nocopy NUMBER
2004 , p9_a2 out nocopy VARCHAR2
2005 , p9_a3 out nocopy VARCHAR2
2006 , p9_a4 out nocopy VARCHAR2
2007 , p9_a5 out nocopy VARCHAR2
2008 , p9_a6 out nocopy VARCHAR2
2009 , p9_a7 out nocopy VARCHAR2
2010 , p9_a8 out nocopy VARCHAR2
2011 , p9_a9 out nocopy VARCHAR2
2012 , p9_a10 out nocopy VARCHAR2
2013 , p9_a11 out nocopy VARCHAR2
2014 , p9_a12 out nocopy VARCHAR2
2015 , p9_a13 out nocopy VARCHAR2
2016 , p9_a14 out nocopy VARCHAR2
2017 , p9_a15 out nocopy VARCHAR2
2018 , p9_a16 out nocopy VARCHAR2
2019 , p9_a17 out nocopy VARCHAR2
2020 , p9_a18 out nocopy VARCHAR2
2021 , p9_a19 out nocopy VARCHAR2
2022 , p9_a20 out nocopy VARCHAR2
2023 , p9_a21 out nocopy NUMBER
2024 , p9_a22 out nocopy DATE
2025 , p9_a23 out nocopy DATE
2026 , p9_a24 out nocopy VARCHAR2
2027 , p9_a25 out nocopy VARCHAR2
2028 , p9_a26 out nocopy DATE
2029 , p9_a27 out nocopy DATE
2030 , p9_a28 out nocopy DATE
2031 , p9_a29 out nocopy VARCHAR2
2032 , p9_a30 out nocopy NUMBER
2033 , p9_a31 out nocopy NUMBER
2034 , p9_a32 out nocopy NUMBER
2035 , p9_a33 out nocopy VARCHAR2
2036 , p9_a34 out nocopy VARCHAR2
2037 , p9_a35 out nocopy NUMBER
2038 , p9_a36 out nocopy NUMBER
2039 , p9_a37 out nocopy NUMBER
2040 , p9_a38 out nocopy VARCHAR2
2041 , p9_a39 out nocopy NUMBER
2042 , p9_a40 out nocopy NUMBER
2043 , p9_a41 out nocopy VARCHAR2
2044 , p9_a42 out nocopy VARCHAR2
2045 , p9_a43 out nocopy NUMBER
2046 , p9_a44 out nocopy NUMBER
2047 , p9_a45 out nocopy NUMBER
2048 , p9_a46 out nocopy NUMBER
2049 , p9_a47 out nocopy NUMBER
2050 , p9_a48 out nocopy NUMBER
2051 , p9_a49 out nocopy NUMBER
2052 , p9_a50 out nocopy NUMBER
2053 , p9_a51 out nocopy NUMBER
2054 , p9_a52 out nocopy VARCHAR2
2055 , p9_a53 out nocopy VARCHAR2
2056 , p9_a54 out nocopy VARCHAR2
2057 , p9_a55 out nocopy NUMBER
2058 , p9_a56 out nocopy NUMBER
2059 , p9_a57 out nocopy VARCHAR2
2060 , p9_a58 out nocopy VARCHAR2
2061 , p9_a59 out nocopy VARCHAR2
2062 , p9_a60 out nocopy NUMBER
2063 , p9_a61 out nocopy VARCHAR2
2064 , p9_a62 out nocopy NUMBER
2065 , p9_a63 out nocopy VARCHAR2
2066 , p9_a64 out nocopy VARCHAR2
2067 , p9_a65 out nocopy VARCHAR2
2068 , p9_a66 out nocopy VARCHAR2
2069 , p9_a67 out nocopy NUMBER
2070 , p9_a68 out nocopy VARCHAR2
2071 , p9_a69 out nocopy VARCHAR2
2072 , p9_a70 out nocopy VARCHAR2
2073 , p9_a71 out nocopy VARCHAR2
2074 , p_origin VARCHAR2
2075 )
2076
2077 as
2078 ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
2079 ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
2080 ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
2081 ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
2082 ddindx binary_integer; indx binary_integer;
2083 begin
2084
2085 -- copy data to the local IN or IN-OUT args, if any
2086
2087
2088
2089
2090
2091
2092 ddp_lapv_rec.id := p6_a0;
2093 ddp_lapv_rec.object_version_number := p6_a1;
2094 ddp_lapv_rec.attribute_category := p6_a2;
2095 ddp_lapv_rec.attribute1 := p6_a3;
2096 ddp_lapv_rec.attribute2 := p6_a4;
2097 ddp_lapv_rec.attribute3 := p6_a5;
2098 ddp_lapv_rec.attribute4 := p6_a6;
2099 ddp_lapv_rec.attribute5 := p6_a7;
2100 ddp_lapv_rec.attribute6 := p6_a8;
2101 ddp_lapv_rec.attribute7 := p6_a9;
2102 ddp_lapv_rec.attribute8 := p6_a10;
2103 ddp_lapv_rec.attribute9 := p6_a11;
2104 ddp_lapv_rec.attribute10 := p6_a12;
2105 ddp_lapv_rec.attribute11 := p6_a13;
2106 ddp_lapv_rec.attribute12 := p6_a14;
2107 ddp_lapv_rec.attribute13 := p6_a15;
2108 ddp_lapv_rec.attribute14 := p6_a16;
2109 ddp_lapv_rec.attribute15 := p6_a17;
2110 ddp_lapv_rec.reference_number := p6_a18;
2111 ddp_lapv_rec.application_status := p6_a19;
2112 ddp_lapv_rec.valid_from := p6_a20;
2113 ddp_lapv_rec.valid_to := p6_a21;
2114 ddp_lapv_rec.org_id := p6_a22;
2115 ddp_lapv_rec.inv_org_id := p6_a23;
2116 ddp_lapv_rec.prospect_id := p6_a24;
2117 ddp_lapv_rec.prospect_address_id := p6_a25;
2118 ddp_lapv_rec.cust_acct_id := p6_a26;
2119 ddp_lapv_rec.industry_class := p6_a27;
2120 ddp_lapv_rec.industry_code := p6_a28;
2121 ddp_lapv_rec.currency_code := p6_a29;
2122 ddp_lapv_rec.currency_conversion_type := p6_a30;
2123 ddp_lapv_rec.currency_conversion_rate := p6_a31;
2124 ddp_lapv_rec.currency_conversion_date := p6_a32;
2125 ddp_lapv_rec.leaseapp_template_id := p6_a33;
2126 ddp_lapv_rec.parent_leaseapp_id := p6_a34;
2127 ddp_lapv_rec.credit_line_id := p6_a35;
2128 ddp_lapv_rec.program_agreement_id := p6_a36;
2129 ddp_lapv_rec.master_lease_id := p6_a37;
2130 ddp_lapv_rec.sales_rep_id := p6_a38;
2131 ddp_lapv_rec.sales_territory_id := p6_a39;
2132 ddp_lapv_rec.originating_vendor_id := p6_a40;
2133 ddp_lapv_rec.lease_opportunity_id := p6_a41;
2134 ddp_lapv_rec.short_description := p6_a42;
2135 ddp_lapv_rec.comments := p6_a43;
2136 ddp_lapv_rec.cr_exp_days := p6_a44;
2137 ddp_lapv_rec.action := p6_a45;
2138 ddp_lapv_rec.orig_status := p6_a46;
2139
2140
2141 ddp_lsqv_rec.id := p8_a0;
2142 ddp_lsqv_rec.object_version_number := p8_a1;
2143 ddp_lsqv_rec.attribute_category := p8_a2;
2144 ddp_lsqv_rec.attribute1 := p8_a3;
2145 ddp_lsqv_rec.attribute2 := p8_a4;
2146 ddp_lsqv_rec.attribute3 := p8_a5;
2147 ddp_lsqv_rec.attribute4 := p8_a6;
2148 ddp_lsqv_rec.attribute5 := p8_a7;
2149 ddp_lsqv_rec.attribute6 := p8_a8;
2150 ddp_lsqv_rec.attribute7 := p8_a9;
2151 ddp_lsqv_rec.attribute8 := p8_a10;
2152 ddp_lsqv_rec.attribute9 := p8_a11;
2153 ddp_lsqv_rec.attribute10 := p8_a12;
2154 ddp_lsqv_rec.attribute11 := p8_a13;
2155 ddp_lsqv_rec.attribute12 := p8_a14;
2156 ddp_lsqv_rec.attribute13 := p8_a15;
2157 ddp_lsqv_rec.attribute14 := p8_a16;
2158 ddp_lsqv_rec.attribute15 := p8_a17;
2159 ddp_lsqv_rec.reference_number := p8_a18;
2160 ddp_lsqv_rec.status := p8_a19;
2161 ddp_lsqv_rec.parent_object_code := p8_a20;
2162 ddp_lsqv_rec.parent_object_id := p8_a21;
2163 ddp_lsqv_rec.valid_from := p8_a22;
2164 ddp_lsqv_rec.valid_to := p8_a23;
2165 ddp_lsqv_rec.customer_bookclass := p8_a24;
2166 ddp_lsqv_rec.customer_taxowner := p8_a25;
2167 ddp_lsqv_rec.expected_start_date := p8_a26;
2168 ddp_lsqv_rec.expected_funding_date := p8_a27;
2169 ddp_lsqv_rec.expected_delivery_date := p8_a28;
2170 ddp_lsqv_rec.pricing_method := p8_a29;
2171 ddp_lsqv_rec.term := p8_a30;
2172 ddp_lsqv_rec.product_id := p8_a31;
2173 ddp_lsqv_rec.end_of_term_option_id := p8_a32;
2174 ddp_lsqv_rec.structured_pricing := p8_a33;
2175 ddp_lsqv_rec.line_level_pricing := p8_a34;
2176 ddp_lsqv_rec.rate_template_id := p8_a35;
2177 ddp_lsqv_rec.rate_card_id := p8_a36;
2178 ddp_lsqv_rec.lease_rate_factor := p8_a37;
2179 ddp_lsqv_rec.target_rate_type := p8_a38;
2180 ddp_lsqv_rec.target_rate := p8_a39;
2181 ddp_lsqv_rec.target_amount := p8_a40;
2182 ddp_lsqv_rec.target_frequency := p8_a41;
2183 ddp_lsqv_rec.target_arrears_yn := p8_a42;
2184 ddp_lsqv_rec.target_periods := p8_a43;
2185 ddp_lsqv_rec.iir := p8_a44;
2186 ddp_lsqv_rec.booking_yield := p8_a45;
2187 ddp_lsqv_rec.pirr := p8_a46;
2188 ddp_lsqv_rec.airr := p8_a47;
2189 ddp_lsqv_rec.sub_iir := p8_a48;
2190 ddp_lsqv_rec.sub_booking_yield := p8_a49;
2191 ddp_lsqv_rec.sub_pirr := p8_a50;
2192 ddp_lsqv_rec.sub_airr := p8_a51;
2193 ddp_lsqv_rec.usage_category := p8_a52;
2194 ddp_lsqv_rec.usage_industry_class := p8_a53;
2195 ddp_lsqv_rec.usage_industry_code := p8_a54;
2196 ddp_lsqv_rec.usage_amount := p8_a55;
2197 ddp_lsqv_rec.usage_location_id := p8_a56;
2198 ddp_lsqv_rec.property_tax_applicable := p8_a57;
2199 ddp_lsqv_rec.property_tax_billing_type := p8_a58;
2200 ddp_lsqv_rec.upfront_tax_treatment := p8_a59;
2201 ddp_lsqv_rec.upfront_tax_stream_type := p8_a60;
2202 ddp_lsqv_rec.transfer_of_title := p8_a61;
2203 ddp_lsqv_rec.age_of_equipment := p8_a62;
2204 ddp_lsqv_rec.purchase_of_lease := p8_a63;
2205 ddp_lsqv_rec.sale_and_lease_back := p8_a64;
2206 ddp_lsqv_rec.interest_disclosed := p8_a65;
2207 ddp_lsqv_rec.primary_quote := p8_a66;
2208 ddp_lsqv_rec.legal_entity_id := p8_a67;
2209 ddp_lsqv_rec.line_intended_use := p8_a68;
2210 ddp_lsqv_rec.short_description := p8_a69;
2211 ddp_lsqv_rec.description := p8_a70;
2212 ddp_lsqv_rec.comments := p8_a71;
2213
2214
2215
2216 -- here's the delegated call to the old PL/SQL routine
2217 okl_lease_app_pvt.lease_app_dup(p_api_version,
2218 p_init_msg_list,
2219 x_return_status,
2220 x_msg_count,
2221 x_msg_data,
2222 p_source_lap_id,
2223 ddp_lapv_rec,
2224 ddx_lapv_rec,
2225 ddp_lsqv_rec,
2226 ddx_lsqv_rec,
2227 p_origin);
2228
2229 -- copy data back from the local variables to OUT or IN-OUT args, if any
2230
2231
2232
2233
2234
2235
2236
2237 p7_a0 := ddx_lapv_rec.id;
2238 p7_a1 := ddx_lapv_rec.object_version_number;
2239 p7_a2 := ddx_lapv_rec.attribute_category;
2240 p7_a3 := ddx_lapv_rec.attribute1;
2241 p7_a4 := ddx_lapv_rec.attribute2;
2242 p7_a5 := ddx_lapv_rec.attribute3;
2243 p7_a6 := ddx_lapv_rec.attribute4;
2244 p7_a7 := ddx_lapv_rec.attribute5;
2245 p7_a8 := ddx_lapv_rec.attribute6;
2246 p7_a9 := ddx_lapv_rec.attribute7;
2247 p7_a10 := ddx_lapv_rec.attribute8;
2248 p7_a11 := ddx_lapv_rec.attribute9;
2249 p7_a12 := ddx_lapv_rec.attribute10;
2250 p7_a13 := ddx_lapv_rec.attribute11;
2251 p7_a14 := ddx_lapv_rec.attribute12;
2252 p7_a15 := ddx_lapv_rec.attribute13;
2253 p7_a16 := ddx_lapv_rec.attribute14;
2254 p7_a17 := ddx_lapv_rec.attribute15;
2255 p7_a18 := ddx_lapv_rec.reference_number;
2256 p7_a19 := ddx_lapv_rec.application_status;
2257 p7_a20 := ddx_lapv_rec.valid_from;
2258 p7_a21 := ddx_lapv_rec.valid_to;
2259 p7_a22 := ddx_lapv_rec.org_id;
2260 p7_a23 := ddx_lapv_rec.inv_org_id;
2261 p7_a24 := ddx_lapv_rec.prospect_id;
2262 p7_a25 := ddx_lapv_rec.prospect_address_id;
2263 p7_a26 := ddx_lapv_rec.cust_acct_id;
2264 p7_a27 := ddx_lapv_rec.industry_class;
2265 p7_a28 := ddx_lapv_rec.industry_code;
2266 p7_a29 := ddx_lapv_rec.currency_code;
2267 p7_a30 := ddx_lapv_rec.currency_conversion_type;
2268 p7_a31 := ddx_lapv_rec.currency_conversion_rate;
2269 p7_a32 := ddx_lapv_rec.currency_conversion_date;
2270 p7_a33 := ddx_lapv_rec.leaseapp_template_id;
2271 p7_a34 := ddx_lapv_rec.parent_leaseapp_id;
2272 p7_a35 := ddx_lapv_rec.credit_line_id;
2273 p7_a36 := ddx_lapv_rec.program_agreement_id;
2274 p7_a37 := ddx_lapv_rec.master_lease_id;
2275 p7_a38 := ddx_lapv_rec.sales_rep_id;
2276 p7_a39 := ddx_lapv_rec.sales_territory_id;
2277 p7_a40 := ddx_lapv_rec.originating_vendor_id;
2278 p7_a41 := ddx_lapv_rec.lease_opportunity_id;
2279 p7_a42 := ddx_lapv_rec.short_description;
2280 p7_a43 := ddx_lapv_rec.comments;
2281 p7_a44 := ddx_lapv_rec.cr_exp_days;
2282 p7_a45 := ddx_lapv_rec.action;
2283 p7_a46 := ddx_lapv_rec.orig_status;
2284
2285
2286 p9_a0 := ddx_lsqv_rec.id;
2287 p9_a1 := ddx_lsqv_rec.object_version_number;
2288 p9_a2 := ddx_lsqv_rec.attribute_category;
2289 p9_a3 := ddx_lsqv_rec.attribute1;
2290 p9_a4 := ddx_lsqv_rec.attribute2;
2291 p9_a5 := ddx_lsqv_rec.attribute3;
2292 p9_a6 := ddx_lsqv_rec.attribute4;
2293 p9_a7 := ddx_lsqv_rec.attribute5;
2294 p9_a8 := ddx_lsqv_rec.attribute6;
2295 p9_a9 := ddx_lsqv_rec.attribute7;
2296 p9_a10 := ddx_lsqv_rec.attribute8;
2297 p9_a11 := ddx_lsqv_rec.attribute9;
2298 p9_a12 := ddx_lsqv_rec.attribute10;
2299 p9_a13 := ddx_lsqv_rec.attribute11;
2300 p9_a14 := ddx_lsqv_rec.attribute12;
2301 p9_a15 := ddx_lsqv_rec.attribute13;
2302 p9_a16 := ddx_lsqv_rec.attribute14;
2303 p9_a17 := ddx_lsqv_rec.attribute15;
2304 p9_a18 := ddx_lsqv_rec.reference_number;
2305 p9_a19 := ddx_lsqv_rec.status;
2306 p9_a20 := ddx_lsqv_rec.parent_object_code;
2307 p9_a21 := ddx_lsqv_rec.parent_object_id;
2308 p9_a22 := ddx_lsqv_rec.valid_from;
2309 p9_a23 := ddx_lsqv_rec.valid_to;
2310 p9_a24 := ddx_lsqv_rec.customer_bookclass;
2311 p9_a25 := ddx_lsqv_rec.customer_taxowner;
2312 p9_a26 := ddx_lsqv_rec.expected_start_date;
2313 p9_a27 := ddx_lsqv_rec.expected_funding_date;
2314 p9_a28 := ddx_lsqv_rec.expected_delivery_date;
2315 p9_a29 := ddx_lsqv_rec.pricing_method;
2316 p9_a30 := ddx_lsqv_rec.term;
2317 p9_a31 := ddx_lsqv_rec.product_id;
2318 p9_a32 := ddx_lsqv_rec.end_of_term_option_id;
2319 p9_a33 := ddx_lsqv_rec.structured_pricing;
2320 p9_a34 := ddx_lsqv_rec.line_level_pricing;
2321 p9_a35 := ddx_lsqv_rec.rate_template_id;
2322 p9_a36 := ddx_lsqv_rec.rate_card_id;
2323 p9_a37 := ddx_lsqv_rec.lease_rate_factor;
2324 p9_a38 := ddx_lsqv_rec.target_rate_type;
2325 p9_a39 := ddx_lsqv_rec.target_rate;
2326 p9_a40 := ddx_lsqv_rec.target_amount;
2327 p9_a41 := ddx_lsqv_rec.target_frequency;
2328 p9_a42 := ddx_lsqv_rec.target_arrears_yn;
2329 p9_a43 := ddx_lsqv_rec.target_periods;
2330 p9_a44 := ddx_lsqv_rec.iir;
2331 p9_a45 := ddx_lsqv_rec.booking_yield;
2332 p9_a46 := ddx_lsqv_rec.pirr;
2333 p9_a47 := ddx_lsqv_rec.airr;
2334 p9_a48 := ddx_lsqv_rec.sub_iir;
2335 p9_a49 := ddx_lsqv_rec.sub_booking_yield;
2336 p9_a50 := ddx_lsqv_rec.sub_pirr;
2337 p9_a51 := ddx_lsqv_rec.sub_airr;
2338 p9_a52 := ddx_lsqv_rec.usage_category;
2339 p9_a53 := ddx_lsqv_rec.usage_industry_class;
2340 p9_a54 := ddx_lsqv_rec.usage_industry_code;
2341 p9_a55 := ddx_lsqv_rec.usage_amount;
2342 p9_a56 := ddx_lsqv_rec.usage_location_id;
2343 p9_a57 := ddx_lsqv_rec.property_tax_applicable;
2344 p9_a58 := ddx_lsqv_rec.property_tax_billing_type;
2345 p9_a59 := ddx_lsqv_rec.upfront_tax_treatment;
2346 p9_a60 := ddx_lsqv_rec.upfront_tax_stream_type;
2347 p9_a61 := ddx_lsqv_rec.transfer_of_title;
2348 p9_a62 := ddx_lsqv_rec.age_of_equipment;
2349 p9_a63 := ddx_lsqv_rec.purchase_of_lease;
2350 p9_a64 := ddx_lsqv_rec.sale_and_lease_back;
2351 p9_a65 := ddx_lsqv_rec.interest_disclosed;
2352 p9_a66 := ddx_lsqv_rec.primary_quote;
2353 p9_a67 := ddx_lsqv_rec.legal_entity_id;
2354 p9_a68 := ddx_lsqv_rec.line_intended_use;
2355 p9_a69 := ddx_lsqv_rec.short_description;
2356 p9_a70 := ddx_lsqv_rec.description;
2357 p9_a71 := ddx_lsqv_rec.comments;
2358
2359 end;
2360
2361 procedure submit_for_pricing(p_api_version NUMBER
2362 , p_init_msg_list VARCHAR2
2363 , x_return_status out nocopy VARCHAR2
2364 , x_msg_count out nocopy NUMBER
2365 , x_msg_data out nocopy VARCHAR2
2366 , p5_a0 NUMBER
2367 , p5_a1 NUMBER
2368 , p5_a2 VARCHAR2
2369 , p5_a3 VARCHAR2
2370 , p5_a4 VARCHAR2
2371 , p5_a5 VARCHAR2
2372 , p5_a6 VARCHAR2
2373 , p5_a7 VARCHAR2
2374 , p5_a8 VARCHAR2
2375 , p5_a9 VARCHAR2
2376 , p5_a10 VARCHAR2
2377 , p5_a11 VARCHAR2
2378 , p5_a12 VARCHAR2
2379 , p5_a13 VARCHAR2
2380 , p5_a14 VARCHAR2
2381 , p5_a15 VARCHAR2
2382 , p5_a16 VARCHAR2
2383 , p5_a17 VARCHAR2
2384 , p5_a18 VARCHAR2
2385 , p5_a19 VARCHAR2
2386 , p5_a20 DATE
2387 , p5_a21 DATE
2388 , p5_a22 NUMBER
2389 , p5_a23 NUMBER
2390 , p5_a24 NUMBER
2391 , p5_a25 NUMBER
2392 , p5_a26 NUMBER
2393 , p5_a27 VARCHAR2
2394 , p5_a28 VARCHAR2
2395 , p5_a29 VARCHAR2
2396 , p5_a30 VARCHAR2
2397 , p5_a31 NUMBER
2398 , p5_a32 DATE
2399 , p5_a33 NUMBER
2400 , p5_a34 NUMBER
2401 , p5_a35 NUMBER
2402 , p5_a36 NUMBER
2403 , p5_a37 NUMBER
2404 , p5_a38 NUMBER
2405 , p5_a39 NUMBER
2406 , p5_a40 NUMBER
2407 , p5_a41 NUMBER
2408 , p5_a42 VARCHAR2
2409 , p5_a43 VARCHAR2
2410 , p5_a44 NUMBER
2411 , p5_a45 VARCHAR2
2412 , p5_a46 VARCHAR2
2413 , p6_a0 out nocopy NUMBER
2414 , p6_a1 out nocopy NUMBER
2415 , p6_a2 out nocopy VARCHAR2
2416 , p6_a3 out nocopy VARCHAR2
2417 , p6_a4 out nocopy VARCHAR2
2418 , p6_a5 out nocopy VARCHAR2
2419 , p6_a6 out nocopy VARCHAR2
2420 , p6_a7 out nocopy VARCHAR2
2421 , p6_a8 out nocopy VARCHAR2
2422 , p6_a9 out nocopy VARCHAR2
2423 , p6_a10 out nocopy VARCHAR2
2424 , p6_a11 out nocopy VARCHAR2
2425 , p6_a12 out nocopy VARCHAR2
2426 , p6_a13 out nocopy VARCHAR2
2427 , p6_a14 out nocopy VARCHAR2
2428 , p6_a15 out nocopy VARCHAR2
2429 , p6_a16 out nocopy VARCHAR2
2430 , p6_a17 out nocopy VARCHAR2
2431 , p6_a18 out nocopy VARCHAR2
2432 , p6_a19 out nocopy VARCHAR2
2433 , p6_a20 out nocopy DATE
2434 , p6_a21 out nocopy DATE
2435 , p6_a22 out nocopy NUMBER
2436 , p6_a23 out nocopy NUMBER
2437 , p6_a24 out nocopy NUMBER
2438 , p6_a25 out nocopy NUMBER
2439 , p6_a26 out nocopy NUMBER
2440 , p6_a27 out nocopy VARCHAR2
2441 , p6_a28 out nocopy VARCHAR2
2442 , p6_a29 out nocopy VARCHAR2
2443 , p6_a30 out nocopy VARCHAR2
2444 , p6_a31 out nocopy NUMBER
2445 , p6_a32 out nocopy DATE
2446 , p6_a33 out nocopy NUMBER
2447 , p6_a34 out nocopy NUMBER
2448 , p6_a35 out nocopy NUMBER
2449 , p6_a36 out nocopy NUMBER
2450 , p6_a37 out nocopy NUMBER
2451 , p6_a38 out nocopy NUMBER
2452 , p6_a39 out nocopy NUMBER
2453 , p6_a40 out nocopy NUMBER
2454 , p6_a41 out nocopy NUMBER
2455 , p6_a42 out nocopy VARCHAR2
2456 , p6_a43 out nocopy VARCHAR2
2457 , p6_a44 out nocopy NUMBER
2458 , p6_a45 out nocopy VARCHAR2
2459 , p6_a46 out nocopy VARCHAR2
2460 )
2461
2462 as
2463 ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
2464 ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
2465 ddindx binary_integer; indx binary_integer;
2466 begin
2467
2468 -- copy data to the local IN or IN-OUT args, if any
2469
2470
2471
2472
2473
2474 ddp_lapv_rec.id := p5_a0;
2475 ddp_lapv_rec.object_version_number := p5_a1;
2476 ddp_lapv_rec.attribute_category := p5_a2;
2477 ddp_lapv_rec.attribute1 := p5_a3;
2478 ddp_lapv_rec.attribute2 := p5_a4;
2479 ddp_lapv_rec.attribute3 := p5_a5;
2480 ddp_lapv_rec.attribute4 := p5_a6;
2481 ddp_lapv_rec.attribute5 := p5_a7;
2482 ddp_lapv_rec.attribute6 := p5_a8;
2483 ddp_lapv_rec.attribute7 := p5_a9;
2484 ddp_lapv_rec.attribute8 := p5_a10;
2485 ddp_lapv_rec.attribute9 := p5_a11;
2486 ddp_lapv_rec.attribute10 := p5_a12;
2487 ddp_lapv_rec.attribute11 := p5_a13;
2488 ddp_lapv_rec.attribute12 := p5_a14;
2489 ddp_lapv_rec.attribute13 := p5_a15;
2490 ddp_lapv_rec.attribute14 := p5_a16;
2491 ddp_lapv_rec.attribute15 := p5_a17;
2492 ddp_lapv_rec.reference_number := p5_a18;
2493 ddp_lapv_rec.application_status := p5_a19;
2494 ddp_lapv_rec.valid_from := p5_a20;
2495 ddp_lapv_rec.valid_to := p5_a21;
2496 ddp_lapv_rec.org_id := p5_a22;
2497 ddp_lapv_rec.inv_org_id := p5_a23;
2498 ddp_lapv_rec.prospect_id := p5_a24;
2499 ddp_lapv_rec.prospect_address_id := p5_a25;
2500 ddp_lapv_rec.cust_acct_id := p5_a26;
2501 ddp_lapv_rec.industry_class := p5_a27;
2502 ddp_lapv_rec.industry_code := p5_a28;
2503 ddp_lapv_rec.currency_code := p5_a29;
2504 ddp_lapv_rec.currency_conversion_type := p5_a30;
2505 ddp_lapv_rec.currency_conversion_rate := p5_a31;
2506 ddp_lapv_rec.currency_conversion_date := p5_a32;
2507 ddp_lapv_rec.leaseapp_template_id := p5_a33;
2508 ddp_lapv_rec.parent_leaseapp_id := p5_a34;
2509 ddp_lapv_rec.credit_line_id := p5_a35;
2510 ddp_lapv_rec.program_agreement_id := p5_a36;
2511 ddp_lapv_rec.master_lease_id := p5_a37;
2512 ddp_lapv_rec.sales_rep_id := p5_a38;
2513 ddp_lapv_rec.sales_territory_id := p5_a39;
2514 ddp_lapv_rec.originating_vendor_id := p5_a40;
2515 ddp_lapv_rec.lease_opportunity_id := p5_a41;
2516 ddp_lapv_rec.short_description := p5_a42;
2517 ddp_lapv_rec.comments := p5_a43;
2518 ddp_lapv_rec.cr_exp_days := p5_a44;
2519 ddp_lapv_rec.action := p5_a45;
2520 ddp_lapv_rec.orig_status := p5_a46;
2521
2522
2523 -- here's the delegated call to the old PL/SQL routine
2524 okl_lease_app_pvt.submit_for_pricing(p_api_version,
2525 p_init_msg_list,
2526 x_return_status,
2527 x_msg_count,
2528 x_msg_data,
2529 ddp_lapv_rec,
2530 ddx_lapv_rec);
2531
2532 -- copy data back from the local variables to OUT or IN-OUT args, if any
2533
2534
2535
2536
2537
2538
2539 p6_a0 := ddx_lapv_rec.id;
2540 p6_a1 := ddx_lapv_rec.object_version_number;
2541 p6_a2 := ddx_lapv_rec.attribute_category;
2542 p6_a3 := ddx_lapv_rec.attribute1;
2543 p6_a4 := ddx_lapv_rec.attribute2;
2544 p6_a5 := ddx_lapv_rec.attribute3;
2545 p6_a6 := ddx_lapv_rec.attribute4;
2546 p6_a7 := ddx_lapv_rec.attribute5;
2547 p6_a8 := ddx_lapv_rec.attribute6;
2548 p6_a9 := ddx_lapv_rec.attribute7;
2549 p6_a10 := ddx_lapv_rec.attribute8;
2550 p6_a11 := ddx_lapv_rec.attribute9;
2551 p6_a12 := ddx_lapv_rec.attribute10;
2552 p6_a13 := ddx_lapv_rec.attribute11;
2553 p6_a14 := ddx_lapv_rec.attribute12;
2554 p6_a15 := ddx_lapv_rec.attribute13;
2555 p6_a16 := ddx_lapv_rec.attribute14;
2556 p6_a17 := ddx_lapv_rec.attribute15;
2557 p6_a18 := ddx_lapv_rec.reference_number;
2558 p6_a19 := ddx_lapv_rec.application_status;
2559 p6_a20 := ddx_lapv_rec.valid_from;
2560 p6_a21 := ddx_lapv_rec.valid_to;
2561 p6_a22 := ddx_lapv_rec.org_id;
2562 p6_a23 := ddx_lapv_rec.inv_org_id;
2563 p6_a24 := ddx_lapv_rec.prospect_id;
2564 p6_a25 := ddx_lapv_rec.prospect_address_id;
2565 p6_a26 := ddx_lapv_rec.cust_acct_id;
2566 p6_a27 := ddx_lapv_rec.industry_class;
2567 p6_a28 := ddx_lapv_rec.industry_code;
2568 p6_a29 := ddx_lapv_rec.currency_code;
2569 p6_a30 := ddx_lapv_rec.currency_conversion_type;
2570 p6_a31 := ddx_lapv_rec.currency_conversion_rate;
2571 p6_a32 := ddx_lapv_rec.currency_conversion_date;
2572 p6_a33 := ddx_lapv_rec.leaseapp_template_id;
2573 p6_a34 := ddx_lapv_rec.parent_leaseapp_id;
2574 p6_a35 := ddx_lapv_rec.credit_line_id;
2575 p6_a36 := ddx_lapv_rec.program_agreement_id;
2576 p6_a37 := ddx_lapv_rec.master_lease_id;
2577 p6_a38 := ddx_lapv_rec.sales_rep_id;
2578 p6_a39 := ddx_lapv_rec.sales_territory_id;
2579 p6_a40 := ddx_lapv_rec.originating_vendor_id;
2580 p6_a41 := ddx_lapv_rec.lease_opportunity_id;
2581 p6_a42 := ddx_lapv_rec.short_description;
2582 p6_a43 := ddx_lapv_rec.comments;
2583 p6_a44 := ddx_lapv_rec.cr_exp_days;
2584 p6_a45 := ddx_lapv_rec.action;
2585 p6_a46 := ddx_lapv_rec.orig_status;
2586 end;
2587
2588 procedure submit_for_credit(p_api_version NUMBER
2589 , p_init_msg_list VARCHAR2
2590 , x_return_status out nocopy VARCHAR2
2591 , x_msg_count out nocopy NUMBER
2592 , x_msg_data out nocopy VARCHAR2
2593 , p5_a0 NUMBER
2594 , p5_a1 NUMBER
2595 , p5_a2 VARCHAR2
2596 , p5_a3 VARCHAR2
2597 , p5_a4 VARCHAR2
2598 , p5_a5 VARCHAR2
2599 , p5_a6 VARCHAR2
2600 , p5_a7 VARCHAR2
2601 , p5_a8 VARCHAR2
2602 , p5_a9 VARCHAR2
2603 , p5_a10 VARCHAR2
2604 , p5_a11 VARCHAR2
2605 , p5_a12 VARCHAR2
2606 , p5_a13 VARCHAR2
2607 , p5_a14 VARCHAR2
2608 , p5_a15 VARCHAR2
2609 , p5_a16 VARCHAR2
2610 , p5_a17 VARCHAR2
2611 , p5_a18 VARCHAR2
2612 , p5_a19 VARCHAR2
2613 , p5_a20 DATE
2614 , p5_a21 DATE
2615 , p5_a22 NUMBER
2616 , p5_a23 NUMBER
2617 , p5_a24 NUMBER
2618 , p5_a25 NUMBER
2619 , p5_a26 NUMBER
2620 , p5_a27 VARCHAR2
2621 , p5_a28 VARCHAR2
2622 , p5_a29 VARCHAR2
2623 , p5_a30 VARCHAR2
2624 , p5_a31 NUMBER
2625 , p5_a32 DATE
2626 , p5_a33 NUMBER
2627 , p5_a34 NUMBER
2628 , p5_a35 NUMBER
2629 , p5_a36 NUMBER
2630 , p5_a37 NUMBER
2631 , p5_a38 NUMBER
2632 , p5_a39 NUMBER
2633 , p5_a40 NUMBER
2634 , p5_a41 NUMBER
2635 , p5_a42 VARCHAR2
2636 , p5_a43 VARCHAR2
2637 , p5_a44 NUMBER
2638 , p5_a45 VARCHAR2
2639 , p5_a46 VARCHAR2
2640 , p6_a0 out nocopy NUMBER
2641 , p6_a1 out nocopy NUMBER
2642 , p6_a2 out nocopy VARCHAR2
2643 , p6_a3 out nocopy VARCHAR2
2644 , p6_a4 out nocopy VARCHAR2
2645 , p6_a5 out nocopy VARCHAR2
2646 , p6_a6 out nocopy VARCHAR2
2647 , p6_a7 out nocopy VARCHAR2
2648 , p6_a8 out nocopy VARCHAR2
2649 , p6_a9 out nocopy VARCHAR2
2650 , p6_a10 out nocopy VARCHAR2
2651 , p6_a11 out nocopy VARCHAR2
2652 , p6_a12 out nocopy VARCHAR2
2653 , p6_a13 out nocopy VARCHAR2
2654 , p6_a14 out nocopy VARCHAR2
2655 , p6_a15 out nocopy VARCHAR2
2656 , p6_a16 out nocopy VARCHAR2
2657 , p6_a17 out nocopy VARCHAR2
2658 , p6_a18 out nocopy VARCHAR2
2659 , p6_a19 out nocopy VARCHAR2
2660 , p6_a20 out nocopy DATE
2661 , p6_a21 out nocopy DATE
2662 , p6_a22 out nocopy NUMBER
2663 , p6_a23 out nocopy NUMBER
2664 , p6_a24 out nocopy NUMBER
2665 , p6_a25 out nocopy NUMBER
2666 , p6_a26 out nocopy NUMBER
2667 , p6_a27 out nocopy VARCHAR2
2668 , p6_a28 out nocopy VARCHAR2
2669 , p6_a29 out nocopy VARCHAR2
2670 , p6_a30 out nocopy VARCHAR2
2671 , p6_a31 out nocopy NUMBER
2672 , p6_a32 out nocopy DATE
2673 , p6_a33 out nocopy NUMBER
2674 , p6_a34 out nocopy NUMBER
2675 , p6_a35 out nocopy NUMBER
2676 , p6_a36 out nocopy NUMBER
2677 , p6_a37 out nocopy NUMBER
2678 , p6_a38 out nocopy NUMBER
2679 , p6_a39 out nocopy NUMBER
2680 , p6_a40 out nocopy NUMBER
2681 , p6_a41 out nocopy NUMBER
2682 , p6_a42 out nocopy VARCHAR2
2683 , p6_a43 out nocopy VARCHAR2
2684 , p6_a44 out nocopy NUMBER
2685 , p6_a45 out nocopy VARCHAR2
2686 , p6_a46 out nocopy VARCHAR2
2687 )
2688
2689 as
2690 ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
2691 ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
2692 ddindx binary_integer; indx binary_integer;
2693 begin
2694
2695 -- copy data to the local IN or IN-OUT args, if any
2696
2697
2698
2699
2700
2701 ddp_lapv_rec.id := p5_a0;
2702 ddp_lapv_rec.object_version_number := p5_a1;
2703 ddp_lapv_rec.attribute_category := p5_a2;
2704 ddp_lapv_rec.attribute1 := p5_a3;
2705 ddp_lapv_rec.attribute2 := p5_a4;
2706 ddp_lapv_rec.attribute3 := p5_a5;
2707 ddp_lapv_rec.attribute4 := p5_a6;
2708 ddp_lapv_rec.attribute5 := p5_a7;
2709 ddp_lapv_rec.attribute6 := p5_a8;
2710 ddp_lapv_rec.attribute7 := p5_a9;
2711 ddp_lapv_rec.attribute8 := p5_a10;
2712 ddp_lapv_rec.attribute9 := p5_a11;
2713 ddp_lapv_rec.attribute10 := p5_a12;
2714 ddp_lapv_rec.attribute11 := p5_a13;
2715 ddp_lapv_rec.attribute12 := p5_a14;
2716 ddp_lapv_rec.attribute13 := p5_a15;
2717 ddp_lapv_rec.attribute14 := p5_a16;
2718 ddp_lapv_rec.attribute15 := p5_a17;
2719 ddp_lapv_rec.reference_number := p5_a18;
2720 ddp_lapv_rec.application_status := p5_a19;
2721 ddp_lapv_rec.valid_from := p5_a20;
2722 ddp_lapv_rec.valid_to := p5_a21;
2723 ddp_lapv_rec.org_id := p5_a22;
2724 ddp_lapv_rec.inv_org_id := p5_a23;
2725 ddp_lapv_rec.prospect_id := p5_a24;
2726 ddp_lapv_rec.prospect_address_id := p5_a25;
2727 ddp_lapv_rec.cust_acct_id := p5_a26;
2728 ddp_lapv_rec.industry_class := p5_a27;
2729 ddp_lapv_rec.industry_code := p5_a28;
2730 ddp_lapv_rec.currency_code := p5_a29;
2731 ddp_lapv_rec.currency_conversion_type := p5_a30;
2732 ddp_lapv_rec.currency_conversion_rate := p5_a31;
2733 ddp_lapv_rec.currency_conversion_date := p5_a32;
2734 ddp_lapv_rec.leaseapp_template_id := p5_a33;
2735 ddp_lapv_rec.parent_leaseapp_id := p5_a34;
2736 ddp_lapv_rec.credit_line_id := p5_a35;
2737 ddp_lapv_rec.program_agreement_id := p5_a36;
2738 ddp_lapv_rec.master_lease_id := p5_a37;
2739 ddp_lapv_rec.sales_rep_id := p5_a38;
2740 ddp_lapv_rec.sales_territory_id := p5_a39;
2741 ddp_lapv_rec.originating_vendor_id := p5_a40;
2742 ddp_lapv_rec.lease_opportunity_id := p5_a41;
2743 ddp_lapv_rec.short_description := p5_a42;
2744 ddp_lapv_rec.comments := p5_a43;
2745 ddp_lapv_rec.cr_exp_days := p5_a44;
2746 ddp_lapv_rec.action := p5_a45;
2747 ddp_lapv_rec.orig_status := p5_a46;
2748
2749
2750 -- here's the delegated call to the old PL/SQL routine
2751 okl_lease_app_pvt.submit_for_credit(p_api_version,
2752 p_init_msg_list,
2753 x_return_status,
2754 x_msg_count,
2755 x_msg_data,
2756 ddp_lapv_rec,
2757 ddx_lapv_rec);
2758
2759 -- copy data back from the local variables to OUT or IN-OUT args, if any
2760
2761
2762
2763
2764
2765
2766 p6_a0 := ddx_lapv_rec.id;
2767 p6_a1 := ddx_lapv_rec.object_version_number;
2768 p6_a2 := ddx_lapv_rec.attribute_category;
2769 p6_a3 := ddx_lapv_rec.attribute1;
2770 p6_a4 := ddx_lapv_rec.attribute2;
2771 p6_a5 := ddx_lapv_rec.attribute3;
2772 p6_a6 := ddx_lapv_rec.attribute4;
2773 p6_a7 := ddx_lapv_rec.attribute5;
2774 p6_a8 := ddx_lapv_rec.attribute6;
2775 p6_a9 := ddx_lapv_rec.attribute7;
2776 p6_a10 := ddx_lapv_rec.attribute8;
2777 p6_a11 := ddx_lapv_rec.attribute9;
2778 p6_a12 := ddx_lapv_rec.attribute10;
2779 p6_a13 := ddx_lapv_rec.attribute11;
2780 p6_a14 := ddx_lapv_rec.attribute12;
2781 p6_a15 := ddx_lapv_rec.attribute13;
2782 p6_a16 := ddx_lapv_rec.attribute14;
2783 p6_a17 := ddx_lapv_rec.attribute15;
2784 p6_a18 := ddx_lapv_rec.reference_number;
2785 p6_a19 := ddx_lapv_rec.application_status;
2786 p6_a20 := ddx_lapv_rec.valid_from;
2787 p6_a21 := ddx_lapv_rec.valid_to;
2788 p6_a22 := ddx_lapv_rec.org_id;
2789 p6_a23 := ddx_lapv_rec.inv_org_id;
2790 p6_a24 := ddx_lapv_rec.prospect_id;
2791 p6_a25 := ddx_lapv_rec.prospect_address_id;
2792 p6_a26 := ddx_lapv_rec.cust_acct_id;
2793 p6_a27 := ddx_lapv_rec.industry_class;
2794 p6_a28 := ddx_lapv_rec.industry_code;
2795 p6_a29 := ddx_lapv_rec.currency_code;
2796 p6_a30 := ddx_lapv_rec.currency_conversion_type;
2797 p6_a31 := ddx_lapv_rec.currency_conversion_rate;
2798 p6_a32 := ddx_lapv_rec.currency_conversion_date;
2799 p6_a33 := ddx_lapv_rec.leaseapp_template_id;
2800 p6_a34 := ddx_lapv_rec.parent_leaseapp_id;
2801 p6_a35 := ddx_lapv_rec.credit_line_id;
2802 p6_a36 := ddx_lapv_rec.program_agreement_id;
2803 p6_a37 := ddx_lapv_rec.master_lease_id;
2804 p6_a38 := ddx_lapv_rec.sales_rep_id;
2805 p6_a39 := ddx_lapv_rec.sales_territory_id;
2806 p6_a40 := ddx_lapv_rec.originating_vendor_id;
2807 p6_a41 := ddx_lapv_rec.lease_opportunity_id;
2808 p6_a42 := ddx_lapv_rec.short_description;
2809 p6_a43 := ddx_lapv_rec.comments;
2810 p6_a44 := ddx_lapv_rec.cr_exp_days;
2811 p6_a45 := ddx_lapv_rec.action;
2812 p6_a46 := ddx_lapv_rec.orig_status;
2813 end;
2814
2815 procedure accept_counter_offer(p_api_version NUMBER
2816 , p_init_msg_list VARCHAR2
2817 , x_return_status out nocopy VARCHAR2
2818 , x_msg_count out nocopy NUMBER
2819 , x_msg_data out nocopy VARCHAR2
2820 , p_lap_id NUMBER
2821 , p_cntr_offr NUMBER
2822 , p7_a0 out nocopy NUMBER
2823 , p7_a1 out nocopy NUMBER
2824 , p7_a2 out nocopy VARCHAR2
2825 , p7_a3 out nocopy VARCHAR2
2826 , p7_a4 out nocopy VARCHAR2
2827 , p7_a5 out nocopy VARCHAR2
2828 , p7_a6 out nocopy VARCHAR2
2829 , p7_a7 out nocopy VARCHAR2
2830 , p7_a8 out nocopy VARCHAR2
2831 , p7_a9 out nocopy VARCHAR2
2832 , p7_a10 out nocopy VARCHAR2
2833 , p7_a11 out nocopy VARCHAR2
2834 , p7_a12 out nocopy VARCHAR2
2835 , p7_a13 out nocopy VARCHAR2
2836 , p7_a14 out nocopy VARCHAR2
2837 , p7_a15 out nocopy VARCHAR2
2838 , p7_a16 out nocopy VARCHAR2
2839 , p7_a17 out nocopy VARCHAR2
2840 , p7_a18 out nocopy VARCHAR2
2841 , p7_a19 out nocopy VARCHAR2
2842 , p7_a20 out nocopy DATE
2843 , p7_a21 out nocopy DATE
2844 , p7_a22 out nocopy NUMBER
2845 , p7_a23 out nocopy NUMBER
2846 , p7_a24 out nocopy NUMBER
2847 , p7_a25 out nocopy NUMBER
2848 , p7_a26 out nocopy NUMBER
2849 , p7_a27 out nocopy VARCHAR2
2850 , p7_a28 out nocopy VARCHAR2
2851 , p7_a29 out nocopy VARCHAR2
2852 , p7_a30 out nocopy VARCHAR2
2853 , p7_a31 out nocopy NUMBER
2854 , p7_a32 out nocopy DATE
2855 , p7_a33 out nocopy NUMBER
2856 , p7_a34 out nocopy NUMBER
2857 , p7_a35 out nocopy NUMBER
2858 , p7_a36 out nocopy NUMBER
2859 , p7_a37 out nocopy NUMBER
2860 , p7_a38 out nocopy NUMBER
2861 , p7_a39 out nocopy NUMBER
2862 , p7_a40 out nocopy NUMBER
2863 , p7_a41 out nocopy NUMBER
2864 , p7_a42 out nocopy VARCHAR2
2865 , p7_a43 out nocopy VARCHAR2
2866 , p7_a44 out nocopy NUMBER
2867 , p7_a45 out nocopy VARCHAR2
2868 , p7_a46 out nocopy VARCHAR2
2869 , p8_a0 out nocopy NUMBER
2870 , p8_a1 out nocopy NUMBER
2871 , p8_a2 out nocopy VARCHAR2
2872 , p8_a3 out nocopy VARCHAR2
2873 , p8_a4 out nocopy VARCHAR2
2874 , p8_a5 out nocopy VARCHAR2
2875 , p8_a6 out nocopy VARCHAR2
2876 , p8_a7 out nocopy VARCHAR2
2877 , p8_a8 out nocopy VARCHAR2
2878 , p8_a9 out nocopy VARCHAR2
2879 , p8_a10 out nocopy VARCHAR2
2880 , p8_a11 out nocopy VARCHAR2
2881 , p8_a12 out nocopy VARCHAR2
2882 , p8_a13 out nocopy VARCHAR2
2883 , p8_a14 out nocopy VARCHAR2
2884 , p8_a15 out nocopy VARCHAR2
2885 , p8_a16 out nocopy VARCHAR2
2886 , p8_a17 out nocopy VARCHAR2
2887 , p8_a18 out nocopy VARCHAR2
2888 , p8_a19 out nocopy VARCHAR2
2889 , p8_a20 out nocopy VARCHAR2
2890 , p8_a21 out nocopy NUMBER
2891 , p8_a22 out nocopy DATE
2892 , p8_a23 out nocopy DATE
2893 , p8_a24 out nocopy VARCHAR2
2894 , p8_a25 out nocopy VARCHAR2
2895 , p8_a26 out nocopy DATE
2896 , p8_a27 out nocopy DATE
2897 , p8_a28 out nocopy DATE
2898 , p8_a29 out nocopy VARCHAR2
2899 , p8_a30 out nocopy NUMBER
2900 , p8_a31 out nocopy NUMBER
2901 , p8_a32 out nocopy NUMBER
2902 , p8_a33 out nocopy VARCHAR2
2903 , p8_a34 out nocopy VARCHAR2
2904 , p8_a35 out nocopy NUMBER
2905 , p8_a36 out nocopy NUMBER
2906 , p8_a37 out nocopy NUMBER
2907 , p8_a38 out nocopy VARCHAR2
2908 , p8_a39 out nocopy NUMBER
2909 , p8_a40 out nocopy NUMBER
2910 , p8_a41 out nocopy VARCHAR2
2911 , p8_a42 out nocopy VARCHAR2
2912 , p8_a43 out nocopy NUMBER
2913 , p8_a44 out nocopy NUMBER
2914 , p8_a45 out nocopy NUMBER
2915 , p8_a46 out nocopy NUMBER
2916 , p8_a47 out nocopy NUMBER
2917 , p8_a48 out nocopy NUMBER
2918 , p8_a49 out nocopy NUMBER
2919 , p8_a50 out nocopy NUMBER
2920 , p8_a51 out nocopy NUMBER
2921 , p8_a52 out nocopy VARCHAR2
2922 , p8_a53 out nocopy VARCHAR2
2923 , p8_a54 out nocopy VARCHAR2
2924 , p8_a55 out nocopy NUMBER
2925 , p8_a56 out nocopy NUMBER
2926 , p8_a57 out nocopy VARCHAR2
2927 , p8_a58 out nocopy VARCHAR2
2928 , p8_a59 out nocopy VARCHAR2
2929 , p8_a60 out nocopy NUMBER
2930 , p8_a61 out nocopy VARCHAR2
2931 , p8_a62 out nocopy NUMBER
2932 , p8_a63 out nocopy VARCHAR2
2933 , p8_a64 out nocopy VARCHAR2
2934 , p8_a65 out nocopy VARCHAR2
2935 , p8_a66 out nocopy VARCHAR2
2936 , p8_a67 out nocopy NUMBER
2937 , p8_a68 out nocopy VARCHAR2
2938 , p8_a69 out nocopy VARCHAR2
2939 , p8_a70 out nocopy VARCHAR2
2940 , p8_a71 out nocopy VARCHAR2
2941 )
2942
2943 as
2944 ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
2945 ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
2946 ddindx binary_integer; indx binary_integer;
2947 begin
2948
2949 -- copy data to the local IN or IN-OUT args, if any
2950
2951
2952
2953
2954
2955
2956
2957
2958
2959 -- here's the delegated call to the old PL/SQL routine
2960 okl_lease_app_pvt.accept_counter_offer(p_api_version,
2961 p_init_msg_list,
2962 x_return_status,
2963 x_msg_count,
2964 x_msg_data,
2965 p_lap_id,
2966 p_cntr_offr,
2967 ddx_lapv_rec,
2968 ddx_lsqv_rec);
2969
2970 -- copy data back from the local variables to OUT or IN-OUT args, if any
2971
2972
2973
2974
2975
2976
2977
2978 p7_a0 := ddx_lapv_rec.id;
2979 p7_a1 := ddx_lapv_rec.object_version_number;
2980 p7_a2 := ddx_lapv_rec.attribute_category;
2981 p7_a3 := ddx_lapv_rec.attribute1;
2982 p7_a4 := ddx_lapv_rec.attribute2;
2983 p7_a5 := ddx_lapv_rec.attribute3;
2984 p7_a6 := ddx_lapv_rec.attribute4;
2985 p7_a7 := ddx_lapv_rec.attribute5;
2986 p7_a8 := ddx_lapv_rec.attribute6;
2987 p7_a9 := ddx_lapv_rec.attribute7;
2988 p7_a10 := ddx_lapv_rec.attribute8;
2989 p7_a11 := ddx_lapv_rec.attribute9;
2990 p7_a12 := ddx_lapv_rec.attribute10;
2991 p7_a13 := ddx_lapv_rec.attribute11;
2992 p7_a14 := ddx_lapv_rec.attribute12;
2993 p7_a15 := ddx_lapv_rec.attribute13;
2994 p7_a16 := ddx_lapv_rec.attribute14;
2995 p7_a17 := ddx_lapv_rec.attribute15;
2996 p7_a18 := ddx_lapv_rec.reference_number;
2997 p7_a19 := ddx_lapv_rec.application_status;
2998 p7_a20 := ddx_lapv_rec.valid_from;
2999 p7_a21 := ddx_lapv_rec.valid_to;
3000 p7_a22 := ddx_lapv_rec.org_id;
3001 p7_a23 := ddx_lapv_rec.inv_org_id;
3002 p7_a24 := ddx_lapv_rec.prospect_id;
3003 p7_a25 := ddx_lapv_rec.prospect_address_id;
3004 p7_a26 := ddx_lapv_rec.cust_acct_id;
3005 p7_a27 := ddx_lapv_rec.industry_class;
3006 p7_a28 := ddx_lapv_rec.industry_code;
3007 p7_a29 := ddx_lapv_rec.currency_code;
3008 p7_a30 := ddx_lapv_rec.currency_conversion_type;
3009 p7_a31 := ddx_lapv_rec.currency_conversion_rate;
3010 p7_a32 := ddx_lapv_rec.currency_conversion_date;
3011 p7_a33 := ddx_lapv_rec.leaseapp_template_id;
3012 p7_a34 := ddx_lapv_rec.parent_leaseapp_id;
3013 p7_a35 := ddx_lapv_rec.credit_line_id;
3014 p7_a36 := ddx_lapv_rec.program_agreement_id;
3015 p7_a37 := ddx_lapv_rec.master_lease_id;
3016 p7_a38 := ddx_lapv_rec.sales_rep_id;
3017 p7_a39 := ddx_lapv_rec.sales_territory_id;
3018 p7_a40 := ddx_lapv_rec.originating_vendor_id;
3019 p7_a41 := ddx_lapv_rec.lease_opportunity_id;
3020 p7_a42 := ddx_lapv_rec.short_description;
3021 p7_a43 := ddx_lapv_rec.comments;
3022 p7_a44 := ddx_lapv_rec.cr_exp_days;
3023 p7_a45 := ddx_lapv_rec.action;
3024 p7_a46 := ddx_lapv_rec.orig_status;
3025
3026 p8_a0 := ddx_lsqv_rec.id;
3027 p8_a1 := ddx_lsqv_rec.object_version_number;
3028 p8_a2 := ddx_lsqv_rec.attribute_category;
3029 p8_a3 := ddx_lsqv_rec.attribute1;
3030 p8_a4 := ddx_lsqv_rec.attribute2;
3031 p8_a5 := ddx_lsqv_rec.attribute3;
3032 p8_a6 := ddx_lsqv_rec.attribute4;
3033 p8_a7 := ddx_lsqv_rec.attribute5;
3034 p8_a8 := ddx_lsqv_rec.attribute6;
3035 p8_a9 := ddx_lsqv_rec.attribute7;
3036 p8_a10 := ddx_lsqv_rec.attribute8;
3037 p8_a11 := ddx_lsqv_rec.attribute9;
3038 p8_a12 := ddx_lsqv_rec.attribute10;
3039 p8_a13 := ddx_lsqv_rec.attribute11;
3040 p8_a14 := ddx_lsqv_rec.attribute12;
3041 p8_a15 := ddx_lsqv_rec.attribute13;
3042 p8_a16 := ddx_lsqv_rec.attribute14;
3043 p8_a17 := ddx_lsqv_rec.attribute15;
3044 p8_a18 := ddx_lsqv_rec.reference_number;
3045 p8_a19 := ddx_lsqv_rec.status;
3046 p8_a20 := ddx_lsqv_rec.parent_object_code;
3047 p8_a21 := ddx_lsqv_rec.parent_object_id;
3048 p8_a22 := ddx_lsqv_rec.valid_from;
3049 p8_a23 := ddx_lsqv_rec.valid_to;
3050 p8_a24 := ddx_lsqv_rec.customer_bookclass;
3051 p8_a25 := ddx_lsqv_rec.customer_taxowner;
3052 p8_a26 := ddx_lsqv_rec.expected_start_date;
3053 p8_a27 := ddx_lsqv_rec.expected_funding_date;
3054 p8_a28 := ddx_lsqv_rec.expected_delivery_date;
3055 p8_a29 := ddx_lsqv_rec.pricing_method;
3056 p8_a30 := ddx_lsqv_rec.term;
3057 p8_a31 := ddx_lsqv_rec.product_id;
3058 p8_a32 := ddx_lsqv_rec.end_of_term_option_id;
3059 p8_a33 := ddx_lsqv_rec.structured_pricing;
3060 p8_a34 := ddx_lsqv_rec.line_level_pricing;
3061 p8_a35 := ddx_lsqv_rec.rate_template_id;
3062 p8_a36 := ddx_lsqv_rec.rate_card_id;
3063 p8_a37 := ddx_lsqv_rec.lease_rate_factor;
3064 p8_a38 := ddx_lsqv_rec.target_rate_type;
3065 p8_a39 := ddx_lsqv_rec.target_rate;
3066 p8_a40 := ddx_lsqv_rec.target_amount;
3067 p8_a41 := ddx_lsqv_rec.target_frequency;
3068 p8_a42 := ddx_lsqv_rec.target_arrears_yn;
3069 p8_a43 := ddx_lsqv_rec.target_periods;
3070 p8_a44 := ddx_lsqv_rec.iir;
3071 p8_a45 := ddx_lsqv_rec.booking_yield;
3072 p8_a46 := ddx_lsqv_rec.pirr;
3073 p8_a47 := ddx_lsqv_rec.airr;
3074 p8_a48 := ddx_lsqv_rec.sub_iir;
3075 p8_a49 := ddx_lsqv_rec.sub_booking_yield;
3076 p8_a50 := ddx_lsqv_rec.sub_pirr;
3077 p8_a51 := ddx_lsqv_rec.sub_airr;
3078 p8_a52 := ddx_lsqv_rec.usage_category;
3079 p8_a53 := ddx_lsqv_rec.usage_industry_class;
3080 p8_a54 := ddx_lsqv_rec.usage_industry_code;
3081 p8_a55 := ddx_lsqv_rec.usage_amount;
3082 p8_a56 := ddx_lsqv_rec.usage_location_id;
3083 p8_a57 := ddx_lsqv_rec.property_tax_applicable;
3084 p8_a58 := ddx_lsqv_rec.property_tax_billing_type;
3085 p8_a59 := ddx_lsqv_rec.upfront_tax_treatment;
3086 p8_a60 := ddx_lsqv_rec.upfront_tax_stream_type;
3087 p8_a61 := ddx_lsqv_rec.transfer_of_title;
3088 p8_a62 := ddx_lsqv_rec.age_of_equipment;
3089 p8_a63 := ddx_lsqv_rec.purchase_of_lease;
3090 p8_a64 := ddx_lsqv_rec.sale_and_lease_back;
3091 p8_a65 := ddx_lsqv_rec.interest_disclosed;
3092 p8_a66 := ddx_lsqv_rec.primary_quote;
3093 p8_a67 := ddx_lsqv_rec.legal_entity_id;
3094 p8_a68 := ddx_lsqv_rec.line_intended_use;
3095 p8_a69 := ddx_lsqv_rec.short_description;
3096 p8_a70 := ddx_lsqv_rec.description;
3097 p8_a71 := ddx_lsqv_rec.comments;
3098 end;
3099
3100 procedure lease_app_cancel(p_api_version NUMBER
3101 , p_init_msg_list VARCHAR2
3102 , x_return_status out nocopy VARCHAR2
3103 , x_msg_count out nocopy NUMBER
3104 , x_msg_data out nocopy VARCHAR2
3105 , p_lease_app_id NUMBER
3106 , p6_a0 out nocopy NUMBER
3107 , p6_a1 out nocopy NUMBER
3108 , p6_a2 out nocopy VARCHAR2
3109 , p6_a3 out nocopy VARCHAR2
3110 , p6_a4 out nocopy VARCHAR2
3111 , p6_a5 out nocopy VARCHAR2
3112 , p6_a6 out nocopy VARCHAR2
3113 , p6_a7 out nocopy VARCHAR2
3114 , p6_a8 out nocopy VARCHAR2
3115 , p6_a9 out nocopy VARCHAR2
3116 , p6_a10 out nocopy VARCHAR2
3117 , p6_a11 out nocopy VARCHAR2
3118 , p6_a12 out nocopy VARCHAR2
3119 , p6_a13 out nocopy VARCHAR2
3120 , p6_a14 out nocopy VARCHAR2
3121 , p6_a15 out nocopy VARCHAR2
3122 , p6_a16 out nocopy VARCHAR2
3123 , p6_a17 out nocopy VARCHAR2
3124 , p6_a18 out nocopy VARCHAR2
3125 , p6_a19 out nocopy VARCHAR2
3126 , p6_a20 out nocopy DATE
3127 , p6_a21 out nocopy DATE
3128 , p6_a22 out nocopy NUMBER
3129 , p6_a23 out nocopy NUMBER
3130 , p6_a24 out nocopy NUMBER
3131 , p6_a25 out nocopy NUMBER
3132 , p6_a26 out nocopy NUMBER
3133 , p6_a27 out nocopy VARCHAR2
3134 , p6_a28 out nocopy VARCHAR2
3135 , p6_a29 out nocopy VARCHAR2
3136 , p6_a30 out nocopy VARCHAR2
3137 , p6_a31 out nocopy NUMBER
3138 , p6_a32 out nocopy DATE
3139 , p6_a33 out nocopy NUMBER
3140 , p6_a34 out nocopy NUMBER
3141 , p6_a35 out nocopy NUMBER
3142 , p6_a36 out nocopy NUMBER
3143 , p6_a37 out nocopy NUMBER
3144 , p6_a38 out nocopy NUMBER
3145 , p6_a39 out nocopy NUMBER
3146 , p6_a40 out nocopy NUMBER
3147 , p6_a41 out nocopy NUMBER
3148 , p6_a42 out nocopy VARCHAR2
3149 , p6_a43 out nocopy VARCHAR2
3150 , p6_a44 out nocopy NUMBER
3151 , p6_a45 out nocopy VARCHAR2
3152 , p6_a46 out nocopy VARCHAR2
3153 )
3154
3155 as
3156 ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
3157 ddindx binary_integer; indx binary_integer;
3158 begin
3159
3160 -- copy data to the local IN or IN-OUT args, if any
3161
3162
3163
3164
3165
3166
3167
3168 -- here's the delegated call to the old PL/SQL routine
3169 okl_lease_app_pvt.lease_app_cancel(p_api_version,
3170 p_init_msg_list,
3171 x_return_status,
3172 x_msg_count,
3173 x_msg_data,
3174 p_lease_app_id,
3175 ddx_lapv_rec);
3176
3177 -- copy data back from the local variables to OUT or IN-OUT args, if any
3178
3179
3180
3181
3182
3183
3184 p6_a0 := ddx_lapv_rec.id;
3185 p6_a1 := ddx_lapv_rec.object_version_number;
3186 p6_a2 := ddx_lapv_rec.attribute_category;
3187 p6_a3 := ddx_lapv_rec.attribute1;
3188 p6_a4 := ddx_lapv_rec.attribute2;
3189 p6_a5 := ddx_lapv_rec.attribute3;
3190 p6_a6 := ddx_lapv_rec.attribute4;
3191 p6_a7 := ddx_lapv_rec.attribute5;
3192 p6_a8 := ddx_lapv_rec.attribute6;
3193 p6_a9 := ddx_lapv_rec.attribute7;
3194 p6_a10 := ddx_lapv_rec.attribute8;
3195 p6_a11 := ddx_lapv_rec.attribute9;
3196 p6_a12 := ddx_lapv_rec.attribute10;
3197 p6_a13 := ddx_lapv_rec.attribute11;
3198 p6_a14 := ddx_lapv_rec.attribute12;
3199 p6_a15 := ddx_lapv_rec.attribute13;
3200 p6_a16 := ddx_lapv_rec.attribute14;
3201 p6_a17 := ddx_lapv_rec.attribute15;
3202 p6_a18 := ddx_lapv_rec.reference_number;
3203 p6_a19 := ddx_lapv_rec.application_status;
3204 p6_a20 := ddx_lapv_rec.valid_from;
3205 p6_a21 := ddx_lapv_rec.valid_to;
3206 p6_a22 := ddx_lapv_rec.org_id;
3207 p6_a23 := ddx_lapv_rec.inv_org_id;
3208 p6_a24 := ddx_lapv_rec.prospect_id;
3209 p6_a25 := ddx_lapv_rec.prospect_address_id;
3210 p6_a26 := ddx_lapv_rec.cust_acct_id;
3211 p6_a27 := ddx_lapv_rec.industry_class;
3212 p6_a28 := ddx_lapv_rec.industry_code;
3213 p6_a29 := ddx_lapv_rec.currency_code;
3214 p6_a30 := ddx_lapv_rec.currency_conversion_type;
3215 p6_a31 := ddx_lapv_rec.currency_conversion_rate;
3216 p6_a32 := ddx_lapv_rec.currency_conversion_date;
3217 p6_a33 := ddx_lapv_rec.leaseapp_template_id;
3218 p6_a34 := ddx_lapv_rec.parent_leaseapp_id;
3219 p6_a35 := ddx_lapv_rec.credit_line_id;
3220 p6_a36 := ddx_lapv_rec.program_agreement_id;
3221 p6_a37 := ddx_lapv_rec.master_lease_id;
3222 p6_a38 := ddx_lapv_rec.sales_rep_id;
3223 p6_a39 := ddx_lapv_rec.sales_territory_id;
3224 p6_a40 := ddx_lapv_rec.originating_vendor_id;
3225 p6_a41 := ddx_lapv_rec.lease_opportunity_id;
3226 p6_a42 := ddx_lapv_rec.short_description;
3227 p6_a43 := ddx_lapv_rec.comments;
3228 p6_a44 := ddx_lapv_rec.cr_exp_days;
3229 p6_a45 := ddx_lapv_rec.action;
3230 p6_a46 := ddx_lapv_rec.orig_status;
3231 end;
3232
3233 procedure lease_app_resubmit(p_api_version NUMBER
3234 , p_init_msg_list VARCHAR2
3235 , x_return_status out nocopy VARCHAR2
3236 , x_msg_count out nocopy NUMBER
3237 , x_msg_data out nocopy VARCHAR2
3238 , p_source_lap_id NUMBER
3239 , p6_a0 NUMBER
3240 , p6_a1 NUMBER
3241 , p6_a2 VARCHAR2
3242 , p6_a3 VARCHAR2
3243 , p6_a4 VARCHAR2
3244 , p6_a5 VARCHAR2
3245 , p6_a6 VARCHAR2
3246 , p6_a7 VARCHAR2
3247 , p6_a8 VARCHAR2
3248 , p6_a9 VARCHAR2
3249 , p6_a10 VARCHAR2
3250 , p6_a11 VARCHAR2
3251 , p6_a12 VARCHAR2
3252 , p6_a13 VARCHAR2
3253 , p6_a14 VARCHAR2
3254 , p6_a15 VARCHAR2
3255 , p6_a16 VARCHAR2
3256 , p6_a17 VARCHAR2
3257 , p6_a18 VARCHAR2
3258 , p6_a19 VARCHAR2
3259 , p6_a20 DATE
3260 , p6_a21 DATE
3261 , p6_a22 NUMBER
3262 , p6_a23 NUMBER
3263 , p6_a24 NUMBER
3264 , p6_a25 NUMBER
3265 , p6_a26 NUMBER
3266 , p6_a27 VARCHAR2
3267 , p6_a28 VARCHAR2
3268 , p6_a29 VARCHAR2
3269 , p6_a30 VARCHAR2
3270 , p6_a31 NUMBER
3271 , p6_a32 DATE
3272 , p6_a33 NUMBER
3273 , p6_a34 NUMBER
3274 , p6_a35 NUMBER
3275 , p6_a36 NUMBER
3276 , p6_a37 NUMBER
3277 , p6_a38 NUMBER
3278 , p6_a39 NUMBER
3279 , p6_a40 NUMBER
3280 , p6_a41 NUMBER
3281 , p6_a42 VARCHAR2
3282 , p6_a43 VARCHAR2
3283 , p6_a44 NUMBER
3284 , p6_a45 VARCHAR2
3285 , p6_a46 VARCHAR2
3286 , p7_a0 out nocopy NUMBER
3287 , p7_a1 out nocopy NUMBER
3288 , p7_a2 out nocopy VARCHAR2
3289 , p7_a3 out nocopy VARCHAR2
3290 , p7_a4 out nocopy VARCHAR2
3291 , p7_a5 out nocopy VARCHAR2
3292 , p7_a6 out nocopy VARCHAR2
3293 , p7_a7 out nocopy VARCHAR2
3294 , p7_a8 out nocopy VARCHAR2
3295 , p7_a9 out nocopy VARCHAR2
3296 , p7_a10 out nocopy VARCHAR2
3297 , p7_a11 out nocopy VARCHAR2
3298 , p7_a12 out nocopy VARCHAR2
3299 , p7_a13 out nocopy VARCHAR2
3300 , p7_a14 out nocopy VARCHAR2
3301 , p7_a15 out nocopy VARCHAR2
3302 , p7_a16 out nocopy VARCHAR2
3303 , p7_a17 out nocopy VARCHAR2
3304 , p7_a18 out nocopy VARCHAR2
3305 , p7_a19 out nocopy VARCHAR2
3306 , p7_a20 out nocopy DATE
3307 , p7_a21 out nocopy DATE
3308 , p7_a22 out nocopy NUMBER
3309 , p7_a23 out nocopy NUMBER
3310 , p7_a24 out nocopy NUMBER
3311 , p7_a25 out nocopy NUMBER
3312 , p7_a26 out nocopy NUMBER
3313 , p7_a27 out nocopy VARCHAR2
3314 , p7_a28 out nocopy VARCHAR2
3315 , p7_a29 out nocopy VARCHAR2
3316 , p7_a30 out nocopy VARCHAR2
3317 , p7_a31 out nocopy NUMBER
3318 , p7_a32 out nocopy DATE
3319 , p7_a33 out nocopy NUMBER
3320 , p7_a34 out nocopy NUMBER
3321 , p7_a35 out nocopy NUMBER
3322 , p7_a36 out nocopy NUMBER
3323 , p7_a37 out nocopy NUMBER
3324 , p7_a38 out nocopy NUMBER
3325 , p7_a39 out nocopy NUMBER
3326 , p7_a40 out nocopy NUMBER
3327 , p7_a41 out nocopy NUMBER
3328 , p7_a42 out nocopy VARCHAR2
3329 , p7_a43 out nocopy VARCHAR2
3330 , p7_a44 out nocopy NUMBER
3331 , p7_a45 out nocopy VARCHAR2
3332 , p7_a46 out nocopy VARCHAR2
3333 , p8_a0 NUMBER
3334 , p8_a1 NUMBER
3335 , p8_a2 VARCHAR2
3336 , p8_a3 VARCHAR2
3337 , p8_a4 VARCHAR2
3338 , p8_a5 VARCHAR2
3339 , p8_a6 VARCHAR2
3340 , p8_a7 VARCHAR2
3341 , p8_a8 VARCHAR2
3342 , p8_a9 VARCHAR2
3343 , p8_a10 VARCHAR2
3344 , p8_a11 VARCHAR2
3345 , p8_a12 VARCHAR2
3346 , p8_a13 VARCHAR2
3347 , p8_a14 VARCHAR2
3348 , p8_a15 VARCHAR2
3349 , p8_a16 VARCHAR2
3350 , p8_a17 VARCHAR2
3351 , p8_a18 VARCHAR2
3352 , p8_a19 VARCHAR2
3353 , p8_a20 VARCHAR2
3354 , p8_a21 NUMBER
3355 , p8_a22 DATE
3356 , p8_a23 DATE
3357 , p8_a24 VARCHAR2
3358 , p8_a25 VARCHAR2
3359 , p8_a26 DATE
3360 , p8_a27 DATE
3361 , p8_a28 DATE
3362 , p8_a29 VARCHAR2
3363 , p8_a30 NUMBER
3364 , p8_a31 NUMBER
3365 , p8_a32 NUMBER
3366 , p8_a33 VARCHAR2
3367 , p8_a34 VARCHAR2
3368 , p8_a35 NUMBER
3369 , p8_a36 NUMBER
3370 , p8_a37 NUMBER
3371 , p8_a38 VARCHAR2
3372 , p8_a39 NUMBER
3373 , p8_a40 NUMBER
3374 , p8_a41 VARCHAR2
3375 , p8_a42 VARCHAR2
3376 , p8_a43 NUMBER
3377 , p8_a44 NUMBER
3378 , p8_a45 NUMBER
3379 , p8_a46 NUMBER
3380 , p8_a47 NUMBER
3381 , p8_a48 NUMBER
3382 , p8_a49 NUMBER
3383 , p8_a50 NUMBER
3384 , p8_a51 NUMBER
3385 , p8_a52 VARCHAR2
3386 , p8_a53 VARCHAR2
3387 , p8_a54 VARCHAR2
3388 , p8_a55 NUMBER
3389 , p8_a56 NUMBER
3390 , p8_a57 VARCHAR2
3391 , p8_a58 VARCHAR2
3392 , p8_a59 VARCHAR2
3393 , p8_a60 NUMBER
3394 , p8_a61 VARCHAR2
3395 , p8_a62 NUMBER
3396 , p8_a63 VARCHAR2
3397 , p8_a64 VARCHAR2
3398 , p8_a65 VARCHAR2
3399 , p8_a66 VARCHAR2
3400 , p8_a67 NUMBER
3401 , p8_a68 VARCHAR2
3402 , p8_a69 VARCHAR2
3403 , p8_a70 VARCHAR2
3404 , p8_a71 VARCHAR2
3405 , p9_a0 out nocopy NUMBER
3406 , p9_a1 out nocopy NUMBER
3407 , p9_a2 out nocopy VARCHAR2
3408 , p9_a3 out nocopy VARCHAR2
3409 , p9_a4 out nocopy VARCHAR2
3410 , p9_a5 out nocopy VARCHAR2
3411 , p9_a6 out nocopy VARCHAR2
3412 , p9_a7 out nocopy VARCHAR2
3413 , p9_a8 out nocopy VARCHAR2
3414 , p9_a9 out nocopy VARCHAR2
3415 , p9_a10 out nocopy VARCHAR2
3416 , p9_a11 out nocopy VARCHAR2
3417 , p9_a12 out nocopy VARCHAR2
3418 , p9_a13 out nocopy VARCHAR2
3419 , p9_a14 out nocopy VARCHAR2
3420 , p9_a15 out nocopy VARCHAR2
3421 , p9_a16 out nocopy VARCHAR2
3422 , p9_a17 out nocopy VARCHAR2
3423 , p9_a18 out nocopy VARCHAR2
3424 , p9_a19 out nocopy VARCHAR2
3425 , p9_a20 out nocopy VARCHAR2
3426 , p9_a21 out nocopy NUMBER
3427 , p9_a22 out nocopy DATE
3428 , p9_a23 out nocopy DATE
3429 , p9_a24 out nocopy VARCHAR2
3430 , p9_a25 out nocopy VARCHAR2
3431 , p9_a26 out nocopy DATE
3432 , p9_a27 out nocopy DATE
3433 , p9_a28 out nocopy DATE
3434 , p9_a29 out nocopy VARCHAR2
3435 , p9_a30 out nocopy NUMBER
3436 , p9_a31 out nocopy NUMBER
3437 , p9_a32 out nocopy NUMBER
3438 , p9_a33 out nocopy VARCHAR2
3439 , p9_a34 out nocopy VARCHAR2
3440 , p9_a35 out nocopy NUMBER
3441 , p9_a36 out nocopy NUMBER
3442 , p9_a37 out nocopy NUMBER
3443 , p9_a38 out nocopy VARCHAR2
3444 , p9_a39 out nocopy NUMBER
3445 , p9_a40 out nocopy NUMBER
3446 , p9_a41 out nocopy VARCHAR2
3447 , p9_a42 out nocopy VARCHAR2
3448 , p9_a43 out nocopy NUMBER
3449 , p9_a44 out nocopy NUMBER
3450 , p9_a45 out nocopy NUMBER
3451 , p9_a46 out nocopy NUMBER
3452 , p9_a47 out nocopy NUMBER
3453 , p9_a48 out nocopy NUMBER
3454 , p9_a49 out nocopy NUMBER
3455 , p9_a50 out nocopy NUMBER
3456 , p9_a51 out nocopy NUMBER
3457 , p9_a52 out nocopy VARCHAR2
3458 , p9_a53 out nocopy VARCHAR2
3459 , p9_a54 out nocopy VARCHAR2
3460 , p9_a55 out nocopy NUMBER
3461 , p9_a56 out nocopy NUMBER
3462 , p9_a57 out nocopy VARCHAR2
3463 , p9_a58 out nocopy VARCHAR2
3464 , p9_a59 out nocopy VARCHAR2
3465 , p9_a60 out nocopy NUMBER
3466 , p9_a61 out nocopy VARCHAR2
3467 , p9_a62 out nocopy NUMBER
3468 , p9_a63 out nocopy VARCHAR2
3469 , p9_a64 out nocopy VARCHAR2
3470 , p9_a65 out nocopy VARCHAR2
3471 , p9_a66 out nocopy VARCHAR2
3472 , p9_a67 out nocopy NUMBER
3473 , p9_a68 out nocopy VARCHAR2
3474 , p9_a69 out nocopy VARCHAR2
3475 , p9_a70 out nocopy VARCHAR2
3476 , p9_a71 out nocopy VARCHAR2
3477 )
3478
3479 as
3480 ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
3481 ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
3482 ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
3483 ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
3484 ddindx binary_integer; indx binary_integer;
3485 begin
3486
3487 -- copy data to the local IN or IN-OUT args, if any
3488
3489
3490
3491
3492
3493
3494 ddp_lapv_rec.id := p6_a0;
3495 ddp_lapv_rec.object_version_number := p6_a1;
3496 ddp_lapv_rec.attribute_category := p6_a2;
3497 ddp_lapv_rec.attribute1 := p6_a3;
3498 ddp_lapv_rec.attribute2 := p6_a4;
3499 ddp_lapv_rec.attribute3 := p6_a5;
3500 ddp_lapv_rec.attribute4 := p6_a6;
3501 ddp_lapv_rec.attribute5 := p6_a7;
3502 ddp_lapv_rec.attribute6 := p6_a8;
3503 ddp_lapv_rec.attribute7 := p6_a9;
3504 ddp_lapv_rec.attribute8 := p6_a10;
3505 ddp_lapv_rec.attribute9 := p6_a11;
3506 ddp_lapv_rec.attribute10 := p6_a12;
3507 ddp_lapv_rec.attribute11 := p6_a13;
3508 ddp_lapv_rec.attribute12 := p6_a14;
3509 ddp_lapv_rec.attribute13 := p6_a15;
3510 ddp_lapv_rec.attribute14 := p6_a16;
3511 ddp_lapv_rec.attribute15 := p6_a17;
3512 ddp_lapv_rec.reference_number := p6_a18;
3513 ddp_lapv_rec.application_status := p6_a19;
3514 ddp_lapv_rec.valid_from := p6_a20;
3515 ddp_lapv_rec.valid_to := p6_a21;
3516 ddp_lapv_rec.org_id := p6_a22;
3517 ddp_lapv_rec.inv_org_id := p6_a23;
3518 ddp_lapv_rec.prospect_id := p6_a24;
3519 ddp_lapv_rec.prospect_address_id := p6_a25;
3520 ddp_lapv_rec.cust_acct_id := p6_a26;
3521 ddp_lapv_rec.industry_class := p6_a27;
3522 ddp_lapv_rec.industry_code := p6_a28;
3523 ddp_lapv_rec.currency_code := p6_a29;
3524 ddp_lapv_rec.currency_conversion_type := p6_a30;
3525 ddp_lapv_rec.currency_conversion_rate := p6_a31;
3526 ddp_lapv_rec.currency_conversion_date := p6_a32;
3527 ddp_lapv_rec.leaseapp_template_id := p6_a33;
3528 ddp_lapv_rec.parent_leaseapp_id := p6_a34;
3529 ddp_lapv_rec.credit_line_id := p6_a35;
3530 ddp_lapv_rec.program_agreement_id := p6_a36;
3531 ddp_lapv_rec.master_lease_id := p6_a37;
3532 ddp_lapv_rec.sales_rep_id := p6_a38;
3533 ddp_lapv_rec.sales_territory_id := p6_a39;
3534 ddp_lapv_rec.originating_vendor_id := p6_a40;
3535 ddp_lapv_rec.lease_opportunity_id := p6_a41;
3536 ddp_lapv_rec.short_description := p6_a42;
3537 ddp_lapv_rec.comments := p6_a43;
3538 ddp_lapv_rec.cr_exp_days := p6_a44;
3539 ddp_lapv_rec.action := p6_a45;
3540 ddp_lapv_rec.orig_status := p6_a46;
3541
3542
3543 ddp_lsqv_rec.id := p8_a0;
3544 ddp_lsqv_rec.object_version_number := p8_a1;
3545 ddp_lsqv_rec.attribute_category := p8_a2;
3546 ddp_lsqv_rec.attribute1 := p8_a3;
3547 ddp_lsqv_rec.attribute2 := p8_a4;
3548 ddp_lsqv_rec.attribute3 := p8_a5;
3549 ddp_lsqv_rec.attribute4 := p8_a6;
3550 ddp_lsqv_rec.attribute5 := p8_a7;
3551 ddp_lsqv_rec.attribute6 := p8_a8;
3552 ddp_lsqv_rec.attribute7 := p8_a9;
3553 ddp_lsqv_rec.attribute8 := p8_a10;
3554 ddp_lsqv_rec.attribute9 := p8_a11;
3555 ddp_lsqv_rec.attribute10 := p8_a12;
3556 ddp_lsqv_rec.attribute11 := p8_a13;
3557 ddp_lsqv_rec.attribute12 := p8_a14;
3558 ddp_lsqv_rec.attribute13 := p8_a15;
3559 ddp_lsqv_rec.attribute14 := p8_a16;
3560 ddp_lsqv_rec.attribute15 := p8_a17;
3561 ddp_lsqv_rec.reference_number := p8_a18;
3562 ddp_lsqv_rec.status := p8_a19;
3563 ddp_lsqv_rec.parent_object_code := p8_a20;
3564 ddp_lsqv_rec.parent_object_id := p8_a21;
3565 ddp_lsqv_rec.valid_from := p8_a22;
3566 ddp_lsqv_rec.valid_to := p8_a23;
3567 ddp_lsqv_rec.customer_bookclass := p8_a24;
3568 ddp_lsqv_rec.customer_taxowner := p8_a25;
3569 ddp_lsqv_rec.expected_start_date := p8_a26;
3570 ddp_lsqv_rec.expected_funding_date := p8_a27;
3571 ddp_lsqv_rec.expected_delivery_date := p8_a28;
3572 ddp_lsqv_rec.pricing_method := p8_a29;
3573 ddp_lsqv_rec.term := p8_a30;
3574 ddp_lsqv_rec.product_id := p8_a31;
3575 ddp_lsqv_rec.end_of_term_option_id := p8_a32;
3576 ddp_lsqv_rec.structured_pricing := p8_a33;
3577 ddp_lsqv_rec.line_level_pricing := p8_a34;
3578 ddp_lsqv_rec.rate_template_id := p8_a35;
3579 ddp_lsqv_rec.rate_card_id := p8_a36;
3580 ddp_lsqv_rec.lease_rate_factor := p8_a37;
3581 ddp_lsqv_rec.target_rate_type := p8_a38;
3582 ddp_lsqv_rec.target_rate := p8_a39;
3583 ddp_lsqv_rec.target_amount := p8_a40;
3584 ddp_lsqv_rec.target_frequency := p8_a41;
3585 ddp_lsqv_rec.target_arrears_yn := p8_a42;
3586 ddp_lsqv_rec.target_periods := p8_a43;
3587 ddp_lsqv_rec.iir := p8_a44;
3588 ddp_lsqv_rec.booking_yield := p8_a45;
3589 ddp_lsqv_rec.pirr := p8_a46;
3590 ddp_lsqv_rec.airr := p8_a47;
3591 ddp_lsqv_rec.sub_iir := p8_a48;
3592 ddp_lsqv_rec.sub_booking_yield := p8_a49;
3593 ddp_lsqv_rec.sub_pirr := p8_a50;
3594 ddp_lsqv_rec.sub_airr := p8_a51;
3595 ddp_lsqv_rec.usage_category := p8_a52;
3596 ddp_lsqv_rec.usage_industry_class := p8_a53;
3597 ddp_lsqv_rec.usage_industry_code := p8_a54;
3598 ddp_lsqv_rec.usage_amount := p8_a55;
3599 ddp_lsqv_rec.usage_location_id := p8_a56;
3600 ddp_lsqv_rec.property_tax_applicable := p8_a57;
3601 ddp_lsqv_rec.property_tax_billing_type := p8_a58;
3602 ddp_lsqv_rec.upfront_tax_treatment := p8_a59;
3603 ddp_lsqv_rec.upfront_tax_stream_type := p8_a60;
3604 ddp_lsqv_rec.transfer_of_title := p8_a61;
3605 ddp_lsqv_rec.age_of_equipment := p8_a62;
3606 ddp_lsqv_rec.purchase_of_lease := p8_a63;
3607 ddp_lsqv_rec.sale_and_lease_back := p8_a64;
3608 ddp_lsqv_rec.interest_disclosed := p8_a65;
3609 ddp_lsqv_rec.primary_quote := p8_a66;
3610 ddp_lsqv_rec.legal_entity_id := p8_a67;
3611 ddp_lsqv_rec.line_intended_use := p8_a68;
3612 ddp_lsqv_rec.short_description := p8_a69;
3613 ddp_lsqv_rec.description := p8_a70;
3614 ddp_lsqv_rec.comments := p8_a71;
3615
3616
3617 -- here's the delegated call to the old PL/SQL routine
3618 okl_lease_app_pvt.lease_app_resubmit(p_api_version,
3619 p_init_msg_list,
3620 x_return_status,
3621 x_msg_count,
3622 x_msg_data,
3623 p_source_lap_id,
3624 ddp_lapv_rec,
3625 ddx_lapv_rec,
3626 ddp_lsqv_rec,
3627 ddx_lsqv_rec);
3628
3629 -- copy data back from the local variables to OUT or IN-OUT args, if any
3630
3631
3632
3633
3634
3635
3636
3637 p7_a0 := ddx_lapv_rec.id;
3638 p7_a1 := ddx_lapv_rec.object_version_number;
3639 p7_a2 := ddx_lapv_rec.attribute_category;
3640 p7_a3 := ddx_lapv_rec.attribute1;
3641 p7_a4 := ddx_lapv_rec.attribute2;
3642 p7_a5 := ddx_lapv_rec.attribute3;
3643 p7_a6 := ddx_lapv_rec.attribute4;
3644 p7_a7 := ddx_lapv_rec.attribute5;
3645 p7_a8 := ddx_lapv_rec.attribute6;
3646 p7_a9 := ddx_lapv_rec.attribute7;
3647 p7_a10 := ddx_lapv_rec.attribute8;
3648 p7_a11 := ddx_lapv_rec.attribute9;
3649 p7_a12 := ddx_lapv_rec.attribute10;
3650 p7_a13 := ddx_lapv_rec.attribute11;
3651 p7_a14 := ddx_lapv_rec.attribute12;
3652 p7_a15 := ddx_lapv_rec.attribute13;
3653 p7_a16 := ddx_lapv_rec.attribute14;
3654 p7_a17 := ddx_lapv_rec.attribute15;
3655 p7_a18 := ddx_lapv_rec.reference_number;
3656 p7_a19 := ddx_lapv_rec.application_status;
3657 p7_a20 := ddx_lapv_rec.valid_from;
3658 p7_a21 := ddx_lapv_rec.valid_to;
3659 p7_a22 := ddx_lapv_rec.org_id;
3660 p7_a23 := ddx_lapv_rec.inv_org_id;
3661 p7_a24 := ddx_lapv_rec.prospect_id;
3662 p7_a25 := ddx_lapv_rec.prospect_address_id;
3663 p7_a26 := ddx_lapv_rec.cust_acct_id;
3664 p7_a27 := ddx_lapv_rec.industry_class;
3665 p7_a28 := ddx_lapv_rec.industry_code;
3666 p7_a29 := ddx_lapv_rec.currency_code;
3667 p7_a30 := ddx_lapv_rec.currency_conversion_type;
3668 p7_a31 := ddx_lapv_rec.currency_conversion_rate;
3669 p7_a32 := ddx_lapv_rec.currency_conversion_date;
3670 p7_a33 := ddx_lapv_rec.leaseapp_template_id;
3671 p7_a34 := ddx_lapv_rec.parent_leaseapp_id;
3672 p7_a35 := ddx_lapv_rec.credit_line_id;
3673 p7_a36 := ddx_lapv_rec.program_agreement_id;
3674 p7_a37 := ddx_lapv_rec.master_lease_id;
3675 p7_a38 := ddx_lapv_rec.sales_rep_id;
3676 p7_a39 := ddx_lapv_rec.sales_territory_id;
3677 p7_a40 := ddx_lapv_rec.originating_vendor_id;
3678 p7_a41 := ddx_lapv_rec.lease_opportunity_id;
3679 p7_a42 := ddx_lapv_rec.short_description;
3680 p7_a43 := ddx_lapv_rec.comments;
3681 p7_a44 := ddx_lapv_rec.cr_exp_days;
3682 p7_a45 := ddx_lapv_rec.action;
3683 p7_a46 := ddx_lapv_rec.orig_status;
3684
3685
3686 p9_a0 := ddx_lsqv_rec.id;
3687 p9_a1 := ddx_lsqv_rec.object_version_number;
3688 p9_a2 := ddx_lsqv_rec.attribute_category;
3689 p9_a3 := ddx_lsqv_rec.attribute1;
3690 p9_a4 := ddx_lsqv_rec.attribute2;
3691 p9_a5 := ddx_lsqv_rec.attribute3;
3692 p9_a6 := ddx_lsqv_rec.attribute4;
3693 p9_a7 := ddx_lsqv_rec.attribute5;
3694 p9_a8 := ddx_lsqv_rec.attribute6;
3695 p9_a9 := ddx_lsqv_rec.attribute7;
3696 p9_a10 := ddx_lsqv_rec.attribute8;
3697 p9_a11 := ddx_lsqv_rec.attribute9;
3698 p9_a12 := ddx_lsqv_rec.attribute10;
3699 p9_a13 := ddx_lsqv_rec.attribute11;
3700 p9_a14 := ddx_lsqv_rec.attribute12;
3701 p9_a15 := ddx_lsqv_rec.attribute13;
3702 p9_a16 := ddx_lsqv_rec.attribute14;
3703 p9_a17 := ddx_lsqv_rec.attribute15;
3704 p9_a18 := ddx_lsqv_rec.reference_number;
3705 p9_a19 := ddx_lsqv_rec.status;
3706 p9_a20 := ddx_lsqv_rec.parent_object_code;
3707 p9_a21 := ddx_lsqv_rec.parent_object_id;
3708 p9_a22 := ddx_lsqv_rec.valid_from;
3709 p9_a23 := ddx_lsqv_rec.valid_to;
3710 p9_a24 := ddx_lsqv_rec.customer_bookclass;
3711 p9_a25 := ddx_lsqv_rec.customer_taxowner;
3712 p9_a26 := ddx_lsqv_rec.expected_start_date;
3713 p9_a27 := ddx_lsqv_rec.expected_funding_date;
3714 p9_a28 := ddx_lsqv_rec.expected_delivery_date;
3715 p9_a29 := ddx_lsqv_rec.pricing_method;
3716 p9_a30 := ddx_lsqv_rec.term;
3717 p9_a31 := ddx_lsqv_rec.product_id;
3718 p9_a32 := ddx_lsqv_rec.end_of_term_option_id;
3719 p9_a33 := ddx_lsqv_rec.structured_pricing;
3720 p9_a34 := ddx_lsqv_rec.line_level_pricing;
3721 p9_a35 := ddx_lsqv_rec.rate_template_id;
3722 p9_a36 := ddx_lsqv_rec.rate_card_id;
3723 p9_a37 := ddx_lsqv_rec.lease_rate_factor;
3724 p9_a38 := ddx_lsqv_rec.target_rate_type;
3725 p9_a39 := ddx_lsqv_rec.target_rate;
3726 p9_a40 := ddx_lsqv_rec.target_amount;
3727 p9_a41 := ddx_lsqv_rec.target_frequency;
3728 p9_a42 := ddx_lsqv_rec.target_arrears_yn;
3729 p9_a43 := ddx_lsqv_rec.target_periods;
3730 p9_a44 := ddx_lsqv_rec.iir;
3731 p9_a45 := ddx_lsqv_rec.booking_yield;
3732 p9_a46 := ddx_lsqv_rec.pirr;
3733 p9_a47 := ddx_lsqv_rec.airr;
3734 p9_a48 := ddx_lsqv_rec.sub_iir;
3735 p9_a49 := ddx_lsqv_rec.sub_booking_yield;
3736 p9_a50 := ddx_lsqv_rec.sub_pirr;
3737 p9_a51 := ddx_lsqv_rec.sub_airr;
3738 p9_a52 := ddx_lsqv_rec.usage_category;
3739 p9_a53 := ddx_lsqv_rec.usage_industry_class;
3740 p9_a54 := ddx_lsqv_rec.usage_industry_code;
3741 p9_a55 := ddx_lsqv_rec.usage_amount;
3742 p9_a56 := ddx_lsqv_rec.usage_location_id;
3743 p9_a57 := ddx_lsqv_rec.property_tax_applicable;
3744 p9_a58 := ddx_lsqv_rec.property_tax_billing_type;
3745 p9_a59 := ddx_lsqv_rec.upfront_tax_treatment;
3746 p9_a60 := ddx_lsqv_rec.upfront_tax_stream_type;
3747 p9_a61 := ddx_lsqv_rec.transfer_of_title;
3748 p9_a62 := ddx_lsqv_rec.age_of_equipment;
3749 p9_a63 := ddx_lsqv_rec.purchase_of_lease;
3750 p9_a64 := ddx_lsqv_rec.sale_and_lease_back;
3751 p9_a65 := ddx_lsqv_rec.interest_disclosed;
3752 p9_a66 := ddx_lsqv_rec.primary_quote;
3753 p9_a67 := ddx_lsqv_rec.legal_entity_id;
3754 p9_a68 := ddx_lsqv_rec.line_intended_use;
3755 p9_a69 := ddx_lsqv_rec.short_description;
3756 p9_a70 := ddx_lsqv_rec.description;
3757 p9_a71 := ddx_lsqv_rec.comments;
3758 end;
3759
3760 procedure lease_app_appeal(p_api_version NUMBER
3761 , p_init_msg_list VARCHAR2
3762 , x_return_status out nocopy VARCHAR2
3763 , x_msg_count out nocopy NUMBER
3764 , x_msg_data out nocopy VARCHAR2
3765 , p_source_lap_id NUMBER
3766 , p6_a0 NUMBER
3767 , p6_a1 NUMBER
3768 , p6_a2 VARCHAR2
3769 , p6_a3 VARCHAR2
3770 , p6_a4 VARCHAR2
3771 , p6_a5 VARCHAR2
3772 , p6_a6 VARCHAR2
3773 , p6_a7 VARCHAR2
3774 , p6_a8 VARCHAR2
3775 , p6_a9 VARCHAR2
3776 , p6_a10 VARCHAR2
3777 , p6_a11 VARCHAR2
3778 , p6_a12 VARCHAR2
3779 , p6_a13 VARCHAR2
3780 , p6_a14 VARCHAR2
3781 , p6_a15 VARCHAR2
3782 , p6_a16 VARCHAR2
3783 , p6_a17 VARCHAR2
3784 , p6_a18 VARCHAR2
3785 , p6_a19 VARCHAR2
3786 , p6_a20 DATE
3787 , p6_a21 DATE
3788 , p6_a22 NUMBER
3789 , p6_a23 NUMBER
3790 , p6_a24 NUMBER
3791 , p6_a25 NUMBER
3792 , p6_a26 NUMBER
3793 , p6_a27 VARCHAR2
3794 , p6_a28 VARCHAR2
3795 , p6_a29 VARCHAR2
3796 , p6_a30 VARCHAR2
3797 , p6_a31 NUMBER
3798 , p6_a32 DATE
3799 , p6_a33 NUMBER
3800 , p6_a34 NUMBER
3801 , p6_a35 NUMBER
3802 , p6_a36 NUMBER
3803 , p6_a37 NUMBER
3804 , p6_a38 NUMBER
3805 , p6_a39 NUMBER
3806 , p6_a40 NUMBER
3807 , p6_a41 NUMBER
3808 , p6_a42 VARCHAR2
3809 , p6_a43 VARCHAR2
3810 , p6_a44 NUMBER
3811 , p6_a45 VARCHAR2
3812 , p6_a46 VARCHAR2
3813 , p7_a0 out nocopy NUMBER
3814 , p7_a1 out nocopy NUMBER
3815 , p7_a2 out nocopy VARCHAR2
3816 , p7_a3 out nocopy VARCHAR2
3817 , p7_a4 out nocopy VARCHAR2
3818 , p7_a5 out nocopy VARCHAR2
3819 , p7_a6 out nocopy VARCHAR2
3820 , p7_a7 out nocopy VARCHAR2
3821 , p7_a8 out nocopy VARCHAR2
3822 , p7_a9 out nocopy VARCHAR2
3823 , p7_a10 out nocopy VARCHAR2
3824 , p7_a11 out nocopy VARCHAR2
3825 , p7_a12 out nocopy VARCHAR2
3826 , p7_a13 out nocopy VARCHAR2
3827 , p7_a14 out nocopy VARCHAR2
3828 , p7_a15 out nocopy VARCHAR2
3829 , p7_a16 out nocopy VARCHAR2
3830 , p7_a17 out nocopy VARCHAR2
3831 , p7_a18 out nocopy VARCHAR2
3832 , p7_a19 out nocopy VARCHAR2
3833 , p7_a20 out nocopy DATE
3834 , p7_a21 out nocopy DATE
3835 , p7_a22 out nocopy NUMBER
3836 , p7_a23 out nocopy NUMBER
3837 , p7_a24 out nocopy NUMBER
3838 , p7_a25 out nocopy NUMBER
3839 , p7_a26 out nocopy NUMBER
3840 , p7_a27 out nocopy VARCHAR2
3841 , p7_a28 out nocopy VARCHAR2
3842 , p7_a29 out nocopy VARCHAR2
3843 , p7_a30 out nocopy VARCHAR2
3844 , p7_a31 out nocopy NUMBER
3845 , p7_a32 out nocopy DATE
3846 , p7_a33 out nocopy NUMBER
3847 , p7_a34 out nocopy NUMBER
3848 , p7_a35 out nocopy NUMBER
3849 , p7_a36 out nocopy NUMBER
3850 , p7_a37 out nocopy NUMBER
3851 , p7_a38 out nocopy NUMBER
3852 , p7_a39 out nocopy NUMBER
3853 , p7_a40 out nocopy NUMBER
3854 , p7_a41 out nocopy NUMBER
3855 , p7_a42 out nocopy VARCHAR2
3856 , p7_a43 out nocopy VARCHAR2
3857 , p7_a44 out nocopy NUMBER
3858 , p7_a45 out nocopy VARCHAR2
3859 , p7_a46 out nocopy VARCHAR2
3860 , p8_a0 NUMBER
3861 , p8_a1 NUMBER
3862 , p8_a2 VARCHAR2
3863 , p8_a3 VARCHAR2
3864 , p8_a4 VARCHAR2
3865 , p8_a5 VARCHAR2
3866 , p8_a6 VARCHAR2
3867 , p8_a7 VARCHAR2
3868 , p8_a8 VARCHAR2
3869 , p8_a9 VARCHAR2
3870 , p8_a10 VARCHAR2
3871 , p8_a11 VARCHAR2
3872 , p8_a12 VARCHAR2
3873 , p8_a13 VARCHAR2
3874 , p8_a14 VARCHAR2
3875 , p8_a15 VARCHAR2
3876 , p8_a16 VARCHAR2
3877 , p8_a17 VARCHAR2
3878 , p8_a18 VARCHAR2
3879 , p8_a19 VARCHAR2
3880 , p8_a20 VARCHAR2
3881 , p8_a21 NUMBER
3882 , p8_a22 DATE
3883 , p8_a23 DATE
3884 , p8_a24 VARCHAR2
3885 , p8_a25 VARCHAR2
3886 , p8_a26 DATE
3887 , p8_a27 DATE
3888 , p8_a28 DATE
3889 , p8_a29 VARCHAR2
3890 , p8_a30 NUMBER
3891 , p8_a31 NUMBER
3892 , p8_a32 NUMBER
3893 , p8_a33 VARCHAR2
3894 , p8_a34 VARCHAR2
3895 , p8_a35 NUMBER
3896 , p8_a36 NUMBER
3897 , p8_a37 NUMBER
3898 , p8_a38 VARCHAR2
3899 , p8_a39 NUMBER
3900 , p8_a40 NUMBER
3901 , p8_a41 VARCHAR2
3902 , p8_a42 VARCHAR2
3903 , p8_a43 NUMBER
3904 , p8_a44 NUMBER
3905 , p8_a45 NUMBER
3906 , p8_a46 NUMBER
3907 , p8_a47 NUMBER
3908 , p8_a48 NUMBER
3909 , p8_a49 NUMBER
3910 , p8_a50 NUMBER
3911 , p8_a51 NUMBER
3912 , p8_a52 VARCHAR2
3913 , p8_a53 VARCHAR2
3914 , p8_a54 VARCHAR2
3915 , p8_a55 NUMBER
3916 , p8_a56 NUMBER
3917 , p8_a57 VARCHAR2
3918 , p8_a58 VARCHAR2
3919 , p8_a59 VARCHAR2
3920 , p8_a60 NUMBER
3921 , p8_a61 VARCHAR2
3922 , p8_a62 NUMBER
3923 , p8_a63 VARCHAR2
3924 , p8_a64 VARCHAR2
3925 , p8_a65 VARCHAR2
3926 , p8_a66 VARCHAR2
3927 , p8_a67 NUMBER
3928 , p8_a68 VARCHAR2
3929 , p8_a69 VARCHAR2
3930 , p8_a70 VARCHAR2
3931 , p8_a71 VARCHAR2
3932 , p9_a0 out nocopy NUMBER
3933 , p9_a1 out nocopy NUMBER
3934 , p9_a2 out nocopy VARCHAR2
3935 , p9_a3 out nocopy VARCHAR2
3936 , p9_a4 out nocopy VARCHAR2
3937 , p9_a5 out nocopy VARCHAR2
3938 , p9_a6 out nocopy VARCHAR2
3939 , p9_a7 out nocopy VARCHAR2
3940 , p9_a8 out nocopy VARCHAR2
3941 , p9_a9 out nocopy VARCHAR2
3942 , p9_a10 out nocopy VARCHAR2
3943 , p9_a11 out nocopy VARCHAR2
3944 , p9_a12 out nocopy VARCHAR2
3945 , p9_a13 out nocopy VARCHAR2
3946 , p9_a14 out nocopy VARCHAR2
3947 , p9_a15 out nocopy VARCHAR2
3948 , p9_a16 out nocopy VARCHAR2
3949 , p9_a17 out nocopy VARCHAR2
3950 , p9_a18 out nocopy VARCHAR2
3951 , p9_a19 out nocopy VARCHAR2
3952 , p9_a20 out nocopy VARCHAR2
3953 , p9_a21 out nocopy NUMBER
3954 , p9_a22 out nocopy DATE
3955 , p9_a23 out nocopy DATE
3956 , p9_a24 out nocopy VARCHAR2
3957 , p9_a25 out nocopy VARCHAR2
3958 , p9_a26 out nocopy DATE
3959 , p9_a27 out nocopy DATE
3960 , p9_a28 out nocopy DATE
3961 , p9_a29 out nocopy VARCHAR2
3962 , p9_a30 out nocopy NUMBER
3963 , p9_a31 out nocopy NUMBER
3964 , p9_a32 out nocopy NUMBER
3965 , p9_a33 out nocopy VARCHAR2
3966 , p9_a34 out nocopy VARCHAR2
3967 , p9_a35 out nocopy NUMBER
3968 , p9_a36 out nocopy NUMBER
3969 , p9_a37 out nocopy NUMBER
3970 , p9_a38 out nocopy VARCHAR2
3971 , p9_a39 out nocopy NUMBER
3972 , p9_a40 out nocopy NUMBER
3973 , p9_a41 out nocopy VARCHAR2
3974 , p9_a42 out nocopy VARCHAR2
3975 , p9_a43 out nocopy NUMBER
3976 , p9_a44 out nocopy NUMBER
3977 , p9_a45 out nocopy NUMBER
3978 , p9_a46 out nocopy NUMBER
3979 , p9_a47 out nocopy NUMBER
3980 , p9_a48 out nocopy NUMBER
3981 , p9_a49 out nocopy NUMBER
3982 , p9_a50 out nocopy NUMBER
3983 , p9_a51 out nocopy NUMBER
3984 , p9_a52 out nocopy VARCHAR2
3985 , p9_a53 out nocopy VARCHAR2
3986 , p9_a54 out nocopy VARCHAR2
3987 , p9_a55 out nocopy NUMBER
3988 , p9_a56 out nocopy NUMBER
3989 , p9_a57 out nocopy VARCHAR2
3990 , p9_a58 out nocopy VARCHAR2
3991 , p9_a59 out nocopy VARCHAR2
3992 , p9_a60 out nocopy NUMBER
3993 , p9_a61 out nocopy VARCHAR2
3994 , p9_a62 out nocopy NUMBER
3995 , p9_a63 out nocopy VARCHAR2
3996 , p9_a64 out nocopy VARCHAR2
3997 , p9_a65 out nocopy VARCHAR2
3998 , p9_a66 out nocopy VARCHAR2
3999 , p9_a67 out nocopy NUMBER
4000 , p9_a68 out nocopy VARCHAR2
4001 , p9_a69 out nocopy VARCHAR2
4002 , p9_a70 out nocopy VARCHAR2
4003 , p9_a71 out nocopy VARCHAR2
4004 )
4005
4006 as
4007 ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
4008 ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
4009 ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
4010 ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
4011 ddindx binary_integer; indx binary_integer;
4012 begin
4013
4014 -- copy data to the local IN or IN-OUT args, if any
4015
4016
4017
4018
4019
4020
4021 ddp_lapv_rec.id := p6_a0;
4022 ddp_lapv_rec.object_version_number := p6_a1;
4023 ddp_lapv_rec.attribute_category := p6_a2;
4024 ddp_lapv_rec.attribute1 := p6_a3;
4025 ddp_lapv_rec.attribute2 := p6_a4;
4026 ddp_lapv_rec.attribute3 := p6_a5;
4027 ddp_lapv_rec.attribute4 := p6_a6;
4028 ddp_lapv_rec.attribute5 := p6_a7;
4029 ddp_lapv_rec.attribute6 := p6_a8;
4030 ddp_lapv_rec.attribute7 := p6_a9;
4031 ddp_lapv_rec.attribute8 := p6_a10;
4032 ddp_lapv_rec.attribute9 := p6_a11;
4033 ddp_lapv_rec.attribute10 := p6_a12;
4034 ddp_lapv_rec.attribute11 := p6_a13;
4035 ddp_lapv_rec.attribute12 := p6_a14;
4036 ddp_lapv_rec.attribute13 := p6_a15;
4037 ddp_lapv_rec.attribute14 := p6_a16;
4038 ddp_lapv_rec.attribute15 := p6_a17;
4039 ddp_lapv_rec.reference_number := p6_a18;
4040 ddp_lapv_rec.application_status := p6_a19;
4041 ddp_lapv_rec.valid_from := p6_a20;
4042 ddp_lapv_rec.valid_to := p6_a21;
4043 ddp_lapv_rec.org_id := p6_a22;
4044 ddp_lapv_rec.inv_org_id := p6_a23;
4045 ddp_lapv_rec.prospect_id := p6_a24;
4046 ddp_lapv_rec.prospect_address_id := p6_a25;
4047 ddp_lapv_rec.cust_acct_id := p6_a26;
4048 ddp_lapv_rec.industry_class := p6_a27;
4049 ddp_lapv_rec.industry_code := p6_a28;
4050 ddp_lapv_rec.currency_code := p6_a29;
4051 ddp_lapv_rec.currency_conversion_type := p6_a30;
4052 ddp_lapv_rec.currency_conversion_rate := p6_a31;
4053 ddp_lapv_rec.currency_conversion_date := p6_a32;
4054 ddp_lapv_rec.leaseapp_template_id := p6_a33;
4055 ddp_lapv_rec.parent_leaseapp_id := p6_a34;
4056 ddp_lapv_rec.credit_line_id := p6_a35;
4057 ddp_lapv_rec.program_agreement_id := p6_a36;
4058 ddp_lapv_rec.master_lease_id := p6_a37;
4059 ddp_lapv_rec.sales_rep_id := p6_a38;
4060 ddp_lapv_rec.sales_territory_id := p6_a39;
4061 ddp_lapv_rec.originating_vendor_id := p6_a40;
4062 ddp_lapv_rec.lease_opportunity_id := p6_a41;
4063 ddp_lapv_rec.short_description := p6_a42;
4064 ddp_lapv_rec.comments := p6_a43;
4065 ddp_lapv_rec.cr_exp_days := p6_a44;
4066 ddp_lapv_rec.action := p6_a45;
4067 ddp_lapv_rec.orig_status := p6_a46;
4068
4069
4070 ddp_lsqv_rec.id := p8_a0;
4071 ddp_lsqv_rec.object_version_number := p8_a1;
4072 ddp_lsqv_rec.attribute_category := p8_a2;
4073 ddp_lsqv_rec.attribute1 := p8_a3;
4074 ddp_lsqv_rec.attribute2 := p8_a4;
4075 ddp_lsqv_rec.attribute3 := p8_a5;
4076 ddp_lsqv_rec.attribute4 := p8_a6;
4077 ddp_lsqv_rec.attribute5 := p8_a7;
4078 ddp_lsqv_rec.attribute6 := p8_a8;
4079 ddp_lsqv_rec.attribute7 := p8_a9;
4080 ddp_lsqv_rec.attribute8 := p8_a10;
4081 ddp_lsqv_rec.attribute9 := p8_a11;
4082 ddp_lsqv_rec.attribute10 := p8_a12;
4083 ddp_lsqv_rec.attribute11 := p8_a13;
4084 ddp_lsqv_rec.attribute12 := p8_a14;
4085 ddp_lsqv_rec.attribute13 := p8_a15;
4086 ddp_lsqv_rec.attribute14 := p8_a16;
4087 ddp_lsqv_rec.attribute15 := p8_a17;
4088 ddp_lsqv_rec.reference_number := p8_a18;
4089 ddp_lsqv_rec.status := p8_a19;
4090 ddp_lsqv_rec.parent_object_code := p8_a20;
4091 ddp_lsqv_rec.parent_object_id := p8_a21;
4092 ddp_lsqv_rec.valid_from := p8_a22;
4093 ddp_lsqv_rec.valid_to := p8_a23;
4094 ddp_lsqv_rec.customer_bookclass := p8_a24;
4095 ddp_lsqv_rec.customer_taxowner := p8_a25;
4096 ddp_lsqv_rec.expected_start_date := p8_a26;
4097 ddp_lsqv_rec.expected_funding_date := p8_a27;
4098 ddp_lsqv_rec.expected_delivery_date := p8_a28;
4099 ddp_lsqv_rec.pricing_method := p8_a29;
4100 ddp_lsqv_rec.term := p8_a30;
4101 ddp_lsqv_rec.product_id := p8_a31;
4102 ddp_lsqv_rec.end_of_term_option_id := p8_a32;
4103 ddp_lsqv_rec.structured_pricing := p8_a33;
4104 ddp_lsqv_rec.line_level_pricing := p8_a34;
4105 ddp_lsqv_rec.rate_template_id := p8_a35;
4106 ddp_lsqv_rec.rate_card_id := p8_a36;
4107 ddp_lsqv_rec.lease_rate_factor := p8_a37;
4108 ddp_lsqv_rec.target_rate_type := p8_a38;
4109 ddp_lsqv_rec.target_rate := p8_a39;
4110 ddp_lsqv_rec.target_amount := p8_a40;
4111 ddp_lsqv_rec.target_frequency := p8_a41;
4112 ddp_lsqv_rec.target_arrears_yn := p8_a42;
4113 ddp_lsqv_rec.target_periods := p8_a43;
4114 ddp_lsqv_rec.iir := p8_a44;
4115 ddp_lsqv_rec.booking_yield := p8_a45;
4116 ddp_lsqv_rec.pirr := p8_a46;
4117 ddp_lsqv_rec.airr := p8_a47;
4118 ddp_lsqv_rec.sub_iir := p8_a48;
4119 ddp_lsqv_rec.sub_booking_yield := p8_a49;
4120 ddp_lsqv_rec.sub_pirr := p8_a50;
4121 ddp_lsqv_rec.sub_airr := p8_a51;
4122 ddp_lsqv_rec.usage_category := p8_a52;
4123 ddp_lsqv_rec.usage_industry_class := p8_a53;
4124 ddp_lsqv_rec.usage_industry_code := p8_a54;
4125 ddp_lsqv_rec.usage_amount := p8_a55;
4126 ddp_lsqv_rec.usage_location_id := p8_a56;
4127 ddp_lsqv_rec.property_tax_applicable := p8_a57;
4128 ddp_lsqv_rec.property_tax_billing_type := p8_a58;
4129 ddp_lsqv_rec.upfront_tax_treatment := p8_a59;
4130 ddp_lsqv_rec.upfront_tax_stream_type := p8_a60;
4131 ddp_lsqv_rec.transfer_of_title := p8_a61;
4132 ddp_lsqv_rec.age_of_equipment := p8_a62;
4133 ddp_lsqv_rec.purchase_of_lease := p8_a63;
4134 ddp_lsqv_rec.sale_and_lease_back := p8_a64;
4135 ddp_lsqv_rec.interest_disclosed := p8_a65;
4136 ddp_lsqv_rec.primary_quote := p8_a66;
4137 ddp_lsqv_rec.legal_entity_id := p8_a67;
4138 ddp_lsqv_rec.line_intended_use := p8_a68;
4139 ddp_lsqv_rec.short_description := p8_a69;
4140 ddp_lsqv_rec.description := p8_a70;
4141 ddp_lsqv_rec.comments := p8_a71;
4142
4143
4144 -- here's the delegated call to the old PL/SQL routine
4145 okl_lease_app_pvt.lease_app_appeal(p_api_version,
4146 p_init_msg_list,
4147 x_return_status,
4148 x_msg_count,
4149 x_msg_data,
4150 p_source_lap_id,
4151 ddp_lapv_rec,
4152 ddx_lapv_rec,
4153 ddp_lsqv_rec,
4154 ddx_lsqv_rec);
4155
4156 -- copy data back from the local variables to OUT or IN-OUT args, if any
4157
4158
4159
4160
4161
4162
4163
4164 p7_a0 := ddx_lapv_rec.id;
4165 p7_a1 := ddx_lapv_rec.object_version_number;
4166 p7_a2 := ddx_lapv_rec.attribute_category;
4167 p7_a3 := ddx_lapv_rec.attribute1;
4168 p7_a4 := ddx_lapv_rec.attribute2;
4169 p7_a5 := ddx_lapv_rec.attribute3;
4170 p7_a6 := ddx_lapv_rec.attribute4;
4171 p7_a7 := ddx_lapv_rec.attribute5;
4172 p7_a8 := ddx_lapv_rec.attribute6;
4173 p7_a9 := ddx_lapv_rec.attribute7;
4174 p7_a10 := ddx_lapv_rec.attribute8;
4175 p7_a11 := ddx_lapv_rec.attribute9;
4176 p7_a12 := ddx_lapv_rec.attribute10;
4177 p7_a13 := ddx_lapv_rec.attribute11;
4178 p7_a14 := ddx_lapv_rec.attribute12;
4179 p7_a15 := ddx_lapv_rec.attribute13;
4180 p7_a16 := ddx_lapv_rec.attribute14;
4181 p7_a17 := ddx_lapv_rec.attribute15;
4182 p7_a18 := ddx_lapv_rec.reference_number;
4183 p7_a19 := ddx_lapv_rec.application_status;
4184 p7_a20 := ddx_lapv_rec.valid_from;
4185 p7_a21 := ddx_lapv_rec.valid_to;
4186 p7_a22 := ddx_lapv_rec.org_id;
4187 p7_a23 := ddx_lapv_rec.inv_org_id;
4188 p7_a24 := ddx_lapv_rec.prospect_id;
4189 p7_a25 := ddx_lapv_rec.prospect_address_id;
4190 p7_a26 := ddx_lapv_rec.cust_acct_id;
4191 p7_a27 := ddx_lapv_rec.industry_class;
4192 p7_a28 := ddx_lapv_rec.industry_code;
4193 p7_a29 := ddx_lapv_rec.currency_code;
4194 p7_a30 := ddx_lapv_rec.currency_conversion_type;
4195 p7_a31 := ddx_lapv_rec.currency_conversion_rate;
4196 p7_a32 := ddx_lapv_rec.currency_conversion_date;
4197 p7_a33 := ddx_lapv_rec.leaseapp_template_id;
4198 p7_a34 := ddx_lapv_rec.parent_leaseapp_id;
4199 p7_a35 := ddx_lapv_rec.credit_line_id;
4200 p7_a36 := ddx_lapv_rec.program_agreement_id;
4201 p7_a37 := ddx_lapv_rec.master_lease_id;
4202 p7_a38 := ddx_lapv_rec.sales_rep_id;
4203 p7_a39 := ddx_lapv_rec.sales_territory_id;
4204 p7_a40 := ddx_lapv_rec.originating_vendor_id;
4205 p7_a41 := ddx_lapv_rec.lease_opportunity_id;
4206 p7_a42 := ddx_lapv_rec.short_description;
4207 p7_a43 := ddx_lapv_rec.comments;
4208 p7_a44 := ddx_lapv_rec.cr_exp_days;
4209 p7_a45 := ddx_lapv_rec.action;
4210 p7_a46 := ddx_lapv_rec.orig_status;
4211
4212
4213 p9_a0 := ddx_lsqv_rec.id;
4214 p9_a1 := ddx_lsqv_rec.object_version_number;
4215 p9_a2 := ddx_lsqv_rec.attribute_category;
4216 p9_a3 := ddx_lsqv_rec.attribute1;
4217 p9_a4 := ddx_lsqv_rec.attribute2;
4218 p9_a5 := ddx_lsqv_rec.attribute3;
4219 p9_a6 := ddx_lsqv_rec.attribute4;
4220 p9_a7 := ddx_lsqv_rec.attribute5;
4221 p9_a8 := ddx_lsqv_rec.attribute6;
4222 p9_a9 := ddx_lsqv_rec.attribute7;
4223 p9_a10 := ddx_lsqv_rec.attribute8;
4224 p9_a11 := ddx_lsqv_rec.attribute9;
4225 p9_a12 := ddx_lsqv_rec.attribute10;
4226 p9_a13 := ddx_lsqv_rec.attribute11;
4227 p9_a14 := ddx_lsqv_rec.attribute12;
4228 p9_a15 := ddx_lsqv_rec.attribute13;
4229 p9_a16 := ddx_lsqv_rec.attribute14;
4230 p9_a17 := ddx_lsqv_rec.attribute15;
4231 p9_a18 := ddx_lsqv_rec.reference_number;
4232 p9_a19 := ddx_lsqv_rec.status;
4233 p9_a20 := ddx_lsqv_rec.parent_object_code;
4234 p9_a21 := ddx_lsqv_rec.parent_object_id;
4235 p9_a22 := ddx_lsqv_rec.valid_from;
4236 p9_a23 := ddx_lsqv_rec.valid_to;
4237 p9_a24 := ddx_lsqv_rec.customer_bookclass;
4238 p9_a25 := ddx_lsqv_rec.customer_taxowner;
4239 p9_a26 := ddx_lsqv_rec.expected_start_date;
4240 p9_a27 := ddx_lsqv_rec.expected_funding_date;
4241 p9_a28 := ddx_lsqv_rec.expected_delivery_date;
4242 p9_a29 := ddx_lsqv_rec.pricing_method;
4243 p9_a30 := ddx_lsqv_rec.term;
4244 p9_a31 := ddx_lsqv_rec.product_id;
4245 p9_a32 := ddx_lsqv_rec.end_of_term_option_id;
4246 p9_a33 := ddx_lsqv_rec.structured_pricing;
4247 p9_a34 := ddx_lsqv_rec.line_level_pricing;
4248 p9_a35 := ddx_lsqv_rec.rate_template_id;
4249 p9_a36 := ddx_lsqv_rec.rate_card_id;
4250 p9_a37 := ddx_lsqv_rec.lease_rate_factor;
4251 p9_a38 := ddx_lsqv_rec.target_rate_type;
4252 p9_a39 := ddx_lsqv_rec.target_rate;
4253 p9_a40 := ddx_lsqv_rec.target_amount;
4254 p9_a41 := ddx_lsqv_rec.target_frequency;
4255 p9_a42 := ddx_lsqv_rec.target_arrears_yn;
4256 p9_a43 := ddx_lsqv_rec.target_periods;
4257 p9_a44 := ddx_lsqv_rec.iir;
4258 p9_a45 := ddx_lsqv_rec.booking_yield;
4259 p9_a46 := ddx_lsqv_rec.pirr;
4260 p9_a47 := ddx_lsqv_rec.airr;
4261 p9_a48 := ddx_lsqv_rec.sub_iir;
4262 p9_a49 := ddx_lsqv_rec.sub_booking_yield;
4263 p9_a50 := ddx_lsqv_rec.sub_pirr;
4264 p9_a51 := ddx_lsqv_rec.sub_airr;
4265 p9_a52 := ddx_lsqv_rec.usage_category;
4266 p9_a53 := ddx_lsqv_rec.usage_industry_class;
4267 p9_a54 := ddx_lsqv_rec.usage_industry_code;
4268 p9_a55 := ddx_lsqv_rec.usage_amount;
4269 p9_a56 := ddx_lsqv_rec.usage_location_id;
4270 p9_a57 := ddx_lsqv_rec.property_tax_applicable;
4271 p9_a58 := ddx_lsqv_rec.property_tax_billing_type;
4272 p9_a59 := ddx_lsqv_rec.upfront_tax_treatment;
4273 p9_a60 := ddx_lsqv_rec.upfront_tax_stream_type;
4274 p9_a61 := ddx_lsqv_rec.transfer_of_title;
4275 p9_a62 := ddx_lsqv_rec.age_of_equipment;
4276 p9_a63 := ddx_lsqv_rec.purchase_of_lease;
4277 p9_a64 := ddx_lsqv_rec.sale_and_lease_back;
4278 p9_a65 := ddx_lsqv_rec.interest_disclosed;
4279 p9_a66 := ddx_lsqv_rec.primary_quote;
4280 p9_a67 := ddx_lsqv_rec.legal_entity_id;
4281 p9_a68 := ddx_lsqv_rec.line_intended_use;
4282 p9_a69 := ddx_lsqv_rec.short_description;
4283 p9_a70 := ddx_lsqv_rec.description;
4284 p9_a71 := ddx_lsqv_rec.comments;
4285 end;
4286
4287 procedure populate_lease_app(p_api_version NUMBER
4288 , p_init_msg_list VARCHAR2
4289 , x_return_status out nocopy VARCHAR2
4290 , x_msg_count out nocopy NUMBER
4291 , x_msg_data out nocopy VARCHAR2
4292 , p_lap_id NUMBER
4293 , p6_a0 out nocopy NUMBER
4294 , p6_a1 out nocopy NUMBER
4295 , p6_a2 out nocopy VARCHAR2
4296 , p6_a3 out nocopy VARCHAR2
4297 , p6_a4 out nocopy VARCHAR2
4298 , p6_a5 out nocopy VARCHAR2
4299 , p6_a6 out nocopy VARCHAR2
4300 , p6_a7 out nocopy VARCHAR2
4301 , p6_a8 out nocopy VARCHAR2
4302 , p6_a9 out nocopy VARCHAR2
4303 , p6_a10 out nocopy VARCHAR2
4304 , p6_a11 out nocopy VARCHAR2
4305 , p6_a12 out nocopy VARCHAR2
4306 , p6_a13 out nocopy VARCHAR2
4307 , p6_a14 out nocopy VARCHAR2
4308 , p6_a15 out nocopy VARCHAR2
4309 , p6_a16 out nocopy VARCHAR2
4310 , p6_a17 out nocopy VARCHAR2
4311 , p6_a18 out nocopy VARCHAR2
4312 , p6_a19 out nocopy VARCHAR2
4313 , p6_a20 out nocopy DATE
4314 , p6_a21 out nocopy DATE
4315 , p6_a22 out nocopy NUMBER
4316 , p6_a23 out nocopy NUMBER
4317 , p6_a24 out nocopy NUMBER
4318 , p6_a25 out nocopy NUMBER
4319 , p6_a26 out nocopy NUMBER
4320 , p6_a27 out nocopy VARCHAR2
4321 , p6_a28 out nocopy VARCHAR2
4322 , p6_a29 out nocopy VARCHAR2
4323 , p6_a30 out nocopy VARCHAR2
4324 , p6_a31 out nocopy NUMBER
4325 , p6_a32 out nocopy DATE
4326 , p6_a33 out nocopy NUMBER
4327 , p6_a34 out nocopy NUMBER
4328 , p6_a35 out nocopy NUMBER
4329 , p6_a36 out nocopy NUMBER
4330 , p6_a37 out nocopy NUMBER
4331 , p6_a38 out nocopy NUMBER
4332 , p6_a39 out nocopy NUMBER
4333 , p6_a40 out nocopy NUMBER
4334 , p6_a41 out nocopy NUMBER
4335 , p6_a42 out nocopy VARCHAR2
4336 , p6_a43 out nocopy VARCHAR2
4337 , p6_a44 out nocopy NUMBER
4338 , p6_a45 out nocopy VARCHAR2
4339 , p6_a46 out nocopy VARCHAR2
4340 , p7_a0 out nocopy NUMBER
4341 , p7_a1 out nocopy NUMBER
4342 , p7_a2 out nocopy VARCHAR2
4343 , p7_a3 out nocopy VARCHAR2
4344 , p7_a4 out nocopy VARCHAR2
4345 , p7_a5 out nocopy VARCHAR2
4346 , p7_a6 out nocopy VARCHAR2
4347 , p7_a7 out nocopy VARCHAR2
4348 , p7_a8 out nocopy VARCHAR2
4349 , p7_a9 out nocopy VARCHAR2
4350 , p7_a10 out nocopy VARCHAR2
4351 , p7_a11 out nocopy VARCHAR2
4352 , p7_a12 out nocopy VARCHAR2
4353 , p7_a13 out nocopy VARCHAR2
4354 , p7_a14 out nocopy VARCHAR2
4355 , p7_a15 out nocopy VARCHAR2
4356 , p7_a16 out nocopy VARCHAR2
4357 , p7_a17 out nocopy VARCHAR2
4358 , p7_a18 out nocopy VARCHAR2
4359 , p7_a19 out nocopy VARCHAR2
4360 , p7_a20 out nocopy VARCHAR2
4361 , p7_a21 out nocopy NUMBER
4362 , p7_a22 out nocopy DATE
4363 , p7_a23 out nocopy DATE
4364 , p7_a24 out nocopy VARCHAR2
4365 , p7_a25 out nocopy VARCHAR2
4366 , p7_a26 out nocopy DATE
4367 , p7_a27 out nocopy DATE
4368 , p7_a28 out nocopy DATE
4369 , p7_a29 out nocopy VARCHAR2
4370 , p7_a30 out nocopy NUMBER
4371 , p7_a31 out nocopy NUMBER
4372 , p7_a32 out nocopy NUMBER
4373 , p7_a33 out nocopy VARCHAR2
4374 , p7_a34 out nocopy VARCHAR2
4375 , p7_a35 out nocopy NUMBER
4376 , p7_a36 out nocopy NUMBER
4377 , p7_a37 out nocopy NUMBER
4378 , p7_a38 out nocopy VARCHAR2
4379 , p7_a39 out nocopy NUMBER
4380 , p7_a40 out nocopy NUMBER
4381 , p7_a41 out nocopy VARCHAR2
4382 , p7_a42 out nocopy VARCHAR2
4383 , p7_a43 out nocopy NUMBER
4384 , p7_a44 out nocopy NUMBER
4385 , p7_a45 out nocopy NUMBER
4386 , p7_a46 out nocopy NUMBER
4387 , p7_a47 out nocopy NUMBER
4388 , p7_a48 out nocopy NUMBER
4389 , p7_a49 out nocopy NUMBER
4390 , p7_a50 out nocopy NUMBER
4391 , p7_a51 out nocopy NUMBER
4392 , p7_a52 out nocopy VARCHAR2
4393 , p7_a53 out nocopy VARCHAR2
4394 , p7_a54 out nocopy VARCHAR2
4395 , p7_a55 out nocopy NUMBER
4396 , p7_a56 out nocopy NUMBER
4397 , p7_a57 out nocopy VARCHAR2
4398 , p7_a58 out nocopy VARCHAR2
4399 , p7_a59 out nocopy VARCHAR2
4400 , p7_a60 out nocopy NUMBER
4401 , p7_a61 out nocopy VARCHAR2
4402 , p7_a62 out nocopy NUMBER
4403 , p7_a63 out nocopy VARCHAR2
4404 , p7_a64 out nocopy VARCHAR2
4405 , p7_a65 out nocopy VARCHAR2
4406 , p7_a66 out nocopy VARCHAR2
4407 , p7_a67 out nocopy NUMBER
4408 , p7_a68 out nocopy VARCHAR2
4409 , p7_a69 out nocopy VARCHAR2
4410 , p7_a70 out nocopy VARCHAR2
4411 , p7_a71 out nocopy VARCHAR2
4412 )
4413
4414 as
4415 ddx_lapv_rec okl_lease_app_pvt.lapv_rec_type;
4416 ddx_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
4417 ddindx binary_integer; indx binary_integer;
4418 begin
4419
4420 -- copy data to the local IN or IN-OUT args, if any
4421
4422
4423
4424
4425
4426
4427
4428
4429 -- here's the delegated call to the old PL/SQL routine
4430 okl_lease_app_pvt.populate_lease_app(p_api_version,
4431 p_init_msg_list,
4432 x_return_status,
4433 x_msg_count,
4434 x_msg_data,
4435 p_lap_id,
4436 ddx_lapv_rec,
4437 ddx_lsqv_rec);
4438
4439 -- copy data back from the local variables to OUT or IN-OUT args, if any
4440
4441
4442
4443
4444
4445
4446 p6_a0 := ddx_lapv_rec.id;
4447 p6_a1 := ddx_lapv_rec.object_version_number;
4448 p6_a2 := ddx_lapv_rec.attribute_category;
4449 p6_a3 := ddx_lapv_rec.attribute1;
4450 p6_a4 := ddx_lapv_rec.attribute2;
4451 p6_a5 := ddx_lapv_rec.attribute3;
4452 p6_a6 := ddx_lapv_rec.attribute4;
4453 p6_a7 := ddx_lapv_rec.attribute5;
4454 p6_a8 := ddx_lapv_rec.attribute6;
4455 p6_a9 := ddx_lapv_rec.attribute7;
4456 p6_a10 := ddx_lapv_rec.attribute8;
4457 p6_a11 := ddx_lapv_rec.attribute9;
4458 p6_a12 := ddx_lapv_rec.attribute10;
4459 p6_a13 := ddx_lapv_rec.attribute11;
4460 p6_a14 := ddx_lapv_rec.attribute12;
4461 p6_a15 := ddx_lapv_rec.attribute13;
4462 p6_a16 := ddx_lapv_rec.attribute14;
4463 p6_a17 := ddx_lapv_rec.attribute15;
4464 p6_a18 := ddx_lapv_rec.reference_number;
4465 p6_a19 := ddx_lapv_rec.application_status;
4466 p6_a20 := ddx_lapv_rec.valid_from;
4467 p6_a21 := ddx_lapv_rec.valid_to;
4468 p6_a22 := ddx_lapv_rec.org_id;
4469 p6_a23 := ddx_lapv_rec.inv_org_id;
4470 p6_a24 := ddx_lapv_rec.prospect_id;
4471 p6_a25 := ddx_lapv_rec.prospect_address_id;
4472 p6_a26 := ddx_lapv_rec.cust_acct_id;
4473 p6_a27 := ddx_lapv_rec.industry_class;
4474 p6_a28 := ddx_lapv_rec.industry_code;
4475 p6_a29 := ddx_lapv_rec.currency_code;
4476 p6_a30 := ddx_lapv_rec.currency_conversion_type;
4477 p6_a31 := ddx_lapv_rec.currency_conversion_rate;
4478 p6_a32 := ddx_lapv_rec.currency_conversion_date;
4479 p6_a33 := ddx_lapv_rec.leaseapp_template_id;
4480 p6_a34 := ddx_lapv_rec.parent_leaseapp_id;
4481 p6_a35 := ddx_lapv_rec.credit_line_id;
4482 p6_a36 := ddx_lapv_rec.program_agreement_id;
4483 p6_a37 := ddx_lapv_rec.master_lease_id;
4484 p6_a38 := ddx_lapv_rec.sales_rep_id;
4485 p6_a39 := ddx_lapv_rec.sales_territory_id;
4486 p6_a40 := ddx_lapv_rec.originating_vendor_id;
4487 p6_a41 := ddx_lapv_rec.lease_opportunity_id;
4488 p6_a42 := ddx_lapv_rec.short_description;
4489 p6_a43 := ddx_lapv_rec.comments;
4490 p6_a44 := ddx_lapv_rec.cr_exp_days;
4491 p6_a45 := ddx_lapv_rec.action;
4492 p6_a46 := ddx_lapv_rec.orig_status;
4493
4494 p7_a0 := ddx_lsqv_rec.id;
4495 p7_a1 := ddx_lsqv_rec.object_version_number;
4496 p7_a2 := ddx_lsqv_rec.attribute_category;
4497 p7_a3 := ddx_lsqv_rec.attribute1;
4498 p7_a4 := ddx_lsqv_rec.attribute2;
4499 p7_a5 := ddx_lsqv_rec.attribute3;
4500 p7_a6 := ddx_lsqv_rec.attribute4;
4501 p7_a7 := ddx_lsqv_rec.attribute5;
4502 p7_a8 := ddx_lsqv_rec.attribute6;
4503 p7_a9 := ddx_lsqv_rec.attribute7;
4504 p7_a10 := ddx_lsqv_rec.attribute8;
4505 p7_a11 := ddx_lsqv_rec.attribute9;
4506 p7_a12 := ddx_lsqv_rec.attribute10;
4507 p7_a13 := ddx_lsqv_rec.attribute11;
4508 p7_a14 := ddx_lsqv_rec.attribute12;
4509 p7_a15 := ddx_lsqv_rec.attribute13;
4510 p7_a16 := ddx_lsqv_rec.attribute14;
4511 p7_a17 := ddx_lsqv_rec.attribute15;
4512 p7_a18 := ddx_lsqv_rec.reference_number;
4513 p7_a19 := ddx_lsqv_rec.status;
4514 p7_a20 := ddx_lsqv_rec.parent_object_code;
4515 p7_a21 := ddx_lsqv_rec.parent_object_id;
4516 p7_a22 := ddx_lsqv_rec.valid_from;
4517 p7_a23 := ddx_lsqv_rec.valid_to;
4518 p7_a24 := ddx_lsqv_rec.customer_bookclass;
4519 p7_a25 := ddx_lsqv_rec.customer_taxowner;
4520 p7_a26 := ddx_lsqv_rec.expected_start_date;
4521 p7_a27 := ddx_lsqv_rec.expected_funding_date;
4522 p7_a28 := ddx_lsqv_rec.expected_delivery_date;
4523 p7_a29 := ddx_lsqv_rec.pricing_method;
4524 p7_a30 := ddx_lsqv_rec.term;
4525 p7_a31 := ddx_lsqv_rec.product_id;
4526 p7_a32 := ddx_lsqv_rec.end_of_term_option_id;
4527 p7_a33 := ddx_lsqv_rec.structured_pricing;
4528 p7_a34 := ddx_lsqv_rec.line_level_pricing;
4529 p7_a35 := ddx_lsqv_rec.rate_template_id;
4530 p7_a36 := ddx_lsqv_rec.rate_card_id;
4531 p7_a37 := ddx_lsqv_rec.lease_rate_factor;
4532 p7_a38 := ddx_lsqv_rec.target_rate_type;
4533 p7_a39 := ddx_lsqv_rec.target_rate;
4534 p7_a40 := ddx_lsqv_rec.target_amount;
4535 p7_a41 := ddx_lsqv_rec.target_frequency;
4536 p7_a42 := ddx_lsqv_rec.target_arrears_yn;
4537 p7_a43 := ddx_lsqv_rec.target_periods;
4538 p7_a44 := ddx_lsqv_rec.iir;
4539 p7_a45 := ddx_lsqv_rec.booking_yield;
4540 p7_a46 := ddx_lsqv_rec.pirr;
4541 p7_a47 := ddx_lsqv_rec.airr;
4542 p7_a48 := ddx_lsqv_rec.sub_iir;
4543 p7_a49 := ddx_lsqv_rec.sub_booking_yield;
4544 p7_a50 := ddx_lsqv_rec.sub_pirr;
4545 p7_a51 := ddx_lsqv_rec.sub_airr;
4546 p7_a52 := ddx_lsqv_rec.usage_category;
4547 p7_a53 := ddx_lsqv_rec.usage_industry_class;
4548 p7_a54 := ddx_lsqv_rec.usage_industry_code;
4549 p7_a55 := ddx_lsqv_rec.usage_amount;
4550 p7_a56 := ddx_lsqv_rec.usage_location_id;
4551 p7_a57 := ddx_lsqv_rec.property_tax_applicable;
4552 p7_a58 := ddx_lsqv_rec.property_tax_billing_type;
4553 p7_a59 := ddx_lsqv_rec.upfront_tax_treatment;
4554 p7_a60 := ddx_lsqv_rec.upfront_tax_stream_type;
4555 p7_a61 := ddx_lsqv_rec.transfer_of_title;
4556 p7_a62 := ddx_lsqv_rec.age_of_equipment;
4557 p7_a63 := ddx_lsqv_rec.purchase_of_lease;
4558 p7_a64 := ddx_lsqv_rec.sale_and_lease_back;
4559 p7_a65 := ddx_lsqv_rec.interest_disclosed;
4560 p7_a66 := ddx_lsqv_rec.primary_quote;
4561 p7_a67 := ddx_lsqv_rec.legal_entity_id;
4562 p7_a68 := ddx_lsqv_rec.line_intended_use;
4563 p7_a69 := ddx_lsqv_rec.short_description;
4564 p7_a70 := ddx_lsqv_rec.description;
4565 p7_a71 := ddx_lsqv_rec.comments;
4566 end;
4567
4568 procedure check_lease_quote_defaults(p_api_version NUMBER
4569 , p_init_msg_list VARCHAR2
4570 , x_return_status out nocopy VARCHAR2
4571 , x_msg_count out nocopy NUMBER
4572 , x_msg_data out nocopy VARCHAR2
4573 , p_source_lsq_id NUMBER
4574 , p6_a0 NUMBER
4575 , p6_a1 NUMBER
4576 , p6_a2 VARCHAR2
4577 , p6_a3 VARCHAR2
4578 , p6_a4 VARCHAR2
4579 , p6_a5 VARCHAR2
4580 , p6_a6 VARCHAR2
4581 , p6_a7 VARCHAR2
4582 , p6_a8 VARCHAR2
4583 , p6_a9 VARCHAR2
4584 , p6_a10 VARCHAR2
4585 , p6_a11 VARCHAR2
4586 , p6_a12 VARCHAR2
4587 , p6_a13 VARCHAR2
4588 , p6_a14 VARCHAR2
4589 , p6_a15 VARCHAR2
4590 , p6_a16 VARCHAR2
4591 , p6_a17 VARCHAR2
4592 , p6_a18 VARCHAR2
4593 , p6_a19 VARCHAR2
4594 , p6_a20 DATE
4595 , p6_a21 DATE
4596 , p6_a22 NUMBER
4597 , p6_a23 NUMBER
4598 , p6_a24 NUMBER
4599 , p6_a25 NUMBER
4600 , p6_a26 NUMBER
4601 , p6_a27 VARCHAR2
4602 , p6_a28 VARCHAR2
4603 , p6_a29 VARCHAR2
4604 , p6_a30 VARCHAR2
4605 , p6_a31 NUMBER
4606 , p6_a32 DATE
4607 , p6_a33 NUMBER
4608 , p6_a34 NUMBER
4609 , p6_a35 NUMBER
4610 , p6_a36 NUMBER
4611 , p6_a37 NUMBER
4612 , p6_a38 NUMBER
4613 , p6_a39 NUMBER
4614 , p6_a40 NUMBER
4615 , p6_a41 NUMBER
4616 , p6_a42 VARCHAR2
4617 , p6_a43 VARCHAR2
4618 , p6_a44 NUMBER
4619 , p6_a45 VARCHAR2
4620 , p6_a46 VARCHAR2
4621 , p7_a0 NUMBER
4622 , p7_a1 NUMBER
4623 , p7_a2 VARCHAR2
4624 , p7_a3 VARCHAR2
4625 , p7_a4 VARCHAR2
4626 , p7_a5 VARCHAR2
4627 , p7_a6 VARCHAR2
4628 , p7_a7 VARCHAR2
4629 , p7_a8 VARCHAR2
4630 , p7_a9 VARCHAR2
4631 , p7_a10 VARCHAR2
4632 , p7_a11 VARCHAR2
4633 , p7_a12 VARCHAR2
4634 , p7_a13 VARCHAR2
4635 , p7_a14 VARCHAR2
4636 , p7_a15 VARCHAR2
4637 , p7_a16 VARCHAR2
4638 , p7_a17 VARCHAR2
4639 , p7_a18 VARCHAR2
4640 , p7_a19 VARCHAR2
4641 , p7_a20 VARCHAR2
4642 , p7_a21 NUMBER
4643 , p7_a22 DATE
4644 , p7_a23 DATE
4645 , p7_a24 VARCHAR2
4646 , p7_a25 VARCHAR2
4647 , p7_a26 DATE
4648 , p7_a27 DATE
4649 , p7_a28 DATE
4650 , p7_a29 VARCHAR2
4651 , p7_a30 NUMBER
4652 , p7_a31 NUMBER
4653 , p7_a32 NUMBER
4654 , p7_a33 VARCHAR2
4655 , p7_a34 VARCHAR2
4656 , p7_a35 NUMBER
4657 , p7_a36 NUMBER
4658 , p7_a37 NUMBER
4659 , p7_a38 VARCHAR2
4660 , p7_a39 NUMBER
4661 , p7_a40 NUMBER
4662 , p7_a41 VARCHAR2
4663 , p7_a42 VARCHAR2
4664 , p7_a43 NUMBER
4665 , p7_a44 NUMBER
4666 , p7_a45 NUMBER
4667 , p7_a46 NUMBER
4668 , p7_a47 NUMBER
4669 , p7_a48 NUMBER
4670 , p7_a49 NUMBER
4671 , p7_a50 NUMBER
4672 , p7_a51 NUMBER
4673 , p7_a52 VARCHAR2
4674 , p7_a53 VARCHAR2
4675 , p7_a54 VARCHAR2
4676 , p7_a55 NUMBER
4677 , p7_a56 NUMBER
4678 , p7_a57 VARCHAR2
4679 , p7_a58 VARCHAR2
4680 , p7_a59 VARCHAR2
4681 , p7_a60 NUMBER
4682 , p7_a61 VARCHAR2
4683 , p7_a62 NUMBER
4684 , p7_a63 VARCHAR2
4685 , p7_a64 VARCHAR2
4686 , p7_a65 VARCHAR2
4687 , p7_a66 VARCHAR2
4688 , p7_a67 NUMBER
4689 , p7_a68 VARCHAR2
4690 , p7_a69 VARCHAR2
4691 , p7_a70 VARCHAR2
4692 , p7_a71 VARCHAR2
4693 )
4694
4695 as
4696 ddp_lapv_rec okl_lease_app_pvt.lapv_rec_type;
4697 ddp_lsqv_rec okl_lease_app_pvt.lsqv_rec_type;
4698 ddindx binary_integer; indx binary_integer;
4699 begin
4700
4701 -- copy data to the local IN or IN-OUT args, if any
4702
4703
4704
4705
4706
4707
4708 ddp_lapv_rec.id := p6_a0;
4709 ddp_lapv_rec.object_version_number := p6_a1;
4710 ddp_lapv_rec.attribute_category := p6_a2;
4711 ddp_lapv_rec.attribute1 := p6_a3;
4712 ddp_lapv_rec.attribute2 := p6_a4;
4713 ddp_lapv_rec.attribute3 := p6_a5;
4714 ddp_lapv_rec.attribute4 := p6_a6;
4715 ddp_lapv_rec.attribute5 := p6_a7;
4716 ddp_lapv_rec.attribute6 := p6_a8;
4717 ddp_lapv_rec.attribute7 := p6_a9;
4718 ddp_lapv_rec.attribute8 := p6_a10;
4719 ddp_lapv_rec.attribute9 := p6_a11;
4720 ddp_lapv_rec.attribute10 := p6_a12;
4721 ddp_lapv_rec.attribute11 := p6_a13;
4722 ddp_lapv_rec.attribute12 := p6_a14;
4723 ddp_lapv_rec.attribute13 := p6_a15;
4724 ddp_lapv_rec.attribute14 := p6_a16;
4725 ddp_lapv_rec.attribute15 := p6_a17;
4726 ddp_lapv_rec.reference_number := p6_a18;
4727 ddp_lapv_rec.application_status := p6_a19;
4728 ddp_lapv_rec.valid_from := p6_a20;
4729 ddp_lapv_rec.valid_to := p6_a21;
4730 ddp_lapv_rec.org_id := p6_a22;
4731 ddp_lapv_rec.inv_org_id := p6_a23;
4732 ddp_lapv_rec.prospect_id := p6_a24;
4733 ddp_lapv_rec.prospect_address_id := p6_a25;
4734 ddp_lapv_rec.cust_acct_id := p6_a26;
4735 ddp_lapv_rec.industry_class := p6_a27;
4736 ddp_lapv_rec.industry_code := p6_a28;
4737 ddp_lapv_rec.currency_code := p6_a29;
4738 ddp_lapv_rec.currency_conversion_type := p6_a30;
4739 ddp_lapv_rec.currency_conversion_rate := p6_a31;
4740 ddp_lapv_rec.currency_conversion_date := p6_a32;
4741 ddp_lapv_rec.leaseapp_template_id := p6_a33;
4742 ddp_lapv_rec.parent_leaseapp_id := p6_a34;
4743 ddp_lapv_rec.credit_line_id := p6_a35;
4744 ddp_lapv_rec.program_agreement_id := p6_a36;
4745 ddp_lapv_rec.master_lease_id := p6_a37;
4746 ddp_lapv_rec.sales_rep_id := p6_a38;
4747 ddp_lapv_rec.sales_territory_id := p6_a39;
4748 ddp_lapv_rec.originating_vendor_id := p6_a40;
4749 ddp_lapv_rec.lease_opportunity_id := p6_a41;
4750 ddp_lapv_rec.short_description := p6_a42;
4751 ddp_lapv_rec.comments := p6_a43;
4752 ddp_lapv_rec.cr_exp_days := p6_a44;
4753 ddp_lapv_rec.action := p6_a45;
4754 ddp_lapv_rec.orig_status := p6_a46;
4755
4756 ddp_lsqv_rec.id := p7_a0;
4757 ddp_lsqv_rec.object_version_number := p7_a1;
4758 ddp_lsqv_rec.attribute_category := p7_a2;
4759 ddp_lsqv_rec.attribute1 := p7_a3;
4760 ddp_lsqv_rec.attribute2 := p7_a4;
4761 ddp_lsqv_rec.attribute3 := p7_a5;
4762 ddp_lsqv_rec.attribute4 := p7_a6;
4763 ddp_lsqv_rec.attribute5 := p7_a7;
4764 ddp_lsqv_rec.attribute6 := p7_a8;
4765 ddp_lsqv_rec.attribute7 := p7_a9;
4766 ddp_lsqv_rec.attribute8 := p7_a10;
4767 ddp_lsqv_rec.attribute9 := p7_a11;
4768 ddp_lsqv_rec.attribute10 := p7_a12;
4769 ddp_lsqv_rec.attribute11 := p7_a13;
4770 ddp_lsqv_rec.attribute12 := p7_a14;
4771 ddp_lsqv_rec.attribute13 := p7_a15;
4772 ddp_lsqv_rec.attribute14 := p7_a16;
4773 ddp_lsqv_rec.attribute15 := p7_a17;
4774 ddp_lsqv_rec.reference_number := p7_a18;
4775 ddp_lsqv_rec.status := p7_a19;
4776 ddp_lsqv_rec.parent_object_code := p7_a20;
4777 ddp_lsqv_rec.parent_object_id := p7_a21;
4778 ddp_lsqv_rec.valid_from := p7_a22;
4779 ddp_lsqv_rec.valid_to := p7_a23;
4780 ddp_lsqv_rec.customer_bookclass := p7_a24;
4781 ddp_lsqv_rec.customer_taxowner := p7_a25;
4782 ddp_lsqv_rec.expected_start_date := p7_a26;
4783 ddp_lsqv_rec.expected_funding_date := p7_a27;
4784 ddp_lsqv_rec.expected_delivery_date := p7_a28;
4785 ddp_lsqv_rec.pricing_method := p7_a29;
4786 ddp_lsqv_rec.term := p7_a30;
4787 ddp_lsqv_rec.product_id := p7_a31;
4788 ddp_lsqv_rec.end_of_term_option_id := p7_a32;
4789 ddp_lsqv_rec.structured_pricing := p7_a33;
4790 ddp_lsqv_rec.line_level_pricing := p7_a34;
4791 ddp_lsqv_rec.rate_template_id := p7_a35;
4792 ddp_lsqv_rec.rate_card_id := p7_a36;
4793 ddp_lsqv_rec.lease_rate_factor := p7_a37;
4794 ddp_lsqv_rec.target_rate_type := p7_a38;
4795 ddp_lsqv_rec.target_rate := p7_a39;
4796 ddp_lsqv_rec.target_amount := p7_a40;
4797 ddp_lsqv_rec.target_frequency := p7_a41;
4798 ddp_lsqv_rec.target_arrears_yn := p7_a42;
4799 ddp_lsqv_rec.target_periods := p7_a43;
4800 ddp_lsqv_rec.iir := p7_a44;
4801 ddp_lsqv_rec.booking_yield := p7_a45;
4802 ddp_lsqv_rec.pirr := p7_a46;
4803 ddp_lsqv_rec.airr := p7_a47;
4804 ddp_lsqv_rec.sub_iir := p7_a48;
4805 ddp_lsqv_rec.sub_booking_yield := p7_a49;
4806 ddp_lsqv_rec.sub_pirr := p7_a50;
4807 ddp_lsqv_rec.sub_airr := p7_a51;
4808 ddp_lsqv_rec.usage_category := p7_a52;
4809 ddp_lsqv_rec.usage_industry_class := p7_a53;
4810 ddp_lsqv_rec.usage_industry_code := p7_a54;
4811 ddp_lsqv_rec.usage_amount := p7_a55;
4812 ddp_lsqv_rec.usage_location_id := p7_a56;
4813 ddp_lsqv_rec.property_tax_applicable := p7_a57;
4814 ddp_lsqv_rec.property_tax_billing_type := p7_a58;
4815 ddp_lsqv_rec.upfront_tax_treatment := p7_a59;
4816 ddp_lsqv_rec.upfront_tax_stream_type := p7_a60;
4817 ddp_lsqv_rec.transfer_of_title := p7_a61;
4818 ddp_lsqv_rec.age_of_equipment := p7_a62;
4819 ddp_lsqv_rec.purchase_of_lease := p7_a63;
4820 ddp_lsqv_rec.sale_and_lease_back := p7_a64;
4821 ddp_lsqv_rec.interest_disclosed := p7_a65;
4822 ddp_lsqv_rec.primary_quote := p7_a66;
4823 ddp_lsqv_rec.legal_entity_id := p7_a67;
4824 ddp_lsqv_rec.line_intended_use := p7_a68;
4825 ddp_lsqv_rec.short_description := p7_a69;
4826 ddp_lsqv_rec.description := p7_a70;
4827 ddp_lsqv_rec.comments := p7_a71;
4828
4829 -- here's the delegated call to the old PL/SQL routine
4830 okl_lease_app_pvt.check_lease_quote_defaults(p_api_version,
4831 p_init_msg_list,
4832 x_return_status,
4833 x_msg_count,
4834 x_msg_data,
4835 p_source_lsq_id,
4836 ddp_lapv_rec,
4837 ddp_lsqv_rec);
4838
4839 -- copy data back from the local variables to OUT or IN-OUT args, if any
4840
4841
4842
4843
4844
4845
4846
4847 end;
4848
4849 procedure appeal_recommendations(p_api_version NUMBER
4850 , p_init_msg_list VARCHAR2
4851 , p_lap_id NUMBER
4852 , p_cr_dec_apl_flag VARCHAR2
4853 , p_exp_date_apl_flag VARCHAR2
4854 , p5_a0 JTF_VARCHAR2_TABLE_100
4855 , p5_a1 JTF_VARCHAR2_TABLE_100
4856 , p6_a0 JTF_VARCHAR2_TABLE_100
4857 , p6_a1 JTF_VARCHAR2_TABLE_100
4858 , x_return_status out nocopy VARCHAR2
4859 , x_msg_count out nocopy NUMBER
4860 , x_msg_data out nocopy VARCHAR2
4861 )
4862
4863 as
4864 ddp_cr_conds okl_lease_app_pvt.name_val_tbl_type;
4865 ddp_addl_rcmnds okl_lease_app_pvt.name_val_tbl_type;
4866 ddindx binary_integer; indx binary_integer;
4867 begin
4868
4869 -- copy data to the local IN or IN-OUT args, if any
4870
4871
4872
4873
4874
4875 okl_lease_app_pvt_w.rosetta_table_copy_in_p3(ddp_cr_conds, p5_a0
4876 , p5_a1
4877 );
4878
4879 okl_lease_app_pvt_w.rosetta_table_copy_in_p3(ddp_addl_rcmnds, p6_a0
4880 , p6_a1
4881 );
4882
4883
4884
4885
4886 -- here's the delegated call to the old PL/SQL routine
4887 okl_lease_app_pvt.appeal_recommendations(p_api_version,
4888 p_init_msg_list,
4889 p_lap_id,
4890 p_cr_dec_apl_flag,
4891 p_exp_date_apl_flag,
4892 ddp_cr_conds,
4893 ddp_addl_rcmnds,
4894 x_return_status,
4895 x_msg_count,
4896 x_msg_data);
4897
4898 -- copy data back from the local variables to OUT or IN-OUT args, if any
4899
4900
4901
4902
4903
4904
4905
4906
4907
4908 end;
4909
4910 end okl_lease_app_pvt_w;