[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_SEND_FULFILLMENT_PVT_W
Source
1 package body okl_am_send_fulfillment_pvt_w as
2 /* $Header: OKLESFWB.pls 115.9 2002/12/13 19:34:08 gkadarka noship $ */
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_p9(t out nocopy okl_am_send_fulfillment_pvt.full_tbl_type, a0 JTF_VARCHAR2_TABLE_200
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_VARCHAR2_TABLE_200
26 , a4 JTF_VARCHAR2_TABLE_200
27 , a5 JTF_VARCHAR2_TABLE_200
28 , a6 JTF_VARCHAR2_TABLE_200
29 , a7 JTF_VARCHAR2_TABLE_200
30 , a8 JTF_VARCHAR2_TABLE_200
31 ) as
32 ddindx binary_integer; indx binary_integer;
33 begin
34 if a0 is not null and a0.count > 0 then
35 if a0.count > 0 then
36 indx := a0.first;
37 ddindx := 1;
38 while true loop
39 t(ddindx).p_ptm_code := a0(indx);
40 t(ddindx).p_agent_id := rosetta_g_miss_num_map(a1(indx));
41 t(ddindx).p_transaction_id := rosetta_g_miss_num_map(a2(indx));
42 t(ddindx).p_recipient_type := a3(indx);
43 t(ddindx).p_recipient_id := a4(indx);
44 t(ddindx).p_expand_roles := a5(indx);
45 t(ddindx).p_subject_line := a6(indx);
46 t(ddindx).p_sender_email := a7(indx);
47 t(ddindx).p_recipient_email := a8(indx);
48 ddindx := ddindx+1;
49 if a0.last =indx
50 then exit;
51 end if;
52 indx := a0.next(indx);
53 end loop;
54 end if;
55 end if;
56 end rosetta_table_copy_in_p9;
57 procedure rosetta_table_copy_out_p9(t okl_am_send_fulfillment_pvt.full_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_200
58 , a1 out nocopy JTF_NUMBER_TABLE
59 , a2 out nocopy JTF_NUMBER_TABLE
60 , a3 out nocopy JTF_VARCHAR2_TABLE_200
61 , a4 out nocopy JTF_VARCHAR2_TABLE_200
62 , a5 out nocopy JTF_VARCHAR2_TABLE_200
63 , a6 out nocopy JTF_VARCHAR2_TABLE_200
64 , a7 out nocopy JTF_VARCHAR2_TABLE_200
65 , a8 out nocopy JTF_VARCHAR2_TABLE_200
66 ) as
67 ddindx binary_integer; indx binary_integer;
68 begin
69 if t is null or t.count = 0 then
70 a0 := JTF_VARCHAR2_TABLE_200();
71 a1 := JTF_NUMBER_TABLE();
72 a2 := JTF_NUMBER_TABLE();
73 a3 := JTF_VARCHAR2_TABLE_200();
74 a4 := JTF_VARCHAR2_TABLE_200();
75 a5 := JTF_VARCHAR2_TABLE_200();
76 a6 := JTF_VARCHAR2_TABLE_200();
77 a7 := JTF_VARCHAR2_TABLE_200();
78 a8 := JTF_VARCHAR2_TABLE_200();
79 else
80 a0 := JTF_VARCHAR2_TABLE_200();
81 a1 := JTF_NUMBER_TABLE();
82 a2 := JTF_NUMBER_TABLE();
83 a3 := JTF_VARCHAR2_TABLE_200();
84 a4 := JTF_VARCHAR2_TABLE_200();
85 a5 := JTF_VARCHAR2_TABLE_200();
86 a6 := JTF_VARCHAR2_TABLE_200();
87 a7 := JTF_VARCHAR2_TABLE_200();
88 a8 := JTF_VARCHAR2_TABLE_200();
89 if t.count > 0 then
90 a0.extend(t.count);
91 a1.extend(t.count);
92 a2.extend(t.count);
93 a3.extend(t.count);
94 a4.extend(t.count);
95 a5.extend(t.count);
96 a6.extend(t.count);
97 a7.extend(t.count);
98 a8.extend(t.count);
99 ddindx := t.first;
100 indx := 1;
101 while true loop
102 a0(indx) := t(ddindx).p_ptm_code;
103 a1(indx) := rosetta_g_miss_num_map(t(ddindx).p_agent_id);
104 a2(indx) := rosetta_g_miss_num_map(t(ddindx).p_transaction_id);
105 a3(indx) := t(ddindx).p_recipient_type;
106 a4(indx) := t(ddindx).p_recipient_id;
107 a5(indx) := t(ddindx).p_expand_roles;
108 a6(indx) := t(ddindx).p_subject_line;
109 a7(indx) := t(ddindx).p_sender_email;
110 a8(indx) := t(ddindx).p_recipient_email;
111 indx := indx+1;
112 if t.last =ddindx
113 then exit;
114 end if;
115 ddindx := t.next(ddindx);
116 end loop;
117 end if;
118 end if;
119 end rosetta_table_copy_out_p9;
120
121 procedure send_fulfillment(p_api_version NUMBER
122 , p_init_msg_list VARCHAR2
123 , x_return_status out nocopy VARCHAR2
124 , x_msg_count out nocopy NUMBER
125 , x_msg_data out nocopy VARCHAR2
126 , p6_a0 out nocopy VARCHAR2
127 , p6_a1 out nocopy NUMBER
128 , p6_a2 out nocopy NUMBER
129 , p6_a3 out nocopy VARCHAR2
130 , p6_a4 out nocopy VARCHAR2
131 , p6_a5 out nocopy VARCHAR2
132 , p6_a6 out nocopy VARCHAR2
133 , p6_a7 out nocopy VARCHAR2
134 , p6_a8 out nocopy VARCHAR2
135 , p5_a0 VARCHAR2 := fnd_api.g_miss_char
136 , p5_a1 NUMBER := 0-1962.0724
137 , p5_a2 NUMBER := 0-1962.0724
138 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
139 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
140 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
141 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
142 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
143 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
144 )
145
146 as
147 ddp_send_rec okl_am_send_fulfillment_pvt.full_rec_type;
148 ddx_send_rec okl_am_send_fulfillment_pvt.full_rec_type;
149 ddindx binary_integer; indx binary_integer;
150 begin
151
152 -- copy data to the local IN or IN-OUT args, if any
153
154
155
156
157
158 ddp_send_rec.p_ptm_code := p5_a0;
159 ddp_send_rec.p_agent_id := rosetta_g_miss_num_map(p5_a1);
160 ddp_send_rec.p_transaction_id := rosetta_g_miss_num_map(p5_a2);
161 ddp_send_rec.p_recipient_type := p5_a3;
162 ddp_send_rec.p_recipient_id := p5_a4;
163 ddp_send_rec.p_expand_roles := p5_a5;
164 ddp_send_rec.p_subject_line := p5_a6;
165 ddp_send_rec.p_sender_email := p5_a7;
166 ddp_send_rec.p_recipient_email := p5_a8;
167
168
169 -- here's the delegated call to the old PL/SQL routine
170 okl_am_send_fulfillment_pvt.send_fulfillment(p_api_version,
171 p_init_msg_list,
172 x_return_status,
173 x_msg_count,
174 x_msg_data,
175 ddp_send_rec,
176 ddx_send_rec);
177
178 -- copy data back from the local variables to OUT or IN-OUT args, if any
179
180
181
182
183
184
185 p6_a0 := ddx_send_rec.p_ptm_code;
186 p6_a1 := rosetta_g_miss_num_map(ddx_send_rec.p_agent_id);
187 p6_a2 := rosetta_g_miss_num_map(ddx_send_rec.p_transaction_id);
188 p6_a3 := ddx_send_rec.p_recipient_type;
189 p6_a4 := ddx_send_rec.p_recipient_id;
190 p6_a5 := ddx_send_rec.p_expand_roles;
191 p6_a6 := ddx_send_rec.p_subject_line;
192 p6_a7 := ddx_send_rec.p_sender_email;
193 p6_a8 := ddx_send_rec.p_recipient_email;
194 end;
195
196 procedure send_fulfillment(p_api_version NUMBER
197 , p_init_msg_list VARCHAR2
198 , x_return_status out nocopy VARCHAR2
199 , x_msg_count out nocopy NUMBER
200 , x_msg_data out nocopy VARCHAR2
201 , p5_a0 JTF_VARCHAR2_TABLE_200
202 , p5_a1 JTF_NUMBER_TABLE
203 , p5_a2 JTF_NUMBER_TABLE
204 , p5_a3 JTF_VARCHAR2_TABLE_200
205 , p5_a4 JTF_VARCHAR2_TABLE_200
206 , p5_a5 JTF_VARCHAR2_TABLE_200
207 , p5_a6 JTF_VARCHAR2_TABLE_200
208 , p5_a7 JTF_VARCHAR2_TABLE_200
209 , p5_a8 JTF_VARCHAR2_TABLE_200
210 , p6_a0 out nocopy JTF_VARCHAR2_TABLE_200
211 , p6_a1 out nocopy JTF_NUMBER_TABLE
212 , p6_a2 out nocopy JTF_NUMBER_TABLE
213 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_200
214 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_200
215 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_200
216 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_200
217 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_200
218 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_200
219 )
220
221 as
222 ddp_send_tbl okl_am_send_fulfillment_pvt.full_tbl_type;
223 ddx_send_tbl okl_am_send_fulfillment_pvt.full_tbl_type;
224 ddindx binary_integer; indx binary_integer;
225 begin
226
227 -- copy data to the local IN or IN-OUT args, if any
228
229
230
231
232
233 okl_am_send_fulfillment_pvt_w.rosetta_table_copy_in_p9(ddp_send_tbl, p5_a0
234 , p5_a1
235 , p5_a2
236 , p5_a3
237 , p5_a4
238 , p5_a5
239 , p5_a6
240 , p5_a7
241 , p5_a8
242 );
243
244
245 -- here's the delegated call to the old PL/SQL routine
246 okl_am_send_fulfillment_pvt.send_fulfillment(p_api_version,
247 p_init_msg_list,
248 x_return_status,
249 x_msg_count,
250 x_msg_data,
251 ddp_send_tbl,
252 ddx_send_tbl);
253
254 -- copy data back from the local variables to OUT or IN-OUT args, if any
255
256
257
258
259
260
261 okl_am_send_fulfillment_pvt_w.rosetta_table_copy_out_p9(ddx_send_tbl, p6_a0
262 , p6_a1
263 , p6_a2
264 , p6_a3
265 , p6_a4
266 , p6_a5
267 , p6_a6
268 , p6_a7
269 , p6_a8
270 );
271 end;
272
273 procedure send_terminate_quote(p_api_version NUMBER
274 , p_init_msg_list VARCHAR2
275 , x_return_status out nocopy VARCHAR2
276 , x_msg_count out nocopy NUMBER
277 , x_msg_data out nocopy VARCHAR2
278 , p5_a0 JTF_NUMBER_TABLE
279 , p5_a1 JTF_NUMBER_TABLE
280 , p5_a2 JTF_VARCHAR2_TABLE_100
281 , p5_a3 JTF_NUMBER_TABLE
282 , p5_a4 JTF_VARCHAR2_TABLE_100
283 , p5_a5 JTF_VARCHAR2_TABLE_100
284 , p5_a6 JTF_DATE_TABLE
285 , p5_a7 JTF_DATE_TABLE
286 , p5_a8 JTF_NUMBER_TABLE
287 , p5_a9 JTF_DATE_TABLE
288 , p5_a10 JTF_NUMBER_TABLE
289 , p5_a11 JTF_DATE_TABLE
290 , p5_a12 JTF_NUMBER_TABLE
291 , p5_a13 JTF_NUMBER_TABLE
292 , p5_a14 JTF_VARCHAR2_TABLE_100
293 , p5_a15 JTF_VARCHAR2_TABLE_100
294 , p5_a16 JTF_VARCHAR2_TABLE_100
295 , p5_a17 JTF_VARCHAR2_TABLE_200
296 , p5_a18 JTF_VARCHAR2_TABLE_100
297 , p5_a19 JTF_VARCHAR2_TABLE_400
298 , p5_a20 JTF_VARCHAR2_TABLE_2000
299 , p5_a21 JTF_VARCHAR2_TABLE_100
300 , p5_a22 JTF_VARCHAR2_TABLE_200
301 , p5_a23 JTF_VARCHAR2_TABLE_100
302 , p5_a24 JTF_VARCHAR2_TABLE_400
303 , p5_a25 JTF_VARCHAR2_TABLE_2000
304 , p5_a26 JTF_VARCHAR2_TABLE_2000
305 , p5_a27 JTF_NUMBER_TABLE
306 , p5_a28 JTF_DATE_TABLE
307 , p5_a29 JTF_NUMBER_TABLE
308 , p5_a30 JTF_VARCHAR2_TABLE_100
309 , p5_a31 JTF_VARCHAR2_TABLE_100
310 , p5_a32 JTF_VARCHAR2_TABLE_2000
311 , p5_a33 JTF_VARCHAR2_TABLE_2000
312 , p5_a34 JTF_NUMBER_TABLE
313 , p5_a35 JTF_DATE_TABLE
314 , p6_a0 out nocopy JTF_NUMBER_TABLE
315 , p6_a1 out nocopy JTF_NUMBER_TABLE
316 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
317 , p6_a3 out nocopy JTF_NUMBER_TABLE
318 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
319 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
320 , p6_a6 out nocopy JTF_DATE_TABLE
321 , p6_a7 out nocopy JTF_DATE_TABLE
322 , p6_a8 out nocopy JTF_NUMBER_TABLE
323 , p6_a9 out nocopy JTF_DATE_TABLE
324 , p6_a10 out nocopy JTF_NUMBER_TABLE
325 , p6_a11 out nocopy JTF_DATE_TABLE
326 , p6_a12 out nocopy JTF_NUMBER_TABLE
327 , p6_a13 out nocopy JTF_NUMBER_TABLE
328 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
329 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
330 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_100
331 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_200
332 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_100
333 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_400
334 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_2000
335 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_100
336 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_200
337 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_100
338 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_400
339 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_2000
340 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_2000
341 , p6_a27 out nocopy JTF_NUMBER_TABLE
342 , p6_a28 out nocopy JTF_DATE_TABLE
343 , p6_a29 out nocopy JTF_NUMBER_TABLE
344 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_100
345 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_100
346 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_2000
347 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_2000
348 , p6_a34 out nocopy JTF_NUMBER_TABLE
349 , p6_a35 out nocopy JTF_DATE_TABLE
350 , p8_a0 out nocopy NUMBER
351 , p8_a1 out nocopy NUMBER
352 , p8_a2 out nocopy VARCHAR2
353 , p8_a3 out nocopy VARCHAR2
354 , p8_a4 out nocopy VARCHAR2
355 , p8_a5 out nocopy VARCHAR2
356 , p8_a6 out nocopy VARCHAR2
357 , p8_a7 out nocopy VARCHAR2
358 , p8_a8 out nocopy VARCHAR2
359 , p8_a9 out nocopy NUMBER
360 , p8_a10 out nocopy NUMBER
361 , p8_a11 out nocopy NUMBER
362 , p8_a12 out nocopy NUMBER
363 , p8_a13 out nocopy VARCHAR2
364 , p8_a14 out nocopy VARCHAR2
365 , p8_a15 out nocopy VARCHAR2
366 , p8_a16 out nocopy DATE
367 , p8_a17 out nocopy DATE
368 , p8_a18 out nocopy DATE
369 , p8_a19 out nocopy DATE
370 , p8_a20 out nocopy VARCHAR2
371 , p8_a21 out nocopy VARCHAR2
372 , p8_a22 out nocopy NUMBER
373 , p8_a23 out nocopy NUMBER
374 , p8_a24 out nocopy NUMBER
375 , p8_a25 out nocopy NUMBER
376 , p8_a26 out nocopy DATE
377 , p8_a27 out nocopy DATE
378 , p8_a28 out nocopy NUMBER
379 , p8_a29 out nocopy NUMBER
380 , p8_a30 out nocopy VARCHAR2
381 , p8_a31 out nocopy DATE
382 , p8_a32 out nocopy VARCHAR2
383 , p8_a33 out nocopy NUMBER
384 , p8_a34 out nocopy DATE
385 , p8_a35 out nocopy NUMBER
386 , p8_a36 out nocopy NUMBER
387 , p8_a37 out nocopy VARCHAR2
388 , p8_a38 out nocopy VARCHAR2
389 , p8_a39 out nocopy VARCHAR2
390 , p8_a40 out nocopy DATE
391 , p8_a41 out nocopy VARCHAR2
392 , p8_a42 out nocopy VARCHAR2
393 , p8_a43 out nocopy VARCHAR2
394 , p8_a44 out nocopy VARCHAR2
395 , p8_a45 out nocopy VARCHAR2
396 , p8_a46 out nocopy VARCHAR2
397 , p8_a47 out nocopy VARCHAR2
398 , p8_a48 out nocopy VARCHAR2
399 , p8_a49 out nocopy VARCHAR2
400 , p8_a50 out nocopy VARCHAR2
401 , p8_a51 out nocopy VARCHAR2
402 , p8_a52 out nocopy VARCHAR2
403 , p8_a53 out nocopy VARCHAR2
404 , p8_a54 out nocopy VARCHAR2
405 , p8_a55 out nocopy VARCHAR2
406 , p8_a56 out nocopy VARCHAR2
407 , p8_a57 out nocopy DATE
408 , p8_a58 out nocopy NUMBER
409 , p8_a59 out nocopy NUMBER
410 , p8_a60 out nocopy NUMBER
411 , p8_a61 out nocopy NUMBER
412 , p8_a62 out nocopy NUMBER
413 , p8_a63 out nocopy DATE
414 , p8_a64 out nocopy NUMBER
415 , p8_a65 out nocopy DATE
416 , p8_a66 out nocopy NUMBER
417 , p8_a67 out nocopy DATE
418 , p8_a68 out nocopy NUMBER
419 , p8_a69 out nocopy NUMBER
420 , p8_a70 out nocopy VARCHAR2
421 , p8_a71 out nocopy NUMBER
422 , p8_a72 out nocopy NUMBER
423 , p8_a73 out nocopy NUMBER
424 , p8_a74 out nocopy NUMBER
425 , p8_a75 out nocopy VARCHAR2
426 , p8_a76 out nocopy VARCHAR2
427 , p8_a77 out nocopy VARCHAR2
428 , p8_a78 out nocopy NUMBER
429 , p8_a79 out nocopy DATE
430 , p7_a0 NUMBER := 0-1962.0724
431 , p7_a1 NUMBER := 0-1962.0724
432 , p7_a2 VARCHAR2 := fnd_api.g_miss_char
433 , p7_a3 VARCHAR2 := fnd_api.g_miss_char
434 , p7_a4 VARCHAR2 := fnd_api.g_miss_char
435 , p7_a5 VARCHAR2 := fnd_api.g_miss_char
436 , p7_a6 VARCHAR2 := fnd_api.g_miss_char
437 , p7_a7 VARCHAR2 := fnd_api.g_miss_char
438 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
439 , p7_a9 NUMBER := 0-1962.0724
440 , p7_a10 NUMBER := 0-1962.0724
441 , p7_a11 NUMBER := 0-1962.0724
442 , p7_a12 NUMBER := 0-1962.0724
443 , p7_a13 VARCHAR2 := fnd_api.g_miss_char
444 , p7_a14 VARCHAR2 := fnd_api.g_miss_char
445 , p7_a15 VARCHAR2 := fnd_api.g_miss_char
446 , p7_a16 DATE := fnd_api.g_miss_date
447 , p7_a17 DATE := fnd_api.g_miss_date
448 , p7_a18 DATE := fnd_api.g_miss_date
449 , p7_a19 DATE := fnd_api.g_miss_date
450 , p7_a20 VARCHAR2 := fnd_api.g_miss_char
451 , p7_a21 VARCHAR2 := fnd_api.g_miss_char
452 , p7_a22 NUMBER := 0-1962.0724
453 , p7_a23 NUMBER := 0-1962.0724
454 , p7_a24 NUMBER := 0-1962.0724
455 , p7_a25 NUMBER := 0-1962.0724
456 , p7_a26 DATE := fnd_api.g_miss_date
457 , p7_a27 DATE := fnd_api.g_miss_date
458 , p7_a28 NUMBER := 0-1962.0724
459 , p7_a29 NUMBER := 0-1962.0724
460 , p7_a30 VARCHAR2 := fnd_api.g_miss_char
461 , p7_a31 DATE := fnd_api.g_miss_date
462 , p7_a32 VARCHAR2 := fnd_api.g_miss_char
463 , p7_a33 NUMBER := 0-1962.0724
464 , p7_a34 DATE := fnd_api.g_miss_date
465 , p7_a35 NUMBER := 0-1962.0724
466 , p7_a36 NUMBER := 0-1962.0724
467 , p7_a37 VARCHAR2 := fnd_api.g_miss_char
468 , p7_a38 VARCHAR2 := fnd_api.g_miss_char
469 , p7_a39 VARCHAR2 := fnd_api.g_miss_char
470 , p7_a40 DATE := fnd_api.g_miss_date
471 , p7_a41 VARCHAR2 := fnd_api.g_miss_char
472 , p7_a42 VARCHAR2 := fnd_api.g_miss_char
473 , p7_a43 VARCHAR2 := fnd_api.g_miss_char
474 , p7_a44 VARCHAR2 := fnd_api.g_miss_char
475 , p7_a45 VARCHAR2 := fnd_api.g_miss_char
476 , p7_a46 VARCHAR2 := fnd_api.g_miss_char
477 , p7_a47 VARCHAR2 := fnd_api.g_miss_char
478 , p7_a48 VARCHAR2 := fnd_api.g_miss_char
479 , p7_a49 VARCHAR2 := fnd_api.g_miss_char
480 , p7_a50 VARCHAR2 := fnd_api.g_miss_char
481 , p7_a51 VARCHAR2 := fnd_api.g_miss_char
482 , p7_a52 VARCHAR2 := fnd_api.g_miss_char
483 , p7_a53 VARCHAR2 := fnd_api.g_miss_char
484 , p7_a54 VARCHAR2 := fnd_api.g_miss_char
485 , p7_a55 VARCHAR2 := fnd_api.g_miss_char
486 , p7_a56 VARCHAR2 := fnd_api.g_miss_char
487 , p7_a57 DATE := fnd_api.g_miss_date
488 , p7_a58 NUMBER := 0-1962.0724
489 , p7_a59 NUMBER := 0-1962.0724
490 , p7_a60 NUMBER := 0-1962.0724
491 , p7_a61 NUMBER := 0-1962.0724
492 , p7_a62 NUMBER := 0-1962.0724
493 , p7_a63 DATE := fnd_api.g_miss_date
494 , p7_a64 NUMBER := 0-1962.0724
495 , p7_a65 DATE := fnd_api.g_miss_date
496 , p7_a66 NUMBER := 0-1962.0724
497 , p7_a67 DATE := fnd_api.g_miss_date
498 , p7_a68 NUMBER := 0-1962.0724
499 , p7_a69 NUMBER := 0-1962.0724
500 , p7_a70 VARCHAR2 := fnd_api.g_miss_char
501 , p7_a71 NUMBER := 0-1962.0724
502 , p7_a72 NUMBER := 0-1962.0724
503 , p7_a73 NUMBER := 0-1962.0724
504 , p7_a74 NUMBER := 0-1962.0724
505 , p7_a75 VARCHAR2 := fnd_api.g_miss_char
506 , p7_a76 VARCHAR2 := fnd_api.g_miss_char
507 , p7_a77 VARCHAR2 := fnd_api.g_miss_char
508 , p7_a78 NUMBER := 0-1962.0724
509 , p7_a79 DATE := fnd_api.g_miss_date
510 )
511
512 as
513 ddp_party_tbl okl_am_send_fulfillment_pvt.q_party_uv_tbl_type;
514 ddx_party_tbl okl_am_send_fulfillment_pvt.q_party_uv_tbl_type;
515 ddp_qtev_rec okl_am_send_fulfillment_pvt.qtev_rec_type;
516 ddx_qtev_rec okl_am_send_fulfillment_pvt.qtev_rec_type;
517 ddindx binary_integer; indx binary_integer;
518 begin
519
520 -- copy data to the local IN or IN-OUT args, if any
521
522
523
524
525
526 okl_am_parties_pvt_w.rosetta_table_copy_in_p2(ddp_party_tbl, p5_a0
527 , p5_a1
528 , p5_a2
529 , p5_a3
530 , p5_a4
531 , p5_a5
532 , p5_a6
533 , p5_a7
534 , p5_a8
535 , p5_a9
536 , p5_a10
537 , p5_a11
538 , p5_a12
539 , p5_a13
540 , p5_a14
541 , p5_a15
542 , p5_a16
543 , p5_a17
544 , p5_a18
545 , p5_a19
546 , p5_a20
547 , p5_a21
548 , p5_a22
549 , p5_a23
550 , p5_a24
551 , p5_a25
552 , p5_a26
553 , p5_a27
554 , p5_a28
555 , p5_a29
556 , p5_a30
557 , p5_a31
558 , p5_a32
559 , p5_a33
560 , p5_a34
561 , p5_a35
562 );
563
564
565 ddp_qtev_rec.id := rosetta_g_miss_num_map(p7_a0);
566 ddp_qtev_rec.object_version_number := rosetta_g_miss_num_map(p7_a1);
567 ddp_qtev_rec.sfwt_flag := p7_a2;
568 ddp_qtev_rec.qrs_code := p7_a3;
569 ddp_qtev_rec.qst_code := p7_a4;
570 ddp_qtev_rec.qtp_code := p7_a5;
571 ddp_qtev_rec.trn_code := p7_a6;
572 ddp_qtev_rec.pop_code_end := p7_a7;
573 ddp_qtev_rec.pop_code_early := p7_a8;
574 ddp_qtev_rec.consolidated_qte_id := rosetta_g_miss_num_map(p7_a9);
575 ddp_qtev_rec.khr_id := rosetta_g_miss_num_map(p7_a10);
576 ddp_qtev_rec.art_id := rosetta_g_miss_num_map(p7_a11);
577 ddp_qtev_rec.pdt_id := rosetta_g_miss_num_map(p7_a12);
578 ddp_qtev_rec.early_termination_yn := p7_a13;
579 ddp_qtev_rec.partial_yn := p7_a14;
580 ddp_qtev_rec.preproceeds_yn := p7_a15;
581 ddp_qtev_rec.date_requested := rosetta_g_miss_date_in_map(p7_a16);
582 ddp_qtev_rec.date_proposal := rosetta_g_miss_date_in_map(p7_a17);
583 ddp_qtev_rec.date_effective_to := rosetta_g_miss_date_in_map(p7_a18);
584 ddp_qtev_rec.date_accepted := rosetta_g_miss_date_in_map(p7_a19);
585 ddp_qtev_rec.summary_format_yn := p7_a20;
586 ddp_qtev_rec.consolidated_yn := p7_a21;
587 ddp_qtev_rec.principal_paydown_amount := rosetta_g_miss_num_map(p7_a22);
588 ddp_qtev_rec.residual_amount := rosetta_g_miss_num_map(p7_a23);
589 ddp_qtev_rec.yield := rosetta_g_miss_num_map(p7_a24);
590 ddp_qtev_rec.rent_amount := rosetta_g_miss_num_map(p7_a25);
591 ddp_qtev_rec.date_restructure_end := rosetta_g_miss_date_in_map(p7_a26);
592 ddp_qtev_rec.date_restructure_start := rosetta_g_miss_date_in_map(p7_a27);
593 ddp_qtev_rec.term := rosetta_g_miss_num_map(p7_a28);
594 ddp_qtev_rec.purchase_percent := rosetta_g_miss_num_map(p7_a29);
595 ddp_qtev_rec.comments := p7_a30;
596 ddp_qtev_rec.date_due := rosetta_g_miss_date_in_map(p7_a31);
597 ddp_qtev_rec.payment_frequency := p7_a32;
598 ddp_qtev_rec.remaining_payments := rosetta_g_miss_num_map(p7_a33);
599 ddp_qtev_rec.date_effective_from := rosetta_g_miss_date_in_map(p7_a34);
600 ddp_qtev_rec.quote_number := rosetta_g_miss_num_map(p7_a35);
601 ddp_qtev_rec.requested_by := rosetta_g_miss_num_map(p7_a36);
602 ddp_qtev_rec.approved_yn := p7_a37;
603 ddp_qtev_rec.accepted_yn := p7_a38;
604 ddp_qtev_rec.payment_received_yn := p7_a39;
605 ddp_qtev_rec.date_payment_received := rosetta_g_miss_date_in_map(p7_a40);
606 ddp_qtev_rec.attribute_category := p7_a41;
607 ddp_qtev_rec.attribute1 := p7_a42;
608 ddp_qtev_rec.attribute2 := p7_a43;
609 ddp_qtev_rec.attribute3 := p7_a44;
610 ddp_qtev_rec.attribute4 := p7_a45;
611 ddp_qtev_rec.attribute5 := p7_a46;
612 ddp_qtev_rec.attribute6 := p7_a47;
613 ddp_qtev_rec.attribute7 := p7_a48;
614 ddp_qtev_rec.attribute8 := p7_a49;
615 ddp_qtev_rec.attribute9 := p7_a50;
616 ddp_qtev_rec.attribute10 := p7_a51;
617 ddp_qtev_rec.attribute11 := p7_a52;
618 ddp_qtev_rec.attribute12 := p7_a53;
619 ddp_qtev_rec.attribute13 := p7_a54;
620 ddp_qtev_rec.attribute14 := p7_a55;
621 ddp_qtev_rec.attribute15 := p7_a56;
622 ddp_qtev_rec.date_approved := rosetta_g_miss_date_in_map(p7_a57);
623 ddp_qtev_rec.approved_by := rosetta_g_miss_num_map(p7_a58);
624 ddp_qtev_rec.org_id := rosetta_g_miss_num_map(p7_a59);
625 ddp_qtev_rec.request_id := rosetta_g_miss_num_map(p7_a60);
626 ddp_qtev_rec.program_application_id := rosetta_g_miss_num_map(p7_a61);
627 ddp_qtev_rec.program_id := rosetta_g_miss_num_map(p7_a62);
628 ddp_qtev_rec.program_update_date := rosetta_g_miss_date_in_map(p7_a63);
629 ddp_qtev_rec.created_by := rosetta_g_miss_num_map(p7_a64);
630 ddp_qtev_rec.creation_date := rosetta_g_miss_date_in_map(p7_a65);
631 ddp_qtev_rec.last_updated_by := rosetta_g_miss_num_map(p7_a66);
632 ddp_qtev_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a67);
633 ddp_qtev_rec.last_update_login := rosetta_g_miss_num_map(p7_a68);
634 ddp_qtev_rec.purchase_amount := rosetta_g_miss_num_map(p7_a69);
635 ddp_qtev_rec.purchase_formula := p7_a70;
636 ddp_qtev_rec.asset_value := rosetta_g_miss_num_map(p7_a71);
637 ddp_qtev_rec.residual_value := rosetta_g_miss_num_map(p7_a72);
638 ddp_qtev_rec.unbilled_receivables := rosetta_g_miss_num_map(p7_a73);
639 ddp_qtev_rec.gain_loss := rosetta_g_miss_num_map(p7_a74);
640 ddp_qtev_rec.currency_code := p7_a75;
641 ddp_qtev_rec.currency_conversion_code := p7_a76;
642 ddp_qtev_rec.currency_conversion_type := p7_a77;
643 ddp_qtev_rec.currency_conversion_rate := rosetta_g_miss_num_map(p7_a78);
644 ddp_qtev_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p7_a79);
645
646
647 -- here's the delegated call to the old PL/SQL routine
648 okl_am_send_fulfillment_pvt.send_terminate_quote(p_api_version,
649 p_init_msg_list,
650 x_return_status,
651 x_msg_count,
652 x_msg_data,
653 ddp_party_tbl,
654 ddx_party_tbl,
655 ddp_qtev_rec,
656 ddx_qtev_rec);
657
658 -- copy data back from the local variables to OUT or IN-OUT args, if any
659
660
661
662
663
664
665 okl_am_parties_pvt_w.rosetta_table_copy_out_p2(ddx_party_tbl, p6_a0
666 , p6_a1
667 , p6_a2
668 , p6_a3
669 , p6_a4
670 , p6_a5
671 , p6_a6
672 , p6_a7
673 , p6_a8
674 , p6_a9
675 , p6_a10
676 , p6_a11
677 , p6_a12
678 , p6_a13
679 , p6_a14
680 , p6_a15
681 , p6_a16
682 , p6_a17
683 , p6_a18
684 , p6_a19
685 , p6_a20
686 , p6_a21
687 , p6_a22
688 , p6_a23
689 , p6_a24
690 , p6_a25
691 , p6_a26
692 , p6_a27
693 , p6_a28
694 , p6_a29
695 , p6_a30
696 , p6_a31
697 , p6_a32
698 , p6_a33
699 , p6_a34
700 , p6_a35
701 );
702
703
704 p8_a0 := rosetta_g_miss_num_map(ddx_qtev_rec.id);
705 p8_a1 := rosetta_g_miss_num_map(ddx_qtev_rec.object_version_number);
706 p8_a2 := ddx_qtev_rec.sfwt_flag;
707 p8_a3 := ddx_qtev_rec.qrs_code;
708 p8_a4 := ddx_qtev_rec.qst_code;
709 p8_a5 := ddx_qtev_rec.qtp_code;
710 p8_a6 := ddx_qtev_rec.trn_code;
711 p8_a7 := ddx_qtev_rec.pop_code_end;
712 p8_a8 := ddx_qtev_rec.pop_code_early;
713 p8_a9 := rosetta_g_miss_num_map(ddx_qtev_rec.consolidated_qte_id);
714 p8_a10 := rosetta_g_miss_num_map(ddx_qtev_rec.khr_id);
715 p8_a11 := rosetta_g_miss_num_map(ddx_qtev_rec.art_id);
716 p8_a12 := rosetta_g_miss_num_map(ddx_qtev_rec.pdt_id);
717 p8_a13 := ddx_qtev_rec.early_termination_yn;
718 p8_a14 := ddx_qtev_rec.partial_yn;
719 p8_a15 := ddx_qtev_rec.preproceeds_yn;
720 p8_a16 := ddx_qtev_rec.date_requested;
721 p8_a17 := ddx_qtev_rec.date_proposal;
722 p8_a18 := ddx_qtev_rec.date_effective_to;
723 p8_a19 := ddx_qtev_rec.date_accepted;
724 p8_a20 := ddx_qtev_rec.summary_format_yn;
725 p8_a21 := ddx_qtev_rec.consolidated_yn;
726 p8_a22 := rosetta_g_miss_num_map(ddx_qtev_rec.principal_paydown_amount);
727 p8_a23 := rosetta_g_miss_num_map(ddx_qtev_rec.residual_amount);
728 p8_a24 := rosetta_g_miss_num_map(ddx_qtev_rec.yield);
729 p8_a25 := rosetta_g_miss_num_map(ddx_qtev_rec.rent_amount);
730 p8_a26 := ddx_qtev_rec.date_restructure_end;
731 p8_a27 := ddx_qtev_rec.date_restructure_start;
732 p8_a28 := rosetta_g_miss_num_map(ddx_qtev_rec.term);
733 p8_a29 := rosetta_g_miss_num_map(ddx_qtev_rec.purchase_percent);
734 p8_a30 := ddx_qtev_rec.comments;
735 p8_a31 := ddx_qtev_rec.date_due;
736 p8_a32 := ddx_qtev_rec.payment_frequency;
737 p8_a33 := rosetta_g_miss_num_map(ddx_qtev_rec.remaining_payments);
738 p8_a34 := ddx_qtev_rec.date_effective_from;
739 p8_a35 := rosetta_g_miss_num_map(ddx_qtev_rec.quote_number);
740 p8_a36 := rosetta_g_miss_num_map(ddx_qtev_rec.requested_by);
741 p8_a37 := ddx_qtev_rec.approved_yn;
742 p8_a38 := ddx_qtev_rec.accepted_yn;
743 p8_a39 := ddx_qtev_rec.payment_received_yn;
744 p8_a40 := ddx_qtev_rec.date_payment_received;
745 p8_a41 := ddx_qtev_rec.attribute_category;
746 p8_a42 := ddx_qtev_rec.attribute1;
747 p8_a43 := ddx_qtev_rec.attribute2;
748 p8_a44 := ddx_qtev_rec.attribute3;
749 p8_a45 := ddx_qtev_rec.attribute4;
750 p8_a46 := ddx_qtev_rec.attribute5;
751 p8_a47 := ddx_qtev_rec.attribute6;
752 p8_a48 := ddx_qtev_rec.attribute7;
753 p8_a49 := ddx_qtev_rec.attribute8;
754 p8_a50 := ddx_qtev_rec.attribute9;
755 p8_a51 := ddx_qtev_rec.attribute10;
756 p8_a52 := ddx_qtev_rec.attribute11;
757 p8_a53 := ddx_qtev_rec.attribute12;
758 p8_a54 := ddx_qtev_rec.attribute13;
759 p8_a55 := ddx_qtev_rec.attribute14;
760 p8_a56 := ddx_qtev_rec.attribute15;
761 p8_a57 := ddx_qtev_rec.date_approved;
762 p8_a58 := rosetta_g_miss_num_map(ddx_qtev_rec.approved_by);
763 p8_a59 := rosetta_g_miss_num_map(ddx_qtev_rec.org_id);
764 p8_a60 := rosetta_g_miss_num_map(ddx_qtev_rec.request_id);
765 p8_a61 := rosetta_g_miss_num_map(ddx_qtev_rec.program_application_id);
766 p8_a62 := rosetta_g_miss_num_map(ddx_qtev_rec.program_id);
767 p8_a63 := ddx_qtev_rec.program_update_date;
768 p8_a64 := rosetta_g_miss_num_map(ddx_qtev_rec.created_by);
769 p8_a65 := ddx_qtev_rec.creation_date;
770 p8_a66 := rosetta_g_miss_num_map(ddx_qtev_rec.last_updated_by);
771 p8_a67 := ddx_qtev_rec.last_update_date;
772 p8_a68 := rosetta_g_miss_num_map(ddx_qtev_rec.last_update_login);
773 p8_a69 := rosetta_g_miss_num_map(ddx_qtev_rec.purchase_amount);
774 p8_a70 := ddx_qtev_rec.purchase_formula;
775 p8_a71 := rosetta_g_miss_num_map(ddx_qtev_rec.asset_value);
776 p8_a72 := rosetta_g_miss_num_map(ddx_qtev_rec.residual_value);
777 p8_a73 := rosetta_g_miss_num_map(ddx_qtev_rec.unbilled_receivables);
778 p8_a74 := rosetta_g_miss_num_map(ddx_qtev_rec.gain_loss);
779 p8_a75 := ddx_qtev_rec.currency_code;
780 p8_a76 := ddx_qtev_rec.currency_conversion_code;
781 p8_a77 := ddx_qtev_rec.currency_conversion_type;
782 p8_a78 := rosetta_g_miss_num_map(ddx_qtev_rec.currency_conversion_rate);
783 p8_a79 := ddx_qtev_rec.currency_conversion_date;
784 end;
785
786 procedure send_repurchase_quote(p_api_version NUMBER
787 , p_init_msg_list VARCHAR2
788 , x_return_status out nocopy VARCHAR2
789 , x_msg_count out nocopy NUMBER
790 , x_msg_data out nocopy VARCHAR2
791 , p5_a0 JTF_VARCHAR2_TABLE_200
792 , p5_a1 JTF_NUMBER_TABLE
793 , p5_a2 JTF_NUMBER_TABLE
794 , p5_a3 JTF_VARCHAR2_TABLE_200
795 , p5_a4 JTF_VARCHAR2_TABLE_200
796 , p5_a5 JTF_VARCHAR2_TABLE_200
797 , p5_a6 JTF_VARCHAR2_TABLE_200
798 , p5_a7 JTF_VARCHAR2_TABLE_200
799 , p5_a8 JTF_VARCHAR2_TABLE_200
800 , p6_a0 out nocopy JTF_VARCHAR2_TABLE_200
801 , p6_a1 out nocopy JTF_NUMBER_TABLE
802 , p6_a2 out nocopy JTF_NUMBER_TABLE
803 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_200
804 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_200
805 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_200
806 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_200
807 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_200
808 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_200
809 , p8_a0 out nocopy NUMBER
810 , p8_a1 out nocopy NUMBER
811 , p8_a2 out nocopy VARCHAR2
812 , p8_a3 out nocopy VARCHAR2
813 , p8_a4 out nocopy VARCHAR2
814 , p8_a5 out nocopy VARCHAR2
815 , p8_a6 out nocopy VARCHAR2
816 , p8_a7 out nocopy VARCHAR2
817 , p8_a8 out nocopy VARCHAR2
818 , p8_a9 out nocopy NUMBER
819 , p8_a10 out nocopy NUMBER
820 , p8_a11 out nocopy NUMBER
821 , p8_a12 out nocopy NUMBER
822 , p8_a13 out nocopy VARCHAR2
823 , p8_a14 out nocopy VARCHAR2
824 , p8_a15 out nocopy VARCHAR2
825 , p8_a16 out nocopy DATE
826 , p8_a17 out nocopy DATE
827 , p8_a18 out nocopy DATE
828 , p8_a19 out nocopy DATE
829 , p8_a20 out nocopy VARCHAR2
830 , p8_a21 out nocopy VARCHAR2
831 , p8_a22 out nocopy NUMBER
832 , p8_a23 out nocopy NUMBER
833 , p8_a24 out nocopy NUMBER
834 , p8_a25 out nocopy NUMBER
835 , p8_a26 out nocopy DATE
836 , p8_a27 out nocopy DATE
837 , p8_a28 out nocopy NUMBER
838 , p8_a29 out nocopy NUMBER
839 , p8_a30 out nocopy VARCHAR2
840 , p8_a31 out nocopy DATE
841 , p8_a32 out nocopy VARCHAR2
842 , p8_a33 out nocopy NUMBER
843 , p8_a34 out nocopy DATE
844 , p8_a35 out nocopy NUMBER
845 , p8_a36 out nocopy NUMBER
846 , p8_a37 out nocopy VARCHAR2
847 , p8_a38 out nocopy VARCHAR2
848 , p8_a39 out nocopy VARCHAR2
849 , p8_a40 out nocopy DATE
850 , p8_a41 out nocopy VARCHAR2
851 , p8_a42 out nocopy VARCHAR2
852 , p8_a43 out nocopy VARCHAR2
853 , p8_a44 out nocopy VARCHAR2
854 , p8_a45 out nocopy VARCHAR2
855 , p8_a46 out nocopy VARCHAR2
856 , p8_a47 out nocopy VARCHAR2
857 , p8_a48 out nocopy VARCHAR2
858 , p8_a49 out nocopy VARCHAR2
859 , p8_a50 out nocopy VARCHAR2
860 , p8_a51 out nocopy VARCHAR2
861 , p8_a52 out nocopy VARCHAR2
862 , p8_a53 out nocopy VARCHAR2
863 , p8_a54 out nocopy VARCHAR2
864 , p8_a55 out nocopy VARCHAR2
865 , p8_a56 out nocopy VARCHAR2
866 , p8_a57 out nocopy DATE
867 , p8_a58 out nocopy NUMBER
868 , p8_a59 out nocopy NUMBER
869 , p8_a60 out nocopy NUMBER
870 , p8_a61 out nocopy NUMBER
871 , p8_a62 out nocopy NUMBER
872 , p8_a63 out nocopy DATE
873 , p8_a64 out nocopy NUMBER
874 , p8_a65 out nocopy DATE
875 , p8_a66 out nocopy NUMBER
876 , p8_a67 out nocopy DATE
877 , p8_a68 out nocopy NUMBER
878 , p8_a69 out nocopy NUMBER
879 , p8_a70 out nocopy VARCHAR2
880 , p8_a71 out nocopy NUMBER
881 , p8_a72 out nocopy NUMBER
882 , p8_a73 out nocopy NUMBER
883 , p8_a74 out nocopy NUMBER
884 , p8_a75 out nocopy VARCHAR2
885 , p8_a76 out nocopy VARCHAR2
886 , p8_a77 out nocopy VARCHAR2
887 , p8_a78 out nocopy NUMBER
888 , p8_a79 out nocopy DATE
889 , p7_a0 NUMBER := 0-1962.0724
890 , p7_a1 NUMBER := 0-1962.0724
891 , p7_a2 VARCHAR2 := fnd_api.g_miss_char
892 , p7_a3 VARCHAR2 := fnd_api.g_miss_char
893 , p7_a4 VARCHAR2 := fnd_api.g_miss_char
894 , p7_a5 VARCHAR2 := fnd_api.g_miss_char
895 , p7_a6 VARCHAR2 := fnd_api.g_miss_char
896 , p7_a7 VARCHAR2 := fnd_api.g_miss_char
897 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
898 , p7_a9 NUMBER := 0-1962.0724
899 , p7_a10 NUMBER := 0-1962.0724
900 , p7_a11 NUMBER := 0-1962.0724
901 , p7_a12 NUMBER := 0-1962.0724
902 , p7_a13 VARCHAR2 := fnd_api.g_miss_char
903 , p7_a14 VARCHAR2 := fnd_api.g_miss_char
904 , p7_a15 VARCHAR2 := fnd_api.g_miss_char
905 , p7_a16 DATE := fnd_api.g_miss_date
906 , p7_a17 DATE := fnd_api.g_miss_date
907 , p7_a18 DATE := fnd_api.g_miss_date
908 , p7_a19 DATE := fnd_api.g_miss_date
909 , p7_a20 VARCHAR2 := fnd_api.g_miss_char
910 , p7_a21 VARCHAR2 := fnd_api.g_miss_char
911 , p7_a22 NUMBER := 0-1962.0724
912 , p7_a23 NUMBER := 0-1962.0724
913 , p7_a24 NUMBER := 0-1962.0724
914 , p7_a25 NUMBER := 0-1962.0724
915 , p7_a26 DATE := fnd_api.g_miss_date
916 , p7_a27 DATE := fnd_api.g_miss_date
917 , p7_a28 NUMBER := 0-1962.0724
918 , p7_a29 NUMBER := 0-1962.0724
919 , p7_a30 VARCHAR2 := fnd_api.g_miss_char
920 , p7_a31 DATE := fnd_api.g_miss_date
921 , p7_a32 VARCHAR2 := fnd_api.g_miss_char
922 , p7_a33 NUMBER := 0-1962.0724
923 , p7_a34 DATE := fnd_api.g_miss_date
924 , p7_a35 NUMBER := 0-1962.0724
925 , p7_a36 NUMBER := 0-1962.0724
926 , p7_a37 VARCHAR2 := fnd_api.g_miss_char
927 , p7_a38 VARCHAR2 := fnd_api.g_miss_char
928 , p7_a39 VARCHAR2 := fnd_api.g_miss_char
929 , p7_a40 DATE := fnd_api.g_miss_date
930 , p7_a41 VARCHAR2 := fnd_api.g_miss_char
931 , p7_a42 VARCHAR2 := fnd_api.g_miss_char
932 , p7_a43 VARCHAR2 := fnd_api.g_miss_char
933 , p7_a44 VARCHAR2 := fnd_api.g_miss_char
934 , p7_a45 VARCHAR2 := fnd_api.g_miss_char
935 , p7_a46 VARCHAR2 := fnd_api.g_miss_char
936 , p7_a47 VARCHAR2 := fnd_api.g_miss_char
937 , p7_a48 VARCHAR2 := fnd_api.g_miss_char
938 , p7_a49 VARCHAR2 := fnd_api.g_miss_char
939 , p7_a50 VARCHAR2 := fnd_api.g_miss_char
940 , p7_a51 VARCHAR2 := fnd_api.g_miss_char
941 , p7_a52 VARCHAR2 := fnd_api.g_miss_char
942 , p7_a53 VARCHAR2 := fnd_api.g_miss_char
943 , p7_a54 VARCHAR2 := fnd_api.g_miss_char
944 , p7_a55 VARCHAR2 := fnd_api.g_miss_char
945 , p7_a56 VARCHAR2 := fnd_api.g_miss_char
946 , p7_a57 DATE := fnd_api.g_miss_date
947 , p7_a58 NUMBER := 0-1962.0724
948 , p7_a59 NUMBER := 0-1962.0724
949 , p7_a60 NUMBER := 0-1962.0724
950 , p7_a61 NUMBER := 0-1962.0724
951 , p7_a62 NUMBER := 0-1962.0724
952 , p7_a63 DATE := fnd_api.g_miss_date
953 , p7_a64 NUMBER := 0-1962.0724
954 , p7_a65 DATE := fnd_api.g_miss_date
955 , p7_a66 NUMBER := 0-1962.0724
956 , p7_a67 DATE := fnd_api.g_miss_date
957 , p7_a68 NUMBER := 0-1962.0724
958 , p7_a69 NUMBER := 0-1962.0724
959 , p7_a70 VARCHAR2 := fnd_api.g_miss_char
960 , p7_a71 NUMBER := 0-1962.0724
961 , p7_a72 NUMBER := 0-1962.0724
962 , p7_a73 NUMBER := 0-1962.0724
963 , p7_a74 NUMBER := 0-1962.0724
964 , p7_a75 VARCHAR2 := fnd_api.g_miss_char
965 , p7_a76 VARCHAR2 := fnd_api.g_miss_char
966 , p7_a77 VARCHAR2 := fnd_api.g_miss_char
967 , p7_a78 NUMBER := 0-1962.0724
968 , p7_a79 DATE := fnd_api.g_miss_date
969 )
970
971 as
972 ddp_send_tbl okl_am_send_fulfillment_pvt.full_tbl_type;
973 ddx_send_tbl okl_am_send_fulfillment_pvt.full_tbl_type;
974 ddp_qtev_rec okl_am_send_fulfillment_pvt.qtev_rec_type;
975 ddx_qtev_rec okl_am_send_fulfillment_pvt.qtev_rec_type;
976 ddindx binary_integer; indx binary_integer;
977 begin
978
979 -- copy data to the local IN or IN-OUT args, if any
980
981
982
983
984
985 okl_am_send_fulfillment_pvt_w.rosetta_table_copy_in_p9(ddp_send_tbl, p5_a0
986 , p5_a1
987 , p5_a2
988 , p5_a3
989 , p5_a4
990 , p5_a5
991 , p5_a6
992 , p5_a7
993 , p5_a8
994 );
995
996
997 ddp_qtev_rec.id := rosetta_g_miss_num_map(p7_a0);
998 ddp_qtev_rec.object_version_number := rosetta_g_miss_num_map(p7_a1);
999 ddp_qtev_rec.sfwt_flag := p7_a2;
1000 ddp_qtev_rec.qrs_code := p7_a3;
1001 ddp_qtev_rec.qst_code := p7_a4;
1002 ddp_qtev_rec.qtp_code := p7_a5;
1003 ddp_qtev_rec.trn_code := p7_a6;
1004 ddp_qtev_rec.pop_code_end := p7_a7;
1005 ddp_qtev_rec.pop_code_early := p7_a8;
1006 ddp_qtev_rec.consolidated_qte_id := rosetta_g_miss_num_map(p7_a9);
1007 ddp_qtev_rec.khr_id := rosetta_g_miss_num_map(p7_a10);
1008 ddp_qtev_rec.art_id := rosetta_g_miss_num_map(p7_a11);
1009 ddp_qtev_rec.pdt_id := rosetta_g_miss_num_map(p7_a12);
1010 ddp_qtev_rec.early_termination_yn := p7_a13;
1011 ddp_qtev_rec.partial_yn := p7_a14;
1012 ddp_qtev_rec.preproceeds_yn := p7_a15;
1013 ddp_qtev_rec.date_requested := rosetta_g_miss_date_in_map(p7_a16);
1014 ddp_qtev_rec.date_proposal := rosetta_g_miss_date_in_map(p7_a17);
1015 ddp_qtev_rec.date_effective_to := rosetta_g_miss_date_in_map(p7_a18);
1016 ddp_qtev_rec.date_accepted := rosetta_g_miss_date_in_map(p7_a19);
1017 ddp_qtev_rec.summary_format_yn := p7_a20;
1018 ddp_qtev_rec.consolidated_yn := p7_a21;
1019 ddp_qtev_rec.principal_paydown_amount := rosetta_g_miss_num_map(p7_a22);
1020 ddp_qtev_rec.residual_amount := rosetta_g_miss_num_map(p7_a23);
1021 ddp_qtev_rec.yield := rosetta_g_miss_num_map(p7_a24);
1022 ddp_qtev_rec.rent_amount := rosetta_g_miss_num_map(p7_a25);
1023 ddp_qtev_rec.date_restructure_end := rosetta_g_miss_date_in_map(p7_a26);
1024 ddp_qtev_rec.date_restructure_start := rosetta_g_miss_date_in_map(p7_a27);
1025 ddp_qtev_rec.term := rosetta_g_miss_num_map(p7_a28);
1026 ddp_qtev_rec.purchase_percent := rosetta_g_miss_num_map(p7_a29);
1027 ddp_qtev_rec.comments := p7_a30;
1028 ddp_qtev_rec.date_due := rosetta_g_miss_date_in_map(p7_a31);
1029 ddp_qtev_rec.payment_frequency := p7_a32;
1030 ddp_qtev_rec.remaining_payments := rosetta_g_miss_num_map(p7_a33);
1031 ddp_qtev_rec.date_effective_from := rosetta_g_miss_date_in_map(p7_a34);
1032 ddp_qtev_rec.quote_number := rosetta_g_miss_num_map(p7_a35);
1033 ddp_qtev_rec.requested_by := rosetta_g_miss_num_map(p7_a36);
1034 ddp_qtev_rec.approved_yn := p7_a37;
1035 ddp_qtev_rec.accepted_yn := p7_a38;
1036 ddp_qtev_rec.payment_received_yn := p7_a39;
1037 ddp_qtev_rec.date_payment_received := rosetta_g_miss_date_in_map(p7_a40);
1038 ddp_qtev_rec.attribute_category := p7_a41;
1039 ddp_qtev_rec.attribute1 := p7_a42;
1040 ddp_qtev_rec.attribute2 := p7_a43;
1041 ddp_qtev_rec.attribute3 := p7_a44;
1042 ddp_qtev_rec.attribute4 := p7_a45;
1043 ddp_qtev_rec.attribute5 := p7_a46;
1044 ddp_qtev_rec.attribute6 := p7_a47;
1045 ddp_qtev_rec.attribute7 := p7_a48;
1046 ddp_qtev_rec.attribute8 := p7_a49;
1047 ddp_qtev_rec.attribute9 := p7_a50;
1048 ddp_qtev_rec.attribute10 := p7_a51;
1049 ddp_qtev_rec.attribute11 := p7_a52;
1050 ddp_qtev_rec.attribute12 := p7_a53;
1051 ddp_qtev_rec.attribute13 := p7_a54;
1052 ddp_qtev_rec.attribute14 := p7_a55;
1053 ddp_qtev_rec.attribute15 := p7_a56;
1054 ddp_qtev_rec.date_approved := rosetta_g_miss_date_in_map(p7_a57);
1055 ddp_qtev_rec.approved_by := rosetta_g_miss_num_map(p7_a58);
1056 ddp_qtev_rec.org_id := rosetta_g_miss_num_map(p7_a59);
1057 ddp_qtev_rec.request_id := rosetta_g_miss_num_map(p7_a60);
1058 ddp_qtev_rec.program_application_id := rosetta_g_miss_num_map(p7_a61);
1059 ddp_qtev_rec.program_id := rosetta_g_miss_num_map(p7_a62);
1060 ddp_qtev_rec.program_update_date := rosetta_g_miss_date_in_map(p7_a63);
1061 ddp_qtev_rec.created_by := rosetta_g_miss_num_map(p7_a64);
1062 ddp_qtev_rec.creation_date := rosetta_g_miss_date_in_map(p7_a65);
1063 ddp_qtev_rec.last_updated_by := rosetta_g_miss_num_map(p7_a66);
1064 ddp_qtev_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a67);
1065 ddp_qtev_rec.last_update_login := rosetta_g_miss_num_map(p7_a68);
1066 ddp_qtev_rec.purchase_amount := rosetta_g_miss_num_map(p7_a69);
1067 ddp_qtev_rec.purchase_formula := p7_a70;
1068 ddp_qtev_rec.asset_value := rosetta_g_miss_num_map(p7_a71);
1069 ddp_qtev_rec.residual_value := rosetta_g_miss_num_map(p7_a72);
1070 ddp_qtev_rec.unbilled_receivables := rosetta_g_miss_num_map(p7_a73);
1071 ddp_qtev_rec.gain_loss := rosetta_g_miss_num_map(p7_a74);
1072 ddp_qtev_rec.currency_code := p7_a75;
1073 ddp_qtev_rec.currency_conversion_code := p7_a76;
1074 ddp_qtev_rec.currency_conversion_type := p7_a77;
1075 ddp_qtev_rec.currency_conversion_rate := rosetta_g_miss_num_map(p7_a78);
1076 ddp_qtev_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p7_a79);
1077
1078
1079 -- here's the delegated call to the old PL/SQL routine
1080 okl_am_send_fulfillment_pvt.send_repurchase_quote(p_api_version,
1081 p_init_msg_list,
1082 x_return_status,
1083 x_msg_count,
1084 x_msg_data,
1085 ddp_send_tbl,
1086 ddx_send_tbl,
1087 ddp_qtev_rec,
1088 ddx_qtev_rec);
1089
1090 -- copy data back from the local variables to OUT or IN-OUT args, if any
1091
1092
1093
1094
1095
1096
1097 okl_am_send_fulfillment_pvt_w.rosetta_table_copy_out_p9(ddx_send_tbl, p6_a0
1098 , p6_a1
1099 , p6_a2
1100 , p6_a3
1101 , p6_a4
1102 , p6_a5
1103 , p6_a6
1104 , p6_a7
1105 , p6_a8
1106 );
1107
1108
1109 p8_a0 := rosetta_g_miss_num_map(ddx_qtev_rec.id);
1110 p8_a1 := rosetta_g_miss_num_map(ddx_qtev_rec.object_version_number);
1111 p8_a2 := ddx_qtev_rec.sfwt_flag;
1112 p8_a3 := ddx_qtev_rec.qrs_code;
1113 p8_a4 := ddx_qtev_rec.qst_code;
1114 p8_a5 := ddx_qtev_rec.qtp_code;
1115 p8_a6 := ddx_qtev_rec.trn_code;
1116 p8_a7 := ddx_qtev_rec.pop_code_end;
1117 p8_a8 := ddx_qtev_rec.pop_code_early;
1118 p8_a9 := rosetta_g_miss_num_map(ddx_qtev_rec.consolidated_qte_id);
1119 p8_a10 := rosetta_g_miss_num_map(ddx_qtev_rec.khr_id);
1120 p8_a11 := rosetta_g_miss_num_map(ddx_qtev_rec.art_id);
1121 p8_a12 := rosetta_g_miss_num_map(ddx_qtev_rec.pdt_id);
1122 p8_a13 := ddx_qtev_rec.early_termination_yn;
1123 p8_a14 := ddx_qtev_rec.partial_yn;
1124 p8_a15 := ddx_qtev_rec.preproceeds_yn;
1125 p8_a16 := ddx_qtev_rec.date_requested;
1126 p8_a17 := ddx_qtev_rec.date_proposal;
1127 p8_a18 := ddx_qtev_rec.date_effective_to;
1128 p8_a19 := ddx_qtev_rec.date_accepted;
1129 p8_a20 := ddx_qtev_rec.summary_format_yn;
1130 p8_a21 := ddx_qtev_rec.consolidated_yn;
1131 p8_a22 := rosetta_g_miss_num_map(ddx_qtev_rec.principal_paydown_amount);
1132 p8_a23 := rosetta_g_miss_num_map(ddx_qtev_rec.residual_amount);
1133 p8_a24 := rosetta_g_miss_num_map(ddx_qtev_rec.yield);
1134 p8_a25 := rosetta_g_miss_num_map(ddx_qtev_rec.rent_amount);
1135 p8_a26 := ddx_qtev_rec.date_restructure_end;
1136 p8_a27 := ddx_qtev_rec.date_restructure_start;
1137 p8_a28 := rosetta_g_miss_num_map(ddx_qtev_rec.term);
1138 p8_a29 := rosetta_g_miss_num_map(ddx_qtev_rec.purchase_percent);
1139 p8_a30 := ddx_qtev_rec.comments;
1140 p8_a31 := ddx_qtev_rec.date_due;
1141 p8_a32 := ddx_qtev_rec.payment_frequency;
1142 p8_a33 := rosetta_g_miss_num_map(ddx_qtev_rec.remaining_payments);
1143 p8_a34 := ddx_qtev_rec.date_effective_from;
1144 p8_a35 := rosetta_g_miss_num_map(ddx_qtev_rec.quote_number);
1145 p8_a36 := rosetta_g_miss_num_map(ddx_qtev_rec.requested_by);
1146 p8_a37 := ddx_qtev_rec.approved_yn;
1147 p8_a38 := ddx_qtev_rec.accepted_yn;
1148 p8_a39 := ddx_qtev_rec.payment_received_yn;
1149 p8_a40 := ddx_qtev_rec.date_payment_received;
1150 p8_a41 := ddx_qtev_rec.attribute_category;
1151 p8_a42 := ddx_qtev_rec.attribute1;
1152 p8_a43 := ddx_qtev_rec.attribute2;
1153 p8_a44 := ddx_qtev_rec.attribute3;
1154 p8_a45 := ddx_qtev_rec.attribute4;
1155 p8_a46 := ddx_qtev_rec.attribute5;
1156 p8_a47 := ddx_qtev_rec.attribute6;
1157 p8_a48 := ddx_qtev_rec.attribute7;
1158 p8_a49 := ddx_qtev_rec.attribute8;
1159 p8_a50 := ddx_qtev_rec.attribute9;
1160 p8_a51 := ddx_qtev_rec.attribute10;
1161 p8_a52 := ddx_qtev_rec.attribute11;
1162 p8_a53 := ddx_qtev_rec.attribute12;
1163 p8_a54 := ddx_qtev_rec.attribute13;
1164 p8_a55 := ddx_qtev_rec.attribute14;
1165 p8_a56 := ddx_qtev_rec.attribute15;
1166 p8_a57 := ddx_qtev_rec.date_approved;
1167 p8_a58 := rosetta_g_miss_num_map(ddx_qtev_rec.approved_by);
1168 p8_a59 := rosetta_g_miss_num_map(ddx_qtev_rec.org_id);
1169 p8_a60 := rosetta_g_miss_num_map(ddx_qtev_rec.request_id);
1170 p8_a61 := rosetta_g_miss_num_map(ddx_qtev_rec.program_application_id);
1171 p8_a62 := rosetta_g_miss_num_map(ddx_qtev_rec.program_id);
1172 p8_a63 := ddx_qtev_rec.program_update_date;
1173 p8_a64 := rosetta_g_miss_num_map(ddx_qtev_rec.created_by);
1174 p8_a65 := ddx_qtev_rec.creation_date;
1175 p8_a66 := rosetta_g_miss_num_map(ddx_qtev_rec.last_updated_by);
1176 p8_a67 := ddx_qtev_rec.last_update_date;
1177 p8_a68 := rosetta_g_miss_num_map(ddx_qtev_rec.last_update_login);
1178 p8_a69 := rosetta_g_miss_num_map(ddx_qtev_rec.purchase_amount);
1179 p8_a70 := ddx_qtev_rec.purchase_formula;
1180 p8_a71 := rosetta_g_miss_num_map(ddx_qtev_rec.asset_value);
1181 p8_a72 := rosetta_g_miss_num_map(ddx_qtev_rec.residual_value);
1182 p8_a73 := rosetta_g_miss_num_map(ddx_qtev_rec.unbilled_receivables);
1183 p8_a74 := rosetta_g_miss_num_map(ddx_qtev_rec.gain_loss);
1184 p8_a75 := ddx_qtev_rec.currency_code;
1185 p8_a76 := ddx_qtev_rec.currency_conversion_code;
1186 p8_a77 := ddx_qtev_rec.currency_conversion_type;
1187 p8_a78 := rosetta_g_miss_num_map(ddx_qtev_rec.currency_conversion_rate);
1188 p8_a79 := ddx_qtev_rec.currency_conversion_date;
1189 end;
1190
1191 procedure send_restructure_quote(p_api_version NUMBER
1192 , p_init_msg_list VARCHAR2
1193 , x_return_status out nocopy VARCHAR2
1194 , x_msg_count out nocopy NUMBER
1195 , x_msg_data out nocopy VARCHAR2
1196 , p5_a0 JTF_VARCHAR2_TABLE_200
1197 , p5_a1 JTF_NUMBER_TABLE
1198 , p5_a2 JTF_NUMBER_TABLE
1199 , p5_a3 JTF_VARCHAR2_TABLE_200
1200 , p5_a4 JTF_VARCHAR2_TABLE_200
1201 , p5_a5 JTF_VARCHAR2_TABLE_200
1202 , p5_a6 JTF_VARCHAR2_TABLE_200
1203 , p5_a7 JTF_VARCHAR2_TABLE_200
1204 , p5_a8 JTF_VARCHAR2_TABLE_200
1205 , p6_a0 out nocopy JTF_VARCHAR2_TABLE_200
1206 , p6_a1 out nocopy JTF_NUMBER_TABLE
1207 , p6_a2 out nocopy JTF_NUMBER_TABLE
1208 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_200
1209 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_200
1210 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_200
1211 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_200
1212 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_200
1213 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_200
1214 , p8_a0 out nocopy NUMBER
1215 , p8_a1 out nocopy NUMBER
1216 , p8_a2 out nocopy VARCHAR2
1217 , p8_a3 out nocopy VARCHAR2
1218 , p8_a4 out nocopy VARCHAR2
1219 , p8_a5 out nocopy VARCHAR2
1220 , p8_a6 out nocopy VARCHAR2
1221 , p8_a7 out nocopy VARCHAR2
1222 , p8_a8 out nocopy VARCHAR2
1223 , p8_a9 out nocopy NUMBER
1224 , p8_a10 out nocopy NUMBER
1225 , p8_a11 out nocopy NUMBER
1226 , p8_a12 out nocopy NUMBER
1227 , p8_a13 out nocopy VARCHAR2
1228 , p8_a14 out nocopy VARCHAR2
1229 , p8_a15 out nocopy VARCHAR2
1230 , p8_a16 out nocopy DATE
1231 , p8_a17 out nocopy DATE
1232 , p8_a18 out nocopy DATE
1233 , p8_a19 out nocopy DATE
1234 , p8_a20 out nocopy VARCHAR2
1235 , p8_a21 out nocopy VARCHAR2
1236 , p8_a22 out nocopy NUMBER
1237 , p8_a23 out nocopy NUMBER
1238 , p8_a24 out nocopy NUMBER
1239 , p8_a25 out nocopy NUMBER
1240 , p8_a26 out nocopy DATE
1241 , p8_a27 out nocopy DATE
1242 , p8_a28 out nocopy NUMBER
1243 , p8_a29 out nocopy NUMBER
1244 , p8_a30 out nocopy VARCHAR2
1245 , p8_a31 out nocopy DATE
1246 , p8_a32 out nocopy VARCHAR2
1247 , p8_a33 out nocopy NUMBER
1248 , p8_a34 out nocopy DATE
1249 , p8_a35 out nocopy NUMBER
1250 , p8_a36 out nocopy NUMBER
1251 , p8_a37 out nocopy VARCHAR2
1252 , p8_a38 out nocopy VARCHAR2
1253 , p8_a39 out nocopy VARCHAR2
1254 , p8_a40 out nocopy DATE
1255 , p8_a41 out nocopy VARCHAR2
1256 , p8_a42 out nocopy VARCHAR2
1257 , p8_a43 out nocopy VARCHAR2
1258 , p8_a44 out nocopy VARCHAR2
1259 , p8_a45 out nocopy VARCHAR2
1260 , p8_a46 out nocopy VARCHAR2
1261 , p8_a47 out nocopy VARCHAR2
1262 , p8_a48 out nocopy VARCHAR2
1263 , p8_a49 out nocopy VARCHAR2
1264 , p8_a50 out nocopy VARCHAR2
1265 , p8_a51 out nocopy VARCHAR2
1266 , p8_a52 out nocopy VARCHAR2
1267 , p8_a53 out nocopy VARCHAR2
1268 , p8_a54 out nocopy VARCHAR2
1269 , p8_a55 out nocopy VARCHAR2
1270 , p8_a56 out nocopy VARCHAR2
1271 , p8_a57 out nocopy DATE
1272 , p8_a58 out nocopy NUMBER
1273 , p8_a59 out nocopy NUMBER
1274 , p8_a60 out nocopy NUMBER
1275 , p8_a61 out nocopy NUMBER
1276 , p8_a62 out nocopy NUMBER
1277 , p8_a63 out nocopy DATE
1278 , p8_a64 out nocopy NUMBER
1279 , p8_a65 out nocopy DATE
1280 , p8_a66 out nocopy NUMBER
1281 , p8_a67 out nocopy DATE
1282 , p8_a68 out nocopy NUMBER
1283 , p8_a69 out nocopy NUMBER
1284 , p8_a70 out nocopy VARCHAR2
1285 , p8_a71 out nocopy NUMBER
1286 , p8_a72 out nocopy NUMBER
1287 , p8_a73 out nocopy NUMBER
1288 , p8_a74 out nocopy NUMBER
1289 , p8_a75 out nocopy VARCHAR2
1290 , p8_a76 out nocopy VARCHAR2
1291 , p8_a77 out nocopy VARCHAR2
1292 , p8_a78 out nocopy NUMBER
1293 , p8_a79 out nocopy DATE
1294 , p7_a0 NUMBER := 0-1962.0724
1295 , p7_a1 NUMBER := 0-1962.0724
1296 , p7_a2 VARCHAR2 := fnd_api.g_miss_char
1297 , p7_a3 VARCHAR2 := fnd_api.g_miss_char
1298 , p7_a4 VARCHAR2 := fnd_api.g_miss_char
1299 , p7_a5 VARCHAR2 := fnd_api.g_miss_char
1300 , p7_a6 VARCHAR2 := fnd_api.g_miss_char
1301 , p7_a7 VARCHAR2 := fnd_api.g_miss_char
1302 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
1303 , p7_a9 NUMBER := 0-1962.0724
1304 , p7_a10 NUMBER := 0-1962.0724
1305 , p7_a11 NUMBER := 0-1962.0724
1306 , p7_a12 NUMBER := 0-1962.0724
1307 , p7_a13 VARCHAR2 := fnd_api.g_miss_char
1308 , p7_a14 VARCHAR2 := fnd_api.g_miss_char
1309 , p7_a15 VARCHAR2 := fnd_api.g_miss_char
1310 , p7_a16 DATE := fnd_api.g_miss_date
1311 , p7_a17 DATE := fnd_api.g_miss_date
1312 , p7_a18 DATE := fnd_api.g_miss_date
1313 , p7_a19 DATE := fnd_api.g_miss_date
1314 , p7_a20 VARCHAR2 := fnd_api.g_miss_char
1315 , p7_a21 VARCHAR2 := fnd_api.g_miss_char
1316 , p7_a22 NUMBER := 0-1962.0724
1317 , p7_a23 NUMBER := 0-1962.0724
1318 , p7_a24 NUMBER := 0-1962.0724
1319 , p7_a25 NUMBER := 0-1962.0724
1320 , p7_a26 DATE := fnd_api.g_miss_date
1321 , p7_a27 DATE := fnd_api.g_miss_date
1322 , p7_a28 NUMBER := 0-1962.0724
1323 , p7_a29 NUMBER := 0-1962.0724
1324 , p7_a30 VARCHAR2 := fnd_api.g_miss_char
1325 , p7_a31 DATE := fnd_api.g_miss_date
1326 , p7_a32 VARCHAR2 := fnd_api.g_miss_char
1327 , p7_a33 NUMBER := 0-1962.0724
1328 , p7_a34 DATE := fnd_api.g_miss_date
1329 , p7_a35 NUMBER := 0-1962.0724
1330 , p7_a36 NUMBER := 0-1962.0724
1331 , p7_a37 VARCHAR2 := fnd_api.g_miss_char
1332 , p7_a38 VARCHAR2 := fnd_api.g_miss_char
1333 , p7_a39 VARCHAR2 := fnd_api.g_miss_char
1334 , p7_a40 DATE := fnd_api.g_miss_date
1335 , p7_a41 VARCHAR2 := fnd_api.g_miss_char
1336 , p7_a42 VARCHAR2 := fnd_api.g_miss_char
1337 , p7_a43 VARCHAR2 := fnd_api.g_miss_char
1338 , p7_a44 VARCHAR2 := fnd_api.g_miss_char
1339 , p7_a45 VARCHAR2 := fnd_api.g_miss_char
1340 , p7_a46 VARCHAR2 := fnd_api.g_miss_char
1341 , p7_a47 VARCHAR2 := fnd_api.g_miss_char
1342 , p7_a48 VARCHAR2 := fnd_api.g_miss_char
1343 , p7_a49 VARCHAR2 := fnd_api.g_miss_char
1344 , p7_a50 VARCHAR2 := fnd_api.g_miss_char
1345 , p7_a51 VARCHAR2 := fnd_api.g_miss_char
1346 , p7_a52 VARCHAR2 := fnd_api.g_miss_char
1347 , p7_a53 VARCHAR2 := fnd_api.g_miss_char
1348 , p7_a54 VARCHAR2 := fnd_api.g_miss_char
1349 , p7_a55 VARCHAR2 := fnd_api.g_miss_char
1350 , p7_a56 VARCHAR2 := fnd_api.g_miss_char
1351 , p7_a57 DATE := fnd_api.g_miss_date
1352 , p7_a58 NUMBER := 0-1962.0724
1353 , p7_a59 NUMBER := 0-1962.0724
1354 , p7_a60 NUMBER := 0-1962.0724
1355 , p7_a61 NUMBER := 0-1962.0724
1356 , p7_a62 NUMBER := 0-1962.0724
1357 , p7_a63 DATE := fnd_api.g_miss_date
1358 , p7_a64 NUMBER := 0-1962.0724
1359 , p7_a65 DATE := fnd_api.g_miss_date
1360 , p7_a66 NUMBER := 0-1962.0724
1361 , p7_a67 DATE := fnd_api.g_miss_date
1362 , p7_a68 NUMBER := 0-1962.0724
1363 , p7_a69 NUMBER := 0-1962.0724
1364 , p7_a70 VARCHAR2 := fnd_api.g_miss_char
1365 , p7_a71 NUMBER := 0-1962.0724
1366 , p7_a72 NUMBER := 0-1962.0724
1367 , p7_a73 NUMBER := 0-1962.0724
1368 , p7_a74 NUMBER := 0-1962.0724
1369 , p7_a75 VARCHAR2 := fnd_api.g_miss_char
1370 , p7_a76 VARCHAR2 := fnd_api.g_miss_char
1371 , p7_a77 VARCHAR2 := fnd_api.g_miss_char
1372 , p7_a78 NUMBER := 0-1962.0724
1373 , p7_a79 DATE := fnd_api.g_miss_date
1374 )
1375
1376 as
1377 ddp_send_tbl okl_am_send_fulfillment_pvt.full_tbl_type;
1378 ddx_send_tbl okl_am_send_fulfillment_pvt.full_tbl_type;
1379 ddp_qtev_rec okl_am_send_fulfillment_pvt.qtev_rec_type;
1380 ddx_qtev_rec okl_am_send_fulfillment_pvt.qtev_rec_type;
1381 ddindx binary_integer; indx binary_integer;
1382 begin
1383
1384 -- copy data to the local IN or IN-OUT args, if any
1385
1386
1387
1388
1389
1390 okl_am_send_fulfillment_pvt_w.rosetta_table_copy_in_p9(ddp_send_tbl, p5_a0
1391 , p5_a1
1392 , p5_a2
1393 , p5_a3
1394 , p5_a4
1395 , p5_a5
1396 , p5_a6
1397 , p5_a7
1398 , p5_a8
1399 );
1400
1401
1402 ddp_qtev_rec.id := rosetta_g_miss_num_map(p7_a0);
1403 ddp_qtev_rec.object_version_number := rosetta_g_miss_num_map(p7_a1);
1404 ddp_qtev_rec.sfwt_flag := p7_a2;
1405 ddp_qtev_rec.qrs_code := p7_a3;
1406 ddp_qtev_rec.qst_code := p7_a4;
1407 ddp_qtev_rec.qtp_code := p7_a5;
1408 ddp_qtev_rec.trn_code := p7_a6;
1409 ddp_qtev_rec.pop_code_end := p7_a7;
1410 ddp_qtev_rec.pop_code_early := p7_a8;
1411 ddp_qtev_rec.consolidated_qte_id := rosetta_g_miss_num_map(p7_a9);
1412 ddp_qtev_rec.khr_id := rosetta_g_miss_num_map(p7_a10);
1413 ddp_qtev_rec.art_id := rosetta_g_miss_num_map(p7_a11);
1414 ddp_qtev_rec.pdt_id := rosetta_g_miss_num_map(p7_a12);
1415 ddp_qtev_rec.early_termination_yn := p7_a13;
1416 ddp_qtev_rec.partial_yn := p7_a14;
1417 ddp_qtev_rec.preproceeds_yn := p7_a15;
1418 ddp_qtev_rec.date_requested := rosetta_g_miss_date_in_map(p7_a16);
1419 ddp_qtev_rec.date_proposal := rosetta_g_miss_date_in_map(p7_a17);
1420 ddp_qtev_rec.date_effective_to := rosetta_g_miss_date_in_map(p7_a18);
1421 ddp_qtev_rec.date_accepted := rosetta_g_miss_date_in_map(p7_a19);
1422 ddp_qtev_rec.summary_format_yn := p7_a20;
1423 ddp_qtev_rec.consolidated_yn := p7_a21;
1424 ddp_qtev_rec.principal_paydown_amount := rosetta_g_miss_num_map(p7_a22);
1425 ddp_qtev_rec.residual_amount := rosetta_g_miss_num_map(p7_a23);
1426 ddp_qtev_rec.yield := rosetta_g_miss_num_map(p7_a24);
1427 ddp_qtev_rec.rent_amount := rosetta_g_miss_num_map(p7_a25);
1428 ddp_qtev_rec.date_restructure_end := rosetta_g_miss_date_in_map(p7_a26);
1429 ddp_qtev_rec.date_restructure_start := rosetta_g_miss_date_in_map(p7_a27);
1430 ddp_qtev_rec.term := rosetta_g_miss_num_map(p7_a28);
1431 ddp_qtev_rec.purchase_percent := rosetta_g_miss_num_map(p7_a29);
1432 ddp_qtev_rec.comments := p7_a30;
1433 ddp_qtev_rec.date_due := rosetta_g_miss_date_in_map(p7_a31);
1434 ddp_qtev_rec.payment_frequency := p7_a32;
1435 ddp_qtev_rec.remaining_payments := rosetta_g_miss_num_map(p7_a33);
1436 ddp_qtev_rec.date_effective_from := rosetta_g_miss_date_in_map(p7_a34);
1437 ddp_qtev_rec.quote_number := rosetta_g_miss_num_map(p7_a35);
1438 ddp_qtev_rec.requested_by := rosetta_g_miss_num_map(p7_a36);
1439 ddp_qtev_rec.approved_yn := p7_a37;
1440 ddp_qtev_rec.accepted_yn := p7_a38;
1441 ddp_qtev_rec.payment_received_yn := p7_a39;
1442 ddp_qtev_rec.date_payment_received := rosetta_g_miss_date_in_map(p7_a40);
1443 ddp_qtev_rec.attribute_category := p7_a41;
1444 ddp_qtev_rec.attribute1 := p7_a42;
1445 ddp_qtev_rec.attribute2 := p7_a43;
1446 ddp_qtev_rec.attribute3 := p7_a44;
1447 ddp_qtev_rec.attribute4 := p7_a45;
1448 ddp_qtev_rec.attribute5 := p7_a46;
1449 ddp_qtev_rec.attribute6 := p7_a47;
1450 ddp_qtev_rec.attribute7 := p7_a48;
1451 ddp_qtev_rec.attribute8 := p7_a49;
1452 ddp_qtev_rec.attribute9 := p7_a50;
1453 ddp_qtev_rec.attribute10 := p7_a51;
1454 ddp_qtev_rec.attribute11 := p7_a52;
1455 ddp_qtev_rec.attribute12 := p7_a53;
1456 ddp_qtev_rec.attribute13 := p7_a54;
1457 ddp_qtev_rec.attribute14 := p7_a55;
1458 ddp_qtev_rec.attribute15 := p7_a56;
1459 ddp_qtev_rec.date_approved := rosetta_g_miss_date_in_map(p7_a57);
1460 ddp_qtev_rec.approved_by := rosetta_g_miss_num_map(p7_a58);
1461 ddp_qtev_rec.org_id := rosetta_g_miss_num_map(p7_a59);
1462 ddp_qtev_rec.request_id := rosetta_g_miss_num_map(p7_a60);
1463 ddp_qtev_rec.program_application_id := rosetta_g_miss_num_map(p7_a61);
1464 ddp_qtev_rec.program_id := rosetta_g_miss_num_map(p7_a62);
1465 ddp_qtev_rec.program_update_date := rosetta_g_miss_date_in_map(p7_a63);
1466 ddp_qtev_rec.created_by := rosetta_g_miss_num_map(p7_a64);
1467 ddp_qtev_rec.creation_date := rosetta_g_miss_date_in_map(p7_a65);
1468 ddp_qtev_rec.last_updated_by := rosetta_g_miss_num_map(p7_a66);
1469 ddp_qtev_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a67);
1470 ddp_qtev_rec.last_update_login := rosetta_g_miss_num_map(p7_a68);
1471 ddp_qtev_rec.purchase_amount := rosetta_g_miss_num_map(p7_a69);
1472 ddp_qtev_rec.purchase_formula := p7_a70;
1473 ddp_qtev_rec.asset_value := rosetta_g_miss_num_map(p7_a71);
1474 ddp_qtev_rec.residual_value := rosetta_g_miss_num_map(p7_a72);
1475 ddp_qtev_rec.unbilled_receivables := rosetta_g_miss_num_map(p7_a73);
1476 ddp_qtev_rec.gain_loss := rosetta_g_miss_num_map(p7_a74);
1477 ddp_qtev_rec.currency_code := p7_a75;
1478 ddp_qtev_rec.currency_conversion_code := p7_a76;
1479 ddp_qtev_rec.currency_conversion_type := p7_a77;
1480 ddp_qtev_rec.currency_conversion_rate := rosetta_g_miss_num_map(p7_a78);
1481 ddp_qtev_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p7_a79);
1482
1483
1484 -- here's the delegated call to the old PL/SQL routine
1485 okl_am_send_fulfillment_pvt.send_restructure_quote(p_api_version,
1486 p_init_msg_list,
1487 x_return_status,
1488 x_msg_count,
1489 x_msg_data,
1490 ddp_send_tbl,
1491 ddx_send_tbl,
1492 ddp_qtev_rec,
1493 ddx_qtev_rec);
1494
1495 -- copy data back from the local variables to OUT or IN-OUT args, if any
1496
1497
1498
1499
1500
1501
1502 okl_am_send_fulfillment_pvt_w.rosetta_table_copy_out_p9(ddx_send_tbl, p6_a0
1503 , p6_a1
1504 , p6_a2
1505 , p6_a3
1506 , p6_a4
1507 , p6_a5
1508 , p6_a6
1509 , p6_a7
1510 , p6_a8
1511 );
1512
1513
1514 p8_a0 := rosetta_g_miss_num_map(ddx_qtev_rec.id);
1515 p8_a1 := rosetta_g_miss_num_map(ddx_qtev_rec.object_version_number);
1516 p8_a2 := ddx_qtev_rec.sfwt_flag;
1517 p8_a3 := ddx_qtev_rec.qrs_code;
1518 p8_a4 := ddx_qtev_rec.qst_code;
1519 p8_a5 := ddx_qtev_rec.qtp_code;
1520 p8_a6 := ddx_qtev_rec.trn_code;
1521 p8_a7 := ddx_qtev_rec.pop_code_end;
1522 p8_a8 := ddx_qtev_rec.pop_code_early;
1523 p8_a9 := rosetta_g_miss_num_map(ddx_qtev_rec.consolidated_qte_id);
1524 p8_a10 := rosetta_g_miss_num_map(ddx_qtev_rec.khr_id);
1525 p8_a11 := rosetta_g_miss_num_map(ddx_qtev_rec.art_id);
1526 p8_a12 := rosetta_g_miss_num_map(ddx_qtev_rec.pdt_id);
1527 p8_a13 := ddx_qtev_rec.early_termination_yn;
1528 p8_a14 := ddx_qtev_rec.partial_yn;
1529 p8_a15 := ddx_qtev_rec.preproceeds_yn;
1530 p8_a16 := ddx_qtev_rec.date_requested;
1531 p8_a17 := ddx_qtev_rec.date_proposal;
1532 p8_a18 := ddx_qtev_rec.date_effective_to;
1533 p8_a19 := ddx_qtev_rec.date_accepted;
1534 p8_a20 := ddx_qtev_rec.summary_format_yn;
1535 p8_a21 := ddx_qtev_rec.consolidated_yn;
1536 p8_a22 := rosetta_g_miss_num_map(ddx_qtev_rec.principal_paydown_amount);
1537 p8_a23 := rosetta_g_miss_num_map(ddx_qtev_rec.residual_amount);
1538 p8_a24 := rosetta_g_miss_num_map(ddx_qtev_rec.yield);
1539 p8_a25 := rosetta_g_miss_num_map(ddx_qtev_rec.rent_amount);
1540 p8_a26 := ddx_qtev_rec.date_restructure_end;
1541 p8_a27 := ddx_qtev_rec.date_restructure_start;
1542 p8_a28 := rosetta_g_miss_num_map(ddx_qtev_rec.term);
1543 p8_a29 := rosetta_g_miss_num_map(ddx_qtev_rec.purchase_percent);
1544 p8_a30 := ddx_qtev_rec.comments;
1545 p8_a31 := ddx_qtev_rec.date_due;
1546 p8_a32 := ddx_qtev_rec.payment_frequency;
1547 p8_a33 := rosetta_g_miss_num_map(ddx_qtev_rec.remaining_payments);
1548 p8_a34 := ddx_qtev_rec.date_effective_from;
1549 p8_a35 := rosetta_g_miss_num_map(ddx_qtev_rec.quote_number);
1550 p8_a36 := rosetta_g_miss_num_map(ddx_qtev_rec.requested_by);
1551 p8_a37 := ddx_qtev_rec.approved_yn;
1552 p8_a38 := ddx_qtev_rec.accepted_yn;
1553 p8_a39 := ddx_qtev_rec.payment_received_yn;
1554 p8_a40 := ddx_qtev_rec.date_payment_received;
1555 p8_a41 := ddx_qtev_rec.attribute_category;
1556 p8_a42 := ddx_qtev_rec.attribute1;
1557 p8_a43 := ddx_qtev_rec.attribute2;
1558 p8_a44 := ddx_qtev_rec.attribute3;
1559 p8_a45 := ddx_qtev_rec.attribute4;
1560 p8_a46 := ddx_qtev_rec.attribute5;
1561 p8_a47 := ddx_qtev_rec.attribute6;
1562 p8_a48 := ddx_qtev_rec.attribute7;
1563 p8_a49 := ddx_qtev_rec.attribute8;
1564 p8_a50 := ddx_qtev_rec.attribute9;
1565 p8_a51 := ddx_qtev_rec.attribute10;
1566 p8_a52 := ddx_qtev_rec.attribute11;
1567 p8_a53 := ddx_qtev_rec.attribute12;
1568 p8_a54 := ddx_qtev_rec.attribute13;
1569 p8_a55 := ddx_qtev_rec.attribute14;
1570 p8_a56 := ddx_qtev_rec.attribute15;
1571 p8_a57 := ddx_qtev_rec.date_approved;
1572 p8_a58 := rosetta_g_miss_num_map(ddx_qtev_rec.approved_by);
1573 p8_a59 := rosetta_g_miss_num_map(ddx_qtev_rec.org_id);
1574 p8_a60 := rosetta_g_miss_num_map(ddx_qtev_rec.request_id);
1575 p8_a61 := rosetta_g_miss_num_map(ddx_qtev_rec.program_application_id);
1576 p8_a62 := rosetta_g_miss_num_map(ddx_qtev_rec.program_id);
1577 p8_a63 := ddx_qtev_rec.program_update_date;
1578 p8_a64 := rosetta_g_miss_num_map(ddx_qtev_rec.created_by);
1579 p8_a65 := ddx_qtev_rec.creation_date;
1580 p8_a66 := rosetta_g_miss_num_map(ddx_qtev_rec.last_updated_by);
1581 p8_a67 := ddx_qtev_rec.last_update_date;
1582 p8_a68 := rosetta_g_miss_num_map(ddx_qtev_rec.last_update_login);
1583 p8_a69 := rosetta_g_miss_num_map(ddx_qtev_rec.purchase_amount);
1584 p8_a70 := ddx_qtev_rec.purchase_formula;
1585 p8_a71 := rosetta_g_miss_num_map(ddx_qtev_rec.asset_value);
1586 p8_a72 := rosetta_g_miss_num_map(ddx_qtev_rec.residual_value);
1587 p8_a73 := rosetta_g_miss_num_map(ddx_qtev_rec.unbilled_receivables);
1588 p8_a74 := rosetta_g_miss_num_map(ddx_qtev_rec.gain_loss);
1589 p8_a75 := ddx_qtev_rec.currency_code;
1590 p8_a76 := ddx_qtev_rec.currency_conversion_code;
1591 p8_a77 := ddx_qtev_rec.currency_conversion_type;
1592 p8_a78 := rosetta_g_miss_num_map(ddx_qtev_rec.currency_conversion_rate);
1593 p8_a79 := ddx_qtev_rec.currency_conversion_date;
1594 end;
1595
1596 procedure send_consolidate_quote(p_api_version NUMBER
1597 , p_init_msg_list VARCHAR2
1598 , x_return_status out nocopy VARCHAR2
1599 , x_msg_count out nocopy NUMBER
1600 , x_msg_data out nocopy VARCHAR2
1601 , p5_a0 JTF_VARCHAR2_TABLE_200
1602 , p5_a1 JTF_NUMBER_TABLE
1603 , p5_a2 JTF_NUMBER_TABLE
1604 , p5_a3 JTF_VARCHAR2_TABLE_200
1605 , p5_a4 JTF_VARCHAR2_TABLE_200
1606 , p5_a5 JTF_VARCHAR2_TABLE_200
1607 , p5_a6 JTF_VARCHAR2_TABLE_200
1608 , p5_a7 JTF_VARCHAR2_TABLE_200
1609 , p5_a8 JTF_VARCHAR2_TABLE_200
1610 , p6_a0 out nocopy JTF_VARCHAR2_TABLE_200
1611 , p6_a1 out nocopy JTF_NUMBER_TABLE
1612 , p6_a2 out nocopy JTF_NUMBER_TABLE
1613 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_200
1614 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_200
1615 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_200
1616 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_200
1617 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_200
1618 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_200
1619 , p8_a0 out nocopy NUMBER
1620 , p8_a1 out nocopy NUMBER
1621 , p8_a2 out nocopy VARCHAR2
1622 , p8_a3 out nocopy VARCHAR2
1623 , p8_a4 out nocopy VARCHAR2
1624 , p8_a5 out nocopy VARCHAR2
1625 , p8_a6 out nocopy VARCHAR2
1626 , p8_a7 out nocopy VARCHAR2
1627 , p8_a8 out nocopy VARCHAR2
1628 , p8_a9 out nocopy NUMBER
1629 , p8_a10 out nocopy NUMBER
1630 , p8_a11 out nocopy NUMBER
1631 , p8_a12 out nocopy NUMBER
1632 , p8_a13 out nocopy VARCHAR2
1633 , p8_a14 out nocopy VARCHAR2
1634 , p8_a15 out nocopy VARCHAR2
1635 , p8_a16 out nocopy DATE
1636 , p8_a17 out nocopy DATE
1637 , p8_a18 out nocopy DATE
1638 , p8_a19 out nocopy DATE
1639 , p8_a20 out nocopy VARCHAR2
1640 , p8_a21 out nocopy VARCHAR2
1641 , p8_a22 out nocopy NUMBER
1642 , p8_a23 out nocopy NUMBER
1643 , p8_a24 out nocopy NUMBER
1644 , p8_a25 out nocopy NUMBER
1645 , p8_a26 out nocopy DATE
1646 , p8_a27 out nocopy DATE
1647 , p8_a28 out nocopy NUMBER
1648 , p8_a29 out nocopy NUMBER
1649 , p8_a30 out nocopy VARCHAR2
1650 , p8_a31 out nocopy DATE
1651 , p8_a32 out nocopy VARCHAR2
1652 , p8_a33 out nocopy NUMBER
1653 , p8_a34 out nocopy DATE
1654 , p8_a35 out nocopy NUMBER
1655 , p8_a36 out nocopy NUMBER
1656 , p8_a37 out nocopy VARCHAR2
1657 , p8_a38 out nocopy VARCHAR2
1658 , p8_a39 out nocopy VARCHAR2
1659 , p8_a40 out nocopy DATE
1660 , p8_a41 out nocopy VARCHAR2
1661 , p8_a42 out nocopy VARCHAR2
1662 , p8_a43 out nocopy VARCHAR2
1663 , p8_a44 out nocopy VARCHAR2
1664 , p8_a45 out nocopy VARCHAR2
1665 , p8_a46 out nocopy VARCHAR2
1666 , p8_a47 out nocopy VARCHAR2
1667 , p8_a48 out nocopy VARCHAR2
1668 , p8_a49 out nocopy VARCHAR2
1669 , p8_a50 out nocopy VARCHAR2
1670 , p8_a51 out nocopy VARCHAR2
1671 , p8_a52 out nocopy VARCHAR2
1672 , p8_a53 out nocopy VARCHAR2
1673 , p8_a54 out nocopy VARCHAR2
1674 , p8_a55 out nocopy VARCHAR2
1675 , p8_a56 out nocopy VARCHAR2
1676 , p8_a57 out nocopy DATE
1677 , p8_a58 out nocopy NUMBER
1678 , p8_a59 out nocopy NUMBER
1679 , p8_a60 out nocopy NUMBER
1680 , p8_a61 out nocopy NUMBER
1681 , p8_a62 out nocopy NUMBER
1682 , p8_a63 out nocopy DATE
1683 , p8_a64 out nocopy NUMBER
1684 , p8_a65 out nocopy DATE
1685 , p8_a66 out nocopy NUMBER
1686 , p8_a67 out nocopy DATE
1687 , p8_a68 out nocopy NUMBER
1688 , p8_a69 out nocopy NUMBER
1689 , p8_a70 out nocopy VARCHAR2
1690 , p8_a71 out nocopy NUMBER
1691 , p8_a72 out nocopy NUMBER
1692 , p8_a73 out nocopy NUMBER
1693 , p8_a74 out nocopy NUMBER
1694 , p8_a75 out nocopy VARCHAR2
1695 , p8_a76 out nocopy VARCHAR2
1696 , p8_a77 out nocopy VARCHAR2
1697 , p8_a78 out nocopy NUMBER
1698 , p8_a79 out nocopy DATE
1699 , p7_a0 NUMBER := 0-1962.0724
1700 , p7_a1 NUMBER := 0-1962.0724
1701 , p7_a2 VARCHAR2 := fnd_api.g_miss_char
1702 , p7_a3 VARCHAR2 := fnd_api.g_miss_char
1703 , p7_a4 VARCHAR2 := fnd_api.g_miss_char
1704 , p7_a5 VARCHAR2 := fnd_api.g_miss_char
1705 , p7_a6 VARCHAR2 := fnd_api.g_miss_char
1706 , p7_a7 VARCHAR2 := fnd_api.g_miss_char
1707 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
1708 , p7_a9 NUMBER := 0-1962.0724
1709 , p7_a10 NUMBER := 0-1962.0724
1710 , p7_a11 NUMBER := 0-1962.0724
1711 , p7_a12 NUMBER := 0-1962.0724
1712 , p7_a13 VARCHAR2 := fnd_api.g_miss_char
1713 , p7_a14 VARCHAR2 := fnd_api.g_miss_char
1714 , p7_a15 VARCHAR2 := fnd_api.g_miss_char
1715 , p7_a16 DATE := fnd_api.g_miss_date
1716 , p7_a17 DATE := fnd_api.g_miss_date
1717 , p7_a18 DATE := fnd_api.g_miss_date
1718 , p7_a19 DATE := fnd_api.g_miss_date
1719 , p7_a20 VARCHAR2 := fnd_api.g_miss_char
1720 , p7_a21 VARCHAR2 := fnd_api.g_miss_char
1721 , p7_a22 NUMBER := 0-1962.0724
1722 , p7_a23 NUMBER := 0-1962.0724
1723 , p7_a24 NUMBER := 0-1962.0724
1724 , p7_a25 NUMBER := 0-1962.0724
1725 , p7_a26 DATE := fnd_api.g_miss_date
1726 , p7_a27 DATE := fnd_api.g_miss_date
1727 , p7_a28 NUMBER := 0-1962.0724
1728 , p7_a29 NUMBER := 0-1962.0724
1729 , p7_a30 VARCHAR2 := fnd_api.g_miss_char
1730 , p7_a31 DATE := fnd_api.g_miss_date
1731 , p7_a32 VARCHAR2 := fnd_api.g_miss_char
1732 , p7_a33 NUMBER := 0-1962.0724
1733 , p7_a34 DATE := fnd_api.g_miss_date
1734 , p7_a35 NUMBER := 0-1962.0724
1735 , p7_a36 NUMBER := 0-1962.0724
1736 , p7_a37 VARCHAR2 := fnd_api.g_miss_char
1737 , p7_a38 VARCHAR2 := fnd_api.g_miss_char
1738 , p7_a39 VARCHAR2 := fnd_api.g_miss_char
1739 , p7_a40 DATE := fnd_api.g_miss_date
1740 , p7_a41 VARCHAR2 := fnd_api.g_miss_char
1741 , p7_a42 VARCHAR2 := fnd_api.g_miss_char
1742 , p7_a43 VARCHAR2 := fnd_api.g_miss_char
1743 , p7_a44 VARCHAR2 := fnd_api.g_miss_char
1744 , p7_a45 VARCHAR2 := fnd_api.g_miss_char
1745 , p7_a46 VARCHAR2 := fnd_api.g_miss_char
1746 , p7_a47 VARCHAR2 := fnd_api.g_miss_char
1747 , p7_a48 VARCHAR2 := fnd_api.g_miss_char
1748 , p7_a49 VARCHAR2 := fnd_api.g_miss_char
1749 , p7_a50 VARCHAR2 := fnd_api.g_miss_char
1750 , p7_a51 VARCHAR2 := fnd_api.g_miss_char
1751 , p7_a52 VARCHAR2 := fnd_api.g_miss_char
1752 , p7_a53 VARCHAR2 := fnd_api.g_miss_char
1753 , p7_a54 VARCHAR2 := fnd_api.g_miss_char
1754 , p7_a55 VARCHAR2 := fnd_api.g_miss_char
1755 , p7_a56 VARCHAR2 := fnd_api.g_miss_char
1756 , p7_a57 DATE := fnd_api.g_miss_date
1757 , p7_a58 NUMBER := 0-1962.0724
1758 , p7_a59 NUMBER := 0-1962.0724
1759 , p7_a60 NUMBER := 0-1962.0724
1760 , p7_a61 NUMBER := 0-1962.0724
1761 , p7_a62 NUMBER := 0-1962.0724
1762 , p7_a63 DATE := fnd_api.g_miss_date
1763 , p7_a64 NUMBER := 0-1962.0724
1764 , p7_a65 DATE := fnd_api.g_miss_date
1765 , p7_a66 NUMBER := 0-1962.0724
1766 , p7_a67 DATE := fnd_api.g_miss_date
1767 , p7_a68 NUMBER := 0-1962.0724
1768 , p7_a69 NUMBER := 0-1962.0724
1769 , p7_a70 VARCHAR2 := fnd_api.g_miss_char
1770 , p7_a71 NUMBER := 0-1962.0724
1771 , p7_a72 NUMBER := 0-1962.0724
1772 , p7_a73 NUMBER := 0-1962.0724
1773 , p7_a74 NUMBER := 0-1962.0724
1774 , p7_a75 VARCHAR2 := fnd_api.g_miss_char
1775 , p7_a76 VARCHAR2 := fnd_api.g_miss_char
1776 , p7_a77 VARCHAR2 := fnd_api.g_miss_char
1777 , p7_a78 NUMBER := 0-1962.0724
1778 , p7_a79 DATE := fnd_api.g_miss_date
1779 )
1780
1781 as
1782 ddp_send_tbl okl_am_send_fulfillment_pvt.full_tbl_type;
1783 ddx_send_tbl okl_am_send_fulfillment_pvt.full_tbl_type;
1784 ddp_qtev_rec okl_am_send_fulfillment_pvt.qtev_rec_type;
1785 ddx_qtev_rec okl_am_send_fulfillment_pvt.qtev_rec_type;
1786 ddindx binary_integer; indx binary_integer;
1787 begin
1788
1789 -- copy data to the local IN or IN-OUT args, if any
1790
1791
1792
1793
1794
1795 okl_am_send_fulfillment_pvt_w.rosetta_table_copy_in_p9(ddp_send_tbl, p5_a0
1796 , p5_a1
1797 , p5_a2
1798 , p5_a3
1799 , p5_a4
1800 , p5_a5
1801 , p5_a6
1802 , p5_a7
1803 , p5_a8
1804 );
1805
1806
1807 ddp_qtev_rec.id := rosetta_g_miss_num_map(p7_a0);
1808 ddp_qtev_rec.object_version_number := rosetta_g_miss_num_map(p7_a1);
1809 ddp_qtev_rec.sfwt_flag := p7_a2;
1810 ddp_qtev_rec.qrs_code := p7_a3;
1811 ddp_qtev_rec.qst_code := p7_a4;
1812 ddp_qtev_rec.qtp_code := p7_a5;
1813 ddp_qtev_rec.trn_code := p7_a6;
1814 ddp_qtev_rec.pop_code_end := p7_a7;
1815 ddp_qtev_rec.pop_code_early := p7_a8;
1816 ddp_qtev_rec.consolidated_qte_id := rosetta_g_miss_num_map(p7_a9);
1817 ddp_qtev_rec.khr_id := rosetta_g_miss_num_map(p7_a10);
1818 ddp_qtev_rec.art_id := rosetta_g_miss_num_map(p7_a11);
1819 ddp_qtev_rec.pdt_id := rosetta_g_miss_num_map(p7_a12);
1820 ddp_qtev_rec.early_termination_yn := p7_a13;
1821 ddp_qtev_rec.partial_yn := p7_a14;
1822 ddp_qtev_rec.preproceeds_yn := p7_a15;
1823 ddp_qtev_rec.date_requested := rosetta_g_miss_date_in_map(p7_a16);
1824 ddp_qtev_rec.date_proposal := rosetta_g_miss_date_in_map(p7_a17);
1825 ddp_qtev_rec.date_effective_to := rosetta_g_miss_date_in_map(p7_a18);
1826 ddp_qtev_rec.date_accepted := rosetta_g_miss_date_in_map(p7_a19);
1827 ddp_qtev_rec.summary_format_yn := p7_a20;
1828 ddp_qtev_rec.consolidated_yn := p7_a21;
1829 ddp_qtev_rec.principal_paydown_amount := rosetta_g_miss_num_map(p7_a22);
1830 ddp_qtev_rec.residual_amount := rosetta_g_miss_num_map(p7_a23);
1831 ddp_qtev_rec.yield := rosetta_g_miss_num_map(p7_a24);
1832 ddp_qtev_rec.rent_amount := rosetta_g_miss_num_map(p7_a25);
1833 ddp_qtev_rec.date_restructure_end := rosetta_g_miss_date_in_map(p7_a26);
1834 ddp_qtev_rec.date_restructure_start := rosetta_g_miss_date_in_map(p7_a27);
1835 ddp_qtev_rec.term := rosetta_g_miss_num_map(p7_a28);
1836 ddp_qtev_rec.purchase_percent := rosetta_g_miss_num_map(p7_a29);
1837 ddp_qtev_rec.comments := p7_a30;
1838 ddp_qtev_rec.date_due := rosetta_g_miss_date_in_map(p7_a31);
1839 ddp_qtev_rec.payment_frequency := p7_a32;
1840 ddp_qtev_rec.remaining_payments := rosetta_g_miss_num_map(p7_a33);
1841 ddp_qtev_rec.date_effective_from := rosetta_g_miss_date_in_map(p7_a34);
1842 ddp_qtev_rec.quote_number := rosetta_g_miss_num_map(p7_a35);
1843 ddp_qtev_rec.requested_by := rosetta_g_miss_num_map(p7_a36);
1844 ddp_qtev_rec.approved_yn := p7_a37;
1845 ddp_qtev_rec.accepted_yn := p7_a38;
1846 ddp_qtev_rec.payment_received_yn := p7_a39;
1847 ddp_qtev_rec.date_payment_received := rosetta_g_miss_date_in_map(p7_a40);
1848 ddp_qtev_rec.attribute_category := p7_a41;
1849 ddp_qtev_rec.attribute1 := p7_a42;
1850 ddp_qtev_rec.attribute2 := p7_a43;
1851 ddp_qtev_rec.attribute3 := p7_a44;
1852 ddp_qtev_rec.attribute4 := p7_a45;
1853 ddp_qtev_rec.attribute5 := p7_a46;
1854 ddp_qtev_rec.attribute6 := p7_a47;
1855 ddp_qtev_rec.attribute7 := p7_a48;
1856 ddp_qtev_rec.attribute8 := p7_a49;
1857 ddp_qtev_rec.attribute9 := p7_a50;
1858 ddp_qtev_rec.attribute10 := p7_a51;
1859 ddp_qtev_rec.attribute11 := p7_a52;
1860 ddp_qtev_rec.attribute12 := p7_a53;
1861 ddp_qtev_rec.attribute13 := p7_a54;
1862 ddp_qtev_rec.attribute14 := p7_a55;
1863 ddp_qtev_rec.attribute15 := p7_a56;
1864 ddp_qtev_rec.date_approved := rosetta_g_miss_date_in_map(p7_a57);
1865 ddp_qtev_rec.approved_by := rosetta_g_miss_num_map(p7_a58);
1866 ddp_qtev_rec.org_id := rosetta_g_miss_num_map(p7_a59);
1867 ddp_qtev_rec.request_id := rosetta_g_miss_num_map(p7_a60);
1868 ddp_qtev_rec.program_application_id := rosetta_g_miss_num_map(p7_a61);
1869 ddp_qtev_rec.program_id := rosetta_g_miss_num_map(p7_a62);
1870 ddp_qtev_rec.program_update_date := rosetta_g_miss_date_in_map(p7_a63);
1871 ddp_qtev_rec.created_by := rosetta_g_miss_num_map(p7_a64);
1872 ddp_qtev_rec.creation_date := rosetta_g_miss_date_in_map(p7_a65);
1873 ddp_qtev_rec.last_updated_by := rosetta_g_miss_num_map(p7_a66);
1874 ddp_qtev_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a67);
1875 ddp_qtev_rec.last_update_login := rosetta_g_miss_num_map(p7_a68);
1876 ddp_qtev_rec.purchase_amount := rosetta_g_miss_num_map(p7_a69);
1877 ddp_qtev_rec.purchase_formula := p7_a70;
1878 ddp_qtev_rec.asset_value := rosetta_g_miss_num_map(p7_a71);
1879 ddp_qtev_rec.residual_value := rosetta_g_miss_num_map(p7_a72);
1880 ddp_qtev_rec.unbilled_receivables := rosetta_g_miss_num_map(p7_a73);
1881 ddp_qtev_rec.gain_loss := rosetta_g_miss_num_map(p7_a74);
1882 ddp_qtev_rec.currency_code := p7_a75;
1883 ddp_qtev_rec.currency_conversion_code := p7_a76;
1884 ddp_qtev_rec.currency_conversion_type := p7_a77;
1885 ddp_qtev_rec.currency_conversion_rate := rosetta_g_miss_num_map(p7_a78);
1886 ddp_qtev_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p7_a79);
1887
1888
1889 -- here's the delegated call to the old PL/SQL routine
1890 okl_am_send_fulfillment_pvt.send_consolidate_quote(p_api_version,
1891 p_init_msg_list,
1892 x_return_status,
1893 x_msg_count,
1894 x_msg_data,
1895 ddp_send_tbl,
1896 ddx_send_tbl,
1897 ddp_qtev_rec,
1898 ddx_qtev_rec);
1899
1900 -- copy data back from the local variables to OUT or IN-OUT args, if any
1901
1902
1903
1904
1905
1906
1907 okl_am_send_fulfillment_pvt_w.rosetta_table_copy_out_p9(ddx_send_tbl, p6_a0
1908 , p6_a1
1909 , p6_a2
1910 , p6_a3
1911 , p6_a4
1912 , p6_a5
1913 , p6_a6
1914 , p6_a7
1915 , p6_a8
1916 );
1917
1918
1919 p8_a0 := rosetta_g_miss_num_map(ddx_qtev_rec.id);
1920 p8_a1 := rosetta_g_miss_num_map(ddx_qtev_rec.object_version_number);
1921 p8_a2 := ddx_qtev_rec.sfwt_flag;
1922 p8_a3 := ddx_qtev_rec.qrs_code;
1923 p8_a4 := ddx_qtev_rec.qst_code;
1924 p8_a5 := ddx_qtev_rec.qtp_code;
1925 p8_a6 := ddx_qtev_rec.trn_code;
1926 p8_a7 := ddx_qtev_rec.pop_code_end;
1927 p8_a8 := ddx_qtev_rec.pop_code_early;
1928 p8_a9 := rosetta_g_miss_num_map(ddx_qtev_rec.consolidated_qte_id);
1929 p8_a10 := rosetta_g_miss_num_map(ddx_qtev_rec.khr_id);
1930 p8_a11 := rosetta_g_miss_num_map(ddx_qtev_rec.art_id);
1931 p8_a12 := rosetta_g_miss_num_map(ddx_qtev_rec.pdt_id);
1932 p8_a13 := ddx_qtev_rec.early_termination_yn;
1933 p8_a14 := ddx_qtev_rec.partial_yn;
1934 p8_a15 := ddx_qtev_rec.preproceeds_yn;
1935 p8_a16 := ddx_qtev_rec.date_requested;
1936 p8_a17 := ddx_qtev_rec.date_proposal;
1937 p8_a18 := ddx_qtev_rec.date_effective_to;
1938 p8_a19 := ddx_qtev_rec.date_accepted;
1939 p8_a20 := ddx_qtev_rec.summary_format_yn;
1940 p8_a21 := ddx_qtev_rec.consolidated_yn;
1941 p8_a22 := rosetta_g_miss_num_map(ddx_qtev_rec.principal_paydown_amount);
1942 p8_a23 := rosetta_g_miss_num_map(ddx_qtev_rec.residual_amount);
1943 p8_a24 := rosetta_g_miss_num_map(ddx_qtev_rec.yield);
1944 p8_a25 := rosetta_g_miss_num_map(ddx_qtev_rec.rent_amount);
1945 p8_a26 := ddx_qtev_rec.date_restructure_end;
1946 p8_a27 := ddx_qtev_rec.date_restructure_start;
1947 p8_a28 := rosetta_g_miss_num_map(ddx_qtev_rec.term);
1948 p8_a29 := rosetta_g_miss_num_map(ddx_qtev_rec.purchase_percent);
1949 p8_a30 := ddx_qtev_rec.comments;
1950 p8_a31 := ddx_qtev_rec.date_due;
1951 p8_a32 := ddx_qtev_rec.payment_frequency;
1952 p8_a33 := rosetta_g_miss_num_map(ddx_qtev_rec.remaining_payments);
1953 p8_a34 := ddx_qtev_rec.date_effective_from;
1954 p8_a35 := rosetta_g_miss_num_map(ddx_qtev_rec.quote_number);
1955 p8_a36 := rosetta_g_miss_num_map(ddx_qtev_rec.requested_by);
1956 p8_a37 := ddx_qtev_rec.approved_yn;
1957 p8_a38 := ddx_qtev_rec.accepted_yn;
1958 p8_a39 := ddx_qtev_rec.payment_received_yn;
1959 p8_a40 := ddx_qtev_rec.date_payment_received;
1960 p8_a41 := ddx_qtev_rec.attribute_category;
1961 p8_a42 := ddx_qtev_rec.attribute1;
1962 p8_a43 := ddx_qtev_rec.attribute2;
1963 p8_a44 := ddx_qtev_rec.attribute3;
1964 p8_a45 := ddx_qtev_rec.attribute4;
1965 p8_a46 := ddx_qtev_rec.attribute5;
1966 p8_a47 := ddx_qtev_rec.attribute6;
1967 p8_a48 := ddx_qtev_rec.attribute7;
1968 p8_a49 := ddx_qtev_rec.attribute8;
1969 p8_a50 := ddx_qtev_rec.attribute9;
1970 p8_a51 := ddx_qtev_rec.attribute10;
1971 p8_a52 := ddx_qtev_rec.attribute11;
1972 p8_a53 := ddx_qtev_rec.attribute12;
1973 p8_a54 := ddx_qtev_rec.attribute13;
1974 p8_a55 := ddx_qtev_rec.attribute14;
1975 p8_a56 := ddx_qtev_rec.attribute15;
1976 p8_a57 := ddx_qtev_rec.date_approved;
1977 p8_a58 := rosetta_g_miss_num_map(ddx_qtev_rec.approved_by);
1978 p8_a59 := rosetta_g_miss_num_map(ddx_qtev_rec.org_id);
1979 p8_a60 := rosetta_g_miss_num_map(ddx_qtev_rec.request_id);
1980 p8_a61 := rosetta_g_miss_num_map(ddx_qtev_rec.program_application_id);
1981 p8_a62 := rosetta_g_miss_num_map(ddx_qtev_rec.program_id);
1982 p8_a63 := ddx_qtev_rec.program_update_date;
1983 p8_a64 := rosetta_g_miss_num_map(ddx_qtev_rec.created_by);
1984 p8_a65 := ddx_qtev_rec.creation_date;
1985 p8_a66 := rosetta_g_miss_num_map(ddx_qtev_rec.last_updated_by);
1986 p8_a67 := ddx_qtev_rec.last_update_date;
1987 p8_a68 := rosetta_g_miss_num_map(ddx_qtev_rec.last_update_login);
1988 p8_a69 := rosetta_g_miss_num_map(ddx_qtev_rec.purchase_amount);
1989 p8_a70 := ddx_qtev_rec.purchase_formula;
1990 p8_a71 := rosetta_g_miss_num_map(ddx_qtev_rec.asset_value);
1991 p8_a72 := rosetta_g_miss_num_map(ddx_qtev_rec.residual_value);
1992 p8_a73 := rosetta_g_miss_num_map(ddx_qtev_rec.unbilled_receivables);
1993 p8_a74 := rosetta_g_miss_num_map(ddx_qtev_rec.gain_loss);
1994 p8_a75 := ddx_qtev_rec.currency_code;
1995 p8_a76 := ddx_qtev_rec.currency_conversion_code;
1996 p8_a77 := ddx_qtev_rec.currency_conversion_type;
1997 p8_a78 := rosetta_g_miss_num_map(ddx_qtev_rec.currency_conversion_rate);
1998 p8_a79 := ddx_qtev_rec.currency_conversion_date;
1999 end;
2000
2001 end okl_am_send_fulfillment_pvt_w;