[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_CREATE_QUOTE_PUB_W
Source
1 package body okl_am_create_quote_pub_w as
2 /* $Header: OKLUCQTB.pls 120.4 2007/11/02 21:04:27 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 advance_contract_search(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p6_a0 out nocopy JTF_VARCHAR2_TABLE_200
28 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_100
29 , p6_a2 out nocopy JTF_NUMBER_TABLE
30 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_200
31 , p6_a4 out nocopy JTF_DATE_TABLE
32 , p6_a5 out nocopy JTF_DATE_TABLE
33 , p6_a6 out nocopy JTF_DATE_TABLE
34 , p6_a7 out nocopy JTF_DATE_TABLE
35 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
36 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
37 , p6_a10 out nocopy JTF_NUMBER_TABLE
38 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_400
39 , p5_a0 VARCHAR2 := fnd_api.g_miss_char
40 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
41 , p5_a2 NUMBER := 0-1962.0724
42 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
43 , p5_a4 DATE := fnd_api.g_miss_date
44 , p5_a5 DATE := fnd_api.g_miss_date
45 , p5_a6 DATE := fnd_api.g_miss_date
46 , p5_a7 DATE := fnd_api.g_miss_date
47 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
48 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
49 , p5_a10 NUMBER := 0-1962.0724
50 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
51 )
52
53 as
54 ddp_achr_rec okl_am_create_quote_pub.achr_rec_type;
55 ddx_achr_tbl okl_am_create_quote_pub.achr_tbl_type;
56 ddindx binary_integer; indx binary_integer;
57 begin
58
59 -- copy data to the local IN or IN-OUT args, if any
60
61
62
63
64
65 ddp_achr_rec.asset_number := p5_a0;
66 ddp_achr_rec.serial_number := p5_a1;
67 ddp_achr_rec.chr_id := rosetta_g_miss_num_map(p5_a2);
68 ddp_achr_rec.contract_number := p5_a3;
69 ddp_achr_rec.from_start_date := rosetta_g_miss_date_in_map(p5_a4);
70 ddp_achr_rec.to_start_date := rosetta_g_miss_date_in_map(p5_a5);
71 ddp_achr_rec.from_end_date := rosetta_g_miss_date_in_map(p5_a6);
72 ddp_achr_rec.to_end_date := rosetta_g_miss_date_in_map(p5_a7);
73 ddp_achr_rec.sts_code := p5_a8;
74 ddp_achr_rec.sts_meaning := p5_a9;
75 ddp_achr_rec.org_id := rosetta_g_miss_num_map(p5_a10);
76 ddp_achr_rec.party_name := p5_a11;
77
78
79 -- here's the delegated call to the old PL/SQL routine
80 okl_am_create_quote_pub.advance_contract_search(p_api_version,
81 p_init_msg_list,
82 x_return_status,
83 x_msg_count,
84 x_msg_data,
85 ddp_achr_rec,
86 ddx_achr_tbl);
87
88 -- copy data back from the local variables to OUT or IN-OUT args, if any
89
90
91
92
93
94
95 okl_am_create_quote_pvt_w.rosetta_table_copy_out_p19(ddx_achr_tbl, p6_a0
96 , p6_a1
97 , p6_a2
98 , p6_a3
99 , p6_a4
100 , p6_a5
101 , p6_a6
102 , p6_a7
103 , p6_a8
104 , p6_a9
105 , p6_a10
106 , p6_a11
107 );
108 end;
109
110 procedure create_terminate_quote(p_api_version NUMBER
111 , p_init_msg_list VARCHAR2
112 , x_return_status out nocopy VARCHAR2
113 , x_msg_count out nocopy NUMBER
114 , x_msg_data out nocopy VARCHAR2
115 , p6_a0 JTF_NUMBER_TABLE
116 , p6_a1 JTF_VARCHAR2_TABLE_200
117 , p6_a2 JTF_NUMBER_TABLE
118 , p6_a3 JTF_NUMBER_TABLE
119 , p6_a4 JTF_VARCHAR2_TABLE_200
120 , p7_a0 JTF_NUMBER_TABLE
121 , p7_a1 JTF_NUMBER_TABLE
122 , p7_a2 JTF_NUMBER_TABLE
123 , p7_a3 JTF_NUMBER_TABLE
124 , p7_a4 JTF_DATE_TABLE
125 , p7_a5 JTF_VARCHAR2_TABLE_100
126 , p7_a6 JTF_NUMBER_TABLE
127 , p7_a7 JTF_NUMBER_TABLE
128 , p7_a8 JTF_VARCHAR2_TABLE_600
129 , p7_a9 JTF_VARCHAR2_TABLE_100
130 , p7_a10 JTF_VARCHAR2_TABLE_100
131 , p7_a11 JTF_VARCHAR2_TABLE_200
132 , p7_a12 JTF_VARCHAR2_TABLE_100
133 , p7_a13 JTF_VARCHAR2_TABLE_100
134 , p7_a14 JTF_VARCHAR2_TABLE_200
135 , p7_a15 JTF_NUMBER_TABLE
136 , p7_a16 JTF_DATE_TABLE
137 , p7_a17 JTF_NUMBER_TABLE
138 , p7_a18 JTF_DATE_TABLE
139 , p7_a19 JTF_NUMBER_TABLE
140 , p8_a0 out nocopy NUMBER
141 , p8_a1 out nocopy NUMBER
142 , p8_a2 out nocopy VARCHAR2
143 , p8_a3 out nocopy VARCHAR2
144 , p8_a4 out nocopy VARCHAR2
145 , p8_a5 out nocopy VARCHAR2
146 , p8_a6 out nocopy VARCHAR2
147 , p8_a7 out nocopy VARCHAR2
148 , p8_a8 out nocopy VARCHAR2
149 , p8_a9 out nocopy NUMBER
150 , p8_a10 out nocopy NUMBER
151 , p8_a11 out nocopy NUMBER
152 , p8_a12 out nocopy NUMBER
153 , p8_a13 out nocopy VARCHAR2
154 , p8_a14 out nocopy VARCHAR2
155 , p8_a15 out nocopy VARCHAR2
156 , p8_a16 out nocopy DATE
157 , p8_a17 out nocopy DATE
158 , p8_a18 out nocopy DATE
159 , p8_a19 out nocopy DATE
160 , p8_a20 out nocopy VARCHAR2
161 , p8_a21 out nocopy VARCHAR2
162 , p8_a22 out nocopy NUMBER
163 , p8_a23 out nocopy NUMBER
164 , p8_a24 out nocopy NUMBER
165 , p8_a25 out nocopy NUMBER
166 , p8_a26 out nocopy DATE
167 , p8_a27 out nocopy DATE
168 , p8_a28 out nocopy NUMBER
169 , p8_a29 out nocopy NUMBER
170 , p8_a30 out nocopy VARCHAR2
171 , p8_a31 out nocopy DATE
172 , p8_a32 out nocopy VARCHAR2
173 , p8_a33 out nocopy NUMBER
174 , p8_a34 out nocopy DATE
175 , p8_a35 out nocopy NUMBER
176 , p8_a36 out nocopy NUMBER
177 , p8_a37 out nocopy VARCHAR2
178 , p8_a38 out nocopy VARCHAR2
179 , p8_a39 out nocopy VARCHAR2
180 , p8_a40 out nocopy DATE
181 , p8_a41 out nocopy VARCHAR2
182 , p8_a42 out nocopy VARCHAR2
183 , p8_a43 out nocopy VARCHAR2
184 , p8_a44 out nocopy VARCHAR2
185 , p8_a45 out nocopy VARCHAR2
186 , p8_a46 out nocopy VARCHAR2
187 , p8_a47 out nocopy VARCHAR2
188 , p8_a48 out nocopy VARCHAR2
189 , p8_a49 out nocopy VARCHAR2
190 , p8_a50 out nocopy VARCHAR2
191 , p8_a51 out nocopy VARCHAR2
192 , p8_a52 out nocopy VARCHAR2
193 , p8_a53 out nocopy VARCHAR2
194 , p8_a54 out nocopy VARCHAR2
195 , p8_a55 out nocopy VARCHAR2
196 , p8_a56 out nocopy VARCHAR2
197 , p8_a57 out nocopy DATE
198 , p8_a58 out nocopy NUMBER
199 , p8_a59 out nocopy NUMBER
200 , p8_a60 out nocopy NUMBER
201 , p8_a61 out nocopy NUMBER
202 , p8_a62 out nocopy NUMBER
203 , p8_a63 out nocopy DATE
204 , p8_a64 out nocopy NUMBER
205 , p8_a65 out nocopy DATE
206 , p8_a66 out nocopy NUMBER
207 , p8_a67 out nocopy DATE
208 , p8_a68 out nocopy NUMBER
209 , p8_a69 out nocopy NUMBER
210 , p8_a70 out nocopy VARCHAR2
211 , p8_a71 out nocopy NUMBER
212 , p8_a72 out nocopy NUMBER
213 , p8_a73 out nocopy NUMBER
214 , p8_a74 out nocopy NUMBER
215 , p8_a75 out nocopy NUMBER
216 , p8_a76 out nocopy VARCHAR2
217 , p8_a77 out nocopy VARCHAR2
218 , p8_a78 out nocopy VARCHAR2
219 , p8_a79 out nocopy NUMBER
220 , p8_a80 out nocopy DATE
221 , p8_a81 out nocopy NUMBER
222 , p8_a82 out nocopy VARCHAR2
223 , p9_a0 out nocopy JTF_NUMBER_TABLE
224 , p9_a1 out nocopy JTF_NUMBER_TABLE
225 , p9_a2 out nocopy JTF_VARCHAR2_TABLE_100
226 , p9_a3 out nocopy JTF_VARCHAR2_TABLE_100
227 , p9_a4 out nocopy JTF_NUMBER_TABLE
228 , p9_a5 out nocopy JTF_NUMBER_TABLE
229 , p9_a6 out nocopy JTF_NUMBER_TABLE
230 , p9_a7 out nocopy JTF_NUMBER_TABLE
231 , p9_a8 out nocopy JTF_VARCHAR2_TABLE_2000
232 , p9_a9 out nocopy JTF_NUMBER_TABLE
233 , p9_a10 out nocopy JTF_VARCHAR2_TABLE_100
234 , p9_a11 out nocopy JTF_VARCHAR2_TABLE_100
235 , p9_a12 out nocopy JTF_VARCHAR2_TABLE_100
236 , p9_a13 out nocopy JTF_VARCHAR2_TABLE_100
237 , p9_a14 out nocopy JTF_VARCHAR2_TABLE_500
238 , p9_a15 out nocopy JTF_VARCHAR2_TABLE_500
239 , p9_a16 out nocopy JTF_VARCHAR2_TABLE_500
240 , p9_a17 out nocopy JTF_VARCHAR2_TABLE_500
241 , p9_a18 out nocopy JTF_VARCHAR2_TABLE_500
242 , p9_a19 out nocopy JTF_VARCHAR2_TABLE_500
243 , p9_a20 out nocopy JTF_VARCHAR2_TABLE_500
244 , p9_a21 out nocopy JTF_VARCHAR2_TABLE_500
245 , p9_a22 out nocopy JTF_VARCHAR2_TABLE_500
246 , p9_a23 out nocopy JTF_VARCHAR2_TABLE_500
247 , p9_a24 out nocopy JTF_VARCHAR2_TABLE_500
248 , p9_a25 out nocopy JTF_VARCHAR2_TABLE_500
249 , p9_a26 out nocopy JTF_VARCHAR2_TABLE_500
250 , p9_a27 out nocopy JTF_VARCHAR2_TABLE_500
251 , p9_a28 out nocopy JTF_VARCHAR2_TABLE_500
252 , p9_a29 out nocopy JTF_NUMBER_TABLE
253 , p9_a30 out nocopy JTF_NUMBER_TABLE
254 , p9_a31 out nocopy JTF_NUMBER_TABLE
255 , p9_a32 out nocopy JTF_NUMBER_TABLE
256 , p9_a33 out nocopy JTF_DATE_TABLE
257 , p9_a34 out nocopy JTF_NUMBER_TABLE
258 , p9_a35 out nocopy JTF_DATE_TABLE
259 , p9_a36 out nocopy JTF_NUMBER_TABLE
260 , p9_a37 out nocopy JTF_DATE_TABLE
261 , p9_a38 out nocopy JTF_NUMBER_TABLE
262 , p9_a39 out nocopy JTF_DATE_TABLE
263 , p9_a40 out nocopy JTF_VARCHAR2_TABLE_100
264 , p9_a41 out nocopy JTF_NUMBER_TABLE
265 , p9_a42 out nocopy JTF_VARCHAR2_TABLE_100
266 , p9_a43 out nocopy JTF_VARCHAR2_TABLE_100
267 , p9_a44 out nocopy JTF_VARCHAR2_TABLE_200
268 , p9_a45 out nocopy JTF_NUMBER_TABLE
269 , p9_a46 out nocopy JTF_NUMBER_TABLE
270 , p9_a47 out nocopy JTF_NUMBER_TABLE
271 , p9_a48 out nocopy JTF_NUMBER_TABLE
272 , p9_a49 out nocopy JTF_NUMBER_TABLE
273 , p9_a50 out nocopy JTF_NUMBER_TABLE
274 , p9_a51 out nocopy JTF_NUMBER_TABLE
275 , p9_a52 out nocopy JTF_NUMBER_TABLE
276 , p9_a53 out nocopy JTF_VARCHAR2_TABLE_200
277 , p9_a54 out nocopy JTF_VARCHAR2_TABLE_100
278 , p9_a55 out nocopy JTF_VARCHAR2_TABLE_100
279 , p9_a56 out nocopy JTF_VARCHAR2_TABLE_100
280 , p9_a57 out nocopy JTF_NUMBER_TABLE
281 , p9_a58 out nocopy JTF_DATE_TABLE
282 , p9_a59 out nocopy JTF_DATE_TABLE
283 , p9_a60 out nocopy JTF_NUMBER_TABLE
284 , p10_a0 out nocopy JTF_NUMBER_TABLE
285 , p10_a1 out nocopy JTF_VARCHAR2_TABLE_200
286 , p10_a2 out nocopy JTF_NUMBER_TABLE
287 , p10_a3 out nocopy JTF_NUMBER_TABLE
288 , p10_a4 out nocopy JTF_VARCHAR2_TABLE_200
289 , p5_a0 NUMBER := 0-1962.0724
290 , p5_a1 NUMBER := 0-1962.0724
291 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
292 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
293 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
294 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
295 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
296 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
297 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
298 , p5_a9 NUMBER := 0-1962.0724
299 , p5_a10 NUMBER := 0-1962.0724
300 , p5_a11 NUMBER := 0-1962.0724
301 , p5_a12 NUMBER := 0-1962.0724
302 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
303 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
304 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
305 , p5_a16 DATE := fnd_api.g_miss_date
306 , p5_a17 DATE := fnd_api.g_miss_date
307 , p5_a18 DATE := fnd_api.g_miss_date
308 , p5_a19 DATE := fnd_api.g_miss_date
309 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
310 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
311 , p5_a22 NUMBER := 0-1962.0724
312 , p5_a23 NUMBER := 0-1962.0724
313 , p5_a24 NUMBER := 0-1962.0724
314 , p5_a25 NUMBER := 0-1962.0724
315 , p5_a26 DATE := fnd_api.g_miss_date
316 , p5_a27 DATE := fnd_api.g_miss_date
317 , p5_a28 NUMBER := 0-1962.0724
318 , p5_a29 NUMBER := 0-1962.0724
319 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
320 , p5_a31 DATE := fnd_api.g_miss_date
321 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
322 , p5_a33 NUMBER := 0-1962.0724
323 , p5_a34 DATE := fnd_api.g_miss_date
324 , p5_a35 NUMBER := 0-1962.0724
325 , p5_a36 NUMBER := 0-1962.0724
326 , p5_a37 VARCHAR2 := fnd_api.g_miss_char
327 , p5_a38 VARCHAR2 := fnd_api.g_miss_char
328 , p5_a39 VARCHAR2 := fnd_api.g_miss_char
329 , p5_a40 DATE := fnd_api.g_miss_date
330 , p5_a41 VARCHAR2 := fnd_api.g_miss_char
331 , p5_a42 VARCHAR2 := fnd_api.g_miss_char
332 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
333 , p5_a44 VARCHAR2 := fnd_api.g_miss_char
334 , p5_a45 VARCHAR2 := fnd_api.g_miss_char
335 , p5_a46 VARCHAR2 := fnd_api.g_miss_char
336 , p5_a47 VARCHAR2 := fnd_api.g_miss_char
337 , p5_a48 VARCHAR2 := fnd_api.g_miss_char
338 , p5_a49 VARCHAR2 := fnd_api.g_miss_char
339 , p5_a50 VARCHAR2 := fnd_api.g_miss_char
340 , p5_a51 VARCHAR2 := fnd_api.g_miss_char
341 , p5_a52 VARCHAR2 := fnd_api.g_miss_char
342 , p5_a53 VARCHAR2 := fnd_api.g_miss_char
343 , p5_a54 VARCHAR2 := fnd_api.g_miss_char
344 , p5_a55 VARCHAR2 := fnd_api.g_miss_char
345 , p5_a56 VARCHAR2 := fnd_api.g_miss_char
346 , p5_a57 DATE := fnd_api.g_miss_date
347 , p5_a58 NUMBER := 0-1962.0724
348 , p5_a59 NUMBER := 0-1962.0724
349 , p5_a60 NUMBER := 0-1962.0724
350 , p5_a61 NUMBER := 0-1962.0724
351 , p5_a62 NUMBER := 0-1962.0724
352 , p5_a63 DATE := fnd_api.g_miss_date
353 , p5_a64 NUMBER := 0-1962.0724
354 , p5_a65 DATE := fnd_api.g_miss_date
355 , p5_a66 NUMBER := 0-1962.0724
356 , p5_a67 DATE := fnd_api.g_miss_date
357 , p5_a68 NUMBER := 0-1962.0724
358 , p5_a69 NUMBER := 0-1962.0724
359 , p5_a70 VARCHAR2 := fnd_api.g_miss_char
360 , p5_a71 NUMBER := 0-1962.0724
361 , p5_a72 NUMBER := 0-1962.0724
362 , p5_a73 NUMBER := 0-1962.0724
363 , p5_a74 NUMBER := 0-1962.0724
364 , p5_a75 NUMBER := 0-1962.0724
365 , p5_a76 VARCHAR2 := fnd_api.g_miss_char
366 , p5_a77 VARCHAR2 := fnd_api.g_miss_char
367 , p5_a78 VARCHAR2 := fnd_api.g_miss_char
368 , p5_a79 NUMBER := 0-1962.0724
369 , p5_a80 DATE := fnd_api.g_miss_date
370 , p5_a81 NUMBER := 0-1962.0724
371 , p5_a82 VARCHAR2 := fnd_api.g_miss_char
372 )
373
374 as
375 ddp_quot_rec okl_am_create_quote_pub.quot_rec_type;
376 ddp_assn_tbl okl_am_create_quote_pub.assn_tbl_type;
377 ddp_qpyv_tbl okl_am_create_quote_pub.qpyv_tbl_type;
378 ddx_quot_rec okl_am_create_quote_pub.quot_rec_type;
379 ddx_tqlv_tbl okl_am_create_quote_pub.tqlv_tbl_type;
380 ddx_assn_tbl okl_am_create_quote_pub.assn_tbl_type;
381 ddindx binary_integer; indx binary_integer;
382 begin
383
384 -- copy data to the local IN or IN-OUT args, if any
385
386
387
388
389
390 ddp_quot_rec.id := rosetta_g_miss_num_map(p5_a0);
391 ddp_quot_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
392 ddp_quot_rec.sfwt_flag := p5_a2;
393 ddp_quot_rec.qrs_code := p5_a3;
394 ddp_quot_rec.qst_code := p5_a4;
395 ddp_quot_rec.qtp_code := p5_a5;
396 ddp_quot_rec.trn_code := p5_a6;
397 ddp_quot_rec.pop_code_end := p5_a7;
398 ddp_quot_rec.pop_code_early := p5_a8;
399 ddp_quot_rec.consolidated_qte_id := rosetta_g_miss_num_map(p5_a9);
400 ddp_quot_rec.khr_id := rosetta_g_miss_num_map(p5_a10);
401 ddp_quot_rec.art_id := rosetta_g_miss_num_map(p5_a11);
402 ddp_quot_rec.pdt_id := rosetta_g_miss_num_map(p5_a12);
403 ddp_quot_rec.early_termination_yn := p5_a13;
404 ddp_quot_rec.partial_yn := p5_a14;
405 ddp_quot_rec.preproceeds_yn := p5_a15;
406 ddp_quot_rec.date_requested := rosetta_g_miss_date_in_map(p5_a16);
407 ddp_quot_rec.date_proposal := rosetta_g_miss_date_in_map(p5_a17);
408 ddp_quot_rec.date_effective_to := rosetta_g_miss_date_in_map(p5_a18);
409 ddp_quot_rec.date_accepted := rosetta_g_miss_date_in_map(p5_a19);
410 ddp_quot_rec.summary_format_yn := p5_a20;
411 ddp_quot_rec.consolidated_yn := p5_a21;
412 ddp_quot_rec.principal_paydown_amount := rosetta_g_miss_num_map(p5_a22);
413 ddp_quot_rec.residual_amount := rosetta_g_miss_num_map(p5_a23);
414 ddp_quot_rec.yield := rosetta_g_miss_num_map(p5_a24);
415 ddp_quot_rec.rent_amount := rosetta_g_miss_num_map(p5_a25);
416 ddp_quot_rec.date_restructure_end := rosetta_g_miss_date_in_map(p5_a26);
417 ddp_quot_rec.date_restructure_start := rosetta_g_miss_date_in_map(p5_a27);
418 ddp_quot_rec.term := rosetta_g_miss_num_map(p5_a28);
419 ddp_quot_rec.purchase_percent := rosetta_g_miss_num_map(p5_a29);
420 ddp_quot_rec.comments := p5_a30;
421 ddp_quot_rec.date_due := rosetta_g_miss_date_in_map(p5_a31);
422 ddp_quot_rec.payment_frequency := p5_a32;
423 ddp_quot_rec.remaining_payments := rosetta_g_miss_num_map(p5_a33);
424 ddp_quot_rec.date_effective_from := rosetta_g_miss_date_in_map(p5_a34);
425 ddp_quot_rec.quote_number := rosetta_g_miss_num_map(p5_a35);
426 ddp_quot_rec.requested_by := rosetta_g_miss_num_map(p5_a36);
427 ddp_quot_rec.approved_yn := p5_a37;
428 ddp_quot_rec.accepted_yn := p5_a38;
429 ddp_quot_rec.payment_received_yn := p5_a39;
430 ddp_quot_rec.date_payment_received := rosetta_g_miss_date_in_map(p5_a40);
431 ddp_quot_rec.attribute_category := p5_a41;
432 ddp_quot_rec.attribute1 := p5_a42;
433 ddp_quot_rec.attribute2 := p5_a43;
434 ddp_quot_rec.attribute3 := p5_a44;
435 ddp_quot_rec.attribute4 := p5_a45;
436 ddp_quot_rec.attribute5 := p5_a46;
437 ddp_quot_rec.attribute6 := p5_a47;
438 ddp_quot_rec.attribute7 := p5_a48;
439 ddp_quot_rec.attribute8 := p5_a49;
440 ddp_quot_rec.attribute9 := p5_a50;
441 ddp_quot_rec.attribute10 := p5_a51;
442 ddp_quot_rec.attribute11 := p5_a52;
443 ddp_quot_rec.attribute12 := p5_a53;
444 ddp_quot_rec.attribute13 := p5_a54;
445 ddp_quot_rec.attribute14 := p5_a55;
446 ddp_quot_rec.attribute15 := p5_a56;
447 ddp_quot_rec.date_approved := rosetta_g_miss_date_in_map(p5_a57);
448 ddp_quot_rec.approved_by := rosetta_g_miss_num_map(p5_a58);
449 ddp_quot_rec.org_id := rosetta_g_miss_num_map(p5_a59);
450 ddp_quot_rec.request_id := rosetta_g_miss_num_map(p5_a60);
451 ddp_quot_rec.program_application_id := rosetta_g_miss_num_map(p5_a61);
452 ddp_quot_rec.program_id := rosetta_g_miss_num_map(p5_a62);
453 ddp_quot_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a63);
454 ddp_quot_rec.created_by := rosetta_g_miss_num_map(p5_a64);
455 ddp_quot_rec.creation_date := rosetta_g_miss_date_in_map(p5_a65);
456 ddp_quot_rec.last_updated_by := rosetta_g_miss_num_map(p5_a66);
457 ddp_quot_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a67);
458 ddp_quot_rec.last_update_login := rosetta_g_miss_num_map(p5_a68);
459 ddp_quot_rec.purchase_amount := rosetta_g_miss_num_map(p5_a69);
460 ddp_quot_rec.purchase_formula := p5_a70;
461 ddp_quot_rec.asset_value := rosetta_g_miss_num_map(p5_a71);
462 ddp_quot_rec.residual_value := rosetta_g_miss_num_map(p5_a72);
463 ddp_quot_rec.unbilled_receivables := rosetta_g_miss_num_map(p5_a73);
464 ddp_quot_rec.gain_loss := rosetta_g_miss_num_map(p5_a74);
465 ddp_quot_rec.perdiem_amount := rosetta_g_miss_num_map(p5_a75);
466 ddp_quot_rec.currency_code := p5_a76;
467 ddp_quot_rec.currency_conversion_code := p5_a77;
468 ddp_quot_rec.currency_conversion_type := p5_a78;
469 ddp_quot_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a79);
470 ddp_quot_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a80);
471 ddp_quot_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a81);
472 ddp_quot_rec.repo_quote_indicator_yn := p5_a82;
473
474 okl_am_create_quote_pvt_w.rosetta_table_copy_in_p17(ddp_assn_tbl, p6_a0
475 , p6_a1
476 , p6_a2
477 , p6_a3
478 , p6_a4
479 );
480
481 okl_qpy_pvt_w.rosetta_table_copy_in_p5(ddp_qpyv_tbl, p7_a0
482 , p7_a1
483 , p7_a2
484 , p7_a3
485 , p7_a4
486 , p7_a5
487 , p7_a6
488 , p7_a7
489 , p7_a8
490 , p7_a9
491 , p7_a10
492 , p7_a11
493 , p7_a12
494 , p7_a13
495 , p7_a14
496 , p7_a15
497 , p7_a16
498 , p7_a17
499 , p7_a18
500 , p7_a19
501 );
502
503
504
505
506 -- here's the delegated call to the old PL/SQL routine
507 okl_am_create_quote_pub.create_terminate_quote(p_api_version,
508 p_init_msg_list,
509 x_return_status,
510 x_msg_count,
511 x_msg_data,
512 ddp_quot_rec,
513 ddp_assn_tbl,
514 ddp_qpyv_tbl,
515 ddx_quot_rec,
516 ddx_tqlv_tbl,
517 ddx_assn_tbl);
518
519 -- copy data back from the local variables to OUT or IN-OUT args, if any
520
521
522
523
524
525
526
527
528 p8_a0 := rosetta_g_miss_num_map(ddx_quot_rec.id);
529 p8_a1 := rosetta_g_miss_num_map(ddx_quot_rec.object_version_number);
530 p8_a2 := ddx_quot_rec.sfwt_flag;
531 p8_a3 := ddx_quot_rec.qrs_code;
532 p8_a4 := ddx_quot_rec.qst_code;
533 p8_a5 := ddx_quot_rec.qtp_code;
534 p8_a6 := ddx_quot_rec.trn_code;
535 p8_a7 := ddx_quot_rec.pop_code_end;
536 p8_a8 := ddx_quot_rec.pop_code_early;
537 p8_a9 := rosetta_g_miss_num_map(ddx_quot_rec.consolidated_qte_id);
538 p8_a10 := rosetta_g_miss_num_map(ddx_quot_rec.khr_id);
539 p8_a11 := rosetta_g_miss_num_map(ddx_quot_rec.art_id);
540 p8_a12 := rosetta_g_miss_num_map(ddx_quot_rec.pdt_id);
541 p8_a13 := ddx_quot_rec.early_termination_yn;
542 p8_a14 := ddx_quot_rec.partial_yn;
543 p8_a15 := ddx_quot_rec.preproceeds_yn;
544 p8_a16 := ddx_quot_rec.date_requested;
545 p8_a17 := ddx_quot_rec.date_proposal;
546 p8_a18 := ddx_quot_rec.date_effective_to;
547 p8_a19 := ddx_quot_rec.date_accepted;
548 p8_a20 := ddx_quot_rec.summary_format_yn;
549 p8_a21 := ddx_quot_rec.consolidated_yn;
550 p8_a22 := rosetta_g_miss_num_map(ddx_quot_rec.principal_paydown_amount);
551 p8_a23 := rosetta_g_miss_num_map(ddx_quot_rec.residual_amount);
552 p8_a24 := rosetta_g_miss_num_map(ddx_quot_rec.yield);
553 p8_a25 := rosetta_g_miss_num_map(ddx_quot_rec.rent_amount);
554 p8_a26 := ddx_quot_rec.date_restructure_end;
555 p8_a27 := ddx_quot_rec.date_restructure_start;
556 p8_a28 := rosetta_g_miss_num_map(ddx_quot_rec.term);
557 p8_a29 := rosetta_g_miss_num_map(ddx_quot_rec.purchase_percent);
558 p8_a30 := ddx_quot_rec.comments;
559 p8_a31 := ddx_quot_rec.date_due;
560 p8_a32 := ddx_quot_rec.payment_frequency;
561 p8_a33 := rosetta_g_miss_num_map(ddx_quot_rec.remaining_payments);
562 p8_a34 := ddx_quot_rec.date_effective_from;
563 p8_a35 := rosetta_g_miss_num_map(ddx_quot_rec.quote_number);
564 p8_a36 := rosetta_g_miss_num_map(ddx_quot_rec.requested_by);
565 p8_a37 := ddx_quot_rec.approved_yn;
566 p8_a38 := ddx_quot_rec.accepted_yn;
567 p8_a39 := ddx_quot_rec.payment_received_yn;
568 p8_a40 := ddx_quot_rec.date_payment_received;
569 p8_a41 := ddx_quot_rec.attribute_category;
570 p8_a42 := ddx_quot_rec.attribute1;
571 p8_a43 := ddx_quot_rec.attribute2;
572 p8_a44 := ddx_quot_rec.attribute3;
573 p8_a45 := ddx_quot_rec.attribute4;
574 p8_a46 := ddx_quot_rec.attribute5;
575 p8_a47 := ddx_quot_rec.attribute6;
576 p8_a48 := ddx_quot_rec.attribute7;
577 p8_a49 := ddx_quot_rec.attribute8;
578 p8_a50 := ddx_quot_rec.attribute9;
579 p8_a51 := ddx_quot_rec.attribute10;
580 p8_a52 := ddx_quot_rec.attribute11;
581 p8_a53 := ddx_quot_rec.attribute12;
582 p8_a54 := ddx_quot_rec.attribute13;
583 p8_a55 := ddx_quot_rec.attribute14;
584 p8_a56 := ddx_quot_rec.attribute15;
585 p8_a57 := ddx_quot_rec.date_approved;
586 p8_a58 := rosetta_g_miss_num_map(ddx_quot_rec.approved_by);
587 p8_a59 := rosetta_g_miss_num_map(ddx_quot_rec.org_id);
588 p8_a60 := rosetta_g_miss_num_map(ddx_quot_rec.request_id);
589 p8_a61 := rosetta_g_miss_num_map(ddx_quot_rec.program_application_id);
590 p8_a62 := rosetta_g_miss_num_map(ddx_quot_rec.program_id);
591 p8_a63 := ddx_quot_rec.program_update_date;
592 p8_a64 := rosetta_g_miss_num_map(ddx_quot_rec.created_by);
593 p8_a65 := ddx_quot_rec.creation_date;
594 p8_a66 := rosetta_g_miss_num_map(ddx_quot_rec.last_updated_by);
595 p8_a67 := ddx_quot_rec.last_update_date;
596 p8_a68 := rosetta_g_miss_num_map(ddx_quot_rec.last_update_login);
597 p8_a69 := rosetta_g_miss_num_map(ddx_quot_rec.purchase_amount);
598 p8_a70 := ddx_quot_rec.purchase_formula;
599 p8_a71 := rosetta_g_miss_num_map(ddx_quot_rec.asset_value);
600 p8_a72 := rosetta_g_miss_num_map(ddx_quot_rec.residual_value);
601 p8_a73 := rosetta_g_miss_num_map(ddx_quot_rec.unbilled_receivables);
602 p8_a74 := rosetta_g_miss_num_map(ddx_quot_rec.gain_loss);
603 p8_a75 := rosetta_g_miss_num_map(ddx_quot_rec.perdiem_amount);
604 p8_a76 := ddx_quot_rec.currency_code;
605 p8_a77 := ddx_quot_rec.currency_conversion_code;
606 p8_a78 := ddx_quot_rec.currency_conversion_type;
607 p8_a79 := rosetta_g_miss_num_map(ddx_quot_rec.currency_conversion_rate);
608 p8_a80 := ddx_quot_rec.currency_conversion_date;
609 p8_a81 := rosetta_g_miss_num_map(ddx_quot_rec.legal_entity_id);
610 p8_a82 := ddx_quot_rec.repo_quote_indicator_yn;
611
612 okl_tql_pvt_w.rosetta_table_copy_out_p8(ddx_tqlv_tbl, p9_a0
613 , p9_a1
614 , p9_a2
615 , p9_a3
616 , p9_a4
617 , p9_a5
618 , p9_a6
619 , p9_a7
620 , p9_a8
621 , p9_a9
622 , p9_a10
623 , p9_a11
624 , p9_a12
625 , p9_a13
626 , p9_a14
627 , p9_a15
628 , p9_a16
629 , p9_a17
630 , p9_a18
631 , p9_a19
632 , p9_a20
633 , p9_a21
634 , p9_a22
635 , p9_a23
636 , p9_a24
637 , p9_a25
638 , p9_a26
639 , p9_a27
640 , p9_a28
641 , p9_a29
642 , p9_a30
643 , p9_a31
644 , p9_a32
645 , p9_a33
646 , p9_a34
647 , p9_a35
648 , p9_a36
649 , p9_a37
650 , p9_a38
651 , p9_a39
652 , p9_a40
653 , p9_a41
654 , p9_a42
655 , p9_a43
656 , p9_a44
657 , p9_a45
658 , p9_a46
659 , p9_a47
660 , p9_a48
661 , p9_a49
662 , p9_a50
663 , p9_a51
664 , p9_a52
665 , p9_a53
666 , p9_a54
667 , p9_a55
668 , p9_a56
669 , p9_a57
670 , p9_a58
671 , p9_a59
672 , p9_a60
673 );
674
675 okl_am_create_quote_pvt_w.rosetta_table_copy_out_p17(ddx_assn_tbl, p10_a0
676 , p10_a1
677 , p10_a2
678 , p10_a3
679 , p10_a4
680 );
681 end;
682
683 end okl_am_create_quote_pub_w;