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