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