[Home] [Help]
PACKAGE BODY: APPS.AHL_PP_MATERIALS_PVT_W
Source
1 package body ahl_pp_materials_pvt_w as
2 /* $Header: AHLWPPMB.pls 120.2.12020000.2 2012/12/14 03:37:48 shnatu ship $ */
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_pp_materials_pvt.req_material_tbl_type, a0 JTF_NUMBER_TABLE
17 , a1 JTF_NUMBER_TABLE
18 , a2 JTF_NUMBER_TABLE
19 , a3 JTF_VARCHAR2_TABLE_100
20 , a4 JTF_NUMBER_TABLE
21 , a5 JTF_DATE_TABLE
22 , a6 JTF_NUMBER_TABLE
23 , a7 JTF_NUMBER_TABLE
24 , a8 JTF_DATE_TABLE
25 , a9 JTF_NUMBER_TABLE
26 , a10 JTF_NUMBER_TABLE
27 , a11 JTF_VARCHAR2_TABLE_200
28 , a12 JTF_NUMBER_TABLE
29 , a13 JTF_VARCHAR2_TABLE_100
30 , a14 JTF_VARCHAR2_TABLE_300
31 , a15 JTF_NUMBER_TABLE
32 , a16 JTF_NUMBER_TABLE
33 , a17 JTF_DATE_TABLE
34 , a18 JTF_VARCHAR2_TABLE_100
35 , a19 JTF_VARCHAR2_TABLE_100
36 , a20 JTF_NUMBER_TABLE
37 , a21 JTF_VARCHAR2_TABLE_100
38 , a22 JTF_NUMBER_TABLE
39 , a23 JTF_NUMBER_TABLE
40 , a24 JTF_NUMBER_TABLE
41 , a25 JTF_NUMBER_TABLE
42 , a26 JTF_NUMBER_TABLE
43 , a27 JTF_VARCHAR2_TABLE_100
44 , a28 JTF_NUMBER_TABLE
45 , a29 JTF_NUMBER_TABLE
46 , a30 JTF_NUMBER_TABLE
47 , a31 JTF_NUMBER_TABLE
48 , a32 JTF_VARCHAR2_TABLE_100
49 , a33 JTF_NUMBER_TABLE
50 , a34 JTF_NUMBER_TABLE
51 , a35 JTF_DATE_TABLE
52 , a36 JTF_DATE_TABLE
53 , a37 JTF_VARCHAR2_TABLE_100
54 , a38 JTF_NUMBER_TABLE
55 , a39 JTF_NUMBER_TABLE
56 , a40 JTF_NUMBER_TABLE
57 , a41 JTF_NUMBER_TABLE
58 , a42 JTF_VARCHAR2_TABLE_100
59 , a43 JTF_VARCHAR2_TABLE_100
60 , a44 JTF_VARCHAR2_TABLE_200
61 , a45 JTF_VARCHAR2_TABLE_200
62 , a46 JTF_VARCHAR2_TABLE_200
63 , a47 JTF_VARCHAR2_TABLE_200
64 , a48 JTF_VARCHAR2_TABLE_200
65 , a49 JTF_VARCHAR2_TABLE_200
66 , a50 JTF_VARCHAR2_TABLE_200
67 , a51 JTF_VARCHAR2_TABLE_200
68 , a52 JTF_VARCHAR2_TABLE_200
69 , a53 JTF_VARCHAR2_TABLE_200
70 , a54 JTF_VARCHAR2_TABLE_200
71 , a55 JTF_VARCHAR2_TABLE_200
72 , a56 JTF_VARCHAR2_TABLE_200
73 , a57 JTF_VARCHAR2_TABLE_200
74 , a58 JTF_VARCHAR2_TABLE_200
75 , a59 JTF_NUMBER_TABLE
76 , a60 JTF_VARCHAR2_TABLE_3000
77 , a61 JTF_VARCHAR2_TABLE_100
78 , a62 JTF_VARCHAR2_TABLE_100
79 , a63 JTF_NUMBER_TABLE
80 , a64 JTF_VARCHAR2_TABLE_100
81 , a65 JTF_NUMBER_TABLE
82 , a66 JTF_VARCHAR2_TABLE_100
83 , a67 JTF_VARCHAR2_TABLE_100
84 , a68 JTF_VARCHAR2_TABLE_100
85 ) as
86 ddindx binary_integer; indx binary_integer;
87 begin
88 if a0 is not null and a0.count > 0 then
89 if a0.count > 0 then
90 indx := a0.first;
91 ddindx := 1;
92 while true loop
93 t(ddindx).schedule_material_id := a0(indx);
94 t(ddindx).object_version_number := a1(indx);
95 t(ddindx).inventory_item_id := a2(indx);
96 t(ddindx).schedule_designator := a3(indx);
97 t(ddindx).visit_id := a4(indx);
98 t(ddindx).visit_start_date := rosetta_g_miss_date_in_map(a5(indx));
99 t(ddindx).visit_task_id := a6(indx);
100 t(ddindx).organization_id := a7(indx);
101 t(ddindx).scheduled_date := rosetta_g_miss_date_in_map(a8(indx));
102 t(ddindx).request_id := a9(indx);
103 t(ddindx).process_status := a10(indx);
104 t(ddindx).error_message := a11(indx);
105 t(ddindx).transaction_id := a12(indx);
106 t(ddindx).concatenated_segments := a13(indx);
107 t(ddindx).item_description := a14(indx);
108 t(ddindx).rt_oper_material_id := a15(indx);
109 t(ddindx).requested_quantity := a16(indx);
110 t(ddindx).requested_date := rosetta_g_miss_date_in_map(a17(indx));
111 t(ddindx).uom_code := a18(indx);
112 t(ddindx).uom_meaning := a19(indx);
113 t(ddindx).scheduled_quantity := a20(indx);
114 t(ddindx).job_number := a21(indx);
115 t(ddindx).required_quantity := a22(indx);
116 t(ddindx).quantity_per_assembly := a23(indx);
117 t(ddindx).workorder_id := a24(indx);
118 t(ddindx).wip_entity_id := a25(indx);
119 t(ddindx).operation_sequence := a26(indx);
120 t(ddindx).operation_code := a27(indx);
121 t(ddindx).item_group_id := a28(indx);
122 t(ddindx).serial_number := a29(indx);
123 t(ddindx).instance_id := a30(indx);
124 t(ddindx).supply_type := a31(indx);
125 t(ddindx).sub_inventory := a32(indx);
126 t(ddindx).location := a33(indx);
127 t(ddindx).program_id := a34(indx);
128 t(ddindx).program_update_date := rosetta_g_miss_date_in_map(a35(indx));
129 t(ddindx).last_updated_date := rosetta_g_miss_date_in_map(a36(indx));
130 t(ddindx).description := a37(indx);
131 t(ddindx).department_id := a38(indx);
132 t(ddindx).project_task_id := a39(indx);
133 t(ddindx).project_id := a40(indx);
134 t(ddindx).workorder_operation_id := a41(indx);
135 t(ddindx).status := a42(indx);
136 t(ddindx).attribute_category := a43(indx);
137 t(ddindx).attribute1 := a44(indx);
138 t(ddindx).attribute2 := a45(indx);
139 t(ddindx).attribute3 := a46(indx);
140 t(ddindx).attribute4 := a47(indx);
141 t(ddindx).attribute5 := a48(indx);
142 t(ddindx).attribute6 := a49(indx);
143 t(ddindx).attribute7 := a50(indx);
144 t(ddindx).attribute8 := a51(indx);
145 t(ddindx).attribute9 := a52(indx);
146 t(ddindx).attribute10 := a53(indx);
147 t(ddindx).attribute11 := a54(indx);
148 t(ddindx).attribute12 := a55(indx);
149 t(ddindx).attribute13 := a56(indx);
150 t(ddindx).attribute14 := a57(indx);
151 t(ddindx).attribute15 := a58(indx);
152 t(ddindx).mrp_net_flag := a59(indx);
153 t(ddindx).notify_text := a60(indx);
154 t(ddindx).operation_flag := a61(indx);
155 t(ddindx).repair_item := a62(indx);
156 t(ddindx).mc_header_id := a63(indx);
157 t(ddindx).mc_name := a64(indx);
158 t(ddindx).mc_position_key := a65(indx);
159 t(ddindx).mc_position := a66(indx);
160 t(ddindx).item_group_name := a67(indx);
161 t(ddindx).aog_flag := a68(indx);
162 ddindx := ddindx+1;
163 if a0.last =indx
164 then exit;
165 end if;
166 indx := a0.next(indx);
167 end loop;
168 end if;
169 end if;
170 end rosetta_table_copy_in_p2;
171 procedure rosetta_table_copy_out_p2(t ahl_pp_materials_pvt.req_material_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
172 , a1 out nocopy JTF_NUMBER_TABLE
173 , a2 out nocopy JTF_NUMBER_TABLE
174 , a3 out nocopy JTF_VARCHAR2_TABLE_100
175 , a4 out nocopy JTF_NUMBER_TABLE
176 , a5 out nocopy JTF_DATE_TABLE
177 , a6 out nocopy JTF_NUMBER_TABLE
178 , a7 out nocopy JTF_NUMBER_TABLE
179 , a8 out nocopy JTF_DATE_TABLE
180 , a9 out nocopy JTF_NUMBER_TABLE
181 , a10 out nocopy JTF_NUMBER_TABLE
182 , a11 out nocopy JTF_VARCHAR2_TABLE_200
183 , a12 out nocopy JTF_NUMBER_TABLE
184 , a13 out nocopy JTF_VARCHAR2_TABLE_100
185 , a14 out nocopy JTF_VARCHAR2_TABLE_300
186 , a15 out nocopy JTF_NUMBER_TABLE
187 , a16 out nocopy JTF_NUMBER_TABLE
188 , a17 out nocopy JTF_DATE_TABLE
189 , a18 out nocopy JTF_VARCHAR2_TABLE_100
190 , a19 out nocopy JTF_VARCHAR2_TABLE_100
191 , a20 out nocopy JTF_NUMBER_TABLE
192 , a21 out nocopy JTF_VARCHAR2_TABLE_100
193 , a22 out nocopy JTF_NUMBER_TABLE
194 , a23 out nocopy JTF_NUMBER_TABLE
195 , a24 out nocopy JTF_NUMBER_TABLE
196 , a25 out nocopy JTF_NUMBER_TABLE
197 , a26 out nocopy JTF_NUMBER_TABLE
198 , a27 out nocopy JTF_VARCHAR2_TABLE_100
199 , a28 out nocopy JTF_NUMBER_TABLE
200 , a29 out nocopy JTF_NUMBER_TABLE
201 , a30 out nocopy JTF_NUMBER_TABLE
202 , a31 out nocopy JTF_NUMBER_TABLE
203 , a32 out nocopy JTF_VARCHAR2_TABLE_100
204 , a33 out nocopy JTF_NUMBER_TABLE
205 , a34 out nocopy JTF_NUMBER_TABLE
206 , a35 out nocopy JTF_DATE_TABLE
207 , a36 out nocopy JTF_DATE_TABLE
208 , a37 out nocopy JTF_VARCHAR2_TABLE_100
209 , a38 out nocopy JTF_NUMBER_TABLE
210 , a39 out nocopy JTF_NUMBER_TABLE
211 , a40 out nocopy JTF_NUMBER_TABLE
212 , a41 out nocopy JTF_NUMBER_TABLE
213 , a42 out nocopy JTF_VARCHAR2_TABLE_100
214 , a43 out nocopy JTF_VARCHAR2_TABLE_100
215 , a44 out nocopy JTF_VARCHAR2_TABLE_200
216 , a45 out nocopy JTF_VARCHAR2_TABLE_200
217 , a46 out nocopy JTF_VARCHAR2_TABLE_200
218 , a47 out nocopy JTF_VARCHAR2_TABLE_200
219 , a48 out nocopy JTF_VARCHAR2_TABLE_200
220 , a49 out nocopy JTF_VARCHAR2_TABLE_200
221 , a50 out nocopy JTF_VARCHAR2_TABLE_200
222 , a51 out nocopy JTF_VARCHAR2_TABLE_200
223 , a52 out nocopy JTF_VARCHAR2_TABLE_200
224 , a53 out nocopy JTF_VARCHAR2_TABLE_200
225 , a54 out nocopy JTF_VARCHAR2_TABLE_200
226 , a55 out nocopy JTF_VARCHAR2_TABLE_200
227 , a56 out nocopy JTF_VARCHAR2_TABLE_200
228 , a57 out nocopy JTF_VARCHAR2_TABLE_200
229 , a58 out nocopy JTF_VARCHAR2_TABLE_200
230 , a59 out nocopy JTF_NUMBER_TABLE
231 , a60 out nocopy JTF_VARCHAR2_TABLE_3000
232 , a61 out nocopy JTF_VARCHAR2_TABLE_100
233 , a62 out nocopy JTF_VARCHAR2_TABLE_100
234 , a63 out nocopy JTF_NUMBER_TABLE
235 , a64 out nocopy JTF_VARCHAR2_TABLE_100
236 , a65 out nocopy JTF_NUMBER_TABLE
237 , a66 out nocopy JTF_VARCHAR2_TABLE_100
238 , a67 out nocopy JTF_VARCHAR2_TABLE_100
239 , a68 out nocopy JTF_VARCHAR2_TABLE_100
240 ) as
241 ddindx binary_integer; indx binary_integer;
242 begin
243 if t is null or t.count = 0 then
244 a0 := JTF_NUMBER_TABLE();
245 a1 := JTF_NUMBER_TABLE();
246 a2 := JTF_NUMBER_TABLE();
247 a3 := JTF_VARCHAR2_TABLE_100();
248 a4 := JTF_NUMBER_TABLE();
249 a5 := JTF_DATE_TABLE();
250 a6 := JTF_NUMBER_TABLE();
251 a7 := JTF_NUMBER_TABLE();
252 a8 := JTF_DATE_TABLE();
253 a9 := JTF_NUMBER_TABLE();
254 a10 := JTF_NUMBER_TABLE();
255 a11 := JTF_VARCHAR2_TABLE_200();
256 a12 := JTF_NUMBER_TABLE();
257 a13 := JTF_VARCHAR2_TABLE_100();
258 a14 := JTF_VARCHAR2_TABLE_300();
259 a15 := JTF_NUMBER_TABLE();
260 a16 := JTF_NUMBER_TABLE();
261 a17 := JTF_DATE_TABLE();
262 a18 := JTF_VARCHAR2_TABLE_100();
263 a19 := JTF_VARCHAR2_TABLE_100();
264 a20 := JTF_NUMBER_TABLE();
265 a21 := JTF_VARCHAR2_TABLE_100();
266 a22 := JTF_NUMBER_TABLE();
267 a23 := JTF_NUMBER_TABLE();
268 a24 := JTF_NUMBER_TABLE();
269 a25 := JTF_NUMBER_TABLE();
270 a26 := JTF_NUMBER_TABLE();
271 a27 := JTF_VARCHAR2_TABLE_100();
272 a28 := JTF_NUMBER_TABLE();
273 a29 := JTF_NUMBER_TABLE();
274 a30 := JTF_NUMBER_TABLE();
275 a31 := JTF_NUMBER_TABLE();
276 a32 := JTF_VARCHAR2_TABLE_100();
277 a33 := JTF_NUMBER_TABLE();
278 a34 := JTF_NUMBER_TABLE();
279 a35 := JTF_DATE_TABLE();
280 a36 := JTF_DATE_TABLE();
281 a37 := JTF_VARCHAR2_TABLE_100();
282 a38 := JTF_NUMBER_TABLE();
283 a39 := JTF_NUMBER_TABLE();
284 a40 := JTF_NUMBER_TABLE();
285 a41 := JTF_NUMBER_TABLE();
286 a42 := JTF_VARCHAR2_TABLE_100();
287 a43 := JTF_VARCHAR2_TABLE_100();
288 a44 := JTF_VARCHAR2_TABLE_200();
289 a45 := JTF_VARCHAR2_TABLE_200();
290 a46 := JTF_VARCHAR2_TABLE_200();
291 a47 := JTF_VARCHAR2_TABLE_200();
292 a48 := JTF_VARCHAR2_TABLE_200();
293 a49 := JTF_VARCHAR2_TABLE_200();
294 a50 := JTF_VARCHAR2_TABLE_200();
295 a51 := JTF_VARCHAR2_TABLE_200();
296 a52 := JTF_VARCHAR2_TABLE_200();
297 a53 := JTF_VARCHAR2_TABLE_200();
298 a54 := JTF_VARCHAR2_TABLE_200();
299 a55 := JTF_VARCHAR2_TABLE_200();
300 a56 := JTF_VARCHAR2_TABLE_200();
301 a57 := JTF_VARCHAR2_TABLE_200();
302 a58 := JTF_VARCHAR2_TABLE_200();
303 a59 := JTF_NUMBER_TABLE();
304 a60 := JTF_VARCHAR2_TABLE_3000();
305 a61 := JTF_VARCHAR2_TABLE_100();
306 a62 := JTF_VARCHAR2_TABLE_100();
307 a63 := JTF_NUMBER_TABLE();
308 a64 := JTF_VARCHAR2_TABLE_100();
309 a65 := JTF_NUMBER_TABLE();
310 a66 := JTF_VARCHAR2_TABLE_100();
311 a67 := JTF_VARCHAR2_TABLE_100();
312 a68 := JTF_VARCHAR2_TABLE_100();
313 else
314 a0 := JTF_NUMBER_TABLE();
315 a1 := JTF_NUMBER_TABLE();
316 a2 := JTF_NUMBER_TABLE();
317 a3 := JTF_VARCHAR2_TABLE_100();
318 a4 := JTF_NUMBER_TABLE();
319 a5 := JTF_DATE_TABLE();
320 a6 := JTF_NUMBER_TABLE();
321 a7 := JTF_NUMBER_TABLE();
322 a8 := JTF_DATE_TABLE();
323 a9 := JTF_NUMBER_TABLE();
324 a10 := JTF_NUMBER_TABLE();
325 a11 := JTF_VARCHAR2_TABLE_200();
326 a12 := JTF_NUMBER_TABLE();
327 a13 := JTF_VARCHAR2_TABLE_100();
328 a14 := JTF_VARCHAR2_TABLE_300();
329 a15 := JTF_NUMBER_TABLE();
330 a16 := JTF_NUMBER_TABLE();
331 a17 := JTF_DATE_TABLE();
332 a18 := JTF_VARCHAR2_TABLE_100();
333 a19 := JTF_VARCHAR2_TABLE_100();
334 a20 := JTF_NUMBER_TABLE();
335 a21 := JTF_VARCHAR2_TABLE_100();
336 a22 := JTF_NUMBER_TABLE();
337 a23 := JTF_NUMBER_TABLE();
338 a24 := JTF_NUMBER_TABLE();
339 a25 := JTF_NUMBER_TABLE();
340 a26 := JTF_NUMBER_TABLE();
341 a27 := JTF_VARCHAR2_TABLE_100();
342 a28 := JTF_NUMBER_TABLE();
343 a29 := JTF_NUMBER_TABLE();
344 a30 := JTF_NUMBER_TABLE();
345 a31 := JTF_NUMBER_TABLE();
346 a32 := JTF_VARCHAR2_TABLE_100();
347 a33 := JTF_NUMBER_TABLE();
348 a34 := JTF_NUMBER_TABLE();
349 a35 := JTF_DATE_TABLE();
350 a36 := JTF_DATE_TABLE();
351 a37 := JTF_VARCHAR2_TABLE_100();
352 a38 := JTF_NUMBER_TABLE();
353 a39 := JTF_NUMBER_TABLE();
354 a40 := JTF_NUMBER_TABLE();
355 a41 := JTF_NUMBER_TABLE();
356 a42 := JTF_VARCHAR2_TABLE_100();
357 a43 := JTF_VARCHAR2_TABLE_100();
358 a44 := JTF_VARCHAR2_TABLE_200();
359 a45 := JTF_VARCHAR2_TABLE_200();
360 a46 := JTF_VARCHAR2_TABLE_200();
361 a47 := JTF_VARCHAR2_TABLE_200();
362 a48 := JTF_VARCHAR2_TABLE_200();
363 a49 := JTF_VARCHAR2_TABLE_200();
364 a50 := JTF_VARCHAR2_TABLE_200();
365 a51 := JTF_VARCHAR2_TABLE_200();
366 a52 := JTF_VARCHAR2_TABLE_200();
367 a53 := JTF_VARCHAR2_TABLE_200();
368 a54 := JTF_VARCHAR2_TABLE_200();
369 a55 := JTF_VARCHAR2_TABLE_200();
370 a56 := JTF_VARCHAR2_TABLE_200();
371 a57 := JTF_VARCHAR2_TABLE_200();
372 a58 := JTF_VARCHAR2_TABLE_200();
373 a59 := JTF_NUMBER_TABLE();
374 a60 := JTF_VARCHAR2_TABLE_3000();
375 a61 := JTF_VARCHAR2_TABLE_100();
376 a62 := JTF_VARCHAR2_TABLE_100();
377 a63 := JTF_NUMBER_TABLE();
378 a64 := JTF_VARCHAR2_TABLE_100();
379 a65 := JTF_NUMBER_TABLE();
380 a66 := JTF_VARCHAR2_TABLE_100();
381 a67 := JTF_VARCHAR2_TABLE_100();
382 a68 := JTF_VARCHAR2_TABLE_100();
383 if t.count > 0 then
384 a0.extend(t.count);
385 a1.extend(t.count);
386 a2.extend(t.count);
387 a3.extend(t.count);
388 a4.extend(t.count);
389 a5.extend(t.count);
390 a6.extend(t.count);
391 a7.extend(t.count);
392 a8.extend(t.count);
393 a9.extend(t.count);
394 a10.extend(t.count);
395 a11.extend(t.count);
396 a12.extend(t.count);
397 a13.extend(t.count);
398 a14.extend(t.count);
399 a15.extend(t.count);
400 a16.extend(t.count);
401 a17.extend(t.count);
402 a18.extend(t.count);
403 a19.extend(t.count);
404 a20.extend(t.count);
405 a21.extend(t.count);
406 a22.extend(t.count);
407 a23.extend(t.count);
408 a24.extend(t.count);
409 a25.extend(t.count);
410 a26.extend(t.count);
411 a27.extend(t.count);
412 a28.extend(t.count);
413 a29.extend(t.count);
414 a30.extend(t.count);
415 a31.extend(t.count);
416 a32.extend(t.count);
417 a33.extend(t.count);
418 a34.extend(t.count);
419 a35.extend(t.count);
420 a36.extend(t.count);
421 a37.extend(t.count);
422 a38.extend(t.count);
423 a39.extend(t.count);
424 a40.extend(t.count);
425 a41.extend(t.count);
426 a42.extend(t.count);
427 a43.extend(t.count);
428 a44.extend(t.count);
429 a45.extend(t.count);
430 a46.extend(t.count);
431 a47.extend(t.count);
432 a48.extend(t.count);
433 a49.extend(t.count);
434 a50.extend(t.count);
435 a51.extend(t.count);
436 a52.extend(t.count);
437 a53.extend(t.count);
438 a54.extend(t.count);
439 a55.extend(t.count);
440 a56.extend(t.count);
441 a57.extend(t.count);
442 a58.extend(t.count);
443 a59.extend(t.count);
444 a60.extend(t.count);
445 a61.extend(t.count);
446 a62.extend(t.count);
447 a63.extend(t.count);
448 a64.extend(t.count);
449 a65.extend(t.count);
450 a66.extend(t.count);
451 a67.extend(t.count);
452 a68.extend(t.count);
453 ddindx := t.first;
454 indx := 1;
455 while true loop
456 a0(indx) := t(ddindx).schedule_material_id;
457 a1(indx) := t(ddindx).object_version_number;
458 a2(indx) := t(ddindx).inventory_item_id;
459 a3(indx) := t(ddindx).schedule_designator;
460 a4(indx) := t(ddindx).visit_id;
461 a5(indx) := t(ddindx).visit_start_date;
462 a6(indx) := t(ddindx).visit_task_id;
463 a7(indx) := t(ddindx).organization_id;
464 a8(indx) := t(ddindx).scheduled_date;
465 a9(indx) := t(ddindx).request_id;
466 a10(indx) := t(ddindx).process_status;
467 a11(indx) := t(ddindx).error_message;
468 a12(indx) := t(ddindx).transaction_id;
469 a13(indx) := t(ddindx).concatenated_segments;
470 a14(indx) := t(ddindx).item_description;
471 a15(indx) := t(ddindx).rt_oper_material_id;
472 a16(indx) := t(ddindx).requested_quantity;
473 a17(indx) := t(ddindx).requested_date;
474 a18(indx) := t(ddindx).uom_code;
475 a19(indx) := t(ddindx).uom_meaning;
476 a20(indx) := t(ddindx).scheduled_quantity;
477 a21(indx) := t(ddindx).job_number;
478 a22(indx) := t(ddindx).required_quantity;
479 a23(indx) := t(ddindx).quantity_per_assembly;
480 a24(indx) := t(ddindx).workorder_id;
481 a25(indx) := t(ddindx).wip_entity_id;
482 a26(indx) := t(ddindx).operation_sequence;
483 a27(indx) := t(ddindx).operation_code;
484 a28(indx) := t(ddindx).item_group_id;
485 a29(indx) := t(ddindx).serial_number;
486 a30(indx) := t(ddindx).instance_id;
487 a31(indx) := t(ddindx).supply_type;
488 a32(indx) := t(ddindx).sub_inventory;
489 a33(indx) := t(ddindx).location;
490 a34(indx) := t(ddindx).program_id;
491 a35(indx) := t(ddindx).program_update_date;
492 a36(indx) := t(ddindx).last_updated_date;
493 a37(indx) := t(ddindx).description;
494 a38(indx) := t(ddindx).department_id;
495 a39(indx) := t(ddindx).project_task_id;
496 a40(indx) := t(ddindx).project_id;
497 a41(indx) := t(ddindx).workorder_operation_id;
498 a42(indx) := t(ddindx).status;
499 a43(indx) := t(ddindx).attribute_category;
500 a44(indx) := t(ddindx).attribute1;
501 a45(indx) := t(ddindx).attribute2;
502 a46(indx) := t(ddindx).attribute3;
503 a47(indx) := t(ddindx).attribute4;
504 a48(indx) := t(ddindx).attribute5;
505 a49(indx) := t(ddindx).attribute6;
506 a50(indx) := t(ddindx).attribute7;
507 a51(indx) := t(ddindx).attribute8;
508 a52(indx) := t(ddindx).attribute9;
509 a53(indx) := t(ddindx).attribute10;
510 a54(indx) := t(ddindx).attribute11;
511 a55(indx) := t(ddindx).attribute12;
512 a56(indx) := t(ddindx).attribute13;
513 a57(indx) := t(ddindx).attribute14;
514 a58(indx) := t(ddindx).attribute15;
515 a59(indx) := t(ddindx).mrp_net_flag;
516 a60(indx) := t(ddindx).notify_text;
517 a61(indx) := t(ddindx).operation_flag;
518 a62(indx) := t(ddindx).repair_item;
519 a63(indx) := t(ddindx).mc_header_id;
520 a64(indx) := t(ddindx).mc_name;
521 a65(indx) := t(ddindx).mc_position_key;
522 a66(indx) := t(ddindx).mc_position;
523 a67(indx) := t(ddindx).item_group_name;
524 a68(indx) := t(ddindx).aog_flag;
525 indx := indx+1;
526 if t.last =ddindx
527 then exit;
528 end if;
529 ddindx := t.next(ddindx);
530 end loop;
531 end if;
532 end if;
533 end rosetta_table_copy_out_p2;
534
535 procedure rosetta_table_copy_in_p3(t out nocopy ahl_pp_materials_pvt.sch_material_tbl_type, a0 JTF_NUMBER_TABLE
536 , a1 JTF_NUMBER_TABLE
537 , a2 JTF_NUMBER_TABLE
538 , a3 JTF_VARCHAR2_TABLE_100
539 , a4 JTF_VARCHAR2_TABLE_300
540 , a5 JTF_NUMBER_TABLE
541 , a6 JTF_NUMBER_TABLE
542 , a7 JTF_NUMBER_TABLE
543 , a8 JTF_NUMBER_TABLE
544 , a9 JTF_NUMBER_TABLE
545 , a10 JTF_NUMBER_TABLE
546 , a11 JTF_DATE_TABLE
547 , a12 JTF_VARCHAR2_TABLE_100
548 , a13 JTF_NUMBER_TABLE
549 , a14 JTF_DATE_TABLE
550 , a15 JTF_NUMBER_TABLE
551 , a16 JTF_VARCHAR2_TABLE_100
552 , a17 JTF_NUMBER_TABLE
553 , a18 JTF_NUMBER_TABLE
554 , a19 JTF_NUMBER_TABLE
555 , a20 JTF_NUMBER_TABLE
556 , a21 JTF_VARCHAR2_TABLE_100
557 , a22 JTF_NUMBER_TABLE
558 , a23 JTF_VARCHAR2_TABLE_100
559 ) as
560 ddindx binary_integer; indx binary_integer;
561 begin
562 if a0 is not null and a0.count > 0 then
563 if a0.count > 0 then
564 indx := a0.first;
565 ddindx := 1;
566 while true loop
567 t(ddindx).schedule_material_id := a0(indx);
568 t(ddindx).object_version_number := a1(indx);
569 t(ddindx).inventory_item_id := a2(indx);
570 t(ddindx).concatenated_segments := a3(indx);
571 t(ddindx).item_description := a4(indx);
572 t(ddindx).rt_oper_material_id := a5(indx);
573 t(ddindx).requested_quantity := a6(indx);
574 t(ddindx).request_id := a7(indx);
575 t(ddindx).visit_id := a8(indx);
576 t(ddindx).visit_task_id := a9(indx);
577 t(ddindx).organization_id := a10(indx);
578 t(ddindx).requested_date := rosetta_g_miss_date_in_map(a11(indx));
579 t(ddindx).uom := a12(indx);
580 t(ddindx).scheduled_quantity := a13(indx);
581 t(ddindx).scheduled_date := rosetta_g_miss_date_in_map(a14(indx));
582 t(ddindx).process_status := a15(indx);
583 t(ddindx).job_number := a16(indx);
584 t(ddindx).workorder_id := a17(indx);
585 t(ddindx).operation_sequence := a18(indx);
586 t(ddindx).item_group_id := a19(indx);
587 t(ddindx).serial_number := a20(indx);
588 t(ddindx).sub_inventory := a21(indx);
589 t(ddindx).location := a22(indx);
590 t(ddindx).location_desc := a23(indx);
591 ddindx := ddindx+1;
592 if a0.last =indx
593 then exit;
594 end if;
595 indx := a0.next(indx);
596 end loop;
597 end if;
598 end if;
599 end rosetta_table_copy_in_p3;
600 procedure rosetta_table_copy_out_p3(t ahl_pp_materials_pvt.sch_material_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
601 , a1 out nocopy JTF_NUMBER_TABLE
602 , a2 out nocopy JTF_NUMBER_TABLE
603 , a3 out nocopy JTF_VARCHAR2_TABLE_100
604 , a4 out nocopy JTF_VARCHAR2_TABLE_300
605 , a5 out nocopy JTF_NUMBER_TABLE
606 , a6 out nocopy JTF_NUMBER_TABLE
607 , a7 out nocopy JTF_NUMBER_TABLE
608 , a8 out nocopy JTF_NUMBER_TABLE
609 , a9 out nocopy JTF_NUMBER_TABLE
610 , a10 out nocopy JTF_NUMBER_TABLE
611 , a11 out nocopy JTF_DATE_TABLE
612 , a12 out nocopy JTF_VARCHAR2_TABLE_100
613 , a13 out nocopy JTF_NUMBER_TABLE
614 , a14 out nocopy JTF_DATE_TABLE
615 , a15 out nocopy JTF_NUMBER_TABLE
616 , a16 out nocopy JTF_VARCHAR2_TABLE_100
617 , a17 out nocopy JTF_NUMBER_TABLE
618 , a18 out nocopy JTF_NUMBER_TABLE
619 , a19 out nocopy JTF_NUMBER_TABLE
620 , a20 out nocopy JTF_NUMBER_TABLE
621 , a21 out nocopy JTF_VARCHAR2_TABLE_100
622 , a22 out nocopy JTF_NUMBER_TABLE
623 , a23 out nocopy JTF_VARCHAR2_TABLE_100
624 ) as
625 ddindx binary_integer; indx binary_integer;
626 begin
627 if t is null or t.count = 0 then
628 a0 := JTF_NUMBER_TABLE();
629 a1 := JTF_NUMBER_TABLE();
630 a2 := JTF_NUMBER_TABLE();
631 a3 := JTF_VARCHAR2_TABLE_100();
632 a4 := JTF_VARCHAR2_TABLE_300();
633 a5 := JTF_NUMBER_TABLE();
634 a6 := JTF_NUMBER_TABLE();
635 a7 := JTF_NUMBER_TABLE();
636 a8 := JTF_NUMBER_TABLE();
637 a9 := JTF_NUMBER_TABLE();
638 a10 := JTF_NUMBER_TABLE();
639 a11 := JTF_DATE_TABLE();
640 a12 := JTF_VARCHAR2_TABLE_100();
641 a13 := JTF_NUMBER_TABLE();
642 a14 := JTF_DATE_TABLE();
643 a15 := JTF_NUMBER_TABLE();
644 a16 := JTF_VARCHAR2_TABLE_100();
645 a17 := JTF_NUMBER_TABLE();
646 a18 := JTF_NUMBER_TABLE();
647 a19 := JTF_NUMBER_TABLE();
648 a20 := JTF_NUMBER_TABLE();
649 a21 := JTF_VARCHAR2_TABLE_100();
650 a22 := JTF_NUMBER_TABLE();
651 a23 := JTF_VARCHAR2_TABLE_100();
652 else
653 a0 := JTF_NUMBER_TABLE();
654 a1 := JTF_NUMBER_TABLE();
655 a2 := JTF_NUMBER_TABLE();
656 a3 := JTF_VARCHAR2_TABLE_100();
657 a4 := JTF_VARCHAR2_TABLE_300();
658 a5 := JTF_NUMBER_TABLE();
659 a6 := JTF_NUMBER_TABLE();
660 a7 := JTF_NUMBER_TABLE();
661 a8 := JTF_NUMBER_TABLE();
662 a9 := JTF_NUMBER_TABLE();
663 a10 := JTF_NUMBER_TABLE();
664 a11 := JTF_DATE_TABLE();
665 a12 := JTF_VARCHAR2_TABLE_100();
666 a13 := JTF_NUMBER_TABLE();
667 a14 := JTF_DATE_TABLE();
668 a15 := JTF_NUMBER_TABLE();
669 a16 := JTF_VARCHAR2_TABLE_100();
670 a17 := JTF_NUMBER_TABLE();
671 a18 := JTF_NUMBER_TABLE();
672 a19 := JTF_NUMBER_TABLE();
673 a20 := JTF_NUMBER_TABLE();
674 a21 := JTF_VARCHAR2_TABLE_100();
675 a22 := JTF_NUMBER_TABLE();
676 a23 := JTF_VARCHAR2_TABLE_100();
677 if t.count > 0 then
678 a0.extend(t.count);
679 a1.extend(t.count);
680 a2.extend(t.count);
681 a3.extend(t.count);
682 a4.extend(t.count);
683 a5.extend(t.count);
684 a6.extend(t.count);
685 a7.extend(t.count);
686 a8.extend(t.count);
687 a9.extend(t.count);
688 a10.extend(t.count);
689 a11.extend(t.count);
690 a12.extend(t.count);
691 a13.extend(t.count);
692 a14.extend(t.count);
693 a15.extend(t.count);
694 a16.extend(t.count);
695 a17.extend(t.count);
696 a18.extend(t.count);
697 a19.extend(t.count);
698 a20.extend(t.count);
699 a21.extend(t.count);
700 a22.extend(t.count);
701 a23.extend(t.count);
702 ddindx := t.first;
703 indx := 1;
704 while true loop
705 a0(indx) := t(ddindx).schedule_material_id;
706 a1(indx) := t(ddindx).object_version_number;
707 a2(indx) := t(ddindx).inventory_item_id;
708 a3(indx) := t(ddindx).concatenated_segments;
709 a4(indx) := t(ddindx).item_description;
710 a5(indx) := t(ddindx).rt_oper_material_id;
711 a6(indx) := t(ddindx).requested_quantity;
712 a7(indx) := t(ddindx).request_id;
713 a8(indx) := t(ddindx).visit_id;
714 a9(indx) := t(ddindx).visit_task_id;
715 a10(indx) := t(ddindx).organization_id;
716 a11(indx) := t(ddindx).requested_date;
717 a12(indx) := t(ddindx).uom;
718 a13(indx) := t(ddindx).scheduled_quantity;
719 a14(indx) := t(ddindx).scheduled_date;
720 a15(indx) := t(ddindx).process_status;
721 a16(indx) := t(ddindx).job_number;
722 a17(indx) := t(ddindx).workorder_id;
723 a18(indx) := t(ddindx).operation_sequence;
724 a19(indx) := t(ddindx).item_group_id;
725 a20(indx) := t(ddindx).serial_number;
726 a21(indx) := t(ddindx).sub_inventory;
727 a22(indx) := t(ddindx).location;
728 a23(indx) := t(ddindx).location_desc;
729 indx := indx+1;
730 if t.last =ddindx
731 then exit;
732 end if;
733 ddindx := t.next(ddindx);
734 end loop;
735 end if;
736 end if;
737 end rosetta_table_copy_out_p3;
738
739 procedure create_material_reqst(p_api_version NUMBER
740 , p_init_msg_list VARCHAR2
741 , p_commit VARCHAR2
742 , p_validation_level NUMBER
743 , p_module_type VARCHAR2
744 , p_interface_flag VARCHAR2
745 , p6_a0 in out nocopy JTF_NUMBER_TABLE
746 , p6_a1 in out nocopy JTF_NUMBER_TABLE
747 , p6_a2 in out nocopy JTF_NUMBER_TABLE
748 , p6_a3 in out nocopy JTF_VARCHAR2_TABLE_100
749 , p6_a4 in out nocopy JTF_NUMBER_TABLE
750 , p6_a5 in out nocopy JTF_DATE_TABLE
751 , p6_a6 in out nocopy JTF_NUMBER_TABLE
752 , p6_a7 in out nocopy JTF_NUMBER_TABLE
753 , p6_a8 in out nocopy JTF_DATE_TABLE
754 , p6_a9 in out nocopy JTF_NUMBER_TABLE
755 , p6_a10 in out nocopy JTF_NUMBER_TABLE
756 , p6_a11 in out nocopy JTF_VARCHAR2_TABLE_200
757 , p6_a12 in out nocopy JTF_NUMBER_TABLE
758 , p6_a13 in out nocopy JTF_VARCHAR2_TABLE_100
759 , p6_a14 in out nocopy JTF_VARCHAR2_TABLE_300
760 , p6_a15 in out nocopy JTF_NUMBER_TABLE
761 , p6_a16 in out nocopy JTF_NUMBER_TABLE
762 , p6_a17 in out nocopy JTF_DATE_TABLE
766 , p6_a21 in out nocopy JTF_VARCHAR2_TABLE_100
763 , p6_a18 in out nocopy JTF_VARCHAR2_TABLE_100
764 , p6_a19 in out nocopy JTF_VARCHAR2_TABLE_100
765 , p6_a20 in out nocopy JTF_NUMBER_TABLE
767 , p6_a22 in out nocopy JTF_NUMBER_TABLE
768 , p6_a23 in out nocopy JTF_NUMBER_TABLE
769 , p6_a24 in out nocopy JTF_NUMBER_TABLE
770 , p6_a25 in out nocopy JTF_NUMBER_TABLE
771 , p6_a26 in out nocopy JTF_NUMBER_TABLE
772 , p6_a27 in out nocopy JTF_VARCHAR2_TABLE_100
773 , p6_a28 in out nocopy JTF_NUMBER_TABLE
774 , p6_a29 in out nocopy JTF_NUMBER_TABLE
775 , p6_a30 in out nocopy JTF_NUMBER_TABLE
776 , p6_a31 in out nocopy JTF_NUMBER_TABLE
777 , p6_a32 in out nocopy JTF_VARCHAR2_TABLE_100
778 , p6_a33 in out nocopy JTF_NUMBER_TABLE
779 , p6_a34 in out nocopy JTF_NUMBER_TABLE
780 , p6_a35 in out nocopy JTF_DATE_TABLE
781 , p6_a36 in out nocopy JTF_DATE_TABLE
782 , p6_a37 in out nocopy JTF_VARCHAR2_TABLE_100
783 , p6_a38 in out nocopy JTF_NUMBER_TABLE
784 , p6_a39 in out nocopy JTF_NUMBER_TABLE
785 , p6_a40 in out nocopy JTF_NUMBER_TABLE
786 , p6_a41 in out nocopy JTF_NUMBER_TABLE
787 , p6_a42 in out nocopy JTF_VARCHAR2_TABLE_100
788 , p6_a43 in out nocopy JTF_VARCHAR2_TABLE_100
789 , p6_a44 in out nocopy JTF_VARCHAR2_TABLE_200
790 , p6_a45 in out nocopy JTF_VARCHAR2_TABLE_200
791 , p6_a46 in out nocopy JTF_VARCHAR2_TABLE_200
792 , p6_a47 in out nocopy JTF_VARCHAR2_TABLE_200
793 , p6_a48 in out nocopy JTF_VARCHAR2_TABLE_200
794 , p6_a49 in out nocopy JTF_VARCHAR2_TABLE_200
795 , p6_a50 in out nocopy JTF_VARCHAR2_TABLE_200
796 , p6_a51 in out nocopy JTF_VARCHAR2_TABLE_200
797 , p6_a52 in out nocopy JTF_VARCHAR2_TABLE_200
798 , p6_a53 in out nocopy JTF_VARCHAR2_TABLE_200
799 , p6_a54 in out nocopy JTF_VARCHAR2_TABLE_200
800 , p6_a55 in out nocopy JTF_VARCHAR2_TABLE_200
801 , p6_a56 in out nocopy JTF_VARCHAR2_TABLE_200
802 , p6_a57 in out nocopy JTF_VARCHAR2_TABLE_200
803 , p6_a58 in out nocopy JTF_VARCHAR2_TABLE_200
804 , p6_a59 in out nocopy JTF_NUMBER_TABLE
805 , p6_a60 in out nocopy JTF_VARCHAR2_TABLE_3000
806 , p6_a61 in out nocopy JTF_VARCHAR2_TABLE_100
807 , p6_a62 in out nocopy JTF_VARCHAR2_TABLE_100
808 , p6_a63 in out nocopy JTF_NUMBER_TABLE
809 , p6_a64 in out nocopy JTF_VARCHAR2_TABLE_100
810 , p6_a65 in out nocopy JTF_NUMBER_TABLE
811 , p6_a66 in out nocopy JTF_VARCHAR2_TABLE_100
812 , p6_a67 in out nocopy JTF_VARCHAR2_TABLE_100
813 , p6_a68 in out nocopy JTF_VARCHAR2_TABLE_100
814 , x_job_return_status out nocopy VARCHAR2
815 , x_return_status out nocopy VARCHAR2
816 , x_msg_count out nocopy NUMBER
817 , x_msg_data out nocopy VARCHAR2
818 )
819
820 as
821 ddp_x_req_material_tbl ahl_pp_materials_pvt.req_material_tbl_type;
822 ddindx binary_integer; indx binary_integer;
823 begin
824
825 -- copy data to the local IN or IN-OUT args, if any
826
827
828
829
830
831
832 ahl_pp_materials_pvt_w.rosetta_table_copy_in_p2(ddp_x_req_material_tbl, p6_a0
833 , p6_a1
834 , p6_a2
835 , p6_a3
836 , p6_a4
837 , p6_a5
838 , p6_a6
839 , p6_a7
840 , p6_a8
841 , p6_a9
842 , p6_a10
843 , p6_a11
844 , p6_a12
845 , p6_a13
846 , p6_a14
847 , p6_a15
848 , p6_a16
849 , p6_a17
850 , p6_a18
851 , p6_a19
852 , p6_a20
853 , p6_a21
854 , p6_a22
855 , p6_a23
856 , p6_a24
857 , p6_a25
858 , p6_a26
859 , p6_a27
860 , p6_a28
861 , p6_a29
862 , p6_a30
863 , p6_a31
864 , p6_a32
865 , p6_a33
866 , p6_a34
867 , p6_a35
868 , p6_a36
869 , p6_a37
870 , p6_a38
871 , p6_a39
872 , p6_a40
873 , p6_a41
874 , p6_a42
875 , p6_a43
876 , p6_a44
877 , p6_a45
878 , p6_a46
879 , p6_a47
880 , p6_a48
881 , p6_a49
882 , p6_a50
883 , p6_a51
884 , p6_a52
885 , p6_a53
886 , p6_a54
887 , p6_a55
888 , p6_a56
889 , p6_a57
890 , p6_a58
891 , p6_a59
892 , p6_a60
893 , p6_a61
894 , p6_a62
895 , p6_a63
896 , p6_a64
897 , p6_a65
898 , p6_a66
899 , p6_a67
900 , p6_a68
901 );
902
903
904
905
906
907 -- here's the delegated call to the old PL/SQL routine
908 ahl_pp_materials_pvt.create_material_reqst(p_api_version,
909 p_init_msg_list,
910 p_commit,
911 p_validation_level,
912 p_module_type,
913 p_interface_flag,
914 ddp_x_req_material_tbl,
915 x_job_return_status,
916 x_return_status,
917 x_msg_count,
918 x_msg_data);
919
920 -- copy data back from the local variables to OUT or IN-OUT args, if any
921
922
923
924
925
926
927 ahl_pp_materials_pvt_w.rosetta_table_copy_out_p2(ddp_x_req_material_tbl, p6_a0
928 , p6_a1
929 , p6_a2
930 , p6_a3
931 , p6_a4
932 , p6_a5
933 , p6_a6
934 , p6_a7
935 , p6_a8
936 , p6_a9
937 , p6_a10
938 , p6_a11
939 , p6_a12
940 , p6_a13
944 , p6_a17
941 , p6_a14
942 , p6_a15
943 , p6_a16
945 , p6_a18
946 , p6_a19
947 , p6_a20
948 , p6_a21
949 , p6_a22
950 , p6_a23
951 , p6_a24
952 , p6_a25
953 , p6_a26
954 , p6_a27
955 , p6_a28
956 , p6_a29
957 , p6_a30
958 , p6_a31
959 , p6_a32
960 , p6_a33
961 , p6_a34
962 , p6_a35
963 , p6_a36
964 , p6_a37
965 , p6_a38
966 , p6_a39
967 , p6_a40
968 , p6_a41
969 , p6_a42
970 , p6_a43
971 , p6_a44
972 , p6_a45
973 , p6_a46
974 , p6_a47
975 , p6_a48
976 , p6_a49
977 , p6_a50
978 , p6_a51
979 , p6_a52
980 , p6_a53
981 , p6_a54
982 , p6_a55
983 , p6_a56
984 , p6_a57
985 , p6_a58
986 , p6_a59
987 , p6_a60
988 , p6_a61
989 , p6_a62
990 , p6_a63
991 , p6_a64
992 , p6_a65
993 , p6_a66
994 , p6_a67
995 , p6_a68
996 );
997
998
999
1000
1001 end;
1002
1003 procedure process_material_request(p_api_version NUMBER
1004 , p_init_msg_list VARCHAR2
1005 , p_commit VARCHAR2
1006 , p_validation_level NUMBER
1007 , p_module_type VARCHAR2
1008 , p5_a0 in out nocopy JTF_NUMBER_TABLE
1009 , p5_a1 in out nocopy JTF_NUMBER_TABLE
1010 , p5_a2 in out nocopy JTF_NUMBER_TABLE
1011 , p5_a3 in out nocopy JTF_VARCHAR2_TABLE_100
1012 , p5_a4 in out nocopy JTF_NUMBER_TABLE
1013 , p5_a5 in out nocopy JTF_DATE_TABLE
1014 , p5_a6 in out nocopy JTF_NUMBER_TABLE
1015 , p5_a7 in out nocopy JTF_NUMBER_TABLE
1016 , p5_a8 in out nocopy JTF_DATE_TABLE
1017 , p5_a9 in out nocopy JTF_NUMBER_TABLE
1018 , p5_a10 in out nocopy JTF_NUMBER_TABLE
1019 , p5_a11 in out nocopy JTF_VARCHAR2_TABLE_200
1020 , p5_a12 in out nocopy JTF_NUMBER_TABLE
1021 , p5_a13 in out nocopy JTF_VARCHAR2_TABLE_100
1022 , p5_a14 in out nocopy JTF_VARCHAR2_TABLE_300
1023 , p5_a15 in out nocopy JTF_NUMBER_TABLE
1024 , p5_a16 in out nocopy JTF_NUMBER_TABLE
1025 , p5_a17 in out nocopy JTF_DATE_TABLE
1026 , p5_a18 in out nocopy JTF_VARCHAR2_TABLE_100
1027 , p5_a19 in out nocopy JTF_VARCHAR2_TABLE_100
1028 , p5_a20 in out nocopy JTF_NUMBER_TABLE
1029 , p5_a21 in out nocopy JTF_VARCHAR2_TABLE_100
1030 , p5_a22 in out nocopy JTF_NUMBER_TABLE
1031 , p5_a23 in out nocopy JTF_NUMBER_TABLE
1032 , p5_a24 in out nocopy JTF_NUMBER_TABLE
1033 , p5_a25 in out nocopy JTF_NUMBER_TABLE
1034 , p5_a26 in out nocopy JTF_NUMBER_TABLE
1035 , p5_a27 in out nocopy JTF_VARCHAR2_TABLE_100
1036 , p5_a28 in out nocopy JTF_NUMBER_TABLE
1037 , p5_a29 in out nocopy JTF_NUMBER_TABLE
1038 , p5_a30 in out nocopy JTF_NUMBER_TABLE
1039 , p5_a31 in out nocopy JTF_NUMBER_TABLE
1040 , p5_a32 in out nocopy JTF_VARCHAR2_TABLE_100
1041 , p5_a33 in out nocopy JTF_NUMBER_TABLE
1042 , p5_a34 in out nocopy JTF_NUMBER_TABLE
1043 , p5_a35 in out nocopy JTF_DATE_TABLE
1044 , p5_a36 in out nocopy JTF_DATE_TABLE
1045 , p5_a37 in out nocopy JTF_VARCHAR2_TABLE_100
1046 , p5_a38 in out nocopy JTF_NUMBER_TABLE
1047 , p5_a39 in out nocopy JTF_NUMBER_TABLE
1048 , p5_a40 in out nocopy JTF_NUMBER_TABLE
1049 , p5_a41 in out nocopy JTF_NUMBER_TABLE
1050 , p5_a42 in out nocopy JTF_VARCHAR2_TABLE_100
1051 , p5_a43 in out nocopy JTF_VARCHAR2_TABLE_100
1052 , p5_a44 in out nocopy JTF_VARCHAR2_TABLE_200
1053 , p5_a45 in out nocopy JTF_VARCHAR2_TABLE_200
1054 , p5_a46 in out nocopy JTF_VARCHAR2_TABLE_200
1055 , p5_a47 in out nocopy JTF_VARCHAR2_TABLE_200
1056 , p5_a48 in out nocopy JTF_VARCHAR2_TABLE_200
1057 , p5_a49 in out nocopy JTF_VARCHAR2_TABLE_200
1058 , p5_a50 in out nocopy JTF_VARCHAR2_TABLE_200
1059 , p5_a51 in out nocopy JTF_VARCHAR2_TABLE_200
1060 , p5_a52 in out nocopy JTF_VARCHAR2_TABLE_200
1061 , p5_a53 in out nocopy JTF_VARCHAR2_TABLE_200
1062 , p5_a54 in out nocopy JTF_VARCHAR2_TABLE_200
1063 , p5_a55 in out nocopy JTF_VARCHAR2_TABLE_200
1064 , p5_a56 in out nocopy JTF_VARCHAR2_TABLE_200
1065 , p5_a57 in out nocopy JTF_VARCHAR2_TABLE_200
1066 , p5_a58 in out nocopy JTF_VARCHAR2_TABLE_200
1067 , p5_a59 in out nocopy JTF_NUMBER_TABLE
1068 , p5_a60 in out nocopy JTF_VARCHAR2_TABLE_3000
1069 , p5_a61 in out nocopy JTF_VARCHAR2_TABLE_100
1070 , p5_a62 in out nocopy JTF_VARCHAR2_TABLE_100
1071 , p5_a63 in out nocopy JTF_NUMBER_TABLE
1072 , p5_a64 in out nocopy JTF_VARCHAR2_TABLE_100
1073 , p5_a65 in out nocopy JTF_NUMBER_TABLE
1074 , p5_a66 in out nocopy JTF_VARCHAR2_TABLE_100
1075 , p5_a67 in out nocopy JTF_VARCHAR2_TABLE_100
1076 , p5_a68 in out nocopy JTF_VARCHAR2_TABLE_100
1077 , x_return_status out nocopy VARCHAR2
1078 , x_msg_count out nocopy NUMBER
1079 , x_msg_data out nocopy VARCHAR2
1080 )
1081
1082 as
1083 ddp_x_req_material_tbl ahl_pp_materials_pvt.req_material_tbl_type;
1084 ddindx binary_integer; indx binary_integer;
1085 begin
1086
1087 -- copy data to the local IN or IN-OUT args, if any
1088
1089
1090
1091
1092
1093 ahl_pp_materials_pvt_w.rosetta_table_copy_in_p2(ddp_x_req_material_tbl, p5_a0
1094 , p5_a1
1095 , p5_a2
1096 , p5_a3
1097 , p5_a4
1098 , p5_a5
1099 , p5_a6
1100 , p5_a7
1101 , p5_a8
1102 , p5_a9
1103 , p5_a10
1104 , p5_a11
1105 , p5_a12
1109 , p5_a16
1106 , p5_a13
1107 , p5_a14
1108 , p5_a15
1110 , p5_a17
1111 , p5_a18
1112 , p5_a19
1113 , p5_a20
1114 , p5_a21
1115 , p5_a22
1116 , p5_a23
1117 , p5_a24
1118 , p5_a25
1119 , p5_a26
1120 , p5_a27
1121 , p5_a28
1122 , p5_a29
1123 , p5_a30
1124 , p5_a31
1125 , p5_a32
1126 , p5_a33
1127 , p5_a34
1128 , p5_a35
1129 , p5_a36
1130 , p5_a37
1131 , p5_a38
1132 , p5_a39
1133 , p5_a40
1134 , p5_a41
1135 , p5_a42
1136 , p5_a43
1137 , p5_a44
1138 , p5_a45
1139 , p5_a46
1140 , p5_a47
1141 , p5_a48
1142 , p5_a49
1143 , p5_a50
1144 , p5_a51
1145 , p5_a52
1146 , p5_a53
1147 , p5_a54
1148 , p5_a55
1149 , p5_a56
1150 , p5_a57
1151 , p5_a58
1152 , p5_a59
1153 , p5_a60
1154 , p5_a61
1155 , p5_a62
1156 , p5_a63
1157 , p5_a64
1158 , p5_a65
1159 , p5_a66
1160 , p5_a67
1161 , p5_a68
1162 );
1163
1164
1165
1166
1167 -- here's the delegated call to the old PL/SQL routine
1168 ahl_pp_materials_pvt.process_material_request(p_api_version,
1169 p_init_msg_list,
1170 p_commit,
1171 p_validation_level,
1172 p_module_type,
1173 ddp_x_req_material_tbl,
1174 x_return_status,
1175 x_msg_count,
1176 x_msg_data);
1177
1178 -- copy data back from the local variables to OUT or IN-OUT args, if any
1179
1180
1181
1182
1183
1184 ahl_pp_materials_pvt_w.rosetta_table_copy_out_p2(ddp_x_req_material_tbl, p5_a0
1185 , p5_a1
1186 , p5_a2
1187 , p5_a3
1188 , p5_a4
1189 , p5_a5
1190 , p5_a6
1191 , p5_a7
1192 , p5_a8
1193 , p5_a9
1194 , p5_a10
1195 , p5_a11
1196 , p5_a12
1197 , p5_a13
1198 , p5_a14
1199 , p5_a15
1200 , p5_a16
1201 , p5_a17
1202 , p5_a18
1203 , p5_a19
1204 , p5_a20
1205 , p5_a21
1206 , p5_a22
1207 , p5_a23
1208 , p5_a24
1209 , p5_a25
1210 , p5_a26
1211 , p5_a27
1212 , p5_a28
1213 , p5_a29
1214 , p5_a30
1215 , p5_a31
1216 , p5_a32
1217 , p5_a33
1218 , p5_a34
1219 , p5_a35
1220 , p5_a36
1221 , p5_a37
1222 , p5_a38
1223 , p5_a39
1224 , p5_a40
1225 , p5_a41
1226 , p5_a42
1227 , p5_a43
1228 , p5_a44
1229 , p5_a45
1230 , p5_a46
1231 , p5_a47
1232 , p5_a48
1233 , p5_a49
1234 , p5_a50
1235 , p5_a51
1236 , p5_a52
1237 , p5_a53
1238 , p5_a54
1239 , p5_a55
1240 , p5_a56
1241 , p5_a57
1242 , p5_a58
1243 , p5_a59
1244 , p5_a60
1245 , p5_a61
1246 , p5_a62
1247 , p5_a63
1248 , p5_a64
1249 , p5_a65
1250 , p5_a66
1251 , p5_a67
1252 , p5_a68
1253 );
1254
1255
1256
1257 end;
1258
1259 procedure process_wo_op_materials(p_api_version NUMBER
1260 , p_init_msg_list VARCHAR2
1261 , p_commit VARCHAR2
1262 , p_validation_level NUMBER
1263 , p_operation_flag VARCHAR2
1264 , p5_a0 JTF_NUMBER_TABLE
1265 , p5_a1 JTF_NUMBER_TABLE
1266 , p5_a2 JTF_NUMBER_TABLE
1267 , p5_a3 JTF_VARCHAR2_TABLE_500
1268 , p5_a4 JTF_NUMBER_TABLE
1269 , p5_a5 JTF_NUMBER_TABLE
1270 , p5_a6 JTF_NUMBER_TABLE
1271 , p5_a7 JTF_NUMBER_TABLE
1275 , p5_a11 JTF_NUMBER_TABLE
1272 , p5_a8 JTF_DATE_TABLE
1273 , p5_a9 JTF_NUMBER_TABLE
1274 , p5_a10 JTF_DATE_TABLE
1276 , p5_a12 JTF_NUMBER_TABLE
1277 , p5_a13 JTF_NUMBER_TABLE
1278 , p5_a14 JTF_VARCHAR2_TABLE_300
1279 , p5_a15 JTF_VARCHAR2_TABLE_100
1280 , p5_a16 JTF_VARCHAR2_TABLE_100
1281 , p5_a17 JTF_NUMBER_TABLE
1282 , p5_a18 JTF_VARCHAR2_TABLE_500
1283 , p5_a19 JTF_VARCHAR2_TABLE_100
1284 , p5_a20 JTF_VARCHAR2_TABLE_100
1285 , p5_a21 JTF_VARCHAR2_TABLE_100
1286 , p5_a22 JTF_NUMBER_TABLE
1287 , p5_a23 JTF_NUMBER_TABLE
1291 , p5_a27 JTF_DATE_TABLE
1288 , p5_a24 JTF_DATE_TABLE
1289 , p5_a25 JTF_NUMBER_TABLE
1290 , p5_a26 JTF_NUMBER_TABLE
1292 , p5_a28 JTF_NUMBER_TABLE
1293 , p5_a29 JTF_NUMBER_TABLE
1294 , p5_a30 JTF_DATE_TABLE
1295 , p5_a31 JTF_NUMBER_TABLE
1296 , p5_a32 JTF_NUMBER_TABLE
1297 , p5_a33 JTF_DATE_TABLE
1298 , p5_a34 JTF_NUMBER_TABLE
1299 , p5_a35 JTF_NUMBER_TABLE
1300 , p5_a36 JTF_NUMBER_TABLE
1301 , p5_a37 JTF_NUMBER_TABLE
1302 , p5_a38 JTF_VARCHAR2_TABLE_100
1303 , p5_a39 JTF_NUMBER_TABLE
1304 , p5_a40 JTF_VARCHAR2_TABLE_100
1305 , p5_a41 JTF_VARCHAR2_TABLE_200
1306 , p5_a42 JTF_VARCHAR2_TABLE_200
1307 , p5_a43 JTF_VARCHAR2_TABLE_200
1308 , p5_a44 JTF_VARCHAR2_TABLE_200
1309 , p5_a45 JTF_VARCHAR2_TABLE_200
1310 , p5_a46 JTF_VARCHAR2_TABLE_200
1311 , p5_a47 JTF_VARCHAR2_TABLE_200
1312 , p5_a48 JTF_VARCHAR2_TABLE_200
1313 , p5_a49 JTF_VARCHAR2_TABLE_200
1314 , p5_a50 JTF_VARCHAR2_TABLE_200
1315 , p5_a51 JTF_VARCHAR2_TABLE_200
1316 , p5_a52 JTF_VARCHAR2_TABLE_200
1317 , p5_a53 JTF_VARCHAR2_TABLE_200
1318 , p5_a54 JTF_VARCHAR2_TABLE_200
1319 , p5_a55 JTF_VARCHAR2_TABLE_200
1320 , p5_a56 JTF_VARCHAR2_TABLE_100
1321 , p6_a0 out nocopy JTF_NUMBER_TABLE
1322 , p6_a1 out nocopy JTF_NUMBER_TABLE
1323 , p6_a2 out nocopy JTF_NUMBER_TABLE
1324 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
1325 , p6_a4 out nocopy JTF_NUMBER_TABLE
1326 , p6_a5 out nocopy JTF_DATE_TABLE
1327 , p6_a6 out nocopy JTF_NUMBER_TABLE
1328 , p6_a7 out nocopy JTF_NUMBER_TABLE
1329 , p6_a8 out nocopy JTF_DATE_TABLE
1330 , p6_a9 out nocopy JTF_NUMBER_TABLE
1331 , p6_a10 out nocopy JTF_NUMBER_TABLE
1332 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_200
1333 , p6_a12 out nocopy JTF_NUMBER_TABLE
1334 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
1335 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_300
1336 , p6_a15 out nocopy JTF_NUMBER_TABLE
1337 , p6_a16 out nocopy JTF_NUMBER_TABLE
1338 , p6_a17 out nocopy JTF_DATE_TABLE
1339 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_100
1340 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_100
1341 , p6_a20 out nocopy JTF_NUMBER_TABLE
1342 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_100
1343 , p6_a22 out nocopy JTF_NUMBER_TABLE
1344 , p6_a23 out nocopy JTF_NUMBER_TABLE
1345 , p6_a24 out nocopy JTF_NUMBER_TABLE
1346 , p6_a25 out nocopy JTF_NUMBER_TABLE
1347 , p6_a26 out nocopy JTF_NUMBER_TABLE
1348 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_100
1349 , p6_a28 out nocopy JTF_NUMBER_TABLE
1350 , p6_a29 out nocopy JTF_NUMBER_TABLE
1351 , p6_a30 out nocopy JTF_NUMBER_TABLE
1352 , p6_a31 out nocopy JTF_NUMBER_TABLE
1353 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_100
1354 , p6_a33 out nocopy JTF_NUMBER_TABLE
1355 , p6_a34 out nocopy JTF_NUMBER_TABLE
1356 , p6_a35 out nocopy JTF_DATE_TABLE
1357 , p6_a36 out nocopy JTF_DATE_TABLE
1358 , p6_a37 out nocopy JTF_VARCHAR2_TABLE_100
1359 , p6_a38 out nocopy JTF_NUMBER_TABLE
1360 , p6_a39 out nocopy JTF_NUMBER_TABLE
1361 , p6_a40 out nocopy JTF_NUMBER_TABLE
1362 , p6_a41 out nocopy JTF_NUMBER_TABLE
1363 , p6_a42 out nocopy JTF_VARCHAR2_TABLE_100
1364 , p6_a43 out nocopy JTF_VARCHAR2_TABLE_100
1365 , p6_a44 out nocopy JTF_VARCHAR2_TABLE_200
1366 , p6_a45 out nocopy JTF_VARCHAR2_TABLE_200
1367 , p6_a46 out nocopy JTF_VARCHAR2_TABLE_200
1368 , p6_a47 out nocopy JTF_VARCHAR2_TABLE_200
1369 , p6_a48 out nocopy JTF_VARCHAR2_TABLE_200
1370 , p6_a49 out nocopy JTF_VARCHAR2_TABLE_200
1371 , p6_a50 out nocopy JTF_VARCHAR2_TABLE_200
1372 , p6_a51 out nocopy JTF_VARCHAR2_TABLE_200
1373 , p6_a52 out nocopy JTF_VARCHAR2_TABLE_200
1374 , p6_a53 out nocopy JTF_VARCHAR2_TABLE_200
1375 , p6_a54 out nocopy JTF_VARCHAR2_TABLE_200
1376 , p6_a55 out nocopy JTF_VARCHAR2_TABLE_200
1377 , p6_a56 out nocopy JTF_VARCHAR2_TABLE_200
1378 , p6_a57 out nocopy JTF_VARCHAR2_TABLE_200
1379 , p6_a58 out nocopy JTF_VARCHAR2_TABLE_200
1380 , p6_a59 out nocopy JTF_NUMBER_TABLE
1381 , p6_a60 out nocopy JTF_VARCHAR2_TABLE_3000
1382 , p6_a61 out nocopy JTF_VARCHAR2_TABLE_100
1383 , p6_a62 out nocopy JTF_VARCHAR2_TABLE_100
1384 , p6_a63 out nocopy JTF_NUMBER_TABLE
1385 , p6_a64 out nocopy JTF_VARCHAR2_TABLE_100
1386 , p6_a65 out nocopy JTF_NUMBER_TABLE
1387 , p6_a66 out nocopy JTF_VARCHAR2_TABLE_100
1388 , p6_a67 out nocopy JTF_VARCHAR2_TABLE_100
1389 , p6_a68 out nocopy JTF_VARCHAR2_TABLE_100
1390 , x_return_status out nocopy VARCHAR2
1391 , x_msg_count out nocopy NUMBER
1392 , x_msg_data out nocopy VARCHAR2
1393 )
1394
1395 as
1396 ddp_prd_wooperation_tbl ahl_prd_operations_pvt.prd_operation_tbl;
1397 ddx_req_material_tbl ahl_pp_materials_pvt.req_material_tbl_type;
1398 ddindx binary_integer; indx binary_integer;
1399 begin
1400
1401 -- copy data to the local IN or IN-OUT args, if any
1402
1403
1404
1405
1406
1407 ahl_prd_operations_pvt_w.rosetta_table_copy_in_p1(ddp_prd_wooperation_tbl, p5_a0
1408 , p5_a1
1409 , p5_a2
1410 , p5_a3
1411 , p5_a4
1412 , p5_a5
1413 , p5_a6
1414 , p5_a7
1415 , p5_a8
1416 , p5_a9
1417 , p5_a10
1418 , p5_a11
1419 , p5_a12
1420 , p5_a13
1421 , p5_a14
1422 , p5_a15
1423 , p5_a16
1424 , p5_a17
1425 , p5_a18
1426 , p5_a19
1427 , p5_a20
1428 , p5_a21
1429 , p5_a22
1430 , p5_a23
1431 , p5_a24
1432 , p5_a25
1433 , p5_a26
1434 , p5_a27
1435 , p5_a28
1436 , p5_a29
1437 , p5_a30
1441 , p5_a34
1438 , p5_a31
1439 , p5_a32
1440 , p5_a33
1442 , p5_a35
1443 , p5_a36
1444 , p5_a37
1445 , p5_a38
1446 , p5_a39
1447 , p5_a40
1448 , p5_a41
1449 , p5_a42
1450 , p5_a43
1451 , p5_a44
1452 , p5_a45
1453 , p5_a46
1454 , p5_a47
1455 , p5_a48
1456 , p5_a49
1457 , p5_a50
1458 , p5_a51
1459 , p5_a52
1460 , p5_a53
1461 , p5_a54
1462 , p5_a55
1463 , p5_a56
1464 );
1465
1466
1467
1468
1469
1470 -- here's the delegated call to the old PL/SQL routine
1471 ahl_pp_materials_pvt.process_wo_op_materials(p_api_version,
1472 p_init_msg_list,
1473 p_commit,
1474 p_validation_level,
1475 p_operation_flag,
1476 ddp_prd_wooperation_tbl,
1477 ddx_req_material_tbl,
1478 x_return_status,
1479 x_msg_count,
1480 x_msg_data);
1481
1482 -- copy data back from the local variables to OUT or IN-OUT args, if any
1483
1484
1485
1486
1487
1488
1489 ahl_pp_materials_pvt_w.rosetta_table_copy_out_p2(ddx_req_material_tbl, p6_a0
1490 , p6_a1
1491 , p6_a2
1492 , p6_a3
1493 , p6_a4
1494 , p6_a5
1495 , p6_a6
1496 , p6_a7
1497 , p6_a8
1498 , p6_a9
1499 , p6_a10
1500 , p6_a11
1501 , p6_a12
1502 , p6_a13
1503 , p6_a14
1504 , p6_a15
1505 , p6_a16
1506 , p6_a17
1507 , p6_a18
1508 , p6_a19
1509 , p6_a20
1510 , p6_a21
1511 , p6_a22
1512 , p6_a23
1513 , p6_a24
1514 , p6_a25
1515 , p6_a26
1516 , p6_a27
1517 , p6_a28
1518 , p6_a29
1519 , p6_a30
1520 , p6_a31
1521 , p6_a32
1522 , p6_a33
1523 , p6_a34
1524 , p6_a35
1525 , p6_a36
1526 , p6_a37
1527 , p6_a38
1528 , p6_a39
1529 , p6_a40
1530 , p6_a41
1531 , p6_a42
1532 , p6_a43
1533 , p6_a44
1534 , p6_a45
1535 , p6_a46
1536 , p6_a47
1537 , p6_a48
1538 , p6_a49
1539 , p6_a50
1540 , p6_a51
1541 , p6_a52
1542 , p6_a53
1543 , p6_a54
1544 , p6_a55
1545 , p6_a56
1546 , p6_a57
1547 , p6_a58
1548 , p6_a59
1549 , p6_a60
1550 , p6_a61
1551 , p6_a62
1552 , p6_a63
1553 , p6_a64
1554 , p6_a65
1555 , p6_a66
1556 , p6_a67
1557 , p6_a68
1558 );
1559
1560
1561
1562 end;
1563
1564 procedure log_transaction_record(p_wo_operation_txn_id NUMBER
1565 , p_object_version_number NUMBER
1566 , p_last_update_date date
1567 , p_last_updated_by NUMBER
1568 , p_creation_date date
1569 , p_created_by NUMBER
1570 , p_last_update_login NUMBER
1571 , p_load_type_code NUMBER
1572 , p_transaction_type_code NUMBER
1573 , p_workorder_operation_id NUMBER
1574 , p_operation_resource_id NUMBER
1575 , p_schedule_material_id NUMBER
1576 , p_bom_resource_id NUMBER
1577 , p_cost_basis_code NUMBER
1578 , p_total_required NUMBER
1579 , p_assigned_units NUMBER
1580 , p_autocharge_type_code NUMBER
1581 , p_standard_rate_flag_code NUMBER
1582 , p_applied_resource_units NUMBER
1583 , p_applied_resource_value NUMBER
1584 , p_inventory_item_id NUMBER
1585 , p_scheduled_quantity NUMBER
1586 , p_scheduled_date date
1587 , p_mrp_net_flag NUMBER
1588 , p_quantity_per_assembly NUMBER
1589 , p_required_quantity NUMBER
1590 , p_supply_locator_id NUMBER
1591 , p_supply_subinventory NUMBER
1592 , p_date_required date
1593 , p_operation_type_code VARCHAR2
1594 , p_res_sched_start_date date
1595 , p_res_sched_end_date date
1596 , p_op_scheduled_start_date date
1597 , p_op_scheduled_end_date date
1598 , p_op_actual_start_date date
1599 , p_op_actual_end_date date
1600 , p_attribute_category VARCHAR2
1601 , p_attribute1 VARCHAR2
1602 , p_attribute2 VARCHAR2
1603 , p_attribute3 VARCHAR2
1604 , p_attribute4 VARCHAR2
1605 , p_attribute5 VARCHAR2
1606 , p_attribute6 VARCHAR2
1607 , p_attribute7 VARCHAR2
1608 , p_attribute8 VARCHAR2
1609 , p_attribute9 VARCHAR2
1610 , p_attribute10 VARCHAR2
1611 , p_attribute11 VARCHAR2
1612 , p_attribute12 VARCHAR2
1613 , p_attribute13 VARCHAR2
1614 , p_attribute14 VARCHAR2
1615 , p_attribute15 VARCHAR2
1616 )
1617
1618 as
1619 ddp_last_update_date date;
1620 ddp_creation_date date;
1621 ddp_scheduled_date date;
1622 ddp_date_required date;
1623 ddp_res_sched_start_date date;
1624 ddp_res_sched_end_date date;
1625 ddp_op_scheduled_start_date date;
1626 ddp_op_scheduled_end_date date;
1627 ddp_op_actual_start_date date;
1628 ddp_op_actual_end_date date;
1629 ddindx binary_integer; indx binary_integer;
1630 begin
1631
1632 -- copy data to the local IN or IN-OUT args, if any
1633
1634
1635 ddp_last_update_date := rosetta_g_miss_date_in_map(p_last_update_date);
1636
1637
1638 ddp_creation_date := rosetta_g_miss_date_in_map(p_creation_date);
1642
1639
1640
1641
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1657 ddp_scheduled_date := rosetta_g_miss_date_in_map(p_scheduled_date);
1658
1659
1660
1661
1662
1663
1664 ddp_date_required := rosetta_g_miss_date_in_map(p_date_required);
1665
1666
1667 ddp_res_sched_start_date := rosetta_g_miss_date_in_map(p_res_sched_start_date);
1668
1669 ddp_res_sched_end_date := rosetta_g_miss_date_in_map(p_res_sched_end_date);
1670
1671 ddp_op_scheduled_start_date := rosetta_g_miss_date_in_map(p_op_scheduled_start_date);
1672
1673 ddp_op_scheduled_end_date := rosetta_g_miss_date_in_map(p_op_scheduled_end_date);
1674
1675 ddp_op_actual_start_date := rosetta_g_miss_date_in_map(p_op_actual_start_date);
1676
1677 ddp_op_actual_end_date := rosetta_g_miss_date_in_map(p_op_actual_end_date);
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695 -- here's the delegated call to the old PL/SQL routine
1696 ahl_pp_materials_pvt.log_transaction_record(p_wo_operation_txn_id,
1697 p_object_version_number,
1698 ddp_last_update_date,
1699 p_last_updated_by,
1700 ddp_creation_date,
1701 p_created_by,
1702 p_last_update_login,
1703 p_load_type_code,
1704 p_transaction_type_code,
1705 p_workorder_operation_id,
1706 p_operation_resource_id,
1707 p_schedule_material_id,
1708 p_bom_resource_id,
1709 p_cost_basis_code,
1710 p_total_required,
1711 p_assigned_units,
1712 p_autocharge_type_code,
1713 p_standard_rate_flag_code,
1714 p_applied_resource_units,
1715 p_applied_resource_value,
1716 p_inventory_item_id,
1717 p_scheduled_quantity,
1718 ddp_scheduled_date,
1719 p_mrp_net_flag,
1720 p_quantity_per_assembly,
1721 p_required_quantity,
1722 p_supply_locator_id,
1723 p_supply_subinventory,
1724 ddp_date_required,
1725 p_operation_type_code,
1726 ddp_res_sched_start_date,
1727 ddp_res_sched_end_date,
1728 ddp_op_scheduled_start_date,
1729 ddp_op_scheduled_end_date,
1730 ddp_op_actual_start_date,
1731 ddp_op_actual_end_date,
1732 p_attribute_category,
1733 p_attribute1,
1734 p_attribute2,
1735 p_attribute3,
1736 p_attribute4,
1737 p_attribute5,
1738 p_attribute6,
1739 p_attribute7,
1740 p_attribute8,
1741 p_attribute9,
1742 p_attribute10,
1743 p_attribute11,
1744 p_attribute12,
1745 p_attribute13,
1746 p_attribute14,
1747 p_attribute15);
1748
1749 -- copy data back from the local variables to OUT or IN-OUT args, if any
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801 end;
1802
1803 procedure material_notification(p_api_version NUMBER
1804 , p_init_msg_list VARCHAR2
1805 , p_commit VARCHAR2
1806 , p_validation_level NUMBER
1807 , p4_a0 JTF_NUMBER_TABLE
1808 , p4_a1 JTF_NUMBER_TABLE
1809 , p4_a2 JTF_NUMBER_TABLE
1810 , p4_a3 JTF_VARCHAR2_TABLE_100
1811 , p4_a4 JTF_NUMBER_TABLE
1812 , p4_a5 JTF_DATE_TABLE
1813 , p4_a6 JTF_NUMBER_TABLE
1814 , p4_a7 JTF_NUMBER_TABLE
1815 , p4_a8 JTF_DATE_TABLE
1816 , p4_a9 JTF_NUMBER_TABLE
1817 , p4_a10 JTF_NUMBER_TABLE
1818 , p4_a11 JTF_VARCHAR2_TABLE_200
1819 , p4_a12 JTF_NUMBER_TABLE
1820 , p4_a13 JTF_VARCHAR2_TABLE_100
1821 , p4_a14 JTF_VARCHAR2_TABLE_300
1822 , p4_a15 JTF_NUMBER_TABLE
1823 , p4_a16 JTF_NUMBER_TABLE
1824 , p4_a17 JTF_DATE_TABLE
1825 , p4_a18 JTF_VARCHAR2_TABLE_100
1826 , p4_a19 JTF_VARCHAR2_TABLE_100
1827 , p4_a20 JTF_NUMBER_TABLE
1828 , p4_a21 JTF_VARCHAR2_TABLE_100
1829 , p4_a22 JTF_NUMBER_TABLE
1830 , p4_a23 JTF_NUMBER_TABLE
1831 , p4_a24 JTF_NUMBER_TABLE
1832 , p4_a25 JTF_NUMBER_TABLE
1833 , p4_a26 JTF_NUMBER_TABLE
1834 , p4_a27 JTF_VARCHAR2_TABLE_100
1835 , p4_a28 JTF_NUMBER_TABLE
1836 , p4_a29 JTF_NUMBER_TABLE
1837 , p4_a30 JTF_NUMBER_TABLE
1838 , p4_a31 JTF_NUMBER_TABLE
1839 , p4_a32 JTF_VARCHAR2_TABLE_100
1840 , p4_a33 JTF_NUMBER_TABLE
1841 , p4_a34 JTF_NUMBER_TABLE
1842 , p4_a35 JTF_DATE_TABLE
1843 , p4_a36 JTF_DATE_TABLE
1844 , p4_a37 JTF_VARCHAR2_TABLE_100
1845 , p4_a38 JTF_NUMBER_TABLE
1846 , p4_a39 JTF_NUMBER_TABLE
1847 , p4_a40 JTF_NUMBER_TABLE
1848 , p4_a41 JTF_NUMBER_TABLE
1849 , p4_a42 JTF_VARCHAR2_TABLE_100
1850 , p4_a43 JTF_VARCHAR2_TABLE_100
1851 , p4_a44 JTF_VARCHAR2_TABLE_200
1852 , p4_a45 JTF_VARCHAR2_TABLE_200
1853 , p4_a46 JTF_VARCHAR2_TABLE_200
1854 , p4_a47 JTF_VARCHAR2_TABLE_200
1855 , p4_a48 JTF_VARCHAR2_TABLE_200
1856 , p4_a49 JTF_VARCHAR2_TABLE_200
1860 , p4_a53 JTF_VARCHAR2_TABLE_200
1857 , p4_a50 JTF_VARCHAR2_TABLE_200
1858 , p4_a51 JTF_VARCHAR2_TABLE_200
1859 , p4_a52 JTF_VARCHAR2_TABLE_200
1861 , p4_a54 JTF_VARCHAR2_TABLE_200
1862 , p4_a55 JTF_VARCHAR2_TABLE_200
1863 , p4_a56 JTF_VARCHAR2_TABLE_200
1864 , p4_a57 JTF_VARCHAR2_TABLE_200
1865 , p4_a58 JTF_VARCHAR2_TABLE_200
1866 , p4_a59 JTF_NUMBER_TABLE
1867 , p4_a60 JTF_VARCHAR2_TABLE_3000
1868 , p4_a61 JTF_VARCHAR2_TABLE_100
1869 , p4_a62 JTF_VARCHAR2_TABLE_100
1870 , p4_a63 JTF_NUMBER_TABLE
1871 , p4_a64 JTF_VARCHAR2_TABLE_100
1872 , p4_a65 JTF_NUMBER_TABLE
1873 , p4_a66 JTF_VARCHAR2_TABLE_100
1874 , p4_a67 JTF_VARCHAR2_TABLE_100
1875 , p4_a68 JTF_VARCHAR2_TABLE_100
1876 , x_return_status out nocopy VARCHAR2
1877 , x_msg_count out nocopy NUMBER
1878 , x_msg_data out nocopy VARCHAR2
1879 )
1880
1881 as
1882 ddp_req_material_tbl ahl_pp_materials_pvt.req_material_tbl_type;
1883 ddindx binary_integer; indx binary_integer;
1884 begin
1885
1886 -- copy data to the local IN or IN-OUT args, if any
1887
1888
1889
1890
1891 ahl_pp_materials_pvt_w.rosetta_table_copy_in_p2(ddp_req_material_tbl, p4_a0
1892 , p4_a1
1893 , p4_a2
1894 , p4_a3
1895 , p4_a4
1896 , p4_a5
1897 , p4_a6
1898 , p4_a7
1899 , p4_a8
1900 , p4_a9
1901 , p4_a10
1902 , p4_a11
1903 , p4_a12
1904 , p4_a13
1905 , p4_a14
1906 , p4_a15
1907 , p4_a16
1908 , p4_a17
1909 , p4_a18
1910 , p4_a19
1911 , p4_a20
1912 , p4_a21
1913 , p4_a22
1914 , p4_a23
1915 , p4_a24
1916 , p4_a25
1917 , p4_a26
1918 , p4_a27
1919 , p4_a28
1920 , p4_a29
1921 , p4_a30
1922 , p4_a31
1923 , p4_a32
1924 , p4_a33
1925 , p4_a34
1926 , p4_a35
1927 , p4_a36
1928 , p4_a37
1929 , p4_a38
1930 , p4_a39
1931 , p4_a40
1932 , p4_a41
1933 , p4_a42
1934 , p4_a43
1935 , p4_a44
1936 , p4_a45
1937 , p4_a46
1938 , p4_a47
1939 , p4_a48
1940 , p4_a49
1941 , p4_a50
1942 , p4_a51
1943 , p4_a52
1944 , p4_a53
1945 , p4_a54
1946 , p4_a55
1947 , p4_a56
1948 , p4_a57
1949 , p4_a58
1950 , p4_a59
1951 , p4_a60
1952 , p4_a61
1953 , p4_a62
1954 , p4_a63
1955 , p4_a64
1956 , p4_a65
1957 , p4_a66
1958 , p4_a67
1959 , p4_a68
1960 );
1961
1962
1963
1964
1965 -- here's the delegated call to the old PL/SQL routine
1966 ahl_pp_materials_pvt.material_notification(p_api_version,
1967 p_init_msg_list,
1968 p_commit,
1969 p_validation_level,
1970 ddp_req_material_tbl,
1971 x_return_status,
1972 x_msg_count,
1973 x_msg_data);
1974
1975 -- copy data back from the local variables to OUT or IN-OUT args, if any
1976
1977
1978
1979
1980
1981
1982
1983 end;
1984
1985 end ahl_pp_materials_pvt_w;