[Home] [Help]
PACKAGE BODY: APPS.AHL_PRD_OPERATIONS_PVT_W
Source
1 package body ahl_prd_operations_pvt_w as
2 /* $Header: AHLWPROB.pls 120.1 2006/02/08 06:05 bachandr 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 procedure rosetta_table_copy_in_p1(t out nocopy ahl_prd_operations_pvt.prd_operation_tbl, a0 JTF_NUMBER_TABLE
14 , a1 JTF_NUMBER_TABLE
15 , a2 JTF_NUMBER_TABLE
16 , a3 JTF_VARCHAR2_TABLE_500
17 , a4 JTF_NUMBER_TABLE
18 , a5 JTF_NUMBER_TABLE
19 , a6 JTF_NUMBER_TABLE
20 , a7 JTF_NUMBER_TABLE
21 , a8 JTF_DATE_TABLE
22 , a9 JTF_NUMBER_TABLE
23 , a10 JTF_DATE_TABLE
24 , a11 JTF_NUMBER_TABLE
25 , a12 JTF_NUMBER_TABLE
26 , a13 JTF_NUMBER_TABLE
27 , a14 JTF_VARCHAR2_TABLE_300
28 , a15 JTF_VARCHAR2_TABLE_100
29 , a16 JTF_VARCHAR2_TABLE_100
30 , a17 JTF_NUMBER_TABLE
31 , a18 JTF_VARCHAR2_TABLE_500
32 , a19 JTF_VARCHAR2_TABLE_100
33 , a20 JTF_VARCHAR2_TABLE_100
34 , a21 JTF_VARCHAR2_TABLE_100
35 , a22 JTF_NUMBER_TABLE
36 , a23 JTF_NUMBER_TABLE
37 , a24 JTF_DATE_TABLE
38 , a25 JTF_NUMBER_TABLE
39 , a26 JTF_NUMBER_TABLE
40 , a27 JTF_DATE_TABLE
41 , a28 JTF_NUMBER_TABLE
42 , a29 JTF_NUMBER_TABLE
43 , a30 JTF_DATE_TABLE
44 , a31 JTF_NUMBER_TABLE
45 , a32 JTF_NUMBER_TABLE
46 , a33 JTF_DATE_TABLE
47 , a34 JTF_NUMBER_TABLE
48 , a35 JTF_NUMBER_TABLE
49 , a36 JTF_NUMBER_TABLE
50 , a37 JTF_NUMBER_TABLE
51 , a38 JTF_VARCHAR2_TABLE_100
52 , a39 JTF_NUMBER_TABLE
53 , a40 JTF_VARCHAR2_TABLE_100
54 , a41 JTF_VARCHAR2_TABLE_200
55 , a42 JTF_VARCHAR2_TABLE_200
56 , a43 JTF_VARCHAR2_TABLE_200
57 , a44 JTF_VARCHAR2_TABLE_200
58 , a45 JTF_VARCHAR2_TABLE_200
59 , a46 JTF_VARCHAR2_TABLE_200
60 , a47 JTF_VARCHAR2_TABLE_200
61 , a48 JTF_VARCHAR2_TABLE_200
62 , a49 JTF_VARCHAR2_TABLE_200
63 , a50 JTF_VARCHAR2_TABLE_200
64 , a51 JTF_VARCHAR2_TABLE_200
65 , a52 JTF_VARCHAR2_TABLE_200
66 , a53 JTF_VARCHAR2_TABLE_200
67 , a54 JTF_VARCHAR2_TABLE_200
68 , a55 JTF_VARCHAR2_TABLE_200
69 , a56 JTF_VARCHAR2_TABLE_100
70 ) as
71 ddindx binary_integer; indx binary_integer;
72 begin
73 if a0 is not null and a0.count > 0 then
74 if a0.count > 0 then
75 indx := a0.first;
76 ddindx := 1;
77 while true loop
78 t(ddindx).workorder_operation_id := a0(indx);
79 t(ddindx).organization_id := a1(indx);
80 t(ddindx).operation_sequence_num := a2(indx);
81 t(ddindx).operation_description := a3(indx);
82 t(ddindx).workorder_id := a4(indx);
83 t(ddindx).wip_entity_id := a5(indx);
84 t(ddindx).route_id := a6(indx);
85 t(ddindx).object_version_number := a7(indx);
86 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a8(indx));
87 t(ddindx).last_updated_by := a9(indx);
88 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a10(indx));
89 t(ddindx).created_by := a11(indx);
90 t(ddindx).last_update_login := a12(indx);
91 t(ddindx).department_id := a13(indx);
92 t(ddindx).department_name := a14(indx);
93 t(ddindx).status_code := a15(indx);
94 t(ddindx).status_meaning := a16(indx);
95 t(ddindx).operation_id := a17(indx);
96 t(ddindx).operation_code := a18(indx);
97 t(ddindx).operation_type_code := a19(indx);
98 t(ddindx).operation_type := a20(indx);
99 t(ddindx).replenish := a21(indx);
100 t(ddindx).minimum_transfer_quantity := a22(indx);
101 t(ddindx).count_point_type := a23(indx);
102 t(ddindx).scheduled_start_date := rosetta_g_miss_date_in_map(a24(indx));
103 t(ddindx).scheduled_start_hr := a25(indx);
104 t(ddindx).scheduled_start_mi := a26(indx);
105 t(ddindx).scheduled_end_date := rosetta_g_miss_date_in_map(a27(indx));
106 t(ddindx).scheduled_end_hr := a28(indx);
107 t(ddindx).scheduled_end_mi := a29(indx);
108 t(ddindx).actual_start_date := rosetta_g_miss_date_in_map(a30(indx));
109 t(ddindx).actual_start_hr := a31(indx);
110 t(ddindx).actual_start_mi := a32(indx);
111 t(ddindx).actual_end_date := rosetta_g_miss_date_in_map(a33(indx));
112 t(ddindx).actual_end_hr := a34(indx);
113 t(ddindx).actual_end_mi := a35(indx);
114 t(ddindx).plan_id := a36(indx);
115 t(ddindx).collection_id := a37(indx);
116 t(ddindx).propagate_flag := a38(indx);
117 t(ddindx).security_group_id := a39(indx);
118 t(ddindx).attribute_category := a40(indx);
119 t(ddindx).attribute1 := a41(indx);
120 t(ddindx).attribute2 := a42(indx);
121 t(ddindx).attribute3 := a43(indx);
122 t(ddindx).attribute4 := a44(indx);
123 t(ddindx).attribute5 := a45(indx);
124 t(ddindx).attribute6 := a46(indx);
125 t(ddindx).attribute7 := a47(indx);
126 t(ddindx).attribute8 := a48(indx);
127 t(ddindx).attribute9 := a49(indx);
128 t(ddindx).attribute10 := a50(indx);
129 t(ddindx).attribute11 := a51(indx);
130 t(ddindx).attribute12 := a52(indx);
131 t(ddindx).attribute13 := a53(indx);
132 t(ddindx).attribute14 := a54(indx);
133 t(ddindx).attribute15 := a55(indx);
134 t(ddindx).dml_operation := a56(indx);
135 ddindx := ddindx+1;
136 if a0.last =indx
137 then exit;
138 end if;
139 indx := a0.next(indx);
140 end loop;
141 end if;
142 end if;
143 end rosetta_table_copy_in_p1;
144 procedure rosetta_table_copy_out_p1(t ahl_prd_operations_pvt.prd_operation_tbl, a0 out nocopy JTF_NUMBER_TABLE
145 , a1 out nocopy JTF_NUMBER_TABLE
146 , a2 out nocopy JTF_NUMBER_TABLE
147 , a3 out nocopy JTF_VARCHAR2_TABLE_500
148 , a4 out nocopy JTF_NUMBER_TABLE
149 , a5 out nocopy JTF_NUMBER_TABLE
150 , a6 out nocopy JTF_NUMBER_TABLE
151 , a7 out nocopy JTF_NUMBER_TABLE
152 , a8 out nocopy JTF_DATE_TABLE
153 , a9 out nocopy JTF_NUMBER_TABLE
154 , a10 out nocopy JTF_DATE_TABLE
155 , a11 out nocopy JTF_NUMBER_TABLE
156 , a12 out nocopy JTF_NUMBER_TABLE
157 , a13 out nocopy JTF_NUMBER_TABLE
158 , a14 out nocopy JTF_VARCHAR2_TABLE_300
159 , a15 out nocopy JTF_VARCHAR2_TABLE_100
160 , a16 out nocopy JTF_VARCHAR2_TABLE_100
161 , a17 out nocopy JTF_NUMBER_TABLE
162 , a18 out nocopy JTF_VARCHAR2_TABLE_500
163 , a19 out nocopy JTF_VARCHAR2_TABLE_100
164 , a20 out nocopy JTF_VARCHAR2_TABLE_100
165 , a21 out nocopy JTF_VARCHAR2_TABLE_100
166 , a22 out nocopy JTF_NUMBER_TABLE
167 , a23 out nocopy JTF_NUMBER_TABLE
168 , a24 out nocopy JTF_DATE_TABLE
169 , a25 out nocopy JTF_NUMBER_TABLE
170 , a26 out nocopy JTF_NUMBER_TABLE
171 , a27 out nocopy JTF_DATE_TABLE
172 , a28 out nocopy JTF_NUMBER_TABLE
173 , a29 out nocopy JTF_NUMBER_TABLE
174 , a30 out nocopy JTF_DATE_TABLE
175 , a31 out nocopy JTF_NUMBER_TABLE
176 , a32 out nocopy JTF_NUMBER_TABLE
177 , a33 out nocopy JTF_DATE_TABLE
178 , a34 out nocopy JTF_NUMBER_TABLE
179 , a35 out nocopy JTF_NUMBER_TABLE
180 , a36 out nocopy JTF_NUMBER_TABLE
181 , a37 out nocopy JTF_NUMBER_TABLE
182 , a38 out nocopy JTF_VARCHAR2_TABLE_100
183 , a39 out nocopy JTF_NUMBER_TABLE
184 , a40 out nocopy JTF_VARCHAR2_TABLE_100
185 , a41 out nocopy JTF_VARCHAR2_TABLE_200
186 , a42 out nocopy JTF_VARCHAR2_TABLE_200
187 , a43 out nocopy JTF_VARCHAR2_TABLE_200
188 , a44 out nocopy JTF_VARCHAR2_TABLE_200
189 , a45 out nocopy JTF_VARCHAR2_TABLE_200
190 , a46 out nocopy JTF_VARCHAR2_TABLE_200
191 , a47 out nocopy JTF_VARCHAR2_TABLE_200
192 , a48 out nocopy JTF_VARCHAR2_TABLE_200
193 , a49 out nocopy JTF_VARCHAR2_TABLE_200
194 , a50 out nocopy JTF_VARCHAR2_TABLE_200
195 , a51 out nocopy JTF_VARCHAR2_TABLE_200
196 , a52 out nocopy JTF_VARCHAR2_TABLE_200
197 , a53 out nocopy JTF_VARCHAR2_TABLE_200
198 , a54 out nocopy JTF_VARCHAR2_TABLE_200
199 , a55 out nocopy JTF_VARCHAR2_TABLE_200
200 , a56 out nocopy JTF_VARCHAR2_TABLE_100
201 ) as
202 ddindx binary_integer; indx binary_integer;
203 begin
204 if t is null or t.count = 0 then
205 a0 := JTF_NUMBER_TABLE();
206 a1 := JTF_NUMBER_TABLE();
207 a2 := JTF_NUMBER_TABLE();
208 a3 := JTF_VARCHAR2_TABLE_500();
209 a4 := JTF_NUMBER_TABLE();
210 a5 := JTF_NUMBER_TABLE();
211 a6 := JTF_NUMBER_TABLE();
212 a7 := JTF_NUMBER_TABLE();
213 a8 := JTF_DATE_TABLE();
214 a9 := JTF_NUMBER_TABLE();
215 a10 := JTF_DATE_TABLE();
216 a11 := JTF_NUMBER_TABLE();
217 a12 := JTF_NUMBER_TABLE();
218 a13 := JTF_NUMBER_TABLE();
219 a14 := JTF_VARCHAR2_TABLE_300();
220 a15 := JTF_VARCHAR2_TABLE_100();
221 a16 := JTF_VARCHAR2_TABLE_100();
222 a17 := JTF_NUMBER_TABLE();
223 a18 := JTF_VARCHAR2_TABLE_500();
224 a19 := JTF_VARCHAR2_TABLE_100();
225 a20 := JTF_VARCHAR2_TABLE_100();
226 a21 := JTF_VARCHAR2_TABLE_100();
227 a22 := JTF_NUMBER_TABLE();
228 a23 := JTF_NUMBER_TABLE();
229 a24 := JTF_DATE_TABLE();
230 a25 := JTF_NUMBER_TABLE();
231 a26 := JTF_NUMBER_TABLE();
232 a27 := JTF_DATE_TABLE();
233 a28 := JTF_NUMBER_TABLE();
234 a29 := JTF_NUMBER_TABLE();
235 a30 := JTF_DATE_TABLE();
236 a31 := JTF_NUMBER_TABLE();
237 a32 := JTF_NUMBER_TABLE();
238 a33 := JTF_DATE_TABLE();
239 a34 := JTF_NUMBER_TABLE();
240 a35 := JTF_NUMBER_TABLE();
241 a36 := JTF_NUMBER_TABLE();
242 a37 := JTF_NUMBER_TABLE();
243 a38 := JTF_VARCHAR2_TABLE_100();
244 a39 := JTF_NUMBER_TABLE();
245 a40 := JTF_VARCHAR2_TABLE_100();
246 a41 := JTF_VARCHAR2_TABLE_200();
247 a42 := JTF_VARCHAR2_TABLE_200();
248 a43 := JTF_VARCHAR2_TABLE_200();
249 a44 := JTF_VARCHAR2_TABLE_200();
250 a45 := JTF_VARCHAR2_TABLE_200();
251 a46 := JTF_VARCHAR2_TABLE_200();
252 a47 := JTF_VARCHAR2_TABLE_200();
253 a48 := JTF_VARCHAR2_TABLE_200();
254 a49 := JTF_VARCHAR2_TABLE_200();
255 a50 := JTF_VARCHAR2_TABLE_200();
256 a51 := JTF_VARCHAR2_TABLE_200();
257 a52 := JTF_VARCHAR2_TABLE_200();
258 a53 := JTF_VARCHAR2_TABLE_200();
259 a54 := JTF_VARCHAR2_TABLE_200();
260 a55 := JTF_VARCHAR2_TABLE_200();
261 a56 := JTF_VARCHAR2_TABLE_100();
262 else
263 a0 := JTF_NUMBER_TABLE();
264 a1 := JTF_NUMBER_TABLE();
265 a2 := JTF_NUMBER_TABLE();
266 a3 := JTF_VARCHAR2_TABLE_500();
267 a4 := JTF_NUMBER_TABLE();
268 a5 := JTF_NUMBER_TABLE();
269 a6 := JTF_NUMBER_TABLE();
270 a7 := JTF_NUMBER_TABLE();
271 a8 := JTF_DATE_TABLE();
272 a9 := JTF_NUMBER_TABLE();
273 a10 := JTF_DATE_TABLE();
274 a11 := JTF_NUMBER_TABLE();
275 a12 := JTF_NUMBER_TABLE();
276 a13 := JTF_NUMBER_TABLE();
277 a14 := JTF_VARCHAR2_TABLE_300();
278 a15 := JTF_VARCHAR2_TABLE_100();
279 a16 := JTF_VARCHAR2_TABLE_100();
280 a17 := JTF_NUMBER_TABLE();
281 a18 := JTF_VARCHAR2_TABLE_500();
282 a19 := JTF_VARCHAR2_TABLE_100();
283 a20 := JTF_VARCHAR2_TABLE_100();
284 a21 := JTF_VARCHAR2_TABLE_100();
285 a22 := JTF_NUMBER_TABLE();
286 a23 := JTF_NUMBER_TABLE();
287 a24 := JTF_DATE_TABLE();
288 a25 := JTF_NUMBER_TABLE();
289 a26 := JTF_NUMBER_TABLE();
290 a27 := JTF_DATE_TABLE();
291 a28 := JTF_NUMBER_TABLE();
292 a29 := JTF_NUMBER_TABLE();
293 a30 := JTF_DATE_TABLE();
294 a31 := JTF_NUMBER_TABLE();
295 a32 := JTF_NUMBER_TABLE();
296 a33 := JTF_DATE_TABLE();
297 a34 := JTF_NUMBER_TABLE();
298 a35 := JTF_NUMBER_TABLE();
299 a36 := JTF_NUMBER_TABLE();
300 a37 := JTF_NUMBER_TABLE();
301 a38 := JTF_VARCHAR2_TABLE_100();
302 a39 := JTF_NUMBER_TABLE();
303 a40 := JTF_VARCHAR2_TABLE_100();
304 a41 := JTF_VARCHAR2_TABLE_200();
305 a42 := JTF_VARCHAR2_TABLE_200();
306 a43 := JTF_VARCHAR2_TABLE_200();
307 a44 := JTF_VARCHAR2_TABLE_200();
308 a45 := JTF_VARCHAR2_TABLE_200();
309 a46 := JTF_VARCHAR2_TABLE_200();
310 a47 := JTF_VARCHAR2_TABLE_200();
311 a48 := JTF_VARCHAR2_TABLE_200();
312 a49 := JTF_VARCHAR2_TABLE_200();
313 a50 := JTF_VARCHAR2_TABLE_200();
314 a51 := JTF_VARCHAR2_TABLE_200();
315 a52 := JTF_VARCHAR2_TABLE_200();
316 a53 := JTF_VARCHAR2_TABLE_200();
317 a54 := JTF_VARCHAR2_TABLE_200();
318 a55 := JTF_VARCHAR2_TABLE_200();
319 a56 := 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 ddindx := t.first;
379 indx := 1;
380 while true loop
381 a0(indx) := t(ddindx).workorder_operation_id;
382 a1(indx) := t(ddindx).organization_id;
383 a2(indx) := t(ddindx).operation_sequence_num;
384 a3(indx) := t(ddindx).operation_description;
385 a4(indx) := t(ddindx).workorder_id;
386 a5(indx) := t(ddindx).wip_entity_id;
387 a6(indx) := t(ddindx).route_id;
388 a7(indx) := t(ddindx).object_version_number;
389 a8(indx) := t(ddindx).last_update_date;
390 a9(indx) := t(ddindx).last_updated_by;
391 a10(indx) := t(ddindx).creation_date;
392 a11(indx) := t(ddindx).created_by;
393 a12(indx) := t(ddindx).last_update_login;
394 a13(indx) := t(ddindx).department_id;
395 a14(indx) := t(ddindx).department_name;
396 a15(indx) := t(ddindx).status_code;
397 a16(indx) := t(ddindx).status_meaning;
398 a17(indx) := t(ddindx).operation_id;
399 a18(indx) := t(ddindx).operation_code;
400 a19(indx) := t(ddindx).operation_type_code;
401 a20(indx) := t(ddindx).operation_type;
402 a21(indx) := t(ddindx).replenish;
403 a22(indx) := t(ddindx).minimum_transfer_quantity;
404 a23(indx) := t(ddindx).count_point_type;
405 a24(indx) := t(ddindx).scheduled_start_date;
406 a25(indx) := t(ddindx).scheduled_start_hr;
407 a26(indx) := t(ddindx).scheduled_start_mi;
408 a27(indx) := t(ddindx).scheduled_end_date;
409 a28(indx) := t(ddindx).scheduled_end_hr;
410 a29(indx) := t(ddindx).scheduled_end_mi;
411 a30(indx) := t(ddindx).actual_start_date;
412 a31(indx) := t(ddindx).actual_start_hr;
413 a32(indx) := t(ddindx).actual_start_mi;
414 a33(indx) := t(ddindx).actual_end_date;
415 a34(indx) := t(ddindx).actual_end_hr;
416 a35(indx) := t(ddindx).actual_end_mi;
417 a36(indx) := t(ddindx).plan_id;
418 a37(indx) := t(ddindx).collection_id;
419 a38(indx) := t(ddindx).propagate_flag;
420 a39(indx) := t(ddindx).security_group_id;
421 a40(indx) := t(ddindx).attribute_category;
422 a41(indx) := t(ddindx).attribute1;
423 a42(indx) := t(ddindx).attribute2;
424 a43(indx) := t(ddindx).attribute3;
425 a44(indx) := t(ddindx).attribute4;
426 a45(indx) := t(ddindx).attribute5;
427 a46(indx) := t(ddindx).attribute6;
428 a47(indx) := t(ddindx).attribute7;
429 a48(indx) := t(ddindx).attribute8;
430 a49(indx) := t(ddindx).attribute9;
431 a50(indx) := t(ddindx).attribute10;
432 a51(indx) := t(ddindx).attribute11;
433 a52(indx) := t(ddindx).attribute12;
434 a53(indx) := t(ddindx).attribute13;
435 a54(indx) := t(ddindx).attribute14;
436 a55(indx) := t(ddindx).attribute15;
437 a56(indx) := t(ddindx).dml_operation;
438 indx := indx+1;
439 if t.last =ddindx
440 then exit;
441 end if;
442 ddindx := t.next(ddindx);
443 end loop;
444 end if;
445 end if;
446 end rosetta_table_copy_out_p1;
447
448 procedure process_operations(p_api_version NUMBER
449 , p_init_msg_list VARCHAR2
450 , p_commit VARCHAR2
451 , p_validation_level NUMBER
452 , p_default VARCHAR2
453 , p_module_type VARCHAR2
454 , p_wip_mass_load_flag VARCHAR2
455 , x_return_status out nocopy VARCHAR2
456 , x_msg_count out nocopy NUMBER
457 , x_msg_data out nocopy VARCHAR2
458 , p10_a0 in out nocopy JTF_NUMBER_TABLE
459 , p10_a1 in out nocopy JTF_NUMBER_TABLE
460 , p10_a2 in out nocopy JTF_NUMBER_TABLE
461 , p10_a3 in out nocopy JTF_VARCHAR2_TABLE_500
462 , p10_a4 in out nocopy JTF_NUMBER_TABLE
463 , p10_a5 in out nocopy JTF_NUMBER_TABLE
464 , p10_a6 in out nocopy JTF_NUMBER_TABLE
465 , p10_a7 in out nocopy JTF_NUMBER_TABLE
466 , p10_a8 in out nocopy JTF_DATE_TABLE
467 , p10_a9 in out nocopy JTF_NUMBER_TABLE
468 , p10_a10 in out nocopy JTF_DATE_TABLE
469 , p10_a11 in out nocopy JTF_NUMBER_TABLE
470 , p10_a12 in out nocopy JTF_NUMBER_TABLE
471 , p10_a13 in out nocopy JTF_NUMBER_TABLE
472 , p10_a14 in out nocopy JTF_VARCHAR2_TABLE_300
473 , p10_a15 in out nocopy JTF_VARCHAR2_TABLE_100
474 , p10_a16 in out nocopy JTF_VARCHAR2_TABLE_100
475 , p10_a17 in out nocopy JTF_NUMBER_TABLE
476 , p10_a18 in out nocopy JTF_VARCHAR2_TABLE_500
477 , p10_a19 in out nocopy JTF_VARCHAR2_TABLE_100
478 , p10_a20 in out nocopy JTF_VARCHAR2_TABLE_100
479 , p10_a21 in out nocopy JTF_VARCHAR2_TABLE_100
480 , p10_a22 in out nocopy JTF_NUMBER_TABLE
481 , p10_a23 in out nocopy JTF_NUMBER_TABLE
482 , p10_a24 in out nocopy JTF_DATE_TABLE
483 , p10_a25 in out nocopy JTF_NUMBER_TABLE
484 , p10_a26 in out nocopy JTF_NUMBER_TABLE
485 , p10_a27 in out nocopy JTF_DATE_TABLE
486 , p10_a28 in out nocopy JTF_NUMBER_TABLE
487 , p10_a29 in out nocopy JTF_NUMBER_TABLE
488 , p10_a30 in out nocopy JTF_DATE_TABLE
489 , p10_a31 in out nocopy JTF_NUMBER_TABLE
490 , p10_a32 in out nocopy JTF_NUMBER_TABLE
491 , p10_a33 in out nocopy JTF_DATE_TABLE
492 , p10_a34 in out nocopy JTF_NUMBER_TABLE
493 , p10_a35 in out nocopy JTF_NUMBER_TABLE
494 , p10_a36 in out nocopy JTF_NUMBER_TABLE
495 , p10_a37 in out nocopy JTF_NUMBER_TABLE
496 , p10_a38 in out nocopy JTF_VARCHAR2_TABLE_100
497 , p10_a39 in out nocopy JTF_NUMBER_TABLE
498 , p10_a40 in out nocopy JTF_VARCHAR2_TABLE_100
499 , p10_a41 in out nocopy JTF_VARCHAR2_TABLE_200
500 , p10_a42 in out nocopy JTF_VARCHAR2_TABLE_200
501 , p10_a43 in out nocopy JTF_VARCHAR2_TABLE_200
502 , p10_a44 in out nocopy JTF_VARCHAR2_TABLE_200
503 , p10_a45 in out nocopy JTF_VARCHAR2_TABLE_200
504 , p10_a46 in out nocopy JTF_VARCHAR2_TABLE_200
505 , p10_a47 in out nocopy JTF_VARCHAR2_TABLE_200
506 , p10_a48 in out nocopy JTF_VARCHAR2_TABLE_200
507 , p10_a49 in out nocopy JTF_VARCHAR2_TABLE_200
508 , p10_a50 in out nocopy JTF_VARCHAR2_TABLE_200
509 , p10_a51 in out nocopy JTF_VARCHAR2_TABLE_200
510 , p10_a52 in out nocopy JTF_VARCHAR2_TABLE_200
511 , p10_a53 in out nocopy JTF_VARCHAR2_TABLE_200
512 , p10_a54 in out nocopy JTF_VARCHAR2_TABLE_200
513 , p10_a55 in out nocopy JTF_VARCHAR2_TABLE_200
514 , p10_a56 in out nocopy JTF_VARCHAR2_TABLE_100
515 )
516
517 as
518 ddp_x_prd_operation_tbl ahl_prd_operations_pvt.prd_operation_tbl;
519 ddindx binary_integer; indx binary_integer;
520 begin
521
522 -- copy data to the local IN or IN-OUT args, if any
523
524
525
526
527
528
529
530
531
532
533 ahl_prd_operations_pvt_w.rosetta_table_copy_in_p1(ddp_x_prd_operation_tbl, p10_a0
534 , p10_a1
535 , p10_a2
536 , p10_a3
537 , p10_a4
538 , p10_a5
539 , p10_a6
540 , p10_a7
541 , p10_a8
542 , p10_a9
543 , p10_a10
544 , p10_a11
545 , p10_a12
546 , p10_a13
547 , p10_a14
548 , p10_a15
549 , p10_a16
550 , p10_a17
551 , p10_a18
552 , p10_a19
553 , p10_a20
554 , p10_a21
555 , p10_a22
556 , p10_a23
557 , p10_a24
558 , p10_a25
559 , p10_a26
560 , p10_a27
561 , p10_a28
562 , p10_a29
563 , p10_a30
564 , p10_a31
565 , p10_a32
566 , p10_a33
567 , p10_a34
568 , p10_a35
569 , p10_a36
570 , p10_a37
571 , p10_a38
572 , p10_a39
573 , p10_a40
574 , p10_a41
575 , p10_a42
576 , p10_a43
577 , p10_a44
578 , p10_a45
579 , p10_a46
580 , p10_a47
581 , p10_a48
582 , p10_a49
583 , p10_a50
584 , p10_a51
585 , p10_a52
586 , p10_a53
587 , p10_a54
588 , p10_a55
589 , p10_a56
590 );
591
592 -- here's the delegated call to the old PL/SQL routine
593 ahl_prd_operations_pvt.process_operations(p_api_version,
594 p_init_msg_list,
595 p_commit,
596 p_validation_level,
597 p_default,
598 p_module_type,
599 p_wip_mass_load_flag,
600 x_return_status,
601 x_msg_count,
602 x_msg_data,
603 ddp_x_prd_operation_tbl);
604
605 -- copy data back from the local variables to OUT or IN-OUT args, if any
606
607
608
609
610
611
612
613
614
615
616 ahl_prd_operations_pvt_w.rosetta_table_copy_out_p1(ddp_x_prd_operation_tbl, p10_a0
617 , p10_a1
618 , p10_a2
619 , p10_a3
620 , p10_a4
621 , p10_a5
622 , p10_a6
623 , p10_a7
624 , p10_a8
625 , p10_a9
626 , p10_a10
627 , p10_a11
628 , p10_a12
629 , p10_a13
630 , p10_a14
631 , p10_a15
632 , p10_a16
633 , p10_a17
634 , p10_a18
635 , p10_a19
636 , p10_a20
637 , p10_a21
638 , p10_a22
639 , p10_a23
640 , p10_a24
641 , p10_a25
642 , p10_a26
643 , p10_a27
644 , p10_a28
645 , p10_a29
646 , p10_a30
647 , p10_a31
648 , p10_a32
649 , p10_a33
650 , p10_a34
651 , p10_a35
652 , p10_a36
653 , p10_a37
654 , p10_a38
655 , p10_a39
656 , p10_a40
657 , p10_a41
658 , p10_a42
659 , p10_a43
660 , p10_a44
661 , p10_a45
662 , p10_a46
663 , p10_a47
664 , p10_a48
665 , p10_a49
666 , p10_a50
667 , p10_a51
668 , p10_a52
669 , p10_a53
670 , p10_a54
671 , p10_a55
672 , p10_a56
673 );
674 end;
675
676 end ahl_prd_operations_pvt_w;