[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 2008/01/31 09:08:39 bachandr 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 ) as
80 ddindx binary_integer; indx binary_integer;
81 begin
82 if a0 is not null and a0.count > 0 then
83 if a0.count > 0 then
84 indx := a0.first;
85 ddindx := 1;
86 while true loop
87 t(ddindx).schedule_material_id := a0(indx);
88 t(ddindx).object_version_number := a1(indx);
89 t(ddindx).inventory_item_id := a2(indx);
90 t(ddindx).schedule_designator := a3(indx);
91 t(ddindx).visit_id := a4(indx);
92 t(ddindx).visit_start_date := rosetta_g_miss_date_in_map(a5(indx));
93 t(ddindx).visit_task_id := a6(indx);
94 t(ddindx).organization_id := a7(indx);
95 t(ddindx).scheduled_date := rosetta_g_miss_date_in_map(a8(indx));
96 t(ddindx).request_id := a9(indx);
97 t(ddindx).process_status := a10(indx);
98 t(ddindx).error_message := a11(indx);
99 t(ddindx).transaction_id := a12(indx);
100 t(ddindx).concatenated_segments := a13(indx);
101 t(ddindx).item_description := a14(indx);
102 t(ddindx).rt_oper_material_id := a15(indx);
103 t(ddindx).requested_quantity := a16(indx);
104 t(ddindx).requested_date := rosetta_g_miss_date_in_map(a17(indx));
105 t(ddindx).uom_code := a18(indx);
106 t(ddindx).uom_meaning := a19(indx);
107 t(ddindx).scheduled_quantity := a20(indx);
108 t(ddindx).job_number := a21(indx);
109 t(ddindx).required_quantity := a22(indx);
110 t(ddindx).quantity_per_assembly := a23(indx);
111 t(ddindx).workorder_id := a24(indx);
112 t(ddindx).wip_entity_id := a25(indx);
113 t(ddindx).operation_sequence := a26(indx);
114 t(ddindx).operation_code := a27(indx);
115 t(ddindx).item_group_id := a28(indx);
116 t(ddindx).serial_number := a29(indx);
117 t(ddindx).instance_id := a30(indx);
118 t(ddindx).supply_type := a31(indx);
119 t(ddindx).sub_inventory := a32(indx);
120 t(ddindx).location := a33(indx);
121 t(ddindx).program_id := a34(indx);
122 t(ddindx).program_update_date := rosetta_g_miss_date_in_map(a35(indx));
123 t(ddindx).last_updated_date := rosetta_g_miss_date_in_map(a36(indx));
124 t(ddindx).description := a37(indx);
125 t(ddindx).department_id := a38(indx);
126 t(ddindx).project_task_id := a39(indx);
127 t(ddindx).project_id := a40(indx);
128 t(ddindx).workorder_operation_id := a41(indx);
129 t(ddindx).status := a42(indx);
130 t(ddindx).attribute_category := a43(indx);
131 t(ddindx).attribute1 := a44(indx);
132 t(ddindx).attribute2 := a45(indx);
133 t(ddindx).attribute3 := a46(indx);
134 t(ddindx).attribute4 := a47(indx);
135 t(ddindx).attribute5 := a48(indx);
136 t(ddindx).attribute6 := a49(indx);
137 t(ddindx).attribute7 := a50(indx);
138 t(ddindx).attribute8 := a51(indx);
139 t(ddindx).attribute9 := a52(indx);
140 t(ddindx).attribute10 := a53(indx);
141 t(ddindx).attribute11 := a54(indx);
142 t(ddindx).attribute12 := a55(indx);
143 t(ddindx).attribute13 := a56(indx);
144 t(ddindx).attribute14 := a57(indx);
145 t(ddindx).attribute15 := a58(indx);
146 t(ddindx).mrp_net_flag := a59(indx);
147 t(ddindx).notify_text := a60(indx);
148 t(ddindx).operation_flag := a61(indx);
149 t(ddindx).repair_item := a62(indx);
150 ddindx := ddindx+1;
151 if a0.last =indx
152 then exit;
153 end if;
154 indx := a0.next(indx);
155 end loop;
156 end if;
157 end if;
158 end rosetta_table_copy_in_p2;
159 procedure rosetta_table_copy_out_p2(t ahl_pp_materials_pvt.req_material_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
160 , a1 out nocopy JTF_NUMBER_TABLE
161 , a2 out nocopy JTF_NUMBER_TABLE
162 , a3 out nocopy JTF_VARCHAR2_TABLE_100
163 , a4 out nocopy JTF_NUMBER_TABLE
164 , a5 out nocopy JTF_DATE_TABLE
165 , a6 out nocopy JTF_NUMBER_TABLE
166 , a7 out nocopy JTF_NUMBER_TABLE
167 , a8 out nocopy JTF_DATE_TABLE
168 , a9 out nocopy JTF_NUMBER_TABLE
169 , a10 out nocopy JTF_NUMBER_TABLE
170 , a11 out nocopy JTF_VARCHAR2_TABLE_200
171 , a12 out nocopy JTF_NUMBER_TABLE
172 , a13 out nocopy JTF_VARCHAR2_TABLE_100
173 , a14 out nocopy JTF_VARCHAR2_TABLE_300
174 , a15 out nocopy JTF_NUMBER_TABLE
175 , a16 out nocopy JTF_NUMBER_TABLE
176 , a17 out nocopy JTF_DATE_TABLE
177 , a18 out nocopy JTF_VARCHAR2_TABLE_100
178 , a19 out nocopy JTF_VARCHAR2_TABLE_100
179 , a20 out nocopy JTF_NUMBER_TABLE
180 , a21 out nocopy JTF_VARCHAR2_TABLE_100
181 , a22 out nocopy JTF_NUMBER_TABLE
182 , a23 out nocopy JTF_NUMBER_TABLE
183 , a24 out nocopy JTF_NUMBER_TABLE
184 , a25 out nocopy JTF_NUMBER_TABLE
185 , a26 out nocopy JTF_NUMBER_TABLE
186 , a27 out nocopy JTF_VARCHAR2_TABLE_100
187 , a28 out nocopy JTF_NUMBER_TABLE
188 , a29 out nocopy JTF_NUMBER_TABLE
189 , a30 out nocopy JTF_NUMBER_TABLE
190 , a31 out nocopy JTF_NUMBER_TABLE
191 , a32 out nocopy JTF_VARCHAR2_TABLE_100
192 , a33 out nocopy JTF_NUMBER_TABLE
193 , a34 out nocopy JTF_NUMBER_TABLE
194 , a35 out nocopy JTF_DATE_TABLE
195 , a36 out nocopy JTF_DATE_TABLE
196 , a37 out nocopy JTF_VARCHAR2_TABLE_100
197 , a38 out nocopy JTF_NUMBER_TABLE
198 , a39 out nocopy JTF_NUMBER_TABLE
199 , a40 out nocopy JTF_NUMBER_TABLE
200 , a41 out nocopy JTF_NUMBER_TABLE
201 , a42 out nocopy JTF_VARCHAR2_TABLE_100
202 , a43 out nocopy JTF_VARCHAR2_TABLE_100
203 , a44 out nocopy JTF_VARCHAR2_TABLE_200
204 , a45 out nocopy JTF_VARCHAR2_TABLE_200
205 , a46 out nocopy JTF_VARCHAR2_TABLE_200
206 , a47 out nocopy JTF_VARCHAR2_TABLE_200
207 , a48 out nocopy JTF_VARCHAR2_TABLE_200
208 , a49 out nocopy JTF_VARCHAR2_TABLE_200
209 , a50 out nocopy JTF_VARCHAR2_TABLE_200
210 , a51 out nocopy JTF_VARCHAR2_TABLE_200
211 , a52 out nocopy JTF_VARCHAR2_TABLE_200
212 , a53 out nocopy JTF_VARCHAR2_TABLE_200
213 , a54 out nocopy JTF_VARCHAR2_TABLE_200
214 , a55 out nocopy JTF_VARCHAR2_TABLE_200
215 , a56 out nocopy JTF_VARCHAR2_TABLE_200
216 , a57 out nocopy JTF_VARCHAR2_TABLE_200
217 , a58 out nocopy JTF_VARCHAR2_TABLE_200
218 , a59 out nocopy JTF_NUMBER_TABLE
219 , a60 out nocopy JTF_VARCHAR2_TABLE_3000
220 , a61 out nocopy JTF_VARCHAR2_TABLE_100
221 , a62 out nocopy JTF_VARCHAR2_TABLE_100
222 ) as
223 ddindx binary_integer; indx binary_integer;
224 begin
225 if t is null or t.count = 0 then
226 a0 := JTF_NUMBER_TABLE();
227 a1 := JTF_NUMBER_TABLE();
228 a2 := JTF_NUMBER_TABLE();
229 a3 := JTF_VARCHAR2_TABLE_100();
230 a4 := JTF_NUMBER_TABLE();
231 a5 := JTF_DATE_TABLE();
232 a6 := JTF_NUMBER_TABLE();
233 a7 := JTF_NUMBER_TABLE();
234 a8 := JTF_DATE_TABLE();
235 a9 := JTF_NUMBER_TABLE();
236 a10 := JTF_NUMBER_TABLE();
237 a11 := JTF_VARCHAR2_TABLE_200();
238 a12 := JTF_NUMBER_TABLE();
239 a13 := JTF_VARCHAR2_TABLE_100();
240 a14 := JTF_VARCHAR2_TABLE_300();
241 a15 := JTF_NUMBER_TABLE();
242 a16 := JTF_NUMBER_TABLE();
243 a17 := JTF_DATE_TABLE();
244 a18 := JTF_VARCHAR2_TABLE_100();
245 a19 := JTF_VARCHAR2_TABLE_100();
246 a20 := JTF_NUMBER_TABLE();
247 a21 := JTF_VARCHAR2_TABLE_100();
248 a22 := JTF_NUMBER_TABLE();
249 a23 := JTF_NUMBER_TABLE();
250 a24 := JTF_NUMBER_TABLE();
251 a25 := JTF_NUMBER_TABLE();
252 a26 := JTF_NUMBER_TABLE();
253 a27 := JTF_VARCHAR2_TABLE_100();
254 a28 := JTF_NUMBER_TABLE();
255 a29 := JTF_NUMBER_TABLE();
256 a30 := JTF_NUMBER_TABLE();
257 a31 := JTF_NUMBER_TABLE();
258 a32 := JTF_VARCHAR2_TABLE_100();
259 a33 := JTF_NUMBER_TABLE();
260 a34 := JTF_NUMBER_TABLE();
261 a35 := JTF_DATE_TABLE();
262 a36 := JTF_DATE_TABLE();
263 a37 := JTF_VARCHAR2_TABLE_100();
264 a38 := JTF_NUMBER_TABLE();
265 a39 := JTF_NUMBER_TABLE();
266 a40 := JTF_NUMBER_TABLE();
267 a41 := JTF_NUMBER_TABLE();
268 a42 := JTF_VARCHAR2_TABLE_100();
269 a43 := JTF_VARCHAR2_TABLE_100();
270 a44 := JTF_VARCHAR2_TABLE_200();
271 a45 := JTF_VARCHAR2_TABLE_200();
272 a46 := JTF_VARCHAR2_TABLE_200();
273 a47 := JTF_VARCHAR2_TABLE_200();
274 a48 := JTF_VARCHAR2_TABLE_200();
275 a49 := JTF_VARCHAR2_TABLE_200();
276 a50 := JTF_VARCHAR2_TABLE_200();
277 a51 := JTF_VARCHAR2_TABLE_200();
278 a52 := JTF_VARCHAR2_TABLE_200();
279 a53 := JTF_VARCHAR2_TABLE_200();
280 a54 := JTF_VARCHAR2_TABLE_200();
281 a55 := JTF_VARCHAR2_TABLE_200();
282 a56 := JTF_VARCHAR2_TABLE_200();
283 a57 := JTF_VARCHAR2_TABLE_200();
284 a58 := JTF_VARCHAR2_TABLE_200();
285 a59 := JTF_NUMBER_TABLE();
286 a60 := JTF_VARCHAR2_TABLE_3000();
287 a61 := JTF_VARCHAR2_TABLE_100();
288 a62 := JTF_VARCHAR2_TABLE_100();
289 else
290 a0 := JTF_NUMBER_TABLE();
291 a1 := JTF_NUMBER_TABLE();
292 a2 := JTF_NUMBER_TABLE();
293 a3 := JTF_VARCHAR2_TABLE_100();
294 a4 := JTF_NUMBER_TABLE();
295 a5 := JTF_DATE_TABLE();
296 a6 := JTF_NUMBER_TABLE();
297 a7 := JTF_NUMBER_TABLE();
298 a8 := JTF_DATE_TABLE();
299 a9 := JTF_NUMBER_TABLE();
300 a10 := JTF_NUMBER_TABLE();
301 a11 := JTF_VARCHAR2_TABLE_200();
302 a12 := JTF_NUMBER_TABLE();
303 a13 := JTF_VARCHAR2_TABLE_100();
304 a14 := JTF_VARCHAR2_TABLE_300();
305 a15 := JTF_NUMBER_TABLE();
306 a16 := JTF_NUMBER_TABLE();
307 a17 := JTF_DATE_TABLE();
308 a18 := JTF_VARCHAR2_TABLE_100();
309 a19 := JTF_VARCHAR2_TABLE_100();
310 a20 := JTF_NUMBER_TABLE();
311 a21 := JTF_VARCHAR2_TABLE_100();
312 a22 := JTF_NUMBER_TABLE();
313 a23 := JTF_NUMBER_TABLE();
314 a24 := JTF_NUMBER_TABLE();
315 a25 := JTF_NUMBER_TABLE();
316 a26 := JTF_NUMBER_TABLE();
317 a27 := JTF_VARCHAR2_TABLE_100();
318 a28 := JTF_NUMBER_TABLE();
319 a29 := JTF_NUMBER_TABLE();
320 a30 := JTF_NUMBER_TABLE();
321 a31 := JTF_NUMBER_TABLE();
322 a32 := JTF_VARCHAR2_TABLE_100();
323 a33 := JTF_NUMBER_TABLE();
324 a34 := JTF_NUMBER_TABLE();
325 a35 := JTF_DATE_TABLE();
326 a36 := JTF_DATE_TABLE();
327 a37 := JTF_VARCHAR2_TABLE_100();
328 a38 := JTF_NUMBER_TABLE();
329 a39 := JTF_NUMBER_TABLE();
330 a40 := JTF_NUMBER_TABLE();
331 a41 := JTF_NUMBER_TABLE();
332 a42 := JTF_VARCHAR2_TABLE_100();
333 a43 := JTF_VARCHAR2_TABLE_100();
334 a44 := JTF_VARCHAR2_TABLE_200();
335 a45 := JTF_VARCHAR2_TABLE_200();
336 a46 := JTF_VARCHAR2_TABLE_200();
337 a47 := JTF_VARCHAR2_TABLE_200();
338 a48 := JTF_VARCHAR2_TABLE_200();
339 a49 := JTF_VARCHAR2_TABLE_200();
340 a50 := JTF_VARCHAR2_TABLE_200();
341 a51 := JTF_VARCHAR2_TABLE_200();
342 a52 := JTF_VARCHAR2_TABLE_200();
343 a53 := JTF_VARCHAR2_TABLE_200();
344 a54 := JTF_VARCHAR2_TABLE_200();
345 a55 := JTF_VARCHAR2_TABLE_200();
346 a56 := JTF_VARCHAR2_TABLE_200();
347 a57 := JTF_VARCHAR2_TABLE_200();
348 a58 := JTF_VARCHAR2_TABLE_200();
349 a59 := JTF_NUMBER_TABLE();
350 a60 := JTF_VARCHAR2_TABLE_3000();
351 a61 := JTF_VARCHAR2_TABLE_100();
352 a62 := JTF_VARCHAR2_TABLE_100();
353 if t.count > 0 then
354 a0.extend(t.count);
355 a1.extend(t.count);
356 a2.extend(t.count);
357 a3.extend(t.count);
358 a4.extend(t.count);
359 a5.extend(t.count);
360 a6.extend(t.count);
361 a7.extend(t.count);
362 a8.extend(t.count);
363 a9.extend(t.count);
364 a10.extend(t.count);
365 a11.extend(t.count);
366 a12.extend(t.count);
367 a13.extend(t.count);
368 a14.extend(t.count);
369 a15.extend(t.count);
370 a16.extend(t.count);
371 a17.extend(t.count);
372 a18.extend(t.count);
373 a19.extend(t.count);
374 a20.extend(t.count);
375 a21.extend(t.count);
376 a22.extend(t.count);
377 a23.extend(t.count);
378 a24.extend(t.count);
379 a25.extend(t.count);
380 a26.extend(t.count);
381 a27.extend(t.count);
382 a28.extend(t.count);
383 a29.extend(t.count);
384 a30.extend(t.count);
385 a31.extend(t.count);
386 a32.extend(t.count);
387 a33.extend(t.count);
388 a34.extend(t.count);
389 a35.extend(t.count);
390 a36.extend(t.count);
391 a37.extend(t.count);
392 a38.extend(t.count);
393 a39.extend(t.count);
394 a40.extend(t.count);
395 a41.extend(t.count);
396 a42.extend(t.count);
397 a43.extend(t.count);
398 a44.extend(t.count);
399 a45.extend(t.count);
400 a46.extend(t.count);
401 a47.extend(t.count);
402 a48.extend(t.count);
403 a49.extend(t.count);
404 a50.extend(t.count);
405 a51.extend(t.count);
406 a52.extend(t.count);
407 a53.extend(t.count);
408 a54.extend(t.count);
409 a55.extend(t.count);
410 a56.extend(t.count);
411 a57.extend(t.count);
412 a58.extend(t.count);
413 a59.extend(t.count);
414 a60.extend(t.count);
415 a61.extend(t.count);
416 a62.extend(t.count);
417 ddindx := t.first;
418 indx := 1;
419 while true loop
420 a0(indx) := t(ddindx).schedule_material_id;
421 a1(indx) := t(ddindx).object_version_number;
422 a2(indx) := t(ddindx).inventory_item_id;
423 a3(indx) := t(ddindx).schedule_designator;
424 a4(indx) := t(ddindx).visit_id;
425 a5(indx) := t(ddindx).visit_start_date;
426 a6(indx) := t(ddindx).visit_task_id;
427 a7(indx) := t(ddindx).organization_id;
428 a8(indx) := t(ddindx).scheduled_date;
429 a9(indx) := t(ddindx).request_id;
430 a10(indx) := t(ddindx).process_status;
431 a11(indx) := t(ddindx).error_message;
432 a12(indx) := t(ddindx).transaction_id;
433 a13(indx) := t(ddindx).concatenated_segments;
434 a14(indx) := t(ddindx).item_description;
435 a15(indx) := t(ddindx).rt_oper_material_id;
436 a16(indx) := t(ddindx).requested_quantity;
437 a17(indx) := t(ddindx).requested_date;
438 a18(indx) := t(ddindx).uom_code;
439 a19(indx) := t(ddindx).uom_meaning;
440 a20(indx) := t(ddindx).scheduled_quantity;
441 a21(indx) := t(ddindx).job_number;
442 a22(indx) := t(ddindx).required_quantity;
443 a23(indx) := t(ddindx).quantity_per_assembly;
444 a24(indx) := t(ddindx).workorder_id;
445 a25(indx) := t(ddindx).wip_entity_id;
446 a26(indx) := t(ddindx).operation_sequence;
447 a27(indx) := t(ddindx).operation_code;
448 a28(indx) := t(ddindx).item_group_id;
449 a29(indx) := t(ddindx).serial_number;
450 a30(indx) := t(ddindx).instance_id;
451 a31(indx) := t(ddindx).supply_type;
452 a32(indx) := t(ddindx).sub_inventory;
453 a33(indx) := t(ddindx).location;
454 a34(indx) := t(ddindx).program_id;
455 a35(indx) := t(ddindx).program_update_date;
456 a36(indx) := t(ddindx).last_updated_date;
457 a37(indx) := t(ddindx).description;
458 a38(indx) := t(ddindx).department_id;
459 a39(indx) := t(ddindx).project_task_id;
460 a40(indx) := t(ddindx).project_id;
461 a41(indx) := t(ddindx).workorder_operation_id;
462 a42(indx) := t(ddindx).status;
463 a43(indx) := t(ddindx).attribute_category;
464 a44(indx) := t(ddindx).attribute1;
465 a45(indx) := t(ddindx).attribute2;
466 a46(indx) := t(ddindx).attribute3;
467 a47(indx) := t(ddindx).attribute4;
468 a48(indx) := t(ddindx).attribute5;
469 a49(indx) := t(ddindx).attribute6;
470 a50(indx) := t(ddindx).attribute7;
471 a51(indx) := t(ddindx).attribute8;
472 a52(indx) := t(ddindx).attribute9;
473 a53(indx) := t(ddindx).attribute10;
474 a54(indx) := t(ddindx).attribute11;
475 a55(indx) := t(ddindx).attribute12;
476 a56(indx) := t(ddindx).attribute13;
477 a57(indx) := t(ddindx).attribute14;
478 a58(indx) := t(ddindx).attribute15;
479 a59(indx) := t(ddindx).mrp_net_flag;
480 a60(indx) := t(ddindx).notify_text;
481 a61(indx) := t(ddindx).operation_flag;
482 a62(indx) := t(ddindx).repair_item;
483 indx := indx+1;
484 if t.last =ddindx
485 then exit;
486 end if;
487 ddindx := t.next(ddindx);
488 end loop;
489 end if;
490 end if;
491 end rosetta_table_copy_out_p2;
492
493 procedure rosetta_table_copy_in_p3(t out nocopy ahl_pp_materials_pvt.sch_material_tbl_type, a0 JTF_NUMBER_TABLE
494 , a1 JTF_NUMBER_TABLE
495 , a2 JTF_NUMBER_TABLE
496 , a3 JTF_VARCHAR2_TABLE_100
497 , a4 JTF_VARCHAR2_TABLE_300
498 , a5 JTF_NUMBER_TABLE
499 , a6 JTF_NUMBER_TABLE
500 , a7 JTF_NUMBER_TABLE
501 , a8 JTF_NUMBER_TABLE
502 , a9 JTF_NUMBER_TABLE
503 , a10 JTF_NUMBER_TABLE
504 , a11 JTF_DATE_TABLE
505 , a12 JTF_VARCHAR2_TABLE_100
506 , a13 JTF_NUMBER_TABLE
507 , a14 JTF_DATE_TABLE
508 , a15 JTF_NUMBER_TABLE
509 , a16 JTF_VARCHAR2_TABLE_100
510 , a17 JTF_NUMBER_TABLE
511 , a18 JTF_NUMBER_TABLE
512 , a19 JTF_NUMBER_TABLE
513 , a20 JTF_NUMBER_TABLE
514 , a21 JTF_VARCHAR2_TABLE_100
515 , a22 JTF_NUMBER_TABLE
516 , a23 JTF_VARCHAR2_TABLE_100
517 ) as
518 ddindx binary_integer; indx binary_integer;
519 begin
520 if a0 is not null and a0.count > 0 then
521 if a0.count > 0 then
522 indx := a0.first;
523 ddindx := 1;
524 while true loop
525 t(ddindx).schedule_material_id := a0(indx);
526 t(ddindx).object_version_number := a1(indx);
527 t(ddindx).inventory_item_id := a2(indx);
528 t(ddindx).concatenated_segments := a3(indx);
529 t(ddindx).item_description := a4(indx);
530 t(ddindx).rt_oper_material_id := a5(indx);
531 t(ddindx).requested_quantity := a6(indx);
532 t(ddindx).request_id := a7(indx);
533 t(ddindx).visit_id := a8(indx);
534 t(ddindx).visit_task_id := a9(indx);
535 t(ddindx).organization_id := a10(indx);
536 t(ddindx).requested_date := rosetta_g_miss_date_in_map(a11(indx));
537 t(ddindx).uom := a12(indx);
538 t(ddindx).scheduled_quantity := a13(indx);
539 t(ddindx).scheduled_date := rosetta_g_miss_date_in_map(a14(indx));
540 t(ddindx).process_status := a15(indx);
541 t(ddindx).job_number := a16(indx);
542 t(ddindx).workorder_id := a17(indx);
543 t(ddindx).operation_sequence := a18(indx);
544 t(ddindx).item_group_id := a19(indx);
545 t(ddindx).serial_number := a20(indx);
546 t(ddindx).sub_inventory := a21(indx);
547 t(ddindx).location := a22(indx);
548 t(ddindx).location_desc := a23(indx);
549 ddindx := ddindx+1;
550 if a0.last =indx
551 then exit;
552 end if;
553 indx := a0.next(indx);
554 end loop;
555 end if;
556 end if;
557 end rosetta_table_copy_in_p3;
558 procedure rosetta_table_copy_out_p3(t ahl_pp_materials_pvt.sch_material_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
559 , a1 out nocopy JTF_NUMBER_TABLE
560 , a2 out nocopy JTF_NUMBER_TABLE
561 , a3 out nocopy JTF_VARCHAR2_TABLE_100
562 , a4 out nocopy JTF_VARCHAR2_TABLE_300
563 , a5 out nocopy JTF_NUMBER_TABLE
564 , a6 out nocopy JTF_NUMBER_TABLE
565 , a7 out nocopy JTF_NUMBER_TABLE
566 , a8 out nocopy JTF_NUMBER_TABLE
567 , a9 out nocopy JTF_NUMBER_TABLE
568 , a10 out nocopy JTF_NUMBER_TABLE
569 , a11 out nocopy JTF_DATE_TABLE
570 , a12 out nocopy JTF_VARCHAR2_TABLE_100
571 , a13 out nocopy JTF_NUMBER_TABLE
572 , a14 out nocopy JTF_DATE_TABLE
573 , a15 out nocopy JTF_NUMBER_TABLE
574 , a16 out nocopy JTF_VARCHAR2_TABLE_100
575 , a17 out nocopy JTF_NUMBER_TABLE
576 , a18 out nocopy JTF_NUMBER_TABLE
577 , a19 out nocopy JTF_NUMBER_TABLE
578 , a20 out nocopy JTF_NUMBER_TABLE
579 , a21 out nocopy JTF_VARCHAR2_TABLE_100
580 , a22 out nocopy JTF_NUMBER_TABLE
581 , a23 out nocopy JTF_VARCHAR2_TABLE_100
582 ) as
583 ddindx binary_integer; indx binary_integer;
584 begin
585 if t is null or t.count = 0 then
586 a0 := JTF_NUMBER_TABLE();
587 a1 := JTF_NUMBER_TABLE();
588 a2 := JTF_NUMBER_TABLE();
589 a3 := JTF_VARCHAR2_TABLE_100();
590 a4 := JTF_VARCHAR2_TABLE_300();
591 a5 := JTF_NUMBER_TABLE();
592 a6 := JTF_NUMBER_TABLE();
593 a7 := JTF_NUMBER_TABLE();
594 a8 := JTF_NUMBER_TABLE();
595 a9 := JTF_NUMBER_TABLE();
596 a10 := JTF_NUMBER_TABLE();
597 a11 := JTF_DATE_TABLE();
598 a12 := JTF_VARCHAR2_TABLE_100();
599 a13 := JTF_NUMBER_TABLE();
600 a14 := JTF_DATE_TABLE();
601 a15 := JTF_NUMBER_TABLE();
602 a16 := JTF_VARCHAR2_TABLE_100();
603 a17 := JTF_NUMBER_TABLE();
604 a18 := JTF_NUMBER_TABLE();
605 a19 := JTF_NUMBER_TABLE();
606 a20 := JTF_NUMBER_TABLE();
607 a21 := JTF_VARCHAR2_TABLE_100();
608 a22 := JTF_NUMBER_TABLE();
609 a23 := JTF_VARCHAR2_TABLE_100();
610 else
611 a0 := JTF_NUMBER_TABLE();
612 a1 := JTF_NUMBER_TABLE();
613 a2 := JTF_NUMBER_TABLE();
614 a3 := JTF_VARCHAR2_TABLE_100();
615 a4 := JTF_VARCHAR2_TABLE_300();
616 a5 := JTF_NUMBER_TABLE();
617 a6 := JTF_NUMBER_TABLE();
618 a7 := JTF_NUMBER_TABLE();
619 a8 := JTF_NUMBER_TABLE();
620 a9 := JTF_NUMBER_TABLE();
621 a10 := JTF_NUMBER_TABLE();
622 a11 := JTF_DATE_TABLE();
623 a12 := JTF_VARCHAR2_TABLE_100();
624 a13 := JTF_NUMBER_TABLE();
625 a14 := JTF_DATE_TABLE();
626 a15 := JTF_NUMBER_TABLE();
627 a16 := JTF_VARCHAR2_TABLE_100();
628 a17 := JTF_NUMBER_TABLE();
629 a18 := JTF_NUMBER_TABLE();
630 a19 := JTF_NUMBER_TABLE();
631 a20 := JTF_NUMBER_TABLE();
632 a21 := JTF_VARCHAR2_TABLE_100();
633 a22 := JTF_NUMBER_TABLE();
634 a23 := JTF_VARCHAR2_TABLE_100();
635 if t.count > 0 then
636 a0.extend(t.count);
637 a1.extend(t.count);
638 a2.extend(t.count);
639 a3.extend(t.count);
640 a4.extend(t.count);
641 a5.extend(t.count);
642 a6.extend(t.count);
643 a7.extend(t.count);
644 a8.extend(t.count);
645 a9.extend(t.count);
646 a10.extend(t.count);
647 a11.extend(t.count);
648 a12.extend(t.count);
649 a13.extend(t.count);
650 a14.extend(t.count);
651 a15.extend(t.count);
652 a16.extend(t.count);
653 a17.extend(t.count);
654 a18.extend(t.count);
655 a19.extend(t.count);
656 a20.extend(t.count);
657 a21.extend(t.count);
658 a22.extend(t.count);
659 a23.extend(t.count);
660 ddindx := t.first;
661 indx := 1;
662 while true loop
663 a0(indx) := t(ddindx).schedule_material_id;
664 a1(indx) := t(ddindx).object_version_number;
665 a2(indx) := t(ddindx).inventory_item_id;
666 a3(indx) := t(ddindx).concatenated_segments;
667 a4(indx) := t(ddindx).item_description;
668 a5(indx) := t(ddindx).rt_oper_material_id;
669 a6(indx) := t(ddindx).requested_quantity;
670 a7(indx) := t(ddindx).request_id;
671 a8(indx) := t(ddindx).visit_id;
672 a9(indx) := t(ddindx).visit_task_id;
673 a10(indx) := t(ddindx).organization_id;
674 a11(indx) := t(ddindx).requested_date;
675 a12(indx) := t(ddindx).uom;
676 a13(indx) := t(ddindx).scheduled_quantity;
677 a14(indx) := t(ddindx).scheduled_date;
678 a15(indx) := t(ddindx).process_status;
679 a16(indx) := t(ddindx).job_number;
680 a17(indx) := t(ddindx).workorder_id;
681 a18(indx) := t(ddindx).operation_sequence;
682 a19(indx) := t(ddindx).item_group_id;
683 a20(indx) := t(ddindx).serial_number;
684 a21(indx) := t(ddindx).sub_inventory;
685 a22(indx) := t(ddindx).location;
686 a23(indx) := t(ddindx).location_desc;
687 indx := indx+1;
688 if t.last =ddindx
689 then exit;
690 end if;
691 ddindx := t.next(ddindx);
692 end loop;
693 end if;
694 end if;
695 end rosetta_table_copy_out_p3;
696
697 procedure create_material_reqst(p_api_version NUMBER
698 , p_init_msg_list VARCHAR2
699 , p_commit VARCHAR2
700 , p_validation_level NUMBER
701 , p_interface_flag VARCHAR2
702 , p5_a0 in out nocopy JTF_NUMBER_TABLE
703 , p5_a1 in out nocopy JTF_NUMBER_TABLE
704 , p5_a2 in out nocopy JTF_NUMBER_TABLE
705 , p5_a3 in out nocopy JTF_VARCHAR2_TABLE_100
706 , p5_a4 in out nocopy JTF_NUMBER_TABLE
707 , p5_a5 in out nocopy JTF_DATE_TABLE
708 , p5_a6 in out nocopy JTF_NUMBER_TABLE
709 , p5_a7 in out nocopy JTF_NUMBER_TABLE
710 , p5_a8 in out nocopy JTF_DATE_TABLE
711 , p5_a9 in out nocopy JTF_NUMBER_TABLE
712 , p5_a10 in out nocopy JTF_NUMBER_TABLE
713 , p5_a11 in out nocopy JTF_VARCHAR2_TABLE_200
714 , p5_a12 in out nocopy JTF_NUMBER_TABLE
715 , p5_a13 in out nocopy JTF_VARCHAR2_TABLE_100
716 , p5_a14 in out nocopy JTF_VARCHAR2_TABLE_300
717 , p5_a15 in out nocopy JTF_NUMBER_TABLE
718 , p5_a16 in out nocopy JTF_NUMBER_TABLE
719 , p5_a17 in out nocopy JTF_DATE_TABLE
720 , p5_a18 in out nocopy JTF_VARCHAR2_TABLE_100
721 , p5_a19 in out nocopy JTF_VARCHAR2_TABLE_100
722 , p5_a20 in out nocopy JTF_NUMBER_TABLE
723 , p5_a21 in out nocopy JTF_VARCHAR2_TABLE_100
724 , p5_a22 in out nocopy JTF_NUMBER_TABLE
725 , p5_a23 in out nocopy JTF_NUMBER_TABLE
726 , p5_a24 in out nocopy JTF_NUMBER_TABLE
727 , p5_a25 in out nocopy JTF_NUMBER_TABLE
728 , p5_a26 in out nocopy JTF_NUMBER_TABLE
729 , p5_a27 in out nocopy JTF_VARCHAR2_TABLE_100
730 , p5_a28 in out nocopy JTF_NUMBER_TABLE
731 , p5_a29 in out nocopy JTF_NUMBER_TABLE
732 , p5_a30 in out nocopy JTF_NUMBER_TABLE
733 , p5_a31 in out nocopy JTF_NUMBER_TABLE
734 , p5_a32 in out nocopy JTF_VARCHAR2_TABLE_100
735 , p5_a33 in out nocopy JTF_NUMBER_TABLE
736 , p5_a34 in out nocopy JTF_NUMBER_TABLE
737 , p5_a35 in out nocopy JTF_DATE_TABLE
738 , p5_a36 in out nocopy JTF_DATE_TABLE
739 , p5_a37 in out nocopy JTF_VARCHAR2_TABLE_100
740 , p5_a38 in out nocopy JTF_NUMBER_TABLE
741 , p5_a39 in out nocopy JTF_NUMBER_TABLE
742 , p5_a40 in out nocopy JTF_NUMBER_TABLE
743 , p5_a41 in out nocopy JTF_NUMBER_TABLE
744 , p5_a42 in out nocopy JTF_VARCHAR2_TABLE_100
745 , p5_a43 in out nocopy JTF_VARCHAR2_TABLE_100
746 , p5_a44 in out nocopy JTF_VARCHAR2_TABLE_200
747 , p5_a45 in out nocopy JTF_VARCHAR2_TABLE_200
748 , p5_a46 in out nocopy JTF_VARCHAR2_TABLE_200
749 , p5_a47 in out nocopy JTF_VARCHAR2_TABLE_200
750 , p5_a48 in out nocopy JTF_VARCHAR2_TABLE_200
751 , p5_a49 in out nocopy JTF_VARCHAR2_TABLE_200
752 , p5_a50 in out nocopy JTF_VARCHAR2_TABLE_200
753 , p5_a51 in out nocopy JTF_VARCHAR2_TABLE_200
754 , p5_a52 in out nocopy JTF_VARCHAR2_TABLE_200
755 , p5_a53 in out nocopy JTF_VARCHAR2_TABLE_200
756 , p5_a54 in out nocopy JTF_VARCHAR2_TABLE_200
757 , p5_a55 in out nocopy JTF_VARCHAR2_TABLE_200
758 , p5_a56 in out nocopy JTF_VARCHAR2_TABLE_200
759 , p5_a57 in out nocopy JTF_VARCHAR2_TABLE_200
760 , p5_a58 in out nocopy JTF_VARCHAR2_TABLE_200
761 , p5_a59 in out nocopy JTF_NUMBER_TABLE
762 , p5_a60 in out nocopy JTF_VARCHAR2_TABLE_3000
763 , p5_a61 in out nocopy JTF_VARCHAR2_TABLE_100
764 , p5_a62 in out nocopy JTF_VARCHAR2_TABLE_100
765 , x_job_return_status out nocopy VARCHAR2
766 , x_return_status out nocopy VARCHAR2
767 , x_msg_count out nocopy NUMBER
768 , x_msg_data out nocopy VARCHAR2
769 )
770
771 as
772 ddp_x_req_material_tbl ahl_pp_materials_pvt.req_material_tbl_type;
773 ddindx binary_integer; indx binary_integer;
774 begin
775
776 -- copy data to the local IN or IN-OUT args, if any
777
778
779
780
781
782 ahl_pp_materials_pvt_w.rosetta_table_copy_in_p2(ddp_x_req_material_tbl, p5_a0
783 , p5_a1
784 , p5_a2
785 , p5_a3
786 , p5_a4
787 , p5_a5
788 , p5_a6
789 , p5_a7
790 , p5_a8
791 , p5_a9
792 , p5_a10
793 , p5_a11
794 , p5_a12
795 , p5_a13
796 , p5_a14
797 , p5_a15
798 , p5_a16
799 , p5_a17
800 , p5_a18
801 , p5_a19
802 , p5_a20
803 , p5_a21
804 , p5_a22
805 , p5_a23
806 , p5_a24
807 , p5_a25
808 , p5_a26
809 , p5_a27
810 , p5_a28
811 , p5_a29
812 , p5_a30
813 , p5_a31
814 , p5_a32
815 , p5_a33
816 , p5_a34
817 , p5_a35
818 , p5_a36
819 , p5_a37
820 , p5_a38
821 , p5_a39
822 , p5_a40
823 , p5_a41
824 , p5_a42
825 , p5_a43
826 , p5_a44
827 , p5_a45
828 , p5_a46
829 , p5_a47
830 , p5_a48
831 , p5_a49
832 , p5_a50
833 , p5_a51
834 , p5_a52
835 , p5_a53
836 , p5_a54
837 , p5_a55
838 , p5_a56
839 , p5_a57
840 , p5_a58
841 , p5_a59
842 , p5_a60
843 , p5_a61
844 , p5_a62
845 );
846
847
848
849
850
851 -- here's the delegated call to the old PL/SQL routine
852 ahl_pp_materials_pvt.create_material_reqst(p_api_version,
853 p_init_msg_list,
854 p_commit,
855 p_validation_level,
856 p_interface_flag,
857 ddp_x_req_material_tbl,
858 x_job_return_status,
859 x_return_status,
860 x_msg_count,
861 x_msg_data);
862
863 -- copy data back from the local variables to OUT or IN-OUT args, if any
864
865
866
867
868
869 ahl_pp_materials_pvt_w.rosetta_table_copy_out_p2(ddp_x_req_material_tbl, p5_a0
870 , p5_a1
871 , p5_a2
872 , p5_a3
873 , p5_a4
874 , p5_a5
875 , p5_a6
876 , p5_a7
877 , p5_a8
878 , p5_a9
879 , p5_a10
880 , p5_a11
881 , p5_a12
882 , p5_a13
883 , p5_a14
884 , p5_a15
885 , p5_a16
886 , p5_a17
887 , p5_a18
888 , p5_a19
889 , p5_a20
890 , p5_a21
891 , p5_a22
892 , p5_a23
893 , p5_a24
894 , p5_a25
895 , p5_a26
896 , p5_a27
897 , p5_a28
898 , p5_a29
899 , p5_a30
900 , p5_a31
901 , p5_a32
902 , p5_a33
903 , p5_a34
904 , p5_a35
905 , p5_a36
906 , p5_a37
907 , p5_a38
908 , p5_a39
909 , p5_a40
910 , p5_a41
911 , p5_a42
912 , p5_a43
913 , p5_a44
914 , p5_a45
915 , p5_a46
916 , p5_a47
917 , p5_a48
918 , p5_a49
919 , p5_a50
920 , p5_a51
921 , p5_a52
922 , p5_a53
923 , p5_a54
924 , p5_a55
925 , p5_a56
926 , p5_a57
927 , p5_a58
928 , p5_a59
929 , p5_a60
930 , p5_a61
931 , p5_a62
932 );
933
934
935
936
937 end;
938
939 procedure process_material_request(p_api_version NUMBER
940 , p_init_msg_list VARCHAR2
941 , p_commit VARCHAR2
942 , p_validation_level NUMBER
943 , p_module_type VARCHAR2
944 , p5_a0 in out nocopy JTF_NUMBER_TABLE
945 , p5_a1 in out nocopy JTF_NUMBER_TABLE
946 , p5_a2 in out nocopy JTF_NUMBER_TABLE
947 , p5_a3 in out nocopy JTF_VARCHAR2_TABLE_100
948 , p5_a4 in out nocopy JTF_NUMBER_TABLE
949 , p5_a5 in out nocopy JTF_DATE_TABLE
950 , p5_a6 in out nocopy JTF_NUMBER_TABLE
951 , p5_a7 in out nocopy JTF_NUMBER_TABLE
952 , p5_a8 in out nocopy JTF_DATE_TABLE
953 , p5_a9 in out nocopy JTF_NUMBER_TABLE
954 , p5_a10 in out nocopy JTF_NUMBER_TABLE
955 , p5_a11 in out nocopy JTF_VARCHAR2_TABLE_200
956 , p5_a12 in out nocopy JTF_NUMBER_TABLE
957 , p5_a13 in out nocopy JTF_VARCHAR2_TABLE_100
958 , p5_a14 in out nocopy JTF_VARCHAR2_TABLE_300
959 , p5_a15 in out nocopy JTF_NUMBER_TABLE
960 , p5_a16 in out nocopy JTF_NUMBER_TABLE
961 , p5_a17 in out nocopy JTF_DATE_TABLE
962 , p5_a18 in out nocopy JTF_VARCHAR2_TABLE_100
963 , p5_a19 in out nocopy JTF_VARCHAR2_TABLE_100
964 , p5_a20 in out nocopy JTF_NUMBER_TABLE
965 , p5_a21 in out nocopy JTF_VARCHAR2_TABLE_100
966 , p5_a22 in out nocopy JTF_NUMBER_TABLE
967 , p5_a23 in out nocopy JTF_NUMBER_TABLE
968 , p5_a24 in out nocopy JTF_NUMBER_TABLE
969 , p5_a25 in out nocopy JTF_NUMBER_TABLE
970 , p5_a26 in out nocopy JTF_NUMBER_TABLE
971 , p5_a27 in out nocopy JTF_VARCHAR2_TABLE_100
972 , p5_a28 in out nocopy JTF_NUMBER_TABLE
973 , p5_a29 in out nocopy JTF_NUMBER_TABLE
974 , p5_a30 in out nocopy JTF_NUMBER_TABLE
975 , p5_a31 in out nocopy JTF_NUMBER_TABLE
976 , p5_a32 in out nocopy JTF_VARCHAR2_TABLE_100
977 , p5_a33 in out nocopy JTF_NUMBER_TABLE
978 , p5_a34 in out nocopy JTF_NUMBER_TABLE
979 , p5_a35 in out nocopy JTF_DATE_TABLE
980 , p5_a36 in out nocopy JTF_DATE_TABLE
981 , p5_a37 in out nocopy JTF_VARCHAR2_TABLE_100
982 , p5_a38 in out nocopy JTF_NUMBER_TABLE
983 , p5_a39 in out nocopy JTF_NUMBER_TABLE
984 , p5_a40 in out nocopy JTF_NUMBER_TABLE
985 , p5_a41 in out nocopy JTF_NUMBER_TABLE
986 , p5_a42 in out nocopy JTF_VARCHAR2_TABLE_100
987 , p5_a43 in out nocopy JTF_VARCHAR2_TABLE_100
988 , p5_a44 in out nocopy JTF_VARCHAR2_TABLE_200
989 , p5_a45 in out nocopy JTF_VARCHAR2_TABLE_200
990 , p5_a46 in out nocopy JTF_VARCHAR2_TABLE_200
991 , p5_a47 in out nocopy JTF_VARCHAR2_TABLE_200
992 , p5_a48 in out nocopy JTF_VARCHAR2_TABLE_200
993 , p5_a49 in out nocopy JTF_VARCHAR2_TABLE_200
994 , p5_a50 in out nocopy JTF_VARCHAR2_TABLE_200
995 , p5_a51 in out nocopy JTF_VARCHAR2_TABLE_200
996 , p5_a52 in out nocopy JTF_VARCHAR2_TABLE_200
997 , p5_a53 in out nocopy JTF_VARCHAR2_TABLE_200
998 , p5_a54 in out nocopy JTF_VARCHAR2_TABLE_200
999 , p5_a55 in out nocopy JTF_VARCHAR2_TABLE_200
1000 , p5_a56 in out nocopy JTF_VARCHAR2_TABLE_200
1001 , p5_a57 in out nocopy JTF_VARCHAR2_TABLE_200
1002 , p5_a58 in out nocopy JTF_VARCHAR2_TABLE_200
1003 , p5_a59 in out nocopy JTF_NUMBER_TABLE
1004 , p5_a60 in out nocopy JTF_VARCHAR2_TABLE_3000
1005 , p5_a61 in out nocopy JTF_VARCHAR2_TABLE_100
1006 , p5_a62 in out nocopy JTF_VARCHAR2_TABLE_100
1007 , x_return_status out nocopy VARCHAR2
1008 , x_msg_count out nocopy NUMBER
1009 , x_msg_data out nocopy VARCHAR2
1010 )
1011
1012 as
1013 ddp_x_req_material_tbl ahl_pp_materials_pvt.req_material_tbl_type;
1014 ddindx binary_integer; indx binary_integer;
1015 begin
1016
1017 -- copy data to the local IN or IN-OUT args, if any
1018
1019
1020
1021
1022
1023 ahl_pp_materials_pvt_w.rosetta_table_copy_in_p2(ddp_x_req_material_tbl, p5_a0
1024 , p5_a1
1025 , p5_a2
1026 , p5_a3
1027 , p5_a4
1028 , p5_a5
1029 , p5_a6
1030 , p5_a7
1031 , p5_a8
1032 , p5_a9
1033 , p5_a10
1034 , p5_a11
1035 , p5_a12
1036 , p5_a13
1037 , p5_a14
1038 , p5_a15
1039 , p5_a16
1040 , p5_a17
1041 , p5_a18
1042 , p5_a19
1043 , p5_a20
1044 , p5_a21
1045 , p5_a22
1046 , p5_a23
1047 , p5_a24
1048 , p5_a25
1049 , p5_a26
1050 , p5_a27
1051 , p5_a28
1052 , p5_a29
1053 , p5_a30
1054 , p5_a31
1055 , p5_a32
1056 , p5_a33
1057 , p5_a34
1058 , p5_a35
1059 , p5_a36
1060 , p5_a37
1061 , p5_a38
1062 , p5_a39
1063 , p5_a40
1064 , p5_a41
1065 , p5_a42
1066 , p5_a43
1067 , p5_a44
1068 , p5_a45
1069 , p5_a46
1070 , p5_a47
1071 , p5_a48
1072 , p5_a49
1073 , p5_a50
1074 , p5_a51
1075 , p5_a52
1076 , p5_a53
1077 , p5_a54
1078 , p5_a55
1079 , p5_a56
1080 , p5_a57
1081 , p5_a58
1082 , p5_a59
1083 , p5_a60
1084 , p5_a61
1085 , p5_a62
1086 );
1087
1088
1089
1090
1091 -- here's the delegated call to the old PL/SQL routine
1092 ahl_pp_materials_pvt.process_material_request(p_api_version,
1093 p_init_msg_list,
1094 p_commit,
1095 p_validation_level,
1096 p_module_type,
1097 ddp_x_req_material_tbl,
1098 x_return_status,
1099 x_msg_count,
1100 x_msg_data);
1101
1102 -- copy data back from the local variables to OUT or IN-OUT args, if any
1103
1104
1105
1106
1107
1108 ahl_pp_materials_pvt_w.rosetta_table_copy_out_p2(ddp_x_req_material_tbl, p5_a0
1109 , p5_a1
1110 , p5_a2
1111 , p5_a3
1112 , p5_a4
1113 , p5_a5
1114 , p5_a6
1115 , p5_a7
1116 , p5_a8
1117 , p5_a9
1118 , p5_a10
1119 , p5_a11
1120 , p5_a12
1121 , p5_a13
1122 , p5_a14
1123 , p5_a15
1124 , p5_a16
1125 , p5_a17
1126 , p5_a18
1127 , p5_a19
1128 , p5_a20
1129 , p5_a21
1130 , p5_a22
1131 , p5_a23
1132 , p5_a24
1133 , p5_a25
1134 , p5_a26
1135 , p5_a27
1136 , p5_a28
1137 , p5_a29
1138 , p5_a30
1139 , p5_a31
1140 , p5_a32
1141 , p5_a33
1142 , p5_a34
1143 , p5_a35
1144 , p5_a36
1145 , p5_a37
1146 , p5_a38
1147 , p5_a39
1148 , p5_a40
1149 , p5_a41
1150 , p5_a42
1151 , p5_a43
1152 , p5_a44
1153 , p5_a45
1154 , p5_a46
1155 , p5_a47
1156 , p5_a48
1157 , p5_a49
1158 , p5_a50
1159 , p5_a51
1160 , p5_a52
1161 , p5_a53
1162 , p5_a54
1163 , p5_a55
1164 , p5_a56
1165 , p5_a57
1166 , p5_a58
1167 , p5_a59
1168 , p5_a60
1169 , p5_a61
1170 , p5_a62
1171 );
1172
1173
1174
1175 end;
1176
1177 procedure log_transaction_record(p_wo_operation_txn_id NUMBER
1178 , p_object_version_number NUMBER
1179 , p_last_update_date date
1180 , p_last_updated_by NUMBER
1181 , p_creation_date date
1182 , p_created_by NUMBER
1183 , p_last_update_login NUMBER
1184 , p_load_type_code NUMBER
1185 , p_transaction_type_code NUMBER
1186 , p_workorder_operation_id NUMBER
1187 , p_operation_resource_id NUMBER
1188 , p_schedule_material_id NUMBER
1189 , p_bom_resource_id NUMBER
1190 , p_cost_basis_code NUMBER
1191 , p_total_required NUMBER
1192 , p_assigned_units NUMBER
1193 , p_autocharge_type_code NUMBER
1194 , p_standard_rate_flag_code NUMBER
1195 , p_applied_resource_units NUMBER
1196 , p_applied_resource_value NUMBER
1197 , p_inventory_item_id NUMBER
1198 , p_scheduled_quantity NUMBER
1199 , p_scheduled_date date
1200 , p_mrp_net_flag NUMBER
1201 , p_quantity_per_assembly NUMBER
1202 , p_required_quantity NUMBER
1203 , p_supply_locator_id NUMBER
1204 , p_supply_subinventory NUMBER
1205 , p_date_required date
1206 , p_operation_type_code VARCHAR2
1207 , p_res_sched_start_date date
1208 , p_res_sched_end_date date
1209 , p_op_scheduled_start_date date
1210 , p_op_scheduled_end_date date
1211 , p_op_actual_start_date date
1212 , p_op_actual_end_date date
1213 , p_attribute_category VARCHAR2
1214 , p_attribute1 VARCHAR2
1215 , p_attribute2 VARCHAR2
1216 , p_attribute3 VARCHAR2
1217 , p_attribute4 VARCHAR2
1218 , p_attribute5 VARCHAR2
1219 , p_attribute6 VARCHAR2
1220 , p_attribute7 VARCHAR2
1221 , p_attribute8 VARCHAR2
1222 , p_attribute9 VARCHAR2
1223 , p_attribute10 VARCHAR2
1224 , p_attribute11 VARCHAR2
1225 , p_attribute12 VARCHAR2
1226 , p_attribute13 VARCHAR2
1227 , p_attribute14 VARCHAR2
1228 , p_attribute15 VARCHAR2
1229 )
1230
1231 as
1232 ddp_last_update_date date;
1233 ddp_creation_date date;
1234 ddp_scheduled_date date;
1235 ddp_date_required date;
1236 ddp_res_sched_start_date date;
1237 ddp_res_sched_end_date date;
1238 ddp_op_scheduled_start_date date;
1239 ddp_op_scheduled_end_date date;
1240 ddp_op_actual_start_date date;
1241 ddp_op_actual_end_date date;
1242 ddindx binary_integer; indx binary_integer;
1243 begin
1244
1245 -- copy data to the local IN or IN-OUT args, if any
1246
1247
1248 ddp_last_update_date := rosetta_g_miss_date_in_map(p_last_update_date);
1249
1250
1251 ddp_creation_date := rosetta_g_miss_date_in_map(p_creation_date);
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270 ddp_scheduled_date := rosetta_g_miss_date_in_map(p_scheduled_date);
1271
1272
1273
1274
1275
1276
1277 ddp_date_required := rosetta_g_miss_date_in_map(p_date_required);
1278
1279
1280 ddp_res_sched_start_date := rosetta_g_miss_date_in_map(p_res_sched_start_date);
1281
1282 ddp_res_sched_end_date := rosetta_g_miss_date_in_map(p_res_sched_end_date);
1283
1284 ddp_op_scheduled_start_date := rosetta_g_miss_date_in_map(p_op_scheduled_start_date);
1285
1286 ddp_op_scheduled_end_date := rosetta_g_miss_date_in_map(p_op_scheduled_end_date);
1287
1288 ddp_op_actual_start_date := rosetta_g_miss_date_in_map(p_op_actual_start_date);
1289
1290 ddp_op_actual_end_date := rosetta_g_miss_date_in_map(p_op_actual_end_date);
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308 -- here's the delegated call to the old PL/SQL routine
1309 ahl_pp_materials_pvt.log_transaction_record(p_wo_operation_txn_id,
1310 p_object_version_number,
1311 ddp_last_update_date,
1312 p_last_updated_by,
1313 ddp_creation_date,
1314 p_created_by,
1315 p_last_update_login,
1316 p_load_type_code,
1317 p_transaction_type_code,
1318 p_workorder_operation_id,
1319 p_operation_resource_id,
1320 p_schedule_material_id,
1321 p_bom_resource_id,
1322 p_cost_basis_code,
1323 p_total_required,
1324 p_assigned_units,
1325 p_autocharge_type_code,
1326 p_standard_rate_flag_code,
1327 p_applied_resource_units,
1328 p_applied_resource_value,
1329 p_inventory_item_id,
1330 p_scheduled_quantity,
1331 ddp_scheduled_date,
1332 p_mrp_net_flag,
1333 p_quantity_per_assembly,
1334 p_required_quantity,
1335 p_supply_locator_id,
1336 p_supply_subinventory,
1337 ddp_date_required,
1338 p_operation_type_code,
1339 ddp_res_sched_start_date,
1340 ddp_res_sched_end_date,
1341 ddp_op_scheduled_start_date,
1342 ddp_op_scheduled_end_date,
1343 ddp_op_actual_start_date,
1344 ddp_op_actual_end_date,
1345 p_attribute_category,
1346 p_attribute1,
1347 p_attribute2,
1348 p_attribute3,
1349 p_attribute4,
1350 p_attribute5,
1351 p_attribute6,
1352 p_attribute7,
1353 p_attribute8,
1354 p_attribute9,
1355 p_attribute10,
1356 p_attribute11,
1357 p_attribute12,
1358 p_attribute13,
1359 p_attribute14,
1360 p_attribute15);
1361
1362 -- copy data back from the local variables to OUT or IN-OUT args, if any
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
1413
1414 end;
1415
1416 procedure material_notification(p_api_version NUMBER
1417 , p_init_msg_list VARCHAR2
1418 , p_commit VARCHAR2
1419 , p_validation_level NUMBER
1420 , p4_a0 JTF_NUMBER_TABLE
1421 , p4_a1 JTF_NUMBER_TABLE
1422 , p4_a2 JTF_NUMBER_TABLE
1423 , p4_a3 JTF_VARCHAR2_TABLE_100
1424 , p4_a4 JTF_NUMBER_TABLE
1425 , p4_a5 JTF_DATE_TABLE
1426 , p4_a6 JTF_NUMBER_TABLE
1427 , p4_a7 JTF_NUMBER_TABLE
1428 , p4_a8 JTF_DATE_TABLE
1429 , p4_a9 JTF_NUMBER_TABLE
1430 , p4_a10 JTF_NUMBER_TABLE
1431 , p4_a11 JTF_VARCHAR2_TABLE_200
1432 , p4_a12 JTF_NUMBER_TABLE
1433 , p4_a13 JTF_VARCHAR2_TABLE_100
1434 , p4_a14 JTF_VARCHAR2_TABLE_300
1435 , p4_a15 JTF_NUMBER_TABLE
1436 , p4_a16 JTF_NUMBER_TABLE
1437 , p4_a17 JTF_DATE_TABLE
1438 , p4_a18 JTF_VARCHAR2_TABLE_100
1439 , p4_a19 JTF_VARCHAR2_TABLE_100
1440 , p4_a20 JTF_NUMBER_TABLE
1441 , p4_a21 JTF_VARCHAR2_TABLE_100
1442 , p4_a22 JTF_NUMBER_TABLE
1443 , p4_a23 JTF_NUMBER_TABLE
1444 , p4_a24 JTF_NUMBER_TABLE
1445 , p4_a25 JTF_NUMBER_TABLE
1446 , p4_a26 JTF_NUMBER_TABLE
1447 , p4_a27 JTF_VARCHAR2_TABLE_100
1448 , p4_a28 JTF_NUMBER_TABLE
1449 , p4_a29 JTF_NUMBER_TABLE
1450 , p4_a30 JTF_NUMBER_TABLE
1451 , p4_a31 JTF_NUMBER_TABLE
1452 , p4_a32 JTF_VARCHAR2_TABLE_100
1453 , p4_a33 JTF_NUMBER_TABLE
1454 , p4_a34 JTF_NUMBER_TABLE
1455 , p4_a35 JTF_DATE_TABLE
1456 , p4_a36 JTF_DATE_TABLE
1457 , p4_a37 JTF_VARCHAR2_TABLE_100
1458 , p4_a38 JTF_NUMBER_TABLE
1459 , p4_a39 JTF_NUMBER_TABLE
1460 , p4_a40 JTF_NUMBER_TABLE
1461 , p4_a41 JTF_NUMBER_TABLE
1462 , p4_a42 JTF_VARCHAR2_TABLE_100
1463 , p4_a43 JTF_VARCHAR2_TABLE_100
1464 , p4_a44 JTF_VARCHAR2_TABLE_200
1465 , p4_a45 JTF_VARCHAR2_TABLE_200
1466 , p4_a46 JTF_VARCHAR2_TABLE_200
1467 , p4_a47 JTF_VARCHAR2_TABLE_200
1468 , p4_a48 JTF_VARCHAR2_TABLE_200
1469 , p4_a49 JTF_VARCHAR2_TABLE_200
1470 , p4_a50 JTF_VARCHAR2_TABLE_200
1471 , p4_a51 JTF_VARCHAR2_TABLE_200
1472 , p4_a52 JTF_VARCHAR2_TABLE_200
1473 , p4_a53 JTF_VARCHAR2_TABLE_200
1474 , p4_a54 JTF_VARCHAR2_TABLE_200
1475 , p4_a55 JTF_VARCHAR2_TABLE_200
1476 , p4_a56 JTF_VARCHAR2_TABLE_200
1477 , p4_a57 JTF_VARCHAR2_TABLE_200
1478 , p4_a58 JTF_VARCHAR2_TABLE_200
1479 , p4_a59 JTF_NUMBER_TABLE
1480 , p4_a60 JTF_VARCHAR2_TABLE_3000
1481 , p4_a61 JTF_VARCHAR2_TABLE_100
1482 , p4_a62 JTF_VARCHAR2_TABLE_100
1483 , x_return_status out nocopy VARCHAR2
1484 , x_msg_count out nocopy NUMBER
1485 , x_msg_data out nocopy VARCHAR2
1486 )
1487
1488 as
1489 ddp_req_material_tbl ahl_pp_materials_pvt.req_material_tbl_type;
1490 ddindx binary_integer; indx binary_integer;
1491 begin
1492
1493 -- copy data to the local IN or IN-OUT args, if any
1494
1495
1496
1497
1498 ahl_pp_materials_pvt_w.rosetta_table_copy_in_p2(ddp_req_material_tbl, p4_a0
1499 , p4_a1
1500 , p4_a2
1501 , p4_a3
1502 , p4_a4
1503 , p4_a5
1504 , p4_a6
1505 , p4_a7
1506 , p4_a8
1507 , p4_a9
1508 , p4_a10
1509 , p4_a11
1510 , p4_a12
1511 , p4_a13
1512 , p4_a14
1513 , p4_a15
1514 , p4_a16
1515 , p4_a17
1516 , p4_a18
1517 , p4_a19
1518 , p4_a20
1519 , p4_a21
1520 , p4_a22
1521 , p4_a23
1522 , p4_a24
1523 , p4_a25
1524 , p4_a26
1525 , p4_a27
1526 , p4_a28
1527 , p4_a29
1528 , p4_a30
1529 , p4_a31
1530 , p4_a32
1531 , p4_a33
1532 , p4_a34
1533 , p4_a35
1534 , p4_a36
1535 , p4_a37
1536 , p4_a38
1537 , p4_a39
1538 , p4_a40
1539 , p4_a41
1540 , p4_a42
1541 , p4_a43
1542 , p4_a44
1543 , p4_a45
1544 , p4_a46
1545 , p4_a47
1546 , p4_a48
1547 , p4_a49
1548 , p4_a50
1549 , p4_a51
1550 , p4_a52
1551 , p4_a53
1552 , p4_a54
1553 , p4_a55
1554 , p4_a56
1555 , p4_a57
1556 , p4_a58
1557 , p4_a59
1558 , p4_a60
1559 , p4_a61
1560 , p4_a62
1561 );
1562
1563
1564
1565
1566 -- here's the delegated call to the old PL/SQL routine
1567 ahl_pp_materials_pvt.material_notification(p_api_version,
1568 p_init_msg_list,
1569 p_commit,
1570 p_validation_level,
1571 ddp_req_material_tbl,
1572 x_return_status,
1573 x_msg_count,
1574 x_msg_data);
1575
1576 -- copy data back from the local variables to OUT or IN-OUT args, if any
1577
1578
1579
1580
1581
1582
1583
1584 end;
1585
1586 end ahl_pp_materials_pvt_w;