[Home] [Help]
PACKAGE BODY: APPS.OKL_REMARKETING_COSTS_PUB_W
Source
1 package body okl_remarketing_costs_pub_w as
2 /* $Header: OKLURFCB.pls 115.4 2002/12/19 23:33:00 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_remarketing_costs(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_VARCHAR2_TABLE_100
30 , p5_a3 JTF_NUMBER_TABLE
31 , p5_a4 JTF_VARCHAR2_TABLE_100
32 , p5_a5 JTF_NUMBER_TABLE
33 , p5_a6 JTF_VARCHAR2_TABLE_2000
34 , p5_a7 JTF_VARCHAR2_TABLE_100
35 , p5_a8 JTF_VARCHAR2_TABLE_500
36 , p5_a9 JTF_VARCHAR2_TABLE_500
37 , p5_a10 JTF_VARCHAR2_TABLE_500
38 , p5_a11 JTF_VARCHAR2_TABLE_500
39 , p5_a12 JTF_VARCHAR2_TABLE_500
40 , p5_a13 JTF_VARCHAR2_TABLE_500
41 , p5_a14 JTF_VARCHAR2_TABLE_500
42 , p5_a15 JTF_VARCHAR2_TABLE_500
43 , p5_a16 JTF_VARCHAR2_TABLE_500
44 , p5_a17 JTF_VARCHAR2_TABLE_500
45 , p5_a18 JTF_VARCHAR2_TABLE_500
46 , p5_a19 JTF_VARCHAR2_TABLE_500
47 , p5_a20 JTF_VARCHAR2_TABLE_500
48 , p5_a21 JTF_VARCHAR2_TABLE_500
49 , p5_a22 JTF_VARCHAR2_TABLE_500
50 , p5_a23 JTF_NUMBER_TABLE
51 , p5_a24 JTF_NUMBER_TABLE
52 , p5_a25 JTF_NUMBER_TABLE
53 , p5_a26 JTF_NUMBER_TABLE
54 , p5_a27 JTF_DATE_TABLE
55 , p5_a28 JTF_NUMBER_TABLE
56 , p5_a29 JTF_DATE_TABLE
57 , p5_a30 JTF_NUMBER_TABLE
58 , p5_a31 JTF_DATE_TABLE
59 , p5_a32 JTF_NUMBER_TABLE
60 , p5_a33 JTF_VARCHAR2_TABLE_100
61 , p5_a34 JTF_VARCHAR2_TABLE_100
62 , p5_a35 JTF_VARCHAR2_TABLE_100
63 , p5_a36 JTF_NUMBER_TABLE
64 , p5_a37 JTF_DATE_TABLE
65 , p6_a0 out nocopy JTF_NUMBER_TABLE
66 , p6_a1 out nocopy JTF_NUMBER_TABLE
67 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
68 , p6_a3 out nocopy JTF_NUMBER_TABLE
69 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
70 , p6_a5 out nocopy JTF_NUMBER_TABLE
71 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_2000
72 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
73 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_500
74 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
75 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
76 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
77 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
78 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
79 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
80 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
81 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
82 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
83 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
84 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
85 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
86 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
87 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
88 , p6_a23 out nocopy JTF_NUMBER_TABLE
89 , p6_a24 out nocopy JTF_NUMBER_TABLE
90 , p6_a25 out nocopy JTF_NUMBER_TABLE
91 , p6_a26 out nocopy JTF_NUMBER_TABLE
92 , p6_a27 out nocopy JTF_DATE_TABLE
93 , p6_a28 out nocopy JTF_NUMBER_TABLE
94 , p6_a29 out nocopy JTF_DATE_TABLE
95 , p6_a30 out nocopy JTF_NUMBER_TABLE
96 , p6_a31 out nocopy JTF_DATE_TABLE
97 , p6_a32 out nocopy JTF_NUMBER_TABLE
98 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_100
99 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_100
100 , p6_a35 out nocopy JTF_VARCHAR2_TABLE_100
101 , p6_a36 out nocopy JTF_NUMBER_TABLE
102 , p6_a37 out nocopy JTF_DATE_TABLE
103 )
104
105 as
106 ddp_rfcv_tbl okl_remarketing_costs_pub.rfcv_tbl_type;
107 ddx_rfcv_tbl okl_remarketing_costs_pub.rfcv_tbl_type;
108 ddindx binary_integer; indx binary_integer;
109 begin
110
111 -- copy data to the local IN or IN-OUT args, if any
112
113
114
115
116
117 okl_rfc_pvt_w.rosetta_table_copy_in_p8(ddp_rfcv_tbl, p5_a0
118 , p5_a1
119 , p5_a2
120 , p5_a3
121 , p5_a4
122 , p5_a5
123 , p5_a6
124 , p5_a7
125 , p5_a8
126 , p5_a9
127 , p5_a10
128 , p5_a11
129 , p5_a12
130 , p5_a13
131 , p5_a14
132 , p5_a15
133 , p5_a16
134 , p5_a17
135 , p5_a18
136 , p5_a19
137 , p5_a20
138 , p5_a21
139 , p5_a22
140 , p5_a23
141 , p5_a24
142 , p5_a25
143 , p5_a26
144 , p5_a27
145 , p5_a28
146 , p5_a29
147 , p5_a30
148 , p5_a31
149 , p5_a32
150 , p5_a33
151 , p5_a34
152 , p5_a35
153 , p5_a36
154 , p5_a37
155 );
156
157
158 -- here's the delegated call to the old PL/SQL routine
159 okl_remarketing_costs_pub.insert_remarketing_costs(p_api_version,
160 p_init_msg_list,
161 x_return_status,
162 x_msg_count,
163 x_msg_data,
164 ddp_rfcv_tbl,
165 ddx_rfcv_tbl);
166
167 -- copy data back from the local variables to OUT or IN-OUT args, if any
168
169
170
171
172
173
174 okl_rfc_pvt_w.rosetta_table_copy_out_p8(ddx_rfcv_tbl, p6_a0
175 , p6_a1
176 , p6_a2
177 , p6_a3
178 , p6_a4
179 , p6_a5
180 , p6_a6
181 , p6_a7
182 , p6_a8
183 , p6_a9
184 , p6_a10
185 , p6_a11
186 , p6_a12
187 , p6_a13
188 , p6_a14
189 , p6_a15
190 , p6_a16
191 , p6_a17
192 , p6_a18
193 , p6_a19
194 , p6_a20
195 , p6_a21
196 , p6_a22
197 , p6_a23
198 , p6_a24
199 , p6_a25
200 , p6_a26
201 , p6_a27
202 , p6_a28
203 , p6_a29
204 , p6_a30
205 , p6_a31
206 , p6_a32
207 , p6_a33
208 , p6_a34
209 , p6_a35
210 , p6_a36
211 , p6_a37
212 );
213 end;
214
215 procedure insert_remarketing_costs(p_api_version NUMBER
216 , p_init_msg_list VARCHAR2
217 , x_return_status out nocopy VARCHAR2
218 , x_msg_count out nocopy NUMBER
219 , x_msg_data out nocopy VARCHAR2
220 , p6_a0 out nocopy NUMBER
221 , p6_a1 out nocopy NUMBER
222 , p6_a2 out nocopy VARCHAR2
223 , p6_a3 out nocopy NUMBER
224 , p6_a4 out nocopy VARCHAR2
225 , p6_a5 out nocopy NUMBER
226 , p6_a6 out nocopy VARCHAR2
227 , p6_a7 out nocopy VARCHAR2
228 , p6_a8 out nocopy VARCHAR2
229 , p6_a9 out nocopy VARCHAR2
230 , p6_a10 out nocopy VARCHAR2
231 , p6_a11 out nocopy VARCHAR2
232 , p6_a12 out nocopy VARCHAR2
233 , p6_a13 out nocopy VARCHAR2
234 , p6_a14 out nocopy VARCHAR2
235 , p6_a15 out nocopy VARCHAR2
236 , p6_a16 out nocopy VARCHAR2
237 , p6_a17 out nocopy VARCHAR2
238 , p6_a18 out nocopy VARCHAR2
239 , p6_a19 out nocopy VARCHAR2
240 , p6_a20 out nocopy VARCHAR2
241 , p6_a21 out nocopy VARCHAR2
242 , p6_a22 out nocopy VARCHAR2
243 , p6_a23 out nocopy NUMBER
244 , p6_a24 out nocopy NUMBER
245 , p6_a25 out nocopy NUMBER
246 , p6_a26 out nocopy NUMBER
247 , p6_a27 out nocopy DATE
248 , p6_a28 out nocopy NUMBER
249 , p6_a29 out nocopy DATE
250 , p6_a30 out nocopy NUMBER
251 , p6_a31 out nocopy DATE
252 , p6_a32 out nocopy NUMBER
253 , p6_a33 out nocopy VARCHAR2
254 , p6_a34 out nocopy VARCHAR2
255 , p6_a35 out nocopy VARCHAR2
256 , p6_a36 out nocopy NUMBER
257 , p6_a37 out nocopy DATE
258 , p5_a0 NUMBER := 0-1962.0724
259 , p5_a1 NUMBER := 0-1962.0724
260 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
261 , p5_a3 NUMBER := 0-1962.0724
262 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
263 , p5_a5 NUMBER := 0-1962.0724
264 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
265 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
266 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
267 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
268 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
269 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
270 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
271 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
272 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
273 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
274 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
275 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
276 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
277 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
278 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
279 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
280 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
281 , p5_a23 NUMBER := 0-1962.0724
282 , p5_a24 NUMBER := 0-1962.0724
283 , p5_a25 NUMBER := 0-1962.0724
284 , p5_a26 NUMBER := 0-1962.0724
285 , p5_a27 DATE := fnd_api.g_miss_date
286 , p5_a28 NUMBER := 0-1962.0724
287 , p5_a29 DATE := fnd_api.g_miss_date
288 , p5_a30 NUMBER := 0-1962.0724
289 , p5_a31 DATE := fnd_api.g_miss_date
290 , p5_a32 NUMBER := 0-1962.0724
291 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
292 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
293 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
294 , p5_a36 NUMBER := 0-1962.0724
295 , p5_a37 DATE := fnd_api.g_miss_date
296 )
297
298 as
299 ddp_rfcv_rec okl_remarketing_costs_pub.rfcv_rec_type;
300 ddx_rfcv_rec okl_remarketing_costs_pub.rfcv_rec_type;
301 ddindx binary_integer; indx binary_integer;
302 begin
303
304 -- copy data to the local IN or IN-OUT args, if any
305
306
307
308
309
310 ddp_rfcv_rec.id := rosetta_g_miss_num_map(p5_a0);
311 ddp_rfcv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
312 ddp_rfcv_rec.sfwt_flag := p5_a2;
313 ddp_rfcv_rec.art_id := rosetta_g_miss_num_map(p5_a3);
314 ddp_rfcv_rec.cos_code := p5_a4;
315 ddp_rfcv_rec.amount := rosetta_g_miss_num_map(p5_a5);
316 ddp_rfcv_rec.comments := p5_a6;
317 ddp_rfcv_rec.attribute_category := p5_a7;
318 ddp_rfcv_rec.attribute1 := p5_a8;
319 ddp_rfcv_rec.attribute2 := p5_a9;
320 ddp_rfcv_rec.attribute3 := p5_a10;
321 ddp_rfcv_rec.attribute4 := p5_a11;
322 ddp_rfcv_rec.attribute5 := p5_a12;
323 ddp_rfcv_rec.attribute6 := p5_a13;
324 ddp_rfcv_rec.attribute7 := p5_a14;
325 ddp_rfcv_rec.attribute8 := p5_a15;
326 ddp_rfcv_rec.attribute9 := p5_a16;
327 ddp_rfcv_rec.attribute10 := p5_a17;
328 ddp_rfcv_rec.attribute11 := p5_a18;
329 ddp_rfcv_rec.attribute12 := p5_a19;
330 ddp_rfcv_rec.attribute13 := p5_a20;
331 ddp_rfcv_rec.attribute14 := p5_a21;
332 ddp_rfcv_rec.attribute15 := p5_a22;
333 ddp_rfcv_rec.org_id := rosetta_g_miss_num_map(p5_a23);
334 ddp_rfcv_rec.request_id := rosetta_g_miss_num_map(p5_a24);
335 ddp_rfcv_rec.program_application_id := rosetta_g_miss_num_map(p5_a25);
336 ddp_rfcv_rec.program_id := rosetta_g_miss_num_map(p5_a26);
337 ddp_rfcv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a27);
338 ddp_rfcv_rec.created_by := rosetta_g_miss_num_map(p5_a28);
339 ddp_rfcv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a29);
340 ddp_rfcv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a30);
341 ddp_rfcv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a31);
342 ddp_rfcv_rec.last_update_login := rosetta_g_miss_num_map(p5_a32);
343 ddp_rfcv_rec.currency_code := p5_a33;
344 ddp_rfcv_rec.currency_conversion_code := p5_a34;
345 ddp_rfcv_rec.currency_conversion_type := p5_a35;
346 ddp_rfcv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a36);
347 ddp_rfcv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a37);
348
349
350 -- here's the delegated call to the old PL/SQL routine
351 okl_remarketing_costs_pub.insert_remarketing_costs(p_api_version,
352 p_init_msg_list,
353 x_return_status,
354 x_msg_count,
355 x_msg_data,
356 ddp_rfcv_rec,
357 ddx_rfcv_rec);
358
359 -- copy data back from the local variables to OUT or IN-OUT args, if any
360
361
362
363
364
365
366 p6_a0 := rosetta_g_miss_num_map(ddx_rfcv_rec.id);
367 p6_a1 := rosetta_g_miss_num_map(ddx_rfcv_rec.object_version_number);
368 p6_a2 := ddx_rfcv_rec.sfwt_flag;
369 p6_a3 := rosetta_g_miss_num_map(ddx_rfcv_rec.art_id);
370 p6_a4 := ddx_rfcv_rec.cos_code;
371 p6_a5 := rosetta_g_miss_num_map(ddx_rfcv_rec.amount);
372 p6_a6 := ddx_rfcv_rec.comments;
373 p6_a7 := ddx_rfcv_rec.attribute_category;
374 p6_a8 := ddx_rfcv_rec.attribute1;
375 p6_a9 := ddx_rfcv_rec.attribute2;
376 p6_a10 := ddx_rfcv_rec.attribute3;
377 p6_a11 := ddx_rfcv_rec.attribute4;
378 p6_a12 := ddx_rfcv_rec.attribute5;
379 p6_a13 := ddx_rfcv_rec.attribute6;
380 p6_a14 := ddx_rfcv_rec.attribute7;
381 p6_a15 := ddx_rfcv_rec.attribute8;
382 p6_a16 := ddx_rfcv_rec.attribute9;
383 p6_a17 := ddx_rfcv_rec.attribute10;
384 p6_a18 := ddx_rfcv_rec.attribute11;
385 p6_a19 := ddx_rfcv_rec.attribute12;
386 p6_a20 := ddx_rfcv_rec.attribute13;
387 p6_a21 := ddx_rfcv_rec.attribute14;
388 p6_a22 := ddx_rfcv_rec.attribute15;
389 p6_a23 := rosetta_g_miss_num_map(ddx_rfcv_rec.org_id);
390 p6_a24 := rosetta_g_miss_num_map(ddx_rfcv_rec.request_id);
391 p6_a25 := rosetta_g_miss_num_map(ddx_rfcv_rec.program_application_id);
392 p6_a26 := rosetta_g_miss_num_map(ddx_rfcv_rec.program_id);
393 p6_a27 := ddx_rfcv_rec.program_update_date;
394 p6_a28 := rosetta_g_miss_num_map(ddx_rfcv_rec.created_by);
395 p6_a29 := ddx_rfcv_rec.creation_date;
396 p6_a30 := rosetta_g_miss_num_map(ddx_rfcv_rec.last_updated_by);
397 p6_a31 := ddx_rfcv_rec.last_update_date;
398 p6_a32 := rosetta_g_miss_num_map(ddx_rfcv_rec.last_update_login);
399 p6_a33 := ddx_rfcv_rec.currency_code;
400 p6_a34 := ddx_rfcv_rec.currency_conversion_code;
401 p6_a35 := ddx_rfcv_rec.currency_conversion_type;
402 p6_a36 := rosetta_g_miss_num_map(ddx_rfcv_rec.currency_conversion_rate);
403 p6_a37 := ddx_rfcv_rec.currency_conversion_date;
404 end;
405
406 procedure lock_remarketing_costs(p_api_version NUMBER
407 , p_init_msg_list VARCHAR2
408 , x_return_status out nocopy VARCHAR2
409 , x_msg_count out nocopy NUMBER
410 , x_msg_data out nocopy VARCHAR2
411 , p5_a0 JTF_NUMBER_TABLE
412 , p5_a1 JTF_NUMBER_TABLE
413 , p5_a2 JTF_VARCHAR2_TABLE_100
414 , p5_a3 JTF_NUMBER_TABLE
415 , p5_a4 JTF_VARCHAR2_TABLE_100
416 , p5_a5 JTF_NUMBER_TABLE
417 , p5_a6 JTF_VARCHAR2_TABLE_2000
418 , p5_a7 JTF_VARCHAR2_TABLE_100
419 , p5_a8 JTF_VARCHAR2_TABLE_500
420 , p5_a9 JTF_VARCHAR2_TABLE_500
421 , p5_a10 JTF_VARCHAR2_TABLE_500
422 , p5_a11 JTF_VARCHAR2_TABLE_500
423 , p5_a12 JTF_VARCHAR2_TABLE_500
424 , p5_a13 JTF_VARCHAR2_TABLE_500
425 , p5_a14 JTF_VARCHAR2_TABLE_500
426 , p5_a15 JTF_VARCHAR2_TABLE_500
427 , p5_a16 JTF_VARCHAR2_TABLE_500
428 , p5_a17 JTF_VARCHAR2_TABLE_500
429 , p5_a18 JTF_VARCHAR2_TABLE_500
430 , p5_a19 JTF_VARCHAR2_TABLE_500
431 , p5_a20 JTF_VARCHAR2_TABLE_500
432 , p5_a21 JTF_VARCHAR2_TABLE_500
433 , p5_a22 JTF_VARCHAR2_TABLE_500
434 , p5_a23 JTF_NUMBER_TABLE
435 , p5_a24 JTF_NUMBER_TABLE
436 , p5_a25 JTF_NUMBER_TABLE
437 , p5_a26 JTF_NUMBER_TABLE
438 , p5_a27 JTF_DATE_TABLE
439 , p5_a28 JTF_NUMBER_TABLE
440 , p5_a29 JTF_DATE_TABLE
441 , p5_a30 JTF_NUMBER_TABLE
442 , p5_a31 JTF_DATE_TABLE
443 , p5_a32 JTF_NUMBER_TABLE
444 , p5_a33 JTF_VARCHAR2_TABLE_100
445 , p5_a34 JTF_VARCHAR2_TABLE_100
446 , p5_a35 JTF_VARCHAR2_TABLE_100
447 , p5_a36 JTF_NUMBER_TABLE
448 , p5_a37 JTF_DATE_TABLE
449 )
450
451 as
452 ddp_rfcv_tbl okl_remarketing_costs_pub.rfcv_tbl_type;
453 ddindx binary_integer; indx binary_integer;
454 begin
455
456 -- copy data to the local IN or IN-OUT args, if any
457
458
459
460
461
462 okl_rfc_pvt_w.rosetta_table_copy_in_p8(ddp_rfcv_tbl, p5_a0
463 , p5_a1
464 , p5_a2
465 , p5_a3
466 , p5_a4
467 , p5_a5
468 , p5_a6
469 , p5_a7
470 , p5_a8
471 , p5_a9
472 , p5_a10
473 , p5_a11
474 , p5_a12
475 , p5_a13
476 , p5_a14
477 , p5_a15
478 , p5_a16
479 , p5_a17
480 , p5_a18
481 , p5_a19
482 , p5_a20
483 , p5_a21
484 , p5_a22
485 , p5_a23
486 , p5_a24
487 , p5_a25
488 , p5_a26
489 , p5_a27
490 , p5_a28
491 , p5_a29
492 , p5_a30
493 , p5_a31
494 , p5_a32
495 , p5_a33
496 , p5_a34
497 , p5_a35
498 , p5_a36
499 , p5_a37
500 );
501
502 -- here's the delegated call to the old PL/SQL routine
503 okl_remarketing_costs_pub.lock_remarketing_costs(p_api_version,
504 p_init_msg_list,
505 x_return_status,
506 x_msg_count,
507 x_msg_data,
508 ddp_rfcv_tbl);
509
510 -- copy data back from the local variables to OUT or IN-OUT args, if any
511
512
513
514
515
516 end;
517
518 procedure lock_remarketing_costs(p_api_version NUMBER
519 , p_init_msg_list VARCHAR2
520 , x_return_status out nocopy VARCHAR2
521 , x_msg_count out nocopy NUMBER
522 , x_msg_data out nocopy VARCHAR2
523 , p5_a0 NUMBER := 0-1962.0724
524 , p5_a1 NUMBER := 0-1962.0724
525 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
526 , p5_a3 NUMBER := 0-1962.0724
527 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
528 , p5_a5 NUMBER := 0-1962.0724
529 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
530 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
531 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
532 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
533 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
534 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
535 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
536 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
537 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
538 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
539 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
540 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
541 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
542 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
543 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
544 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
545 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
546 , p5_a23 NUMBER := 0-1962.0724
547 , p5_a24 NUMBER := 0-1962.0724
548 , p5_a25 NUMBER := 0-1962.0724
549 , p5_a26 NUMBER := 0-1962.0724
550 , p5_a27 DATE := fnd_api.g_miss_date
551 , p5_a28 NUMBER := 0-1962.0724
552 , p5_a29 DATE := fnd_api.g_miss_date
553 , p5_a30 NUMBER := 0-1962.0724
554 , p5_a31 DATE := fnd_api.g_miss_date
555 , p5_a32 NUMBER := 0-1962.0724
556 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
557 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
558 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
559 , p5_a36 NUMBER := 0-1962.0724
560 , p5_a37 DATE := fnd_api.g_miss_date
561 )
562
563 as
564 ddp_rfcv_rec okl_remarketing_costs_pub.rfcv_rec_type;
565 ddindx binary_integer; indx binary_integer;
566 begin
567
568 -- copy data to the local IN or IN-OUT args, if any
569
570
571
572
573
574 ddp_rfcv_rec.id := rosetta_g_miss_num_map(p5_a0);
575 ddp_rfcv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
576 ddp_rfcv_rec.sfwt_flag := p5_a2;
577 ddp_rfcv_rec.art_id := rosetta_g_miss_num_map(p5_a3);
578 ddp_rfcv_rec.cos_code := p5_a4;
579 ddp_rfcv_rec.amount := rosetta_g_miss_num_map(p5_a5);
580 ddp_rfcv_rec.comments := p5_a6;
581 ddp_rfcv_rec.attribute_category := p5_a7;
582 ddp_rfcv_rec.attribute1 := p5_a8;
583 ddp_rfcv_rec.attribute2 := p5_a9;
584 ddp_rfcv_rec.attribute3 := p5_a10;
585 ddp_rfcv_rec.attribute4 := p5_a11;
586 ddp_rfcv_rec.attribute5 := p5_a12;
587 ddp_rfcv_rec.attribute6 := p5_a13;
588 ddp_rfcv_rec.attribute7 := p5_a14;
589 ddp_rfcv_rec.attribute8 := p5_a15;
590 ddp_rfcv_rec.attribute9 := p5_a16;
591 ddp_rfcv_rec.attribute10 := p5_a17;
592 ddp_rfcv_rec.attribute11 := p5_a18;
593 ddp_rfcv_rec.attribute12 := p5_a19;
594 ddp_rfcv_rec.attribute13 := p5_a20;
595 ddp_rfcv_rec.attribute14 := p5_a21;
596 ddp_rfcv_rec.attribute15 := p5_a22;
597 ddp_rfcv_rec.org_id := rosetta_g_miss_num_map(p5_a23);
598 ddp_rfcv_rec.request_id := rosetta_g_miss_num_map(p5_a24);
599 ddp_rfcv_rec.program_application_id := rosetta_g_miss_num_map(p5_a25);
600 ddp_rfcv_rec.program_id := rosetta_g_miss_num_map(p5_a26);
601 ddp_rfcv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a27);
602 ddp_rfcv_rec.created_by := rosetta_g_miss_num_map(p5_a28);
603 ddp_rfcv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a29);
604 ddp_rfcv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a30);
605 ddp_rfcv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a31);
606 ddp_rfcv_rec.last_update_login := rosetta_g_miss_num_map(p5_a32);
607 ddp_rfcv_rec.currency_code := p5_a33;
608 ddp_rfcv_rec.currency_conversion_code := p5_a34;
609 ddp_rfcv_rec.currency_conversion_type := p5_a35;
610 ddp_rfcv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a36);
611 ddp_rfcv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a37);
612
613 -- here's the delegated call to the old PL/SQL routine
614 okl_remarketing_costs_pub.lock_remarketing_costs(p_api_version,
615 p_init_msg_list,
616 x_return_status,
617 x_msg_count,
618 x_msg_data,
619 ddp_rfcv_rec);
620
621 -- copy data back from the local variables to OUT or IN-OUT args, if any
622
623
624
625
626
627 end;
628
629 procedure update_remarketing_costs(p_api_version NUMBER
630 , p_init_msg_list VARCHAR2
631 , x_return_status out nocopy VARCHAR2
632 , x_msg_count out nocopy NUMBER
633 , x_msg_data out nocopy VARCHAR2
634 , p5_a0 JTF_NUMBER_TABLE
635 , p5_a1 JTF_NUMBER_TABLE
636 , p5_a2 JTF_VARCHAR2_TABLE_100
637 , p5_a3 JTF_NUMBER_TABLE
638 , p5_a4 JTF_VARCHAR2_TABLE_100
639 , p5_a5 JTF_NUMBER_TABLE
640 , p5_a6 JTF_VARCHAR2_TABLE_2000
641 , p5_a7 JTF_VARCHAR2_TABLE_100
642 , p5_a8 JTF_VARCHAR2_TABLE_500
643 , p5_a9 JTF_VARCHAR2_TABLE_500
644 , p5_a10 JTF_VARCHAR2_TABLE_500
645 , p5_a11 JTF_VARCHAR2_TABLE_500
646 , p5_a12 JTF_VARCHAR2_TABLE_500
647 , p5_a13 JTF_VARCHAR2_TABLE_500
648 , p5_a14 JTF_VARCHAR2_TABLE_500
649 , p5_a15 JTF_VARCHAR2_TABLE_500
650 , p5_a16 JTF_VARCHAR2_TABLE_500
651 , p5_a17 JTF_VARCHAR2_TABLE_500
652 , p5_a18 JTF_VARCHAR2_TABLE_500
653 , p5_a19 JTF_VARCHAR2_TABLE_500
654 , p5_a20 JTF_VARCHAR2_TABLE_500
655 , p5_a21 JTF_VARCHAR2_TABLE_500
656 , p5_a22 JTF_VARCHAR2_TABLE_500
657 , p5_a23 JTF_NUMBER_TABLE
658 , p5_a24 JTF_NUMBER_TABLE
659 , p5_a25 JTF_NUMBER_TABLE
660 , p5_a26 JTF_NUMBER_TABLE
661 , p5_a27 JTF_DATE_TABLE
662 , p5_a28 JTF_NUMBER_TABLE
663 , p5_a29 JTF_DATE_TABLE
664 , p5_a30 JTF_NUMBER_TABLE
665 , p5_a31 JTF_DATE_TABLE
666 , p5_a32 JTF_NUMBER_TABLE
667 , p5_a33 JTF_VARCHAR2_TABLE_100
668 , p5_a34 JTF_VARCHAR2_TABLE_100
669 , p5_a35 JTF_VARCHAR2_TABLE_100
670 , p5_a36 JTF_NUMBER_TABLE
671 , p5_a37 JTF_DATE_TABLE
672 , p6_a0 out nocopy JTF_NUMBER_TABLE
673 , p6_a1 out nocopy JTF_NUMBER_TABLE
674 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
675 , p6_a3 out nocopy JTF_NUMBER_TABLE
676 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
677 , p6_a5 out nocopy JTF_NUMBER_TABLE
678 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_2000
679 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
680 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_500
681 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
682 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
683 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
684 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
685 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
686 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
687 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
688 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
689 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
690 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
691 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
692 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
693 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
694 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
695 , p6_a23 out nocopy JTF_NUMBER_TABLE
696 , p6_a24 out nocopy JTF_NUMBER_TABLE
697 , p6_a25 out nocopy JTF_NUMBER_TABLE
698 , p6_a26 out nocopy JTF_NUMBER_TABLE
699 , p6_a27 out nocopy JTF_DATE_TABLE
700 , p6_a28 out nocopy JTF_NUMBER_TABLE
701 , p6_a29 out nocopy JTF_DATE_TABLE
702 , p6_a30 out nocopy JTF_NUMBER_TABLE
703 , p6_a31 out nocopy JTF_DATE_TABLE
704 , p6_a32 out nocopy JTF_NUMBER_TABLE
705 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_100
706 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_100
707 , p6_a35 out nocopy JTF_VARCHAR2_TABLE_100
708 , p6_a36 out nocopy JTF_NUMBER_TABLE
709 , p6_a37 out nocopy JTF_DATE_TABLE
710 )
711
712 as
713 ddp_rfcv_tbl okl_remarketing_costs_pub.rfcv_tbl_type;
714 ddx_rfcv_tbl okl_remarketing_costs_pub.rfcv_tbl_type;
715 ddindx binary_integer; indx binary_integer;
716 begin
717
718 -- copy data to the local IN or IN-OUT args, if any
719
720
721
722
723
724 okl_rfc_pvt_w.rosetta_table_copy_in_p8(ddp_rfcv_tbl, p5_a0
725 , p5_a1
726 , p5_a2
727 , p5_a3
728 , p5_a4
729 , p5_a5
730 , p5_a6
731 , p5_a7
732 , p5_a8
733 , p5_a9
734 , p5_a10
735 , p5_a11
736 , p5_a12
737 , p5_a13
738 , p5_a14
739 , p5_a15
740 , p5_a16
741 , p5_a17
742 , p5_a18
743 , p5_a19
744 , p5_a20
745 , p5_a21
746 , p5_a22
747 , p5_a23
748 , p5_a24
749 , p5_a25
750 , p5_a26
751 , p5_a27
752 , p5_a28
753 , p5_a29
754 , p5_a30
755 , p5_a31
756 , p5_a32
757 , p5_a33
758 , p5_a34
759 , p5_a35
760 , p5_a36
761 , p5_a37
762 );
763
764
765 -- here's the delegated call to the old PL/SQL routine
766 okl_remarketing_costs_pub.update_remarketing_costs(p_api_version,
767 p_init_msg_list,
768 x_return_status,
769 x_msg_count,
770 x_msg_data,
771 ddp_rfcv_tbl,
772 ddx_rfcv_tbl);
773
774 -- copy data back from the local variables to OUT or IN-OUT args, if any
775
776
777
778
779
780
781 okl_rfc_pvt_w.rosetta_table_copy_out_p8(ddx_rfcv_tbl, p6_a0
782 , p6_a1
783 , p6_a2
784 , p6_a3
785 , p6_a4
786 , p6_a5
787 , p6_a6
788 , p6_a7
789 , p6_a8
790 , p6_a9
791 , p6_a10
792 , p6_a11
793 , p6_a12
794 , p6_a13
795 , p6_a14
796 , p6_a15
797 , p6_a16
798 , p6_a17
799 , p6_a18
800 , p6_a19
801 , p6_a20
802 , p6_a21
803 , p6_a22
804 , p6_a23
805 , p6_a24
806 , p6_a25
807 , p6_a26
808 , p6_a27
809 , p6_a28
810 , p6_a29
811 , p6_a30
812 , p6_a31
813 , p6_a32
814 , p6_a33
815 , p6_a34
816 , p6_a35
817 , p6_a36
818 , p6_a37
819 );
820 end;
821
822 procedure update_remarketing_costs(p_api_version NUMBER
823 , p_init_msg_list VARCHAR2
824 , x_return_status out nocopy VARCHAR2
825 , x_msg_count out nocopy NUMBER
826 , x_msg_data out nocopy VARCHAR2
827 , p6_a0 out nocopy NUMBER
828 , p6_a1 out nocopy NUMBER
829 , p6_a2 out nocopy VARCHAR2
830 , p6_a3 out nocopy NUMBER
831 , p6_a4 out nocopy VARCHAR2
832 , p6_a5 out nocopy NUMBER
833 , p6_a6 out nocopy VARCHAR2
834 , p6_a7 out nocopy VARCHAR2
835 , p6_a8 out nocopy VARCHAR2
836 , p6_a9 out nocopy VARCHAR2
837 , p6_a10 out nocopy VARCHAR2
838 , p6_a11 out nocopy VARCHAR2
839 , p6_a12 out nocopy VARCHAR2
840 , p6_a13 out nocopy VARCHAR2
841 , p6_a14 out nocopy VARCHAR2
842 , p6_a15 out nocopy VARCHAR2
843 , p6_a16 out nocopy VARCHAR2
844 , p6_a17 out nocopy VARCHAR2
845 , p6_a18 out nocopy VARCHAR2
846 , p6_a19 out nocopy VARCHAR2
847 , p6_a20 out nocopy VARCHAR2
848 , p6_a21 out nocopy VARCHAR2
849 , p6_a22 out nocopy VARCHAR2
850 , p6_a23 out nocopy NUMBER
851 , p6_a24 out nocopy NUMBER
852 , p6_a25 out nocopy NUMBER
853 , p6_a26 out nocopy NUMBER
854 , p6_a27 out nocopy DATE
855 , p6_a28 out nocopy NUMBER
856 , p6_a29 out nocopy DATE
857 , p6_a30 out nocopy NUMBER
858 , p6_a31 out nocopy DATE
859 , p6_a32 out nocopy NUMBER
860 , p6_a33 out nocopy VARCHAR2
861 , p6_a34 out nocopy VARCHAR2
862 , p6_a35 out nocopy VARCHAR2
863 , p6_a36 out nocopy NUMBER
864 , p6_a37 out nocopy DATE
865 , p5_a0 NUMBER := 0-1962.0724
866 , p5_a1 NUMBER := 0-1962.0724
867 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
868 , p5_a3 NUMBER := 0-1962.0724
869 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
870 , p5_a5 NUMBER := 0-1962.0724
871 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
872 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
873 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
874 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
875 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
876 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
877 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
878 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
879 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
880 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
881 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
882 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
883 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
884 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
885 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
886 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
887 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
888 , p5_a23 NUMBER := 0-1962.0724
889 , p5_a24 NUMBER := 0-1962.0724
890 , p5_a25 NUMBER := 0-1962.0724
891 , p5_a26 NUMBER := 0-1962.0724
892 , p5_a27 DATE := fnd_api.g_miss_date
893 , p5_a28 NUMBER := 0-1962.0724
894 , p5_a29 DATE := fnd_api.g_miss_date
895 , p5_a30 NUMBER := 0-1962.0724
896 , p5_a31 DATE := fnd_api.g_miss_date
897 , p5_a32 NUMBER := 0-1962.0724
898 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
899 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
900 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
901 , p5_a36 NUMBER := 0-1962.0724
902 , p5_a37 DATE := fnd_api.g_miss_date
903 )
904
905 as
906 ddp_rfcv_rec okl_remarketing_costs_pub.rfcv_rec_type;
907 ddx_rfcv_rec okl_remarketing_costs_pub.rfcv_rec_type;
908 ddindx binary_integer; indx binary_integer;
909 begin
910
911 -- copy data to the local IN or IN-OUT args, if any
912
913
914
915
916
917 ddp_rfcv_rec.id := rosetta_g_miss_num_map(p5_a0);
918 ddp_rfcv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
919 ddp_rfcv_rec.sfwt_flag := p5_a2;
920 ddp_rfcv_rec.art_id := rosetta_g_miss_num_map(p5_a3);
921 ddp_rfcv_rec.cos_code := p5_a4;
922 ddp_rfcv_rec.amount := rosetta_g_miss_num_map(p5_a5);
923 ddp_rfcv_rec.comments := p5_a6;
924 ddp_rfcv_rec.attribute_category := p5_a7;
925 ddp_rfcv_rec.attribute1 := p5_a8;
926 ddp_rfcv_rec.attribute2 := p5_a9;
927 ddp_rfcv_rec.attribute3 := p5_a10;
928 ddp_rfcv_rec.attribute4 := p5_a11;
929 ddp_rfcv_rec.attribute5 := p5_a12;
930 ddp_rfcv_rec.attribute6 := p5_a13;
931 ddp_rfcv_rec.attribute7 := p5_a14;
932 ddp_rfcv_rec.attribute8 := p5_a15;
933 ddp_rfcv_rec.attribute9 := p5_a16;
934 ddp_rfcv_rec.attribute10 := p5_a17;
935 ddp_rfcv_rec.attribute11 := p5_a18;
936 ddp_rfcv_rec.attribute12 := p5_a19;
937 ddp_rfcv_rec.attribute13 := p5_a20;
938 ddp_rfcv_rec.attribute14 := p5_a21;
939 ddp_rfcv_rec.attribute15 := p5_a22;
940 ddp_rfcv_rec.org_id := rosetta_g_miss_num_map(p5_a23);
941 ddp_rfcv_rec.request_id := rosetta_g_miss_num_map(p5_a24);
942 ddp_rfcv_rec.program_application_id := rosetta_g_miss_num_map(p5_a25);
943 ddp_rfcv_rec.program_id := rosetta_g_miss_num_map(p5_a26);
944 ddp_rfcv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a27);
945 ddp_rfcv_rec.created_by := rosetta_g_miss_num_map(p5_a28);
946 ddp_rfcv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a29);
947 ddp_rfcv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a30);
948 ddp_rfcv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a31);
949 ddp_rfcv_rec.last_update_login := rosetta_g_miss_num_map(p5_a32);
950 ddp_rfcv_rec.currency_code := p5_a33;
951 ddp_rfcv_rec.currency_conversion_code := p5_a34;
952 ddp_rfcv_rec.currency_conversion_type := p5_a35;
953 ddp_rfcv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a36);
954 ddp_rfcv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a37);
955
956
957 -- here's the delegated call to the old PL/SQL routine
958 okl_remarketing_costs_pub.update_remarketing_costs(p_api_version,
959 p_init_msg_list,
960 x_return_status,
961 x_msg_count,
962 x_msg_data,
963 ddp_rfcv_rec,
964 ddx_rfcv_rec);
965
966 -- copy data back from the local variables to OUT or IN-OUT args, if any
967
968
969
970
971
972
973 p6_a0 := rosetta_g_miss_num_map(ddx_rfcv_rec.id);
974 p6_a1 := rosetta_g_miss_num_map(ddx_rfcv_rec.object_version_number);
975 p6_a2 := ddx_rfcv_rec.sfwt_flag;
976 p6_a3 := rosetta_g_miss_num_map(ddx_rfcv_rec.art_id);
977 p6_a4 := ddx_rfcv_rec.cos_code;
978 p6_a5 := rosetta_g_miss_num_map(ddx_rfcv_rec.amount);
979 p6_a6 := ddx_rfcv_rec.comments;
980 p6_a7 := ddx_rfcv_rec.attribute_category;
981 p6_a8 := ddx_rfcv_rec.attribute1;
982 p6_a9 := ddx_rfcv_rec.attribute2;
983 p6_a10 := ddx_rfcv_rec.attribute3;
984 p6_a11 := ddx_rfcv_rec.attribute4;
985 p6_a12 := ddx_rfcv_rec.attribute5;
986 p6_a13 := ddx_rfcv_rec.attribute6;
987 p6_a14 := ddx_rfcv_rec.attribute7;
988 p6_a15 := ddx_rfcv_rec.attribute8;
989 p6_a16 := ddx_rfcv_rec.attribute9;
990 p6_a17 := ddx_rfcv_rec.attribute10;
991 p6_a18 := ddx_rfcv_rec.attribute11;
992 p6_a19 := ddx_rfcv_rec.attribute12;
993 p6_a20 := ddx_rfcv_rec.attribute13;
994 p6_a21 := ddx_rfcv_rec.attribute14;
995 p6_a22 := ddx_rfcv_rec.attribute15;
996 p6_a23 := rosetta_g_miss_num_map(ddx_rfcv_rec.org_id);
997 p6_a24 := rosetta_g_miss_num_map(ddx_rfcv_rec.request_id);
998 p6_a25 := rosetta_g_miss_num_map(ddx_rfcv_rec.program_application_id);
999 p6_a26 := rosetta_g_miss_num_map(ddx_rfcv_rec.program_id);
1000 p6_a27 := ddx_rfcv_rec.program_update_date;
1001 p6_a28 := rosetta_g_miss_num_map(ddx_rfcv_rec.created_by);
1002 p6_a29 := ddx_rfcv_rec.creation_date;
1003 p6_a30 := rosetta_g_miss_num_map(ddx_rfcv_rec.last_updated_by);
1004 p6_a31 := ddx_rfcv_rec.last_update_date;
1005 p6_a32 := rosetta_g_miss_num_map(ddx_rfcv_rec.last_update_login);
1006 p6_a33 := ddx_rfcv_rec.currency_code;
1007 p6_a34 := ddx_rfcv_rec.currency_conversion_code;
1008 p6_a35 := ddx_rfcv_rec.currency_conversion_type;
1009 p6_a36 := rosetta_g_miss_num_map(ddx_rfcv_rec.currency_conversion_rate);
1010 p6_a37 := ddx_rfcv_rec.currency_conversion_date;
1011 end;
1012
1013 procedure delete_remarketing_costs(p_api_version NUMBER
1014 , p_init_msg_list VARCHAR2
1015 , x_return_status out nocopy VARCHAR2
1016 , x_msg_count out nocopy NUMBER
1017 , x_msg_data out nocopy VARCHAR2
1018 , p5_a0 JTF_NUMBER_TABLE
1019 , p5_a1 JTF_NUMBER_TABLE
1020 , p5_a2 JTF_VARCHAR2_TABLE_100
1021 , p5_a3 JTF_NUMBER_TABLE
1022 , p5_a4 JTF_VARCHAR2_TABLE_100
1023 , p5_a5 JTF_NUMBER_TABLE
1024 , p5_a6 JTF_VARCHAR2_TABLE_2000
1025 , p5_a7 JTF_VARCHAR2_TABLE_100
1026 , p5_a8 JTF_VARCHAR2_TABLE_500
1027 , p5_a9 JTF_VARCHAR2_TABLE_500
1028 , p5_a10 JTF_VARCHAR2_TABLE_500
1029 , p5_a11 JTF_VARCHAR2_TABLE_500
1030 , p5_a12 JTF_VARCHAR2_TABLE_500
1031 , p5_a13 JTF_VARCHAR2_TABLE_500
1032 , p5_a14 JTF_VARCHAR2_TABLE_500
1033 , p5_a15 JTF_VARCHAR2_TABLE_500
1034 , p5_a16 JTF_VARCHAR2_TABLE_500
1035 , p5_a17 JTF_VARCHAR2_TABLE_500
1036 , p5_a18 JTF_VARCHAR2_TABLE_500
1037 , p5_a19 JTF_VARCHAR2_TABLE_500
1038 , p5_a20 JTF_VARCHAR2_TABLE_500
1039 , p5_a21 JTF_VARCHAR2_TABLE_500
1040 , p5_a22 JTF_VARCHAR2_TABLE_500
1041 , p5_a23 JTF_NUMBER_TABLE
1042 , p5_a24 JTF_NUMBER_TABLE
1043 , p5_a25 JTF_NUMBER_TABLE
1044 , p5_a26 JTF_NUMBER_TABLE
1045 , p5_a27 JTF_DATE_TABLE
1046 , p5_a28 JTF_NUMBER_TABLE
1047 , p5_a29 JTF_DATE_TABLE
1048 , p5_a30 JTF_NUMBER_TABLE
1049 , p5_a31 JTF_DATE_TABLE
1050 , p5_a32 JTF_NUMBER_TABLE
1051 , p5_a33 JTF_VARCHAR2_TABLE_100
1052 , p5_a34 JTF_VARCHAR2_TABLE_100
1053 , p5_a35 JTF_VARCHAR2_TABLE_100
1054 , p5_a36 JTF_NUMBER_TABLE
1055 , p5_a37 JTF_DATE_TABLE
1056 )
1057
1058 as
1059 ddp_rfcv_tbl okl_remarketing_costs_pub.rfcv_tbl_type;
1060 ddindx binary_integer; indx binary_integer;
1061 begin
1062
1063 -- copy data to the local IN or IN-OUT args, if any
1064
1065
1066
1067
1068
1069 okl_rfc_pvt_w.rosetta_table_copy_in_p8(ddp_rfcv_tbl, p5_a0
1070 , p5_a1
1071 , p5_a2
1072 , p5_a3
1073 , p5_a4
1074 , p5_a5
1075 , p5_a6
1076 , p5_a7
1077 , p5_a8
1078 , p5_a9
1079 , p5_a10
1080 , p5_a11
1081 , p5_a12
1082 , p5_a13
1083 , p5_a14
1084 , p5_a15
1085 , p5_a16
1086 , p5_a17
1087 , p5_a18
1088 , p5_a19
1089 , p5_a20
1090 , p5_a21
1091 , p5_a22
1092 , p5_a23
1093 , p5_a24
1094 , p5_a25
1095 , p5_a26
1096 , p5_a27
1097 , p5_a28
1098 , p5_a29
1099 , p5_a30
1100 , p5_a31
1101 , p5_a32
1102 , p5_a33
1103 , p5_a34
1104 , p5_a35
1105 , p5_a36
1106 , p5_a37
1107 );
1108
1109 -- here's the delegated call to the old PL/SQL routine
1110 okl_remarketing_costs_pub.delete_remarketing_costs(p_api_version,
1111 p_init_msg_list,
1112 x_return_status,
1113 x_msg_count,
1114 x_msg_data,
1115 ddp_rfcv_tbl);
1116
1117 -- copy data back from the local variables to OUT or IN-OUT args, if any
1118
1119
1120
1121
1122
1123 end;
1124
1125 procedure delete_remarketing_costs(p_api_version NUMBER
1126 , p_init_msg_list VARCHAR2
1127 , x_return_status out nocopy VARCHAR2
1128 , x_msg_count out nocopy NUMBER
1129 , x_msg_data out nocopy VARCHAR2
1130 , p5_a0 NUMBER := 0-1962.0724
1131 , p5_a1 NUMBER := 0-1962.0724
1132 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1133 , p5_a3 NUMBER := 0-1962.0724
1134 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1135 , p5_a5 NUMBER := 0-1962.0724
1136 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1137 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1138 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1139 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1140 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1141 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1142 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1143 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1144 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1145 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1146 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1147 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1148 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1149 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1150 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1151 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1152 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1153 , p5_a23 NUMBER := 0-1962.0724
1154 , p5_a24 NUMBER := 0-1962.0724
1155 , p5_a25 NUMBER := 0-1962.0724
1156 , p5_a26 NUMBER := 0-1962.0724
1157 , p5_a27 DATE := fnd_api.g_miss_date
1158 , p5_a28 NUMBER := 0-1962.0724
1159 , p5_a29 DATE := fnd_api.g_miss_date
1160 , p5_a30 NUMBER := 0-1962.0724
1161 , p5_a31 DATE := fnd_api.g_miss_date
1162 , p5_a32 NUMBER := 0-1962.0724
1163 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
1164 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
1165 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
1166 , p5_a36 NUMBER := 0-1962.0724
1167 , p5_a37 DATE := fnd_api.g_miss_date
1168 )
1169
1170 as
1171 ddp_rfcv_rec okl_remarketing_costs_pub.rfcv_rec_type;
1172 ddindx binary_integer; indx binary_integer;
1173 begin
1174
1175 -- copy data to the local IN or IN-OUT args, if any
1176
1177
1178
1179
1180
1181 ddp_rfcv_rec.id := rosetta_g_miss_num_map(p5_a0);
1182 ddp_rfcv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1183 ddp_rfcv_rec.sfwt_flag := p5_a2;
1184 ddp_rfcv_rec.art_id := rosetta_g_miss_num_map(p5_a3);
1185 ddp_rfcv_rec.cos_code := p5_a4;
1186 ddp_rfcv_rec.amount := rosetta_g_miss_num_map(p5_a5);
1187 ddp_rfcv_rec.comments := p5_a6;
1188 ddp_rfcv_rec.attribute_category := p5_a7;
1189 ddp_rfcv_rec.attribute1 := p5_a8;
1190 ddp_rfcv_rec.attribute2 := p5_a9;
1191 ddp_rfcv_rec.attribute3 := p5_a10;
1192 ddp_rfcv_rec.attribute4 := p5_a11;
1193 ddp_rfcv_rec.attribute5 := p5_a12;
1194 ddp_rfcv_rec.attribute6 := p5_a13;
1195 ddp_rfcv_rec.attribute7 := p5_a14;
1196 ddp_rfcv_rec.attribute8 := p5_a15;
1197 ddp_rfcv_rec.attribute9 := p5_a16;
1198 ddp_rfcv_rec.attribute10 := p5_a17;
1199 ddp_rfcv_rec.attribute11 := p5_a18;
1200 ddp_rfcv_rec.attribute12 := p5_a19;
1201 ddp_rfcv_rec.attribute13 := p5_a20;
1202 ddp_rfcv_rec.attribute14 := p5_a21;
1203 ddp_rfcv_rec.attribute15 := p5_a22;
1204 ddp_rfcv_rec.org_id := rosetta_g_miss_num_map(p5_a23);
1205 ddp_rfcv_rec.request_id := rosetta_g_miss_num_map(p5_a24);
1206 ddp_rfcv_rec.program_application_id := rosetta_g_miss_num_map(p5_a25);
1207 ddp_rfcv_rec.program_id := rosetta_g_miss_num_map(p5_a26);
1208 ddp_rfcv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a27);
1209 ddp_rfcv_rec.created_by := rosetta_g_miss_num_map(p5_a28);
1210 ddp_rfcv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a29);
1211 ddp_rfcv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a30);
1212 ddp_rfcv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a31);
1213 ddp_rfcv_rec.last_update_login := rosetta_g_miss_num_map(p5_a32);
1214 ddp_rfcv_rec.currency_code := p5_a33;
1215 ddp_rfcv_rec.currency_conversion_code := p5_a34;
1216 ddp_rfcv_rec.currency_conversion_type := p5_a35;
1217 ddp_rfcv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a36);
1218 ddp_rfcv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a37);
1219
1220 -- here's the delegated call to the old PL/SQL routine
1221 okl_remarketing_costs_pub.delete_remarketing_costs(p_api_version,
1222 p_init_msg_list,
1223 x_return_status,
1224 x_msg_count,
1225 x_msg_data,
1226 ddp_rfcv_rec);
1227
1228 -- copy data back from the local variables to OUT or IN-OUT args, if any
1229
1230
1231
1232
1233
1234 end;
1235
1236 procedure validate_rmrkting_costs(p_api_version NUMBER
1237 , p_init_msg_list VARCHAR2
1238 , x_return_status out nocopy VARCHAR2
1239 , x_msg_count out nocopy NUMBER
1240 , x_msg_data out nocopy VARCHAR2
1241 , p5_a0 JTF_NUMBER_TABLE
1242 , p5_a1 JTF_NUMBER_TABLE
1243 , p5_a2 JTF_VARCHAR2_TABLE_100
1244 , p5_a3 JTF_NUMBER_TABLE
1245 , p5_a4 JTF_VARCHAR2_TABLE_100
1246 , p5_a5 JTF_NUMBER_TABLE
1247 , p5_a6 JTF_VARCHAR2_TABLE_2000
1248 , p5_a7 JTF_VARCHAR2_TABLE_100
1249 , p5_a8 JTF_VARCHAR2_TABLE_500
1250 , p5_a9 JTF_VARCHAR2_TABLE_500
1251 , p5_a10 JTF_VARCHAR2_TABLE_500
1252 , p5_a11 JTF_VARCHAR2_TABLE_500
1253 , p5_a12 JTF_VARCHAR2_TABLE_500
1254 , p5_a13 JTF_VARCHAR2_TABLE_500
1255 , p5_a14 JTF_VARCHAR2_TABLE_500
1256 , p5_a15 JTF_VARCHAR2_TABLE_500
1257 , p5_a16 JTF_VARCHAR2_TABLE_500
1258 , p5_a17 JTF_VARCHAR2_TABLE_500
1259 , p5_a18 JTF_VARCHAR2_TABLE_500
1260 , p5_a19 JTF_VARCHAR2_TABLE_500
1261 , p5_a20 JTF_VARCHAR2_TABLE_500
1262 , p5_a21 JTF_VARCHAR2_TABLE_500
1263 , p5_a22 JTF_VARCHAR2_TABLE_500
1264 , p5_a23 JTF_NUMBER_TABLE
1265 , p5_a24 JTF_NUMBER_TABLE
1266 , p5_a25 JTF_NUMBER_TABLE
1267 , p5_a26 JTF_NUMBER_TABLE
1268 , p5_a27 JTF_DATE_TABLE
1269 , p5_a28 JTF_NUMBER_TABLE
1270 , p5_a29 JTF_DATE_TABLE
1271 , p5_a30 JTF_NUMBER_TABLE
1272 , p5_a31 JTF_DATE_TABLE
1273 , p5_a32 JTF_NUMBER_TABLE
1274 , p5_a33 JTF_VARCHAR2_TABLE_100
1275 , p5_a34 JTF_VARCHAR2_TABLE_100
1276 , p5_a35 JTF_VARCHAR2_TABLE_100
1277 , p5_a36 JTF_NUMBER_TABLE
1278 , p5_a37 JTF_DATE_TABLE
1279 )
1280
1281 as
1282 ddp_rfcv_tbl okl_remarketing_costs_pub.rfcv_tbl_type;
1283 ddindx binary_integer; indx binary_integer;
1284 begin
1285
1286 -- copy data to the local IN or IN-OUT args, if any
1287
1288
1289
1290
1291
1292 okl_rfc_pvt_w.rosetta_table_copy_in_p8(ddp_rfcv_tbl, p5_a0
1293 , p5_a1
1294 , p5_a2
1295 , p5_a3
1296 , p5_a4
1297 , p5_a5
1298 , p5_a6
1299 , p5_a7
1300 , p5_a8
1301 , p5_a9
1302 , p5_a10
1303 , p5_a11
1304 , p5_a12
1305 , p5_a13
1306 , p5_a14
1307 , p5_a15
1308 , p5_a16
1309 , p5_a17
1310 , p5_a18
1311 , p5_a19
1312 , p5_a20
1313 , p5_a21
1314 , p5_a22
1315 , p5_a23
1316 , p5_a24
1317 , p5_a25
1318 , p5_a26
1319 , p5_a27
1320 , p5_a28
1321 , p5_a29
1322 , p5_a30
1323 , p5_a31
1324 , p5_a32
1325 , p5_a33
1326 , p5_a34
1327 , p5_a35
1328 , p5_a36
1329 , p5_a37
1330 );
1331
1332 -- here's the delegated call to the old PL/SQL routine
1333 okl_remarketing_costs_pub.validate_rmrkting_costs(p_api_version,
1334 p_init_msg_list,
1335 x_return_status,
1336 x_msg_count,
1337 x_msg_data,
1338 ddp_rfcv_tbl);
1339
1340 -- copy data back from the local variables to OUT or IN-OUT args, if any
1341
1342
1343
1344
1345
1346 end;
1347
1348 procedure validate_rmrkting_costs(p_api_version NUMBER
1349 , p_init_msg_list VARCHAR2
1350 , x_return_status out nocopy VARCHAR2
1351 , x_msg_count out nocopy NUMBER
1352 , x_msg_data out nocopy VARCHAR2
1353 , p5_a0 NUMBER := 0-1962.0724
1354 , p5_a1 NUMBER := 0-1962.0724
1355 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1356 , p5_a3 NUMBER := 0-1962.0724
1357 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1358 , p5_a5 NUMBER := 0-1962.0724
1359 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1360 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1361 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1362 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1363 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1364 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1365 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1366 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1367 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1368 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1369 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1370 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1371 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1372 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1373 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1374 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1375 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1376 , p5_a23 NUMBER := 0-1962.0724
1377 , p5_a24 NUMBER := 0-1962.0724
1378 , p5_a25 NUMBER := 0-1962.0724
1379 , p5_a26 NUMBER := 0-1962.0724
1380 , p5_a27 DATE := fnd_api.g_miss_date
1381 , p5_a28 NUMBER := 0-1962.0724
1382 , p5_a29 DATE := fnd_api.g_miss_date
1383 , p5_a30 NUMBER := 0-1962.0724
1384 , p5_a31 DATE := fnd_api.g_miss_date
1385 , p5_a32 NUMBER := 0-1962.0724
1386 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
1387 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
1388 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
1389 , p5_a36 NUMBER := 0-1962.0724
1390 , p5_a37 DATE := fnd_api.g_miss_date
1391 )
1392
1393 as
1394 ddp_rfcv_rec okl_remarketing_costs_pub.rfcv_rec_type;
1395 ddindx binary_integer; indx binary_integer;
1396 begin
1397
1398 -- copy data to the local IN or IN-OUT args, if any
1399
1400
1401
1402
1403
1404 ddp_rfcv_rec.id := rosetta_g_miss_num_map(p5_a0);
1405 ddp_rfcv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1406 ddp_rfcv_rec.sfwt_flag := p5_a2;
1407 ddp_rfcv_rec.art_id := rosetta_g_miss_num_map(p5_a3);
1408 ddp_rfcv_rec.cos_code := p5_a4;
1409 ddp_rfcv_rec.amount := rosetta_g_miss_num_map(p5_a5);
1410 ddp_rfcv_rec.comments := p5_a6;
1411 ddp_rfcv_rec.attribute_category := p5_a7;
1412 ddp_rfcv_rec.attribute1 := p5_a8;
1413 ddp_rfcv_rec.attribute2 := p5_a9;
1414 ddp_rfcv_rec.attribute3 := p5_a10;
1415 ddp_rfcv_rec.attribute4 := p5_a11;
1416 ddp_rfcv_rec.attribute5 := p5_a12;
1417 ddp_rfcv_rec.attribute6 := p5_a13;
1418 ddp_rfcv_rec.attribute7 := p5_a14;
1419 ddp_rfcv_rec.attribute8 := p5_a15;
1420 ddp_rfcv_rec.attribute9 := p5_a16;
1421 ddp_rfcv_rec.attribute10 := p5_a17;
1422 ddp_rfcv_rec.attribute11 := p5_a18;
1423 ddp_rfcv_rec.attribute12 := p5_a19;
1424 ddp_rfcv_rec.attribute13 := p5_a20;
1425 ddp_rfcv_rec.attribute14 := p5_a21;
1426 ddp_rfcv_rec.attribute15 := p5_a22;
1427 ddp_rfcv_rec.org_id := rosetta_g_miss_num_map(p5_a23);
1428 ddp_rfcv_rec.request_id := rosetta_g_miss_num_map(p5_a24);
1429 ddp_rfcv_rec.program_application_id := rosetta_g_miss_num_map(p5_a25);
1430 ddp_rfcv_rec.program_id := rosetta_g_miss_num_map(p5_a26);
1431 ddp_rfcv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a27);
1432 ddp_rfcv_rec.created_by := rosetta_g_miss_num_map(p5_a28);
1433 ddp_rfcv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a29);
1434 ddp_rfcv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a30);
1435 ddp_rfcv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a31);
1436 ddp_rfcv_rec.last_update_login := rosetta_g_miss_num_map(p5_a32);
1437 ddp_rfcv_rec.currency_code := p5_a33;
1438 ddp_rfcv_rec.currency_conversion_code := p5_a34;
1439 ddp_rfcv_rec.currency_conversion_type := p5_a35;
1440 ddp_rfcv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a36);
1441 ddp_rfcv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a37);
1442
1443 -- here's the delegated call to the old PL/SQL routine
1444 okl_remarketing_costs_pub.validate_rmrkting_costs(p_api_version,
1445 p_init_msg_list,
1446 x_return_status,
1447 x_msg_count,
1448 x_msg_data,
1449 ddp_rfcv_rec);
1450
1451 -- copy data back from the local variables to OUT or IN-OUT args, if any
1452
1453
1454
1455
1456
1457 end;
1458
1459 end okl_remarketing_costs_pub_w;