[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_CREATE_QUOTE_PVT_W
Source
1 package body okl_am_create_quote_pvt_w as
2 /* $Header: OKLECQTB.pls 120.4 2007/11/02 21:03:44 rmunjulu ship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure rosetta_table_copy_in_p17(t out nocopy okl_am_create_quote_pvt.assn_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_VARCHAR2_TABLE_200
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_NUMBER_TABLE
26 , a4 JTF_VARCHAR2_TABLE_200
27 ) as
28 ddindx binary_integer; indx binary_integer;
29 begin
30 if a0 is not null and a0.count > 0 then
31 if a0.count > 0 then
32 indx := a0.first;
33 ddindx := 1;
34 while true loop
35 t(ddindx).p_asset_id := rosetta_g_miss_num_map(a0(indx));
36 t(ddindx).p_asset_number := a1(indx);
37 t(ddindx).p_asset_qty := rosetta_g_miss_num_map(a2(indx));
38 t(ddindx).p_quote_qty := rosetta_g_miss_num_map(a3(indx));
39 t(ddindx).p_split_asset_number := a4(indx);
40 ddindx := ddindx+1;
41 if a0.last =indx
42 then exit;
43 end if;
44 indx := a0.next(indx);
45 end loop;
46 end if;
47 end if;
48 end rosetta_table_copy_in_p17;
49 procedure rosetta_table_copy_out_p17(t okl_am_create_quote_pvt.assn_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
50 , a1 out nocopy JTF_VARCHAR2_TABLE_200
51 , a2 out nocopy JTF_NUMBER_TABLE
52 , a3 out nocopy JTF_NUMBER_TABLE
53 , a4 out nocopy JTF_VARCHAR2_TABLE_200
54 ) as
55 ddindx binary_integer; indx binary_integer;
56 begin
57 if t is null or t.count = 0 then
58 a0 := JTF_NUMBER_TABLE();
59 a1 := JTF_VARCHAR2_TABLE_200();
60 a2 := JTF_NUMBER_TABLE();
61 a3 := JTF_NUMBER_TABLE();
62 a4 := JTF_VARCHAR2_TABLE_200();
63 else
64 a0 := JTF_NUMBER_TABLE();
65 a1 := JTF_VARCHAR2_TABLE_200();
66 a2 := JTF_NUMBER_TABLE();
67 a3 := JTF_NUMBER_TABLE();
68 a4 := JTF_VARCHAR2_TABLE_200();
69 if t.count > 0 then
70 a0.extend(t.count);
71 a1.extend(t.count);
72 a2.extend(t.count);
73 a3.extend(t.count);
74 a4.extend(t.count);
75 ddindx := t.first;
76 indx := 1;
77 while true loop
78 a0(indx) := rosetta_g_miss_num_map(t(ddindx).p_asset_id);
79 a1(indx) := t(ddindx).p_asset_number;
80 a2(indx) := rosetta_g_miss_num_map(t(ddindx).p_asset_qty);
81 a3(indx) := rosetta_g_miss_num_map(t(ddindx).p_quote_qty);
82 a4(indx) := t(ddindx).p_split_asset_number;
83 indx := indx+1;
84 if t.last =ddindx
85 then exit;
86 end if;
87 ddindx := t.next(ddindx);
88 end loop;
89 end if;
90 end if;
91 end rosetta_table_copy_out_p17;
92
93 procedure rosetta_table_copy_in_p19(t out nocopy okl_am_create_quote_pvt.achr_tbl_type, a0 JTF_VARCHAR2_TABLE_200
94 , a1 JTF_VARCHAR2_TABLE_100
95 , a2 JTF_NUMBER_TABLE
96 , a3 JTF_VARCHAR2_TABLE_200
97 , a4 JTF_DATE_TABLE
98 , a5 JTF_DATE_TABLE
99 , a6 JTF_DATE_TABLE
100 , a7 JTF_DATE_TABLE
101 , a8 JTF_VARCHAR2_TABLE_100
102 , a9 JTF_VARCHAR2_TABLE_100
103 , a10 JTF_NUMBER_TABLE
104 , a11 JTF_VARCHAR2_TABLE_400
105 ) as
106 ddindx binary_integer; indx binary_integer;
107 begin
108 if a0 is not null and a0.count > 0 then
109 if a0.count > 0 then
110 indx := a0.first;
111 ddindx := 1;
112 while true loop
113 t(ddindx).asset_number := a0(indx);
114 t(ddindx).serial_number := a1(indx);
115 t(ddindx).chr_id := rosetta_g_miss_num_map(a2(indx));
116 t(ddindx).contract_number := a3(indx);
117 t(ddindx).from_start_date := rosetta_g_miss_date_in_map(a4(indx));
118 t(ddindx).to_start_date := rosetta_g_miss_date_in_map(a5(indx));
119 t(ddindx).from_end_date := rosetta_g_miss_date_in_map(a6(indx));
120 t(ddindx).to_end_date := rosetta_g_miss_date_in_map(a7(indx));
121 t(ddindx).sts_code := a8(indx);
122 t(ddindx).sts_meaning := a9(indx);
123 t(ddindx).org_id := rosetta_g_miss_num_map(a10(indx));
124 t(ddindx).party_name := a11(indx);
125 ddindx := ddindx+1;
126 if a0.last =indx
127 then exit;
128 end if;
129 indx := a0.next(indx);
130 end loop;
131 end if;
132 end if;
133 end rosetta_table_copy_in_p19;
134 procedure rosetta_table_copy_out_p19(t okl_am_create_quote_pvt.achr_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_200
135 , a1 out nocopy JTF_VARCHAR2_TABLE_100
136 , a2 out nocopy JTF_NUMBER_TABLE
137 , a3 out nocopy JTF_VARCHAR2_TABLE_200
138 , a4 out nocopy JTF_DATE_TABLE
139 , a5 out nocopy JTF_DATE_TABLE
140 , a6 out nocopy JTF_DATE_TABLE
141 , a7 out nocopy JTF_DATE_TABLE
142 , a8 out nocopy JTF_VARCHAR2_TABLE_100
143 , a9 out nocopy JTF_VARCHAR2_TABLE_100
144 , a10 out nocopy JTF_NUMBER_TABLE
145 , a11 out nocopy JTF_VARCHAR2_TABLE_400
146 ) as
147 ddindx binary_integer; indx binary_integer;
148 begin
149 if t is null or t.count = 0 then
150 a0 := JTF_VARCHAR2_TABLE_200();
151 a1 := JTF_VARCHAR2_TABLE_100();
152 a2 := JTF_NUMBER_TABLE();
153 a3 := JTF_VARCHAR2_TABLE_200();
154 a4 := JTF_DATE_TABLE();
155 a5 := JTF_DATE_TABLE();
156 a6 := JTF_DATE_TABLE();
157 a7 := JTF_DATE_TABLE();
158 a8 := JTF_VARCHAR2_TABLE_100();
159 a9 := JTF_VARCHAR2_TABLE_100();
160 a10 := JTF_NUMBER_TABLE();
161 a11 := JTF_VARCHAR2_TABLE_400();
162 else
163 a0 := JTF_VARCHAR2_TABLE_200();
164 a1 := JTF_VARCHAR2_TABLE_100();
165 a2 := JTF_NUMBER_TABLE();
166 a3 := JTF_VARCHAR2_TABLE_200();
167 a4 := JTF_DATE_TABLE();
168 a5 := JTF_DATE_TABLE();
169 a6 := JTF_DATE_TABLE();
170 a7 := JTF_DATE_TABLE();
171 a8 := JTF_VARCHAR2_TABLE_100();
172 a9 := JTF_VARCHAR2_TABLE_100();
173 a10 := JTF_NUMBER_TABLE();
174 a11 := JTF_VARCHAR2_TABLE_400();
175 if t.count > 0 then
176 a0.extend(t.count);
177 a1.extend(t.count);
178 a2.extend(t.count);
179 a3.extend(t.count);
180 a4.extend(t.count);
181 a5.extend(t.count);
182 a6.extend(t.count);
183 a7.extend(t.count);
184 a8.extend(t.count);
185 a9.extend(t.count);
186 a10.extend(t.count);
187 a11.extend(t.count);
188 ddindx := t.first;
189 indx := 1;
190 while true loop
191 a0(indx) := t(ddindx).asset_number;
192 a1(indx) := t(ddindx).serial_number;
193 a2(indx) := rosetta_g_miss_num_map(t(ddindx).chr_id);
194 a3(indx) := t(ddindx).contract_number;
195 a4(indx) := t(ddindx).from_start_date;
196 a5(indx) := t(ddindx).to_start_date;
197 a6(indx) := t(ddindx).from_end_date;
198 a7(indx) := t(ddindx).to_end_date;
199 a8(indx) := t(ddindx).sts_code;
200 a9(indx) := t(ddindx).sts_meaning;
201 a10(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
202 a11(indx) := t(ddindx).party_name;
203 indx := indx+1;
204 if t.last =ddindx
205 then exit;
206 end if;
207 ddindx := t.next(ddindx);
208 end loop;
209 end if;
210 end if;
211 end rosetta_table_copy_out_p19;
212
213 procedure advance_contract_search(p_api_version NUMBER
214 , p_init_msg_list VARCHAR2
215 , x_return_status out nocopy VARCHAR2
216 , x_msg_count out nocopy NUMBER
217 , x_msg_data out nocopy VARCHAR2
218 , p6_a0 out nocopy JTF_VARCHAR2_TABLE_200
219 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_100
220 , p6_a2 out nocopy JTF_NUMBER_TABLE
221 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_200
222 , p6_a4 out nocopy JTF_DATE_TABLE
223 , p6_a5 out nocopy JTF_DATE_TABLE
224 , p6_a6 out nocopy JTF_DATE_TABLE
225 , p6_a7 out nocopy JTF_DATE_TABLE
226 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
227 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
228 , p6_a10 out nocopy JTF_NUMBER_TABLE
229 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_400
230 , p5_a0 VARCHAR2 := fnd_api.g_miss_char
231 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
232 , p5_a2 NUMBER := 0-1962.0724
233 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
234 , p5_a4 DATE := fnd_api.g_miss_date
235 , p5_a5 DATE := fnd_api.g_miss_date
236 , p5_a6 DATE := fnd_api.g_miss_date
237 , p5_a7 DATE := fnd_api.g_miss_date
238 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
239 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
240 , p5_a10 NUMBER := 0-1962.0724
241 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
242 )
243
244 as
245 ddp_achr_rec okl_am_create_quote_pvt.achr_rec_type;
246 ddx_achr_tbl okl_am_create_quote_pvt.achr_tbl_type;
247 ddindx binary_integer; indx binary_integer;
248 begin
249
250 -- copy data to the local IN or IN-OUT args, if any
251
252
253
254
255
256 ddp_achr_rec.asset_number := p5_a0;
257 ddp_achr_rec.serial_number := p5_a1;
258 ddp_achr_rec.chr_id := rosetta_g_miss_num_map(p5_a2);
259 ddp_achr_rec.contract_number := p5_a3;
260 ddp_achr_rec.from_start_date := rosetta_g_miss_date_in_map(p5_a4);
261 ddp_achr_rec.to_start_date := rosetta_g_miss_date_in_map(p5_a5);
262 ddp_achr_rec.from_end_date := rosetta_g_miss_date_in_map(p5_a6);
263 ddp_achr_rec.to_end_date := rosetta_g_miss_date_in_map(p5_a7);
264 ddp_achr_rec.sts_code := p5_a8;
265 ddp_achr_rec.sts_meaning := p5_a9;
266 ddp_achr_rec.org_id := rosetta_g_miss_num_map(p5_a10);
267 ddp_achr_rec.party_name := p5_a11;
268
269
270 -- here's the delegated call to the old PL/SQL routine
271 okl_am_create_quote_pvt.advance_contract_search(p_api_version,
272 p_init_msg_list,
273 x_return_status,
274 x_msg_count,
275 x_msg_data,
276 ddp_achr_rec,
277 ddx_achr_tbl);
278
279 -- copy data back from the local variables to OUT or IN-OUT args, if any
280
281
282
283
284
285
286 okl_am_create_quote_pvt_w.rosetta_table_copy_out_p19(ddx_achr_tbl, p6_a0
287 , p6_a1
288 , p6_a2
289 , p6_a3
290 , p6_a4
291 , p6_a5
292 , p6_a6
293 , p6_a7
294 , p6_a8
295 , p6_a9
296 , p6_a10
297 , p6_a11
298 );
299 end;
300
301 procedure quote_effectivity(p_rule_chr_id NUMBER
302 , x_quote_eff_days out nocopy NUMBER
303 , x_quote_eff_max_days out nocopy NUMBER
304 , x_return_status out nocopy VARCHAR2
305 , p0_a0 NUMBER := 0-1962.0724
306 , p0_a1 NUMBER := 0-1962.0724
307 , p0_a2 VARCHAR2 := fnd_api.g_miss_char
308 , p0_a3 VARCHAR2 := fnd_api.g_miss_char
309 , p0_a4 VARCHAR2 := fnd_api.g_miss_char
310 , p0_a5 VARCHAR2 := fnd_api.g_miss_char
311 , p0_a6 VARCHAR2 := fnd_api.g_miss_char
312 , p0_a7 VARCHAR2 := fnd_api.g_miss_char
313 , p0_a8 VARCHAR2 := fnd_api.g_miss_char
314 , p0_a9 NUMBER := 0-1962.0724
315 , p0_a10 NUMBER := 0-1962.0724
316 , p0_a11 NUMBER := 0-1962.0724
317 , p0_a12 NUMBER := 0-1962.0724
318 , p0_a13 VARCHAR2 := fnd_api.g_miss_char
319 , p0_a14 VARCHAR2 := fnd_api.g_miss_char
320 , p0_a15 VARCHAR2 := fnd_api.g_miss_char
321 , p0_a16 DATE := fnd_api.g_miss_date
322 , p0_a17 DATE := fnd_api.g_miss_date
323 , p0_a18 DATE := fnd_api.g_miss_date
324 , p0_a19 DATE := fnd_api.g_miss_date
325 , p0_a20 VARCHAR2 := fnd_api.g_miss_char
326 , p0_a21 VARCHAR2 := fnd_api.g_miss_char
327 , p0_a22 NUMBER := 0-1962.0724
328 , p0_a23 NUMBER := 0-1962.0724
329 , p0_a24 NUMBER := 0-1962.0724
330 , p0_a25 NUMBER := 0-1962.0724
331 , p0_a26 DATE := fnd_api.g_miss_date
332 , p0_a27 DATE := fnd_api.g_miss_date
333 , p0_a28 NUMBER := 0-1962.0724
334 , p0_a29 NUMBER := 0-1962.0724
335 , p0_a30 VARCHAR2 := fnd_api.g_miss_char
336 , p0_a31 DATE := fnd_api.g_miss_date
337 , p0_a32 VARCHAR2 := fnd_api.g_miss_char
338 , p0_a33 NUMBER := 0-1962.0724
339 , p0_a34 DATE := fnd_api.g_miss_date
340 , p0_a35 NUMBER := 0-1962.0724
341 , p0_a36 NUMBER := 0-1962.0724
342 , p0_a37 VARCHAR2 := fnd_api.g_miss_char
343 , p0_a38 VARCHAR2 := fnd_api.g_miss_char
344 , p0_a39 VARCHAR2 := fnd_api.g_miss_char
345 , p0_a40 DATE := fnd_api.g_miss_date
346 , p0_a41 VARCHAR2 := fnd_api.g_miss_char
347 , p0_a42 VARCHAR2 := fnd_api.g_miss_char
348 , p0_a43 VARCHAR2 := fnd_api.g_miss_char
349 , p0_a44 VARCHAR2 := fnd_api.g_miss_char
350 , p0_a45 VARCHAR2 := fnd_api.g_miss_char
351 , p0_a46 VARCHAR2 := fnd_api.g_miss_char
352 , p0_a47 VARCHAR2 := fnd_api.g_miss_char
353 , p0_a48 VARCHAR2 := fnd_api.g_miss_char
354 , p0_a49 VARCHAR2 := fnd_api.g_miss_char
355 , p0_a50 VARCHAR2 := fnd_api.g_miss_char
356 , p0_a51 VARCHAR2 := fnd_api.g_miss_char
357 , p0_a52 VARCHAR2 := fnd_api.g_miss_char
358 , p0_a53 VARCHAR2 := fnd_api.g_miss_char
359 , p0_a54 VARCHAR2 := fnd_api.g_miss_char
360 , p0_a55 VARCHAR2 := fnd_api.g_miss_char
361 , p0_a56 VARCHAR2 := fnd_api.g_miss_char
362 , p0_a57 DATE := fnd_api.g_miss_date
363 , p0_a58 NUMBER := 0-1962.0724
364 , p0_a59 NUMBER := 0-1962.0724
365 , p0_a60 NUMBER := 0-1962.0724
366 , p0_a61 NUMBER := 0-1962.0724
367 , p0_a62 NUMBER := 0-1962.0724
368 , p0_a63 DATE := fnd_api.g_miss_date
369 , p0_a64 NUMBER := 0-1962.0724
370 , p0_a65 DATE := fnd_api.g_miss_date
371 , p0_a66 NUMBER := 0-1962.0724
372 , p0_a67 DATE := fnd_api.g_miss_date
373 , p0_a68 NUMBER := 0-1962.0724
374 , p0_a69 NUMBER := 0-1962.0724
375 , p0_a70 VARCHAR2 := fnd_api.g_miss_char
376 , p0_a71 NUMBER := 0-1962.0724
377 , p0_a72 NUMBER := 0-1962.0724
378 , p0_a73 NUMBER := 0-1962.0724
379 , p0_a74 NUMBER := 0-1962.0724
380 , p0_a75 NUMBER := 0-1962.0724
381 , p0_a76 VARCHAR2 := fnd_api.g_miss_char
382 , p0_a77 VARCHAR2 := fnd_api.g_miss_char
383 , p0_a78 VARCHAR2 := fnd_api.g_miss_char
384 , p0_a79 NUMBER := 0-1962.0724
385 , p0_a80 DATE := fnd_api.g_miss_date
386 , p0_a81 NUMBER := 0-1962.0724
387 , p0_a82 VARCHAR2 := fnd_api.g_miss_char
388 )
389
390 as
391 ddp_quot_rec okl_am_create_quote_pvt.quot_rec_type;
392 ddindx binary_integer; indx binary_integer;
393 begin
394
395 -- copy data to the local IN or IN-OUT args, if any
396 ddp_quot_rec.id := rosetta_g_miss_num_map(p0_a0);
397 ddp_quot_rec.object_version_number := rosetta_g_miss_num_map(p0_a1);
398 ddp_quot_rec.sfwt_flag := p0_a2;
399 ddp_quot_rec.qrs_code := p0_a3;
400 ddp_quot_rec.qst_code := p0_a4;
401 ddp_quot_rec.qtp_code := p0_a5;
402 ddp_quot_rec.trn_code := p0_a6;
403 ddp_quot_rec.pop_code_end := p0_a7;
404 ddp_quot_rec.pop_code_early := p0_a8;
405 ddp_quot_rec.consolidated_qte_id := rosetta_g_miss_num_map(p0_a9);
406 ddp_quot_rec.khr_id := rosetta_g_miss_num_map(p0_a10);
407 ddp_quot_rec.art_id := rosetta_g_miss_num_map(p0_a11);
408 ddp_quot_rec.pdt_id := rosetta_g_miss_num_map(p0_a12);
409 ddp_quot_rec.early_termination_yn := p0_a13;
410 ddp_quot_rec.partial_yn := p0_a14;
411 ddp_quot_rec.preproceeds_yn := p0_a15;
412 ddp_quot_rec.date_requested := rosetta_g_miss_date_in_map(p0_a16);
413 ddp_quot_rec.date_proposal := rosetta_g_miss_date_in_map(p0_a17);
414 ddp_quot_rec.date_effective_to := rosetta_g_miss_date_in_map(p0_a18);
415 ddp_quot_rec.date_accepted := rosetta_g_miss_date_in_map(p0_a19);
416 ddp_quot_rec.summary_format_yn := p0_a20;
417 ddp_quot_rec.consolidated_yn := p0_a21;
418 ddp_quot_rec.principal_paydown_amount := rosetta_g_miss_num_map(p0_a22);
419 ddp_quot_rec.residual_amount := rosetta_g_miss_num_map(p0_a23);
420 ddp_quot_rec.yield := rosetta_g_miss_num_map(p0_a24);
421 ddp_quot_rec.rent_amount := rosetta_g_miss_num_map(p0_a25);
422 ddp_quot_rec.date_restructure_end := rosetta_g_miss_date_in_map(p0_a26);
423 ddp_quot_rec.date_restructure_start := rosetta_g_miss_date_in_map(p0_a27);
424 ddp_quot_rec.term := rosetta_g_miss_num_map(p0_a28);
425 ddp_quot_rec.purchase_percent := rosetta_g_miss_num_map(p0_a29);
426 ddp_quot_rec.comments := p0_a30;
427 ddp_quot_rec.date_due := rosetta_g_miss_date_in_map(p0_a31);
428 ddp_quot_rec.payment_frequency := p0_a32;
429 ddp_quot_rec.remaining_payments := rosetta_g_miss_num_map(p0_a33);
430 ddp_quot_rec.date_effective_from := rosetta_g_miss_date_in_map(p0_a34);
431 ddp_quot_rec.quote_number := rosetta_g_miss_num_map(p0_a35);
432 ddp_quot_rec.requested_by := rosetta_g_miss_num_map(p0_a36);
433 ddp_quot_rec.approved_yn := p0_a37;
434 ddp_quot_rec.accepted_yn := p0_a38;
435 ddp_quot_rec.payment_received_yn := p0_a39;
436 ddp_quot_rec.date_payment_received := rosetta_g_miss_date_in_map(p0_a40);
437 ddp_quot_rec.attribute_category := p0_a41;
438 ddp_quot_rec.attribute1 := p0_a42;
439 ddp_quot_rec.attribute2 := p0_a43;
440 ddp_quot_rec.attribute3 := p0_a44;
441 ddp_quot_rec.attribute4 := p0_a45;
442 ddp_quot_rec.attribute5 := p0_a46;
443 ddp_quot_rec.attribute6 := p0_a47;
444 ddp_quot_rec.attribute7 := p0_a48;
445 ddp_quot_rec.attribute8 := p0_a49;
446 ddp_quot_rec.attribute9 := p0_a50;
447 ddp_quot_rec.attribute10 := p0_a51;
448 ddp_quot_rec.attribute11 := p0_a52;
449 ddp_quot_rec.attribute12 := p0_a53;
450 ddp_quot_rec.attribute13 := p0_a54;
451 ddp_quot_rec.attribute14 := p0_a55;
452 ddp_quot_rec.attribute15 := p0_a56;
453 ddp_quot_rec.date_approved := rosetta_g_miss_date_in_map(p0_a57);
454 ddp_quot_rec.approved_by := rosetta_g_miss_num_map(p0_a58);
455 ddp_quot_rec.org_id := rosetta_g_miss_num_map(p0_a59);
456 ddp_quot_rec.request_id := rosetta_g_miss_num_map(p0_a60);
457 ddp_quot_rec.program_application_id := rosetta_g_miss_num_map(p0_a61);
458 ddp_quot_rec.program_id := rosetta_g_miss_num_map(p0_a62);
459 ddp_quot_rec.program_update_date := rosetta_g_miss_date_in_map(p0_a63);
460 ddp_quot_rec.created_by := rosetta_g_miss_num_map(p0_a64);
461 ddp_quot_rec.creation_date := rosetta_g_miss_date_in_map(p0_a65);
462 ddp_quot_rec.last_updated_by := rosetta_g_miss_num_map(p0_a66);
463 ddp_quot_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a67);
464 ddp_quot_rec.last_update_login := rosetta_g_miss_num_map(p0_a68);
465 ddp_quot_rec.purchase_amount := rosetta_g_miss_num_map(p0_a69);
466 ddp_quot_rec.purchase_formula := p0_a70;
467 ddp_quot_rec.asset_value := rosetta_g_miss_num_map(p0_a71);
468 ddp_quot_rec.residual_value := rosetta_g_miss_num_map(p0_a72);
469 ddp_quot_rec.unbilled_receivables := rosetta_g_miss_num_map(p0_a73);
470 ddp_quot_rec.gain_loss := rosetta_g_miss_num_map(p0_a74);
471 ddp_quot_rec.perdiem_amount := rosetta_g_miss_num_map(p0_a75);
472 ddp_quot_rec.currency_code := p0_a76;
473 ddp_quot_rec.currency_conversion_code := p0_a77;
474 ddp_quot_rec.currency_conversion_type := p0_a78;
475 ddp_quot_rec.currency_conversion_rate := rosetta_g_miss_num_map(p0_a79);
476 ddp_quot_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p0_a80);
477 ddp_quot_rec.legal_entity_id := rosetta_g_miss_num_map(p0_a81);
478 ddp_quot_rec.repo_quote_indicator_yn := p0_a82;
479
480
481
482
483
484 -- here's the delegated call to the old PL/SQL routine
485 okl_am_create_quote_pvt.quote_effectivity(ddp_quot_rec,
486 p_rule_chr_id,
487 x_quote_eff_days,
488 x_quote_eff_max_days,
489 x_return_status);
490
491 -- copy data back from the local variables to OUT or IN-OUT args, if any
492
493
494
495
496 end;
497
498 procedure create_terminate_quote(p_api_version NUMBER
499 , p_init_msg_list VARCHAR2
500 , x_return_status out nocopy VARCHAR2
501 , x_msg_count out nocopy NUMBER
502 , x_msg_data out nocopy VARCHAR2
503 , p6_a0 JTF_NUMBER_TABLE
504 , p6_a1 JTF_VARCHAR2_TABLE_200
505 , p6_a2 JTF_NUMBER_TABLE
506 , p6_a3 JTF_NUMBER_TABLE
507 , p6_a4 JTF_VARCHAR2_TABLE_200
508 , p7_a0 JTF_NUMBER_TABLE
509 , p7_a1 JTF_NUMBER_TABLE
510 , p7_a2 JTF_NUMBER_TABLE
511 , p7_a3 JTF_NUMBER_TABLE
512 , p7_a4 JTF_DATE_TABLE
513 , p7_a5 JTF_VARCHAR2_TABLE_100
514 , p7_a6 JTF_NUMBER_TABLE
515 , p7_a7 JTF_NUMBER_TABLE
516 , p7_a8 JTF_VARCHAR2_TABLE_600
517 , p7_a9 JTF_VARCHAR2_TABLE_100
518 , p7_a10 JTF_VARCHAR2_TABLE_100
519 , p7_a11 JTF_VARCHAR2_TABLE_200
520 , p7_a12 JTF_VARCHAR2_TABLE_100
521 , p7_a13 JTF_VARCHAR2_TABLE_100
522 , p7_a14 JTF_VARCHAR2_TABLE_200
523 , p7_a15 JTF_NUMBER_TABLE
524 , p7_a16 JTF_DATE_TABLE
525 , p7_a17 JTF_NUMBER_TABLE
526 , p7_a18 JTF_DATE_TABLE
527 , p7_a19 JTF_NUMBER_TABLE
528 , p8_a0 out nocopy NUMBER
529 , p8_a1 out nocopy NUMBER
530 , p8_a2 out nocopy VARCHAR2
531 , p8_a3 out nocopy VARCHAR2
532 , p8_a4 out nocopy VARCHAR2
533 , p8_a5 out nocopy VARCHAR2
534 , p8_a6 out nocopy VARCHAR2
535 , p8_a7 out nocopy VARCHAR2
536 , p8_a8 out nocopy VARCHAR2
537 , p8_a9 out nocopy NUMBER
538 , p8_a10 out nocopy NUMBER
539 , p8_a11 out nocopy NUMBER
540 , p8_a12 out nocopy NUMBER
541 , p8_a13 out nocopy VARCHAR2
542 , p8_a14 out nocopy VARCHAR2
543 , p8_a15 out nocopy VARCHAR2
544 , p8_a16 out nocopy DATE
545 , p8_a17 out nocopy DATE
546 , p8_a18 out nocopy DATE
547 , p8_a19 out nocopy DATE
548 , p8_a20 out nocopy VARCHAR2
549 , p8_a21 out nocopy VARCHAR2
550 , p8_a22 out nocopy NUMBER
551 , p8_a23 out nocopy NUMBER
552 , p8_a24 out nocopy NUMBER
553 , p8_a25 out nocopy NUMBER
554 , p8_a26 out nocopy DATE
555 , p8_a27 out nocopy DATE
556 , p8_a28 out nocopy NUMBER
557 , p8_a29 out nocopy NUMBER
558 , p8_a30 out nocopy VARCHAR2
559 , p8_a31 out nocopy DATE
560 , p8_a32 out nocopy VARCHAR2
561 , p8_a33 out nocopy NUMBER
562 , p8_a34 out nocopy DATE
563 , p8_a35 out nocopy NUMBER
564 , p8_a36 out nocopy NUMBER
565 , p8_a37 out nocopy VARCHAR2
566 , p8_a38 out nocopy VARCHAR2
567 , p8_a39 out nocopy VARCHAR2
568 , p8_a40 out nocopy DATE
569 , p8_a41 out nocopy VARCHAR2
570 , p8_a42 out nocopy VARCHAR2
571 , p8_a43 out nocopy VARCHAR2
572 , p8_a44 out nocopy VARCHAR2
573 , p8_a45 out nocopy VARCHAR2
574 , p8_a46 out nocopy VARCHAR2
575 , p8_a47 out nocopy VARCHAR2
576 , p8_a48 out nocopy VARCHAR2
577 , p8_a49 out nocopy VARCHAR2
578 , p8_a50 out nocopy VARCHAR2
579 , p8_a51 out nocopy VARCHAR2
580 , p8_a52 out nocopy VARCHAR2
581 , p8_a53 out nocopy VARCHAR2
582 , p8_a54 out nocopy VARCHAR2
583 , p8_a55 out nocopy VARCHAR2
584 , p8_a56 out nocopy VARCHAR2
585 , p8_a57 out nocopy DATE
586 , p8_a58 out nocopy NUMBER
587 , p8_a59 out nocopy NUMBER
588 , p8_a60 out nocopy NUMBER
589 , p8_a61 out nocopy NUMBER
590 , p8_a62 out nocopy NUMBER
591 , p8_a63 out nocopy DATE
592 , p8_a64 out nocopy NUMBER
593 , p8_a65 out nocopy DATE
594 , p8_a66 out nocopy NUMBER
595 , p8_a67 out nocopy DATE
596 , p8_a68 out nocopy NUMBER
597 , p8_a69 out nocopy NUMBER
598 , p8_a70 out nocopy VARCHAR2
599 , p8_a71 out nocopy NUMBER
600 , p8_a72 out nocopy NUMBER
601 , p8_a73 out nocopy NUMBER
602 , p8_a74 out nocopy NUMBER
603 , p8_a75 out nocopy NUMBER
604 , p8_a76 out nocopy VARCHAR2
605 , p8_a77 out nocopy VARCHAR2
606 , p8_a78 out nocopy VARCHAR2
607 , p8_a79 out nocopy NUMBER
608 , p8_a80 out nocopy DATE
609 , p8_a81 out nocopy NUMBER
610 , p8_a82 out nocopy VARCHAR2
611 , p9_a0 out nocopy JTF_NUMBER_TABLE
612 , p9_a1 out nocopy JTF_NUMBER_TABLE
613 , p9_a2 out nocopy JTF_VARCHAR2_TABLE_100
614 , p9_a3 out nocopy JTF_VARCHAR2_TABLE_100
615 , p9_a4 out nocopy JTF_NUMBER_TABLE
616 , p9_a5 out nocopy JTF_NUMBER_TABLE
617 , p9_a6 out nocopy JTF_NUMBER_TABLE
618 , p9_a7 out nocopy JTF_NUMBER_TABLE
619 , p9_a8 out nocopy JTF_VARCHAR2_TABLE_2000
620 , p9_a9 out nocopy JTF_NUMBER_TABLE
621 , p9_a10 out nocopy JTF_VARCHAR2_TABLE_100
622 , p9_a11 out nocopy JTF_VARCHAR2_TABLE_100
623 , p9_a12 out nocopy JTF_VARCHAR2_TABLE_100
624 , p9_a13 out nocopy JTF_VARCHAR2_TABLE_100
625 , p9_a14 out nocopy JTF_VARCHAR2_TABLE_500
626 , p9_a15 out nocopy JTF_VARCHAR2_TABLE_500
627 , p9_a16 out nocopy JTF_VARCHAR2_TABLE_500
628 , p9_a17 out nocopy JTF_VARCHAR2_TABLE_500
629 , p9_a18 out nocopy JTF_VARCHAR2_TABLE_500
630 , p9_a19 out nocopy JTF_VARCHAR2_TABLE_500
631 , p9_a20 out nocopy JTF_VARCHAR2_TABLE_500
632 , p9_a21 out nocopy JTF_VARCHAR2_TABLE_500
633 , p9_a22 out nocopy JTF_VARCHAR2_TABLE_500
634 , p9_a23 out nocopy JTF_VARCHAR2_TABLE_500
635 , p9_a24 out nocopy JTF_VARCHAR2_TABLE_500
636 , p9_a25 out nocopy JTF_VARCHAR2_TABLE_500
637 , p9_a26 out nocopy JTF_VARCHAR2_TABLE_500
638 , p9_a27 out nocopy JTF_VARCHAR2_TABLE_500
639 , p9_a28 out nocopy JTF_VARCHAR2_TABLE_500
640 , p9_a29 out nocopy JTF_NUMBER_TABLE
641 , p9_a30 out nocopy JTF_NUMBER_TABLE
642 , p9_a31 out nocopy JTF_NUMBER_TABLE
643 , p9_a32 out nocopy JTF_NUMBER_TABLE
644 , p9_a33 out nocopy JTF_DATE_TABLE
645 , p9_a34 out nocopy JTF_NUMBER_TABLE
646 , p9_a35 out nocopy JTF_DATE_TABLE
647 , p9_a36 out nocopy JTF_NUMBER_TABLE
648 , p9_a37 out nocopy JTF_DATE_TABLE
649 , p9_a38 out nocopy JTF_NUMBER_TABLE
650 , p9_a39 out nocopy JTF_DATE_TABLE
651 , p9_a40 out nocopy JTF_VARCHAR2_TABLE_100
652 , p9_a41 out nocopy JTF_NUMBER_TABLE
653 , p9_a42 out nocopy JTF_VARCHAR2_TABLE_100
654 , p9_a43 out nocopy JTF_VARCHAR2_TABLE_100
655 , p9_a44 out nocopy JTF_VARCHAR2_TABLE_200
656 , p9_a45 out nocopy JTF_NUMBER_TABLE
657 , p9_a46 out nocopy JTF_NUMBER_TABLE
658 , p9_a47 out nocopy JTF_NUMBER_TABLE
659 , p9_a48 out nocopy JTF_NUMBER_TABLE
660 , p9_a49 out nocopy JTF_NUMBER_TABLE
661 , p9_a50 out nocopy JTF_NUMBER_TABLE
662 , p9_a51 out nocopy JTF_NUMBER_TABLE
663 , p9_a52 out nocopy JTF_NUMBER_TABLE
664 , p9_a53 out nocopy JTF_VARCHAR2_TABLE_200
665 , p9_a54 out nocopy JTF_VARCHAR2_TABLE_100
666 , p9_a55 out nocopy JTF_VARCHAR2_TABLE_100
667 , p9_a56 out nocopy JTF_VARCHAR2_TABLE_100
668 , p9_a57 out nocopy JTF_NUMBER_TABLE
669 , p9_a58 out nocopy JTF_DATE_TABLE
670 , p9_a59 out nocopy JTF_DATE_TABLE
671 , p9_a60 out nocopy JTF_NUMBER_TABLE
672 , p10_a0 out nocopy JTF_NUMBER_TABLE
673 , p10_a1 out nocopy JTF_VARCHAR2_TABLE_200
674 , p10_a2 out nocopy JTF_NUMBER_TABLE
675 , p10_a3 out nocopy JTF_NUMBER_TABLE
676 , p10_a4 out nocopy JTF_VARCHAR2_TABLE_200
677 , p5_a0 NUMBER := 0-1962.0724
678 , p5_a1 NUMBER := 0-1962.0724
679 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
680 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
681 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
682 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
683 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
684 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
685 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
686 , p5_a9 NUMBER := 0-1962.0724
687 , p5_a10 NUMBER := 0-1962.0724
688 , p5_a11 NUMBER := 0-1962.0724
689 , p5_a12 NUMBER := 0-1962.0724
690 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
691 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
692 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
693 , p5_a16 DATE := fnd_api.g_miss_date
694 , p5_a17 DATE := fnd_api.g_miss_date
695 , p5_a18 DATE := fnd_api.g_miss_date
696 , p5_a19 DATE := fnd_api.g_miss_date
697 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
698 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
699 , p5_a22 NUMBER := 0-1962.0724
700 , p5_a23 NUMBER := 0-1962.0724
701 , p5_a24 NUMBER := 0-1962.0724
702 , p5_a25 NUMBER := 0-1962.0724
703 , p5_a26 DATE := fnd_api.g_miss_date
704 , p5_a27 DATE := fnd_api.g_miss_date
705 , p5_a28 NUMBER := 0-1962.0724
706 , p5_a29 NUMBER := 0-1962.0724
707 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
708 , p5_a31 DATE := fnd_api.g_miss_date
709 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
710 , p5_a33 NUMBER := 0-1962.0724
711 , p5_a34 DATE := fnd_api.g_miss_date
712 , p5_a35 NUMBER := 0-1962.0724
713 , p5_a36 NUMBER := 0-1962.0724
714 , p5_a37 VARCHAR2 := fnd_api.g_miss_char
715 , p5_a38 VARCHAR2 := fnd_api.g_miss_char
716 , p5_a39 VARCHAR2 := fnd_api.g_miss_char
717 , p5_a40 DATE := fnd_api.g_miss_date
718 , p5_a41 VARCHAR2 := fnd_api.g_miss_char
719 , p5_a42 VARCHAR2 := fnd_api.g_miss_char
720 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
721 , p5_a44 VARCHAR2 := fnd_api.g_miss_char
722 , p5_a45 VARCHAR2 := fnd_api.g_miss_char
723 , p5_a46 VARCHAR2 := fnd_api.g_miss_char
724 , p5_a47 VARCHAR2 := fnd_api.g_miss_char
725 , p5_a48 VARCHAR2 := fnd_api.g_miss_char
726 , p5_a49 VARCHAR2 := fnd_api.g_miss_char
727 , p5_a50 VARCHAR2 := fnd_api.g_miss_char
728 , p5_a51 VARCHAR2 := fnd_api.g_miss_char
729 , p5_a52 VARCHAR2 := fnd_api.g_miss_char
730 , p5_a53 VARCHAR2 := fnd_api.g_miss_char
731 , p5_a54 VARCHAR2 := fnd_api.g_miss_char
732 , p5_a55 VARCHAR2 := fnd_api.g_miss_char
733 , p5_a56 VARCHAR2 := fnd_api.g_miss_char
734 , p5_a57 DATE := fnd_api.g_miss_date
735 , p5_a58 NUMBER := 0-1962.0724
736 , p5_a59 NUMBER := 0-1962.0724
737 , p5_a60 NUMBER := 0-1962.0724
738 , p5_a61 NUMBER := 0-1962.0724
739 , p5_a62 NUMBER := 0-1962.0724
740 , p5_a63 DATE := fnd_api.g_miss_date
741 , p5_a64 NUMBER := 0-1962.0724
742 , p5_a65 DATE := fnd_api.g_miss_date
743 , p5_a66 NUMBER := 0-1962.0724
744 , p5_a67 DATE := fnd_api.g_miss_date
745 , p5_a68 NUMBER := 0-1962.0724
746 , p5_a69 NUMBER := 0-1962.0724
747 , p5_a70 VARCHAR2 := fnd_api.g_miss_char
748 , p5_a71 NUMBER := 0-1962.0724
749 , p5_a72 NUMBER := 0-1962.0724
750 , p5_a73 NUMBER := 0-1962.0724
751 , p5_a74 NUMBER := 0-1962.0724
752 , p5_a75 NUMBER := 0-1962.0724
753 , p5_a76 VARCHAR2 := fnd_api.g_miss_char
754 , p5_a77 VARCHAR2 := fnd_api.g_miss_char
755 , p5_a78 VARCHAR2 := fnd_api.g_miss_char
756 , p5_a79 NUMBER := 0-1962.0724
757 , p5_a80 DATE := fnd_api.g_miss_date
758 , p5_a81 NUMBER := 0-1962.0724
759 , p5_a82 VARCHAR2 := fnd_api.g_miss_char
760 )
761
762 as
763 ddp_quot_rec okl_am_create_quote_pvt.quot_rec_type;
764 ddp_assn_tbl okl_am_create_quote_pvt.assn_tbl_type;
765 ddp_qpyv_tbl okl_am_create_quote_pvt.qpyv_tbl_type;
766 ddx_quot_rec okl_am_create_quote_pvt.quot_rec_type;
767 ddx_tqlv_tbl okl_am_create_quote_pvt.tqlv_tbl_type;
768 ddx_assn_tbl okl_am_create_quote_pvt.assn_tbl_type;
769 ddindx binary_integer; indx binary_integer;
770 begin
771
772 -- copy data to the local IN or IN-OUT args, if any
773
774
775
776
777
778 ddp_quot_rec.id := rosetta_g_miss_num_map(p5_a0);
779 ddp_quot_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
780 ddp_quot_rec.sfwt_flag := p5_a2;
781 ddp_quot_rec.qrs_code := p5_a3;
782 ddp_quot_rec.qst_code := p5_a4;
783 ddp_quot_rec.qtp_code := p5_a5;
784 ddp_quot_rec.trn_code := p5_a6;
785 ddp_quot_rec.pop_code_end := p5_a7;
786 ddp_quot_rec.pop_code_early := p5_a8;
787 ddp_quot_rec.consolidated_qte_id := rosetta_g_miss_num_map(p5_a9);
788 ddp_quot_rec.khr_id := rosetta_g_miss_num_map(p5_a10);
789 ddp_quot_rec.art_id := rosetta_g_miss_num_map(p5_a11);
790 ddp_quot_rec.pdt_id := rosetta_g_miss_num_map(p5_a12);
791 ddp_quot_rec.early_termination_yn := p5_a13;
792 ddp_quot_rec.partial_yn := p5_a14;
793 ddp_quot_rec.preproceeds_yn := p5_a15;
794 ddp_quot_rec.date_requested := rosetta_g_miss_date_in_map(p5_a16);
795 ddp_quot_rec.date_proposal := rosetta_g_miss_date_in_map(p5_a17);
796 ddp_quot_rec.date_effective_to := rosetta_g_miss_date_in_map(p5_a18);
797 ddp_quot_rec.date_accepted := rosetta_g_miss_date_in_map(p5_a19);
798 ddp_quot_rec.summary_format_yn := p5_a20;
799 ddp_quot_rec.consolidated_yn := p5_a21;
800 ddp_quot_rec.principal_paydown_amount := rosetta_g_miss_num_map(p5_a22);
801 ddp_quot_rec.residual_amount := rosetta_g_miss_num_map(p5_a23);
802 ddp_quot_rec.yield := rosetta_g_miss_num_map(p5_a24);
803 ddp_quot_rec.rent_amount := rosetta_g_miss_num_map(p5_a25);
804 ddp_quot_rec.date_restructure_end := rosetta_g_miss_date_in_map(p5_a26);
805 ddp_quot_rec.date_restructure_start := rosetta_g_miss_date_in_map(p5_a27);
806 ddp_quot_rec.term := rosetta_g_miss_num_map(p5_a28);
807 ddp_quot_rec.purchase_percent := rosetta_g_miss_num_map(p5_a29);
808 ddp_quot_rec.comments := p5_a30;
809 ddp_quot_rec.date_due := rosetta_g_miss_date_in_map(p5_a31);
810 ddp_quot_rec.payment_frequency := p5_a32;
811 ddp_quot_rec.remaining_payments := rosetta_g_miss_num_map(p5_a33);
812 ddp_quot_rec.date_effective_from := rosetta_g_miss_date_in_map(p5_a34);
813 ddp_quot_rec.quote_number := rosetta_g_miss_num_map(p5_a35);
814 ddp_quot_rec.requested_by := rosetta_g_miss_num_map(p5_a36);
815 ddp_quot_rec.approved_yn := p5_a37;
816 ddp_quot_rec.accepted_yn := p5_a38;
817 ddp_quot_rec.payment_received_yn := p5_a39;
818 ddp_quot_rec.date_payment_received := rosetta_g_miss_date_in_map(p5_a40);
819 ddp_quot_rec.attribute_category := p5_a41;
820 ddp_quot_rec.attribute1 := p5_a42;
821 ddp_quot_rec.attribute2 := p5_a43;
822 ddp_quot_rec.attribute3 := p5_a44;
823 ddp_quot_rec.attribute4 := p5_a45;
824 ddp_quot_rec.attribute5 := p5_a46;
825 ddp_quot_rec.attribute6 := p5_a47;
826 ddp_quot_rec.attribute7 := p5_a48;
827 ddp_quot_rec.attribute8 := p5_a49;
828 ddp_quot_rec.attribute9 := p5_a50;
829 ddp_quot_rec.attribute10 := p5_a51;
830 ddp_quot_rec.attribute11 := p5_a52;
831 ddp_quot_rec.attribute12 := p5_a53;
832 ddp_quot_rec.attribute13 := p5_a54;
833 ddp_quot_rec.attribute14 := p5_a55;
834 ddp_quot_rec.attribute15 := p5_a56;
835 ddp_quot_rec.date_approved := rosetta_g_miss_date_in_map(p5_a57);
836 ddp_quot_rec.approved_by := rosetta_g_miss_num_map(p5_a58);
837 ddp_quot_rec.org_id := rosetta_g_miss_num_map(p5_a59);
838 ddp_quot_rec.request_id := rosetta_g_miss_num_map(p5_a60);
839 ddp_quot_rec.program_application_id := rosetta_g_miss_num_map(p5_a61);
840 ddp_quot_rec.program_id := rosetta_g_miss_num_map(p5_a62);
841 ddp_quot_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a63);
842 ddp_quot_rec.created_by := rosetta_g_miss_num_map(p5_a64);
843 ddp_quot_rec.creation_date := rosetta_g_miss_date_in_map(p5_a65);
844 ddp_quot_rec.last_updated_by := rosetta_g_miss_num_map(p5_a66);
845 ddp_quot_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a67);
846 ddp_quot_rec.last_update_login := rosetta_g_miss_num_map(p5_a68);
847 ddp_quot_rec.purchase_amount := rosetta_g_miss_num_map(p5_a69);
848 ddp_quot_rec.purchase_formula := p5_a70;
849 ddp_quot_rec.asset_value := rosetta_g_miss_num_map(p5_a71);
850 ddp_quot_rec.residual_value := rosetta_g_miss_num_map(p5_a72);
851 ddp_quot_rec.unbilled_receivables := rosetta_g_miss_num_map(p5_a73);
852 ddp_quot_rec.gain_loss := rosetta_g_miss_num_map(p5_a74);
853 ddp_quot_rec.perdiem_amount := rosetta_g_miss_num_map(p5_a75);
854 ddp_quot_rec.currency_code := p5_a76;
855 ddp_quot_rec.currency_conversion_code := p5_a77;
856 ddp_quot_rec.currency_conversion_type := p5_a78;
857 ddp_quot_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a79);
858 ddp_quot_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a80);
859 ddp_quot_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a81);
860 ddp_quot_rec.repo_quote_indicator_yn := p5_a82;
861
862 okl_am_create_quote_pvt_w.rosetta_table_copy_in_p17(ddp_assn_tbl, p6_a0
863 , p6_a1
864 , p6_a2
865 , p6_a3
866 , p6_a4
867 );
868
869 okl_qpy_pvt_w.rosetta_table_copy_in_p5(ddp_qpyv_tbl, p7_a0
870 , p7_a1
871 , p7_a2
872 , p7_a3
873 , p7_a4
874 , p7_a5
875 , p7_a6
876 , p7_a7
877 , p7_a8
878 , p7_a9
879 , p7_a10
880 , p7_a11
881 , p7_a12
882 , p7_a13
883 , p7_a14
884 , p7_a15
885 , p7_a16
886 , p7_a17
887 , p7_a18
888 , p7_a19
889 );
890
891
892
893
894 -- here's the delegated call to the old PL/SQL routine
895 okl_am_create_quote_pvt.create_terminate_quote(p_api_version,
896 p_init_msg_list,
897 x_return_status,
898 x_msg_count,
899 x_msg_data,
900 ddp_quot_rec,
901 ddp_assn_tbl,
902 ddp_qpyv_tbl,
903 ddx_quot_rec,
904 ddx_tqlv_tbl,
905 ddx_assn_tbl);
906
907 -- copy data back from the local variables to OUT or IN-OUT args, if any
908
909
910
911
912
913
914
915
916 p8_a0 := rosetta_g_miss_num_map(ddx_quot_rec.id);
917 p8_a1 := rosetta_g_miss_num_map(ddx_quot_rec.object_version_number);
918 p8_a2 := ddx_quot_rec.sfwt_flag;
919 p8_a3 := ddx_quot_rec.qrs_code;
920 p8_a4 := ddx_quot_rec.qst_code;
921 p8_a5 := ddx_quot_rec.qtp_code;
922 p8_a6 := ddx_quot_rec.trn_code;
923 p8_a7 := ddx_quot_rec.pop_code_end;
924 p8_a8 := ddx_quot_rec.pop_code_early;
925 p8_a9 := rosetta_g_miss_num_map(ddx_quot_rec.consolidated_qte_id);
926 p8_a10 := rosetta_g_miss_num_map(ddx_quot_rec.khr_id);
927 p8_a11 := rosetta_g_miss_num_map(ddx_quot_rec.art_id);
928 p8_a12 := rosetta_g_miss_num_map(ddx_quot_rec.pdt_id);
929 p8_a13 := ddx_quot_rec.early_termination_yn;
930 p8_a14 := ddx_quot_rec.partial_yn;
931 p8_a15 := ddx_quot_rec.preproceeds_yn;
932 p8_a16 := ddx_quot_rec.date_requested;
933 p8_a17 := ddx_quot_rec.date_proposal;
934 p8_a18 := ddx_quot_rec.date_effective_to;
935 p8_a19 := ddx_quot_rec.date_accepted;
936 p8_a20 := ddx_quot_rec.summary_format_yn;
937 p8_a21 := ddx_quot_rec.consolidated_yn;
938 p8_a22 := rosetta_g_miss_num_map(ddx_quot_rec.principal_paydown_amount);
939 p8_a23 := rosetta_g_miss_num_map(ddx_quot_rec.residual_amount);
940 p8_a24 := rosetta_g_miss_num_map(ddx_quot_rec.yield);
941 p8_a25 := rosetta_g_miss_num_map(ddx_quot_rec.rent_amount);
942 p8_a26 := ddx_quot_rec.date_restructure_end;
943 p8_a27 := ddx_quot_rec.date_restructure_start;
944 p8_a28 := rosetta_g_miss_num_map(ddx_quot_rec.term);
945 p8_a29 := rosetta_g_miss_num_map(ddx_quot_rec.purchase_percent);
946 p8_a30 := ddx_quot_rec.comments;
947 p8_a31 := ddx_quot_rec.date_due;
948 p8_a32 := ddx_quot_rec.payment_frequency;
949 p8_a33 := rosetta_g_miss_num_map(ddx_quot_rec.remaining_payments);
950 p8_a34 := ddx_quot_rec.date_effective_from;
951 p8_a35 := rosetta_g_miss_num_map(ddx_quot_rec.quote_number);
952 p8_a36 := rosetta_g_miss_num_map(ddx_quot_rec.requested_by);
953 p8_a37 := ddx_quot_rec.approved_yn;
954 p8_a38 := ddx_quot_rec.accepted_yn;
955 p8_a39 := ddx_quot_rec.payment_received_yn;
956 p8_a40 := ddx_quot_rec.date_payment_received;
957 p8_a41 := ddx_quot_rec.attribute_category;
958 p8_a42 := ddx_quot_rec.attribute1;
959 p8_a43 := ddx_quot_rec.attribute2;
960 p8_a44 := ddx_quot_rec.attribute3;
961 p8_a45 := ddx_quot_rec.attribute4;
962 p8_a46 := ddx_quot_rec.attribute5;
963 p8_a47 := ddx_quot_rec.attribute6;
964 p8_a48 := ddx_quot_rec.attribute7;
965 p8_a49 := ddx_quot_rec.attribute8;
966 p8_a50 := ddx_quot_rec.attribute9;
967 p8_a51 := ddx_quot_rec.attribute10;
968 p8_a52 := ddx_quot_rec.attribute11;
969 p8_a53 := ddx_quot_rec.attribute12;
970 p8_a54 := ddx_quot_rec.attribute13;
971 p8_a55 := ddx_quot_rec.attribute14;
972 p8_a56 := ddx_quot_rec.attribute15;
973 p8_a57 := ddx_quot_rec.date_approved;
974 p8_a58 := rosetta_g_miss_num_map(ddx_quot_rec.approved_by);
975 p8_a59 := rosetta_g_miss_num_map(ddx_quot_rec.org_id);
976 p8_a60 := rosetta_g_miss_num_map(ddx_quot_rec.request_id);
977 p8_a61 := rosetta_g_miss_num_map(ddx_quot_rec.program_application_id);
978 p8_a62 := rosetta_g_miss_num_map(ddx_quot_rec.program_id);
979 p8_a63 := ddx_quot_rec.program_update_date;
980 p8_a64 := rosetta_g_miss_num_map(ddx_quot_rec.created_by);
981 p8_a65 := ddx_quot_rec.creation_date;
982 p8_a66 := rosetta_g_miss_num_map(ddx_quot_rec.last_updated_by);
983 p8_a67 := ddx_quot_rec.last_update_date;
984 p8_a68 := rosetta_g_miss_num_map(ddx_quot_rec.last_update_login);
985 p8_a69 := rosetta_g_miss_num_map(ddx_quot_rec.purchase_amount);
986 p8_a70 := ddx_quot_rec.purchase_formula;
987 p8_a71 := rosetta_g_miss_num_map(ddx_quot_rec.asset_value);
988 p8_a72 := rosetta_g_miss_num_map(ddx_quot_rec.residual_value);
989 p8_a73 := rosetta_g_miss_num_map(ddx_quot_rec.unbilled_receivables);
990 p8_a74 := rosetta_g_miss_num_map(ddx_quot_rec.gain_loss);
991 p8_a75 := rosetta_g_miss_num_map(ddx_quot_rec.perdiem_amount);
992 p8_a76 := ddx_quot_rec.currency_code;
993 p8_a77 := ddx_quot_rec.currency_conversion_code;
994 p8_a78 := ddx_quot_rec.currency_conversion_type;
995 p8_a79 := rosetta_g_miss_num_map(ddx_quot_rec.currency_conversion_rate);
996 p8_a80 := ddx_quot_rec.currency_conversion_date;
997 p8_a81 := rosetta_g_miss_num_map(ddx_quot_rec.legal_entity_id);
998 p8_a82 := ddx_quot_rec.repo_quote_indicator_yn;
999
1000 okl_tql_pvt_w.rosetta_table_copy_out_p8(ddx_tqlv_tbl, p9_a0
1001 , p9_a1
1002 , p9_a2
1003 , p9_a3
1004 , p9_a4
1005 , p9_a5
1006 , p9_a6
1007 , p9_a7
1008 , p9_a8
1009 , p9_a9
1010 , p9_a10
1011 , p9_a11
1012 , p9_a12
1013 , p9_a13
1014 , p9_a14
1015 , p9_a15
1016 , p9_a16
1017 , p9_a17
1018 , p9_a18
1019 , p9_a19
1020 , p9_a20
1021 , p9_a21
1022 , p9_a22
1023 , p9_a23
1024 , p9_a24
1025 , p9_a25
1026 , p9_a26
1027 , p9_a27
1028 , p9_a28
1029 , p9_a29
1030 , p9_a30
1031 , p9_a31
1032 , p9_a32
1033 , p9_a33
1034 , p9_a34
1035 , p9_a35
1036 , p9_a36
1037 , p9_a37
1038 , p9_a38
1039 , p9_a39
1040 , p9_a40
1041 , p9_a41
1042 , p9_a42
1043 , p9_a43
1044 , p9_a44
1045 , p9_a45
1046 , p9_a46
1047 , p9_a47
1048 , p9_a48
1049 , p9_a49
1050 , p9_a50
1051 , p9_a51
1052 , p9_a52
1053 , p9_a53
1054 , p9_a54
1055 , p9_a55
1056 , p9_a56
1057 , p9_a57
1058 , p9_a58
1059 , p9_a59
1060 , p9_a60
1061 );
1062
1063 okl_am_create_quote_pvt_w.rosetta_table_copy_out_p17(ddx_assn_tbl, p10_a0
1064 , p10_a1
1065 , p10_a2
1066 , p10_a3
1067 , p10_a4
1068 );
1069 end;
1070
1071 procedure get_net_gain_loss(p_chr_id NUMBER
1072 , x_return_status out nocopy VARCHAR2
1073 , x_net_gain_loss out nocopy NUMBER
1074 , p0_a0 NUMBER := 0-1962.0724
1075 , p0_a1 NUMBER := 0-1962.0724
1076 , p0_a2 VARCHAR2 := fnd_api.g_miss_char
1077 , p0_a3 VARCHAR2 := fnd_api.g_miss_char
1078 , p0_a4 VARCHAR2 := fnd_api.g_miss_char
1079 , p0_a5 VARCHAR2 := fnd_api.g_miss_char
1080 , p0_a6 VARCHAR2 := fnd_api.g_miss_char
1081 , p0_a7 VARCHAR2 := fnd_api.g_miss_char
1082 , p0_a8 VARCHAR2 := fnd_api.g_miss_char
1083 , p0_a9 NUMBER := 0-1962.0724
1084 , p0_a10 NUMBER := 0-1962.0724
1085 , p0_a11 NUMBER := 0-1962.0724
1086 , p0_a12 NUMBER := 0-1962.0724
1087 , p0_a13 VARCHAR2 := fnd_api.g_miss_char
1088 , p0_a14 VARCHAR2 := fnd_api.g_miss_char
1089 , p0_a15 VARCHAR2 := fnd_api.g_miss_char
1090 , p0_a16 DATE := fnd_api.g_miss_date
1091 , p0_a17 DATE := fnd_api.g_miss_date
1092 , p0_a18 DATE := fnd_api.g_miss_date
1093 , p0_a19 DATE := fnd_api.g_miss_date
1094 , p0_a20 VARCHAR2 := fnd_api.g_miss_char
1095 , p0_a21 VARCHAR2 := fnd_api.g_miss_char
1096 , p0_a22 NUMBER := 0-1962.0724
1097 , p0_a23 NUMBER := 0-1962.0724
1098 , p0_a24 NUMBER := 0-1962.0724
1099 , p0_a25 NUMBER := 0-1962.0724
1100 , p0_a26 DATE := fnd_api.g_miss_date
1101 , p0_a27 DATE := fnd_api.g_miss_date
1102 , p0_a28 NUMBER := 0-1962.0724
1103 , p0_a29 NUMBER := 0-1962.0724
1104 , p0_a30 VARCHAR2 := fnd_api.g_miss_char
1105 , p0_a31 DATE := fnd_api.g_miss_date
1106 , p0_a32 VARCHAR2 := fnd_api.g_miss_char
1107 , p0_a33 NUMBER := 0-1962.0724
1108 , p0_a34 DATE := fnd_api.g_miss_date
1109 , p0_a35 NUMBER := 0-1962.0724
1110 , p0_a36 NUMBER := 0-1962.0724
1111 , p0_a37 VARCHAR2 := fnd_api.g_miss_char
1112 , p0_a38 VARCHAR2 := fnd_api.g_miss_char
1113 , p0_a39 VARCHAR2 := fnd_api.g_miss_char
1114 , p0_a40 DATE := fnd_api.g_miss_date
1115 , p0_a41 VARCHAR2 := fnd_api.g_miss_char
1116 , p0_a42 VARCHAR2 := fnd_api.g_miss_char
1117 , p0_a43 VARCHAR2 := fnd_api.g_miss_char
1118 , p0_a44 VARCHAR2 := fnd_api.g_miss_char
1119 , p0_a45 VARCHAR2 := fnd_api.g_miss_char
1120 , p0_a46 VARCHAR2 := fnd_api.g_miss_char
1121 , p0_a47 VARCHAR2 := fnd_api.g_miss_char
1122 , p0_a48 VARCHAR2 := fnd_api.g_miss_char
1123 , p0_a49 VARCHAR2 := fnd_api.g_miss_char
1124 , p0_a50 VARCHAR2 := fnd_api.g_miss_char
1125 , p0_a51 VARCHAR2 := fnd_api.g_miss_char
1126 , p0_a52 VARCHAR2 := fnd_api.g_miss_char
1127 , p0_a53 VARCHAR2 := fnd_api.g_miss_char
1128 , p0_a54 VARCHAR2 := fnd_api.g_miss_char
1129 , p0_a55 VARCHAR2 := fnd_api.g_miss_char
1130 , p0_a56 VARCHAR2 := fnd_api.g_miss_char
1131 , p0_a57 DATE := fnd_api.g_miss_date
1132 , p0_a58 NUMBER := 0-1962.0724
1133 , p0_a59 NUMBER := 0-1962.0724
1134 , p0_a60 NUMBER := 0-1962.0724
1135 , p0_a61 NUMBER := 0-1962.0724
1136 , p0_a62 NUMBER := 0-1962.0724
1137 , p0_a63 DATE := fnd_api.g_miss_date
1138 , p0_a64 NUMBER := 0-1962.0724
1139 , p0_a65 DATE := fnd_api.g_miss_date
1140 , p0_a66 NUMBER := 0-1962.0724
1141 , p0_a67 DATE := fnd_api.g_miss_date
1142 , p0_a68 NUMBER := 0-1962.0724
1143 , p0_a69 NUMBER := 0-1962.0724
1144 , p0_a70 VARCHAR2 := fnd_api.g_miss_char
1145 , p0_a71 NUMBER := 0-1962.0724
1146 , p0_a72 NUMBER := 0-1962.0724
1147 , p0_a73 NUMBER := 0-1962.0724
1148 , p0_a74 NUMBER := 0-1962.0724
1149 , p0_a75 NUMBER := 0-1962.0724
1150 , p0_a76 VARCHAR2 := fnd_api.g_miss_char
1151 , p0_a77 VARCHAR2 := fnd_api.g_miss_char
1152 , p0_a78 VARCHAR2 := fnd_api.g_miss_char
1153 , p0_a79 NUMBER := 0-1962.0724
1154 , p0_a80 DATE := fnd_api.g_miss_date
1155 , p0_a81 NUMBER := 0-1962.0724
1156 , p0_a82 VARCHAR2 := fnd_api.g_miss_char
1157 )
1158
1159 as
1160 ddp_quote_rec okl_am_create_quote_pvt.quot_rec_type;
1161 ddindx binary_integer; indx binary_integer;
1162 begin
1163
1164 -- copy data to the local IN or IN-OUT args, if any
1165 ddp_quote_rec.id := rosetta_g_miss_num_map(p0_a0);
1166 ddp_quote_rec.object_version_number := rosetta_g_miss_num_map(p0_a1);
1167 ddp_quote_rec.sfwt_flag := p0_a2;
1168 ddp_quote_rec.qrs_code := p0_a3;
1169 ddp_quote_rec.qst_code := p0_a4;
1170 ddp_quote_rec.qtp_code := p0_a5;
1171 ddp_quote_rec.trn_code := p0_a6;
1172 ddp_quote_rec.pop_code_end := p0_a7;
1173 ddp_quote_rec.pop_code_early := p0_a8;
1174 ddp_quote_rec.consolidated_qte_id := rosetta_g_miss_num_map(p0_a9);
1175 ddp_quote_rec.khr_id := rosetta_g_miss_num_map(p0_a10);
1176 ddp_quote_rec.art_id := rosetta_g_miss_num_map(p0_a11);
1177 ddp_quote_rec.pdt_id := rosetta_g_miss_num_map(p0_a12);
1178 ddp_quote_rec.early_termination_yn := p0_a13;
1179 ddp_quote_rec.partial_yn := p0_a14;
1180 ddp_quote_rec.preproceeds_yn := p0_a15;
1181 ddp_quote_rec.date_requested := rosetta_g_miss_date_in_map(p0_a16);
1182 ddp_quote_rec.date_proposal := rosetta_g_miss_date_in_map(p0_a17);
1183 ddp_quote_rec.date_effective_to := rosetta_g_miss_date_in_map(p0_a18);
1184 ddp_quote_rec.date_accepted := rosetta_g_miss_date_in_map(p0_a19);
1185 ddp_quote_rec.summary_format_yn := p0_a20;
1186 ddp_quote_rec.consolidated_yn := p0_a21;
1187 ddp_quote_rec.principal_paydown_amount := rosetta_g_miss_num_map(p0_a22);
1188 ddp_quote_rec.residual_amount := rosetta_g_miss_num_map(p0_a23);
1189 ddp_quote_rec.yield := rosetta_g_miss_num_map(p0_a24);
1190 ddp_quote_rec.rent_amount := rosetta_g_miss_num_map(p0_a25);
1191 ddp_quote_rec.date_restructure_end := rosetta_g_miss_date_in_map(p0_a26);
1192 ddp_quote_rec.date_restructure_start := rosetta_g_miss_date_in_map(p0_a27);
1193 ddp_quote_rec.term := rosetta_g_miss_num_map(p0_a28);
1194 ddp_quote_rec.purchase_percent := rosetta_g_miss_num_map(p0_a29);
1195 ddp_quote_rec.comments := p0_a30;
1196 ddp_quote_rec.date_due := rosetta_g_miss_date_in_map(p0_a31);
1197 ddp_quote_rec.payment_frequency := p0_a32;
1198 ddp_quote_rec.remaining_payments := rosetta_g_miss_num_map(p0_a33);
1199 ddp_quote_rec.date_effective_from := rosetta_g_miss_date_in_map(p0_a34);
1200 ddp_quote_rec.quote_number := rosetta_g_miss_num_map(p0_a35);
1201 ddp_quote_rec.requested_by := rosetta_g_miss_num_map(p0_a36);
1202 ddp_quote_rec.approved_yn := p0_a37;
1203 ddp_quote_rec.accepted_yn := p0_a38;
1204 ddp_quote_rec.payment_received_yn := p0_a39;
1205 ddp_quote_rec.date_payment_received := rosetta_g_miss_date_in_map(p0_a40);
1206 ddp_quote_rec.attribute_category := p0_a41;
1207 ddp_quote_rec.attribute1 := p0_a42;
1208 ddp_quote_rec.attribute2 := p0_a43;
1209 ddp_quote_rec.attribute3 := p0_a44;
1210 ddp_quote_rec.attribute4 := p0_a45;
1211 ddp_quote_rec.attribute5 := p0_a46;
1212 ddp_quote_rec.attribute6 := p0_a47;
1213 ddp_quote_rec.attribute7 := p0_a48;
1214 ddp_quote_rec.attribute8 := p0_a49;
1215 ddp_quote_rec.attribute9 := p0_a50;
1216 ddp_quote_rec.attribute10 := p0_a51;
1217 ddp_quote_rec.attribute11 := p0_a52;
1218 ddp_quote_rec.attribute12 := p0_a53;
1219 ddp_quote_rec.attribute13 := p0_a54;
1220 ddp_quote_rec.attribute14 := p0_a55;
1221 ddp_quote_rec.attribute15 := p0_a56;
1222 ddp_quote_rec.date_approved := rosetta_g_miss_date_in_map(p0_a57);
1223 ddp_quote_rec.approved_by := rosetta_g_miss_num_map(p0_a58);
1224 ddp_quote_rec.org_id := rosetta_g_miss_num_map(p0_a59);
1225 ddp_quote_rec.request_id := rosetta_g_miss_num_map(p0_a60);
1226 ddp_quote_rec.program_application_id := rosetta_g_miss_num_map(p0_a61);
1227 ddp_quote_rec.program_id := rosetta_g_miss_num_map(p0_a62);
1228 ddp_quote_rec.program_update_date := rosetta_g_miss_date_in_map(p0_a63);
1229 ddp_quote_rec.created_by := rosetta_g_miss_num_map(p0_a64);
1230 ddp_quote_rec.creation_date := rosetta_g_miss_date_in_map(p0_a65);
1231 ddp_quote_rec.last_updated_by := rosetta_g_miss_num_map(p0_a66);
1232 ddp_quote_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a67);
1233 ddp_quote_rec.last_update_login := rosetta_g_miss_num_map(p0_a68);
1234 ddp_quote_rec.purchase_amount := rosetta_g_miss_num_map(p0_a69);
1235 ddp_quote_rec.purchase_formula := p0_a70;
1236 ddp_quote_rec.asset_value := rosetta_g_miss_num_map(p0_a71);
1237 ddp_quote_rec.residual_value := rosetta_g_miss_num_map(p0_a72);
1238 ddp_quote_rec.unbilled_receivables := rosetta_g_miss_num_map(p0_a73);
1239 ddp_quote_rec.gain_loss := rosetta_g_miss_num_map(p0_a74);
1240 ddp_quote_rec.perdiem_amount := rosetta_g_miss_num_map(p0_a75);
1241 ddp_quote_rec.currency_code := p0_a76;
1242 ddp_quote_rec.currency_conversion_code := p0_a77;
1243 ddp_quote_rec.currency_conversion_type := p0_a78;
1244 ddp_quote_rec.currency_conversion_rate := rosetta_g_miss_num_map(p0_a79);
1245 ddp_quote_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p0_a80);
1246 ddp_quote_rec.legal_entity_id := rosetta_g_miss_num_map(p0_a81);
1247 ddp_quote_rec.repo_quote_indicator_yn := p0_a82;
1248
1249
1250
1251
1252 -- here's the delegated call to the old PL/SQL routine
1253 okl_am_create_quote_pvt.get_net_gain_loss(ddp_quote_rec,
1254 p_chr_id,
1255 x_return_status,
1256 x_net_gain_loss);
1257
1258 -- copy data back from the local variables to OUT or IN-OUT args, if any
1259
1260
1261
1262 end;
1263
1264 end okl_am_create_quote_pvt_w;