[Home] [Help]
PACKAGE BODY: APPS.AHL_WIP_JOB_PVT_W
Source
1 package body ahl_wip_job_pvt_w as
2 /* $Header: AHLWWIPB.pls 120.1 2006/05/03 00:45 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 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 procedure rosetta_table_copy_in_p2(t out nocopy ahl_wip_job_pvt.ahl_wo_op_tbl_type, a0 JTF_NUMBER_TABLE
17 , a1 JTF_NUMBER_TABLE
18 , a2 JTF_NUMBER_TABLE
19 , a3 JTF_VARCHAR2_TABLE_300
20 , a4 JTF_NUMBER_TABLE
21 , a5 JTF_NUMBER_TABLE
22 , a6 JTF_NUMBER_TABLE
23 , a7 JTF_DATE_TABLE
24 , a8 JTF_DATE_TABLE
25 , a9 JTF_VARCHAR2_TABLE_100
26 ) as
27 ddindx binary_integer; indx binary_integer;
28 begin
29 if a0 is not null and a0.count > 0 then
30 if a0.count > 0 then
31 indx := a0.first;
32 ddindx := 1;
33 while true loop
34 t(ddindx).organization_id := a0(indx);
35 t(ddindx).operation_seq_num := a1(indx);
36 t(ddindx).department_id := a2(indx);
37 t(ddindx).description := a3(indx);
38 t(ddindx).minimum_transfer_quantity := a4(indx);
39 t(ddindx).count_point_type := a5(indx);
40 t(ddindx).backflush_flag := a6(indx);
41 t(ddindx).scheduled_start := rosetta_g_miss_date_in_map(a7(indx));
42 t(ddindx).scheduled_end := rosetta_g_miss_date_in_map(a8(indx));
43 t(ddindx).dml_type := a9(indx);
44 ddindx := ddindx+1;
45 if a0.last =indx
46 then exit;
47 end if;
48 indx := a0.next(indx);
49 end loop;
50 end if;
51 end if;
52 end rosetta_table_copy_in_p2;
53 procedure rosetta_table_copy_out_p2(t ahl_wip_job_pvt.ahl_wo_op_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
54 , a1 out nocopy JTF_NUMBER_TABLE
55 , a2 out nocopy JTF_NUMBER_TABLE
56 , a3 out nocopy JTF_VARCHAR2_TABLE_300
57 , a4 out nocopy JTF_NUMBER_TABLE
58 , a5 out nocopy JTF_NUMBER_TABLE
59 , a6 out nocopy JTF_NUMBER_TABLE
60 , a7 out nocopy JTF_DATE_TABLE
61 , a8 out nocopy JTF_DATE_TABLE
62 , a9 out nocopy JTF_VARCHAR2_TABLE_100
63 ) as
64 ddindx binary_integer; indx binary_integer;
65 begin
66 if t is null or t.count = 0 then
67 a0 := JTF_NUMBER_TABLE();
68 a1 := JTF_NUMBER_TABLE();
69 a2 := JTF_NUMBER_TABLE();
70 a3 := JTF_VARCHAR2_TABLE_300();
71 a4 := JTF_NUMBER_TABLE();
72 a5 := JTF_NUMBER_TABLE();
73 a6 := JTF_NUMBER_TABLE();
74 a7 := JTF_DATE_TABLE();
75 a8 := JTF_DATE_TABLE();
76 a9 := JTF_VARCHAR2_TABLE_100();
77 else
78 a0 := JTF_NUMBER_TABLE();
79 a1 := JTF_NUMBER_TABLE();
80 a2 := JTF_NUMBER_TABLE();
81 a3 := JTF_VARCHAR2_TABLE_300();
82 a4 := JTF_NUMBER_TABLE();
83 a5 := JTF_NUMBER_TABLE();
84 a6 := JTF_NUMBER_TABLE();
85 a7 := JTF_DATE_TABLE();
86 a8 := JTF_DATE_TABLE();
87 a9 := JTF_VARCHAR2_TABLE_100();
88 if t.count > 0 then
89 a0.extend(t.count);
90 a1.extend(t.count);
91 a2.extend(t.count);
92 a3.extend(t.count);
93 a4.extend(t.count);
94 a5.extend(t.count);
95 a6.extend(t.count);
96 a7.extend(t.count);
97 a8.extend(t.count);
98 a9.extend(t.count);
99 ddindx := t.first;
100 indx := 1;
101 while true loop
102 a0(indx) := t(ddindx).organization_id;
103 a1(indx) := t(ddindx).operation_seq_num;
104 a2(indx) := t(ddindx).department_id;
105 a3(indx) := t(ddindx).description;
106 a4(indx) := t(ddindx).minimum_transfer_quantity;
107 a5(indx) := t(ddindx).count_point_type;
108 a6(indx) := t(ddindx).backflush_flag;
109 a7(indx) := t(ddindx).scheduled_start;
110 a8(indx) := t(ddindx).scheduled_end;
111 a9(indx) := t(ddindx).dml_type;
112 indx := indx+1;
113 if t.last =ddindx
114 then exit;
115 end if;
116 ddindx := t.next(ddindx);
117 end loop;
118 end if;
119 end if;
120 end rosetta_table_copy_out_p2;
121
122 procedure rosetta_table_copy_in_p4(t out nocopy ahl_wip_job_pvt.ahl_wo_res_tbl_type, a0 JTF_NUMBER_TABLE
123 , a1 JTF_NUMBER_TABLE
124 , a2 JTF_NUMBER_TABLE
125 , a3 JTF_NUMBER_TABLE
126 , a4 JTF_NUMBER_TABLE
127 , a5 JTF_NUMBER_TABLE
128 , a6 JTF_NUMBER_TABLE
129 , a7 JTF_VARCHAR2_TABLE_100
130 , a8 JTF_NUMBER_TABLE
131 , a9 JTF_NUMBER_TABLE
132 , a10 JTF_NUMBER_TABLE
133 , a11 JTF_NUMBER_TABLE
134 , a12 JTF_NUMBER_TABLE
135 , a13 JTF_NUMBER_TABLE
136 , a14 JTF_NUMBER_TABLE
137 , a15 JTF_NUMBER_TABLE
138 , a16 JTF_NUMBER_TABLE
139 , a17 JTF_VARCHAR2_TABLE_300
140 , a18 JTF_DATE_TABLE
141 , a19 JTF_DATE_TABLE
142 , a20 JTF_NUMBER_TABLE
143 , a21 JTF_VARCHAR2_TABLE_100
144 ) as
145 ddindx binary_integer; indx binary_integer;
146 begin
147 if a0 is not null and a0.count > 0 then
148 if a0.count > 0 then
149 indx := a0.first;
150 ddindx := 1;
151 while true loop
152 t(ddindx).operation_seq_num := a0(indx);
153 t(ddindx).resource_seq_num := a1(indx);
154 t(ddindx).organization_id := a2(indx);
155 t(ddindx).department_id := a3(indx);
156 t(ddindx).scheduled_sequence := a4(indx);
157 t(ddindx).resource_id_old := a5(indx);
158 t(ddindx).resource_id_new := a6(indx);
159 t(ddindx).uom := a7(indx);
160 t(ddindx).cost_basis := a8(indx);
161 t(ddindx).quantity := a9(indx);
162 t(ddindx).assigned_units := a10(indx);
163 t(ddindx).scheduled_flag := a11(indx);
164 t(ddindx).activity_id := a12(indx);
165 t(ddindx).autocharge_type := a13(indx);
166 t(ddindx).standard_rate_flag := a14(indx);
167 t(ddindx).applied_resource_units := a15(indx);
168 t(ddindx).applied_resource_value := a16(indx);
169 t(ddindx).description := a17(indx);
170 t(ddindx).start_date := rosetta_g_miss_date_in_map(a18(indx));
171 t(ddindx).end_date := rosetta_g_miss_date_in_map(a19(indx));
172 t(ddindx).setup_id := a20(indx);
173 t(ddindx).dml_type := a21(indx);
174 ddindx := ddindx+1;
175 if a0.last =indx
176 then exit;
177 end if;
178 indx := a0.next(indx);
179 end loop;
180 end if;
181 end if;
182 end rosetta_table_copy_in_p4;
183 procedure rosetta_table_copy_out_p4(t ahl_wip_job_pvt.ahl_wo_res_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
184 , a1 out nocopy JTF_NUMBER_TABLE
185 , a2 out nocopy JTF_NUMBER_TABLE
186 , a3 out nocopy JTF_NUMBER_TABLE
187 , a4 out nocopy JTF_NUMBER_TABLE
188 , a5 out nocopy JTF_NUMBER_TABLE
189 , a6 out nocopy JTF_NUMBER_TABLE
190 , a7 out nocopy JTF_VARCHAR2_TABLE_100
191 , a8 out nocopy JTF_NUMBER_TABLE
192 , a9 out nocopy JTF_NUMBER_TABLE
193 , a10 out nocopy JTF_NUMBER_TABLE
194 , a11 out nocopy JTF_NUMBER_TABLE
195 , a12 out nocopy JTF_NUMBER_TABLE
196 , a13 out nocopy JTF_NUMBER_TABLE
197 , a14 out nocopy JTF_NUMBER_TABLE
198 , a15 out nocopy JTF_NUMBER_TABLE
199 , a16 out nocopy JTF_NUMBER_TABLE
200 , a17 out nocopy JTF_VARCHAR2_TABLE_300
201 , a18 out nocopy JTF_DATE_TABLE
202 , a19 out nocopy JTF_DATE_TABLE
203 , a20 out nocopy JTF_NUMBER_TABLE
204 , a21 out nocopy JTF_VARCHAR2_TABLE_100
205 ) as
206 ddindx binary_integer; indx binary_integer;
207 begin
208 if t is null or t.count = 0 then
209 a0 := JTF_NUMBER_TABLE();
210 a1 := JTF_NUMBER_TABLE();
211 a2 := JTF_NUMBER_TABLE();
212 a3 := JTF_NUMBER_TABLE();
213 a4 := JTF_NUMBER_TABLE();
214 a5 := JTF_NUMBER_TABLE();
215 a6 := JTF_NUMBER_TABLE();
216 a7 := JTF_VARCHAR2_TABLE_100();
217 a8 := JTF_NUMBER_TABLE();
218 a9 := JTF_NUMBER_TABLE();
219 a10 := JTF_NUMBER_TABLE();
220 a11 := JTF_NUMBER_TABLE();
221 a12 := JTF_NUMBER_TABLE();
222 a13 := JTF_NUMBER_TABLE();
223 a14 := JTF_NUMBER_TABLE();
224 a15 := JTF_NUMBER_TABLE();
225 a16 := JTF_NUMBER_TABLE();
226 a17 := JTF_VARCHAR2_TABLE_300();
227 a18 := JTF_DATE_TABLE();
228 a19 := JTF_DATE_TABLE();
229 a20 := JTF_NUMBER_TABLE();
230 a21 := JTF_VARCHAR2_TABLE_100();
231 else
232 a0 := JTF_NUMBER_TABLE();
233 a1 := JTF_NUMBER_TABLE();
234 a2 := JTF_NUMBER_TABLE();
235 a3 := JTF_NUMBER_TABLE();
236 a4 := JTF_NUMBER_TABLE();
237 a5 := JTF_NUMBER_TABLE();
238 a6 := JTF_NUMBER_TABLE();
239 a7 := JTF_VARCHAR2_TABLE_100();
240 a8 := JTF_NUMBER_TABLE();
241 a9 := JTF_NUMBER_TABLE();
242 a10 := JTF_NUMBER_TABLE();
243 a11 := JTF_NUMBER_TABLE();
244 a12 := JTF_NUMBER_TABLE();
245 a13 := JTF_NUMBER_TABLE();
246 a14 := JTF_NUMBER_TABLE();
247 a15 := JTF_NUMBER_TABLE();
248 a16 := JTF_NUMBER_TABLE();
249 a17 := JTF_VARCHAR2_TABLE_300();
250 a18 := JTF_DATE_TABLE();
251 a19 := JTF_DATE_TABLE();
252 a20 := JTF_NUMBER_TABLE();
253 a21 := JTF_VARCHAR2_TABLE_100();
254 if t.count > 0 then
255 a0.extend(t.count);
256 a1.extend(t.count);
257 a2.extend(t.count);
258 a3.extend(t.count);
259 a4.extend(t.count);
260 a5.extend(t.count);
261 a6.extend(t.count);
262 a7.extend(t.count);
263 a8.extend(t.count);
264 a9.extend(t.count);
265 a10.extend(t.count);
266 a11.extend(t.count);
267 a12.extend(t.count);
268 a13.extend(t.count);
269 a14.extend(t.count);
270 a15.extend(t.count);
271 a16.extend(t.count);
272 a17.extend(t.count);
273 a18.extend(t.count);
274 a19.extend(t.count);
275 a20.extend(t.count);
276 a21.extend(t.count);
277 ddindx := t.first;
278 indx := 1;
279 while true loop
280 a0(indx) := t(ddindx).operation_seq_num;
281 a1(indx) := t(ddindx).resource_seq_num;
282 a2(indx) := t(ddindx).organization_id;
283 a3(indx) := t(ddindx).department_id;
284 a4(indx) := t(ddindx).scheduled_sequence;
285 a5(indx) := t(ddindx).resource_id_old;
286 a6(indx) := t(ddindx).resource_id_new;
287 a7(indx) := t(ddindx).uom;
288 a8(indx) := t(ddindx).cost_basis;
289 a9(indx) := t(ddindx).quantity;
290 a10(indx) := t(ddindx).assigned_units;
291 a11(indx) := t(ddindx).scheduled_flag;
292 a12(indx) := t(ddindx).activity_id;
293 a13(indx) := t(ddindx).autocharge_type;
294 a14(indx) := t(ddindx).standard_rate_flag;
295 a15(indx) := t(ddindx).applied_resource_units;
296 a16(indx) := t(ddindx).applied_resource_value;
297 a17(indx) := t(ddindx).description;
298 a18(indx) := t(ddindx).start_date;
299 a19(indx) := t(ddindx).end_date;
300 a20(indx) := t(ddindx).setup_id;
301 a21(indx) := t(ddindx).dml_type;
302 indx := indx+1;
303 if t.last =ddindx
304 then exit;
305 end if;
306 ddindx := t.next(ddindx);
307 end loop;
308 end if;
309 end if;
310 end rosetta_table_copy_out_p4;
311
312 procedure rosetta_table_copy_in_p6(t out nocopy ahl_wip_job_pvt.ahl_wo_mtl_tbl_type, a0 JTF_NUMBER_TABLE
313 , a1 JTF_NUMBER_TABLE
314 , a2 JTF_NUMBER_TABLE
315 , a3 JTF_NUMBER_TABLE
316 , a4 JTF_NUMBER_TABLE
317 , a5 JTF_NUMBER_TABLE
318 , a6 JTF_NUMBER_TABLE
319 , a7 JTF_NUMBER_TABLE
320 , a8 JTF_NUMBER_TABLE
321 , a9 JTF_VARCHAR2_TABLE_100
322 , a10 JTF_DATE_TABLE
323 , a11 JTF_VARCHAR2_TABLE_100
324 ) as
325 ddindx binary_integer; indx binary_integer;
326 begin
327 if a0 is not null and a0.count > 0 then
328 if a0.count > 0 then
329 indx := a0.first;
330 ddindx := 1;
331 while true loop
332 t(ddindx).operation_seq_num := a0(indx);
333 t(ddindx).inventory_item_id_old := a1(indx);
334 t(ddindx).inventory_item_id_new := a2(indx);
335 t(ddindx).organization_id := a3(indx);
336 t(ddindx).mrp_net := a4(indx);
337 t(ddindx).quantity_per_assembly := a5(indx);
338 t(ddindx).required_quantity := a6(indx);
339 t(ddindx).supply_type := a7(indx);
340 t(ddindx).supply_locator_id := a8(indx);
341 t(ddindx).supply_subinventory := a9(indx);
342 t(ddindx).date_required := rosetta_g_miss_date_in_map(a10(indx));
343 t(ddindx).dml_type := a11(indx);
344 ddindx := ddindx+1;
345 if a0.last =indx
346 then exit;
347 end if;
348 indx := a0.next(indx);
349 end loop;
350 end if;
351 end if;
352 end rosetta_table_copy_in_p6;
353 procedure rosetta_table_copy_out_p6(t ahl_wip_job_pvt.ahl_wo_mtl_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
357 , a4 out nocopy JTF_NUMBER_TABLE
354 , a1 out nocopy JTF_NUMBER_TABLE
355 , a2 out nocopy JTF_NUMBER_TABLE
356 , a3 out nocopy JTF_NUMBER_TABLE
358 , a5 out nocopy JTF_NUMBER_TABLE
359 , a6 out nocopy JTF_NUMBER_TABLE
360 , a7 out nocopy JTF_NUMBER_TABLE
361 , a8 out nocopy JTF_NUMBER_TABLE
362 , a9 out nocopy JTF_VARCHAR2_TABLE_100
363 , a10 out nocopy JTF_DATE_TABLE
364 , a11 out nocopy JTF_VARCHAR2_TABLE_100
365 ) as
366 ddindx binary_integer; indx binary_integer;
367 begin
368 if t is null or t.count = 0 then
369 a0 := JTF_NUMBER_TABLE();
370 a1 := JTF_NUMBER_TABLE();
371 a2 := JTF_NUMBER_TABLE();
372 a3 := JTF_NUMBER_TABLE();
373 a4 := JTF_NUMBER_TABLE();
374 a5 := JTF_NUMBER_TABLE();
375 a6 := JTF_NUMBER_TABLE();
376 a7 := JTF_NUMBER_TABLE();
377 a8 := JTF_NUMBER_TABLE();
378 a9 := JTF_VARCHAR2_TABLE_100();
379 a10 := JTF_DATE_TABLE();
380 a11 := JTF_VARCHAR2_TABLE_100();
381 else
382 a0 := JTF_NUMBER_TABLE();
383 a1 := JTF_NUMBER_TABLE();
384 a2 := JTF_NUMBER_TABLE();
385 a3 := JTF_NUMBER_TABLE();
386 a4 := JTF_NUMBER_TABLE();
387 a5 := JTF_NUMBER_TABLE();
388 a6 := JTF_NUMBER_TABLE();
389 a7 := JTF_NUMBER_TABLE();
390 a8 := JTF_NUMBER_TABLE();
391 a9 := JTF_VARCHAR2_TABLE_100();
392 a10 := JTF_DATE_TABLE();
393 a11 := JTF_VARCHAR2_TABLE_100();
394 if t.count > 0 then
395 a0.extend(t.count);
396 a1.extend(t.count);
397 a2.extend(t.count);
398 a3.extend(t.count);
399 a4.extend(t.count);
400 a5.extend(t.count);
401 a6.extend(t.count);
402 a7.extend(t.count);
403 a8.extend(t.count);
404 a9.extend(t.count);
405 a10.extend(t.count);
406 a11.extend(t.count);
407 ddindx := t.first;
408 indx := 1;
409 while true loop
410 a0(indx) := t(ddindx).operation_seq_num;
411 a1(indx) := t(ddindx).inventory_item_id_old;
412 a2(indx) := t(ddindx).inventory_item_id_new;
413 a3(indx) := t(ddindx).organization_id;
414 a4(indx) := t(ddindx).mrp_net;
415 a5(indx) := t(ddindx).quantity_per_assembly;
416 a6(indx) := t(ddindx).required_quantity;
417 a7(indx) := t(ddindx).supply_type;
418 a8(indx) := t(ddindx).supply_locator_id;
419 a9(indx) := t(ddindx).supply_subinventory;
420 a10(indx) := t(ddindx).date_required;
421 a11(indx) := t(ddindx).dml_type;
422 indx := indx+1;
423 if t.last =ddindx
424 then exit;
425 end if;
426 ddindx := t.next(ddindx);
427 end loop;
428 end if;
429 end if;
430 end rosetta_table_copy_out_p6;
431
432 procedure rosetta_table_copy_in_p8(t out nocopy ahl_wip_job_pvt.ahl_res_txn_tbl_type, a0 JTF_NUMBER_TABLE
433 , a1 JTF_NUMBER_TABLE
434 , a2 JTF_NUMBER_TABLE
435 , a3 JTF_NUMBER_TABLE
436 , a4 JTF_NUMBER_TABLE
437 , a5 JTF_DATE_TABLE
438 , a6 JTF_NUMBER_TABLE
439 , a7 JTF_VARCHAR2_TABLE_100
440 , a8 JTF_NUMBER_TABLE
441 , a9 JTF_NUMBER_TABLE
442 , a10 JTF_NUMBER_TABLE
443 , a11 JTF_VARCHAR2_TABLE_100
444 , a12 JTF_NUMBER_TABLE
445 , a13 JTF_VARCHAR2_TABLE_100
446 , a14 JTF_VARCHAR2_TABLE_100
447 , a15 JTF_VARCHAR2_TABLE_300
448 ) as
449 ddindx binary_integer; indx binary_integer;
450 begin
451 if a0 is not null and a0.count > 0 then
452 if a0.count > 0 then
453 indx := a0.first;
454 ddindx := 1;
455 while true loop
456 t(ddindx).wip_entity_id := a0(indx);
457 t(ddindx).operation_seq_num := a1(indx);
458 t(ddindx).resource_seq_num := a2(indx);
459 t(ddindx).resource_id := a3(indx);
460 t(ddindx).transaction_type := a4(indx);
461 t(ddindx).transaction_date := rosetta_g_miss_date_in_map(a5(indx));
462 t(ddindx).transaction_quantity := a6(indx);
463 t(ddindx).transaction_uom := a7(indx);
464 t(ddindx).department_id := a8(indx);
465 t(ddindx).employee_id := a9(indx);
466 t(ddindx).activity_id := a10(indx);
467 t(ddindx).activity_meaning := a11(indx);
468 t(ddindx).reason_id := a12(indx);
469 t(ddindx).reason := a13(indx);
470 t(ddindx).serial_number := a14(indx);
471 t(ddindx).reference := a15(indx);
472 ddindx := ddindx+1;
473 if a0.last =indx
474 then exit;
475 end if;
476 indx := a0.next(indx);
477 end loop;
478 end if;
479 end if;
480 end rosetta_table_copy_in_p8;
481 procedure rosetta_table_copy_out_p8(t ahl_wip_job_pvt.ahl_res_txn_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
482 , a1 out nocopy JTF_NUMBER_TABLE
483 , a2 out nocopy JTF_NUMBER_TABLE
484 , a3 out nocopy JTF_NUMBER_TABLE
485 , a4 out nocopy JTF_NUMBER_TABLE
486 , a5 out nocopy JTF_DATE_TABLE
487 , a6 out nocopy JTF_NUMBER_TABLE
488 , a7 out nocopy JTF_VARCHAR2_TABLE_100
492 , a11 out nocopy JTF_VARCHAR2_TABLE_100
489 , a8 out nocopy JTF_NUMBER_TABLE
490 , a9 out nocopy JTF_NUMBER_TABLE
491 , a10 out nocopy JTF_NUMBER_TABLE
493 , a12 out nocopy JTF_NUMBER_TABLE
494 , a13 out nocopy JTF_VARCHAR2_TABLE_100
495 , a14 out nocopy JTF_VARCHAR2_TABLE_100
496 , a15 out nocopy JTF_VARCHAR2_TABLE_300
497 ) as
498 ddindx binary_integer; indx binary_integer;
499 begin
500 if t is null or t.count = 0 then
501 a0 := JTF_NUMBER_TABLE();
502 a1 := JTF_NUMBER_TABLE();
503 a2 := JTF_NUMBER_TABLE();
504 a3 := JTF_NUMBER_TABLE();
505 a4 := JTF_NUMBER_TABLE();
506 a5 := JTF_DATE_TABLE();
507 a6 := JTF_NUMBER_TABLE();
508 a7 := JTF_VARCHAR2_TABLE_100();
509 a8 := JTF_NUMBER_TABLE();
510 a9 := JTF_NUMBER_TABLE();
511 a10 := JTF_NUMBER_TABLE();
512 a11 := JTF_VARCHAR2_TABLE_100();
513 a12 := JTF_NUMBER_TABLE();
514 a13 := JTF_VARCHAR2_TABLE_100();
515 a14 := JTF_VARCHAR2_TABLE_100();
516 a15 := JTF_VARCHAR2_TABLE_300();
517 else
518 a0 := JTF_NUMBER_TABLE();
519 a1 := JTF_NUMBER_TABLE();
520 a2 := JTF_NUMBER_TABLE();
521 a3 := JTF_NUMBER_TABLE();
522 a4 := JTF_NUMBER_TABLE();
523 a5 := JTF_DATE_TABLE();
524 a6 := JTF_NUMBER_TABLE();
525 a7 := JTF_VARCHAR2_TABLE_100();
526 a8 := JTF_NUMBER_TABLE();
527 a9 := JTF_NUMBER_TABLE();
528 a10 := JTF_NUMBER_TABLE();
529 a11 := JTF_VARCHAR2_TABLE_100();
530 a12 := JTF_NUMBER_TABLE();
531 a13 := JTF_VARCHAR2_TABLE_100();
532 a14 := JTF_VARCHAR2_TABLE_100();
533 a15 := JTF_VARCHAR2_TABLE_300();
534 if t.count > 0 then
535 a0.extend(t.count);
536 a1.extend(t.count);
537 a2.extend(t.count);
538 a3.extend(t.count);
539 a4.extend(t.count);
540 a5.extend(t.count);
541 a6.extend(t.count);
542 a7.extend(t.count);
543 a8.extend(t.count);
544 a9.extend(t.count);
545 a10.extend(t.count);
546 a11.extend(t.count);
547 a12.extend(t.count);
548 a13.extend(t.count);
549 a14.extend(t.count);
550 a15.extend(t.count);
551 ddindx := t.first;
552 indx := 1;
553 while true loop
554 a0(indx) := t(ddindx).wip_entity_id;
555 a1(indx) := t(ddindx).operation_seq_num;
556 a2(indx) := t(ddindx).resource_seq_num;
557 a3(indx) := t(ddindx).resource_id;
558 a4(indx) := t(ddindx).transaction_type;
559 a5(indx) := t(ddindx).transaction_date;
560 a6(indx) := t(ddindx).transaction_quantity;
561 a7(indx) := t(ddindx).transaction_uom;
562 a8(indx) := t(ddindx).department_id;
563 a9(indx) := t(ddindx).employee_id;
564 a10(indx) := t(ddindx).activity_id;
565 a11(indx) := t(ddindx).activity_meaning;
566 a12(indx) := t(ddindx).reason_id;
567 a13(indx) := t(ddindx).reason;
568 a14(indx) := t(ddindx).serial_number;
569 a15(indx) := t(ddindx).reference;
570 indx := indx+1;
571 if t.last =ddindx
572 then exit;
573 end if;
574 ddindx := t.next(ddindx);
575 end loop;
576 end if;
577 end if;
578 end rosetta_table_copy_out_p8;
579
580 procedure rosetta_table_copy_in_p10(t out nocopy ahl_wip_job_pvt.ahl_wip_job_tbl_type, a0 JTF_NUMBER_TABLE
581 , a1 JTF_VARCHAR2_TABLE_300
582 , a2 JTF_NUMBER_TABLE
583 , a3 JTF_VARCHAR2_TABLE_32767
584 ) as
585 ddindx binary_integer; indx binary_integer;
586 begin
587 if a0 is not null and a0.count > 0 then
588 if a0.count > 0 then
589 indx := a0.first;
590 ddindx := 1;
591 while true loop
592 t(ddindx).wip_entity_id := a0(indx);
593 t(ddindx).wip_entity_name := a1(indx);
594 t(ddindx).organization_id := a2(indx);
595 t(ddindx).error := a3(indx);
596 ddindx := ddindx+1;
597 if a0.last =indx
598 then exit;
599 end if;
600 indx := a0.next(indx);
601 end loop;
602 end if;
603 end if;
604 end rosetta_table_copy_in_p10;
605 procedure rosetta_table_copy_out_p10(t ahl_wip_job_pvt.ahl_wip_job_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
606 , a1 out nocopy JTF_VARCHAR2_TABLE_300
607 , a2 out nocopy JTF_NUMBER_TABLE
608 , a3 out nocopy JTF_VARCHAR2_TABLE_32767
609 ) as
610 ddindx binary_integer; indx binary_integer;
611 begin
612 if t is null or t.count = 0 then
613 a0 := JTF_NUMBER_TABLE();
614 a1 := JTF_VARCHAR2_TABLE_300();
615 a2 := JTF_NUMBER_TABLE();
616 a3 := JTF_VARCHAR2_TABLE_32767();
617 else
618 a0 := JTF_NUMBER_TABLE();
619 a1 := JTF_VARCHAR2_TABLE_300();
620 a2 := JTF_NUMBER_TABLE();
621 a3 := JTF_VARCHAR2_TABLE_32767();
622 if t.count > 0 then
623 a0.extend(t.count);
624 a1.extend(t.count);
625 a2.extend(t.count);
626 a3.extend(t.count);
627 ddindx := t.first;
628 indx := 1;
632 a2(indx) := t(ddindx).organization_id;
629 while true loop
630 a0(indx) := t(ddindx).wip_entity_id;
631 a1(indx) := t(ddindx).wip_entity_name;
633 a3(indx) := t(ddindx).error;
634 indx := indx+1;
635 if t.last =ddindx
636 then exit;
637 end if;
638 ddindx := t.next(ddindx);
639 end loop;
640 end if;
641 end if;
642 end rosetta_table_copy_out_p10;
643
644 procedure load_wip_job(p_api_version NUMBER
645 , p_init_msg_list VARCHAR2
646 , p_validation_level NUMBER
647 , x_return_status out nocopy VARCHAR2
648 , x_msg_count out nocopy NUMBER
649 , x_msg_data out nocopy VARCHAR2
650 , p6_a0 VARCHAR2
651 , p6_a1 NUMBER
652 , p6_a2 NUMBER
653 , p6_a3 DATE
654 , p6_a4 DATE
655 , p6_a5 NUMBER
656 , p6_a6 NUMBER
657 , p6_a7 VARCHAR2
658 , p6_a8 NUMBER
659 , p6_a9 NUMBER
660 , p6_a10 NUMBER
661 , p6_a11 NUMBER
662 , p6_a12 NUMBER
663 , p6_a13 NUMBER
664 , p6_a14 NUMBER
665 , p6_a15 VARCHAR2
666 , p6_a16 NUMBER
667 , p6_a17 NUMBER
668 , p6_a18 VARCHAR2
669 , p6_a19 VARCHAR2
670 , p6_a20 VARCHAR2
671 , p6_a21 NUMBER
672 , p6_a22 VARCHAR2
673 , p6_a23 VARCHAR2
674 , p7_a0 JTF_NUMBER_TABLE
675 , p7_a1 JTF_NUMBER_TABLE
676 , p7_a2 JTF_NUMBER_TABLE
677 , p7_a3 JTF_VARCHAR2_TABLE_300
678 , p7_a4 JTF_NUMBER_TABLE
679 , p7_a5 JTF_NUMBER_TABLE
680 , p7_a6 JTF_NUMBER_TABLE
681 , p7_a7 JTF_DATE_TABLE
682 , p7_a8 JTF_DATE_TABLE
683 , p7_a9 JTF_VARCHAR2_TABLE_100
684 , p8_a0 JTF_NUMBER_TABLE
685 , p8_a1 JTF_NUMBER_TABLE
686 , p8_a2 JTF_NUMBER_TABLE
687 , p8_a3 JTF_NUMBER_TABLE
688 , p8_a4 JTF_NUMBER_TABLE
689 , p8_a5 JTF_NUMBER_TABLE
690 , p8_a6 JTF_NUMBER_TABLE
691 , p8_a7 JTF_VARCHAR2_TABLE_100
692 , p8_a8 JTF_NUMBER_TABLE
693 , p8_a9 JTF_NUMBER_TABLE
694 , p8_a10 JTF_NUMBER_TABLE
695 , p8_a11 JTF_NUMBER_TABLE
696 , p8_a12 JTF_NUMBER_TABLE
697 , p8_a13 JTF_NUMBER_TABLE
698 , p8_a14 JTF_NUMBER_TABLE
699 , p8_a15 JTF_NUMBER_TABLE
700 , p8_a16 JTF_NUMBER_TABLE
701 , p8_a17 JTF_VARCHAR2_TABLE_300
702 , p8_a18 JTF_DATE_TABLE
703 , p8_a19 JTF_DATE_TABLE
704 , p8_a20 JTF_NUMBER_TABLE
705 , p8_a21 JTF_VARCHAR2_TABLE_100
706 , p9_a0 JTF_NUMBER_TABLE
707 , p9_a1 JTF_NUMBER_TABLE
708 , p9_a2 JTF_NUMBER_TABLE
709 , p9_a3 JTF_NUMBER_TABLE
710 , p9_a4 JTF_NUMBER_TABLE
711 , p9_a5 JTF_NUMBER_TABLE
712 , p9_a6 JTF_NUMBER_TABLE
713 , p9_a7 JTF_NUMBER_TABLE
714 , p9_a8 JTF_NUMBER_TABLE
715 , p9_a9 JTF_VARCHAR2_TABLE_100
716 , p9_a10 JTF_DATE_TABLE
717 , p9_a11 JTF_VARCHAR2_TABLE_100
718 , x_wip_entity_id out nocopy NUMBER
719 )
720
721 as
722 ddp_ahl_wo_rec ahl_wip_job_pvt.ahl_wo_rec_type;
723 ddp_ahl_wo_op_tbl ahl_wip_job_pvt.ahl_wo_op_tbl_type;
724 ddp_ahl_wo_res_tbl ahl_wip_job_pvt.ahl_wo_res_tbl_type;
725 ddp_ahl_wo_mtl_tbl ahl_wip_job_pvt.ahl_wo_mtl_tbl_type;
726 ddindx binary_integer; indx binary_integer;
727 begin
728
729 -- copy data to the local IN or IN-OUT args, if any
730
731
732
733
734
735
736 ddp_ahl_wo_rec.wo_name := p6_a0;
737 ddp_ahl_wo_rec.organization_id := p6_a1;
738 ddp_ahl_wo_rec.status := p6_a2;
739 ddp_ahl_wo_rec.scheduled_start := rosetta_g_miss_date_in_map(p6_a3);
740 ddp_ahl_wo_rec.scheduled_end := rosetta_g_miss_date_in_map(p6_a4);
741 ddp_ahl_wo_rec.inventory_item_id := p6_a5;
742 ddp_ahl_wo_rec.item_instance_id := p6_a6;
743 ddp_ahl_wo_rec.completion_subinventory := p6_a7;
744 ddp_ahl_wo_rec.completion_locator_id := p6_a8;
745 ddp_ahl_wo_rec.wip_supply_type := p6_a9;
746 ddp_ahl_wo_rec.firm_planned_flag := p6_a10;
747 ddp_ahl_wo_rec.project_id := p6_a11;
748 ddp_ahl_wo_rec.prj_task_id := p6_a12;
749 ddp_ahl_wo_rec.quantity := p6_a13;
750 ddp_ahl_wo_rec.mrp_quantity := p6_a14;
751 ddp_ahl_wo_rec.class_code := p6_a15;
752 ddp_ahl_wo_rec.priority := p6_a16;
753 ddp_ahl_wo_rec.department_id := p6_a17;
754 ddp_ahl_wo_rec.allow_explosion := p6_a18;
755 ddp_ahl_wo_rec.manual_rebuild_flag := p6_a19;
756 ddp_ahl_wo_rec.rebuild_serial_number := p6_a20;
757 ddp_ahl_wo_rec.scheduling_method := p6_a21;
758 ddp_ahl_wo_rec.description := p6_a22;
759 ddp_ahl_wo_rec.dml_type := p6_a23;
760
761 ahl_wip_job_pvt_w.rosetta_table_copy_in_p2(ddp_ahl_wo_op_tbl, p7_a0
762 , p7_a1
763 , p7_a2
764 , p7_a3
765 , p7_a4
766 , p7_a5
767 , p7_a6
768 , p7_a7
769 , p7_a8
770 , p7_a9
771 );
772
773 ahl_wip_job_pvt_w.rosetta_table_copy_in_p4(ddp_ahl_wo_res_tbl, p8_a0
774 , p8_a1
775 , p8_a2
776 , p8_a3
777 , p8_a4
778 , p8_a5
779 , p8_a6
780 , p8_a7
781 , p8_a8
782 , p8_a9
786 , p8_a13
783 , p8_a10
784 , p8_a11
785 , p8_a12
787 , p8_a14
788 , p8_a15
789 , p8_a16
790 , p8_a17
791 , p8_a18
792 , p8_a19
793 , p8_a20
794 , p8_a21
795 );
796
797 ahl_wip_job_pvt_w.rosetta_table_copy_in_p6(ddp_ahl_wo_mtl_tbl, p9_a0
798 , p9_a1
799 , p9_a2
800 , p9_a3
801 , p9_a4
802 , p9_a5
803 , p9_a6
804 , p9_a7
805 , p9_a8
806 , p9_a9
807 , p9_a10
808 , p9_a11
809 );
810
811
812 -- here's the delegated call to the old PL/SQL routine
813 ahl_wip_job_pvt.load_wip_job(p_api_version,
814 p_init_msg_list,
815 p_validation_level,
816 x_return_status,
817 x_msg_count,
818 x_msg_data,
819 ddp_ahl_wo_rec,
820 ddp_ahl_wo_op_tbl,
821 ddp_ahl_wo_res_tbl,
822 ddp_ahl_wo_mtl_tbl,
823 x_wip_entity_id);
824
825 -- copy data back from the local variables to OUT or IN-OUT args, if any
826
827
828
829
830
831
832
833
834
835
836 end;
837
838 procedure insert_resource_txn(p_api_version NUMBER
839 , p_init_msg_list VARCHAR2
840 , p_commit VARCHAR2
841 , p_validation_level NUMBER
842 , x_return_status out nocopy VARCHAR2
843 , x_msg_count out nocopy NUMBER
844 , x_msg_data out nocopy VARCHAR2
845 , p7_a0 JTF_NUMBER_TABLE
846 , p7_a1 JTF_NUMBER_TABLE
847 , p7_a2 JTF_NUMBER_TABLE
848 , p7_a3 JTF_NUMBER_TABLE
849 , p7_a4 JTF_NUMBER_TABLE
850 , p7_a5 JTF_DATE_TABLE
851 , p7_a6 JTF_NUMBER_TABLE
852 , p7_a7 JTF_VARCHAR2_TABLE_100
853 , p7_a8 JTF_NUMBER_TABLE
854 , p7_a9 JTF_NUMBER_TABLE
855 , p7_a10 JTF_NUMBER_TABLE
856 , p7_a11 JTF_VARCHAR2_TABLE_100
857 , p7_a12 JTF_NUMBER_TABLE
858 , p7_a13 JTF_VARCHAR2_TABLE_100
859 , p7_a14 JTF_VARCHAR2_TABLE_100
860 , p7_a15 JTF_VARCHAR2_TABLE_300
861 )
862
863 as
864 ddp_ahl_res_txn_tbl ahl_wip_job_pvt.ahl_res_txn_tbl_type;
865 ddindx binary_integer; indx binary_integer;
866 begin
867
868 -- copy data to the local IN or IN-OUT args, if any
869
870
871
872
873
874
875
876 ahl_wip_job_pvt_w.rosetta_table_copy_in_p8(ddp_ahl_res_txn_tbl, p7_a0
877 , p7_a1
878 , p7_a2
879 , p7_a3
880 , p7_a4
881 , p7_a5
882 , p7_a6
883 , p7_a7
884 , p7_a8
885 , p7_a9
886 , p7_a10
887 , p7_a11
888 , p7_a12
889 , p7_a13
890 , p7_a14
891 , p7_a15
892 );
893
894 -- here's the delegated call to the old PL/SQL routine
895 ahl_wip_job_pvt.insert_resource_txn(p_api_version,
896 p_init_msg_list,
897 p_commit,
898 p_validation_level,
899 x_return_status,
900 x_msg_count,
901 x_msg_data,
902 ddp_ahl_res_txn_tbl);
903
904 -- copy data back from the local variables to OUT or IN-OUT args, if any
905
906
907
908
909
910
911
912 end;
913
914 procedure wip_massload_pending(p_wip_entity_id NUMBER
915 , ddrosetta_retval_bool OUT NOCOPY NUMBER
916 )
917
918 as
919 ddindx binary_integer; indx binary_integer;
920 ddrosetta_retval boolean;
921 begin
922
923 -- copy data to the local IN or IN-OUT args, if any
924
925 -- here's the delegated call to the old PL/SQL routine
926 ddrosetta_retval := ahl_wip_job_pvt.wip_massload_pending(p_wip_entity_id);
927
928 -- copy data back from the local variables to OUT or IN-OUT args, if any
929 if ddrosetta_retval is null
930 then ddrosetta_retval_bool := null;
931 elsif ddrosetta_retval
932 then ddrosetta_retval_bool := 1;
933 else ddrosetta_retval_bool := 0;
934 end if;
935 end;
936
937 procedure load_wip_batch_jobs(p_api_version NUMBER
938 , p_init_msg_list VARCHAR2
939 , p_validation_level NUMBER
940 , x_return_status out nocopy VARCHAR2
941 , x_msg_count out nocopy NUMBER
942 , x_msg_data out nocopy VARCHAR2
943 , p_group_id NUMBER
944 , p_header_id NUMBER
945 , p_submit_flag VARCHAR2
946 , p9_a0 VARCHAR2
947 , p9_a1 NUMBER
948 , p9_a2 NUMBER
949 , p9_a3 DATE
950 , p9_a4 DATE
951 , p9_a5 NUMBER
952 , p9_a6 NUMBER
953 , p9_a7 VARCHAR2
954 , p9_a8 NUMBER
955 , p9_a9 NUMBER
956 , p9_a10 NUMBER
957 , p9_a11 NUMBER
958 , p9_a12 NUMBER
959 , p9_a13 NUMBER
960 , p9_a14 NUMBER
961 , p9_a15 VARCHAR2
962 , p9_a16 NUMBER
963 , p9_a17 NUMBER
964 , p9_a18 VARCHAR2
965 , p9_a19 VARCHAR2
966 , p9_a20 VARCHAR2
967 , p9_a21 NUMBER
968 , p9_a22 VARCHAR2
972 , p10_a2 JTF_NUMBER_TABLE
969 , p9_a23 VARCHAR2
970 , p10_a0 JTF_NUMBER_TABLE
971 , p10_a1 JTF_NUMBER_TABLE
973 , p10_a3 JTF_VARCHAR2_TABLE_300
974 , p10_a4 JTF_NUMBER_TABLE
975 , p10_a5 JTF_NUMBER_TABLE
976 , p10_a6 JTF_NUMBER_TABLE
977 , p10_a7 JTF_DATE_TABLE
978 , p10_a8 JTF_DATE_TABLE
979 , p10_a9 JTF_VARCHAR2_TABLE_100
980 , p11_a0 JTF_NUMBER_TABLE
981 , p11_a1 JTF_NUMBER_TABLE
982 , p11_a2 JTF_NUMBER_TABLE
983 , p11_a3 JTF_NUMBER_TABLE
984 , p11_a4 JTF_NUMBER_TABLE
985 , p11_a5 JTF_NUMBER_TABLE
986 , p11_a6 JTF_NUMBER_TABLE
987 , p11_a7 JTF_VARCHAR2_TABLE_100
988 , p11_a8 JTF_NUMBER_TABLE
989 , p11_a9 JTF_NUMBER_TABLE
990 , p11_a10 JTF_NUMBER_TABLE
991 , p11_a11 JTF_NUMBER_TABLE
992 , p11_a12 JTF_NUMBER_TABLE
993 , p11_a13 JTF_NUMBER_TABLE
994 , p11_a14 JTF_NUMBER_TABLE
995 , p11_a15 JTF_NUMBER_TABLE
996 , p11_a16 JTF_NUMBER_TABLE
997 , p11_a17 JTF_VARCHAR2_TABLE_300
998 , p11_a18 JTF_DATE_TABLE
999 , p11_a19 JTF_DATE_TABLE
1000 , p11_a20 JTF_NUMBER_TABLE
1001 , p11_a21 JTF_VARCHAR2_TABLE_100
1002 , p12_a0 JTF_NUMBER_TABLE
1003 , p12_a1 JTF_NUMBER_TABLE
1004 , p12_a2 JTF_NUMBER_TABLE
1005 , p12_a3 JTF_NUMBER_TABLE
1006 , p12_a4 JTF_NUMBER_TABLE
1007 , p12_a5 JTF_NUMBER_TABLE
1008 , p12_a6 JTF_NUMBER_TABLE
1009 , p12_a7 JTF_NUMBER_TABLE
1010 , p12_a8 JTF_NUMBER_TABLE
1011 , p12_a9 JTF_VARCHAR2_TABLE_100
1012 , p12_a10 JTF_DATE_TABLE
1013 , p12_a11 JTF_VARCHAR2_TABLE_100
1014 , x_group_id out nocopy NUMBER
1015 , x_header_id out nocopy NUMBER
1016 , p15_a0 out nocopy JTF_NUMBER_TABLE
1017 , p15_a1 out nocopy JTF_VARCHAR2_TABLE_300
1018 , p15_a2 out nocopy JTF_NUMBER_TABLE
1019 , p15_a3 out nocopy JTF_VARCHAR2_TABLE_32767
1020 )
1021
1022 as
1023 ddp_ahl_wo_rec ahl_wip_job_pvt.ahl_wo_rec_type;
1024 ddp_ahl_wo_op_tbl ahl_wip_job_pvt.ahl_wo_op_tbl_type;
1025 ddp_ahl_wo_res_tbl ahl_wip_job_pvt.ahl_wo_res_tbl_type;
1026 ddp_ahl_wo_mtl_tbl ahl_wip_job_pvt.ahl_wo_mtl_tbl_type;
1027 ddx_ahl_wip_job_tbl ahl_wip_job_pvt.ahl_wip_job_tbl_type;
1028 ddindx binary_integer; indx binary_integer;
1029 begin
1030
1031 -- copy data to the local IN or IN-OUT args, if any
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041 ddp_ahl_wo_rec.wo_name := p9_a0;
1042 ddp_ahl_wo_rec.organization_id := p9_a1;
1043 ddp_ahl_wo_rec.status := p9_a2;
1044 ddp_ahl_wo_rec.scheduled_start := rosetta_g_miss_date_in_map(p9_a3);
1045 ddp_ahl_wo_rec.scheduled_end := rosetta_g_miss_date_in_map(p9_a4);
1046 ddp_ahl_wo_rec.inventory_item_id := p9_a5;
1047 ddp_ahl_wo_rec.item_instance_id := p9_a6;
1048 ddp_ahl_wo_rec.completion_subinventory := p9_a7;
1049 ddp_ahl_wo_rec.completion_locator_id := p9_a8;
1050 ddp_ahl_wo_rec.wip_supply_type := p9_a9;
1051 ddp_ahl_wo_rec.firm_planned_flag := p9_a10;
1052 ddp_ahl_wo_rec.project_id := p9_a11;
1053 ddp_ahl_wo_rec.prj_task_id := p9_a12;
1054 ddp_ahl_wo_rec.quantity := p9_a13;
1055 ddp_ahl_wo_rec.mrp_quantity := p9_a14;
1056 ddp_ahl_wo_rec.class_code := p9_a15;
1057 ddp_ahl_wo_rec.priority := p9_a16;
1058 ddp_ahl_wo_rec.department_id := p9_a17;
1059 ddp_ahl_wo_rec.allow_explosion := p9_a18;
1060 ddp_ahl_wo_rec.manual_rebuild_flag := p9_a19;
1061 ddp_ahl_wo_rec.rebuild_serial_number := p9_a20;
1062 ddp_ahl_wo_rec.scheduling_method := p9_a21;
1063 ddp_ahl_wo_rec.description := p9_a22;
1064 ddp_ahl_wo_rec.dml_type := p9_a23;
1065
1066 ahl_wip_job_pvt_w.rosetta_table_copy_in_p2(ddp_ahl_wo_op_tbl, p10_a0
1067 , p10_a1
1068 , p10_a2
1069 , p10_a3
1070 , p10_a4
1071 , p10_a5
1072 , p10_a6
1073 , p10_a7
1074 , p10_a8
1075 , p10_a9
1076 );
1077
1078 ahl_wip_job_pvt_w.rosetta_table_copy_in_p4(ddp_ahl_wo_res_tbl, p11_a0
1079 , p11_a1
1080 , p11_a2
1081 , p11_a3
1082 , p11_a4
1083 , p11_a5
1084 , p11_a6
1085 , p11_a7
1086 , p11_a8
1087 , p11_a9
1088 , p11_a10
1089 , p11_a11
1090 , p11_a12
1091 , p11_a13
1092 , p11_a14
1093 , p11_a15
1094 , p11_a16
1095 , p11_a17
1096 , p11_a18
1097 , p11_a19
1098 , p11_a20
1099 , p11_a21
1100 );
1101
1102 ahl_wip_job_pvt_w.rosetta_table_copy_in_p6(ddp_ahl_wo_mtl_tbl, p12_a0
1103 , p12_a1
1104 , p12_a2
1105 , p12_a3
1106 , p12_a4
1107 , p12_a5
1108 , p12_a6
1109 , p12_a7
1110 , p12_a8
1111 , p12_a9
1112 , p12_a10
1113 , p12_a11
1114 );
1115
1116
1117
1118
1119 -- here's the delegated call to the old PL/SQL routine
1120 ahl_wip_job_pvt.load_wip_batch_jobs(p_api_version,
1121 p_init_msg_list,
1122 p_validation_level,
1123 x_return_status,
1124 x_msg_count,
1125 x_msg_data,
1126 p_group_id,
1127 p_header_id,
1128 p_submit_flag,
1129 ddp_ahl_wo_rec,
1130 ddp_ahl_wo_op_tbl,
1134 x_header_id,
1131 ddp_ahl_wo_res_tbl,
1132 ddp_ahl_wo_mtl_tbl,
1133 x_group_id,
1135 ddx_ahl_wip_job_tbl);
1136
1137 -- copy data back from the local variables to OUT or IN-OUT args, if any
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153 ahl_wip_job_pvt_w.rosetta_table_copy_out_p10(ddx_ahl_wip_job_tbl, p15_a0
1154 , p15_a1
1155 , p15_a2
1156 , p15_a3
1157 );
1158 end;
1159
1160 end ahl_wip_job_pvt_w;