[Home] [Help]
PACKAGE BODY: APPS.AHL_PRD_MRSHL_PVT_W
Source
1 package body ahl_prd_mrshl_pvt_w as
2 /* $Header: AHLWPMLB.pls 120.1.12020000.2 2012/12/14 03:35:09 shnatu ship $ */
3 procedure rosetta_table_copy_in_p2(t out nocopy ahl_prd_mrshl_pvt.unavailable_items_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_VARCHAR2_TABLE_300
6 , a3 JTF_VARCHAR2_TABLE_300
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_VARCHAR2_TABLE_100
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_NUMBER_TABLE
11 , a8 JTF_NUMBER_TABLE
12 , a9 JTF_VARCHAR2_TABLE_100
13 , a10 JTF_VARCHAR2_TABLE_100
14 , a11 JTF_NUMBER_TABLE
15 , a12 JTF_NUMBER_TABLE
16 , a13 JTF_NUMBER_TABLE
17 , a14 JTF_VARCHAR2_TABLE_100
18 , a15 JTF_VARCHAR2_TABLE_100
19 , a16 JTF_DATE_TABLE
20 , a17 JTF_NUMBER_TABLE
21 , a18 JTF_NUMBER_TABLE
22 , a19 JTF_DATE_TABLE
23 , a20 JTF_NUMBER_TABLE
24 , a21 JTF_DATE_TABLE
25 , a22 JTF_NUMBER_TABLE
26 , a23 JTF_NUMBER_TABLE
27 , a24 JTF_NUMBER_TABLE
28 , a25 JTF_VARCHAR2_TABLE_100
29 , a26 JTF_NUMBER_TABLE
30 , a27 JTF_VARCHAR2_TABLE_300
31 , a28 JTF_VARCHAR2_TABLE_100
32 , a29 JTF_VARCHAR2_TABLE_100
33 , a30 JTF_VARCHAR2_TABLE_100
34 , a31 JTF_VARCHAR2_TABLE_100
35 , a32 JTF_VARCHAR2_TABLE_100
36 , a33 JTF_VARCHAR2_TABLE_100
37 , a34 JTF_NUMBER_TABLE
38 , a35 JTF_VARCHAR2_TABLE_100
39 , a36 JTF_VARCHAR2_TABLE_100
40 , a37 JTF_NUMBER_TABLE
41 ) as
42 ddindx binary_integer; indx binary_integer;
43 begin
44 if a0 is not null and a0.count > 0 then
45 if a0.count > 0 then
46 indx := a0.first;
47 ddindx := 1;
48 while true loop
49 t(ddindx).scheduled_material_id := a0(indx);
50 t(ddindx).inventory_item_id := a1(indx);
51 t(ddindx).item_name := a2(indx);
52 t(ddindx).item_desc := a3(indx);
53 t(ddindx).workorder_id := a4(indx);
54 t(ddindx).workorder_name := a5(indx);
55 t(ddindx).wip_entity_id := a6(indx);
56 t(ddindx).organization_id := a7(indx);
57 t(ddindx).visit_id := a8(indx);
58 t(ddindx).wo_status_code := a9(indx);
59 t(ddindx).wo_status := a10(indx);
60 t(ddindx).wo_operation_id := a11(indx);
61 t(ddindx).op_seq := a12(indx);
62 t(ddindx).quantity := a13(indx);
63 t(ddindx).uom := a14(indx);
64 t(ddindx).uom_desc := a15(indx);
65 t(ddindx).required_date := a16(indx);
66 t(ddindx).required_quantity := a17(indx);
67 t(ddindx).issued_quantity := a18(indx);
68 t(ddindx).scheduled_date := a19(indx);
69 t(ddindx).scheduled_quantity := a20(indx);
70 t(ddindx).exception_date := a21(indx);
71 t(ddindx).reserved_quantity := a22(indx);
72 t(ddindx).onhand_quantity := a23(indx);
73 t(ddindx).qty_per_assembly := a24(indx);
74 t(ddindx).subinventory := a25(indx);
75 t(ddindx).locator_id := a26(indx);
76 t(ddindx).locator_segments := a27(indx);
77 t(ddindx).serial_number := a28(indx);
78 t(ddindx).lot := a29(indx);
79 t(ddindx).revision := a30(indx);
80 t(ddindx).is_serialized := a31(indx);
81 t(ddindx).is_lot_controlled := a32(indx);
82 t(ddindx).is_revision_controlled := a33(indx);
83 t(ddindx).diposition_id := a34(indx);
84 t(ddindx).diposition_name := a35(indx);
85 t(ddindx).aog_flag := a36(indx);
86 t(ddindx).asm_object_version_number := a37(indx);
87 ddindx := ddindx+1;
88 if a0.last =indx
89 then exit;
90 end if;
91 indx := a0.next(indx);
92 end loop;
93 end if;
94 end if;
95 end rosetta_table_copy_in_p2;
96 procedure rosetta_table_copy_out_p2(t ahl_prd_mrshl_pvt.unavailable_items_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
97 , a1 out nocopy JTF_NUMBER_TABLE
98 , a2 out nocopy JTF_VARCHAR2_TABLE_300
99 , a3 out nocopy JTF_VARCHAR2_TABLE_300
100 , a4 out nocopy JTF_NUMBER_TABLE
101 , a5 out nocopy JTF_VARCHAR2_TABLE_100
102 , a6 out nocopy JTF_NUMBER_TABLE
103 , a7 out nocopy JTF_NUMBER_TABLE
104 , a8 out nocopy JTF_NUMBER_TABLE
105 , a9 out nocopy JTF_VARCHAR2_TABLE_100
106 , a10 out nocopy JTF_VARCHAR2_TABLE_100
107 , a11 out nocopy JTF_NUMBER_TABLE
108 , a12 out nocopy JTF_NUMBER_TABLE
109 , a13 out nocopy JTF_NUMBER_TABLE
110 , a14 out nocopy JTF_VARCHAR2_TABLE_100
111 , a15 out nocopy JTF_VARCHAR2_TABLE_100
112 , a16 out nocopy JTF_DATE_TABLE
113 , a17 out nocopy JTF_NUMBER_TABLE
114 , a18 out nocopy JTF_NUMBER_TABLE
115 , a19 out nocopy JTF_DATE_TABLE
116 , a20 out nocopy JTF_NUMBER_TABLE
117 , a21 out nocopy JTF_DATE_TABLE
118 , a22 out nocopy JTF_NUMBER_TABLE
119 , a23 out nocopy JTF_NUMBER_TABLE
120 , a24 out nocopy JTF_NUMBER_TABLE
121 , a25 out nocopy JTF_VARCHAR2_TABLE_100
122 , a26 out nocopy JTF_NUMBER_TABLE
123 , a27 out nocopy JTF_VARCHAR2_TABLE_300
124 , a28 out nocopy JTF_VARCHAR2_TABLE_100
125 , a29 out nocopy JTF_VARCHAR2_TABLE_100
126 , a30 out nocopy JTF_VARCHAR2_TABLE_100
127 , a31 out nocopy JTF_VARCHAR2_TABLE_100
128 , a32 out nocopy JTF_VARCHAR2_TABLE_100
129 , a33 out nocopy JTF_VARCHAR2_TABLE_100
130 , a34 out nocopy JTF_NUMBER_TABLE
131 , a35 out nocopy JTF_VARCHAR2_TABLE_100
132 , a36 out nocopy JTF_VARCHAR2_TABLE_100
133 , a37 out nocopy JTF_NUMBER_TABLE
134 ) as
135 ddindx binary_integer; indx binary_integer;
136 begin
137 if t is null or t.count = 0 then
138 a0 := JTF_NUMBER_TABLE();
139 a1 := JTF_NUMBER_TABLE();
140 a2 := JTF_VARCHAR2_TABLE_300();
141 a3 := JTF_VARCHAR2_TABLE_300();
142 a4 := JTF_NUMBER_TABLE();
143 a5 := JTF_VARCHAR2_TABLE_100();
144 a6 := JTF_NUMBER_TABLE();
145 a7 := JTF_NUMBER_TABLE();
146 a8 := JTF_NUMBER_TABLE();
147 a9 := JTF_VARCHAR2_TABLE_100();
148 a10 := JTF_VARCHAR2_TABLE_100();
149 a11 := JTF_NUMBER_TABLE();
150 a12 := JTF_NUMBER_TABLE();
151 a13 := JTF_NUMBER_TABLE();
152 a14 := JTF_VARCHAR2_TABLE_100();
153 a15 := JTF_VARCHAR2_TABLE_100();
154 a16 := JTF_DATE_TABLE();
155 a17 := JTF_NUMBER_TABLE();
156 a18 := JTF_NUMBER_TABLE();
157 a19 := JTF_DATE_TABLE();
158 a20 := JTF_NUMBER_TABLE();
159 a21 := JTF_DATE_TABLE();
160 a22 := JTF_NUMBER_TABLE();
161 a23 := JTF_NUMBER_TABLE();
162 a24 := JTF_NUMBER_TABLE();
163 a25 := JTF_VARCHAR2_TABLE_100();
164 a26 := JTF_NUMBER_TABLE();
165 a27 := JTF_VARCHAR2_TABLE_300();
166 a28 := JTF_VARCHAR2_TABLE_100();
167 a29 := JTF_VARCHAR2_TABLE_100();
168 a30 := JTF_VARCHAR2_TABLE_100();
169 a31 := JTF_VARCHAR2_TABLE_100();
170 a32 := JTF_VARCHAR2_TABLE_100();
171 a33 := JTF_VARCHAR2_TABLE_100();
172 a34 := JTF_NUMBER_TABLE();
173 a35 := JTF_VARCHAR2_TABLE_100();
174 a36 := JTF_VARCHAR2_TABLE_100();
175 a37 := JTF_NUMBER_TABLE();
176 else
177 a0 := JTF_NUMBER_TABLE();
178 a1 := JTF_NUMBER_TABLE();
179 a2 := JTF_VARCHAR2_TABLE_300();
180 a3 := JTF_VARCHAR2_TABLE_300();
181 a4 := JTF_NUMBER_TABLE();
182 a5 := JTF_VARCHAR2_TABLE_100();
183 a6 := JTF_NUMBER_TABLE();
184 a7 := JTF_NUMBER_TABLE();
185 a8 := JTF_NUMBER_TABLE();
186 a9 := JTF_VARCHAR2_TABLE_100();
187 a10 := JTF_VARCHAR2_TABLE_100();
188 a11 := JTF_NUMBER_TABLE();
189 a12 := JTF_NUMBER_TABLE();
190 a13 := JTF_NUMBER_TABLE();
191 a14 := JTF_VARCHAR2_TABLE_100();
192 a15 := JTF_VARCHAR2_TABLE_100();
193 a16 := JTF_DATE_TABLE();
194 a17 := JTF_NUMBER_TABLE();
195 a18 := JTF_NUMBER_TABLE();
196 a19 := JTF_DATE_TABLE();
197 a20 := JTF_NUMBER_TABLE();
198 a21 := JTF_DATE_TABLE();
199 a22 := JTF_NUMBER_TABLE();
200 a23 := JTF_NUMBER_TABLE();
201 a24 := JTF_NUMBER_TABLE();
202 a25 := JTF_VARCHAR2_TABLE_100();
203 a26 := JTF_NUMBER_TABLE();
204 a27 := JTF_VARCHAR2_TABLE_300();
205 a28 := JTF_VARCHAR2_TABLE_100();
206 a29 := JTF_VARCHAR2_TABLE_100();
207 a30 := JTF_VARCHAR2_TABLE_100();
208 a31 := JTF_VARCHAR2_TABLE_100();
209 a32 := JTF_VARCHAR2_TABLE_100();
210 a33 := JTF_VARCHAR2_TABLE_100();
211 a34 := JTF_NUMBER_TABLE();
212 a35 := JTF_VARCHAR2_TABLE_100();
213 a36 := JTF_VARCHAR2_TABLE_100();
214 a37 := JTF_NUMBER_TABLE();
215 if t.count > 0 then
216 a0.extend(t.count);
217 a1.extend(t.count);
218 a2.extend(t.count);
219 a3.extend(t.count);
220 a4.extend(t.count);
221 a5.extend(t.count);
222 a6.extend(t.count);
223 a7.extend(t.count);
224 a8.extend(t.count);
225 a9.extend(t.count);
226 a10.extend(t.count);
227 a11.extend(t.count);
228 a12.extend(t.count);
229 a13.extend(t.count);
230 a14.extend(t.count);
231 a15.extend(t.count);
232 a16.extend(t.count);
233 a17.extend(t.count);
234 a18.extend(t.count);
235 a19.extend(t.count);
236 a20.extend(t.count);
237 a21.extend(t.count);
238 a22.extend(t.count);
239 a23.extend(t.count);
240 a24.extend(t.count);
241 a25.extend(t.count);
242 a26.extend(t.count);
243 a27.extend(t.count);
244 a28.extend(t.count);
245 a29.extend(t.count);
246 a30.extend(t.count);
247 a31.extend(t.count);
248 a32.extend(t.count);
249 a33.extend(t.count);
250 a34.extend(t.count);
251 a35.extend(t.count);
252 a36.extend(t.count);
253 a37.extend(t.count);
254 ddindx := t.first;
255 indx := 1;
256 while true loop
257 a0(indx) := t(ddindx).scheduled_material_id;
258 a1(indx) := t(ddindx).inventory_item_id;
259 a2(indx) := t(ddindx).item_name;
260 a3(indx) := t(ddindx).item_desc;
261 a4(indx) := t(ddindx).workorder_id;
262 a5(indx) := t(ddindx).workorder_name;
263 a6(indx) := t(ddindx).wip_entity_id;
264 a7(indx) := t(ddindx).organization_id;
265 a8(indx) := t(ddindx).visit_id;
266 a9(indx) := t(ddindx).wo_status_code;
267 a10(indx) := t(ddindx).wo_status;
268 a11(indx) := t(ddindx).wo_operation_id;
269 a12(indx) := t(ddindx).op_seq;
270 a13(indx) := t(ddindx).quantity;
271 a14(indx) := t(ddindx).uom;
272 a15(indx) := t(ddindx).uom_desc;
273 a16(indx) := t(ddindx).required_date;
274 a17(indx) := t(ddindx).required_quantity;
275 a18(indx) := t(ddindx).issued_quantity;
276 a19(indx) := t(ddindx).scheduled_date;
277 a20(indx) := t(ddindx).scheduled_quantity;
278 a21(indx) := t(ddindx).exception_date;
279 a22(indx) := t(ddindx).reserved_quantity;
280 a23(indx) := t(ddindx).onhand_quantity;
281 a24(indx) := t(ddindx).qty_per_assembly;
282 a25(indx) := t(ddindx).subinventory;
283 a26(indx) := t(ddindx).locator_id;
284 a27(indx) := t(ddindx).locator_segments;
285 a28(indx) := t(ddindx).serial_number;
286 a29(indx) := t(ddindx).lot;
287 a30(indx) := t(ddindx).revision;
288 a31(indx) := t(ddindx).is_serialized;
289 a32(indx) := t(ddindx).is_lot_controlled;
290 a33(indx) := t(ddindx).is_revision_controlled;
291 a34(indx) := t(ddindx).diposition_id;
292 a35(indx) := t(ddindx).diposition_name;
293 a36(indx) := t(ddindx).aog_flag;
294 a37(indx) := t(ddindx).asm_object_version_number;
295 indx := indx+1;
296 if t.last =ddindx
297 then exit;
298 end if;
299 ddindx := t.next(ddindx);
300 end loop;
301 end if;
302 end if;
303 end rosetta_table_copy_out_p2;
304
305 procedure rosetta_table_copy_in_p4(t out nocopy ahl_prd_mrshl_pvt.available_items_tbl_type, a0 JTF_NUMBER_TABLE
306 , a1 JTF_NUMBER_TABLE
307 , a2 JTF_VARCHAR2_TABLE_300
308 , a3 JTF_VARCHAR2_TABLE_300
309 , a4 JTF_NUMBER_TABLE
310 , a5 JTF_VARCHAR2_TABLE_100
311 , a6 JTF_NUMBER_TABLE
312 , a7 JTF_NUMBER_TABLE
313 , a8 JTF_NUMBER_TABLE
314 , a9 JTF_VARCHAR2_TABLE_100
315 , a10 JTF_VARCHAR2_TABLE_100
316 , a11 JTF_NUMBER_TABLE
317 , a12 JTF_NUMBER_TABLE
318 , a13 JTF_NUMBER_TABLE
319 , a14 JTF_VARCHAR2_TABLE_100
320 , a15 JTF_VARCHAR2_TABLE_100
321 , a16 JTF_DATE_TABLE
322 , a17 JTF_NUMBER_TABLE
323 , a18 JTF_DATE_TABLE
324 , a19 JTF_NUMBER_TABLE
325 , a20 JTF_NUMBER_TABLE
326 , a21 JTF_DATE_TABLE
327 , a22 JTF_NUMBER_TABLE
328 , a23 JTF_NUMBER_TABLE
329 , a24 JTF_NUMBER_TABLE
333 , a28 JTF_VARCHAR2_TABLE_100
330 , a25 JTF_VARCHAR2_TABLE_100
331 , a26 JTF_NUMBER_TABLE
332 , a27 JTF_VARCHAR2_TABLE_300
334 , a29 JTF_VARCHAR2_TABLE_100
335 , a30 JTF_VARCHAR2_TABLE_100
336 , a31 JTF_NUMBER_TABLE
337 , a32 JTF_VARCHAR2_TABLE_100
338 , a33 JTF_NUMBER_TABLE
339 , a34 JTF_NUMBER_TABLE
340 , a35 JTF_VARCHAR2_TABLE_100
341 , a36 JTF_VARCHAR2_TABLE_100
342 , a37 JTF_VARCHAR2_TABLE_100
343 , a38 JTF_NUMBER_TABLE
344 , a39 JTF_VARCHAR2_TABLE_100
345 , a40 JTF_VARCHAR2_TABLE_100
346 , a41 JTF_NUMBER_TABLE
347 ) as
348 ddindx binary_integer; indx binary_integer;
349 begin
350 if a0 is not null and a0.count > 0 then
351 if a0.count > 0 then
352 indx := a0.first;
353 ddindx := 1;
354 while true loop
355 t(ddindx).scheduled_material_id := a0(indx);
356 t(ddindx).inventory_item_id := a1(indx);
357 t(ddindx).item_name := a2(indx);
358 t(ddindx).item_desc := a3(indx);
359 t(ddindx).workorder_id := a4(indx);
360 t(ddindx).workorder_name := a5(indx);
361 t(ddindx).wip_entity_id := a6(indx);
362 t(ddindx).organization_id := a7(indx);
363 t(ddindx).visit_id := a8(indx);
364 t(ddindx).wo_status_code := a9(indx);
365 t(ddindx).wo_status := a10(indx);
366 t(ddindx).wo_operation_id := a11(indx);
367 t(ddindx).op_seq := a12(indx);
368 t(ddindx).quantity := a13(indx);
369 t(ddindx).uom := a14(indx);
370 t(ddindx).uom_desc := a15(indx);
371 t(ddindx).required_date := a16(indx);
372 t(ddindx).required_quantity := a17(indx);
373 t(ddindx).scheduled_date := a18(indx);
374 t(ddindx).scheduled_quantity := a19(indx);
375 t(ddindx).issued_quantity := a20(indx);
376 t(ddindx).exception_date := a21(indx);
377 t(ddindx).reserved_quantity := a22(indx);
378 t(ddindx).onhand_quantity := a23(indx);
379 t(ddindx).qty_per_assembly := a24(indx);
380 t(ddindx).subinventory := a25(indx);
381 t(ddindx).locator_id := a26(indx);
382 t(ddindx).locator_segments := a27(indx);
383 t(ddindx).serial_number := a28(indx);
384 t(ddindx).lot := a29(indx);
385 t(ddindx).revision := a30(indx);
386 t(ddindx).item_source_wo_id := a31(indx);
387 t(ddindx).item_source_wo_name := a32(indx);
388 t(ddindx).item_source_wop_id := a33(indx);
389 t(ddindx).item_source_wop_seq := a34(indx);
390 t(ddindx).is_serialized := a35(indx);
391 t(ddindx).is_lot_controlled := a36(indx);
392 t(ddindx).is_revision_controlled := a37(indx);
393 t(ddindx).diposition_id := a38(indx);
394 t(ddindx).diposition_name := a39(indx);
395 t(ddindx).aog_flag := a40(indx);
396 t(ddindx).asm_object_version_number := a41(indx);
397 ddindx := ddindx+1;
398 if a0.last =indx
399 then exit;
400 end if;
401 indx := a0.next(indx);
402 end loop;
403 end if;
404 end if;
405 end rosetta_table_copy_in_p4;
406 procedure rosetta_table_copy_out_p4(t ahl_prd_mrshl_pvt.available_items_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
407 , a1 out nocopy JTF_NUMBER_TABLE
408 , a2 out nocopy JTF_VARCHAR2_TABLE_300
409 , a3 out nocopy JTF_VARCHAR2_TABLE_300
410 , a4 out nocopy JTF_NUMBER_TABLE
411 , a5 out nocopy JTF_VARCHAR2_TABLE_100
412 , a6 out nocopy JTF_NUMBER_TABLE
413 , a7 out nocopy JTF_NUMBER_TABLE
414 , a8 out nocopy JTF_NUMBER_TABLE
415 , a9 out nocopy JTF_VARCHAR2_TABLE_100
416 , a10 out nocopy JTF_VARCHAR2_TABLE_100
417 , a11 out nocopy JTF_NUMBER_TABLE
418 , a12 out nocopy JTF_NUMBER_TABLE
419 , a13 out nocopy JTF_NUMBER_TABLE
420 , a14 out nocopy JTF_VARCHAR2_TABLE_100
421 , a15 out nocopy JTF_VARCHAR2_TABLE_100
422 , a16 out nocopy JTF_DATE_TABLE
423 , a17 out nocopy JTF_NUMBER_TABLE
424 , a18 out nocopy JTF_DATE_TABLE
425 , a19 out nocopy JTF_NUMBER_TABLE
426 , a20 out nocopy JTF_NUMBER_TABLE
427 , a21 out nocopy JTF_DATE_TABLE
428 , a22 out nocopy JTF_NUMBER_TABLE
429 , a23 out nocopy JTF_NUMBER_TABLE
430 , a24 out nocopy JTF_NUMBER_TABLE
431 , a25 out nocopy JTF_VARCHAR2_TABLE_100
432 , a26 out nocopy JTF_NUMBER_TABLE
433 , a27 out nocopy JTF_VARCHAR2_TABLE_300
434 , a28 out nocopy JTF_VARCHAR2_TABLE_100
435 , a29 out nocopy JTF_VARCHAR2_TABLE_100
436 , a30 out nocopy JTF_VARCHAR2_TABLE_100
437 , a31 out nocopy JTF_NUMBER_TABLE
438 , a32 out nocopy JTF_VARCHAR2_TABLE_100
439 , a33 out nocopy JTF_NUMBER_TABLE
440 , a34 out nocopy JTF_NUMBER_TABLE
441 , a35 out nocopy JTF_VARCHAR2_TABLE_100
442 , a36 out nocopy JTF_VARCHAR2_TABLE_100
443 , a37 out nocopy JTF_VARCHAR2_TABLE_100
444 , a38 out nocopy JTF_NUMBER_TABLE
445 , a39 out nocopy JTF_VARCHAR2_TABLE_100
446 , a40 out nocopy JTF_VARCHAR2_TABLE_100
447 , a41 out nocopy JTF_NUMBER_TABLE
448 ) as
449 ddindx binary_integer; indx binary_integer;
450 begin
451 if t is null or t.count = 0 then
452 a0 := JTF_NUMBER_TABLE();
453 a1 := JTF_NUMBER_TABLE();
454 a2 := JTF_VARCHAR2_TABLE_300();
455 a3 := JTF_VARCHAR2_TABLE_300();
456 a4 := JTF_NUMBER_TABLE();
457 a5 := JTF_VARCHAR2_TABLE_100();
458 a6 := JTF_NUMBER_TABLE();
459 a7 := JTF_NUMBER_TABLE();
460 a8 := JTF_NUMBER_TABLE();
461 a9 := JTF_VARCHAR2_TABLE_100();
462 a10 := JTF_VARCHAR2_TABLE_100();
463 a11 := JTF_NUMBER_TABLE();
464 a12 := JTF_NUMBER_TABLE();
465 a13 := JTF_NUMBER_TABLE();
466 a14 := JTF_VARCHAR2_TABLE_100();
467 a15 := JTF_VARCHAR2_TABLE_100();
471 a19 := JTF_NUMBER_TABLE();
468 a16 := JTF_DATE_TABLE();
469 a17 := JTF_NUMBER_TABLE();
470 a18 := JTF_DATE_TABLE();
472 a20 := JTF_NUMBER_TABLE();
473 a21 := JTF_DATE_TABLE();
474 a22 := JTF_NUMBER_TABLE();
475 a23 := JTF_NUMBER_TABLE();
476 a24 := JTF_NUMBER_TABLE();
477 a25 := JTF_VARCHAR2_TABLE_100();
478 a26 := JTF_NUMBER_TABLE();
479 a27 := JTF_VARCHAR2_TABLE_300();
480 a28 := JTF_VARCHAR2_TABLE_100();
481 a29 := JTF_VARCHAR2_TABLE_100();
482 a30 := JTF_VARCHAR2_TABLE_100();
483 a31 := JTF_NUMBER_TABLE();
484 a32 := JTF_VARCHAR2_TABLE_100();
485 a33 := JTF_NUMBER_TABLE();
486 a34 := JTF_NUMBER_TABLE();
487 a35 := JTF_VARCHAR2_TABLE_100();
488 a36 := JTF_VARCHAR2_TABLE_100();
489 a37 := JTF_VARCHAR2_TABLE_100();
490 a38 := JTF_NUMBER_TABLE();
491 a39 := JTF_VARCHAR2_TABLE_100();
492 a40 := JTF_VARCHAR2_TABLE_100();
493 a41 := JTF_NUMBER_TABLE();
494 else
495 a0 := JTF_NUMBER_TABLE();
496 a1 := JTF_NUMBER_TABLE();
497 a2 := JTF_VARCHAR2_TABLE_300();
498 a3 := JTF_VARCHAR2_TABLE_300();
499 a4 := JTF_NUMBER_TABLE();
500 a5 := JTF_VARCHAR2_TABLE_100();
501 a6 := JTF_NUMBER_TABLE();
502 a7 := JTF_NUMBER_TABLE();
503 a8 := JTF_NUMBER_TABLE();
504 a9 := JTF_VARCHAR2_TABLE_100();
505 a10 := JTF_VARCHAR2_TABLE_100();
506 a11 := JTF_NUMBER_TABLE();
507 a12 := JTF_NUMBER_TABLE();
508 a13 := JTF_NUMBER_TABLE();
509 a14 := JTF_VARCHAR2_TABLE_100();
510 a15 := JTF_VARCHAR2_TABLE_100();
511 a16 := JTF_DATE_TABLE();
512 a17 := JTF_NUMBER_TABLE();
513 a18 := JTF_DATE_TABLE();
514 a19 := JTF_NUMBER_TABLE();
515 a20 := JTF_NUMBER_TABLE();
516 a21 := JTF_DATE_TABLE();
517 a22 := JTF_NUMBER_TABLE();
518 a23 := JTF_NUMBER_TABLE();
519 a24 := JTF_NUMBER_TABLE();
520 a25 := JTF_VARCHAR2_TABLE_100();
521 a26 := JTF_NUMBER_TABLE();
522 a27 := JTF_VARCHAR2_TABLE_300();
523 a28 := JTF_VARCHAR2_TABLE_100();
524 a29 := JTF_VARCHAR2_TABLE_100();
525 a30 := JTF_VARCHAR2_TABLE_100();
526 a31 := JTF_NUMBER_TABLE();
527 a32 := JTF_VARCHAR2_TABLE_100();
528 a33 := JTF_NUMBER_TABLE();
529 a34 := JTF_NUMBER_TABLE();
530 a35 := JTF_VARCHAR2_TABLE_100();
531 a36 := JTF_VARCHAR2_TABLE_100();
532 a37 := JTF_VARCHAR2_TABLE_100();
533 a38 := JTF_NUMBER_TABLE();
534 a39 := JTF_VARCHAR2_TABLE_100();
535 a40 := JTF_VARCHAR2_TABLE_100();
536 a41 := JTF_NUMBER_TABLE();
537 if t.count > 0 then
538 a0.extend(t.count);
539 a1.extend(t.count);
540 a2.extend(t.count);
541 a3.extend(t.count);
542 a4.extend(t.count);
543 a5.extend(t.count);
544 a6.extend(t.count);
545 a7.extend(t.count);
546 a8.extend(t.count);
547 a9.extend(t.count);
548 a10.extend(t.count);
549 a11.extend(t.count);
550 a12.extend(t.count);
551 a13.extend(t.count);
552 a14.extend(t.count);
553 a15.extend(t.count);
554 a16.extend(t.count);
555 a17.extend(t.count);
556 a18.extend(t.count);
557 a19.extend(t.count);
558 a20.extend(t.count);
559 a21.extend(t.count);
560 a22.extend(t.count);
561 a23.extend(t.count);
562 a24.extend(t.count);
563 a25.extend(t.count);
564 a26.extend(t.count);
565 a27.extend(t.count);
566 a28.extend(t.count);
567 a29.extend(t.count);
568 a30.extend(t.count);
569 a31.extend(t.count);
570 a32.extend(t.count);
571 a33.extend(t.count);
572 a34.extend(t.count);
573 a35.extend(t.count);
574 a36.extend(t.count);
575 a37.extend(t.count);
576 a38.extend(t.count);
577 a39.extend(t.count);
578 a40.extend(t.count);
579 a41.extend(t.count);
580 ddindx := t.first;
581 indx := 1;
582 while true loop
583 a0(indx) := t(ddindx).scheduled_material_id;
584 a1(indx) := t(ddindx).inventory_item_id;
585 a2(indx) := t(ddindx).item_name;
586 a3(indx) := t(ddindx).item_desc;
587 a4(indx) := t(ddindx).workorder_id;
588 a5(indx) := t(ddindx).workorder_name;
589 a6(indx) := t(ddindx).wip_entity_id;
590 a7(indx) := t(ddindx).organization_id;
591 a8(indx) := t(ddindx).visit_id;
592 a9(indx) := t(ddindx).wo_status_code;
593 a10(indx) := t(ddindx).wo_status;
594 a11(indx) := t(ddindx).wo_operation_id;
595 a12(indx) := t(ddindx).op_seq;
596 a13(indx) := t(ddindx).quantity;
597 a14(indx) := t(ddindx).uom;
598 a15(indx) := t(ddindx).uom_desc;
599 a16(indx) := t(ddindx).required_date;
600 a17(indx) := t(ddindx).required_quantity;
601 a18(indx) := t(ddindx).scheduled_date;
602 a19(indx) := t(ddindx).scheduled_quantity;
603 a20(indx) := t(ddindx).issued_quantity;
604 a21(indx) := t(ddindx).exception_date;
605 a22(indx) := t(ddindx).reserved_quantity;
606 a23(indx) := t(ddindx).onhand_quantity;
607 a24(indx) := t(ddindx).qty_per_assembly;
608 a25(indx) := t(ddindx).subinventory;
609 a26(indx) := t(ddindx).locator_id;
610 a27(indx) := t(ddindx).locator_segments;
611 a28(indx) := t(ddindx).serial_number;
612 a29(indx) := t(ddindx).lot;
613 a30(indx) := t(ddindx).revision;
614 a31(indx) := t(ddindx).item_source_wo_id;
615 a32(indx) := t(ddindx).item_source_wo_name;
619 a36(indx) := t(ddindx).is_lot_controlled;
616 a33(indx) := t(ddindx).item_source_wop_id;
617 a34(indx) := t(ddindx).item_source_wop_seq;
618 a35(indx) := t(ddindx).is_serialized;
620 a37(indx) := t(ddindx).is_revision_controlled;
621 a38(indx) := t(ddindx).diposition_id;
622 a39(indx) := t(ddindx).diposition_name;
623 a40(indx) := t(ddindx).aog_flag;
624 a41(indx) := t(ddindx).asm_object_version_number;
625 indx := indx+1;
626 if t.last =ddindx
627 then exit;
628 end if;
629 ddindx := t.next(ddindx);
630 end loop;
631 end if;
632 end if;
633 end rosetta_table_copy_out_p4;
634
635 procedure rosetta_table_copy_in_p6(t out nocopy ahl_prd_mrshl_pvt.mrshl_details_tbl_type, a0 JTF_NUMBER_TABLE
636 , a1 JTF_VARCHAR2_TABLE_100
637 , a2 JTF_NUMBER_TABLE
638 , a3 JTF_NUMBER_TABLE
639 , a4 JTF_NUMBER_TABLE
640 , a5 JTF_VARCHAR2_TABLE_300
641 , a6 JTF_VARCHAR2_TABLE_100
642 , a7 JTF_NUMBER_TABLE
643 , a8 JTF_NUMBER_TABLE
644 , a9 JTF_NUMBER_TABLE
645 , a10 JTF_NUMBER_TABLE
646 , a11 JTF_VARCHAR2_TABLE_300
647 , a12 JTF_VARCHAR2_TABLE_100
648 , a13 JTF_NUMBER_TABLE
649 , a14 JTF_NUMBER_TABLE
650 , a15 JTF_NUMBER_TABLE
651 , a16 JTF_NUMBER_TABLE
652 , a17 JTF_NUMBER_TABLE
653 , a18 JTF_NUMBER_TABLE
654 , a19 JTF_NUMBER_TABLE
655 , a20 JTF_NUMBER_TABLE
656 , a21 JTF_NUMBER_TABLE
657 , a22 JTF_NUMBER_TABLE
658 , a23 JTF_NUMBER_TABLE
659 , a24 JTF_NUMBER_TABLE
660 , a25 JTF_NUMBER_TABLE
661 ) as
662 ddindx binary_integer; indx binary_integer;
663 begin
664 if a0 is not null and a0.count > 0 then
665 if a0.count > 0 then
666 indx := a0.first;
667 ddindx := 1;
668 while true loop
669 t(ddindx).unit_header_id := a0(indx);
670 t(ddindx).unit_name := a1(indx);
671 t(ddindx).relationship_id := a2(indx);
672 t(ddindx).parent_rel_id := a3(indx);
673 t(ddindx).root_instance_id := a4(indx);
674 t(ddindx).position := a5(indx);
675 t(ddindx).is_position_ser_ctrld := a6(indx);
676 t(ddindx).curr_item_id := a7(indx);
677 t(ddindx).curr_instance_id := a8(indx);
678 t(ddindx).parent_instance_id := a9(indx);
679 t(ddindx).allowed_qty := a10(indx);
680 t(ddindx).curr_item_number := a11(indx);
681 t(ddindx).curr_serial_number := a12(indx);
682 t(ddindx).curr_instld_qty := a13(indx);
683 t(ddindx).req_qty := a14(indx);
684 t(ddindx).issued_qty := a15(indx);
685 t(ddindx).available_qty := a16(indx);
686 t(ddindx).not_available_qty := a17(indx);
687 t(ddindx).compl_wo_count := a18(indx);
688 t(ddindx).total_wo_count := a19(indx);
689 t(ddindx).cumm_req_qty := a20(indx);
690 t(ddindx).cumm_issued_qty := a21(indx);
691 t(ddindx).cumm_available_qty := a22(indx);
692 t(ddindx).cumm_not_available_qty := a23(indx);
693 t(ddindx).cumm_compl_wo_count := a24(indx);
694 t(ddindx).cumm_total_wo_count := a25(indx);
695 ddindx := ddindx+1;
696 if a0.last =indx
697 then exit;
698 end if;
699 indx := a0.next(indx);
700 end loop;
701 end if;
702 end if;
703 end rosetta_table_copy_in_p6;
704 procedure rosetta_table_copy_out_p6(t ahl_prd_mrshl_pvt.mrshl_details_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
705 , a1 out nocopy JTF_VARCHAR2_TABLE_100
706 , a2 out nocopy JTF_NUMBER_TABLE
707 , a3 out nocopy JTF_NUMBER_TABLE
708 , a4 out nocopy JTF_NUMBER_TABLE
709 , a5 out nocopy JTF_VARCHAR2_TABLE_300
710 , a6 out nocopy JTF_VARCHAR2_TABLE_100
711 , a7 out nocopy JTF_NUMBER_TABLE
712 , a8 out nocopy JTF_NUMBER_TABLE
713 , a9 out nocopy JTF_NUMBER_TABLE
714 , a10 out nocopy JTF_NUMBER_TABLE
715 , a11 out nocopy JTF_VARCHAR2_TABLE_300
716 , a12 out nocopy JTF_VARCHAR2_TABLE_100
717 , a13 out nocopy JTF_NUMBER_TABLE
718 , a14 out nocopy JTF_NUMBER_TABLE
719 , a15 out nocopy JTF_NUMBER_TABLE
720 , a16 out nocopy JTF_NUMBER_TABLE
721 , a17 out nocopy JTF_NUMBER_TABLE
722 , a18 out nocopy JTF_NUMBER_TABLE
723 , a19 out nocopy JTF_NUMBER_TABLE
724 , a20 out nocopy JTF_NUMBER_TABLE
725 , a21 out nocopy JTF_NUMBER_TABLE
726 , a22 out nocopy JTF_NUMBER_TABLE
727 , a23 out nocopy JTF_NUMBER_TABLE
728 , a24 out nocopy JTF_NUMBER_TABLE
729 , a25 out nocopy JTF_NUMBER_TABLE
730 ) as
731 ddindx binary_integer; indx binary_integer;
732 begin
733 if t is null or t.count = 0 then
734 a0 := JTF_NUMBER_TABLE();
735 a1 := JTF_VARCHAR2_TABLE_100();
736 a2 := JTF_NUMBER_TABLE();
737 a3 := JTF_NUMBER_TABLE();
738 a4 := JTF_NUMBER_TABLE();
739 a5 := JTF_VARCHAR2_TABLE_300();
740 a6 := JTF_VARCHAR2_TABLE_100();
741 a7 := JTF_NUMBER_TABLE();
742 a8 := JTF_NUMBER_TABLE();
743 a9 := JTF_NUMBER_TABLE();
744 a10 := JTF_NUMBER_TABLE();
745 a11 := JTF_VARCHAR2_TABLE_300();
746 a12 := JTF_VARCHAR2_TABLE_100();
747 a13 := JTF_NUMBER_TABLE();
748 a14 := JTF_NUMBER_TABLE();
749 a15 := JTF_NUMBER_TABLE();
750 a16 := JTF_NUMBER_TABLE();
751 a17 := JTF_NUMBER_TABLE();
752 a18 := JTF_NUMBER_TABLE();
753 a19 := JTF_NUMBER_TABLE();
754 a20 := JTF_NUMBER_TABLE();
755 a21 := JTF_NUMBER_TABLE();
756 a22 := JTF_NUMBER_TABLE();
757 a23 := JTF_NUMBER_TABLE();
758 a24 := JTF_NUMBER_TABLE();
759 a25 := JTF_NUMBER_TABLE();
760 else
761 a0 := JTF_NUMBER_TABLE();
765 a4 := JTF_NUMBER_TABLE();
762 a1 := JTF_VARCHAR2_TABLE_100();
763 a2 := JTF_NUMBER_TABLE();
764 a3 := JTF_NUMBER_TABLE();
766 a5 := JTF_VARCHAR2_TABLE_300();
767 a6 := JTF_VARCHAR2_TABLE_100();
768 a7 := JTF_NUMBER_TABLE();
769 a8 := JTF_NUMBER_TABLE();
770 a9 := JTF_NUMBER_TABLE();
771 a10 := JTF_NUMBER_TABLE();
772 a11 := JTF_VARCHAR2_TABLE_300();
773 a12 := JTF_VARCHAR2_TABLE_100();
774 a13 := JTF_NUMBER_TABLE();
775 a14 := JTF_NUMBER_TABLE();
776 a15 := JTF_NUMBER_TABLE();
777 a16 := JTF_NUMBER_TABLE();
778 a17 := JTF_NUMBER_TABLE();
779 a18 := JTF_NUMBER_TABLE();
780 a19 := JTF_NUMBER_TABLE();
781 a20 := JTF_NUMBER_TABLE();
782 a21 := JTF_NUMBER_TABLE();
783 a22 := JTF_NUMBER_TABLE();
784 a23 := JTF_NUMBER_TABLE();
785 a24 := JTF_NUMBER_TABLE();
786 a25 := JTF_NUMBER_TABLE();
787 if t.count > 0 then
788 a0.extend(t.count);
789 a1.extend(t.count);
790 a2.extend(t.count);
791 a3.extend(t.count);
792 a4.extend(t.count);
793 a5.extend(t.count);
794 a6.extend(t.count);
795 a7.extend(t.count);
796 a8.extend(t.count);
797 a9.extend(t.count);
798 a10.extend(t.count);
799 a11.extend(t.count);
800 a12.extend(t.count);
801 a13.extend(t.count);
802 a14.extend(t.count);
803 a15.extend(t.count);
804 a16.extend(t.count);
805 a17.extend(t.count);
806 a18.extend(t.count);
807 a19.extend(t.count);
808 a20.extend(t.count);
809 a21.extend(t.count);
810 a22.extend(t.count);
811 a23.extend(t.count);
812 a24.extend(t.count);
813 a25.extend(t.count);
814 ddindx := t.first;
815 indx := 1;
816 while true loop
817 a0(indx) := t(ddindx).unit_header_id;
818 a1(indx) := t(ddindx).unit_name;
819 a2(indx) := t(ddindx).relationship_id;
820 a3(indx) := t(ddindx).parent_rel_id;
821 a4(indx) := t(ddindx).root_instance_id;
822 a5(indx) := t(ddindx).position;
823 a6(indx) := t(ddindx).is_position_ser_ctrld;
824 a7(indx) := t(ddindx).curr_item_id;
825 a8(indx) := t(ddindx).curr_instance_id;
826 a9(indx) := t(ddindx).parent_instance_id;
827 a10(indx) := t(ddindx).allowed_qty;
828 a11(indx) := t(ddindx).curr_item_number;
829 a12(indx) := t(ddindx).curr_serial_number;
830 a13(indx) := t(ddindx).curr_instld_qty;
831 a14(indx) := t(ddindx).req_qty;
832 a15(indx) := t(ddindx).issued_qty;
833 a16(indx) := t(ddindx).available_qty;
834 a17(indx) := t(ddindx).not_available_qty;
835 a18(indx) := t(ddindx).compl_wo_count;
836 a19(indx) := t(ddindx).total_wo_count;
837 a20(indx) := t(ddindx).cumm_req_qty;
838 a21(indx) := t(ddindx).cumm_issued_qty;
839 a22(indx) := t(ddindx).cumm_available_qty;
840 a23(indx) := t(ddindx).cumm_not_available_qty;
841 a24(indx) := t(ddindx).cumm_compl_wo_count;
842 a25(indx) := t(ddindx).cumm_total_wo_count;
843 indx := indx+1;
844 if t.last =ddindx
845 then exit;
846 end if;
847 ddindx := t.next(ddindx);
848 end loop;
849 end if;
850 end if;
851 end rosetta_table_copy_out_p6;
852
853 procedure get_unavailable_items(p_api_version NUMBER
854 , p_init_msg_list VARCHAR2
855 , p_commit VARCHAR2
856 , p_validation_level NUMBER
857 , p_default VARCHAR2
858 , p_module_type VARCHAR2
859 , p6_a0 NUMBER
860 , p6_a1 NUMBER
861 , p6_a2 NUMBER
862 , p6_a3 VARCHAR2
863 , p6_a4 VARCHAR2
864 , p6_a5 VARCHAR2
865 , p6_a6 VARCHAR2
866 , p7_a0 out nocopy JTF_NUMBER_TABLE
867 , p7_a1 out nocopy JTF_NUMBER_TABLE
868 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_300
869 , p7_a3 out nocopy JTF_VARCHAR2_TABLE_300
870 , p7_a4 out nocopy JTF_NUMBER_TABLE
871 , p7_a5 out nocopy JTF_VARCHAR2_TABLE_100
872 , p7_a6 out nocopy JTF_NUMBER_TABLE
873 , p7_a7 out nocopy JTF_NUMBER_TABLE
874 , p7_a8 out nocopy JTF_NUMBER_TABLE
875 , p7_a9 out nocopy JTF_VARCHAR2_TABLE_100
876 , p7_a10 out nocopy JTF_VARCHAR2_TABLE_100
877 , p7_a11 out nocopy JTF_NUMBER_TABLE
878 , p7_a12 out nocopy JTF_NUMBER_TABLE
879 , p7_a13 out nocopy JTF_NUMBER_TABLE
880 , p7_a14 out nocopy JTF_VARCHAR2_TABLE_100
881 , p7_a15 out nocopy JTF_VARCHAR2_TABLE_100
882 , p7_a16 out nocopy JTF_DATE_TABLE
883 , p7_a17 out nocopy JTF_NUMBER_TABLE
884 , p7_a18 out nocopy JTF_NUMBER_TABLE
885 , p7_a19 out nocopy JTF_DATE_TABLE
886 , p7_a20 out nocopy JTF_NUMBER_TABLE
887 , p7_a21 out nocopy JTF_DATE_TABLE
888 , p7_a22 out nocopy JTF_NUMBER_TABLE
889 , p7_a23 out nocopy JTF_NUMBER_TABLE
890 , p7_a24 out nocopy JTF_NUMBER_TABLE
891 , p7_a25 out nocopy JTF_VARCHAR2_TABLE_100
892 , p7_a26 out nocopy JTF_NUMBER_TABLE
893 , p7_a27 out nocopy JTF_VARCHAR2_TABLE_300
894 , p7_a28 out nocopy JTF_VARCHAR2_TABLE_100
895 , p7_a29 out nocopy JTF_VARCHAR2_TABLE_100
896 , p7_a30 out nocopy JTF_VARCHAR2_TABLE_100
897 , p7_a31 out nocopy JTF_VARCHAR2_TABLE_100
898 , p7_a32 out nocopy JTF_VARCHAR2_TABLE_100
899 , p7_a33 out nocopy JTF_VARCHAR2_TABLE_100
900 , p7_a34 out nocopy JTF_NUMBER_TABLE
901 , p7_a35 out nocopy JTF_VARCHAR2_TABLE_100
902 , p7_a36 out nocopy JTF_VARCHAR2_TABLE_100
903 , p7_a37 out nocopy JTF_NUMBER_TABLE
904 , x_return_status out nocopy VARCHAR2
905 , x_msg_count out nocopy NUMBER
909 as
906 , x_msg_data out nocopy VARCHAR2
907 )
908
910 ddp_mrshl_search_rec ahl_prd_mrshl_pvt.mrshl_search_rec_type;
911 ddx_unavailable_items_tbl ahl_prd_mrshl_pvt.unavailable_items_tbl_type;
912 ddindx binary_integer; indx binary_integer;
913 begin
914
915 -- copy data to the local IN or IN-OUT args, if any
916
917
918
919
920
921
922 ddp_mrshl_search_rec.visit_id := p6_a0;
923 ddp_mrshl_search_rec.item_instance_id := p6_a1;
924 ddp_mrshl_search_rec.workorder_id := p6_a2;
925 ddp_mrshl_search_rec.workorder_name := p6_a3;
926 ddp_mrshl_search_rec.item_name := p6_a4;
927 ddp_mrshl_search_rec.item_desc := p6_a5;
928 ddp_mrshl_search_rec.search_mode := p6_a6;
929
930
931
932
933
934 -- here's the delegated call to the old PL/SQL routine
935 ahl_prd_mrshl_pvt.get_unavailable_items(p_api_version,
936 p_init_msg_list,
937 p_commit,
938 p_validation_level,
939 p_default,
940 p_module_type,
941 ddp_mrshl_search_rec,
942 ddx_unavailable_items_tbl,
943 x_return_status,
944 x_msg_count,
945 x_msg_data);
946
947 -- copy data back from the local variables to OUT or IN-OUT args, if any
948
949
950
951
952
953
954
955 ahl_prd_mrshl_pvt_w.rosetta_table_copy_out_p2(ddx_unavailable_items_tbl, p7_a0
956 , p7_a1
957 , p7_a2
958 , p7_a3
959 , p7_a4
960 , p7_a5
961 , p7_a6
962 , p7_a7
963 , p7_a8
964 , p7_a9
965 , p7_a10
966 , p7_a11
967 , p7_a12
968 , p7_a13
969 , p7_a14
970 , p7_a15
971 , p7_a16
972 , p7_a17
973 , p7_a18
974 , p7_a19
975 , p7_a20
976 , p7_a21
977 , p7_a22
978 , p7_a23
979 , p7_a24
980 , p7_a25
981 , p7_a26
982 , p7_a27
983 , p7_a28
984 , p7_a29
985 , p7_a30
986 , p7_a31
987 , p7_a32
988 , p7_a33
989 , p7_a34
990 , p7_a35
991 , p7_a36
992 , p7_a37
993 );
994
995
996
997 end;
998
999 procedure get_available_items(p_api_version NUMBER
1000 , p_init_msg_list VARCHAR2
1001 , p_commit VARCHAR2
1002 , p_validation_level NUMBER
1003 , p_default VARCHAR2
1004 , p_module_type VARCHAR2
1005 , p6_a0 NUMBER
1006 , p6_a1 NUMBER
1007 , p6_a2 NUMBER
1008 , p6_a3 VARCHAR2
1009 , p6_a4 VARCHAR2
1010 , p6_a5 VARCHAR2
1011 , p6_a6 VARCHAR2
1012 , p7_a0 out nocopy JTF_NUMBER_TABLE
1013 , p7_a1 out nocopy JTF_NUMBER_TABLE
1014 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_300
1015 , p7_a3 out nocopy JTF_VARCHAR2_TABLE_300
1016 , p7_a4 out nocopy JTF_NUMBER_TABLE
1017 , p7_a5 out nocopy JTF_VARCHAR2_TABLE_100
1018 , p7_a6 out nocopy JTF_NUMBER_TABLE
1019 , p7_a7 out nocopy JTF_NUMBER_TABLE
1020 , p7_a8 out nocopy JTF_NUMBER_TABLE
1021 , p7_a9 out nocopy JTF_VARCHAR2_TABLE_100
1022 , p7_a10 out nocopy JTF_VARCHAR2_TABLE_100
1023 , p7_a11 out nocopy JTF_NUMBER_TABLE
1024 , p7_a12 out nocopy JTF_NUMBER_TABLE
1025 , p7_a13 out nocopy JTF_NUMBER_TABLE
1026 , p7_a14 out nocopy JTF_VARCHAR2_TABLE_100
1027 , p7_a15 out nocopy JTF_VARCHAR2_TABLE_100
1028 , p7_a16 out nocopy JTF_DATE_TABLE
1029 , p7_a17 out nocopy JTF_NUMBER_TABLE
1030 , p7_a18 out nocopy JTF_DATE_TABLE
1031 , p7_a19 out nocopy JTF_NUMBER_TABLE
1032 , p7_a20 out nocopy JTF_NUMBER_TABLE
1033 , p7_a21 out nocopy JTF_DATE_TABLE
1034 , p7_a22 out nocopy JTF_NUMBER_TABLE
1035 , p7_a23 out nocopy JTF_NUMBER_TABLE
1036 , p7_a24 out nocopy JTF_NUMBER_TABLE
1037 , p7_a25 out nocopy JTF_VARCHAR2_TABLE_100
1038 , p7_a26 out nocopy JTF_NUMBER_TABLE
1039 , p7_a27 out nocopy JTF_VARCHAR2_TABLE_300
1040 , p7_a28 out nocopy JTF_VARCHAR2_TABLE_100
1041 , p7_a29 out nocopy JTF_VARCHAR2_TABLE_100
1042 , p7_a30 out nocopy JTF_VARCHAR2_TABLE_100
1043 , p7_a31 out nocopy JTF_NUMBER_TABLE
1044 , p7_a32 out nocopy JTF_VARCHAR2_TABLE_100
1045 , p7_a33 out nocopy JTF_NUMBER_TABLE
1046 , p7_a34 out nocopy JTF_NUMBER_TABLE
1047 , p7_a35 out nocopy JTF_VARCHAR2_TABLE_100
1048 , p7_a36 out nocopy JTF_VARCHAR2_TABLE_100
1049 , p7_a37 out nocopy JTF_VARCHAR2_TABLE_100
1050 , p7_a38 out nocopy JTF_NUMBER_TABLE
1051 , p7_a39 out nocopy JTF_VARCHAR2_TABLE_100
1052 , p7_a40 out nocopy JTF_VARCHAR2_TABLE_100
1053 , p7_a41 out nocopy JTF_NUMBER_TABLE
1054 , x_return_status out nocopy VARCHAR2
1055 , x_msg_count out nocopy NUMBER
1056 , x_msg_data out nocopy VARCHAR2
1057 )
1058
1059 as
1060 ddp_mrshl_search_rec ahl_prd_mrshl_pvt.mrshl_search_rec_type;
1061 ddx_available_items_tbl ahl_prd_mrshl_pvt.available_items_tbl_type;
1062 ddindx binary_integer; indx binary_integer;
1063 begin
1064
1065 -- copy data to the local IN or IN-OUT args, if any
1066
1067
1068
1069
1070
1071
1072 ddp_mrshl_search_rec.visit_id := p6_a0;
1073 ddp_mrshl_search_rec.item_instance_id := p6_a1;
1074 ddp_mrshl_search_rec.workorder_id := p6_a2;
1075 ddp_mrshl_search_rec.workorder_name := p6_a3;
1076 ddp_mrshl_search_rec.item_name := p6_a4;
1077 ddp_mrshl_search_rec.item_desc := p6_a5;
1078 ddp_mrshl_search_rec.search_mode := p6_a6;
1079
1080
1081
1082
1083
1084 -- here's the delegated call to the old PL/SQL routine
1085 ahl_prd_mrshl_pvt.get_available_items(p_api_version,
1086 p_init_msg_list,
1087 p_commit,
1088 p_validation_level,
1089 p_default,
1090 p_module_type,
1091 ddp_mrshl_search_rec,
1092 ddx_available_items_tbl,
1093 x_return_status,
1094 x_msg_count,
1095 x_msg_data);
1096
1097 -- copy data back from the local variables to OUT or IN-OUT args, if any
1098
1099
1100
1101
1102
1103
1104
1105 ahl_prd_mrshl_pvt_w.rosetta_table_copy_out_p4(ddx_available_items_tbl, p7_a0
1106 , p7_a1
1107 , p7_a2
1108 , p7_a3
1109 , p7_a4
1110 , p7_a5
1111 , p7_a6
1112 , p7_a7
1113 , p7_a8
1114 , p7_a9
1115 , p7_a10
1116 , p7_a11
1117 , p7_a12
1118 , p7_a13
1119 , p7_a14
1120 , p7_a15
1121 , p7_a16
1122 , p7_a17
1123 , p7_a18
1124 , p7_a19
1125 , p7_a20
1126 , p7_a21
1127 , p7_a22
1128 , p7_a23
1129 , p7_a24
1130 , p7_a25
1131 , p7_a26
1132 , p7_a27
1133 , p7_a28
1134 , p7_a29
1135 , p7_a30
1136 , p7_a31
1137 , p7_a32
1138 , p7_a33
1139 , p7_a34
1140 , p7_a35
1141 , p7_a36
1142 , p7_a37
1143 , p7_a38
1144 , p7_a39
1145 , p7_a40
1146 , p7_a41
1147 );
1148
1149
1150
1151 end;
1152
1153 procedure get_mrshl_details(p_api_version NUMBER
1154 , p_init_msg_list VARCHAR2
1155 , p_commit VARCHAR2
1156 , p_validation_level NUMBER
1157 , p_default VARCHAR2
1158 , p_module_type VARCHAR2
1159 , p_unit_header_id NUMBER
1160 , p_item_instance_id NUMBER
1161 , p_visit_id NUMBER
1162 , p9_a0 out nocopy JTF_NUMBER_TABLE
1163 , p9_a1 out nocopy JTF_VARCHAR2_TABLE_100
1164 , p9_a2 out nocopy JTF_NUMBER_TABLE
1165 , p9_a3 out nocopy JTF_NUMBER_TABLE
1166 , p9_a4 out nocopy JTF_NUMBER_TABLE
1167 , p9_a5 out nocopy JTF_VARCHAR2_TABLE_300
1168 , p9_a6 out nocopy JTF_VARCHAR2_TABLE_100
1169 , p9_a7 out nocopy JTF_NUMBER_TABLE
1170 , p9_a8 out nocopy JTF_NUMBER_TABLE
1171 , p9_a9 out nocopy JTF_NUMBER_TABLE
1172 , p9_a10 out nocopy JTF_NUMBER_TABLE
1173 , p9_a11 out nocopy JTF_VARCHAR2_TABLE_300
1174 , p9_a12 out nocopy JTF_VARCHAR2_TABLE_100
1175 , p9_a13 out nocopy JTF_NUMBER_TABLE
1176 , p9_a14 out nocopy JTF_NUMBER_TABLE
1177 , p9_a15 out nocopy JTF_NUMBER_TABLE
1178 , p9_a16 out nocopy JTF_NUMBER_TABLE
1179 , p9_a17 out nocopy JTF_NUMBER_TABLE
1180 , p9_a18 out nocopy JTF_NUMBER_TABLE
1181 , p9_a19 out nocopy JTF_NUMBER_TABLE
1182 , p9_a20 out nocopy JTF_NUMBER_TABLE
1183 , p9_a21 out nocopy JTF_NUMBER_TABLE
1184 , p9_a22 out nocopy JTF_NUMBER_TABLE
1185 , p9_a23 out nocopy JTF_NUMBER_TABLE
1186 , p9_a24 out nocopy JTF_NUMBER_TABLE
1187 , p9_a25 out nocopy JTF_NUMBER_TABLE
1188 , x_return_status out nocopy VARCHAR2
1189 , x_msg_count out nocopy NUMBER
1190 , x_msg_data out nocopy VARCHAR2
1191 )
1192
1193 as
1194 ddx_mrshl_details_tbl ahl_prd_mrshl_pvt.mrshl_details_tbl_type;
1195 ddindx binary_integer; indx binary_integer;
1196 begin
1197
1198 -- copy data to the local IN or IN-OUT args, if any
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212 -- here's the delegated call to the old PL/SQL routine
1213 ahl_prd_mrshl_pvt.get_mrshl_details(p_api_version,
1214 p_init_msg_list,
1215 p_commit,
1216 p_validation_level,
1217 p_default,
1218 p_module_type,
1219 p_unit_header_id,
1220 p_item_instance_id,
1221 p_visit_id,
1222 ddx_mrshl_details_tbl,
1223 x_return_status,
1224 x_msg_count,
1225 x_msg_data);
1226
1227 -- copy data back from the local variables to OUT or IN-OUT args, if any
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237 ahl_prd_mrshl_pvt_w.rosetta_table_copy_out_p6(ddx_mrshl_details_tbl, p9_a0
1238 , p9_a1
1239 , p9_a2
1240 , p9_a3
1241 , p9_a4
1242 , p9_a5
1243 , p9_a6
1244 , p9_a7
1245 , p9_a8
1246 , p9_a9
1247 , p9_a10
1248 , p9_a11
1249 , p9_a12
1250 , p9_a13
1251 , p9_a14
1252 , p9_a15
1253 , p9_a16
1254 , p9_a17
1255 , p9_a18
1256 , p9_a19
1257 , p9_a20
1258 , p9_a21
1259 , p9_a22
1260 , p9_a23
1261 , p9_a24
1262 , p9_a25
1263 );
1264
1265
1266
1267 end;
1268
1269 end ahl_prd_mrshl_pvt_w;