[Home] [Help]
PACKAGE BODY: APPS.OKL_QUOTE_PARTIES_PUB_W
Source
1 package body okl_quote_parties_pub_w as
2 /* $Header: OKLUQPYB.pls 115.3 2002/12/04 03:24:50 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 insert_quote_parties(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p5_a0 JTF_NUMBER_TABLE
28 , p5_a1 JTF_NUMBER_TABLE
29 , p5_a2 JTF_NUMBER_TABLE
30 , p5_a3 JTF_NUMBER_TABLE
31 , p5_a4 JTF_DATE_TABLE
32 , p5_a5 JTF_VARCHAR2_TABLE_100
33 , p5_a6 JTF_NUMBER_TABLE
34 , p5_a7 JTF_NUMBER_TABLE
35 , p5_a8 JTF_VARCHAR2_TABLE_600
36 , p5_a9 JTF_VARCHAR2_TABLE_100
37 , p5_a10 JTF_VARCHAR2_TABLE_100
38 , p5_a11 JTF_VARCHAR2_TABLE_200
39 , p5_a12 JTF_VARCHAR2_TABLE_100
40 , p5_a13 JTF_VARCHAR2_TABLE_100
41 , p5_a14 JTF_VARCHAR2_TABLE_200
42 , p5_a15 JTF_NUMBER_TABLE
43 , p5_a16 JTF_DATE_TABLE
44 , p5_a17 JTF_NUMBER_TABLE
45 , p5_a18 JTF_DATE_TABLE
46 , p5_a19 JTF_NUMBER_TABLE
47 , p6_a0 out nocopy JTF_NUMBER_TABLE
48 , p6_a1 out nocopy JTF_NUMBER_TABLE
49 , p6_a2 out nocopy JTF_NUMBER_TABLE
50 , p6_a3 out nocopy JTF_NUMBER_TABLE
51 , p6_a4 out nocopy JTF_DATE_TABLE
52 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
53 , p6_a6 out nocopy JTF_NUMBER_TABLE
54 , p6_a7 out nocopy JTF_NUMBER_TABLE
55 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_600
56 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
57 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
58 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_200
59 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
60 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
61 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_200
62 , p6_a15 out nocopy JTF_NUMBER_TABLE
63 , p6_a16 out nocopy JTF_DATE_TABLE
64 , p6_a17 out nocopy JTF_NUMBER_TABLE
65 , p6_a18 out nocopy JTF_DATE_TABLE
66 , p6_a19 out nocopy JTF_NUMBER_TABLE
67 )
68
69 as
70 ddp_qpyv_tbl okl_quote_parties_pub.qpyv_tbl_type;
71 ddx_qpyv_tbl okl_quote_parties_pub.qpyv_tbl_type;
72 ddindx binary_integer; indx binary_integer;
73 begin
74
75 -- copy data to the local IN or IN-OUT args, if any
76
77
78
79
80
81 okl_qpy_pvt_w.rosetta_table_copy_in_p5(ddp_qpyv_tbl, p5_a0
82 , p5_a1
83 , p5_a2
84 , p5_a3
85 , p5_a4
86 , p5_a5
87 , p5_a6
88 , p5_a7
89 , p5_a8
90 , p5_a9
91 , p5_a10
92 , p5_a11
93 , p5_a12
94 , p5_a13
95 , p5_a14
96 , p5_a15
97 , p5_a16
98 , p5_a17
99 , p5_a18
100 , p5_a19
101 );
102
103
104 -- here's the delegated call to the old PL/SQL routine
105 okl_quote_parties_pub.insert_quote_parties(p_api_version,
106 p_init_msg_list,
107 x_return_status,
108 x_msg_count,
109 x_msg_data,
110 ddp_qpyv_tbl,
111 ddx_qpyv_tbl);
112
113 -- copy data back from the local variables to OUT or IN-OUT args, if any
114
115
116
117
118
119
120 okl_qpy_pvt_w.rosetta_table_copy_out_p5(ddx_qpyv_tbl, p6_a0
121 , p6_a1
122 , p6_a2
123 , p6_a3
124 , p6_a4
125 , p6_a5
126 , p6_a6
127 , p6_a7
128 , p6_a8
129 , p6_a9
130 , p6_a10
131 , p6_a11
132 , p6_a12
133 , p6_a13
134 , p6_a14
135 , p6_a15
136 , p6_a16
137 , p6_a17
138 , p6_a18
139 , p6_a19
140 );
141 end;
142
143 procedure insert_quote_parties(p_api_version NUMBER
144 , p_init_msg_list VARCHAR2
145 , x_return_status out nocopy VARCHAR2
146 , x_msg_count out nocopy NUMBER
147 , x_msg_data out nocopy VARCHAR2
148 , p6_a0 out nocopy NUMBER
149 , p6_a1 out nocopy NUMBER
150 , p6_a2 out nocopy NUMBER
151 , p6_a3 out nocopy NUMBER
152 , p6_a4 out nocopy DATE
153 , p6_a5 out nocopy VARCHAR2
154 , p6_a6 out nocopy NUMBER
155 , p6_a7 out nocopy NUMBER
156 , p6_a8 out nocopy VARCHAR2
157 , p6_a9 out nocopy VARCHAR2
158 , p6_a10 out nocopy VARCHAR2
159 , p6_a11 out nocopy VARCHAR2
160 , p6_a12 out nocopy VARCHAR2
161 , p6_a13 out nocopy VARCHAR2
162 , p6_a14 out nocopy VARCHAR2
163 , p6_a15 out nocopy NUMBER
164 , p6_a16 out nocopy DATE
165 , p6_a17 out nocopy NUMBER
166 , p6_a18 out nocopy DATE
167 , p6_a19 out nocopy NUMBER
168 , p5_a0 NUMBER := 0-1962.0724
169 , p5_a1 NUMBER := 0-1962.0724
170 , p5_a2 NUMBER := 0-1962.0724
171 , p5_a3 NUMBER := 0-1962.0724
172 , p5_a4 DATE := fnd_api.g_miss_date
173 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
174 , p5_a6 NUMBER := 0-1962.0724
175 , p5_a7 NUMBER := 0-1962.0724
176 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
177 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
178 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
179 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
180 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
181 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
182 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
183 , p5_a15 NUMBER := 0-1962.0724
184 , p5_a16 DATE := fnd_api.g_miss_date
185 , p5_a17 NUMBER := 0-1962.0724
186 , p5_a18 DATE := fnd_api.g_miss_date
187 , p5_a19 NUMBER := 0-1962.0724
188 )
189
190 as
191 ddp_qpyv_rec okl_quote_parties_pub.qpyv_rec_type;
192 ddx_qpyv_rec okl_quote_parties_pub.qpyv_rec_type;
193 ddindx binary_integer; indx binary_integer;
194 begin
195
196 -- copy data to the local IN or IN-OUT args, if any
197
198
199
200
201
202 ddp_qpyv_rec.id := rosetta_g_miss_num_map(p5_a0);
203 ddp_qpyv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
204 ddp_qpyv_rec.qte_id := rosetta_g_miss_num_map(p5_a2);
205 ddp_qpyv_rec.cpl_id := rosetta_g_miss_num_map(p5_a3);
206 ddp_qpyv_rec.date_sent := rosetta_g_miss_date_in_map(p5_a4);
207 ddp_qpyv_rec.qpt_code := p5_a5;
208 ddp_qpyv_rec.delay_days := rosetta_g_miss_num_map(p5_a6);
209 ddp_qpyv_rec.allocation_percentage := rosetta_g_miss_num_map(p5_a7);
210 ddp_qpyv_rec.email_address := p5_a8;
211 ddp_qpyv_rec.party_jtot_object1_code := p5_a9;
212 ddp_qpyv_rec.party_object1_id1 := p5_a10;
213 ddp_qpyv_rec.party_object1_id2 := p5_a11;
214 ddp_qpyv_rec.contact_jtot_object1_code := p5_a12;
215 ddp_qpyv_rec.contact_object1_id1 := p5_a13;
216 ddp_qpyv_rec.contact_object1_id2 := p5_a14;
217 ddp_qpyv_rec.created_by := rosetta_g_miss_num_map(p5_a15);
218 ddp_qpyv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a16);
219 ddp_qpyv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a17);
220 ddp_qpyv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a18);
221 ddp_qpyv_rec.last_update_login := rosetta_g_miss_num_map(p5_a19);
222
223
224 -- here's the delegated call to the old PL/SQL routine
225 okl_quote_parties_pub.insert_quote_parties(p_api_version,
226 p_init_msg_list,
227 x_return_status,
228 x_msg_count,
229 x_msg_data,
230 ddp_qpyv_rec,
231 ddx_qpyv_rec);
232
233 -- copy data back from the local variables to OUT or IN-OUT args, if any
234
235
236
237
238
239
240 p6_a0 := rosetta_g_miss_num_map(ddx_qpyv_rec.id);
241 p6_a1 := rosetta_g_miss_num_map(ddx_qpyv_rec.object_version_number);
242 p6_a2 := rosetta_g_miss_num_map(ddx_qpyv_rec.qte_id);
243 p6_a3 := rosetta_g_miss_num_map(ddx_qpyv_rec.cpl_id);
244 p6_a4 := ddx_qpyv_rec.date_sent;
245 p6_a5 := ddx_qpyv_rec.qpt_code;
246 p6_a6 := rosetta_g_miss_num_map(ddx_qpyv_rec.delay_days);
247 p6_a7 := rosetta_g_miss_num_map(ddx_qpyv_rec.allocation_percentage);
248 p6_a8 := ddx_qpyv_rec.email_address;
249 p6_a9 := ddx_qpyv_rec.party_jtot_object1_code;
250 p6_a10 := ddx_qpyv_rec.party_object1_id1;
251 p6_a11 := ddx_qpyv_rec.party_object1_id2;
252 p6_a12 := ddx_qpyv_rec.contact_jtot_object1_code;
253 p6_a13 := ddx_qpyv_rec.contact_object1_id1;
254 p6_a14 := ddx_qpyv_rec.contact_object1_id2;
255 p6_a15 := rosetta_g_miss_num_map(ddx_qpyv_rec.created_by);
256 p6_a16 := ddx_qpyv_rec.creation_date;
257 p6_a17 := rosetta_g_miss_num_map(ddx_qpyv_rec.last_updated_by);
258 p6_a18 := ddx_qpyv_rec.last_update_date;
259 p6_a19 := rosetta_g_miss_num_map(ddx_qpyv_rec.last_update_login);
260 end;
261
262 procedure lock_quote_parties(p_api_version NUMBER
263 , p_init_msg_list VARCHAR2
264 , x_return_status out nocopy VARCHAR2
265 , x_msg_count out nocopy NUMBER
266 , x_msg_data out nocopy VARCHAR2
267 , p5_a0 JTF_NUMBER_TABLE
268 , p5_a1 JTF_NUMBER_TABLE
269 , p5_a2 JTF_NUMBER_TABLE
270 , p5_a3 JTF_NUMBER_TABLE
271 , p5_a4 JTF_DATE_TABLE
272 , p5_a5 JTF_VARCHAR2_TABLE_100
273 , p5_a6 JTF_NUMBER_TABLE
274 , p5_a7 JTF_NUMBER_TABLE
275 , p5_a8 JTF_VARCHAR2_TABLE_600
276 , p5_a9 JTF_VARCHAR2_TABLE_100
277 , p5_a10 JTF_VARCHAR2_TABLE_100
278 , p5_a11 JTF_VARCHAR2_TABLE_200
279 , p5_a12 JTF_VARCHAR2_TABLE_100
280 , p5_a13 JTF_VARCHAR2_TABLE_100
281 , p5_a14 JTF_VARCHAR2_TABLE_200
282 , p5_a15 JTF_NUMBER_TABLE
283 , p5_a16 JTF_DATE_TABLE
284 , p5_a17 JTF_NUMBER_TABLE
285 , p5_a18 JTF_DATE_TABLE
286 , p5_a19 JTF_NUMBER_TABLE
287 )
288
289 as
290 ddp_qpyv_tbl okl_quote_parties_pub.qpyv_tbl_type;
291 ddindx binary_integer; indx binary_integer;
292 begin
293
294 -- copy data to the local IN or IN-OUT args, if any
295
296
297
298
299
300 okl_qpy_pvt_w.rosetta_table_copy_in_p5(ddp_qpyv_tbl, p5_a0
301 , p5_a1
302 , p5_a2
303 , p5_a3
304 , p5_a4
305 , p5_a5
306 , p5_a6
307 , p5_a7
308 , p5_a8
309 , p5_a9
310 , p5_a10
311 , p5_a11
312 , p5_a12
313 , p5_a13
314 , p5_a14
315 , p5_a15
316 , p5_a16
317 , p5_a17
318 , p5_a18
319 , p5_a19
320 );
321
322 -- here's the delegated call to the old PL/SQL routine
323 okl_quote_parties_pub.lock_quote_parties(p_api_version,
324 p_init_msg_list,
325 x_return_status,
326 x_msg_count,
327 x_msg_data,
328 ddp_qpyv_tbl);
329
330 -- copy data back from the local variables to OUT or IN-OUT args, if any
331
332
333
334
335
336 end;
337
338 procedure lock_quote_parties(p_api_version NUMBER
339 , p_init_msg_list VARCHAR2
340 , x_return_status out nocopy VARCHAR2
341 , x_msg_count out nocopy NUMBER
342 , x_msg_data out nocopy VARCHAR2
343 , p5_a0 NUMBER := 0-1962.0724
344 , p5_a1 NUMBER := 0-1962.0724
345 , p5_a2 NUMBER := 0-1962.0724
346 , p5_a3 NUMBER := 0-1962.0724
347 , p5_a4 DATE := fnd_api.g_miss_date
348 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
349 , p5_a6 NUMBER := 0-1962.0724
350 , p5_a7 NUMBER := 0-1962.0724
351 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
352 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
353 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
354 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
355 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
356 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
357 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
358 , p5_a15 NUMBER := 0-1962.0724
359 , p5_a16 DATE := fnd_api.g_miss_date
360 , p5_a17 NUMBER := 0-1962.0724
361 , p5_a18 DATE := fnd_api.g_miss_date
362 , p5_a19 NUMBER := 0-1962.0724
363 )
364
365 as
366 ddp_qpyv_rec okl_quote_parties_pub.qpyv_rec_type;
367 ddindx binary_integer; indx binary_integer;
368 begin
369
370 -- copy data to the local IN or IN-OUT args, if any
371
372
373
374
375
376 ddp_qpyv_rec.id := rosetta_g_miss_num_map(p5_a0);
377 ddp_qpyv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
378 ddp_qpyv_rec.qte_id := rosetta_g_miss_num_map(p5_a2);
379 ddp_qpyv_rec.cpl_id := rosetta_g_miss_num_map(p5_a3);
380 ddp_qpyv_rec.date_sent := rosetta_g_miss_date_in_map(p5_a4);
381 ddp_qpyv_rec.qpt_code := p5_a5;
382 ddp_qpyv_rec.delay_days := rosetta_g_miss_num_map(p5_a6);
383 ddp_qpyv_rec.allocation_percentage := rosetta_g_miss_num_map(p5_a7);
384 ddp_qpyv_rec.email_address := p5_a8;
385 ddp_qpyv_rec.party_jtot_object1_code := p5_a9;
386 ddp_qpyv_rec.party_object1_id1 := p5_a10;
387 ddp_qpyv_rec.party_object1_id2 := p5_a11;
388 ddp_qpyv_rec.contact_jtot_object1_code := p5_a12;
389 ddp_qpyv_rec.contact_object1_id1 := p5_a13;
390 ddp_qpyv_rec.contact_object1_id2 := p5_a14;
391 ddp_qpyv_rec.created_by := rosetta_g_miss_num_map(p5_a15);
392 ddp_qpyv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a16);
393 ddp_qpyv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a17);
394 ddp_qpyv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a18);
395 ddp_qpyv_rec.last_update_login := rosetta_g_miss_num_map(p5_a19);
396
397 -- here's the delegated call to the old PL/SQL routine
398 okl_quote_parties_pub.lock_quote_parties(p_api_version,
399 p_init_msg_list,
400 x_return_status,
401 x_msg_count,
402 x_msg_data,
403 ddp_qpyv_rec);
404
405 -- copy data back from the local variables to OUT or IN-OUT args, if any
406
407
408
409
410
411 end;
412
413 procedure update_quote_parties(p_api_version NUMBER
414 , p_init_msg_list VARCHAR2
415 , x_return_status out nocopy VARCHAR2
416 , x_msg_count out nocopy NUMBER
417 , x_msg_data out nocopy VARCHAR2
418 , p5_a0 JTF_NUMBER_TABLE
419 , p5_a1 JTF_NUMBER_TABLE
420 , p5_a2 JTF_NUMBER_TABLE
421 , p5_a3 JTF_NUMBER_TABLE
422 , p5_a4 JTF_DATE_TABLE
423 , p5_a5 JTF_VARCHAR2_TABLE_100
424 , p5_a6 JTF_NUMBER_TABLE
425 , p5_a7 JTF_NUMBER_TABLE
426 , p5_a8 JTF_VARCHAR2_TABLE_600
427 , p5_a9 JTF_VARCHAR2_TABLE_100
428 , p5_a10 JTF_VARCHAR2_TABLE_100
429 , p5_a11 JTF_VARCHAR2_TABLE_200
430 , p5_a12 JTF_VARCHAR2_TABLE_100
431 , p5_a13 JTF_VARCHAR2_TABLE_100
432 , p5_a14 JTF_VARCHAR2_TABLE_200
433 , p5_a15 JTF_NUMBER_TABLE
434 , p5_a16 JTF_DATE_TABLE
435 , p5_a17 JTF_NUMBER_TABLE
436 , p5_a18 JTF_DATE_TABLE
437 , p5_a19 JTF_NUMBER_TABLE
438 , p6_a0 out nocopy JTF_NUMBER_TABLE
439 , p6_a1 out nocopy JTF_NUMBER_TABLE
440 , p6_a2 out nocopy JTF_NUMBER_TABLE
441 , p6_a3 out nocopy JTF_NUMBER_TABLE
442 , p6_a4 out nocopy JTF_DATE_TABLE
443 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
444 , p6_a6 out nocopy JTF_NUMBER_TABLE
445 , p6_a7 out nocopy JTF_NUMBER_TABLE
446 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_600
447 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
448 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
449 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_200
450 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
451 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
452 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_200
453 , p6_a15 out nocopy JTF_NUMBER_TABLE
454 , p6_a16 out nocopy JTF_DATE_TABLE
455 , p6_a17 out nocopy JTF_NUMBER_TABLE
456 , p6_a18 out nocopy JTF_DATE_TABLE
457 , p6_a19 out nocopy JTF_NUMBER_TABLE
458 )
459
460 as
461 ddp_qpyv_tbl okl_quote_parties_pub.qpyv_tbl_type;
462 ddx_qpyv_tbl okl_quote_parties_pub.qpyv_tbl_type;
463 ddindx binary_integer; indx binary_integer;
464 begin
465
466 -- copy data to the local IN or IN-OUT args, if any
467
468
469
470
471
472 okl_qpy_pvt_w.rosetta_table_copy_in_p5(ddp_qpyv_tbl, p5_a0
473 , p5_a1
474 , p5_a2
475 , p5_a3
476 , p5_a4
477 , p5_a5
478 , p5_a6
479 , p5_a7
480 , p5_a8
481 , p5_a9
482 , p5_a10
483 , p5_a11
484 , p5_a12
485 , p5_a13
486 , p5_a14
487 , p5_a15
488 , p5_a16
489 , p5_a17
490 , p5_a18
491 , p5_a19
492 );
493
494
495 -- here's the delegated call to the old PL/SQL routine
496 okl_quote_parties_pub.update_quote_parties(p_api_version,
497 p_init_msg_list,
498 x_return_status,
499 x_msg_count,
500 x_msg_data,
501 ddp_qpyv_tbl,
502 ddx_qpyv_tbl);
503
504 -- copy data back from the local variables to OUT or IN-OUT args, if any
505
506
507
508
509
510
511 okl_qpy_pvt_w.rosetta_table_copy_out_p5(ddx_qpyv_tbl, p6_a0
512 , p6_a1
513 , p6_a2
514 , p6_a3
515 , p6_a4
516 , p6_a5
517 , p6_a6
518 , p6_a7
519 , p6_a8
520 , p6_a9
521 , p6_a10
522 , p6_a11
523 , p6_a12
524 , p6_a13
525 , p6_a14
526 , p6_a15
527 , p6_a16
528 , p6_a17
529 , p6_a18
530 , p6_a19
531 );
532 end;
533
534 procedure update_quote_parties(p_api_version NUMBER
535 , p_init_msg_list VARCHAR2
536 , x_return_status out nocopy VARCHAR2
537 , x_msg_count out nocopy NUMBER
538 , x_msg_data out nocopy VARCHAR2
539 , p6_a0 out nocopy NUMBER
540 , p6_a1 out nocopy NUMBER
541 , p6_a2 out nocopy NUMBER
542 , p6_a3 out nocopy NUMBER
543 , p6_a4 out nocopy DATE
544 , p6_a5 out nocopy VARCHAR2
545 , p6_a6 out nocopy NUMBER
546 , p6_a7 out nocopy NUMBER
547 , p6_a8 out nocopy VARCHAR2
548 , p6_a9 out nocopy VARCHAR2
549 , p6_a10 out nocopy VARCHAR2
550 , p6_a11 out nocopy VARCHAR2
551 , p6_a12 out nocopy VARCHAR2
552 , p6_a13 out nocopy VARCHAR2
553 , p6_a14 out nocopy VARCHAR2
554 , p6_a15 out nocopy NUMBER
555 , p6_a16 out nocopy DATE
556 , p6_a17 out nocopy NUMBER
557 , p6_a18 out nocopy DATE
558 , p6_a19 out nocopy NUMBER
559 , p5_a0 NUMBER := 0-1962.0724
560 , p5_a1 NUMBER := 0-1962.0724
561 , p5_a2 NUMBER := 0-1962.0724
562 , p5_a3 NUMBER := 0-1962.0724
563 , p5_a4 DATE := fnd_api.g_miss_date
564 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
565 , p5_a6 NUMBER := 0-1962.0724
566 , p5_a7 NUMBER := 0-1962.0724
567 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
568 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
569 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
570 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
571 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
572 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
573 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
574 , p5_a15 NUMBER := 0-1962.0724
575 , p5_a16 DATE := fnd_api.g_miss_date
576 , p5_a17 NUMBER := 0-1962.0724
577 , p5_a18 DATE := fnd_api.g_miss_date
578 , p5_a19 NUMBER := 0-1962.0724
579 )
580
581 as
582 ddp_qpyv_rec okl_quote_parties_pub.qpyv_rec_type;
583 ddx_qpyv_rec okl_quote_parties_pub.qpyv_rec_type;
584 ddindx binary_integer; indx binary_integer;
585 begin
586
587 -- copy data to the local IN or IN-OUT args, if any
588
589
590
591
592
593 ddp_qpyv_rec.id := rosetta_g_miss_num_map(p5_a0);
594 ddp_qpyv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
595 ddp_qpyv_rec.qte_id := rosetta_g_miss_num_map(p5_a2);
596 ddp_qpyv_rec.cpl_id := rosetta_g_miss_num_map(p5_a3);
597 ddp_qpyv_rec.date_sent := rosetta_g_miss_date_in_map(p5_a4);
598 ddp_qpyv_rec.qpt_code := p5_a5;
599 ddp_qpyv_rec.delay_days := rosetta_g_miss_num_map(p5_a6);
600 ddp_qpyv_rec.allocation_percentage := rosetta_g_miss_num_map(p5_a7);
601 ddp_qpyv_rec.email_address := p5_a8;
602 ddp_qpyv_rec.party_jtot_object1_code := p5_a9;
603 ddp_qpyv_rec.party_object1_id1 := p5_a10;
604 ddp_qpyv_rec.party_object1_id2 := p5_a11;
605 ddp_qpyv_rec.contact_jtot_object1_code := p5_a12;
606 ddp_qpyv_rec.contact_object1_id1 := p5_a13;
607 ddp_qpyv_rec.contact_object1_id2 := p5_a14;
608 ddp_qpyv_rec.created_by := rosetta_g_miss_num_map(p5_a15);
609 ddp_qpyv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a16);
610 ddp_qpyv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a17);
611 ddp_qpyv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a18);
612 ddp_qpyv_rec.last_update_login := rosetta_g_miss_num_map(p5_a19);
613
614
615 -- here's the delegated call to the old PL/SQL routine
616 okl_quote_parties_pub.update_quote_parties(p_api_version,
617 p_init_msg_list,
618 x_return_status,
619 x_msg_count,
620 x_msg_data,
621 ddp_qpyv_rec,
622 ddx_qpyv_rec);
623
624 -- copy data back from the local variables to OUT or IN-OUT args, if any
625
626
627
628
629
630
631 p6_a0 := rosetta_g_miss_num_map(ddx_qpyv_rec.id);
632 p6_a1 := rosetta_g_miss_num_map(ddx_qpyv_rec.object_version_number);
633 p6_a2 := rosetta_g_miss_num_map(ddx_qpyv_rec.qte_id);
634 p6_a3 := rosetta_g_miss_num_map(ddx_qpyv_rec.cpl_id);
635 p6_a4 := ddx_qpyv_rec.date_sent;
636 p6_a5 := ddx_qpyv_rec.qpt_code;
637 p6_a6 := rosetta_g_miss_num_map(ddx_qpyv_rec.delay_days);
638 p6_a7 := rosetta_g_miss_num_map(ddx_qpyv_rec.allocation_percentage);
639 p6_a8 := ddx_qpyv_rec.email_address;
640 p6_a9 := ddx_qpyv_rec.party_jtot_object1_code;
641 p6_a10 := ddx_qpyv_rec.party_object1_id1;
642 p6_a11 := ddx_qpyv_rec.party_object1_id2;
643 p6_a12 := ddx_qpyv_rec.contact_jtot_object1_code;
644 p6_a13 := ddx_qpyv_rec.contact_object1_id1;
645 p6_a14 := ddx_qpyv_rec.contact_object1_id2;
646 p6_a15 := rosetta_g_miss_num_map(ddx_qpyv_rec.created_by);
647 p6_a16 := ddx_qpyv_rec.creation_date;
648 p6_a17 := rosetta_g_miss_num_map(ddx_qpyv_rec.last_updated_by);
649 p6_a18 := ddx_qpyv_rec.last_update_date;
650 p6_a19 := rosetta_g_miss_num_map(ddx_qpyv_rec.last_update_login);
651 end;
652
653 procedure delete_quote_parties(p_api_version NUMBER
654 , p_init_msg_list VARCHAR2
655 , x_return_status out nocopy VARCHAR2
656 , x_msg_count out nocopy NUMBER
657 , x_msg_data out nocopy VARCHAR2
658 , p5_a0 JTF_NUMBER_TABLE
659 , p5_a1 JTF_NUMBER_TABLE
660 , p5_a2 JTF_NUMBER_TABLE
661 , p5_a3 JTF_NUMBER_TABLE
662 , p5_a4 JTF_DATE_TABLE
663 , p5_a5 JTF_VARCHAR2_TABLE_100
664 , p5_a6 JTF_NUMBER_TABLE
665 , p5_a7 JTF_NUMBER_TABLE
666 , p5_a8 JTF_VARCHAR2_TABLE_600
667 , p5_a9 JTF_VARCHAR2_TABLE_100
668 , p5_a10 JTF_VARCHAR2_TABLE_100
669 , p5_a11 JTF_VARCHAR2_TABLE_200
670 , p5_a12 JTF_VARCHAR2_TABLE_100
671 , p5_a13 JTF_VARCHAR2_TABLE_100
672 , p5_a14 JTF_VARCHAR2_TABLE_200
673 , p5_a15 JTF_NUMBER_TABLE
674 , p5_a16 JTF_DATE_TABLE
675 , p5_a17 JTF_NUMBER_TABLE
676 , p5_a18 JTF_DATE_TABLE
677 , p5_a19 JTF_NUMBER_TABLE
678 )
679
680 as
681 ddp_qpyv_tbl okl_quote_parties_pub.qpyv_tbl_type;
682 ddindx binary_integer; indx binary_integer;
683 begin
684
685 -- copy data to the local IN or IN-OUT args, if any
686
687
688
689
690
691 okl_qpy_pvt_w.rosetta_table_copy_in_p5(ddp_qpyv_tbl, p5_a0
692 , p5_a1
693 , p5_a2
694 , p5_a3
695 , p5_a4
696 , p5_a5
697 , p5_a6
698 , p5_a7
699 , p5_a8
700 , p5_a9
701 , p5_a10
702 , p5_a11
703 , p5_a12
704 , p5_a13
705 , p5_a14
706 , p5_a15
707 , p5_a16
708 , p5_a17
709 , p5_a18
710 , p5_a19
711 );
712
713 -- here's the delegated call to the old PL/SQL routine
714 okl_quote_parties_pub.delete_quote_parties(p_api_version,
715 p_init_msg_list,
716 x_return_status,
717 x_msg_count,
718 x_msg_data,
719 ddp_qpyv_tbl);
720
721 -- copy data back from the local variables to OUT or IN-OUT args, if any
722
723
724
725
726
727 end;
728
729 procedure delete_quote_parties(p_api_version NUMBER
730 , p_init_msg_list VARCHAR2
731 , x_return_status out nocopy VARCHAR2
732 , x_msg_count out nocopy NUMBER
733 , x_msg_data out nocopy VARCHAR2
734 , p5_a0 NUMBER := 0-1962.0724
735 , p5_a1 NUMBER := 0-1962.0724
736 , p5_a2 NUMBER := 0-1962.0724
737 , p5_a3 NUMBER := 0-1962.0724
738 , p5_a4 DATE := fnd_api.g_miss_date
739 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
740 , p5_a6 NUMBER := 0-1962.0724
741 , p5_a7 NUMBER := 0-1962.0724
742 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
743 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
744 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
745 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
746 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
747 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
748 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
749 , p5_a15 NUMBER := 0-1962.0724
750 , p5_a16 DATE := fnd_api.g_miss_date
751 , p5_a17 NUMBER := 0-1962.0724
752 , p5_a18 DATE := fnd_api.g_miss_date
753 , p5_a19 NUMBER := 0-1962.0724
754 )
755
756 as
757 ddp_qpyv_rec okl_quote_parties_pub.qpyv_rec_type;
758 ddindx binary_integer; indx binary_integer;
759 begin
760
761 -- copy data to the local IN or IN-OUT args, if any
762
763
764
765
766
767 ddp_qpyv_rec.id := rosetta_g_miss_num_map(p5_a0);
768 ddp_qpyv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
769 ddp_qpyv_rec.qte_id := rosetta_g_miss_num_map(p5_a2);
770 ddp_qpyv_rec.cpl_id := rosetta_g_miss_num_map(p5_a3);
771 ddp_qpyv_rec.date_sent := rosetta_g_miss_date_in_map(p5_a4);
772 ddp_qpyv_rec.qpt_code := p5_a5;
773 ddp_qpyv_rec.delay_days := rosetta_g_miss_num_map(p5_a6);
774 ddp_qpyv_rec.allocation_percentage := rosetta_g_miss_num_map(p5_a7);
775 ddp_qpyv_rec.email_address := p5_a8;
776 ddp_qpyv_rec.party_jtot_object1_code := p5_a9;
777 ddp_qpyv_rec.party_object1_id1 := p5_a10;
778 ddp_qpyv_rec.party_object1_id2 := p5_a11;
779 ddp_qpyv_rec.contact_jtot_object1_code := p5_a12;
780 ddp_qpyv_rec.contact_object1_id1 := p5_a13;
781 ddp_qpyv_rec.contact_object1_id2 := p5_a14;
782 ddp_qpyv_rec.created_by := rosetta_g_miss_num_map(p5_a15);
783 ddp_qpyv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a16);
784 ddp_qpyv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a17);
785 ddp_qpyv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a18);
786 ddp_qpyv_rec.last_update_login := rosetta_g_miss_num_map(p5_a19);
787
788 -- here's the delegated call to the old PL/SQL routine
789 okl_quote_parties_pub.delete_quote_parties(p_api_version,
790 p_init_msg_list,
791 x_return_status,
792 x_msg_count,
793 x_msg_data,
794 ddp_qpyv_rec);
795
796 -- copy data back from the local variables to OUT or IN-OUT args, if any
797
798
799
800
801
802 end;
803
804 procedure validate_quote_parties(p_api_version NUMBER
805 , p_init_msg_list VARCHAR2
806 , x_return_status out nocopy VARCHAR2
807 , x_msg_count out nocopy NUMBER
808 , x_msg_data out nocopy VARCHAR2
809 , p5_a0 JTF_NUMBER_TABLE
810 , p5_a1 JTF_NUMBER_TABLE
811 , p5_a2 JTF_NUMBER_TABLE
812 , p5_a3 JTF_NUMBER_TABLE
813 , p5_a4 JTF_DATE_TABLE
814 , p5_a5 JTF_VARCHAR2_TABLE_100
815 , p5_a6 JTF_NUMBER_TABLE
816 , p5_a7 JTF_NUMBER_TABLE
817 , p5_a8 JTF_VARCHAR2_TABLE_600
818 , p5_a9 JTF_VARCHAR2_TABLE_100
819 , p5_a10 JTF_VARCHAR2_TABLE_100
820 , p5_a11 JTF_VARCHAR2_TABLE_200
821 , p5_a12 JTF_VARCHAR2_TABLE_100
822 , p5_a13 JTF_VARCHAR2_TABLE_100
823 , p5_a14 JTF_VARCHAR2_TABLE_200
824 , p5_a15 JTF_NUMBER_TABLE
825 , p5_a16 JTF_DATE_TABLE
826 , p5_a17 JTF_NUMBER_TABLE
827 , p5_a18 JTF_DATE_TABLE
828 , p5_a19 JTF_NUMBER_TABLE
829 )
830
831 as
832 ddp_qpyv_tbl okl_quote_parties_pub.qpyv_tbl_type;
833 ddindx binary_integer; indx binary_integer;
834 begin
835
836 -- copy data to the local IN or IN-OUT args, if any
837
838
839
840
841
842 okl_qpy_pvt_w.rosetta_table_copy_in_p5(ddp_qpyv_tbl, p5_a0
843 , p5_a1
844 , p5_a2
845 , p5_a3
846 , p5_a4
847 , p5_a5
848 , p5_a6
849 , p5_a7
850 , p5_a8
851 , p5_a9
852 , p5_a10
853 , p5_a11
854 , p5_a12
855 , p5_a13
856 , p5_a14
857 , p5_a15
858 , p5_a16
859 , p5_a17
860 , p5_a18
861 , p5_a19
862 );
863
864 -- here's the delegated call to the old PL/SQL routine
865 okl_quote_parties_pub.validate_quote_parties(p_api_version,
866 p_init_msg_list,
867 x_return_status,
868 x_msg_count,
869 x_msg_data,
870 ddp_qpyv_tbl);
871
872 -- copy data back from the local variables to OUT or IN-OUT args, if any
873
874
875
876
877
878 end;
879
880 procedure validate_quote_parties(p_api_version NUMBER
881 , p_init_msg_list VARCHAR2
882 , x_return_status out nocopy VARCHAR2
883 , x_msg_count out nocopy NUMBER
884 , x_msg_data out nocopy VARCHAR2
885 , p5_a0 NUMBER := 0-1962.0724
886 , p5_a1 NUMBER := 0-1962.0724
887 , p5_a2 NUMBER := 0-1962.0724
888 , p5_a3 NUMBER := 0-1962.0724
889 , p5_a4 DATE := fnd_api.g_miss_date
890 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
891 , p5_a6 NUMBER := 0-1962.0724
892 , p5_a7 NUMBER := 0-1962.0724
893 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
894 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
895 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
896 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
897 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
898 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
899 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
900 , p5_a15 NUMBER := 0-1962.0724
901 , p5_a16 DATE := fnd_api.g_miss_date
902 , p5_a17 NUMBER := 0-1962.0724
903 , p5_a18 DATE := fnd_api.g_miss_date
904 , p5_a19 NUMBER := 0-1962.0724
905 )
906
907 as
908 ddp_qpyv_rec okl_quote_parties_pub.qpyv_rec_type;
909 ddindx binary_integer; indx binary_integer;
910 begin
911
912 -- copy data to the local IN or IN-OUT args, if any
913
914
915
916
917
918 ddp_qpyv_rec.id := rosetta_g_miss_num_map(p5_a0);
919 ddp_qpyv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
920 ddp_qpyv_rec.qte_id := rosetta_g_miss_num_map(p5_a2);
921 ddp_qpyv_rec.cpl_id := rosetta_g_miss_num_map(p5_a3);
922 ddp_qpyv_rec.date_sent := rosetta_g_miss_date_in_map(p5_a4);
923 ddp_qpyv_rec.qpt_code := p5_a5;
924 ddp_qpyv_rec.delay_days := rosetta_g_miss_num_map(p5_a6);
925 ddp_qpyv_rec.allocation_percentage := rosetta_g_miss_num_map(p5_a7);
926 ddp_qpyv_rec.email_address := p5_a8;
927 ddp_qpyv_rec.party_jtot_object1_code := p5_a9;
928 ddp_qpyv_rec.party_object1_id1 := p5_a10;
929 ddp_qpyv_rec.party_object1_id2 := p5_a11;
930 ddp_qpyv_rec.contact_jtot_object1_code := p5_a12;
931 ddp_qpyv_rec.contact_object1_id1 := p5_a13;
932 ddp_qpyv_rec.contact_object1_id2 := p5_a14;
933 ddp_qpyv_rec.created_by := rosetta_g_miss_num_map(p5_a15);
934 ddp_qpyv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a16);
935 ddp_qpyv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a17);
936 ddp_qpyv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a18);
937 ddp_qpyv_rec.last_update_login := rosetta_g_miss_num_map(p5_a19);
938
939 -- here's the delegated call to the old PL/SQL routine
940 okl_quote_parties_pub.validate_quote_parties(p_api_version,
941 p_init_msg_list,
942 x_return_status,
943 x_msg_count,
944 x_msg_data,
945 ddp_qpyv_rec);
946
947 -- copy data back from the local variables to OUT or IN-OUT args, if any
948
949
950
951
952
953 end;
954
955 end okl_quote_parties_pub_w;