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