[Home] [Help]
PACKAGE BODY: APPS.AHL_OSP_ORDERS_PVT_W
Source
1 package body ahl_osp_orders_pvt_w as
2 /* $Header: AHLVOSWB.pls 120.3.12020000.2 2012/12/07 01:35:33 sareepar ship $ */
3 procedure rosetta_table_copy_in_p27(t out nocopy ahl_osp_orders_pvt.osp_order_lines_tbl_type, a0 JTF_VARCHAR2_TABLE_100
4 , a1 JTF_VARCHAR2_TABLE_100
5 , a2 JTF_NUMBER_TABLE
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_DATE_TABLE
8 , a5 JTF_NUMBER_TABLE
9 , a6 JTF_DATE_TABLE
10 , a7 JTF_NUMBER_TABLE
11 , a8 JTF_NUMBER_TABLE
12 , a9 JTF_NUMBER_TABLE
13 , a10 JTF_NUMBER_TABLE
14 , a11 JTF_VARCHAR2_TABLE_100
15 , a12 JTF_DATE_TABLE
16 , a13 JTF_DATE_TABLE
17 , a14 JTF_NUMBER_TABLE
18 , a15 JTF_VARCHAR2_TABLE_100
19 , a16 JTF_NUMBER_TABLE
20 , a17 JTF_NUMBER_TABLE
21 , a18 JTF_NUMBER_TABLE
22 , a19 JTF_NUMBER_TABLE
23 , a20 JTF_VARCHAR2_TABLE_100
24 , a21 JTF_VARCHAR2_TABLE_2000
25 , a22 JTF_VARCHAR2_TABLE_100
26 , a23 JTF_NUMBER_TABLE
27 , a24 JTF_NUMBER_TABLE
28 , a25 JTF_VARCHAR2_TABLE_100
29 , a26 JTF_NUMBER_TABLE
30 , a27 JTF_NUMBER_TABLE
31 , a28 JTF_NUMBER_TABLE
32 , a29 JTF_VARCHAR2_TABLE_100
33 , a30 JTF_VARCHAR2_TABLE_100
34 , a31 JTF_NUMBER_TABLE
35 , a32 JTF_VARCHAR2_TABLE_100
36 , a33 JTF_VARCHAR2_TABLE_100
37 , a34 JTF_VARCHAR2_TABLE_100
38 , a35 JTF_VARCHAR2_TABLE_100
39 , a36 JTF_NUMBER_TABLE
40 , a37 JTF_VARCHAR2_TABLE_100
41 , a38 JTF_VARCHAR2_TABLE_200
42 , a39 JTF_VARCHAR2_TABLE_200
43 , a40 JTF_VARCHAR2_TABLE_200
44 , a41 JTF_VARCHAR2_TABLE_200
45 , a42 JTF_VARCHAR2_TABLE_200
46 , a43 JTF_VARCHAR2_TABLE_200
47 , a44 JTF_VARCHAR2_TABLE_200
48 , a45 JTF_VARCHAR2_TABLE_200
49 , a46 JTF_VARCHAR2_TABLE_200
50 , a47 JTF_VARCHAR2_TABLE_200
51 , a48 JTF_VARCHAR2_TABLE_200
52 , a49 JTF_VARCHAR2_TABLE_200
53 , a50 JTF_VARCHAR2_TABLE_200
54 , a51 JTF_VARCHAR2_TABLE_200
55 , a52 JTF_VARCHAR2_TABLE_200
56 , a53 JTF_NUMBER_TABLE
57 , a54 JTF_NUMBER_TABLE
58 , a55 JTF_NUMBER_TABLE
59 , a56 JTF_NUMBER_TABLE
60 , a57 JTF_VARCHAR2_TABLE_100
61 , a58 JTF_VARCHAR2_TABLE_100
62 ) as
63 ddindx binary_integer; indx binary_integer;
64 begin
65 if a0 is not null and a0.count > 0 then
66 if a0.count > 0 then
67 indx := a0.first;
68 ddindx := 1;
69 while true loop
70 t(ddindx).operation_flag := a0(indx);
71 t(ddindx).shipment_creation_flag := a1(indx);
72 t(ddindx).osp_order_line_id := a2(indx);
73 t(ddindx).object_version_number := a3(indx);
74 t(ddindx).last_update_date := a4(indx);
75 t(ddindx).last_updated_by := a5(indx);
76 t(ddindx).creation_date := a6(indx);
77 t(ddindx).created_by := a7(indx);
78 t(ddindx).last_update_login := a8(indx);
79 t(ddindx).osp_order_id := a9(indx);
80 t(ddindx).osp_line_number := a10(indx);
81 t(ddindx).status_code := a11(indx);
82 t(ddindx).need_by_date := a12(indx);
83 t(ddindx).ship_by_date := a13(indx);
84 t(ddindx).po_line_type_id := a14(indx);
85 t(ddindx).po_line_type := a15(indx);
86 t(ddindx).po_line_id := a16(indx);
87 t(ddindx).oe_ship_line_id := a17(indx);
88 t(ddindx).oe_return_line_id := a18(indx);
89 t(ddindx).service_item_id := a19(indx);
90 t(ddindx).service_item_number := a20(indx);
91 t(ddindx).service_item_description := a21(indx);
92 t(ddindx).service_item_uom_code := a22(indx);
93 t(ddindx).quantity := a23(indx);
94 t(ddindx).workorder_id := a24(indx);
95 t(ddindx).job_number := a25(indx);
96 t(ddindx).operation_id := a26(indx);
97 t(ddindx).inventory_item_id := a27(indx);
98 t(ddindx).inventory_org_id := a28(indx);
99 t(ddindx).item_number := a29(indx);
100 t(ddindx).inventory_item_uom := a30(indx);
101 t(ddindx).inventory_item_quantity := a31(indx);
102 t(ddindx).sub_inventory := a32(indx);
103 t(ddindx).lot_number := a33(indx);
104 t(ddindx).serial_number := a34(indx);
105 t(ddindx).exchange_instance_number := a35(indx);
106 t(ddindx).exchange_instance_id := a36(indx);
107 t(ddindx).attribute_category := a37(indx);
108 t(ddindx).attribute1 := a38(indx);
109 t(ddindx).attribute2 := a39(indx);
110 t(ddindx).attribute3 := a40(indx);
111 t(ddindx).attribute4 := a41(indx);
112 t(ddindx).attribute5 := a42(indx);
113 t(ddindx).attribute6 := a43(indx);
114 t(ddindx).attribute7 := a44(indx);
115 t(ddindx).attribute8 := a45(indx);
116 t(ddindx).attribute9 := a46(indx);
117 t(ddindx).attribute10 := a47(indx);
118 t(ddindx).attribute11 := a48(indx);
119 t(ddindx).attribute12 := a49(indx);
120 t(ddindx).attribute13 := a50(indx);
121 t(ddindx).attribute14 := a51(indx);
122 t(ddindx).attribute15 := a52(indx);
123 t(ddindx).po_req_line_id := a53(indx);
124 t(ddindx).instance_id := a54(indx);
125 t(ddindx).warranty_entitlement_id := a55(indx);
126 t(ddindx).contract_number := a56(indx);
127 t(ddindx).entitlement_status_code := a57(indx);
128 t(ddindx).instance_warranty := a58(indx);
129 ddindx := ddindx+1;
130 if a0.last =indx
131 then exit;
132 end if;
133 indx := a0.next(indx);
134 end loop;
135 end if;
136 end if;
137 end rosetta_table_copy_in_p27;
138 procedure rosetta_table_copy_out_p27(t ahl_osp_orders_pvt.osp_order_lines_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
139 , a1 out nocopy JTF_VARCHAR2_TABLE_100
140 , a2 out nocopy JTF_NUMBER_TABLE
141 , a3 out nocopy JTF_NUMBER_TABLE
142 , a4 out nocopy JTF_DATE_TABLE
143 , a5 out nocopy JTF_NUMBER_TABLE
144 , a6 out nocopy JTF_DATE_TABLE
145 , a7 out nocopy JTF_NUMBER_TABLE
146 , a8 out nocopy JTF_NUMBER_TABLE
147 , a9 out nocopy JTF_NUMBER_TABLE
148 , a10 out nocopy JTF_NUMBER_TABLE
149 , a11 out nocopy JTF_VARCHAR2_TABLE_100
150 , a12 out nocopy JTF_DATE_TABLE
151 , a13 out nocopy JTF_DATE_TABLE
152 , a14 out nocopy JTF_NUMBER_TABLE
153 , a15 out nocopy JTF_VARCHAR2_TABLE_100
154 , a16 out nocopy JTF_NUMBER_TABLE
155 , a17 out nocopy JTF_NUMBER_TABLE
156 , a18 out nocopy JTF_NUMBER_TABLE
157 , a19 out nocopy JTF_NUMBER_TABLE
158 , a20 out nocopy JTF_VARCHAR2_TABLE_100
159 , a21 out nocopy JTF_VARCHAR2_TABLE_2000
160 , a22 out nocopy JTF_VARCHAR2_TABLE_100
161 , a23 out nocopy JTF_NUMBER_TABLE
162 , a24 out nocopy JTF_NUMBER_TABLE
163 , a25 out nocopy JTF_VARCHAR2_TABLE_100
164 , a26 out nocopy JTF_NUMBER_TABLE
165 , a27 out nocopy JTF_NUMBER_TABLE
166 , a28 out nocopy JTF_NUMBER_TABLE
167 , a29 out nocopy JTF_VARCHAR2_TABLE_100
168 , a30 out nocopy JTF_VARCHAR2_TABLE_100
169 , a31 out nocopy JTF_NUMBER_TABLE
170 , a32 out nocopy JTF_VARCHAR2_TABLE_100
171 , a33 out nocopy JTF_VARCHAR2_TABLE_100
172 , a34 out nocopy JTF_VARCHAR2_TABLE_100
173 , a35 out nocopy JTF_VARCHAR2_TABLE_100
174 , a36 out nocopy JTF_NUMBER_TABLE
175 , a37 out nocopy JTF_VARCHAR2_TABLE_100
176 , a38 out nocopy JTF_VARCHAR2_TABLE_200
177 , a39 out nocopy JTF_VARCHAR2_TABLE_200
178 , a40 out nocopy JTF_VARCHAR2_TABLE_200
179 , a41 out nocopy JTF_VARCHAR2_TABLE_200
180 , a42 out nocopy JTF_VARCHAR2_TABLE_200
181 , a43 out nocopy JTF_VARCHAR2_TABLE_200
182 , a44 out nocopy JTF_VARCHAR2_TABLE_200
183 , a45 out nocopy JTF_VARCHAR2_TABLE_200
184 , a46 out nocopy JTF_VARCHAR2_TABLE_200
185 , a47 out nocopy JTF_VARCHAR2_TABLE_200
186 , a48 out nocopy JTF_VARCHAR2_TABLE_200
187 , a49 out nocopy JTF_VARCHAR2_TABLE_200
188 , a50 out nocopy JTF_VARCHAR2_TABLE_200
189 , a51 out nocopy JTF_VARCHAR2_TABLE_200
190 , a52 out nocopy JTF_VARCHAR2_TABLE_200
191 , a53 out nocopy JTF_NUMBER_TABLE
192 , a54 out nocopy JTF_NUMBER_TABLE
193 , a55 out nocopy JTF_NUMBER_TABLE
194 , a56 out nocopy JTF_NUMBER_TABLE
195 , a57 out nocopy JTF_VARCHAR2_TABLE_100
196 , a58 out nocopy JTF_VARCHAR2_TABLE_100
197 ) as
198 ddindx binary_integer; indx binary_integer;
199 begin
200 if t is null or t.count = 0 then
201 a0 := JTF_VARCHAR2_TABLE_100();
202 a1 := JTF_VARCHAR2_TABLE_100();
203 a2 := JTF_NUMBER_TABLE();
204 a3 := JTF_NUMBER_TABLE();
205 a4 := JTF_DATE_TABLE();
206 a5 := JTF_NUMBER_TABLE();
207 a6 := JTF_DATE_TABLE();
208 a7 := JTF_NUMBER_TABLE();
209 a8 := JTF_NUMBER_TABLE();
210 a9 := JTF_NUMBER_TABLE();
211 a10 := JTF_NUMBER_TABLE();
212 a11 := JTF_VARCHAR2_TABLE_100();
213 a12 := JTF_DATE_TABLE();
214 a13 := JTF_DATE_TABLE();
215 a14 := JTF_NUMBER_TABLE();
216 a15 := JTF_VARCHAR2_TABLE_100();
217 a16 := JTF_NUMBER_TABLE();
218 a17 := JTF_NUMBER_TABLE();
219 a18 := JTF_NUMBER_TABLE();
220 a19 := JTF_NUMBER_TABLE();
221 a20 := JTF_VARCHAR2_TABLE_100();
222 a21 := JTF_VARCHAR2_TABLE_2000();
223 a22 := JTF_VARCHAR2_TABLE_100();
224 a23 := JTF_NUMBER_TABLE();
225 a24 := JTF_NUMBER_TABLE();
226 a25 := JTF_VARCHAR2_TABLE_100();
227 a26 := JTF_NUMBER_TABLE();
228 a27 := JTF_NUMBER_TABLE();
229 a28 := JTF_NUMBER_TABLE();
230 a29 := JTF_VARCHAR2_TABLE_100();
231 a30 := JTF_VARCHAR2_TABLE_100();
232 a31 := JTF_NUMBER_TABLE();
233 a32 := JTF_VARCHAR2_TABLE_100();
234 a33 := JTF_VARCHAR2_TABLE_100();
235 a34 := JTF_VARCHAR2_TABLE_100();
236 a35 := JTF_VARCHAR2_TABLE_100();
237 a36 := JTF_NUMBER_TABLE();
238 a37 := JTF_VARCHAR2_TABLE_100();
239 a38 := JTF_VARCHAR2_TABLE_200();
240 a39 := JTF_VARCHAR2_TABLE_200();
241 a40 := JTF_VARCHAR2_TABLE_200();
242 a41 := JTF_VARCHAR2_TABLE_200();
243 a42 := JTF_VARCHAR2_TABLE_200();
244 a43 := JTF_VARCHAR2_TABLE_200();
245 a44 := JTF_VARCHAR2_TABLE_200();
246 a45 := JTF_VARCHAR2_TABLE_200();
247 a46 := JTF_VARCHAR2_TABLE_200();
248 a47 := JTF_VARCHAR2_TABLE_200();
249 a48 := JTF_VARCHAR2_TABLE_200();
250 a49 := JTF_VARCHAR2_TABLE_200();
251 a50 := JTF_VARCHAR2_TABLE_200();
252 a51 := JTF_VARCHAR2_TABLE_200();
253 a52 := JTF_VARCHAR2_TABLE_200();
254 a53 := JTF_NUMBER_TABLE();
255 a54 := JTF_NUMBER_TABLE();
256 a55 := JTF_NUMBER_TABLE();
257 a56 := JTF_NUMBER_TABLE();
258 a57 := JTF_VARCHAR2_TABLE_100();
259 a58 := JTF_VARCHAR2_TABLE_100();
260 else
261 a0 := JTF_VARCHAR2_TABLE_100();
262 a1 := JTF_VARCHAR2_TABLE_100();
263 a2 := JTF_NUMBER_TABLE();
264 a3 := JTF_NUMBER_TABLE();
265 a4 := JTF_DATE_TABLE();
266 a5 := JTF_NUMBER_TABLE();
267 a6 := JTF_DATE_TABLE();
268 a7 := JTF_NUMBER_TABLE();
269 a8 := JTF_NUMBER_TABLE();
270 a9 := JTF_NUMBER_TABLE();
271 a10 := JTF_NUMBER_TABLE();
272 a11 := JTF_VARCHAR2_TABLE_100();
273 a12 := JTF_DATE_TABLE();
274 a13 := JTF_DATE_TABLE();
275 a14 := JTF_NUMBER_TABLE();
276 a15 := JTF_VARCHAR2_TABLE_100();
277 a16 := JTF_NUMBER_TABLE();
278 a17 := JTF_NUMBER_TABLE();
279 a18 := JTF_NUMBER_TABLE();
280 a19 := JTF_NUMBER_TABLE();
281 a20 := JTF_VARCHAR2_TABLE_100();
282 a21 := JTF_VARCHAR2_TABLE_2000();
283 a22 := JTF_VARCHAR2_TABLE_100();
284 a23 := JTF_NUMBER_TABLE();
285 a24 := JTF_NUMBER_TABLE();
286 a25 := JTF_VARCHAR2_TABLE_100();
287 a26 := JTF_NUMBER_TABLE();
288 a27 := JTF_NUMBER_TABLE();
289 a28 := JTF_NUMBER_TABLE();
290 a29 := JTF_VARCHAR2_TABLE_100();
291 a30 := JTF_VARCHAR2_TABLE_100();
292 a31 := JTF_NUMBER_TABLE();
293 a32 := JTF_VARCHAR2_TABLE_100();
294 a33 := JTF_VARCHAR2_TABLE_100();
295 a34 := JTF_VARCHAR2_TABLE_100();
296 a35 := JTF_VARCHAR2_TABLE_100();
297 a36 := JTF_NUMBER_TABLE();
298 a37 := JTF_VARCHAR2_TABLE_100();
299 a38 := JTF_VARCHAR2_TABLE_200();
300 a39 := JTF_VARCHAR2_TABLE_200();
301 a40 := JTF_VARCHAR2_TABLE_200();
302 a41 := JTF_VARCHAR2_TABLE_200();
303 a42 := JTF_VARCHAR2_TABLE_200();
304 a43 := JTF_VARCHAR2_TABLE_200();
305 a44 := JTF_VARCHAR2_TABLE_200();
306 a45 := JTF_VARCHAR2_TABLE_200();
307 a46 := JTF_VARCHAR2_TABLE_200();
308 a47 := JTF_VARCHAR2_TABLE_200();
309 a48 := JTF_VARCHAR2_TABLE_200();
310 a49 := JTF_VARCHAR2_TABLE_200();
311 a50 := JTF_VARCHAR2_TABLE_200();
312 a51 := JTF_VARCHAR2_TABLE_200();
313 a52 := JTF_VARCHAR2_TABLE_200();
314 a53 := JTF_NUMBER_TABLE();
315 a54 := JTF_NUMBER_TABLE();
316 a55 := JTF_NUMBER_TABLE();
317 a56 := JTF_NUMBER_TABLE();
318 a57 := JTF_VARCHAR2_TABLE_100();
319 a58 := JTF_VARCHAR2_TABLE_100();
320 if t.count > 0 then
321 a0.extend(t.count);
322 a1.extend(t.count);
323 a2.extend(t.count);
324 a3.extend(t.count);
325 a4.extend(t.count);
326 a5.extend(t.count);
327 a6.extend(t.count);
328 a7.extend(t.count);
329 a8.extend(t.count);
330 a9.extend(t.count);
331 a10.extend(t.count);
332 a11.extend(t.count);
333 a12.extend(t.count);
334 a13.extend(t.count);
335 a14.extend(t.count);
336 a15.extend(t.count);
337 a16.extend(t.count);
338 a17.extend(t.count);
339 a18.extend(t.count);
340 a19.extend(t.count);
341 a20.extend(t.count);
342 a21.extend(t.count);
343 a22.extend(t.count);
344 a23.extend(t.count);
345 a24.extend(t.count);
346 a25.extend(t.count);
347 a26.extend(t.count);
348 a27.extend(t.count);
349 a28.extend(t.count);
350 a29.extend(t.count);
351 a30.extend(t.count);
352 a31.extend(t.count);
353 a32.extend(t.count);
354 a33.extend(t.count);
355 a34.extend(t.count);
356 a35.extend(t.count);
357 a36.extend(t.count);
358 a37.extend(t.count);
359 a38.extend(t.count);
360 a39.extend(t.count);
361 a40.extend(t.count);
362 a41.extend(t.count);
363 a42.extend(t.count);
364 a43.extend(t.count);
365 a44.extend(t.count);
366 a45.extend(t.count);
367 a46.extend(t.count);
368 a47.extend(t.count);
369 a48.extend(t.count);
370 a49.extend(t.count);
371 a50.extend(t.count);
372 a51.extend(t.count);
373 a52.extend(t.count);
374 a53.extend(t.count);
375 a54.extend(t.count);
376 a55.extend(t.count);
377 a56.extend(t.count);
378 a57.extend(t.count);
379 a58.extend(t.count);
380 ddindx := t.first;
381 indx := 1;
382 while true loop
383 a0(indx) := t(ddindx).operation_flag;
384 a1(indx) := t(ddindx).shipment_creation_flag;
385 a2(indx) := t(ddindx).osp_order_line_id;
386 a3(indx) := t(ddindx).object_version_number;
387 a4(indx) := t(ddindx).last_update_date;
388 a5(indx) := t(ddindx).last_updated_by;
389 a6(indx) := t(ddindx).creation_date;
390 a7(indx) := t(ddindx).created_by;
391 a8(indx) := t(ddindx).last_update_login;
392 a9(indx) := t(ddindx).osp_order_id;
393 a10(indx) := t(ddindx).osp_line_number;
394 a11(indx) := t(ddindx).status_code;
395 a12(indx) := t(ddindx).need_by_date;
396 a13(indx) := t(ddindx).ship_by_date;
397 a14(indx) := t(ddindx).po_line_type_id;
398 a15(indx) := t(ddindx).po_line_type;
399 a16(indx) := t(ddindx).po_line_id;
400 a17(indx) := t(ddindx).oe_ship_line_id;
401 a18(indx) := t(ddindx).oe_return_line_id;
402 a19(indx) := t(ddindx).service_item_id;
403 a20(indx) := t(ddindx).service_item_number;
404 a21(indx) := t(ddindx).service_item_description;
405 a22(indx) := t(ddindx).service_item_uom_code;
406 a23(indx) := t(ddindx).quantity;
407 a24(indx) := t(ddindx).workorder_id;
408 a25(indx) := t(ddindx).job_number;
409 a26(indx) := t(ddindx).operation_id;
410 a27(indx) := t(ddindx).inventory_item_id;
411 a28(indx) := t(ddindx).inventory_org_id;
412 a29(indx) := t(ddindx).item_number;
413 a30(indx) := t(ddindx).inventory_item_uom;
414 a31(indx) := t(ddindx).inventory_item_quantity;
415 a32(indx) := t(ddindx).sub_inventory;
416 a33(indx) := t(ddindx).lot_number;
417 a34(indx) := t(ddindx).serial_number;
418 a35(indx) := t(ddindx).exchange_instance_number;
419 a36(indx) := t(ddindx).exchange_instance_id;
420 a37(indx) := t(ddindx).attribute_category;
421 a38(indx) := t(ddindx).attribute1;
422 a39(indx) := t(ddindx).attribute2;
423 a40(indx) := t(ddindx).attribute3;
424 a41(indx) := t(ddindx).attribute4;
425 a42(indx) := t(ddindx).attribute5;
426 a43(indx) := t(ddindx).attribute6;
427 a44(indx) := t(ddindx).attribute7;
428 a45(indx) := t(ddindx).attribute8;
429 a46(indx) := t(ddindx).attribute9;
430 a47(indx) := t(ddindx).attribute10;
431 a48(indx) := t(ddindx).attribute11;
432 a49(indx) := t(ddindx).attribute12;
433 a50(indx) := t(ddindx).attribute13;
434 a51(indx) := t(ddindx).attribute14;
435 a52(indx) := t(ddindx).attribute15;
436 a53(indx) := t(ddindx).po_req_line_id;
437 a54(indx) := t(ddindx).instance_id;
438 a55(indx) := t(ddindx).warranty_entitlement_id;
439 a56(indx) := t(ddindx).contract_number;
440 a57(indx) := t(ddindx).entitlement_status_code;
441 a58(indx) := t(ddindx).instance_warranty;
442 indx := indx+1;
443 if t.last =ddindx
444 then exit;
445 end if;
446 ddindx := t.next(ddindx);
447 end loop;
448 end if;
449 end if;
450 end rosetta_table_copy_out_p27;
451
452 procedure process_osp_order(p_api_version NUMBER
453 , p_init_msg_list VARCHAR2
454 , p_commit VARCHAR2
455 , p_validation_level NUMBER
456 , p_module_type VARCHAR2
457 , p5_a0 in out nocopy VARCHAR2
458 , p5_a1 in out nocopy NUMBER
459 , p5_a2 in out nocopy NUMBER
460 , p5_a3 in out nocopy DATE
461 , p5_a4 in out nocopy NUMBER
462 , p5_a5 in out nocopy DATE
463 , p5_a6 in out nocopy NUMBER
464 , p5_a7 in out nocopy NUMBER
465 , p5_a8 in out nocopy NUMBER
466 , p5_a9 in out nocopy VARCHAR2
467 , p5_a10 in out nocopy VARCHAR2
468 , p5_a11 in out nocopy DATE
469 , p5_a12 in out nocopy VARCHAR2
470 , p5_a13 in out nocopy NUMBER
471 , p5_a14 in out nocopy VARCHAR2
472 , p5_a15 in out nocopy NUMBER
473 , p5_a16 in out nocopy VARCHAR2
474 , p5_a17 in out nocopy NUMBER
475 , p5_a18 in out nocopy VARCHAR2
476 , p5_a19 in out nocopy NUMBER
477 , p5_a20 in out nocopy VARCHAR2
478 , p5_a21 in out nocopy VARCHAR2
479 , p5_a22 in out nocopy NUMBER
480 , p5_a23 in out nocopy NUMBER
481 , p5_a24 in out nocopy NUMBER
482 , p5_a25 in out nocopy NUMBER
483 , p5_a26 in out nocopy VARCHAR2
484 , p5_a27 in out nocopy NUMBER
485 , p5_a28 in out nocopy NUMBER
486 , p5_a29 in out nocopy NUMBER
487 , p5_a30 in out nocopy VARCHAR2
488 , p5_a31 in out nocopy NUMBER
489 , p5_a32 in out nocopy VARCHAR2
490 , p5_a33 in out nocopy VARCHAR2
491 , p5_a34 in out nocopy VARCHAR2
492 , p5_a35 in out nocopy VARCHAR2
493 , p5_a36 in out nocopy VARCHAR2
494 , p5_a37 in out nocopy VARCHAR2
495 , p5_a38 in out nocopy VARCHAR2
496 , p5_a39 in out nocopy VARCHAR2
497 , p5_a40 in out nocopy VARCHAR2
498 , p5_a41 in out nocopy VARCHAR2
499 , p5_a42 in out nocopy VARCHAR2
500 , p5_a43 in out nocopy VARCHAR2
501 , p5_a44 in out nocopy VARCHAR2
502 , p5_a45 in out nocopy VARCHAR2
503 , p5_a46 in out nocopy VARCHAR2
504 , p5_a47 in out nocopy VARCHAR2
505 , p5_a48 in out nocopy VARCHAR2
506 , p5_a49 in out nocopy VARCHAR2
507 , p5_a50 in out nocopy NUMBER
508 , p6_a0 in out nocopy JTF_VARCHAR2_TABLE_100
509 , p6_a1 in out nocopy JTF_VARCHAR2_TABLE_100
510 , p6_a2 in out nocopy JTF_NUMBER_TABLE
511 , p6_a3 in out nocopy JTF_NUMBER_TABLE
512 , p6_a4 in out nocopy JTF_DATE_TABLE
513 , p6_a5 in out nocopy JTF_NUMBER_TABLE
514 , p6_a6 in out nocopy JTF_DATE_TABLE
515 , p6_a7 in out nocopy JTF_NUMBER_TABLE
516 , p6_a8 in out nocopy JTF_NUMBER_TABLE
517 , p6_a9 in out nocopy JTF_NUMBER_TABLE
518 , p6_a10 in out nocopy JTF_NUMBER_TABLE
519 , p6_a11 in out nocopy JTF_VARCHAR2_TABLE_100
520 , p6_a12 in out nocopy JTF_DATE_TABLE
521 , p6_a13 in out nocopy JTF_DATE_TABLE
522 , p6_a14 in out nocopy JTF_NUMBER_TABLE
523 , p6_a15 in out nocopy JTF_VARCHAR2_TABLE_100
524 , p6_a16 in out nocopy JTF_NUMBER_TABLE
525 , p6_a17 in out nocopy JTF_NUMBER_TABLE
526 , p6_a18 in out nocopy JTF_NUMBER_TABLE
527 , p6_a19 in out nocopy JTF_NUMBER_TABLE
528 , p6_a20 in out nocopy JTF_VARCHAR2_TABLE_100
529 , p6_a21 in out nocopy JTF_VARCHAR2_TABLE_2000
530 , p6_a22 in out nocopy JTF_VARCHAR2_TABLE_100
531 , p6_a23 in out nocopy JTF_NUMBER_TABLE
532 , p6_a24 in out nocopy JTF_NUMBER_TABLE
533 , p6_a25 in out nocopy JTF_VARCHAR2_TABLE_100
534 , p6_a26 in out nocopy JTF_NUMBER_TABLE
535 , p6_a27 in out nocopy JTF_NUMBER_TABLE
536 , p6_a28 in out nocopy JTF_NUMBER_TABLE
537 , p6_a29 in out nocopy JTF_VARCHAR2_TABLE_100
538 , p6_a30 in out nocopy JTF_VARCHAR2_TABLE_100
539 , p6_a31 in out nocopy JTF_NUMBER_TABLE
540 , p6_a32 in out nocopy JTF_VARCHAR2_TABLE_100
541 , p6_a33 in out nocopy JTF_VARCHAR2_TABLE_100
542 , p6_a34 in out nocopy JTF_VARCHAR2_TABLE_100
543 , p6_a35 in out nocopy JTF_VARCHAR2_TABLE_100
544 , p6_a36 in out nocopy JTF_NUMBER_TABLE
545 , p6_a37 in out nocopy JTF_VARCHAR2_TABLE_100
546 , p6_a38 in out nocopy JTF_VARCHAR2_TABLE_200
547 , p6_a39 in out nocopy JTF_VARCHAR2_TABLE_200
548 , p6_a40 in out nocopy JTF_VARCHAR2_TABLE_200
549 , p6_a41 in out nocopy JTF_VARCHAR2_TABLE_200
550 , p6_a42 in out nocopy JTF_VARCHAR2_TABLE_200
551 , p6_a43 in out nocopy JTF_VARCHAR2_TABLE_200
552 , p6_a44 in out nocopy JTF_VARCHAR2_TABLE_200
553 , p6_a45 in out nocopy JTF_VARCHAR2_TABLE_200
554 , p6_a46 in out nocopy JTF_VARCHAR2_TABLE_200
555 , p6_a47 in out nocopy JTF_VARCHAR2_TABLE_200
556 , p6_a48 in out nocopy JTF_VARCHAR2_TABLE_200
557 , p6_a49 in out nocopy JTF_VARCHAR2_TABLE_200
558 , p6_a50 in out nocopy JTF_VARCHAR2_TABLE_200
559 , p6_a51 in out nocopy JTF_VARCHAR2_TABLE_200
560 , p6_a52 in out nocopy JTF_VARCHAR2_TABLE_200
561 , p6_a53 in out nocopy JTF_NUMBER_TABLE
562 , p6_a54 in out nocopy JTF_NUMBER_TABLE
563 , p6_a55 in out nocopy JTF_NUMBER_TABLE
564 , p6_a56 in out nocopy JTF_NUMBER_TABLE
565 , p6_a57 in out nocopy JTF_VARCHAR2_TABLE_100
566 , p6_a58 in out nocopy JTF_VARCHAR2_TABLE_100
567 , x_return_status out nocopy VARCHAR2
568 , x_msg_count out nocopy NUMBER
569 , x_msg_data out nocopy VARCHAR2
570 )
571
572 as
573 ddp_x_osp_order_rec ahl_osp_orders_pvt.osp_order_rec_type;
574 ddp_x_osp_order_lines_tbl ahl_osp_orders_pvt.osp_order_lines_tbl_type;
575 ddindx binary_integer; indx binary_integer;
576 begin
577
578 -- copy data to the local IN or IN-OUT args, if any
579
580
581
582
583
584 ddp_x_osp_order_rec.operation_flag := p5_a0;
585 ddp_x_osp_order_rec.osp_order_id := p5_a1;
586 ddp_x_osp_order_rec.object_version_number := p5_a2;
587 ddp_x_osp_order_rec.last_update_date := p5_a3;
588 ddp_x_osp_order_rec.last_updated_by := p5_a4;
589 ddp_x_osp_order_rec.creation_date := p5_a5;
590 ddp_x_osp_order_rec.created_by := p5_a6;
591 ddp_x_osp_order_rec.last_update_login := p5_a7;
592 ddp_x_osp_order_rec.osp_order_number := p5_a8;
593 ddp_x_osp_order_rec.order_type_code := p5_a9;
594 ddp_x_osp_order_rec.status_code := p5_a10;
595 ddp_x_osp_order_rec.order_date := p5_a11;
596 ddp_x_osp_order_rec.description := p5_a12;
597 ddp_x_osp_order_rec.operating_unit_id := p5_a13;
598 ddp_x_osp_order_rec.single_instance_flag := p5_a14;
599 ddp_x_osp_order_rec.vendor_id := p5_a15;
600 ddp_x_osp_order_rec.vendor_name := p5_a16;
601 ddp_x_osp_order_rec.vendor_site_id := p5_a17;
602 ddp_x_osp_order_rec.vendor_site_code := p5_a18;
603 ddp_x_osp_order_rec.vendor_contact_id := p5_a19;
604 ddp_x_osp_order_rec.vendor_contact := p5_a20;
605 ddp_x_osp_order_rec.po_synch_flag := p5_a21;
606 ddp_x_osp_order_rec.po_header_id := p5_a22;
607 ddp_x_osp_order_rec.po_batch_id := p5_a23;
608 ddp_x_osp_order_rec.po_request_id := p5_a24;
609 ddp_x_osp_order_rec.po_agent_id := p5_a25;
610 ddp_x_osp_order_rec.buyer_name := p5_a26;
611 ddp_x_osp_order_rec.po_interface_header_id := p5_a27;
612 ddp_x_osp_order_rec.oe_header_id := p5_a28;
613 ddp_x_osp_order_rec.customer_id := p5_a29;
614 ddp_x_osp_order_rec.customer_name := p5_a30;
615 ddp_x_osp_order_rec.contract_id := p5_a31;
616 ddp_x_osp_order_rec.contract_number := p5_a32;
617 ddp_x_osp_order_rec.contract_terms := p5_a33;
618 ddp_x_osp_order_rec.attribute_category := p5_a34;
619 ddp_x_osp_order_rec.attribute1 := p5_a35;
620 ddp_x_osp_order_rec.attribute2 := p5_a36;
621 ddp_x_osp_order_rec.attribute3 := p5_a37;
622 ddp_x_osp_order_rec.attribute4 := p5_a38;
623 ddp_x_osp_order_rec.attribute5 := p5_a39;
624 ddp_x_osp_order_rec.attribute6 := p5_a40;
625 ddp_x_osp_order_rec.attribute7 := p5_a41;
626 ddp_x_osp_order_rec.attribute8 := p5_a42;
627 ddp_x_osp_order_rec.attribute9 := p5_a43;
628 ddp_x_osp_order_rec.attribute10 := p5_a44;
629 ddp_x_osp_order_rec.attribute11 := p5_a45;
630 ddp_x_osp_order_rec.attribute12 := p5_a46;
631 ddp_x_osp_order_rec.attribute13 := p5_a47;
632 ddp_x_osp_order_rec.attribute14 := p5_a48;
633 ddp_x_osp_order_rec.attribute15 := p5_a49;
634 ddp_x_osp_order_rec.po_req_header_id := p5_a50;
635
636 ahl_osp_orders_pvt_w.rosetta_table_copy_in_p27(ddp_x_osp_order_lines_tbl, p6_a0
637 , p6_a1
638 , p6_a2
639 , p6_a3
640 , p6_a4
641 , p6_a5
642 , p6_a6
643 , p6_a7
644 , p6_a8
645 , p6_a9
646 , p6_a10
647 , p6_a11
648 , p6_a12
649 , p6_a13
650 , p6_a14
651 , p6_a15
652 , p6_a16
653 , p6_a17
654 , p6_a18
655 , p6_a19
656 , p6_a20
657 , p6_a21
658 , p6_a22
659 , p6_a23
660 , p6_a24
661 , p6_a25
662 , p6_a26
663 , p6_a27
664 , p6_a28
665 , p6_a29
666 , p6_a30
667 , p6_a31
668 , p6_a32
669 , p6_a33
670 , p6_a34
671 , p6_a35
672 , p6_a36
673 , p6_a37
674 , p6_a38
675 , p6_a39
676 , p6_a40
677 , p6_a41
678 , p6_a42
679 , p6_a43
680 , p6_a44
681 , p6_a45
682 , p6_a46
683 , p6_a47
684 , p6_a48
685 , p6_a49
686 , p6_a50
687 , p6_a51
688 , p6_a52
689 , p6_a53
690 , p6_a54
691 , p6_a55
692 , p6_a56
693 , p6_a57
694 , p6_a58
695 );
696
697
698
699
700 -- here's the delegated call to the old PL/SQL routine
701 ahl_osp_orders_pvt.process_osp_order(p_api_version,
702 p_init_msg_list,
703 p_commit,
704 p_validation_level,
705 p_module_type,
706 ddp_x_osp_order_rec,
707 ddp_x_osp_order_lines_tbl,
708 x_return_status,
709 x_msg_count,
710 x_msg_data);
711
712 -- copy data back from the local variables to OUT or IN-OUT args, if any
713
714
715
716
717
718 p5_a0 := ddp_x_osp_order_rec.operation_flag;
719 p5_a1 := ddp_x_osp_order_rec.osp_order_id;
720 p5_a2 := ddp_x_osp_order_rec.object_version_number;
721 p5_a3 := ddp_x_osp_order_rec.last_update_date;
722 p5_a4 := ddp_x_osp_order_rec.last_updated_by;
723 p5_a5 := ddp_x_osp_order_rec.creation_date;
724 p5_a6 := ddp_x_osp_order_rec.created_by;
725 p5_a7 := ddp_x_osp_order_rec.last_update_login;
726 p5_a8 := ddp_x_osp_order_rec.osp_order_number;
727 p5_a9 := ddp_x_osp_order_rec.order_type_code;
728 p5_a10 := ddp_x_osp_order_rec.status_code;
729 p5_a11 := ddp_x_osp_order_rec.order_date;
730 p5_a12 := ddp_x_osp_order_rec.description;
731 p5_a13 := ddp_x_osp_order_rec.operating_unit_id;
732 p5_a14 := ddp_x_osp_order_rec.single_instance_flag;
733 p5_a15 := ddp_x_osp_order_rec.vendor_id;
734 p5_a16 := ddp_x_osp_order_rec.vendor_name;
735 p5_a17 := ddp_x_osp_order_rec.vendor_site_id;
736 p5_a18 := ddp_x_osp_order_rec.vendor_site_code;
737 p5_a19 := ddp_x_osp_order_rec.vendor_contact_id;
738 p5_a20 := ddp_x_osp_order_rec.vendor_contact;
739 p5_a21 := ddp_x_osp_order_rec.po_synch_flag;
740 p5_a22 := ddp_x_osp_order_rec.po_header_id;
741 p5_a23 := ddp_x_osp_order_rec.po_batch_id;
742 p5_a24 := ddp_x_osp_order_rec.po_request_id;
743 p5_a25 := ddp_x_osp_order_rec.po_agent_id;
744 p5_a26 := ddp_x_osp_order_rec.buyer_name;
745 p5_a27 := ddp_x_osp_order_rec.po_interface_header_id;
746 p5_a28 := ddp_x_osp_order_rec.oe_header_id;
747 p5_a29 := ddp_x_osp_order_rec.customer_id;
748 p5_a30 := ddp_x_osp_order_rec.customer_name;
749 p5_a31 := ddp_x_osp_order_rec.contract_id;
750 p5_a32 := ddp_x_osp_order_rec.contract_number;
751 p5_a33 := ddp_x_osp_order_rec.contract_terms;
752 p5_a34 := ddp_x_osp_order_rec.attribute_category;
753 p5_a35 := ddp_x_osp_order_rec.attribute1;
754 p5_a36 := ddp_x_osp_order_rec.attribute2;
755 p5_a37 := ddp_x_osp_order_rec.attribute3;
756 p5_a38 := ddp_x_osp_order_rec.attribute4;
757 p5_a39 := ddp_x_osp_order_rec.attribute5;
758 p5_a40 := ddp_x_osp_order_rec.attribute6;
759 p5_a41 := ddp_x_osp_order_rec.attribute7;
760 p5_a42 := ddp_x_osp_order_rec.attribute8;
761 p5_a43 := ddp_x_osp_order_rec.attribute9;
762 p5_a44 := ddp_x_osp_order_rec.attribute10;
763 p5_a45 := ddp_x_osp_order_rec.attribute11;
764 p5_a46 := ddp_x_osp_order_rec.attribute12;
765 p5_a47 := ddp_x_osp_order_rec.attribute13;
766 p5_a48 := ddp_x_osp_order_rec.attribute14;
767 p5_a49 := ddp_x_osp_order_rec.attribute15;
768 p5_a50 := ddp_x_osp_order_rec.po_req_header_id;
769
770 ahl_osp_orders_pvt_w.rosetta_table_copy_out_p27(ddp_x_osp_order_lines_tbl, p6_a0
771 , p6_a1
772 , p6_a2
773 , p6_a3
774 , p6_a4
775 , p6_a5
776 , p6_a6
777 , p6_a7
778 , p6_a8
779 , p6_a9
780 , p6_a10
781 , p6_a11
782 , p6_a12
783 , p6_a13
784 , p6_a14
785 , p6_a15
786 , p6_a16
787 , p6_a17
788 , p6_a18
789 , p6_a19
790 , p6_a20
791 , p6_a21
792 , p6_a22
793 , p6_a23
794 , p6_a24
795 , p6_a25
796 , p6_a26
797 , p6_a27
798 , p6_a28
799 , p6_a29
800 , p6_a30
801 , p6_a31
802 , p6_a32
803 , p6_a33
804 , p6_a34
805 , p6_a35
806 , p6_a36
807 , p6_a37
808 , p6_a38
809 , p6_a39
810 , p6_a40
811 , p6_a41
812 , p6_a42
813 , p6_a43
814 , p6_a44
815 , p6_a45
816 , p6_a46
817 , p6_a47
818 , p6_a48
819 , p6_a49
820 , p6_a50
821 , p6_a51
822 , p6_a52
823 , p6_a53
824 , p6_a54
825 , p6_a55
826 , p6_a56
827 , p6_a57
828 , p6_a58
829 );
830
831
832
833 end;
834
835 end ahl_osp_orders_pvt_w;