[Home] [Help]
PACKAGE BODY: APPS.AHL_OSP_SHIPMENT_PUB_W
Source
1 package body ahl_osp_shipment_pub_w as
2 /* $Header: AHLWOSHB.pls 120.1 2007/07/30 10:43:57 mpothuku ship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy ahl_osp_shipment_pub.sernum_change_tbl_type, a0 JTF_VARCHAR2_TABLE_100
4 , a1 JTF_VARCHAR2_TABLE_100
5 , a2 JTF_VARCHAR2_TABLE_100
6 , a3 JTF_VARCHAR2_TABLE_100
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_NUMBER_TABLE
9 , a6 JTF_VARCHAR2_TABLE_100
10 , a7 JTF_VARCHAR2_TABLE_100
11 , a8 JTF_VARCHAR2_TABLE_100
12 , a9 JTF_VARCHAR2_TABLE_100
13 , a10 JTF_VARCHAR2_TABLE_100
14 ) as
15 ddindx binary_integer; indx binary_integer;
16 begin
17 if a0 is not null and a0.count > 0 then
18 if a0.count > 0 then
19 indx := a0.first;
20 ddindx := 1;
21 while true loop
22 t(ddindx).item_number := a0(indx);
23 t(ddindx).new_item_number := a1(indx);
24 t(ddindx).new_lot_number := a2(indx);
25 t(ddindx).new_item_rev_number := a3(indx);
26 t(ddindx).osp_line_id := a4(indx);
27 t(ddindx).instance_id := a5(indx);
28 t(ddindx).current_serial_number := a6(indx);
29 t(ddindx).current_serail_tag := a7(indx);
30 t(ddindx).new_serial_number := a8(indx);
31 t(ddindx).new_serial_tag_code := a9(indx);
32 t(ddindx).new_serial_tag_mean := a10(indx);
33 ddindx := ddindx+1;
34 if a0.last =indx
35 then exit;
36 end if;
37 indx := a0.next(indx);
38 end loop;
39 end if;
40 end if;
41 end rosetta_table_copy_in_p1;
42 procedure rosetta_table_copy_out_p1(t ahl_osp_shipment_pub.sernum_change_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
43 , a1 out nocopy JTF_VARCHAR2_TABLE_100
44 , a2 out nocopy JTF_VARCHAR2_TABLE_100
45 , a3 out nocopy JTF_VARCHAR2_TABLE_100
46 , a4 out nocopy JTF_NUMBER_TABLE
47 , a5 out nocopy JTF_NUMBER_TABLE
48 , a6 out nocopy JTF_VARCHAR2_TABLE_100
49 , a7 out nocopy JTF_VARCHAR2_TABLE_100
50 , a8 out nocopy JTF_VARCHAR2_TABLE_100
51 , a9 out nocopy JTF_VARCHAR2_TABLE_100
52 , a10 out nocopy JTF_VARCHAR2_TABLE_100
53 ) as
54 ddindx binary_integer; indx binary_integer;
55 begin
56 if t is null or t.count = 0 then
57 a0 := JTF_VARCHAR2_TABLE_100();
58 a1 := JTF_VARCHAR2_TABLE_100();
59 a2 := JTF_VARCHAR2_TABLE_100();
60 a3 := JTF_VARCHAR2_TABLE_100();
61 a4 := JTF_NUMBER_TABLE();
62 a5 := JTF_NUMBER_TABLE();
63 a6 := JTF_VARCHAR2_TABLE_100();
64 a7 := JTF_VARCHAR2_TABLE_100();
65 a8 := JTF_VARCHAR2_TABLE_100();
66 a9 := JTF_VARCHAR2_TABLE_100();
67 a10 := JTF_VARCHAR2_TABLE_100();
68 else
69 a0 := JTF_VARCHAR2_TABLE_100();
70 a1 := JTF_VARCHAR2_TABLE_100();
71 a2 := JTF_VARCHAR2_TABLE_100();
72 a3 := JTF_VARCHAR2_TABLE_100();
73 a4 := JTF_NUMBER_TABLE();
74 a5 := JTF_NUMBER_TABLE();
75 a6 := JTF_VARCHAR2_TABLE_100();
76 a7 := JTF_VARCHAR2_TABLE_100();
77 a8 := JTF_VARCHAR2_TABLE_100();
78 a9 := JTF_VARCHAR2_TABLE_100();
79 a10 := JTF_VARCHAR2_TABLE_100();
80 if t.count > 0 then
81 a0.extend(t.count);
82 a1.extend(t.count);
83 a2.extend(t.count);
84 a3.extend(t.count);
85 a4.extend(t.count);
86 a5.extend(t.count);
87 a6.extend(t.count);
88 a7.extend(t.count);
89 a8.extend(t.count);
90 a9.extend(t.count);
91 a10.extend(t.count);
92 ddindx := t.first;
93 indx := 1;
94 while true loop
95 a0(indx) := t(ddindx).item_number;
96 a1(indx) := t(ddindx).new_item_number;
97 a2(indx) := t(ddindx).new_lot_number;
98 a3(indx) := t(ddindx).new_item_rev_number;
99 a4(indx) := t(ddindx).osp_line_id;
100 a5(indx) := t(ddindx).instance_id;
101 a6(indx) := t(ddindx).current_serial_number;
102 a7(indx) := t(ddindx).current_serail_tag;
103 a8(indx) := t(ddindx).new_serial_number;
104 a9(indx) := t(ddindx).new_serial_tag_code;
105 a10(indx) := t(ddindx).new_serial_tag_mean;
106 indx := indx+1;
107 if t.last =ddindx
108 then exit;
109 end if;
110 ddindx := t.next(ddindx);
111 end loop;
112 end if;
113 end if;
114 end rosetta_table_copy_out_p1;
115
116 procedure rosetta_table_copy_in_p4(t out nocopy ahl_osp_shipment_pub.ship_line_tbl_type, a0 JTF_NUMBER_TABLE
117 , a1 JTF_NUMBER_TABLE
118 , a2 JTF_NUMBER_TABLE
119 , a3 JTF_VARCHAR2_TABLE_300
120 , a4 JTF_NUMBER_TABLE
121 , a5 JTF_VARCHAR2_TABLE_300
122 , a6 JTF_VARCHAR2_TABLE_100
123 , a7 JTF_NUMBER_TABLE
124 , a8 JTF_VARCHAR2_TABLE_300
125 , a9 JTF_NUMBER_TABLE
126 , a10 JTF_VARCHAR2_TABLE_300
127 , a11 JTF_VARCHAR2_TABLE_100
128 , a12 JTF_NUMBER_TABLE
129 , a13 JTF_NUMBER_TABLE
130 , a14 JTF_VARCHAR2_TABLE_300
131 , a15 JTF_VARCHAR2_TABLE_100
132 , a16 JTF_VARCHAR2_TABLE_100
133 , a17 JTF_NUMBER_TABLE
134 , a18 JTF_VARCHAR2_TABLE_100
135 , a19 JTF_NUMBER_TABLE
136 , a20 JTF_NUMBER_TABLE
137 , a21 JTF_VARCHAR2_TABLE_100
138 , a22 JTF_VARCHAR2_TABLE_100
139 , a23 JTF_VARCHAR2_TABLE_300
140 , a24 JTF_DATE_TABLE
141 , a25 JTF_VARCHAR2_TABLE_2000
142 , a26 JTF_VARCHAR2_TABLE_300
143 , a27 JTF_NUMBER_TABLE
144 , a28 JTF_VARCHAR2_TABLE_300
145 , a29 JTF_VARCHAR2_TABLE_100
146 , a30 JTF_VARCHAR2_TABLE_300
147 , a31 JTF_VARCHAR2_TABLE_100
148 , a32 JTF_VARCHAR2_TABLE_300
149 , a33 JTF_VARCHAR2_TABLE_100
150 , a34 JTF_VARCHAR2_TABLE_100
151 , a35 JTF_VARCHAR2_TABLE_300
152 , a36 JTF_VARCHAR2_TABLE_100
153 , a37 JTF_VARCHAR2_TABLE_300
154 , a38 JTF_VARCHAR2_TABLE_100
155 , a39 JTF_NUMBER_TABLE
156 , a40 JTF_VARCHAR2_TABLE_100
157 , a41 JTF_NUMBER_TABLE
158 , a42 JTF_VARCHAR2_TABLE_100
159 , a43 JTF_NUMBER_TABLE
160 , a44 JTF_VARCHAR2_TABLE_100
161 ) as
162 ddindx binary_integer; indx binary_integer;
163 begin
164 if a0 is not null and a0.count > 0 then
165 if a0.count > 0 then
166 indx := a0.first;
167 ddindx := 1;
168 while true loop
169 t(ddindx).line_id := a0(indx);
170 t(ddindx).line_number := a1(indx);
171 t(ddindx).header_id := a2(indx);
172 t(ddindx).order_type := a3(indx);
173 t(ddindx).line_type_id := a4(indx);
174 t(ddindx).line_type := a5(indx);
175 t(ddindx).job_number := a6(indx);
176 t(ddindx).project_id := a7(indx);
177 t(ddindx).project := a8(indx);
178 t(ddindx).task_id := a9(indx);
179 t(ddindx).task := a10(indx);
180 t(ddindx).operation := a11(indx);
181 t(ddindx).inventory_item_id := a12(indx);
182 t(ddindx).inventory_org_id := a13(indx);
183 t(ddindx).inventory_item := a14(indx);
184 t(ddindx).lot_number := a15(indx);
185 t(ddindx).inventory_item_uom := a16(indx);
186 t(ddindx).inventory_item_quantity := a17(indx);
187 t(ddindx).serial_number := a18(indx);
188 t(ddindx).csi_item_instance_id := a19(indx);
189 t(ddindx).ordered_quantity := a20(indx);
190 t(ddindx).order_quantity_uom := a21(indx);
191 t(ddindx).return_reason_code := a22(indx);
192 t(ddindx).return_reason := a23(indx);
193 t(ddindx).schedule_ship_date := a24(indx);
194 t(ddindx).packing_instructions := a25(indx);
195 t(ddindx).ship_from_org := a26(indx);
196 t(ddindx).ship_from_org_id := a27(indx);
197 t(ddindx).fob_point := a28(indx);
198 t(ddindx).fob_point_code := a29(indx);
199 t(ddindx).freight_carrier := a30(indx);
200 t(ddindx).freight_carrier_code := a31(indx);
201 t(ddindx).freight_terms := a32(indx);
202 t(ddindx).freight_terms_code := a33(indx);
203 t(ddindx).shipment_priority_code := a34(indx);
204 t(ddindx).shipment_priority := a35(indx);
205 t(ddindx).shipping_method_code := a36(indx);
206 t(ddindx).shipping_method := a37(indx);
207 t(ddindx).subinventory := a38(indx);
208 t(ddindx).osp_order_id := a39(indx);
209 t(ddindx).osp_order_number := a40(indx);
210 t(ddindx).osp_line_id := a41(indx);
211 t(ddindx).osp_line_number := a42(indx);
212 t(ddindx).instance_id := a43(indx);
213 t(ddindx).osp_line_flag := a44(indx);
214 ddindx := ddindx+1;
215 if a0.last =indx
216 then exit;
217 end if;
218 indx := a0.next(indx);
219 end loop;
220 end if;
221 end if;
222 end rosetta_table_copy_in_p4;
223 procedure rosetta_table_copy_out_p4(t ahl_osp_shipment_pub.ship_line_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
224 , a1 out nocopy JTF_NUMBER_TABLE
225 , a2 out nocopy JTF_NUMBER_TABLE
226 , a3 out nocopy JTF_VARCHAR2_TABLE_300
227 , a4 out nocopy JTF_NUMBER_TABLE
228 , a5 out nocopy JTF_VARCHAR2_TABLE_300
229 , a6 out nocopy JTF_VARCHAR2_TABLE_100
230 , a7 out nocopy JTF_NUMBER_TABLE
231 , a8 out nocopy JTF_VARCHAR2_TABLE_300
232 , a9 out nocopy JTF_NUMBER_TABLE
233 , a10 out nocopy JTF_VARCHAR2_TABLE_300
234 , a11 out nocopy JTF_VARCHAR2_TABLE_100
235 , a12 out nocopy JTF_NUMBER_TABLE
236 , a13 out nocopy JTF_NUMBER_TABLE
237 , a14 out nocopy JTF_VARCHAR2_TABLE_300
238 , a15 out nocopy JTF_VARCHAR2_TABLE_100
239 , a16 out nocopy JTF_VARCHAR2_TABLE_100
240 , a17 out nocopy JTF_NUMBER_TABLE
241 , a18 out nocopy JTF_VARCHAR2_TABLE_100
242 , a19 out nocopy JTF_NUMBER_TABLE
243 , a20 out nocopy JTF_NUMBER_TABLE
244 , a21 out nocopy JTF_VARCHAR2_TABLE_100
245 , a22 out nocopy JTF_VARCHAR2_TABLE_100
246 , a23 out nocopy JTF_VARCHAR2_TABLE_300
247 , a24 out nocopy JTF_DATE_TABLE
248 , a25 out nocopy JTF_VARCHAR2_TABLE_2000
249 , a26 out nocopy JTF_VARCHAR2_TABLE_300
250 , a27 out nocopy JTF_NUMBER_TABLE
251 , a28 out nocopy JTF_VARCHAR2_TABLE_300
252 , a29 out nocopy JTF_VARCHAR2_TABLE_100
253 , a30 out nocopy JTF_VARCHAR2_TABLE_300
254 , a31 out nocopy JTF_VARCHAR2_TABLE_100
255 , a32 out nocopy JTF_VARCHAR2_TABLE_300
256 , a33 out nocopy JTF_VARCHAR2_TABLE_100
257 , a34 out nocopy JTF_VARCHAR2_TABLE_100
258 , a35 out nocopy JTF_VARCHAR2_TABLE_300
259 , a36 out nocopy JTF_VARCHAR2_TABLE_100
260 , a37 out nocopy JTF_VARCHAR2_TABLE_300
261 , a38 out nocopy JTF_VARCHAR2_TABLE_100
262 , a39 out nocopy JTF_NUMBER_TABLE
263 , a40 out nocopy JTF_VARCHAR2_TABLE_100
264 , a41 out nocopy JTF_NUMBER_TABLE
265 , a42 out nocopy JTF_VARCHAR2_TABLE_100
266 , a43 out nocopy JTF_NUMBER_TABLE
267 , a44 out nocopy JTF_VARCHAR2_TABLE_100
268 ) as
269 ddindx binary_integer; indx binary_integer;
270 begin
271 if t is null or t.count = 0 then
272 a0 := JTF_NUMBER_TABLE();
273 a1 := JTF_NUMBER_TABLE();
274 a2 := JTF_NUMBER_TABLE();
275 a3 := JTF_VARCHAR2_TABLE_300();
276 a4 := JTF_NUMBER_TABLE();
277 a5 := JTF_VARCHAR2_TABLE_300();
278 a6 := JTF_VARCHAR2_TABLE_100();
279 a7 := JTF_NUMBER_TABLE();
280 a8 := JTF_VARCHAR2_TABLE_300();
281 a9 := JTF_NUMBER_TABLE();
282 a10 := JTF_VARCHAR2_TABLE_300();
283 a11 := JTF_VARCHAR2_TABLE_100();
284 a12 := JTF_NUMBER_TABLE();
285 a13 := JTF_NUMBER_TABLE();
286 a14 := JTF_VARCHAR2_TABLE_300();
287 a15 := JTF_VARCHAR2_TABLE_100();
288 a16 := JTF_VARCHAR2_TABLE_100();
289 a17 := JTF_NUMBER_TABLE();
290 a18 := JTF_VARCHAR2_TABLE_100();
291 a19 := JTF_NUMBER_TABLE();
292 a20 := JTF_NUMBER_TABLE();
293 a21 := JTF_VARCHAR2_TABLE_100();
294 a22 := JTF_VARCHAR2_TABLE_100();
295 a23 := JTF_VARCHAR2_TABLE_300();
296 a24 := JTF_DATE_TABLE();
297 a25 := JTF_VARCHAR2_TABLE_2000();
298 a26 := JTF_VARCHAR2_TABLE_300();
299 a27 := JTF_NUMBER_TABLE();
300 a28 := JTF_VARCHAR2_TABLE_300();
301 a29 := JTF_VARCHAR2_TABLE_100();
302 a30 := JTF_VARCHAR2_TABLE_300();
303 a31 := JTF_VARCHAR2_TABLE_100();
304 a32 := JTF_VARCHAR2_TABLE_300();
305 a33 := JTF_VARCHAR2_TABLE_100();
306 a34 := JTF_VARCHAR2_TABLE_100();
307 a35 := JTF_VARCHAR2_TABLE_300();
308 a36 := JTF_VARCHAR2_TABLE_100();
309 a37 := JTF_VARCHAR2_TABLE_300();
310 a38 := JTF_VARCHAR2_TABLE_100();
311 a39 := JTF_NUMBER_TABLE();
312 a40 := JTF_VARCHAR2_TABLE_100();
313 a41 := JTF_NUMBER_TABLE();
314 a42 := JTF_VARCHAR2_TABLE_100();
315 a43 := JTF_NUMBER_TABLE();
316 a44 := JTF_VARCHAR2_TABLE_100();
317 else
318 a0 := JTF_NUMBER_TABLE();
319 a1 := JTF_NUMBER_TABLE();
320 a2 := JTF_NUMBER_TABLE();
321 a3 := JTF_VARCHAR2_TABLE_300();
322 a4 := JTF_NUMBER_TABLE();
323 a5 := JTF_VARCHAR2_TABLE_300();
324 a6 := JTF_VARCHAR2_TABLE_100();
325 a7 := JTF_NUMBER_TABLE();
326 a8 := JTF_VARCHAR2_TABLE_300();
327 a9 := JTF_NUMBER_TABLE();
328 a10 := JTF_VARCHAR2_TABLE_300();
329 a11 := JTF_VARCHAR2_TABLE_100();
330 a12 := JTF_NUMBER_TABLE();
331 a13 := JTF_NUMBER_TABLE();
332 a14 := JTF_VARCHAR2_TABLE_300();
333 a15 := JTF_VARCHAR2_TABLE_100();
334 a16 := JTF_VARCHAR2_TABLE_100();
335 a17 := JTF_NUMBER_TABLE();
336 a18 := JTF_VARCHAR2_TABLE_100();
337 a19 := JTF_NUMBER_TABLE();
338 a20 := JTF_NUMBER_TABLE();
339 a21 := JTF_VARCHAR2_TABLE_100();
340 a22 := JTF_VARCHAR2_TABLE_100();
341 a23 := JTF_VARCHAR2_TABLE_300();
342 a24 := JTF_DATE_TABLE();
343 a25 := JTF_VARCHAR2_TABLE_2000();
344 a26 := JTF_VARCHAR2_TABLE_300();
345 a27 := JTF_NUMBER_TABLE();
346 a28 := JTF_VARCHAR2_TABLE_300();
347 a29 := JTF_VARCHAR2_TABLE_100();
348 a30 := JTF_VARCHAR2_TABLE_300();
349 a31 := JTF_VARCHAR2_TABLE_100();
350 a32 := JTF_VARCHAR2_TABLE_300();
351 a33 := JTF_VARCHAR2_TABLE_100();
352 a34 := JTF_VARCHAR2_TABLE_100();
353 a35 := JTF_VARCHAR2_TABLE_300();
354 a36 := JTF_VARCHAR2_TABLE_100();
355 a37 := JTF_VARCHAR2_TABLE_300();
356 a38 := JTF_VARCHAR2_TABLE_100();
357 a39 := JTF_NUMBER_TABLE();
358 a40 := JTF_VARCHAR2_TABLE_100();
359 a41 := JTF_NUMBER_TABLE();
360 a42 := JTF_VARCHAR2_TABLE_100();
361 a43 := JTF_NUMBER_TABLE();
362 a44 := JTF_VARCHAR2_TABLE_100();
363 if t.count > 0 then
364 a0.extend(t.count);
365 a1.extend(t.count);
366 a2.extend(t.count);
367 a3.extend(t.count);
368 a4.extend(t.count);
369 a5.extend(t.count);
370 a6.extend(t.count);
371 a7.extend(t.count);
372 a8.extend(t.count);
373 a9.extend(t.count);
374 a10.extend(t.count);
375 a11.extend(t.count);
376 a12.extend(t.count);
380 a16.extend(t.count);
377 a13.extend(t.count);
378 a14.extend(t.count);
379 a15.extend(t.count);
381 a17.extend(t.count);
382 a18.extend(t.count);
383 a19.extend(t.count);
384 a20.extend(t.count);
385 a21.extend(t.count);
386 a22.extend(t.count);
387 a23.extend(t.count);
388 a24.extend(t.count);
389 a25.extend(t.count);
390 a26.extend(t.count);
391 a27.extend(t.count);
392 a28.extend(t.count);
393 a29.extend(t.count);
394 a30.extend(t.count);
395 a31.extend(t.count);
396 a32.extend(t.count);
397 a33.extend(t.count);
398 a34.extend(t.count);
399 a35.extend(t.count);
400 a36.extend(t.count);
401 a37.extend(t.count);
402 a38.extend(t.count);
403 a39.extend(t.count);
404 a40.extend(t.count);
405 a41.extend(t.count);
406 a42.extend(t.count);
407 a43.extend(t.count);
408 a44.extend(t.count);
409 ddindx := t.first;
410 indx := 1;
411 while true loop
412 a0(indx) := t(ddindx).line_id;
413 a1(indx) := t(ddindx).line_number;
414 a2(indx) := t(ddindx).header_id;
415 a3(indx) := t(ddindx).order_type;
416 a4(indx) := t(ddindx).line_type_id;
417 a5(indx) := t(ddindx).line_type;
418 a6(indx) := t(ddindx).job_number;
419 a7(indx) := t(ddindx).project_id;
420 a8(indx) := t(ddindx).project;
421 a9(indx) := t(ddindx).task_id;
422 a10(indx) := t(ddindx).task;
423 a11(indx) := t(ddindx).operation;
424 a12(indx) := t(ddindx).inventory_item_id;
425 a13(indx) := t(ddindx).inventory_org_id;
426 a14(indx) := t(ddindx).inventory_item;
427 a15(indx) := t(ddindx).lot_number;
428 a16(indx) := t(ddindx).inventory_item_uom;
429 a17(indx) := t(ddindx).inventory_item_quantity;
430 a18(indx) := t(ddindx).serial_number;
431 a19(indx) := t(ddindx).csi_item_instance_id;
432 a20(indx) := t(ddindx).ordered_quantity;
433 a21(indx) := t(ddindx).order_quantity_uom;
434 a22(indx) := t(ddindx).return_reason_code;
435 a23(indx) := t(ddindx).return_reason;
436 a24(indx) := t(ddindx).schedule_ship_date;
437 a25(indx) := t(ddindx).packing_instructions;
438 a26(indx) := t(ddindx).ship_from_org;
439 a27(indx) := t(ddindx).ship_from_org_id;
440 a28(indx) := t(ddindx).fob_point;
441 a29(indx) := t(ddindx).fob_point_code;
442 a30(indx) := t(ddindx).freight_carrier;
443 a31(indx) := t(ddindx).freight_carrier_code;
444 a32(indx) := t(ddindx).freight_terms;
445 a33(indx) := t(ddindx).freight_terms_code;
446 a34(indx) := t(ddindx).shipment_priority_code;
447 a35(indx) := t(ddindx).shipment_priority;
448 a36(indx) := t(ddindx).shipping_method_code;
449 a37(indx) := t(ddindx).shipping_method;
450 a38(indx) := t(ddindx).subinventory;
451 a39(indx) := t(ddindx).osp_order_id;
452 a40(indx) := t(ddindx).osp_order_number;
453 a41(indx) := t(ddindx).osp_line_id;
454 a42(indx) := t(ddindx).osp_line_number;
455 a43(indx) := t(ddindx).instance_id;
456 a44(indx) := t(ddindx).osp_line_flag;
457 indx := indx+1;
458 if t.last =ddindx
459 then exit;
460 end if;
461 ddindx := t.next(ddindx);
462 end loop;
463 end if;
464 end if;
465 end rosetta_table_copy_out_p4;
466
467 procedure rosetta_table_copy_in_p5(t out nocopy ahl_osp_shipment_pub.ship_id_tbl_type, a0 JTF_NUMBER_TABLE) as
468 ddindx binary_integer; indx binary_integer;
469 begin
470 if a0 is not null and a0.count > 0 then
471 if a0.count > 0 then
472 indx := a0.first;
473 ddindx := 1;
474 while true loop
475 t(ddindx) := a0(indx);
476 ddindx := ddindx+1;
477 if a0.last =indx
478 then exit;
479 end if;
480 indx := a0.next(indx);
481 end loop;
482 end if;
483 end if;
484 end rosetta_table_copy_in_p5;
485 procedure rosetta_table_copy_out_p5(t ahl_osp_shipment_pub.ship_id_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
486 ddindx binary_integer; indx binary_integer;
487 begin
488 if t is null or t.count = 0 then
489 a0 := JTF_NUMBER_TABLE();
490 else
491 a0 := JTF_NUMBER_TABLE();
492 if t.count > 0 then
493 a0.extend(t.count);
494 ddindx := t.first;
495 indx := 1;
496 while true loop
497 a0(indx) := t(ddindx);
498 indx := indx+1;
499 if t.last =ddindx
500 then exit;
501 end if;
502 ddindx := t.next(ddindx);
503 end loop;
504 end if;
505 end if;
506 end rosetta_table_copy_out_p5;
507
508 procedure process_order(p_api_version NUMBER
509 , p_init_msg_list VARCHAR2
510 , p_commit VARCHAR2
511 , p_validation_level NUMBER
515 , p5_a2 in out nocopy VARCHAR2
512 , p_module_type VARCHAR2
513 , p5_a0 in out nocopy NUMBER
514 , p5_a1 in out nocopy NUMBER
516 , p5_a3 in out nocopy VARCHAR2
517 , p5_a4 in out nocopy VARCHAR2
518 , p5_a5 in out nocopy VARCHAR2
519 , p5_a6 in out nocopy NUMBER
520 , p5_a7 in out nocopy VARCHAR2
521 , p5_a8 in out nocopy NUMBER
522 , p5_a9 in out nocopy VARCHAR2
523 , p5_a10 in out nocopy NUMBER
524 , p5_a11 in out nocopy VARCHAR2
525 , p5_a12 in out nocopy NUMBER
526 , p5_a13 in out nocopy VARCHAR2
527 , p5_a14 in out nocopy NUMBER
528 , p5_a15 in out nocopy VARCHAR2
529 , p5_a16 in out nocopy VARCHAR2
530 , p5_a17 in out nocopy VARCHAR2
531 , p5_a18 in out nocopy VARCHAR2
532 , p5_a19 in out nocopy VARCHAR2
533 , p5_a20 in out nocopy VARCHAR2
534 , p5_a21 in out nocopy VARCHAR2
535 , p5_a22 in out nocopy VARCHAR2
536 , p5_a23 in out nocopy VARCHAR2
537 , p5_a24 in out nocopy VARCHAR2
538 , p5_a25 in out nocopy NUMBER
539 , p5_a26 in out nocopy VARCHAR2
540 , p5_a27 in out nocopy NUMBER
541 , p5_a28 in out nocopy VARCHAR2
542 , p5_a29 in out nocopy VARCHAR2
543 , p5_a30 in out nocopy VARCHAR2
544 , p5_a31 in out nocopy VARCHAR2
545 , p5_a32 in out nocopy VARCHAR2
546 , p5_a33 in out nocopy VARCHAR2
547 , p5_a34 in out nocopy VARCHAR2
548 , p5_a35 in out nocopy VARCHAR2
549 , p6_a0 in out nocopy JTF_NUMBER_TABLE
550 , p6_a1 in out nocopy JTF_NUMBER_TABLE
551 , p6_a2 in out nocopy JTF_NUMBER_TABLE
552 , p6_a3 in out nocopy JTF_VARCHAR2_TABLE_300
553 , p6_a4 in out nocopy JTF_NUMBER_TABLE
554 , p6_a5 in out nocopy JTF_VARCHAR2_TABLE_300
555 , p6_a6 in out nocopy JTF_VARCHAR2_TABLE_100
556 , p6_a7 in out nocopy JTF_NUMBER_TABLE
557 , p6_a8 in out nocopy JTF_VARCHAR2_TABLE_300
558 , p6_a9 in out nocopy JTF_NUMBER_TABLE
559 , p6_a10 in out nocopy JTF_VARCHAR2_TABLE_300
560 , p6_a11 in out nocopy JTF_VARCHAR2_TABLE_100
561 , p6_a12 in out nocopy JTF_NUMBER_TABLE
562 , p6_a13 in out nocopy JTF_NUMBER_TABLE
563 , p6_a14 in out nocopy JTF_VARCHAR2_TABLE_300
564 , p6_a15 in out nocopy JTF_VARCHAR2_TABLE_100
565 , p6_a16 in out nocopy JTF_VARCHAR2_TABLE_100
566 , p6_a17 in out nocopy JTF_NUMBER_TABLE
567 , p6_a18 in out nocopy JTF_VARCHAR2_TABLE_100
568 , p6_a19 in out nocopy JTF_NUMBER_TABLE
569 , p6_a20 in out nocopy JTF_NUMBER_TABLE
570 , p6_a21 in out nocopy JTF_VARCHAR2_TABLE_100
571 , p6_a22 in out nocopy JTF_VARCHAR2_TABLE_100
572 , p6_a23 in out nocopy JTF_VARCHAR2_TABLE_300
573 , p6_a24 in out nocopy JTF_DATE_TABLE
574 , p6_a25 in out nocopy JTF_VARCHAR2_TABLE_2000
575 , p6_a26 in out nocopy JTF_VARCHAR2_TABLE_300
576 , p6_a27 in out nocopy JTF_NUMBER_TABLE
577 , p6_a28 in out nocopy JTF_VARCHAR2_TABLE_300
578 , p6_a29 in out nocopy JTF_VARCHAR2_TABLE_100
579 , p6_a30 in out nocopy JTF_VARCHAR2_TABLE_300
580 , p6_a31 in out nocopy JTF_VARCHAR2_TABLE_100
581 , p6_a32 in out nocopy JTF_VARCHAR2_TABLE_300
582 , p6_a33 in out nocopy JTF_VARCHAR2_TABLE_100
583 , p6_a34 in out nocopy JTF_VARCHAR2_TABLE_100
584 , p6_a35 in out nocopy JTF_VARCHAR2_TABLE_300
585 , p6_a36 in out nocopy JTF_VARCHAR2_TABLE_100
586 , p6_a37 in out nocopy JTF_VARCHAR2_TABLE_300
587 , p6_a38 in out nocopy JTF_VARCHAR2_TABLE_100
588 , p6_a39 in out nocopy JTF_NUMBER_TABLE
589 , p6_a40 in out nocopy JTF_VARCHAR2_TABLE_100
590 , p6_a41 in out nocopy JTF_NUMBER_TABLE
591 , p6_a42 in out nocopy JTF_VARCHAR2_TABLE_100
592 , p6_a43 in out nocopy JTF_NUMBER_TABLE
593 , p6_a44 in out nocopy JTF_VARCHAR2_TABLE_100
594 , x_return_status out nocopy VARCHAR2
595 , x_msg_count out nocopy NUMBER
596 , x_msg_data out nocopy VARCHAR2
597 )
598
599 as
600 ddp_x_header_rec ahl_osp_shipment_pub.ship_header_rec_type;
601 ddp_x_lines_tbl ahl_osp_shipment_pub.ship_line_tbl_type;
602 ddindx binary_integer; indx binary_integer;
603 begin
604
605 -- copy data to the local IN or IN-OUT args, if any
606
607
608
609
610
611 ddp_x_header_rec.header_id := p5_a0;
612 ddp_x_header_rec.order_number := p5_a1;
613 ddp_x_header_rec.booked_flag := p5_a2;
614 ddp_x_header_rec.cancelled_flag := p5_a3;
615 ddp_x_header_rec.open_flag := p5_a4;
616 ddp_x_header_rec.price_list := p5_a5;
617 ddp_x_header_rec.price_list_id := p5_a6;
618 ddp_x_header_rec.ship_from_org := p5_a7;
619 ddp_x_header_rec.ship_from_org_id := p5_a8;
620 ddp_x_header_rec.ship_to_contact := p5_a9;
621 ddp_x_header_rec.ship_to_contact_id := p5_a10;
622 ddp_x_header_rec.ship_to_org := p5_a11;
623 ddp_x_header_rec.ship_to_org_id := p5_a12;
624 ddp_x_header_rec.sold_to_custom_number := p5_a13;
625 ddp_x_header_rec.sold_to_org_id := p5_a14;
626 ddp_x_header_rec.fob_point := p5_a15;
627 ddp_x_header_rec.fob_point_code := p5_a16;
628 ddp_x_header_rec.freight_carrier := p5_a17;
629 ddp_x_header_rec.freight_carrier_code := p5_a18;
630 ddp_x_header_rec.freight_terms := p5_a19;
631 ddp_x_header_rec.freight_terms_code := p5_a20;
632 ddp_x_header_rec.shipment_priority_code := p5_a21;
633 ddp_x_header_rec.shipment_priority := p5_a22;
637 ddp_x_header_rec.osp_order_number := p5_a26;
634 ddp_x_header_rec.shipping_method_code := p5_a23;
635 ddp_x_header_rec.shipping_method := p5_a24;
636 ddp_x_header_rec.osp_order_id := p5_a25;
638 ddp_x_header_rec.payment_term_id := p5_a27;
639 ddp_x_header_rec.payment_term := p5_a28;
640 ddp_x_header_rec.tax_exempt_flag := p5_a29;
641 ddp_x_header_rec.tax_exempt_number := p5_a30;
642 ddp_x_header_rec.tax_exempt_reason_code := p5_a31;
643 ddp_x_header_rec.tax_exempt_reason := p5_a32;
644 ddp_x_header_rec.shipping_instructions := p5_a33;
645 ddp_x_header_rec.packing_instructions := p5_a34;
646 ddp_x_header_rec.operation := p5_a35;
647
648 ahl_osp_shipment_pub_w.rosetta_table_copy_in_p4(ddp_x_lines_tbl, p6_a0
649 , p6_a1
650 , p6_a2
651 , p6_a3
652 , p6_a4
653 , p6_a5
654 , p6_a6
655 , p6_a7
656 , p6_a8
657 , p6_a9
658 , p6_a10
659 , p6_a11
660 , p6_a12
661 , p6_a13
662 , p6_a14
663 , p6_a15
664 , p6_a16
665 , p6_a17
666 , p6_a18
667 , p6_a19
668 , p6_a20
669 , p6_a21
670 , p6_a22
671 , p6_a23
672 , p6_a24
673 , p6_a25
674 , p6_a26
675 , p6_a27
676 , p6_a28
677 , p6_a29
678 , p6_a30
679 , p6_a31
680 , p6_a32
681 , p6_a33
682 , p6_a34
683 , p6_a35
684 , p6_a36
685 , p6_a37
686 , p6_a38
687 , p6_a39
688 , p6_a40
689 , p6_a41
690 , p6_a42
691 , p6_a43
692 , p6_a44
693 );
694
695
696
697
698 -- here's the delegated call to the old PL/SQL routine
699 ahl_osp_shipment_pub.process_order(p_api_version,
700 p_init_msg_list,
701 p_commit,
702 p_validation_level,
703 p_module_type,
704 ddp_x_header_rec,
705 ddp_x_lines_tbl,
706 x_return_status,
707 x_msg_count,
708 x_msg_data);
709
710 -- copy data back from the local variables to OUT or IN-OUT args, if any
711
712
713
714
715
716 p5_a0 := ddp_x_header_rec.header_id;
717 p5_a1 := ddp_x_header_rec.order_number;
718 p5_a2 := ddp_x_header_rec.booked_flag;
719 p5_a3 := ddp_x_header_rec.cancelled_flag;
720 p5_a4 := ddp_x_header_rec.open_flag;
721 p5_a5 := ddp_x_header_rec.price_list;
722 p5_a6 := ddp_x_header_rec.price_list_id;
723 p5_a7 := ddp_x_header_rec.ship_from_org;
724 p5_a8 := ddp_x_header_rec.ship_from_org_id;
725 p5_a9 := ddp_x_header_rec.ship_to_contact;
726 p5_a10 := ddp_x_header_rec.ship_to_contact_id;
727 p5_a11 := ddp_x_header_rec.ship_to_org;
728 p5_a12 := ddp_x_header_rec.ship_to_org_id;
729 p5_a13 := ddp_x_header_rec.sold_to_custom_number;
730 p5_a14 := ddp_x_header_rec.sold_to_org_id;
731 p5_a15 := ddp_x_header_rec.fob_point;
732 p5_a16 := ddp_x_header_rec.fob_point_code;
733 p5_a17 := ddp_x_header_rec.freight_carrier;
734 p5_a18 := ddp_x_header_rec.freight_carrier_code;
735 p5_a19 := ddp_x_header_rec.freight_terms;
736 p5_a20 := ddp_x_header_rec.freight_terms_code;
737 p5_a21 := ddp_x_header_rec.shipment_priority_code;
738 p5_a22 := ddp_x_header_rec.shipment_priority;
739 p5_a23 := ddp_x_header_rec.shipping_method_code;
740 p5_a24 := ddp_x_header_rec.shipping_method;
741 p5_a25 := ddp_x_header_rec.osp_order_id;
742 p5_a26 := ddp_x_header_rec.osp_order_number;
743 p5_a27 := ddp_x_header_rec.payment_term_id;
744 p5_a28 := ddp_x_header_rec.payment_term;
745 p5_a29 := ddp_x_header_rec.tax_exempt_flag;
746 p5_a30 := ddp_x_header_rec.tax_exempt_number;
747 p5_a31 := ddp_x_header_rec.tax_exempt_reason_code;
748 p5_a32 := ddp_x_header_rec.tax_exempt_reason;
749 p5_a33 := ddp_x_header_rec.shipping_instructions;
750 p5_a34 := ddp_x_header_rec.packing_instructions;
751 p5_a35 := ddp_x_header_rec.operation;
752
753 ahl_osp_shipment_pub_w.rosetta_table_copy_out_p4(ddp_x_lines_tbl, p6_a0
754 , p6_a1
755 , p6_a2
756 , p6_a3
757 , p6_a4
758 , p6_a5
759 , p6_a6
760 , p6_a7
761 , p6_a8
762 , p6_a9
763 , p6_a10
764 , p6_a11
765 , p6_a12
766 , p6_a13
767 , p6_a14
768 , p6_a15
769 , p6_a16
770 , p6_a17
771 , p6_a18
772 , p6_a19
773 , p6_a20
774 , p6_a21
775 , p6_a22
776 , p6_a23
777 , p6_a24
778 , p6_a25
779 , p6_a26
780 , p6_a27
781 , p6_a28
782 , p6_a29
783 , p6_a30
784 , p6_a31
785 , p6_a32
786 , p6_a33
787 , p6_a34
788 , p6_a35
789 , p6_a36
790 , p6_a37
791 , p6_a38
792 , p6_a39
793 , p6_a40
794 , p6_a41
795 , p6_a42
796 , p6_a43
797 , p6_a44
798 );
799
800
801
802 end;
803
804 procedure book_order(p_api_version NUMBER
805 , p_init_msg_list VARCHAR2
806 , p_commit VARCHAR2
807 , p_validation_level NUMBER
808 , p_oe_header_tbl JTF_NUMBER_TABLE
809 , x_return_status out nocopy VARCHAR2
810 , x_msg_count out nocopy NUMBER
811 , x_msg_data out nocopy VARCHAR2
812 )
813
814 as
815 ddp_oe_header_tbl ahl_osp_shipment_pub.ship_id_tbl_type;
816 ddindx binary_integer; indx binary_integer;
817 begin
818
819 -- copy data to the local IN or IN-OUT args, if any
820
821
822
823
824 ahl_osp_shipment_pub_w.rosetta_table_copy_in_p5(ddp_oe_header_tbl, p_oe_header_tbl);
825
826
827
828
829 -- here's the delegated call to the old PL/SQL routine
830 ahl_osp_shipment_pub.book_order(p_api_version,
831 p_init_msg_list,
832 p_commit,
833 p_validation_level,
834 ddp_oe_header_tbl,
835 x_return_status,
836 x_msg_count,
837 x_msg_data);
838
839 -- copy data back from the local variables to OUT or IN-OUT args, if any
840
841
842
843
844
845
846
847 end;
848
849 procedure delete_cancel_order(p_api_version NUMBER
850 , p_init_msg_list VARCHAR2
851 , p_commit VARCHAR2
852 , p_validation_level NUMBER
853 , p_oe_header_id NUMBER
854 , p_oe_lines_tbl JTF_NUMBER_TABLE
855 , p_cancel_flag VARCHAR2
856 , x_return_status out nocopy VARCHAR2
857 , x_msg_count out nocopy NUMBER
858 , x_msg_data out nocopy VARCHAR2
859 )
860
861 as
862 ddp_oe_lines_tbl ahl_osp_shipment_pub.ship_id_tbl_type;
863 ddindx binary_integer; indx binary_integer;
864 begin
865
866 -- copy data to the local IN or IN-OUT args, if any
867
868
869
870
871
872 ahl_osp_shipment_pub_w.rosetta_table_copy_in_p5(ddp_oe_lines_tbl, p_oe_lines_tbl);
873
874
875
876
877
878 -- here's the delegated call to the old PL/SQL routine
879 ahl_osp_shipment_pub.delete_cancel_order(p_api_version,
880 p_init_msg_list,
881 p_commit,
882 p_validation_level,
883 p_oe_header_id,
884 ddp_oe_lines_tbl,
885 p_cancel_flag,
886 x_return_status,
887 x_msg_count,
888 x_msg_data);
889
890 -- copy data back from the local variables to OUT or IN-OUT args, if any
891
892
893
894
895
896
897
898
899
900 end;
901
902 procedure process_osp_serialnum_change(p_api_version NUMBER
903 , p_init_msg_list VARCHAR2
904 , p_commit VARCHAR2
905 , p_validation_level NUMBER
906 , p_module_type VARCHAR2
907 , p5_a0 VARCHAR2
908 , p5_a1 VARCHAR2
909 , p5_a2 VARCHAR2
910 , p5_a3 VARCHAR2
911 , p5_a4 NUMBER
912 , p5_a5 NUMBER
913 , p5_a6 VARCHAR2
914 , p5_a7 VARCHAR2
915 , p5_a8 VARCHAR2
916 , p5_a9 VARCHAR2
917 , p5_a10 VARCHAR2
918 , x_return_status out nocopy VARCHAR2
919 , x_msg_count out nocopy NUMBER
920 , x_msg_data out nocopy VARCHAR2
921 )
922
923 as
924 ddp_serialnum_change_rec ahl_osp_shipment_pub.sernum_change_rec_type;
925 ddindx binary_integer; indx binary_integer;
926 begin
927
928 -- copy data to the local IN or IN-OUT args, if any
929
930
931
932
933
934 ddp_serialnum_change_rec.item_number := p5_a0;
935 ddp_serialnum_change_rec.new_item_number := p5_a1;
936 ddp_serialnum_change_rec.new_lot_number := p5_a2;
937 ddp_serialnum_change_rec.new_item_rev_number := p5_a3;
938 ddp_serialnum_change_rec.osp_line_id := p5_a4;
939 ddp_serialnum_change_rec.instance_id := p5_a5;
940 ddp_serialnum_change_rec.current_serial_number := p5_a6;
941 ddp_serialnum_change_rec.current_serail_tag := p5_a7;
942 ddp_serialnum_change_rec.new_serial_number := p5_a8;
943 ddp_serialnum_change_rec.new_serial_tag_code := p5_a9;
944 ddp_serialnum_change_rec.new_serial_tag_mean := p5_a10;
945
946
947
948
949 -- here's the delegated call to the old PL/SQL routine
950 ahl_osp_shipment_pub.process_osp_serialnum_change(p_api_version,
951 p_init_msg_list,
952 p_commit,
953 p_validation_level,
954 p_module_type,
955 ddp_serialnum_change_rec,
956 x_return_status,
957 x_msg_count,
958 x_msg_data);
959
960 -- copy data back from the local variables to OUT or IN-OUT args, if any
961
962
963
964
965
966
967
968
969 end;
970
971 end ahl_osp_shipment_pub_w;