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