[Home] [Help]
PACKAGE BODY: APPS.AHL_MM_MTL_MGT_PVT_W
Source
1 package body ahl_mm_mtl_mgt_pvt_w as
2 /* $Header: AHLWMMGB.pls 120.0.12020000.2 2012/12/13 05:58:33 shnatu noship $ */
3 procedure rosetta_table_copy_in_p2(t out nocopy ahl_mm_mtl_mgt_pvt.oaf_varchar2_table_100, a0 JTF_VARCHAR2_TABLE_100) as
4 ddindx binary_integer; indx binary_integer;
5 begin
6 if a0 is null then
7 t := null;
8 elsif a0.count = 0 then
9 t := ahl_mm_mtl_mgt_pvt.oaf_varchar2_table_100();
10 else
11 if a0.count > 0 then
12 t := ahl_mm_mtl_mgt_pvt.oaf_varchar2_table_100();
13 t.extend(a0.count);
14 indx := a0.first;
15 ddindx := 1;
16 while true loop
17 t(ddindx) := a0(indx);
18 ddindx := ddindx+1;
19 if a0.last =indx
20 then exit;
21 end if;
22 indx := a0.next(indx);
23 end loop;
24 end if;
25 end if;
26 end rosetta_table_copy_in_p2;
27 procedure rosetta_table_copy_out_p2(t ahl_mm_mtl_mgt_pvt.oaf_varchar2_table_100, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
28 ddindx binary_integer; indx binary_integer;
29 begin
30 if t is null then
31 a0 := null;
32 elsif t.count = 0 then
33 a0 := JTF_VARCHAR2_TABLE_100();
34 else
35 a0 := JTF_VARCHAR2_TABLE_100();
36 if t.count > 0 then
37 a0.extend(t.count);
38 ddindx := t.first;
39 indx := 1;
40 while true loop
41 a0(indx) := t(ddindx);
42 indx := indx+1;
43 if t.last =ddindx
44 then exit;
45 end if;
46 ddindx := t.next(ddindx);
47 end loop;
48 end if;
49 end if;
50 end rosetta_table_copy_out_p2;
51
52 procedure rosetta_table_copy_in_p3(t out nocopy ahl_mm_mtl_mgt_pvt.oaf_number_table, a0 JTF_NUMBER_TABLE) as
53 ddindx binary_integer; indx binary_integer;
54 begin
55 if a0 is null then
56 t := null;
57 elsif a0.count = 0 then
58 t := ahl_mm_mtl_mgt_pvt.oaf_number_table();
59 else
60 if a0.count > 0 then
61 t := ahl_mm_mtl_mgt_pvt.oaf_number_table();
62 t.extend(a0.count);
63 indx := a0.first;
64 ddindx := 1;
65 while true loop
66 t(ddindx) := a0(indx);
67 ddindx := ddindx+1;
68 if a0.last =indx
69 then exit;
70 end if;
71 indx := a0.next(indx);
72 end loop;
73 end if;
74 end if;
75 end rosetta_table_copy_in_p3;
76 procedure rosetta_table_copy_out_p3(t ahl_mm_mtl_mgt_pvt.oaf_number_table, a0 out nocopy JTF_NUMBER_TABLE) as
77 ddindx binary_integer; indx binary_integer;
78 begin
79 if t is null then
80 a0 := null;
81 elsif t.count = 0 then
82 a0 := JTF_NUMBER_TABLE();
83 else
84 a0 := JTF_NUMBER_TABLE();
85 if t.count > 0 then
86 a0.extend(t.count);
87 ddindx := t.first;
88 indx := 1;
89 while true loop
90 a0(indx) := t(ddindx);
91 indx := indx+1;
92 if t.last =ddindx
93 then exit;
94 end if;
95 ddindx := t.next(ddindx);
96 end loop;
97 end if;
98 end if;
99 end rosetta_table_copy_out_p3;
100
101 procedure rosetta_table_copy_in_p10(t out nocopy ahl_mm_mtl_mgt_pvt.ahl_mtltfr_tbl_type, a0 JTF_NUMBER_TABLE
102 , a1 JTF_VARCHAR2_TABLE_100
103 , a2 JTF_NUMBER_TABLE
104 , a3 JTF_VARCHAR2_TABLE_100
105 , a4 JTF_NUMBER_TABLE
106 , a5 JTF_NUMBER_TABLE
107 , a6 JTF_VARCHAR2_TABLE_100
108 , a7 JTF_NUMBER_TABLE
109 , a8 JTF_NUMBER_TABLE
110 , a9 JTF_VARCHAR2_TABLE_100
111 , a10 JTF_VARCHAR2_TABLE_100
112 , a11 JTF_VARCHAR2_TABLE_100
113 , a12 JTF_VARCHAR2_TABLE_100
114 ) as
115 ddindx binary_integer; indx binary_integer;
116 begin
117 if a0 is not null and a0.count=0 then
118 t := ahl_mm_mtl_mgt_pvt.ahl_mtltfr_tbl_type();
119 elsif a0 is not null and a0.count > 0 then
120 if a0.count > 0 then
121 t := ahl_mm_mtl_mgt_pvt.ahl_mtltfr_tbl_type();
122 t.extend(a0.count);
123 indx := a0.first;
124 ddindx := 1;
125 while true loop
126 t(ddindx).inventory_item_id := a0(indx);
127 t(ddindx).revision := a1(indx);
128 t(ddindx).source_org_id := a2(indx);
129 t(ddindx).source_subinv_name := a3(indx);
130 t(ddindx).source_locator_id := a4(indx);
131 t(ddindx).dest_org_id := a5(indx);
132 t(ddindx).dest_subinv_name := a6(indx);
133 t(ddindx).dest_locator_id := a7(indx);
134 t(ddindx).quantity := a8(indx);
135 t(ddindx).uom := a9(indx);
136 t(ddindx).serial_number := a10(indx);
137 t(ddindx).lot_number := a11(indx);
138 t(ddindx).shipment_number := a12(indx);
139 ddindx := ddindx+1;
140 if a0.last =indx
141 then exit;
142 end if;
143 indx := a0.next(indx);
144 end loop;
145 end if;
146 end if;
147 end rosetta_table_copy_in_p10;
148 procedure rosetta_table_copy_out_p10(t ahl_mm_mtl_mgt_pvt.ahl_mtltfr_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
149 , a1 out nocopy JTF_VARCHAR2_TABLE_100
150 , a2 out nocopy JTF_NUMBER_TABLE
151 , a3 out nocopy JTF_VARCHAR2_TABLE_100
152 , a4 out nocopy JTF_NUMBER_TABLE
153 , a5 out nocopy JTF_NUMBER_TABLE
154 , a6 out nocopy JTF_VARCHAR2_TABLE_100
155 , a7 out nocopy JTF_NUMBER_TABLE
156 , a8 out nocopy JTF_NUMBER_TABLE
157 , a9 out nocopy JTF_VARCHAR2_TABLE_100
158 , a10 out nocopy JTF_VARCHAR2_TABLE_100
159 , a11 out nocopy JTF_VARCHAR2_TABLE_100
160 , a12 out nocopy JTF_VARCHAR2_TABLE_100
161 ) as
162 ddindx binary_integer; indx binary_integer;
163 begin
164 if t is null then
165 a0 := null;
166 a1 := null;
167 a2 := null;
168 a3 := null;
169 a4 := null;
170 a5 := null;
171 a6 := null;
172 a7 := null;
173 a8 := null;
174 a9 := null;
175 a10 := null;
176 a11 := null;
177 a12 := null;
178 elsif t.count = 0 then
179 a0 := JTF_NUMBER_TABLE();
180 a1 := JTF_VARCHAR2_TABLE_100();
181 a2 := JTF_NUMBER_TABLE();
182 a3 := JTF_VARCHAR2_TABLE_100();
183 a4 := JTF_NUMBER_TABLE();
184 a5 := JTF_NUMBER_TABLE();
185 a6 := JTF_VARCHAR2_TABLE_100();
186 a7 := JTF_NUMBER_TABLE();
187 a8 := JTF_NUMBER_TABLE();
188 a9 := JTF_VARCHAR2_TABLE_100();
189 a10 := JTF_VARCHAR2_TABLE_100();
190 a11 := JTF_VARCHAR2_TABLE_100();
191 a12 := JTF_VARCHAR2_TABLE_100();
192 else
193 a0 := JTF_NUMBER_TABLE();
194 a1 := JTF_VARCHAR2_TABLE_100();
195 a2 := JTF_NUMBER_TABLE();
196 a3 := JTF_VARCHAR2_TABLE_100();
197 a4 := JTF_NUMBER_TABLE();
198 a5 := JTF_NUMBER_TABLE();
199 a6 := JTF_VARCHAR2_TABLE_100();
200 a7 := JTF_NUMBER_TABLE();
201 a8 := JTF_NUMBER_TABLE();
202 a9 := JTF_VARCHAR2_TABLE_100();
203 a10 := JTF_VARCHAR2_TABLE_100();
204 a11 := JTF_VARCHAR2_TABLE_100();
205 a12 := JTF_VARCHAR2_TABLE_100();
206 if t.count > 0 then
207 a0.extend(t.count);
208 a1.extend(t.count);
209 a2.extend(t.count);
210 a3.extend(t.count);
211 a4.extend(t.count);
212 a5.extend(t.count);
213 a6.extend(t.count);
214 a7.extend(t.count);
215 a8.extend(t.count);
216 a9.extend(t.count);
217 a10.extend(t.count);
218 a11.extend(t.count);
219 a12.extend(t.count);
220 ddindx := t.first;
221 indx := 1;
222 while true loop
223 a0(indx) := t(ddindx).inventory_item_id;
224 a1(indx) := t(ddindx).revision;
225 a2(indx) := t(ddindx).source_org_id;
226 a3(indx) := t(ddindx).source_subinv_name;
227 a4(indx) := t(ddindx).source_locator_id;
228 a5(indx) := t(ddindx).dest_org_id;
229 a6(indx) := t(ddindx).dest_subinv_name;
230 a7(indx) := t(ddindx).dest_locator_id;
231 a8(indx) := t(ddindx).quantity;
232 a9(indx) := t(ddindx).uom;
233 a10(indx) := t(ddindx).serial_number;
234 a11(indx) := t(ddindx).lot_number;
235 a12(indx) := t(ddindx).shipment_number;
236 indx := indx+1;
237 if t.last =ddindx
238 then exit;
239 end if;
240 ddindx := t.next(ddindx);
241 end loop;
242 end if;
243 end if;
244 end rosetta_table_copy_out_p10;
245
246 procedure rosetta_table_copy_in_p11(t out nocopy ahl_mm_mtl_mgt_pvt.mtl_avl_schld_tbl, a0 JTF_NUMBER_TABLE
247 , a1 JTF_NUMBER_TABLE
248 , a2 JTF_DATE_TABLE
249 , a3 JTF_NUMBER_TABLE
250 , a4 JTF_VARCHAR2_TABLE_2000
251 ) as
252 ddindx binary_integer; indx binary_integer;
253 begin
254 if a0 is not null and a0.count > 0 then
255 if a0.count > 0 then
256 indx := a0.first;
257 ddindx := 1;
258 while true loop
259 t(ddindx).schedule_material_id := a0(indx);
260 t(ddindx).available_quantity := a1(indx);
261 t(ddindx).avl_sch_date := a2(indx);
262 t(ddindx).error_code := a3(indx);
263 t(ddindx).error_message := a4(indx);
264 ddindx := ddindx+1;
265 if a0.last =indx
266 then exit;
267 end if;
268 indx := a0.next(indx);
269 end loop;
270 end if;
271 end if;
272 end rosetta_table_copy_in_p11;
273 procedure rosetta_table_copy_out_p11(t ahl_mm_mtl_mgt_pvt.mtl_avl_schld_tbl, a0 out nocopy JTF_NUMBER_TABLE
274 , a1 out nocopy JTF_NUMBER_TABLE
275 , a2 out nocopy JTF_DATE_TABLE
276 , a3 out nocopy JTF_NUMBER_TABLE
277 , a4 out nocopy JTF_VARCHAR2_TABLE_2000
278 ) as
279 ddindx binary_integer; indx binary_integer;
280 begin
281 if t is null or t.count = 0 then
282 a0 := JTF_NUMBER_TABLE();
283 a1 := JTF_NUMBER_TABLE();
284 a2 := JTF_DATE_TABLE();
285 a3 := JTF_NUMBER_TABLE();
286 a4 := JTF_VARCHAR2_TABLE_2000();
287 else
288 a0 := JTF_NUMBER_TABLE();
289 a1 := JTF_NUMBER_TABLE();
290 a2 := JTF_DATE_TABLE();
291 a3 := JTF_NUMBER_TABLE();
292 a4 := JTF_VARCHAR2_TABLE_2000();
293 if t.count > 0 then
294 a0.extend(t.count);
295 a1.extend(t.count);
296 a2.extend(t.count);
297 a3.extend(t.count);
298 a4.extend(t.count);
299 ddindx := t.first;
300 indx := 1;
301 while true loop
302 a0(indx) := t(ddindx).schedule_material_id;
303 a1(indx) := t(ddindx).available_quantity;
304 a2(indx) := t(ddindx).avl_sch_date;
305 a3(indx) := t(ddindx).error_code;
306 a4(indx) := t(ddindx).error_message;
307 indx := indx+1;
308 if t.last =ddindx
309 then exit;
310 end if;
311 ddindx := t.next(ddindx);
312 end loop;
313 end if;
314 end if;
315 end rosetta_table_copy_out_p11;
316
317 procedure rosetta_table_copy_in_p12(t out nocopy ahl_mm_mtl_mgt_pvt.number_table_type, a0 JTF_NUMBER_TABLE) as
318 ddindx binary_integer; indx binary_integer;
319 begin
320 if a0 is not null and a0.count > 0 then
321 if a0.count > 0 then
322 indx := a0.first;
323 ddindx := 1;
324 while true loop
325 t(ddindx) := a0(indx);
326 ddindx := ddindx+1;
327 if a0.last =indx
328 then exit;
329 end if;
330 indx := a0.next(indx);
331 end loop;
332 end if;
333 end if;
334 end rosetta_table_copy_in_p12;
335 procedure rosetta_table_copy_out_p12(t ahl_mm_mtl_mgt_pvt.number_table_type, a0 out nocopy JTF_NUMBER_TABLE) as
336 ddindx binary_integer; indx binary_integer;
337 begin
338 if t is null or t.count = 0 then
339 a0 := JTF_NUMBER_TABLE();
340 else
341 a0 := JTF_NUMBER_TABLE();
342 if t.count > 0 then
343 a0.extend(t.count);
344 ddindx := t.first;
345 indx := 1;
349 if t.last =ddindx
346 while true loop
347 a0(indx) := t(ddindx);
348 indx := indx+1;
350 then exit;
351 end if;
352 ddindx := t.next(ddindx);
353 end loop;
354 end if;
355 end if;
356 end rosetta_table_copy_out_p12;
357
358 procedure rosetta_table_copy_in_p13(t out nocopy ahl_mm_mtl_mgt_pvt.supply_tbl_type, a0 JTF_NUMBER_TABLE
359 , a1 JTF_VARCHAR2_TABLE_100
360 , a2 JTF_NUMBER_TABLE
361 , a3 JTF_VARCHAR2_TABLE_100
362 ) as
363 ddindx binary_integer; indx binary_integer;
364 begin
365 if a0 is not null and a0.count > 0 then
366 if a0.count > 0 then
367 indx := a0.first;
368 ddindx := 1;
369 while true loop
370 t(ddindx).supply_org_id := a0(indx);
371 t(ddindx).supply_subinv_code := a1(indx);
372 t(ddindx).supply_locator_id := a2(indx);
373 t(ddindx).serial_number := a3(indx);
374 ddindx := ddindx+1;
375 if a0.last =indx
376 then exit;
377 end if;
378 indx := a0.next(indx);
379 end loop;
380 end if;
381 end if;
382 end rosetta_table_copy_in_p13;
383 procedure rosetta_table_copy_out_p13(t ahl_mm_mtl_mgt_pvt.supply_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
384 , a1 out nocopy JTF_VARCHAR2_TABLE_100
385 , a2 out nocopy JTF_NUMBER_TABLE
386 , a3 out nocopy JTF_VARCHAR2_TABLE_100
387 ) as
388 ddindx binary_integer; indx binary_integer;
389 begin
390 if t is null or t.count = 0 then
391 a0 := JTF_NUMBER_TABLE();
392 a1 := JTF_VARCHAR2_TABLE_100();
393 a2 := JTF_NUMBER_TABLE();
394 a3 := JTF_VARCHAR2_TABLE_100();
395 else
396 a0 := JTF_NUMBER_TABLE();
397 a1 := JTF_VARCHAR2_TABLE_100();
398 a2 := JTF_NUMBER_TABLE();
399 a3 := JTF_VARCHAR2_TABLE_100();
400 if t.count > 0 then
401 a0.extend(t.count);
402 a1.extend(t.count);
403 a2.extend(t.count);
404 a3.extend(t.count);
405 ddindx := t.first;
406 indx := 1;
407 while true loop
408 a0(indx) := t(ddindx).supply_org_id;
409 a1(indx) := t(ddindx).supply_subinv_code;
410 a2(indx) := t(ddindx).supply_locator_id;
411 a3(indx) := t(ddindx).serial_number;
412 indx := indx+1;
413 if t.last =ddindx
414 then exit;
415 end if;
416 ddindx := t.next(ddindx);
417 end loop;
418 end if;
419 end if;
420 end rosetta_table_copy_out_p13;
421
422 procedure rosetta_table_copy_in_p14(t out nocopy ahl_mm_mtl_mgt_pvt.aog_tbl_type, a0 JTF_NUMBER_TABLE
423 , a1 JTF_VARCHAR2_TABLE_100
424 , a2 JTF_NUMBER_TABLE
425 ) as
426 ddindx binary_integer; indx binary_integer;
427 begin
428 if a0 is not null and a0.count > 0 then
429 if a0.count > 0 then
430 indx := a0.first;
431 ddindx := 1;
432 while true loop
433 t(ddindx).schedule_material_id := a0(indx);
434 t(ddindx).aog_flag := a1(indx);
435 t(ddindx).asm_object_version_number := a2(indx);
436 ddindx := ddindx+1;
437 if a0.last =indx
438 then exit;
439 end if;
440 indx := a0.next(indx);
441 end loop;
442 end if;
443 end if;
444 end rosetta_table_copy_in_p14;
445 procedure rosetta_table_copy_out_p14(t ahl_mm_mtl_mgt_pvt.aog_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
446 , a1 out nocopy JTF_VARCHAR2_TABLE_100
447 , a2 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_VARCHAR2_TABLE_100();
454 a2 := JTF_NUMBER_TABLE();
455 else
456 a0 := JTF_NUMBER_TABLE();
457 a1 := JTF_VARCHAR2_TABLE_100();
458 a2 := JTF_NUMBER_TABLE();
459 if t.count > 0 then
460 a0.extend(t.count);
461 a1.extend(t.count);
462 a2.extend(t.count);
463 ddindx := t.first;
464 indx := 1;
465 while true loop
466 a0(indx) := t(ddindx).schedule_material_id;
467 a1(indx) := t(ddindx).aog_flag;
468 a2(indx) := t(ddindx).asm_object_version_number;
469 indx := indx+1;
470 if t.last =ddindx
471 then exit;
472 end if;
473 ddindx := t.next(ddindx);
474 end loop;
475 end if;
476 end if;
477 end rosetta_table_copy_out_p14;
478
479 procedure rosetta_table_copy_in_p15(t out nocopy ahl_mm_mtl_mgt_pvt.inv_mtl_avl_tbl, a0 JTF_NUMBER_TABLE
480 , a1 JTF_NUMBER_TABLE
481 , a2 JTF_VARCHAR2_TABLE_2000
482 ) as
483 ddindx binary_integer; indx binary_integer;
484 begin
485 if a0 is not null and a0.count > 0 then
486 if a0.count > 0 then
487 indx := a0.first;
488 ddindx := 1;
489 while true loop
490 t(ddindx).available_quantity := a0(indx);
491 t(ddindx).error_code := a1(indx);
492 t(ddindx).error_message := a2(indx);
493 ddindx := ddindx+1;
494 if a0.last =indx
495 then exit;
496 end if;
497 indx := a0.next(indx);
498 end loop;
499 end if;
500 end if;
501 end rosetta_table_copy_in_p15;
502 procedure rosetta_table_copy_out_p15(t ahl_mm_mtl_mgt_pvt.inv_mtl_avl_tbl, a0 out nocopy JTF_NUMBER_TABLE
506 ddindx binary_integer; indx binary_integer;
503 , a1 out nocopy JTF_NUMBER_TABLE
504 , a2 out nocopy JTF_VARCHAR2_TABLE_2000
505 ) as
507 begin
508 if t is null or t.count = 0 then
509 a0 := JTF_NUMBER_TABLE();
510 a1 := JTF_NUMBER_TABLE();
511 a2 := JTF_VARCHAR2_TABLE_2000();
512 else
513 a0 := JTF_NUMBER_TABLE();
514 a1 := JTF_NUMBER_TABLE();
515 a2 := JTF_VARCHAR2_TABLE_2000();
516 if t.count > 0 then
517 a0.extend(t.count);
518 a1.extend(t.count);
519 a2.extend(t.count);
520 ddindx := t.first;
521 indx := 1;
522 while true loop
523 a0(indx) := t(ddindx).available_quantity;
524 a1(indx) := t(ddindx).error_code;
525 a2(indx) := t(ddindx).error_message;
526 indx := indx+1;
527 if t.last =ddindx
528 then exit;
529 end if;
530 ddindx := t.next(ddindx);
531 end loop;
532 end if;
533 end if;
534 end rosetta_table_copy_out_p15;
535
536 procedure rosetta_table_copy_in_p34(t out nocopy ahl_mm_mtl_mgt_pvt.visit_ids_tbl, a0 JTF_NUMBER_TABLE) as
537 ddindx binary_integer; indx binary_integer;
538 begin
539 if a0 is not null and a0.count > 0 then
540 if a0.count > 0 then
541 indx := a0.first;
542 ddindx := 1;
543 while true loop
544 t(ddindx) := a0(indx);
545 ddindx := ddindx+1;
546 if a0.last =indx
547 then exit;
548 end if;
549 indx := a0.next(indx);
550 end loop;
551 end if;
552 end if;
553 end rosetta_table_copy_in_p34;
554 procedure rosetta_table_copy_out_p34(t ahl_mm_mtl_mgt_pvt.visit_ids_tbl, a0 out nocopy JTF_NUMBER_TABLE) as
555 ddindx binary_integer; indx binary_integer;
556 begin
557 if t is null or t.count = 0 then
558 a0 := JTF_NUMBER_TABLE();
559 else
560 a0 := JTF_NUMBER_TABLE();
561 if t.count > 0 then
562 a0.extend(t.count);
563 ddindx := t.first;
564 indx := 1;
565 while true loop
566 a0(indx) := t(ddindx);
567 indx := indx+1;
568 if t.last =ddindx
569 then exit;
570 end if;
571 ddindx := t.next(ddindx);
572 end loop;
573 end if;
574 end if;
575 end rosetta_table_copy_out_p34;
576
577 procedure check_availability(p_api_version NUMBER
578 , p_init_msg_list VARCHAR2
579 , p_commit VARCHAR2
580 , p_module_type VARCHAR2
581 , p_validation_level NUMBER
582 , p_schedule_material_id_tbl JTF_NUMBER_TABLE
583 , p6_a0 out nocopy JTF_NUMBER_TABLE
584 , p6_a1 out nocopy JTF_NUMBER_TABLE
585 , p6_a2 out nocopy JTF_DATE_TABLE
586 , p6_a3 out nocopy JTF_NUMBER_TABLE
587 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_2000
588 , x_return_status out nocopy VARCHAR2
589 , x_msg_count out nocopy NUMBER
590 , x_msg_data out nocopy VARCHAR2
591 )
592
593 as
594 ddp_schedule_material_id_tbl ahl_mm_mtl_mgt_pvt.number_table_type;
595 ddx_mtl_avl_schld_tbl ahl_mm_mtl_mgt_pvt.mtl_avl_schld_tbl;
596 ddindx binary_integer; indx binary_integer;
597 begin
598
599 -- copy data to the local IN or IN-OUT args, if any
600
601
602
603
604
605 ahl_mm_mtl_mgt_pvt_w.rosetta_table_copy_in_p12(ddp_schedule_material_id_tbl, p_schedule_material_id_tbl);
606
607
608
609
610
611 -- here's the delegated call to the old PL/SQL routine
612 ahl_mm_mtl_mgt_pvt.check_availability(p_api_version,
613 p_init_msg_list,
614 p_commit,
615 p_module_type,
616 p_validation_level,
617 ddp_schedule_material_id_tbl,
618 ddx_mtl_avl_schld_tbl,
619 x_return_status,
620 x_msg_count,
621 x_msg_data);
622
623 -- copy data back from the local variables to OUT or IN-OUT args, if any
624
625
626
627
628
629
630 ahl_mm_mtl_mgt_pvt_w.rosetta_table_copy_out_p11(ddx_mtl_avl_schld_tbl, p6_a0
631 , p6_a1
632 , p6_a2
633 , p6_a3
634 , p6_a4
635 );
636
637
638
639 end;
640
641 procedure schedule_materials(p_api_version NUMBER
642 , p_init_msg_list VARCHAR2
643 , p_commit VARCHAR2
644 , p_module_type VARCHAR2
645 , p_validation_level NUMBER
646 , p_schedule_material_id_tbl JTF_NUMBER_TABLE
647 , p6_a0 out nocopy JTF_NUMBER_TABLE
648 , p6_a1 out nocopy JTF_NUMBER_TABLE
649 , p6_a2 out nocopy JTF_DATE_TABLE
650 , p6_a3 out nocopy JTF_NUMBER_TABLE
651 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_2000
652 , x_return_status out nocopy VARCHAR2
653 , x_msg_count out nocopy NUMBER
654 , x_msg_data out nocopy VARCHAR2
655 )
656
657 as
658 ddp_schedule_material_id_tbl ahl_mm_mtl_mgt_pvt.number_table_type;
659 ddx_mtl_avl_schld_tbl ahl_mm_mtl_mgt_pvt.mtl_avl_schld_tbl;
660 ddindx binary_integer; indx binary_integer;
661 begin
662
663 -- copy data to the local IN or IN-OUT args, if any
664
665
666
667
668
669 ahl_mm_mtl_mgt_pvt_w.rosetta_table_copy_in_p12(ddp_schedule_material_id_tbl, p_schedule_material_id_tbl);
670
671
672
673
674
675 -- here's the delegated call to the old PL/SQL routine
676 ahl_mm_mtl_mgt_pvt.schedule_materials(p_api_version,
677 p_init_msg_list,
681 ddp_schedule_material_id_tbl,
678 p_commit,
679 p_module_type,
680 p_validation_level,
682 ddx_mtl_avl_schld_tbl,
683 x_return_status,
684 x_msg_count,
685 x_msg_data);
686
687 -- copy data back from the local variables to OUT or IN-OUT args, if any
688
689
690
691
692
693
694 ahl_mm_mtl_mgt_pvt_w.rosetta_table_copy_out_p11(ddx_mtl_avl_schld_tbl, p6_a0
695 , p6_a1
696 , p6_a2
697 , p6_a3
698 , p6_a4
699 );
700
701
702
703 end;
704
705 procedure schedule_visit_materials(p_api_version NUMBER
706 , p_init_msg_list VARCHAR2
707 , p_commit VARCHAR2
708 , p_module_type VARCHAR2
709 , p_validation_level NUMBER
710 , p_visit_id NUMBER
711 , p6_a0 out nocopy JTF_NUMBER_TABLE
712 , p6_a1 out nocopy JTF_NUMBER_TABLE
713 , p6_a2 out nocopy JTF_DATE_TABLE
714 , p6_a3 out nocopy JTF_NUMBER_TABLE
715 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_2000
716 , x_return_status out nocopy VARCHAR2
717 , x_msg_count out nocopy NUMBER
718 , x_msg_data out nocopy VARCHAR2
719 )
720
721 as
722 ddx_mtl_avl_schld_tbl ahl_mm_mtl_mgt_pvt.mtl_avl_schld_tbl;
723 ddindx binary_integer; indx binary_integer;
724 begin
725
726 -- copy data to the local IN or IN-OUT args, if any
727
728
729
730
731
732
733
734
735
736
737 -- here's the delegated call to the old PL/SQL routine
738 ahl_mm_mtl_mgt_pvt.schedule_visit_materials(p_api_version,
739 p_init_msg_list,
740 p_commit,
741 p_module_type,
742 p_validation_level,
743 p_visit_id,
744 ddx_mtl_avl_schld_tbl,
745 x_return_status,
746 x_msg_count,
747 x_msg_data);
748
749 -- copy data back from the local variables to OUT or IN-OUT args, if any
750
751
752
753
754
755
756 ahl_mm_mtl_mgt_pvt_w.rosetta_table_copy_out_p11(ddx_mtl_avl_schld_tbl, p6_a0
757 , p6_a1
758 , p6_a2
759 , p6_a3
760 , p6_a4
761 );
762
763
764
765 end;
766
767 procedure create_move_order(p_api_version NUMBER
768 , p_init_msg_list VARCHAR2
769 , p_commit VARCHAR2
770 , p_validation_level NUMBER
771 , p_scheduled_material_id NUMBER
772 , p5_a0 JTF_NUMBER_TABLE
773 , p5_a1 JTF_VARCHAR2_TABLE_100
774 , p5_a2 JTF_NUMBER_TABLE
775 , p5_a3 JTF_VARCHAR2_TABLE_100
776 , x_mo_hdr_id out nocopy NUMBER
777 , x_mo_lines_tbl out nocopy JTF_NUMBER_TABLE
778 , x_return_status out nocopy VARCHAR2
779 , x_msg_count out nocopy NUMBER
780 , x_msg_data out nocopy VARCHAR2
781 )
782
783 as
784 ddp_supply_tbl_type ahl_mm_mtl_mgt_pvt.supply_tbl_type;
785 ddx_mo_lines_tbl ahl_mm_mtl_mgt_pvt.number_table_type;
786 ddindx binary_integer; indx binary_integer;
787 begin
788
789 -- copy data to the local IN or IN-OUT args, if any
790
791
792
793
794
795 ahl_mm_mtl_mgt_pvt_w.rosetta_table_copy_in_p13(ddp_supply_tbl_type, p5_a0
796 , p5_a1
797 , p5_a2
798 , p5_a3
799 );
800
801
802
803
804
805
806 -- here's the delegated call to the old PL/SQL routine
807 ahl_mm_mtl_mgt_pvt.create_move_order(p_api_version,
808 p_init_msg_list,
809 p_commit,
810 p_validation_level,
811 p_scheduled_material_id,
812 ddp_supply_tbl_type,
813 x_mo_hdr_id,
814 ddx_mo_lines_tbl,
815 x_return_status,
816 x_msg_count,
817 x_msg_data);
818
819 -- copy data back from the local variables to OUT or IN-OUT args, if any
820
821
822
823
824
825
826
827 ahl_mm_mtl_mgt_pvt_w.rosetta_table_copy_out_p12(ddx_mo_lines_tbl, x_mo_lines_tbl);
828
829
830
831 end;
832
833 procedure invoke_aog_upd_notification(p_api_version NUMBER
834 , p_init_msg_list VARCHAR2
835 , p_commit VARCHAR2
836 , p_validation_level NUMBER
837 , p_asm_id_tab JTF_NUMBER_TABLE
838 , x_return_status out nocopy VARCHAR2
839 , x_msg_count out nocopy NUMBER
840 , x_msg_data out nocopy VARCHAR2
841 )
842
843 as
844 ddp_asm_id_tab ahl_mm_mtl_mgt_pvt.number_table_type;
845 ddindx binary_integer; indx binary_integer;
846 begin
847
848 -- copy data to the local IN or IN-OUT args, if any
849
850
851
852
853 ahl_mm_mtl_mgt_pvt_w.rosetta_table_copy_in_p12(ddp_asm_id_tab, p_asm_id_tab);
854
855
856
857
858 -- here's the delegated call to the old PL/SQL routine
859 ahl_mm_mtl_mgt_pvt.invoke_aog_upd_notification(p_api_version,
860 p_init_msg_list,
861 p_commit,
862 p_validation_level,
863 ddp_asm_id_tab,
864 x_return_status,
865 x_msg_count,
866 x_msg_data);
867
868 -- copy data back from the local variables to OUT or IN-OUT args, if any
869
870
871
872
873
874
875
876 end;
877
878 procedure perform_inter_org_transfer(p_api_version NUMBER
879 , p_init_msg_list VARCHAR2
880 , p_commit VARCHAR2
881 , p_validation_level NUMBER
885 , x_msg_count out nocopy NUMBER
882 , p_default VARCHAR2
883 , p_module_type VARCHAR2
884 , x_return_status out nocopy VARCHAR2
886 , x_msg_data out nocopy VARCHAR2
887 , p9_a0 in out nocopy JTF_NUMBER_TABLE
888 , p9_a1 in out nocopy JTF_VARCHAR2_TABLE_100
889 , p9_a2 in out nocopy JTF_NUMBER_TABLE
890 , p9_a3 in out nocopy JTF_VARCHAR2_TABLE_100
891 , p9_a4 in out nocopy JTF_NUMBER_TABLE
892 , p9_a5 in out nocopy JTF_NUMBER_TABLE
893 , p9_a6 in out nocopy JTF_VARCHAR2_TABLE_100
894 , p9_a7 in out nocopy JTF_NUMBER_TABLE
895 , p9_a8 in out nocopy JTF_NUMBER_TABLE
896 , p9_a9 in out nocopy JTF_VARCHAR2_TABLE_100
897 , p9_a10 in out nocopy JTF_VARCHAR2_TABLE_100
898 , p9_a11 in out nocopy JTF_VARCHAR2_TABLE_100
899 , p9_a12 in out nocopy JTF_VARCHAR2_TABLE_100
900 , p_sched_material_id NUMBER
901 , x_reservation_id out nocopy NUMBER
902 )
903
904 as
905 ddp_x_mtltfr_tbl ahl_mm_mtl_mgt_pvt.ahl_mtltfr_tbl_type;
906 ddindx binary_integer; indx binary_integer;
907 begin
908
909 -- copy data to the local IN or IN-OUT args, if any
910
911
912
913
914
915
916
917
918
919 ahl_mm_mtl_mgt_pvt_w.rosetta_table_copy_in_p10(ddp_x_mtltfr_tbl, p9_a0
920 , p9_a1
921 , p9_a2
922 , p9_a3
923 , p9_a4
924 , p9_a5
925 , p9_a6
926 , p9_a7
927 , p9_a8
928 , p9_a9
929 , p9_a10
930 , p9_a11
931 , p9_a12
932 );
933
934
935
936 -- here's the delegated call to the old PL/SQL routine
937 ahl_mm_mtl_mgt_pvt.perform_inter_org_transfer(p_api_version,
938 p_init_msg_list,
939 p_commit,
940 p_validation_level,
941 p_default,
942 p_module_type,
943 x_return_status,
944 x_msg_count,
945 x_msg_data,
946 ddp_x_mtltfr_tbl,
947 p_sched_material_id,
948 x_reservation_id);
949
950 -- copy data back from the local variables to OUT or IN-OUT args, if any
951
952
953
954
955
956
957
958
959
960 ahl_mm_mtl_mgt_pvt_w.rosetta_table_copy_out_p10(ddp_x_mtltfr_tbl, p9_a0
961 , p9_a1
962 , p9_a2
963 , p9_a3
964 , p9_a4
965 , p9_a5
966 , p9_a6
967 , p9_a7
968 , p9_a8
969 , p9_a9
970 , p9_a10
971 , p9_a11
972 , p9_a12
973 );
974
975
976 end;
977
978 procedure perform_inter_org_transfer_inv(p_api_version NUMBER
979 , p_init_msg_list VARCHAR2
980 , p_commit VARCHAR2
981 , p_validation_level NUMBER
982 , p_default VARCHAR2
983 , p_module_type VARCHAR2
984 , x_return_status out nocopy VARCHAR2
985 , x_msg_count out nocopy NUMBER
986 , x_msg_data out nocopy VARCHAR2
987 , p9_a0 in out nocopy JTF_NUMBER_TABLE
988 , p9_a1 in out nocopy JTF_VARCHAR2_TABLE_100
989 , p9_a2 in out nocopy JTF_NUMBER_TABLE
990 , p9_a3 in out nocopy JTF_VARCHAR2_TABLE_100
991 , p9_a4 in out nocopy JTF_NUMBER_TABLE
992 , p9_a5 in out nocopy JTF_NUMBER_TABLE
993 , p9_a6 in out nocopy JTF_VARCHAR2_TABLE_100
994 , p9_a7 in out nocopy JTF_NUMBER_TABLE
995 , p9_a8 in out nocopy JTF_NUMBER_TABLE
996 , p9_a9 in out nocopy JTF_VARCHAR2_TABLE_100
997 , p9_a10 in out nocopy JTF_VARCHAR2_TABLE_100
998 , p9_a11 in out nocopy JTF_VARCHAR2_TABLE_100
999 , p9_a12 in out nocopy JTF_VARCHAR2_TABLE_100
1000 )
1001
1002 as
1003 ddp_x_mtltfr_tbl ahl_mm_mtl_mgt_pvt.ahl_mtltfr_tbl_type;
1004 ddindx binary_integer; indx binary_integer;
1005 begin
1006
1007 -- copy data to the local IN or IN-OUT args, if any
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017 ahl_mm_mtl_mgt_pvt_w.rosetta_table_copy_in_p10(ddp_x_mtltfr_tbl, p9_a0
1018 , p9_a1
1019 , p9_a2
1020 , p9_a3
1021 , p9_a4
1022 , p9_a5
1023 , p9_a6
1024 , p9_a7
1025 , p9_a8
1026 , p9_a9
1027 , p9_a10
1028 , p9_a11
1029 , p9_a12
1030 );
1031
1032 -- here's the delegated call to the old PL/SQL routine
1033 ahl_mm_mtl_mgt_pvt.perform_inter_org_transfer_inv(p_api_version,
1034 p_init_msg_list,
1035 p_commit,
1036 p_validation_level,
1037 p_default,
1038 p_module_type,
1039 x_return_status,
1040 x_msg_count,
1041 x_msg_data,
1042 ddp_x_mtltfr_tbl);
1043
1044 -- copy data back from the local variables to OUT or IN-OUT args, if any
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054 ahl_mm_mtl_mgt_pvt_w.rosetta_table_copy_out_p10(ddp_x_mtltfr_tbl, p9_a0
1055 , p9_a1
1056 , p9_a2
1057 , p9_a3
1058 , p9_a4
1059 , p9_a5
1060 , p9_a6
1061 , p9_a7
1062 , p9_a8
1063 , p9_a9
1064 , p9_a10
1065 , p9_a11
1066 , p9_a12
1067 );
1068 end;
1069
1070 procedure create_internal_sales_order(p_api_version NUMBER
1071 , p_init_msg_list VARCHAR2
1072 , p_commit VARCHAR2
1073 , p_validation_level NUMBER
1074 , x_msg_count out nocopy NUMBER
1075 , x_msg_data out nocopy VARCHAR2
1076 , x_return_status out nocopy VARCHAR2
1080 , p_source_locators_tbl JTF_NUMBER_TABLE
1077 , p_sch_mtl_id NUMBER
1078 , p_source_org_tbl JTF_NUMBER_TABLE
1079 , p_source_sub_inv_tbl JTF_VARCHAR2_TABLE_100
1081 , p_serial_num_tbl JTF_VARCHAR2_TABLE_100
1082 , x_requisition_num out nocopy VARCHAR2
1083 , x_requisition_hdr_id out nocopy NUMBER
1084 , x_int_order_num out nocopy NUMBER
1085 , x_int_order_hdr_id out nocopy NUMBER
1086 , x_reservation_id out nocopy NUMBER
1087 )
1088
1089 as
1090 ddp_source_org_tbl ahl_mm_mtl_mgt_pvt.oaf_number_table;
1091 ddp_source_sub_inv_tbl ahl_mm_mtl_mgt_pvt.oaf_varchar2_table_100;
1092 ddp_source_locators_tbl ahl_mm_mtl_mgt_pvt.oaf_number_table;
1093 ddp_serial_num_tbl ahl_mm_mtl_mgt_pvt.oaf_varchar2_table_100;
1094 ddindx binary_integer; indx binary_integer;
1095 begin
1096
1097 -- copy data to the local IN or IN-OUT args, if any
1098
1099
1100
1101
1102
1103
1104
1105
1106 ahl_mm_mtl_mgt_pvt_w.rosetta_table_copy_in_p3(ddp_source_org_tbl, p_source_org_tbl);
1107
1108 ahl_mm_mtl_mgt_pvt_w.rosetta_table_copy_in_p2(ddp_source_sub_inv_tbl, p_source_sub_inv_tbl);
1109
1110 ahl_mm_mtl_mgt_pvt_w.rosetta_table_copy_in_p3(ddp_source_locators_tbl, p_source_locators_tbl);
1111
1112 ahl_mm_mtl_mgt_pvt_w.rosetta_table_copy_in_p2(ddp_serial_num_tbl, p_serial_num_tbl);
1113
1114
1115
1116
1117
1118
1119 -- here's the delegated call to the old PL/SQL routine
1120 ahl_mm_mtl_mgt_pvt.create_internal_sales_order(p_api_version,
1121 p_init_msg_list,
1122 p_commit,
1123 p_validation_level,
1124 x_msg_count,
1125 x_msg_data,
1126 x_return_status,
1127 p_sch_mtl_id,
1128 ddp_source_org_tbl,
1129 ddp_source_sub_inv_tbl,
1130 ddp_source_locators_tbl,
1131 ddp_serial_num_tbl,
1132 x_requisition_num,
1133 x_requisition_hdr_id,
1134 x_int_order_num,
1135 x_int_order_hdr_id,
1136 x_reservation_id);
1137
1138 -- copy data back from the local variables to OUT or IN-OUT args, if any
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155 end;
1156
1157 procedure aog_upd_notification(p_api_version NUMBER
1158 , p_init_msg_list VARCHAR2
1159 , p_commit VARCHAR2
1160 , p_validation_level NUMBER
1161 , p_schedule_material_id_tbl JTF_NUMBER_TABLE
1162 , x_return_status out nocopy VARCHAR2
1163 , x_msg_count out nocopy NUMBER
1164 , x_msg_data out nocopy VARCHAR2
1165 )
1166
1167 as
1168 ddp_schedule_material_id_tbl ahl_mm_mtl_mgt_pvt.number_table_type;
1169 ddindx binary_integer; indx binary_integer;
1170 begin
1171
1172 -- copy data to the local IN or IN-OUT args, if any
1173
1174
1175
1176
1177 ahl_mm_mtl_mgt_pvt_w.rosetta_table_copy_in_p12(ddp_schedule_material_id_tbl, p_schedule_material_id_tbl);
1178
1179
1180
1181
1182 -- here's the delegated call to the old PL/SQL routine
1183 ahl_mm_mtl_mgt_pvt.aog_upd_notification(p_api_version,
1184 p_init_msg_list,
1185 p_commit,
1186 p_validation_level,
1187 ddp_schedule_material_id_tbl,
1188 x_return_status,
1189 x_msg_count,
1190 x_msg_data);
1191
1192 -- copy data back from the local variables to OUT or IN-OUT args, if any
1193
1194
1195
1196
1197
1198
1199
1200 end;
1201
1202 procedure update_aog(p_api_version NUMBER
1203 , p_init_msg_list VARCHAR2
1204 , p_commit VARCHAR2
1205 , p_validation_level NUMBER
1206 , p4_a0 JTF_NUMBER_TABLE
1207 , p4_a1 JTF_VARCHAR2_TABLE_100
1208 , p4_a2 JTF_NUMBER_TABLE
1209 , x_return_status out nocopy VARCHAR2
1210 , x_msg_count out nocopy NUMBER
1211 , x_msg_data out nocopy VARCHAR2
1212 )
1213
1214 as
1215 ddp_aog_tbl ahl_mm_mtl_mgt_pvt.aog_tbl_type;
1216 ddindx binary_integer; indx binary_integer;
1217 begin
1218
1219 -- copy data to the local IN or IN-OUT args, if any
1220
1221
1222
1223
1224 ahl_mm_mtl_mgt_pvt_w.rosetta_table_copy_in_p14(ddp_aog_tbl, p4_a0
1225 , p4_a1
1226 , p4_a2
1227 );
1228
1229
1230
1231
1232 -- here's the delegated call to the old PL/SQL routine
1233 ahl_mm_mtl_mgt_pvt.update_aog(p_api_version,
1234 p_init_msg_list,
1235 p_commit,
1236 p_validation_level,
1237 ddp_aog_tbl,
1238 x_return_status,
1239 x_msg_count,
1240 x_msg_data);
1241
1242 -- copy data back from the local variables to OUT or IN-OUT args, if any
1243
1244
1245
1246
1247
1248
1249
1250 end;
1251
1252 procedure filter_instances_matching_bg(p_api_version NUMBER
1253 , p_init_msg_list VARCHAR2
1254 , p_commit VARCHAR2
1255 , p_module_type VARCHAR2
1256 , p4_a0 NUMBER
1257 , p4_a1 VARCHAR2
1258 , p4_a2 VARCHAR2
1259 , p4_a3 VARCHAR2
1260 , p4_a4 VARCHAR2
1261 , p4_a5 VARCHAR2
1262 , p4_a6 VARCHAR2
1263 , p4_a7 VARCHAR2
1264 , p4_a8 VARCHAR2
1265 , p4_a9 VARCHAR2
1266 , p4_a10 VARCHAR2
1267 , p4_a11 VARCHAR2
1268 , p4_a12 VARCHAR2
1269 , p4_a13 DATE
1270 , p4_a14 VARCHAR2
1271 , x_return_status out nocopy VARCHAR2
1272 , x_msg_count out nocopy NUMBER
1276 as
1273 , x_msg_data out nocopy VARCHAR2
1274 )
1275
1277 ddp_demand_record ahl_mm_mtl_mgt_pvt.bg_demand_rec;
1278 ddindx binary_integer; indx binary_integer;
1279 begin
1280
1281 -- copy data to the local IN or IN-OUT args, if any
1282
1283
1284
1285
1286 ddp_demand_record.scheduled_material_id := p4_a0;
1287 ddp_demand_record.include_hardlimit_mrs := p4_a1;
1288 ddp_demand_record.include_softlimit_mrs := p4_a2;
1289 ddp_demand_record.include_alt_items := p4_a3;
1290 ddp_demand_record.organization_name := p4_a4;
1291 ddp_demand_record.serial_number := p4_a5;
1292 ddp_demand_record.item_owner := p4_a6;
1293 ddp_demand_record.reservation_type := p4_a7;
1294 ddp_demand_record.wo_number := p4_a8;
1295 ddp_demand_record.wo_org := p4_a9;
1296 ddp_demand_record.filter_reservations := p4_a10;
1297 ddp_demand_record.visit_org := p4_a11;
1298 ddp_demand_record.visit_number := p4_a12;
1299 ddp_demand_record.visit_start_date := p4_a13;
1300 ddp_demand_record.visit_unit := p4_a14;
1301
1302
1303
1304
1305 -- here's the delegated call to the old PL/SQL routine
1306 ahl_mm_mtl_mgt_pvt.filter_instances_matching_bg(p_api_version,
1307 p_init_msg_list,
1308 p_commit,
1309 p_module_type,
1310 ddp_demand_record,
1311 x_return_status,
1312 x_msg_count,
1313 x_msg_data);
1314
1315 -- copy data back from the local variables to OUT or IN-OUT args, if any
1316
1317
1318
1319
1320
1321
1322
1323 end;
1324
1325 procedure get_available_quantity(p_api_version NUMBER
1326 , p_init_msg_list VARCHAR2
1327 , p_commit VARCHAR2
1328 , p_module_type VARCHAR2
1329 , p_validation_level NUMBER
1330 , p_org_id NUMBER
1331 , p_inv_item_id NUMBER
1332 , p7_a0 out nocopy JTF_NUMBER_TABLE
1333 , p7_a1 out nocopy JTF_NUMBER_TABLE
1334 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_2000
1335 , x_return_status out nocopy VARCHAR2
1336 , x_msg_count out nocopy NUMBER
1337 , x_msg_data out nocopy VARCHAR2
1338 )
1339
1340 as
1341 ddx_inv_mtl_avl_tbl ahl_mm_mtl_mgt_pvt.inv_mtl_avl_tbl;
1342 ddindx binary_integer; indx binary_integer;
1343 begin
1344
1345 -- copy data to the local IN or IN-OUT args, if any
1346
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357 -- here's the delegated call to the old PL/SQL routine
1358 ahl_mm_mtl_mgt_pvt.get_available_quantity(p_api_version,
1359 p_init_msg_list,
1360 p_commit,
1361 p_module_type,
1362 p_validation_level,
1363 p_org_id,
1364 p_inv_item_id,
1365 ddx_inv_mtl_avl_tbl,
1366 x_return_status,
1367 x_msg_count,
1368 x_msg_data);
1369
1370 -- copy data back from the local variables to OUT or IN-OUT args, if any
1371
1372
1373
1374
1375
1376
1377
1378 ahl_mm_mtl_mgt_pvt_w.rosetta_table_copy_out_p15(ddx_inv_mtl_avl_tbl, p7_a0
1379 , p7_a1
1380 , p7_a2
1381 );
1382
1383
1384
1385 end;
1386
1387 procedure sched_all_vst_mtls(p_api_version NUMBER
1388 , p_init_msg_list VARCHAR2
1389 , p_commit VARCHAR2
1390 , p_module_type VARCHAR2
1391 , p_validation_level NUMBER
1392 , p_visit_ids JTF_NUMBER_TABLE
1393 , p6_a0 out nocopy JTF_NUMBER_TABLE
1394 , p6_a1 out nocopy JTF_NUMBER_TABLE
1395 , p6_a2 out nocopy JTF_DATE_TABLE
1396 , p6_a3 out nocopy JTF_NUMBER_TABLE
1397 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_2000
1398 , x_return_status out nocopy VARCHAR2
1399 , x_msg_count out nocopy NUMBER
1400 , x_msg_data out nocopy VARCHAR2
1401 )
1402
1403 as
1404 ddp_visit_ids ahl_mm_mtl_mgt_pvt.visit_ids_tbl;
1405 ddx_mtl_avl_schld_tbl ahl_mm_mtl_mgt_pvt.mtl_avl_schld_tbl;
1406 ddindx binary_integer; indx binary_integer;
1407 begin
1408
1409 -- copy data to the local IN or IN-OUT args, if any
1410
1411
1412
1413
1414
1415 ahl_mm_mtl_mgt_pvt_w.rosetta_table_copy_in_p34(ddp_visit_ids, p_visit_ids);
1416
1417
1418
1419
1420
1421 -- here's the delegated call to the old PL/SQL routine
1422 ahl_mm_mtl_mgt_pvt.sched_all_vst_mtls(p_api_version,
1423 p_init_msg_list,
1424 p_commit,
1425 p_module_type,
1426 p_validation_level,
1427 ddp_visit_ids,
1428 ddx_mtl_avl_schld_tbl,
1429 x_return_status,
1430 x_msg_count,
1431 x_msg_data);
1432
1433 -- copy data back from the local variables to OUT or IN-OUT args, if any
1434
1435
1436
1437
1438
1439
1440 ahl_mm_mtl_mgt_pvt_w.rosetta_table_copy_out_p11(ddx_mtl_avl_schld_tbl, p6_a0
1441 , p6_a1
1442 , p6_a2
1443 , p6_a3
1444 , p6_a4
1445 );
1446
1447
1448
1449 end;
1450
1451 end ahl_mm_mtl_mgt_pvt_w;