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