[Home] [Help]
PACKAGE BODY: APPS.OKL_LEASE_OPPORTUNITY_PVT_W
Source
1 package body okl_lease_opportunity_pvt_w as
2 /* $Header: OKLELOPB.pls 120.5 2007/03/20 22:38:36 rravikir noship $ */
3 procedure create_lease_opp(p_api_version NUMBER
4 , p_init_msg_list VARCHAR2
5 , p_transaction_control VARCHAR2
6 , p3_a0 NUMBER
7 , p3_a1 NUMBER
8 , p3_a2 VARCHAR2
9 , p3_a3 VARCHAR2
10 , p3_a4 VARCHAR2
11 , p3_a5 VARCHAR2
12 , p3_a6 VARCHAR2
13 , p3_a7 VARCHAR2
14 , p3_a8 VARCHAR2
15 , p3_a9 VARCHAR2
16 , p3_a10 VARCHAR2
17 , p3_a11 VARCHAR2
18 , p3_a12 VARCHAR2
19 , p3_a13 VARCHAR2
20 , p3_a14 VARCHAR2
21 , p3_a15 VARCHAR2
22 , p3_a16 VARCHAR2
23 , p3_a17 VARCHAR2
24 , p3_a18 VARCHAR2
25 , p3_a19 VARCHAR2
26 , p3_a20 DATE
27 , p3_a21 DATE
28 , p3_a22 NUMBER
29 , p3_a23 NUMBER
30 , p3_a24 NUMBER
31 , p3_a25 NUMBER
32 , p3_a26 NUMBER
33 , p3_a27 VARCHAR2
34 , p3_a28 VARCHAR2
35 , p3_a29 NUMBER
36 , p3_a30 DATE
37 , p3_a31 NUMBER
38 , p3_a32 NUMBER
39 , p3_a33 NUMBER
40 , p3_a34 NUMBER
41 , p3_a35 NUMBER
42 , p3_a36 DATE
43 , p3_a37 DATE
44 , p3_a38 VARCHAR2
45 , p3_a39 VARCHAR2
46 , p3_a40 VARCHAR2
47 , p3_a41 NUMBER
48 , p3_a42 VARCHAR2
49 , p3_a43 VARCHAR2
50 , p3_a44 VARCHAR2
51 , p3_a45 NUMBER
52 , p3_a46 NUMBER
53 , p3_a47 NUMBER
54 , p3_a48 NUMBER
55 , p3_a49 VARCHAR2
56 , p3_a50 VARCHAR2
57 , p3_a51 VARCHAR2
58 , p3_a52 VARCHAR2
59 , p_quick_quote_id NUMBER
60 , p5_a0 out nocopy NUMBER
61 , p5_a1 out nocopy NUMBER
62 , p5_a2 out nocopy VARCHAR2
63 , p5_a3 out nocopy VARCHAR2
64 , p5_a4 out nocopy VARCHAR2
65 , p5_a5 out nocopy VARCHAR2
66 , p5_a6 out nocopy VARCHAR2
67 , p5_a7 out nocopy VARCHAR2
68 , p5_a8 out nocopy VARCHAR2
69 , p5_a9 out nocopy VARCHAR2
70 , p5_a10 out nocopy VARCHAR2
71 , p5_a11 out nocopy VARCHAR2
72 , p5_a12 out nocopy VARCHAR2
73 , p5_a13 out nocopy VARCHAR2
74 , p5_a14 out nocopy VARCHAR2
75 , p5_a15 out nocopy VARCHAR2
76 , p5_a16 out nocopy VARCHAR2
77 , p5_a17 out nocopy VARCHAR2
78 , p5_a18 out nocopy VARCHAR2
79 , p5_a19 out nocopy VARCHAR2
80 , p5_a20 out nocopy DATE
81 , p5_a21 out nocopy DATE
82 , p5_a22 out nocopy NUMBER
83 , p5_a23 out nocopy NUMBER
84 , p5_a24 out nocopy NUMBER
85 , p5_a25 out nocopy NUMBER
86 , p5_a26 out nocopy NUMBER
87 , p5_a27 out nocopy VARCHAR2
88 , p5_a28 out nocopy VARCHAR2
89 , p5_a29 out nocopy NUMBER
90 , p5_a30 out nocopy DATE
91 , p5_a31 out nocopy NUMBER
92 , p5_a32 out nocopy NUMBER
93 , p5_a33 out nocopy NUMBER
94 , p5_a34 out nocopy NUMBER
95 , p5_a35 out nocopy NUMBER
96 , p5_a36 out nocopy DATE
97 , p5_a37 out nocopy DATE
98 , p5_a38 out nocopy VARCHAR2
99 , p5_a39 out nocopy VARCHAR2
100 , p5_a40 out nocopy VARCHAR2
101 , p5_a41 out nocopy NUMBER
102 , p5_a42 out nocopy VARCHAR2
103 , p5_a43 out nocopy VARCHAR2
104 , p5_a44 out nocopy VARCHAR2
105 , p5_a45 out nocopy NUMBER
106 , p5_a46 out nocopy NUMBER
107 , p5_a47 out nocopy NUMBER
108 , p5_a48 out nocopy NUMBER
109 , p5_a49 out nocopy VARCHAR2
110 , p5_a50 out nocopy VARCHAR2
111 , p5_a51 out nocopy VARCHAR2
112 , p5_a52 out nocopy VARCHAR2
113 , x_return_status out nocopy VARCHAR2
114 , x_msg_count out nocopy NUMBER
115 , x_msg_data out nocopy VARCHAR2
116 )
117
118 as
119 ddp_lease_opp_rec okl_lease_opportunity_pvt.lease_opp_rec_type;
120 ddx_lease_opp_rec okl_lease_opportunity_pvt.lease_opp_rec_type;
121 ddindx binary_integer; indx binary_integer;
122 begin
123
124 -- copy data to the local IN or IN-OUT args, if any
125
126
127
128 ddp_lease_opp_rec.id := p3_a0;
129 ddp_lease_opp_rec.object_version_number := p3_a1;
130 ddp_lease_opp_rec.attribute_category := p3_a2;
131 ddp_lease_opp_rec.attribute1 := p3_a3;
132 ddp_lease_opp_rec.attribute2 := p3_a4;
133 ddp_lease_opp_rec.attribute3 := p3_a5;
134 ddp_lease_opp_rec.attribute4 := p3_a6;
135 ddp_lease_opp_rec.attribute5 := p3_a7;
136 ddp_lease_opp_rec.attribute6 := p3_a8;
137 ddp_lease_opp_rec.attribute7 := p3_a9;
138 ddp_lease_opp_rec.attribute8 := p3_a10;
139 ddp_lease_opp_rec.attribute9 := p3_a11;
140 ddp_lease_opp_rec.attribute10 := p3_a12;
141 ddp_lease_opp_rec.attribute11 := p3_a13;
142 ddp_lease_opp_rec.attribute12 := p3_a14;
143 ddp_lease_opp_rec.attribute13 := p3_a15;
144 ddp_lease_opp_rec.attribute14 := p3_a16;
145 ddp_lease_opp_rec.attribute15 := p3_a17;
146 ddp_lease_opp_rec.reference_number := p3_a18;
147 ddp_lease_opp_rec.status := p3_a19;
148 ddp_lease_opp_rec.valid_from := p3_a20;
149 ddp_lease_opp_rec.expected_start_date := p3_a21;
150 ddp_lease_opp_rec.org_id := p3_a22;
151 ddp_lease_opp_rec.inv_org_id := p3_a23;
152 ddp_lease_opp_rec.prospect_id := p3_a24;
153 ddp_lease_opp_rec.prospect_address_id := p3_a25;
154 ddp_lease_opp_rec.cust_acct_id := p3_a26;
155 ddp_lease_opp_rec.currency_code := p3_a27;
156 ddp_lease_opp_rec.currency_conversion_type := p3_a28;
157 ddp_lease_opp_rec.currency_conversion_rate := p3_a29;
158 ddp_lease_opp_rec.currency_conversion_date := p3_a30;
159 ddp_lease_opp_rec.program_agreement_id := p3_a31;
160 ddp_lease_opp_rec.master_lease_id := p3_a32;
161 ddp_lease_opp_rec.sales_rep_id := p3_a33;
162 ddp_lease_opp_rec.sales_territory_id := p3_a34;
163 ddp_lease_opp_rec.supplier_id := p3_a35;
164 ddp_lease_opp_rec.delivery_date := p3_a36;
165 ddp_lease_opp_rec.funding_date := p3_a37;
166 ddp_lease_opp_rec.property_tax_applicable := p3_a38;
167 ddp_lease_opp_rec.property_tax_billing_type := p3_a39;
168 ddp_lease_opp_rec.upfront_tax_treatment := p3_a40;
169 ddp_lease_opp_rec.install_site_id := p3_a41;
170 ddp_lease_opp_rec.usage_category := p3_a42;
171 ddp_lease_opp_rec.usage_industry_class := p3_a43;
172 ddp_lease_opp_rec.usage_industry_code := p3_a44;
173 ddp_lease_opp_rec.usage_amount := p3_a45;
174 ddp_lease_opp_rec.usage_location_id := p3_a46;
175 ddp_lease_opp_rec.originating_vendor_id := p3_a47;
176 ddp_lease_opp_rec.legal_entity_id := p3_a48;
177 ddp_lease_opp_rec.line_intended_use := p3_a49;
178 ddp_lease_opp_rec.short_description := p3_a50;
179 ddp_lease_opp_rec.description := p3_a51;
180 ddp_lease_opp_rec.comments := p3_a52;
181
182
183
184
185
186
187 -- here's the delegated call to the old PL/SQL routine
188 okl_lease_opportunity_pvt.create_lease_opp(p_api_version,
189 p_init_msg_list,
190 p_transaction_control,
191 ddp_lease_opp_rec,
192 p_quick_quote_id,
193 ddx_lease_opp_rec,
194 x_return_status,
195 x_msg_count,
196 x_msg_data);
197
198 -- copy data back from the local variables to OUT or IN-OUT args, if any
199
200
201
202
203
204 p5_a0 := ddx_lease_opp_rec.id;
205 p5_a1 := ddx_lease_opp_rec.object_version_number;
206 p5_a2 := ddx_lease_opp_rec.attribute_category;
207 p5_a3 := ddx_lease_opp_rec.attribute1;
208 p5_a4 := ddx_lease_opp_rec.attribute2;
209 p5_a5 := ddx_lease_opp_rec.attribute3;
210 p5_a6 := ddx_lease_opp_rec.attribute4;
211 p5_a7 := ddx_lease_opp_rec.attribute5;
212 p5_a8 := ddx_lease_opp_rec.attribute6;
213 p5_a9 := ddx_lease_opp_rec.attribute7;
214 p5_a10 := ddx_lease_opp_rec.attribute8;
215 p5_a11 := ddx_lease_opp_rec.attribute9;
216 p5_a12 := ddx_lease_opp_rec.attribute10;
217 p5_a13 := ddx_lease_opp_rec.attribute11;
218 p5_a14 := ddx_lease_opp_rec.attribute12;
219 p5_a15 := ddx_lease_opp_rec.attribute13;
220 p5_a16 := ddx_lease_opp_rec.attribute14;
221 p5_a17 := ddx_lease_opp_rec.attribute15;
222 p5_a18 := ddx_lease_opp_rec.reference_number;
223 p5_a19 := ddx_lease_opp_rec.status;
224 p5_a20 := ddx_lease_opp_rec.valid_from;
225 p5_a21 := ddx_lease_opp_rec.expected_start_date;
226 p5_a22 := ddx_lease_opp_rec.org_id;
227 p5_a23 := ddx_lease_opp_rec.inv_org_id;
228 p5_a24 := ddx_lease_opp_rec.prospect_id;
229 p5_a25 := ddx_lease_opp_rec.prospect_address_id;
230 p5_a26 := ddx_lease_opp_rec.cust_acct_id;
231 p5_a27 := ddx_lease_opp_rec.currency_code;
232 p5_a28 := ddx_lease_opp_rec.currency_conversion_type;
233 p5_a29 := ddx_lease_opp_rec.currency_conversion_rate;
234 p5_a30 := ddx_lease_opp_rec.currency_conversion_date;
235 p5_a31 := ddx_lease_opp_rec.program_agreement_id;
236 p5_a32 := ddx_lease_opp_rec.master_lease_id;
237 p5_a33 := ddx_lease_opp_rec.sales_rep_id;
238 p5_a34 := ddx_lease_opp_rec.sales_territory_id;
239 p5_a35 := ddx_lease_opp_rec.supplier_id;
240 p5_a36 := ddx_lease_opp_rec.delivery_date;
241 p5_a37 := ddx_lease_opp_rec.funding_date;
242 p5_a38 := ddx_lease_opp_rec.property_tax_applicable;
243 p5_a39 := ddx_lease_opp_rec.property_tax_billing_type;
244 p5_a40 := ddx_lease_opp_rec.upfront_tax_treatment;
245 p5_a41 := ddx_lease_opp_rec.install_site_id;
246 p5_a42 := ddx_lease_opp_rec.usage_category;
247 p5_a43 := ddx_lease_opp_rec.usage_industry_class;
248 p5_a44 := ddx_lease_opp_rec.usage_industry_code;
249 p5_a45 := ddx_lease_opp_rec.usage_amount;
250 p5_a46 := ddx_lease_opp_rec.usage_location_id;
251 p5_a47 := ddx_lease_opp_rec.originating_vendor_id;
252 p5_a48 := ddx_lease_opp_rec.legal_entity_id;
253 p5_a49 := ddx_lease_opp_rec.line_intended_use;
254 p5_a50 := ddx_lease_opp_rec.short_description;
255 p5_a51 := ddx_lease_opp_rec.description;
256 p5_a52 := ddx_lease_opp_rec.comments;
257
258
259
260 end;
261
262 procedure update_lease_opp(p_api_version NUMBER
263 , p_init_msg_list VARCHAR2
264 , p_transaction_control VARCHAR2
265 , p3_a0 NUMBER
266 , p3_a1 NUMBER
267 , p3_a2 VARCHAR2
268 , p3_a3 VARCHAR2
269 , p3_a4 VARCHAR2
270 , p3_a5 VARCHAR2
271 , p3_a6 VARCHAR2
272 , p3_a7 VARCHAR2
273 , p3_a8 VARCHAR2
274 , p3_a9 VARCHAR2
275 , p3_a10 VARCHAR2
276 , p3_a11 VARCHAR2
277 , p3_a12 VARCHAR2
278 , p3_a13 VARCHAR2
279 , p3_a14 VARCHAR2
280 , p3_a15 VARCHAR2
281 , p3_a16 VARCHAR2
282 , p3_a17 VARCHAR2
283 , p3_a18 VARCHAR2
284 , p3_a19 VARCHAR2
285 , p3_a20 DATE
286 , p3_a21 DATE
287 , p3_a22 NUMBER
288 , p3_a23 NUMBER
289 , p3_a24 NUMBER
290 , p3_a25 NUMBER
291 , p3_a26 NUMBER
292 , p3_a27 VARCHAR2
293 , p3_a28 VARCHAR2
294 , p3_a29 NUMBER
295 , p3_a30 DATE
296 , p3_a31 NUMBER
297 , p3_a32 NUMBER
298 , p3_a33 NUMBER
299 , p3_a34 NUMBER
300 , p3_a35 NUMBER
301 , p3_a36 DATE
302 , p3_a37 DATE
303 , p3_a38 VARCHAR2
304 , p3_a39 VARCHAR2
305 , p3_a40 VARCHAR2
306 , p3_a41 NUMBER
307 , p3_a42 VARCHAR2
308 , p3_a43 VARCHAR2
309 , p3_a44 VARCHAR2
310 , p3_a45 NUMBER
311 , p3_a46 NUMBER
312 , p3_a47 NUMBER
313 , p3_a48 NUMBER
314 , p3_a49 VARCHAR2
315 , p3_a50 VARCHAR2
316 , p3_a51 VARCHAR2
317 , p3_a52 VARCHAR2
318 , p4_a0 out nocopy NUMBER
319 , p4_a1 out nocopy NUMBER
320 , p4_a2 out nocopy VARCHAR2
321 , p4_a3 out nocopy VARCHAR2
322 , p4_a4 out nocopy VARCHAR2
323 , p4_a5 out nocopy VARCHAR2
324 , p4_a6 out nocopy VARCHAR2
325 , p4_a7 out nocopy VARCHAR2
326 , p4_a8 out nocopy VARCHAR2
327 , p4_a9 out nocopy VARCHAR2
328 , p4_a10 out nocopy VARCHAR2
329 , p4_a11 out nocopy VARCHAR2
330 , p4_a12 out nocopy VARCHAR2
331 , p4_a13 out nocopy VARCHAR2
332 , p4_a14 out nocopy VARCHAR2
333 , p4_a15 out nocopy VARCHAR2
334 , p4_a16 out nocopy VARCHAR2
335 , p4_a17 out nocopy VARCHAR2
336 , p4_a18 out nocopy VARCHAR2
337 , p4_a19 out nocopy VARCHAR2
338 , p4_a20 out nocopy DATE
339 , p4_a21 out nocopy DATE
340 , p4_a22 out nocopy NUMBER
341 , p4_a23 out nocopy NUMBER
342 , p4_a24 out nocopy NUMBER
343 , p4_a25 out nocopy NUMBER
344 , p4_a26 out nocopy NUMBER
345 , p4_a27 out nocopy VARCHAR2
346 , p4_a28 out nocopy VARCHAR2
347 , p4_a29 out nocopy NUMBER
348 , p4_a30 out nocopy DATE
349 , p4_a31 out nocopy NUMBER
350 , p4_a32 out nocopy NUMBER
351 , p4_a33 out nocopy NUMBER
352 , p4_a34 out nocopy NUMBER
353 , p4_a35 out nocopy NUMBER
354 , p4_a36 out nocopy DATE
355 , p4_a37 out nocopy DATE
356 , p4_a38 out nocopy VARCHAR2
357 , p4_a39 out nocopy VARCHAR2
358 , p4_a40 out nocopy VARCHAR2
359 , p4_a41 out nocopy NUMBER
360 , p4_a42 out nocopy VARCHAR2
361 , p4_a43 out nocopy VARCHAR2
362 , p4_a44 out nocopy VARCHAR2
363 , p4_a45 out nocopy NUMBER
364 , p4_a46 out nocopy NUMBER
365 , p4_a47 out nocopy NUMBER
366 , p4_a48 out nocopy NUMBER
367 , p4_a49 out nocopy VARCHAR2
368 , p4_a50 out nocopy VARCHAR2
369 , p4_a51 out nocopy VARCHAR2
370 , p4_a52 out nocopy VARCHAR2
371 , x_return_status out nocopy VARCHAR2
372 , x_msg_count out nocopy NUMBER
373 , x_msg_data out nocopy VARCHAR2
374 )
375
376 as
377 ddp_lease_opp_rec okl_lease_opportunity_pvt.lease_opp_rec_type;
378 ddx_lease_opp_rec okl_lease_opportunity_pvt.lease_opp_rec_type;
379 ddindx binary_integer; indx binary_integer;
380 begin
381
382 -- copy data to the local IN or IN-OUT args, if any
383
384
385
386 ddp_lease_opp_rec.id := p3_a0;
387 ddp_lease_opp_rec.object_version_number := p3_a1;
388 ddp_lease_opp_rec.attribute_category := p3_a2;
389 ddp_lease_opp_rec.attribute1 := p3_a3;
390 ddp_lease_opp_rec.attribute2 := p3_a4;
391 ddp_lease_opp_rec.attribute3 := p3_a5;
392 ddp_lease_opp_rec.attribute4 := p3_a6;
393 ddp_lease_opp_rec.attribute5 := p3_a7;
394 ddp_lease_opp_rec.attribute6 := p3_a8;
395 ddp_lease_opp_rec.attribute7 := p3_a9;
396 ddp_lease_opp_rec.attribute8 := p3_a10;
397 ddp_lease_opp_rec.attribute9 := p3_a11;
398 ddp_lease_opp_rec.attribute10 := p3_a12;
399 ddp_lease_opp_rec.attribute11 := p3_a13;
400 ddp_lease_opp_rec.attribute12 := p3_a14;
401 ddp_lease_opp_rec.attribute13 := p3_a15;
402 ddp_lease_opp_rec.attribute14 := p3_a16;
403 ddp_lease_opp_rec.attribute15 := p3_a17;
404 ddp_lease_opp_rec.reference_number := p3_a18;
405 ddp_lease_opp_rec.status := p3_a19;
406 ddp_lease_opp_rec.valid_from := p3_a20;
407 ddp_lease_opp_rec.expected_start_date := p3_a21;
408 ddp_lease_opp_rec.org_id := p3_a22;
409 ddp_lease_opp_rec.inv_org_id := p3_a23;
410 ddp_lease_opp_rec.prospect_id := p3_a24;
411 ddp_lease_opp_rec.prospect_address_id := p3_a25;
412 ddp_lease_opp_rec.cust_acct_id := p3_a26;
413 ddp_lease_opp_rec.currency_code := p3_a27;
414 ddp_lease_opp_rec.currency_conversion_type := p3_a28;
415 ddp_lease_opp_rec.currency_conversion_rate := p3_a29;
416 ddp_lease_opp_rec.currency_conversion_date := p3_a30;
417 ddp_lease_opp_rec.program_agreement_id := p3_a31;
418 ddp_lease_opp_rec.master_lease_id := p3_a32;
419 ddp_lease_opp_rec.sales_rep_id := p3_a33;
420 ddp_lease_opp_rec.sales_territory_id := p3_a34;
421 ddp_lease_opp_rec.supplier_id := p3_a35;
422 ddp_lease_opp_rec.delivery_date := p3_a36;
423 ddp_lease_opp_rec.funding_date := p3_a37;
424 ddp_lease_opp_rec.property_tax_applicable := p3_a38;
425 ddp_lease_opp_rec.property_tax_billing_type := p3_a39;
426 ddp_lease_opp_rec.upfront_tax_treatment := p3_a40;
427 ddp_lease_opp_rec.install_site_id := p3_a41;
428 ddp_lease_opp_rec.usage_category := p3_a42;
429 ddp_lease_opp_rec.usage_industry_class := p3_a43;
430 ddp_lease_opp_rec.usage_industry_code := p3_a44;
431 ddp_lease_opp_rec.usage_amount := p3_a45;
432 ddp_lease_opp_rec.usage_location_id := p3_a46;
433 ddp_lease_opp_rec.originating_vendor_id := p3_a47;
434 ddp_lease_opp_rec.legal_entity_id := p3_a48;
435 ddp_lease_opp_rec.line_intended_use := p3_a49;
436 ddp_lease_opp_rec.short_description := p3_a50;
437 ddp_lease_opp_rec.description := p3_a51;
438 ddp_lease_opp_rec.comments := p3_a52;
439
440
441
442
443
444 -- here's the delegated call to the old PL/SQL routine
445 okl_lease_opportunity_pvt.update_lease_opp(p_api_version,
446 p_init_msg_list,
447 p_transaction_control,
448 ddp_lease_opp_rec,
449 ddx_lease_opp_rec,
450 x_return_status,
451 x_msg_count,
452 x_msg_data);
453
454 -- copy data back from the local variables to OUT or IN-OUT args, if any
455
456
457
458
459 p4_a0 := ddx_lease_opp_rec.id;
460 p4_a1 := ddx_lease_opp_rec.object_version_number;
461 p4_a2 := ddx_lease_opp_rec.attribute_category;
462 p4_a3 := ddx_lease_opp_rec.attribute1;
463 p4_a4 := ddx_lease_opp_rec.attribute2;
464 p4_a5 := ddx_lease_opp_rec.attribute3;
465 p4_a6 := ddx_lease_opp_rec.attribute4;
466 p4_a7 := ddx_lease_opp_rec.attribute5;
467 p4_a8 := ddx_lease_opp_rec.attribute6;
468 p4_a9 := ddx_lease_opp_rec.attribute7;
469 p4_a10 := ddx_lease_opp_rec.attribute8;
470 p4_a11 := ddx_lease_opp_rec.attribute9;
471 p4_a12 := ddx_lease_opp_rec.attribute10;
472 p4_a13 := ddx_lease_opp_rec.attribute11;
473 p4_a14 := ddx_lease_opp_rec.attribute12;
474 p4_a15 := ddx_lease_opp_rec.attribute13;
475 p4_a16 := ddx_lease_opp_rec.attribute14;
476 p4_a17 := ddx_lease_opp_rec.attribute15;
477 p4_a18 := ddx_lease_opp_rec.reference_number;
478 p4_a19 := ddx_lease_opp_rec.status;
479 p4_a20 := ddx_lease_opp_rec.valid_from;
480 p4_a21 := ddx_lease_opp_rec.expected_start_date;
481 p4_a22 := ddx_lease_opp_rec.org_id;
482 p4_a23 := ddx_lease_opp_rec.inv_org_id;
483 p4_a24 := ddx_lease_opp_rec.prospect_id;
484 p4_a25 := ddx_lease_opp_rec.prospect_address_id;
485 p4_a26 := ddx_lease_opp_rec.cust_acct_id;
486 p4_a27 := ddx_lease_opp_rec.currency_code;
487 p4_a28 := ddx_lease_opp_rec.currency_conversion_type;
488 p4_a29 := ddx_lease_opp_rec.currency_conversion_rate;
489 p4_a30 := ddx_lease_opp_rec.currency_conversion_date;
490 p4_a31 := ddx_lease_opp_rec.program_agreement_id;
491 p4_a32 := ddx_lease_opp_rec.master_lease_id;
492 p4_a33 := ddx_lease_opp_rec.sales_rep_id;
493 p4_a34 := ddx_lease_opp_rec.sales_territory_id;
494 p4_a35 := ddx_lease_opp_rec.supplier_id;
495 p4_a36 := ddx_lease_opp_rec.delivery_date;
496 p4_a37 := ddx_lease_opp_rec.funding_date;
497 p4_a38 := ddx_lease_opp_rec.property_tax_applicable;
498 p4_a39 := ddx_lease_opp_rec.property_tax_billing_type;
499 p4_a40 := ddx_lease_opp_rec.upfront_tax_treatment;
500 p4_a41 := ddx_lease_opp_rec.install_site_id;
501 p4_a42 := ddx_lease_opp_rec.usage_category;
502 p4_a43 := ddx_lease_opp_rec.usage_industry_class;
503 p4_a44 := ddx_lease_opp_rec.usage_industry_code;
504 p4_a45 := ddx_lease_opp_rec.usage_amount;
505 p4_a46 := ddx_lease_opp_rec.usage_location_id;
506 p4_a47 := ddx_lease_opp_rec.originating_vendor_id;
507 p4_a48 := ddx_lease_opp_rec.legal_entity_id;
508 p4_a49 := ddx_lease_opp_rec.line_intended_use;
509 p4_a50 := ddx_lease_opp_rec.short_description;
510 p4_a51 := ddx_lease_opp_rec.description;
511 p4_a52 := ddx_lease_opp_rec.comments;
512
513
514
515 end;
516
517 procedure defaults_for_lease_opp(p_api_version NUMBER
518 , p_init_msg_list VARCHAR2
519 , p_transaction_control VARCHAR2
520 , p3_a0 NUMBER
521 , p3_a1 NUMBER
522 , p3_a2 VARCHAR2
523 , p3_a3 VARCHAR2
524 , p3_a4 VARCHAR2
525 , p3_a5 VARCHAR2
526 , p3_a6 VARCHAR2
527 , p3_a7 VARCHAR2
528 , p3_a8 VARCHAR2
529 , p3_a9 VARCHAR2
530 , p3_a10 VARCHAR2
531 , p3_a11 VARCHAR2
532 , p3_a12 VARCHAR2
533 , p3_a13 VARCHAR2
534 , p3_a14 VARCHAR2
535 , p3_a15 VARCHAR2
536 , p3_a16 VARCHAR2
537 , p3_a17 VARCHAR2
538 , p3_a18 VARCHAR2
539 , p3_a19 VARCHAR2
540 , p3_a20 DATE
541 , p3_a21 DATE
542 , p3_a22 NUMBER
543 , p3_a23 NUMBER
544 , p3_a24 NUMBER
545 , p3_a25 NUMBER
546 , p3_a26 NUMBER
547 , p3_a27 VARCHAR2
548 , p3_a28 VARCHAR2
549 , p3_a29 NUMBER
550 , p3_a30 DATE
551 , p3_a31 NUMBER
552 , p3_a32 NUMBER
553 , p3_a33 NUMBER
554 , p3_a34 NUMBER
555 , p3_a35 NUMBER
556 , p3_a36 DATE
557 , p3_a37 DATE
558 , p3_a38 VARCHAR2
559 , p3_a39 VARCHAR2
560 , p3_a40 VARCHAR2
561 , p3_a41 NUMBER
562 , p3_a42 VARCHAR2
563 , p3_a43 VARCHAR2
564 , p3_a44 VARCHAR2
565 , p3_a45 NUMBER
566 , p3_a46 NUMBER
567 , p3_a47 NUMBER
568 , p3_a48 NUMBER
569 , p3_a49 VARCHAR2
570 , p3_a50 VARCHAR2
571 , p3_a51 VARCHAR2
572 , p3_a52 VARCHAR2
573 , p_user_id VARCHAR2
574 , x_sales_rep_name out nocopy VARCHAR2
575 , p6_a0 out nocopy NUMBER
576 , p6_a1 out nocopy NUMBER
577 , p6_a2 out nocopy VARCHAR2
578 , p6_a3 out nocopy VARCHAR2
579 , p6_a4 out nocopy VARCHAR2
580 , p6_a5 out nocopy VARCHAR2
581 , p6_a6 out nocopy VARCHAR2
582 , p6_a7 out nocopy VARCHAR2
583 , p6_a8 out nocopy VARCHAR2
584 , p6_a9 out nocopy VARCHAR2
585 , p6_a10 out nocopy VARCHAR2
586 , p6_a11 out nocopy VARCHAR2
587 , p6_a12 out nocopy VARCHAR2
588 , p6_a13 out nocopy VARCHAR2
589 , p6_a14 out nocopy VARCHAR2
590 , p6_a15 out nocopy VARCHAR2
591 , p6_a16 out nocopy VARCHAR2
592 , p6_a17 out nocopy VARCHAR2
593 , p6_a18 out nocopy VARCHAR2
594 , p6_a19 out nocopy VARCHAR2
595 , p6_a20 out nocopy DATE
596 , p6_a21 out nocopy DATE
597 , p6_a22 out nocopy NUMBER
598 , p6_a23 out nocopy NUMBER
599 , p6_a24 out nocopy NUMBER
600 , p6_a25 out nocopy NUMBER
601 , p6_a26 out nocopy NUMBER
602 , p6_a27 out nocopy VARCHAR2
603 , p6_a28 out nocopy VARCHAR2
604 , p6_a29 out nocopy NUMBER
605 , p6_a30 out nocopy DATE
606 , p6_a31 out nocopy NUMBER
607 , p6_a32 out nocopy NUMBER
608 , p6_a33 out nocopy NUMBER
609 , p6_a34 out nocopy NUMBER
610 , p6_a35 out nocopy NUMBER
611 , p6_a36 out nocopy DATE
612 , p6_a37 out nocopy DATE
613 , p6_a38 out nocopy VARCHAR2
614 , p6_a39 out nocopy VARCHAR2
615 , p6_a40 out nocopy VARCHAR2
616 , p6_a41 out nocopy NUMBER
617 , p6_a42 out nocopy VARCHAR2
618 , p6_a43 out nocopy VARCHAR2
619 , p6_a44 out nocopy VARCHAR2
620 , p6_a45 out nocopy NUMBER
621 , p6_a46 out nocopy NUMBER
622 , p6_a47 out nocopy NUMBER
623 , p6_a48 out nocopy NUMBER
624 , p6_a49 out nocopy VARCHAR2
625 , p6_a50 out nocopy VARCHAR2
626 , p6_a51 out nocopy VARCHAR2
627 , p6_a52 out nocopy VARCHAR2
628 , x_dff_name out nocopy VARCHAR2
629 , x_return_status out nocopy VARCHAR2
630 , x_msg_count out nocopy NUMBER
631 , x_msg_data out nocopy VARCHAR2
632 )
633
634 as
635 ddp_lease_opp_rec okl_lease_opportunity_pvt.lease_opp_rec_type;
636 ddx_lease_opp_rec okl_lease_opportunity_pvt.lease_opp_rec_type;
637 ddindx binary_integer; indx binary_integer;
638 begin
639
640 -- copy data to the local IN or IN-OUT args, if any
641
642
643
644 ddp_lease_opp_rec.id := p3_a0;
645 ddp_lease_opp_rec.object_version_number := p3_a1;
646 ddp_lease_opp_rec.attribute_category := p3_a2;
647 ddp_lease_opp_rec.attribute1 := p3_a3;
648 ddp_lease_opp_rec.attribute2 := p3_a4;
649 ddp_lease_opp_rec.attribute3 := p3_a5;
650 ddp_lease_opp_rec.attribute4 := p3_a6;
651 ddp_lease_opp_rec.attribute5 := p3_a7;
652 ddp_lease_opp_rec.attribute6 := p3_a8;
653 ddp_lease_opp_rec.attribute7 := p3_a9;
654 ddp_lease_opp_rec.attribute8 := p3_a10;
655 ddp_lease_opp_rec.attribute9 := p3_a11;
656 ddp_lease_opp_rec.attribute10 := p3_a12;
657 ddp_lease_opp_rec.attribute11 := p3_a13;
658 ddp_lease_opp_rec.attribute12 := p3_a14;
659 ddp_lease_opp_rec.attribute13 := p3_a15;
660 ddp_lease_opp_rec.attribute14 := p3_a16;
661 ddp_lease_opp_rec.attribute15 := p3_a17;
662 ddp_lease_opp_rec.reference_number := p3_a18;
663 ddp_lease_opp_rec.status := p3_a19;
664 ddp_lease_opp_rec.valid_from := p3_a20;
665 ddp_lease_opp_rec.expected_start_date := p3_a21;
666 ddp_lease_opp_rec.org_id := p3_a22;
667 ddp_lease_opp_rec.inv_org_id := p3_a23;
668 ddp_lease_opp_rec.prospect_id := p3_a24;
669 ddp_lease_opp_rec.prospect_address_id := p3_a25;
670 ddp_lease_opp_rec.cust_acct_id := p3_a26;
671 ddp_lease_opp_rec.currency_code := p3_a27;
672 ddp_lease_opp_rec.currency_conversion_type := p3_a28;
673 ddp_lease_opp_rec.currency_conversion_rate := p3_a29;
674 ddp_lease_opp_rec.currency_conversion_date := p3_a30;
675 ddp_lease_opp_rec.program_agreement_id := p3_a31;
676 ddp_lease_opp_rec.master_lease_id := p3_a32;
677 ddp_lease_opp_rec.sales_rep_id := p3_a33;
678 ddp_lease_opp_rec.sales_territory_id := p3_a34;
679 ddp_lease_opp_rec.supplier_id := p3_a35;
680 ddp_lease_opp_rec.delivery_date := p3_a36;
681 ddp_lease_opp_rec.funding_date := p3_a37;
682 ddp_lease_opp_rec.property_tax_applicable := p3_a38;
683 ddp_lease_opp_rec.property_tax_billing_type := p3_a39;
684 ddp_lease_opp_rec.upfront_tax_treatment := p3_a40;
685 ddp_lease_opp_rec.install_site_id := p3_a41;
686 ddp_lease_opp_rec.usage_category := p3_a42;
687 ddp_lease_opp_rec.usage_industry_class := p3_a43;
688 ddp_lease_opp_rec.usage_industry_code := p3_a44;
689 ddp_lease_opp_rec.usage_amount := p3_a45;
690 ddp_lease_opp_rec.usage_location_id := p3_a46;
691 ddp_lease_opp_rec.originating_vendor_id := p3_a47;
692 ddp_lease_opp_rec.legal_entity_id := p3_a48;
693 ddp_lease_opp_rec.line_intended_use := p3_a49;
694 ddp_lease_opp_rec.short_description := p3_a50;
695 ddp_lease_opp_rec.description := p3_a51;
696 ddp_lease_opp_rec.comments := p3_a52;
697
698
699
700
701
702
703
704
705 -- here's the delegated call to the old PL/SQL routine
706 okl_lease_opportunity_pvt.defaults_for_lease_opp(p_api_version,
707 p_init_msg_list,
708 p_transaction_control,
709 ddp_lease_opp_rec,
710 p_user_id,
711 x_sales_rep_name,
712 ddx_lease_opp_rec,
713 x_dff_name,
714 x_return_status,
715 x_msg_count,
716 x_msg_data);
717
718 -- copy data back from the local variables to OUT or IN-OUT args, if any
719
720
721
722
723
724
725 p6_a0 := ddx_lease_opp_rec.id;
726 p6_a1 := ddx_lease_opp_rec.object_version_number;
727 p6_a2 := ddx_lease_opp_rec.attribute_category;
728 p6_a3 := ddx_lease_opp_rec.attribute1;
729 p6_a4 := ddx_lease_opp_rec.attribute2;
730 p6_a5 := ddx_lease_opp_rec.attribute3;
731 p6_a6 := ddx_lease_opp_rec.attribute4;
732 p6_a7 := ddx_lease_opp_rec.attribute5;
733 p6_a8 := ddx_lease_opp_rec.attribute6;
734 p6_a9 := ddx_lease_opp_rec.attribute7;
735 p6_a10 := ddx_lease_opp_rec.attribute8;
736 p6_a11 := ddx_lease_opp_rec.attribute9;
737 p6_a12 := ddx_lease_opp_rec.attribute10;
738 p6_a13 := ddx_lease_opp_rec.attribute11;
739 p6_a14 := ddx_lease_opp_rec.attribute12;
740 p6_a15 := ddx_lease_opp_rec.attribute13;
741 p6_a16 := ddx_lease_opp_rec.attribute14;
742 p6_a17 := ddx_lease_opp_rec.attribute15;
743 p6_a18 := ddx_lease_opp_rec.reference_number;
744 p6_a19 := ddx_lease_opp_rec.status;
745 p6_a20 := ddx_lease_opp_rec.valid_from;
746 p6_a21 := ddx_lease_opp_rec.expected_start_date;
747 p6_a22 := ddx_lease_opp_rec.org_id;
748 p6_a23 := ddx_lease_opp_rec.inv_org_id;
749 p6_a24 := ddx_lease_opp_rec.prospect_id;
750 p6_a25 := ddx_lease_opp_rec.prospect_address_id;
751 p6_a26 := ddx_lease_opp_rec.cust_acct_id;
752 p6_a27 := ddx_lease_opp_rec.currency_code;
753 p6_a28 := ddx_lease_opp_rec.currency_conversion_type;
754 p6_a29 := ddx_lease_opp_rec.currency_conversion_rate;
755 p6_a30 := ddx_lease_opp_rec.currency_conversion_date;
756 p6_a31 := ddx_lease_opp_rec.program_agreement_id;
757 p6_a32 := ddx_lease_opp_rec.master_lease_id;
758 p6_a33 := ddx_lease_opp_rec.sales_rep_id;
759 p6_a34 := ddx_lease_opp_rec.sales_territory_id;
760 p6_a35 := ddx_lease_opp_rec.supplier_id;
761 p6_a36 := ddx_lease_opp_rec.delivery_date;
762 p6_a37 := ddx_lease_opp_rec.funding_date;
763 p6_a38 := ddx_lease_opp_rec.property_tax_applicable;
764 p6_a39 := ddx_lease_opp_rec.property_tax_billing_type;
765 p6_a40 := ddx_lease_opp_rec.upfront_tax_treatment;
766 p6_a41 := ddx_lease_opp_rec.install_site_id;
767 p6_a42 := ddx_lease_opp_rec.usage_category;
768 p6_a43 := ddx_lease_opp_rec.usage_industry_class;
769 p6_a44 := ddx_lease_opp_rec.usage_industry_code;
770 p6_a45 := ddx_lease_opp_rec.usage_amount;
771 p6_a46 := ddx_lease_opp_rec.usage_location_id;
772 p6_a47 := ddx_lease_opp_rec.originating_vendor_id;
773 p6_a48 := ddx_lease_opp_rec.legal_entity_id;
774 p6_a49 := ddx_lease_opp_rec.line_intended_use;
775 p6_a50 := ddx_lease_opp_rec.short_description;
776 p6_a51 := ddx_lease_opp_rec.description;
777 p6_a52 := ddx_lease_opp_rec.comments;
778
779
780
781
782 end;
783
784 procedure duplicate_lease_opp(p_api_version NUMBER
785 , p_init_msg_list VARCHAR2
786 , p_transaction_control VARCHAR2
787 , p_source_leaseopp_id NUMBER
788 , p4_a0 NUMBER
789 , p4_a1 NUMBER
790 , p4_a2 VARCHAR2
791 , p4_a3 VARCHAR2
792 , p4_a4 VARCHAR2
793 , p4_a5 VARCHAR2
794 , p4_a6 VARCHAR2
795 , p4_a7 VARCHAR2
796 , p4_a8 VARCHAR2
797 , p4_a9 VARCHAR2
798 , p4_a10 VARCHAR2
799 , p4_a11 VARCHAR2
800 , p4_a12 VARCHAR2
801 , p4_a13 VARCHAR2
802 , p4_a14 VARCHAR2
803 , p4_a15 VARCHAR2
804 , p4_a16 VARCHAR2
805 , p4_a17 VARCHAR2
806 , p4_a18 VARCHAR2
807 , p4_a19 VARCHAR2
808 , p4_a20 DATE
809 , p4_a21 DATE
810 , p4_a22 NUMBER
811 , p4_a23 NUMBER
812 , p4_a24 NUMBER
813 , p4_a25 NUMBER
814 , p4_a26 NUMBER
815 , p4_a27 VARCHAR2
816 , p4_a28 VARCHAR2
817 , p4_a29 NUMBER
818 , p4_a30 DATE
819 , p4_a31 NUMBER
820 , p4_a32 NUMBER
821 , p4_a33 NUMBER
822 , p4_a34 NUMBER
823 , p4_a35 NUMBER
824 , p4_a36 DATE
825 , p4_a37 DATE
826 , p4_a38 VARCHAR2
827 , p4_a39 VARCHAR2
828 , p4_a40 VARCHAR2
829 , p4_a41 NUMBER
830 , p4_a42 VARCHAR2
831 , p4_a43 VARCHAR2
832 , p4_a44 VARCHAR2
833 , p4_a45 NUMBER
834 , p4_a46 NUMBER
835 , p4_a47 NUMBER
836 , p4_a48 NUMBER
837 , p4_a49 VARCHAR2
838 , p4_a50 VARCHAR2
839 , p4_a51 VARCHAR2
840 , p4_a52 VARCHAR2
841 , p5_a0 out nocopy NUMBER
842 , p5_a1 out nocopy NUMBER
843 , p5_a2 out nocopy VARCHAR2
844 , p5_a3 out nocopy VARCHAR2
845 , p5_a4 out nocopy VARCHAR2
846 , p5_a5 out nocopy VARCHAR2
847 , p5_a6 out nocopy VARCHAR2
848 , p5_a7 out nocopy VARCHAR2
849 , p5_a8 out nocopy VARCHAR2
850 , p5_a9 out nocopy VARCHAR2
851 , p5_a10 out nocopy VARCHAR2
852 , p5_a11 out nocopy VARCHAR2
853 , p5_a12 out nocopy VARCHAR2
854 , p5_a13 out nocopy VARCHAR2
855 , p5_a14 out nocopy VARCHAR2
856 , p5_a15 out nocopy VARCHAR2
857 , p5_a16 out nocopy VARCHAR2
858 , p5_a17 out nocopy VARCHAR2
859 , p5_a18 out nocopy VARCHAR2
860 , p5_a19 out nocopy VARCHAR2
861 , p5_a20 out nocopy DATE
862 , p5_a21 out nocopy DATE
863 , p5_a22 out nocopy NUMBER
864 , p5_a23 out nocopy NUMBER
865 , p5_a24 out nocopy NUMBER
866 , p5_a25 out nocopy NUMBER
867 , p5_a26 out nocopy NUMBER
868 , p5_a27 out nocopy VARCHAR2
869 , p5_a28 out nocopy VARCHAR2
870 , p5_a29 out nocopy NUMBER
871 , p5_a30 out nocopy DATE
872 , p5_a31 out nocopy NUMBER
873 , p5_a32 out nocopy NUMBER
874 , p5_a33 out nocopy NUMBER
875 , p5_a34 out nocopy NUMBER
876 , p5_a35 out nocopy NUMBER
877 , p5_a36 out nocopy DATE
878 , p5_a37 out nocopy DATE
879 , p5_a38 out nocopy VARCHAR2
880 , p5_a39 out nocopy VARCHAR2
881 , p5_a40 out nocopy VARCHAR2
882 , p5_a41 out nocopy NUMBER
883 , p5_a42 out nocopy VARCHAR2
884 , p5_a43 out nocopy VARCHAR2
885 , p5_a44 out nocopy VARCHAR2
886 , p5_a45 out nocopy NUMBER
887 , p5_a46 out nocopy NUMBER
888 , p5_a47 out nocopy NUMBER
889 , p5_a48 out nocopy NUMBER
890 , p5_a49 out nocopy VARCHAR2
891 , p5_a50 out nocopy VARCHAR2
892 , p5_a51 out nocopy VARCHAR2
893 , p5_a52 out nocopy VARCHAR2
894 , x_return_status out nocopy VARCHAR2
895 , x_msg_count out nocopy NUMBER
896 , x_msg_data out nocopy VARCHAR2
897 )
898
899 as
900 ddp_lease_opp_rec okl_lease_opportunity_pvt.lease_opp_rec_type;
901 ddx_lease_opp_rec okl_lease_opportunity_pvt.lease_opp_rec_type;
902 ddindx binary_integer; indx binary_integer;
903 begin
904
905 -- copy data to the local IN or IN-OUT args, if any
906
907
908
909
910 ddp_lease_opp_rec.id := p4_a0;
911 ddp_lease_opp_rec.object_version_number := p4_a1;
912 ddp_lease_opp_rec.attribute_category := p4_a2;
913 ddp_lease_opp_rec.attribute1 := p4_a3;
914 ddp_lease_opp_rec.attribute2 := p4_a4;
915 ddp_lease_opp_rec.attribute3 := p4_a5;
916 ddp_lease_opp_rec.attribute4 := p4_a6;
917 ddp_lease_opp_rec.attribute5 := p4_a7;
918 ddp_lease_opp_rec.attribute6 := p4_a8;
919 ddp_lease_opp_rec.attribute7 := p4_a9;
920 ddp_lease_opp_rec.attribute8 := p4_a10;
921 ddp_lease_opp_rec.attribute9 := p4_a11;
922 ddp_lease_opp_rec.attribute10 := p4_a12;
923 ddp_lease_opp_rec.attribute11 := p4_a13;
924 ddp_lease_opp_rec.attribute12 := p4_a14;
925 ddp_lease_opp_rec.attribute13 := p4_a15;
926 ddp_lease_opp_rec.attribute14 := p4_a16;
927 ddp_lease_opp_rec.attribute15 := p4_a17;
928 ddp_lease_opp_rec.reference_number := p4_a18;
929 ddp_lease_opp_rec.status := p4_a19;
930 ddp_lease_opp_rec.valid_from := p4_a20;
931 ddp_lease_opp_rec.expected_start_date := p4_a21;
932 ddp_lease_opp_rec.org_id := p4_a22;
933 ddp_lease_opp_rec.inv_org_id := p4_a23;
934 ddp_lease_opp_rec.prospect_id := p4_a24;
935 ddp_lease_opp_rec.prospect_address_id := p4_a25;
936 ddp_lease_opp_rec.cust_acct_id := p4_a26;
937 ddp_lease_opp_rec.currency_code := p4_a27;
938 ddp_lease_opp_rec.currency_conversion_type := p4_a28;
939 ddp_lease_opp_rec.currency_conversion_rate := p4_a29;
940 ddp_lease_opp_rec.currency_conversion_date := p4_a30;
941 ddp_lease_opp_rec.program_agreement_id := p4_a31;
942 ddp_lease_opp_rec.master_lease_id := p4_a32;
943 ddp_lease_opp_rec.sales_rep_id := p4_a33;
944 ddp_lease_opp_rec.sales_territory_id := p4_a34;
945 ddp_lease_opp_rec.supplier_id := p4_a35;
946 ddp_lease_opp_rec.delivery_date := p4_a36;
947 ddp_lease_opp_rec.funding_date := p4_a37;
948 ddp_lease_opp_rec.property_tax_applicable := p4_a38;
949 ddp_lease_opp_rec.property_tax_billing_type := p4_a39;
950 ddp_lease_opp_rec.upfront_tax_treatment := p4_a40;
951 ddp_lease_opp_rec.install_site_id := p4_a41;
952 ddp_lease_opp_rec.usage_category := p4_a42;
953 ddp_lease_opp_rec.usage_industry_class := p4_a43;
954 ddp_lease_opp_rec.usage_industry_code := p4_a44;
955 ddp_lease_opp_rec.usage_amount := p4_a45;
956 ddp_lease_opp_rec.usage_location_id := p4_a46;
957 ddp_lease_opp_rec.originating_vendor_id := p4_a47;
958 ddp_lease_opp_rec.legal_entity_id := p4_a48;
959 ddp_lease_opp_rec.line_intended_use := p4_a49;
960 ddp_lease_opp_rec.short_description := p4_a50;
961 ddp_lease_opp_rec.description := p4_a51;
962 ddp_lease_opp_rec.comments := p4_a52;
963
964
965
966
967
968 -- here's the delegated call to the old PL/SQL routine
969 okl_lease_opportunity_pvt.duplicate_lease_opp(p_api_version,
970 p_init_msg_list,
971 p_transaction_control,
972 p_source_leaseopp_id,
973 ddp_lease_opp_rec,
974 ddx_lease_opp_rec,
975 x_return_status,
976 x_msg_count,
977 x_msg_data);
978
979 -- copy data back from the local variables to OUT or IN-OUT args, if any
980
981
982
983
984
985 p5_a0 := ddx_lease_opp_rec.id;
986 p5_a1 := ddx_lease_opp_rec.object_version_number;
987 p5_a2 := ddx_lease_opp_rec.attribute_category;
988 p5_a3 := ddx_lease_opp_rec.attribute1;
989 p5_a4 := ddx_lease_opp_rec.attribute2;
990 p5_a5 := ddx_lease_opp_rec.attribute3;
991 p5_a6 := ddx_lease_opp_rec.attribute4;
992 p5_a7 := ddx_lease_opp_rec.attribute5;
993 p5_a8 := ddx_lease_opp_rec.attribute6;
994 p5_a9 := ddx_lease_opp_rec.attribute7;
995 p5_a10 := ddx_lease_opp_rec.attribute8;
996 p5_a11 := ddx_lease_opp_rec.attribute9;
997 p5_a12 := ddx_lease_opp_rec.attribute10;
998 p5_a13 := ddx_lease_opp_rec.attribute11;
999 p5_a14 := ddx_lease_opp_rec.attribute12;
1000 p5_a15 := ddx_lease_opp_rec.attribute13;
1001 p5_a16 := ddx_lease_opp_rec.attribute14;
1002 p5_a17 := ddx_lease_opp_rec.attribute15;
1003 p5_a18 := ddx_lease_opp_rec.reference_number;
1004 p5_a19 := ddx_lease_opp_rec.status;
1005 p5_a20 := ddx_lease_opp_rec.valid_from;
1006 p5_a21 := ddx_lease_opp_rec.expected_start_date;
1007 p5_a22 := ddx_lease_opp_rec.org_id;
1008 p5_a23 := ddx_lease_opp_rec.inv_org_id;
1009 p5_a24 := ddx_lease_opp_rec.prospect_id;
1010 p5_a25 := ddx_lease_opp_rec.prospect_address_id;
1011 p5_a26 := ddx_lease_opp_rec.cust_acct_id;
1012 p5_a27 := ddx_lease_opp_rec.currency_code;
1013 p5_a28 := ddx_lease_opp_rec.currency_conversion_type;
1014 p5_a29 := ddx_lease_opp_rec.currency_conversion_rate;
1015 p5_a30 := ddx_lease_opp_rec.currency_conversion_date;
1016 p5_a31 := ddx_lease_opp_rec.program_agreement_id;
1017 p5_a32 := ddx_lease_opp_rec.master_lease_id;
1018 p5_a33 := ddx_lease_opp_rec.sales_rep_id;
1019 p5_a34 := ddx_lease_opp_rec.sales_territory_id;
1020 p5_a35 := ddx_lease_opp_rec.supplier_id;
1021 p5_a36 := ddx_lease_opp_rec.delivery_date;
1022 p5_a37 := ddx_lease_opp_rec.funding_date;
1023 p5_a38 := ddx_lease_opp_rec.property_tax_applicable;
1024 p5_a39 := ddx_lease_opp_rec.property_tax_billing_type;
1025 p5_a40 := ddx_lease_opp_rec.upfront_tax_treatment;
1026 p5_a41 := ddx_lease_opp_rec.install_site_id;
1027 p5_a42 := ddx_lease_opp_rec.usage_category;
1028 p5_a43 := ddx_lease_opp_rec.usage_industry_class;
1029 p5_a44 := ddx_lease_opp_rec.usage_industry_code;
1030 p5_a45 := ddx_lease_opp_rec.usage_amount;
1031 p5_a46 := ddx_lease_opp_rec.usage_location_id;
1032 p5_a47 := ddx_lease_opp_rec.originating_vendor_id;
1033 p5_a48 := ddx_lease_opp_rec.legal_entity_id;
1034 p5_a49 := ddx_lease_opp_rec.line_intended_use;
1035 p5_a50 := ddx_lease_opp_rec.short_description;
1036 p5_a51 := ddx_lease_opp_rec.description;
1037 p5_a52 := ddx_lease_opp_rec.comments;
1038
1039
1040
1041 end;
1042
1043 end okl_lease_opportunity_pvt_w;