[Home] [Help]
PACKAGE BODY: APPS.AHL_MM_RESERVATIONS_PVT_W
Source
1 package body ahl_mm_reservations_pvt_w as
2 /* $Header: AHLWMMRB.pls 120.0.12020000.2 2012/12/13 06:01:51 shnatu noship $ */
3 procedure rosetta_table_copy_in_p2(t out nocopy ahl_mm_reservations_pvt.serial_number_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_VARCHAR2_TABLE_100
5 ) as
6 ddindx binary_integer; indx binary_integer;
7 begin
8 if a0 is not null and a0.count > 0 then
9 if a0.count > 0 then
10 indx := a0.first;
11 ddindx := 1;
12 while true loop
13 t(ddindx).inventory_item_id := a0(indx);
14 t(ddindx).serial_number := a1(indx);
15 ddindx := ddindx+1;
16 if a0.last =indx
17 then exit;
18 end if;
19 indx := a0.next(indx);
20 end loop;
21 end if;
22 end if;
23 end rosetta_table_copy_in_p2;
24 procedure rosetta_table_copy_out_p2(t ahl_mm_reservations_pvt.serial_number_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
25 , a1 out nocopy JTF_VARCHAR2_TABLE_100
26 ) as
27 ddindx binary_integer; indx binary_integer;
28 begin
29 if t is null or t.count = 0 then
30 a0 := JTF_NUMBER_TABLE();
31 a1 := JTF_VARCHAR2_TABLE_100();
32 else
33 a0 := JTF_NUMBER_TABLE();
34 a1 := JTF_VARCHAR2_TABLE_100();
35 if t.count > 0 then
36 a0.extend(t.count);
37 a1.extend(t.count);
38 ddindx := t.first;
39 indx := 1;
40 while true loop
41 a0(indx) := t(ddindx).inventory_item_id;
42 a1(indx) := t(ddindx).serial_number;
43 indx := indx+1;
44 if t.last =ddindx
45 then exit;
46 end if;
47 ddindx := t.next(ddindx);
48 end loop;
49 end if;
50 end if;
51 end rosetta_table_copy_out_p2;
52
53 procedure rosetta_table_copy_in_p4(t out nocopy ahl_mm_reservations_pvt.number_table_type, a0 JTF_NUMBER_TABLE) as
54 ddindx binary_integer; indx binary_integer;
55 begin
56 if a0 is not null and a0.count > 0 then
57 if a0.count > 0 then
58 indx := a0.first;
59 ddindx := 1;
60 while true loop
61 t(ddindx) := a0(indx);
62 ddindx := ddindx+1;
63 if a0.last =indx
64 then exit;
65 end if;
66 indx := a0.next(indx);
67 end loop;
68 end if;
69 end if;
70 end rosetta_table_copy_in_p4;
71 procedure rosetta_table_copy_out_p4(t ahl_mm_reservations_pvt.number_table_type, a0 out nocopy JTF_NUMBER_TABLE) as
72 ddindx binary_integer; indx binary_integer;
73 begin
74 if t is null or t.count = 0 then
75 a0 := JTF_NUMBER_TABLE();
76 else
77 a0 := JTF_NUMBER_TABLE();
78 if t.count > 0 then
79 a0.extend(t.count);
80 ddindx := t.first;
81 indx := 1;
82 while true loop
83 a0(indx) := t(ddindx);
84 indx := indx+1;
85 if t.last =ddindx
86 then exit;
87 end if;
88 ddindx := t.next(ddindx);
89 end loop;
90 end if;
91 end if;
92 end rosetta_table_copy_out_p4;
93
94 procedure rosetta_table_copy_in_p5(t out nocopy ahl_mm_reservations_pvt.varchar_table_type, a0 JTF_VARCHAR2_TABLE_100) as
95 ddindx binary_integer; indx binary_integer;
96 begin
97 if a0 is not null and a0.count > 0 then
98 if a0.count > 0 then
99 indx := a0.first;
100 ddindx := 1;
101 while true loop
102 t(ddindx) := a0(indx);
103 ddindx := ddindx+1;
104 if a0.last =indx
105 then exit;
106 end if;
107 indx := a0.next(indx);
108 end loop;
109 end if;
110 end if;
111 end rosetta_table_copy_in_p5;
112 procedure rosetta_table_copy_out_p5(t ahl_mm_reservations_pvt.varchar_table_type, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
113 ddindx binary_integer; indx binary_integer;
114 begin
115 if t is null or t.count = 0 then
116 a0 := JTF_VARCHAR2_TABLE_100();
117 else
118 a0 := JTF_VARCHAR2_TABLE_100();
119 if t.count > 0 then
120 a0.extend(t.count);
121 ddindx := t.first;
122 indx := 1;
123 while true loop
124 a0(indx) := t(ddindx);
125 indx := indx+1;
126 if t.last =ddindx
127 then exit;
128 end if;
129 ddindx := t.next(ddindx);
130 end loop;
131 end if;
132 end if;
133 end rosetta_table_copy_out_p5;
134
135 procedure create_reservation(p_api_version NUMBER
136 , p_init_msg_list VARCHAR2
137 , p_commit VARCHAR2
138 , p_validation_level NUMBER
139 , p_module_type VARCHAR2
140 , x_return_status out nocopy VARCHAR2
141 , x_msg_count out nocopy NUMBER
142 , x_msg_data out nocopy VARCHAR2
143 , p8_a0 NUMBER
144 , p8_a1 DATE
145 , p8_a2 NUMBER
146 , p8_a3 NUMBER
147 , p8_a4 NUMBER
148 , p8_a5 VARCHAR2
149 , p8_a6 NUMBER
150 , p8_a7 NUMBER
151 , p8_a8 NUMBER
152 , p8_a9 VARCHAR2
153 , p8_a10 NUMBER
154 , p8_a11 VARCHAR2
155 , p8_a12 NUMBER
156 , p8_a13 VARCHAR2
157 , p8_a14 NUMBER
158 , p8_a15 NUMBER
159 , p8_a16 NUMBER
160 , p8_a17 NUMBER
161 , p8_a18 NUMBER
162 , p8_a19 NUMBER
163 , p8_a20 NUMBER
164 , p8_a21 VARCHAR2
165 , p8_a22 NUMBER
166 , p8_a23 NUMBER
167 , p8_a24 NUMBER
168 , p8_a25 NUMBER
169 , p8_a26 VARCHAR2
170 , p8_a27 NUMBER
171 , p8_a28 VARCHAR2
172 , p8_a29 VARCHAR2
173 , p8_a30 NUMBER
174 , p8_a31 NUMBER
175 , p8_a32 VARCHAR2
176 , p8_a33 NUMBER
177 , p8_a34 NUMBER
178 , p8_a35 NUMBER
179 , p8_a36 VARCHAR2
180 , p8_a37 VARCHAR2
181 , p8_a38 VARCHAR2
182 , p8_a39 VARCHAR2
183 , p8_a40 VARCHAR2
184 , p8_a41 VARCHAR2
185 , p8_a42 VARCHAR2
186 , p8_a43 VARCHAR2
187 , p8_a44 VARCHAR2
188 , p8_a45 VARCHAR2
189 , p8_a46 VARCHAR2
190 , p8_a47 VARCHAR2
191 , p8_a48 VARCHAR2
192 , p8_a49 VARCHAR2
193 , p8_a50 VARCHAR2
194 , p8_a51 VARCHAR2
195 , p8_a52 NUMBER
196 , p8_a53 VARCHAR2
197 , p8_a54 VARCHAR2
198 , p8_a55 NUMBER
199 , p8_a56 NUMBER
200 , p8_a57 NUMBER
201 , p8_a58 DATE
202 , p8_a59 DATE
203 , p8_a60 NUMBER
204 , p8_a61 NUMBER
205 , p8_a62 NUMBER
206 , p8_a63 NUMBER
207 , p8_a64 NUMBER
208 , p8_a65 NUMBER
209 , p8_a66 NUMBER
210 , p8_a67 NUMBER
211 , p8_a68 NUMBER
212 , p8_a69 NUMBER
213 , p8_a70 VARCHAR2
214 , p9_a0 JTF_NUMBER_TABLE
215 , p9_a1 JTF_VARCHAR2_TABLE_100
216 , x_reservation_id out nocopy NUMBER
217 )
218
219 as
220 ddp_rsv_rec ahl_mm_reservations_pvt.mtl_reservation_rec_type;
221 ddp_serial_number_tbl ahl_mm_reservations_pvt.serial_number_tbl_type;
222 ddindx binary_integer; indx binary_integer;
223 begin
224
225 -- copy data to the local IN or IN-OUT args, if any
226
227
228
229
230
231
232
233
234 ddp_rsv_rec.reservation_id := p8_a0;
235 ddp_rsv_rec.requirement_date := p8_a1;
236 ddp_rsv_rec.organization_id := p8_a2;
237 ddp_rsv_rec.inventory_item_id := p8_a3;
238 ddp_rsv_rec.demand_source_type_id := p8_a4;
239 ddp_rsv_rec.demand_source_name := p8_a5;
240 ddp_rsv_rec.demand_source_header_id := p8_a6;
241 ddp_rsv_rec.demand_source_line_id := p8_a7;
242 ddp_rsv_rec.demand_source_delivery := p8_a8;
243 ddp_rsv_rec.primary_uom_code := p8_a9;
244 ddp_rsv_rec.primary_uom_id := p8_a10;
245 ddp_rsv_rec.secondary_uom_code := p8_a11;
246 ddp_rsv_rec.secondary_uom_id := p8_a12;
247 ddp_rsv_rec.reservation_uom_code := p8_a13;
248 ddp_rsv_rec.reservation_uom_id := p8_a14;
249 ddp_rsv_rec.reservation_quantity := p8_a15;
250 ddp_rsv_rec.primary_reservation_quantity := p8_a16;
251 ddp_rsv_rec.secondary_reservation_quantity := p8_a17;
252 ddp_rsv_rec.detailed_quantity := p8_a18;
253 ddp_rsv_rec.secondary_detailed_quantity := p8_a19;
254 ddp_rsv_rec.autodetail_group_id := p8_a20;
255 ddp_rsv_rec.external_source_code := p8_a21;
256 ddp_rsv_rec.external_source_line_id := p8_a22;
257 ddp_rsv_rec.supply_source_type_id := p8_a23;
258 ddp_rsv_rec.supply_source_header_id := p8_a24;
259 ddp_rsv_rec.supply_source_line_id := p8_a25;
260 ddp_rsv_rec.supply_source_name := p8_a26;
261 ddp_rsv_rec.supply_source_line_detail := p8_a27;
262 ddp_rsv_rec.revision := p8_a28;
263 ddp_rsv_rec.subinventory_code := p8_a29;
264 ddp_rsv_rec.subinventory_id := p8_a30;
265 ddp_rsv_rec.locator_id := p8_a31;
266 ddp_rsv_rec.lot_number := p8_a32;
267 ddp_rsv_rec.lot_number_id := p8_a33;
268 ddp_rsv_rec.pick_slip_number := p8_a34;
269 ddp_rsv_rec.lpn_id := p8_a35;
270 ddp_rsv_rec.attribute_category := p8_a36;
271 ddp_rsv_rec.attribute1 := p8_a37;
272 ddp_rsv_rec.attribute2 := p8_a38;
273 ddp_rsv_rec.attribute3 := p8_a39;
274 ddp_rsv_rec.attribute4 := p8_a40;
275 ddp_rsv_rec.attribute5 := p8_a41;
276 ddp_rsv_rec.attribute6 := p8_a42;
277 ddp_rsv_rec.attribute7 := p8_a43;
278 ddp_rsv_rec.attribute8 := p8_a44;
279 ddp_rsv_rec.attribute9 := p8_a45;
280 ddp_rsv_rec.attribute10 := p8_a46;
281 ddp_rsv_rec.attribute11 := p8_a47;
282 ddp_rsv_rec.attribute12 := p8_a48;
283 ddp_rsv_rec.attribute13 := p8_a49;
284 ddp_rsv_rec.attribute14 := p8_a50;
285 ddp_rsv_rec.attribute15 := p8_a51;
286 ddp_rsv_rec.ship_ready_flag := p8_a52;
287 ddp_rsv_rec.staged_flag := p8_a53;
288 ddp_rsv_rec.crossdock_flag := p8_a54;
289 ddp_rsv_rec.crossdock_criteria_id := p8_a55;
290 ddp_rsv_rec.demand_source_line_detail := p8_a56;
291 ddp_rsv_rec.serial_reservation_quantity := p8_a57;
292 ddp_rsv_rec.supply_receipt_date := p8_a58;
293 ddp_rsv_rec.demand_ship_date := p8_a59;
294 ddp_rsv_rec.project_id := p8_a60;
295 ddp_rsv_rec.task_id := p8_a61;
296 ddp_rsv_rec.orig_supply_source_type_id := p8_a62;
297 ddp_rsv_rec.orig_supply_source_header_id := p8_a63;
298 ddp_rsv_rec.orig_supply_source_line_id := p8_a64;
299 ddp_rsv_rec.orig_supply_source_line_detail := p8_a65;
300 ddp_rsv_rec.orig_demand_source_type_id := p8_a66;
301 ddp_rsv_rec.orig_demand_source_header_id := p8_a67;
302 ddp_rsv_rec.orig_demand_source_line_id := p8_a68;
303 ddp_rsv_rec.orig_demand_source_line_detail := p8_a69;
304 ddp_rsv_rec.serial_number := p8_a70;
305
306 ahl_mm_reservations_pvt_w.rosetta_table_copy_in_p2(ddp_serial_number_tbl, p9_a0
307 , p9_a1
308 );
309
310
311 -- here's the delegated call to the old PL/SQL routine
312 ahl_mm_reservations_pvt.create_reservation(p_api_version,
313 p_init_msg_list,
314 p_commit,
315 p_validation_level,
316 p_module_type,
317 x_return_status,
318 x_msg_count,
319 x_msg_data,
320 ddp_rsv_rec,
321 ddp_serial_number_tbl,
322 x_reservation_id);
323
324 -- copy data back from the local variables to OUT or IN-OUT args, if any
325
326
327
328
329
330
331
332
333
334
335 end;
336
337 procedure update_reservation(p_api_version NUMBER
338 , p_init_msg_list VARCHAR2
339 , p_commit VARCHAR2
340 , p_validation_level NUMBER
341 , p_module_type VARCHAR2
342 , x_return_status out nocopy VARCHAR2
343 , x_msg_count out nocopy NUMBER
344 , x_msg_data out nocopy VARCHAR2
345 , p_reservation_id NUMBER
346 , p9_a0 NUMBER
347 , p9_a1 DATE
348 , p9_a2 NUMBER
349 , p9_a3 NUMBER
350 , p9_a4 NUMBER
351 , p9_a5 VARCHAR2
352 , p9_a6 NUMBER
353 , p9_a7 NUMBER
354 , p9_a8 NUMBER
355 , p9_a9 VARCHAR2
356 , p9_a10 NUMBER
357 , p9_a11 VARCHAR2
358 , p9_a12 NUMBER
359 , p9_a13 VARCHAR2
360 , p9_a14 NUMBER
361 , p9_a15 NUMBER
362 , p9_a16 NUMBER
363 , p9_a17 NUMBER
364 , p9_a18 NUMBER
365 , p9_a19 NUMBER
366 , p9_a20 NUMBER
367 , p9_a21 VARCHAR2
368 , p9_a22 NUMBER
369 , p9_a23 NUMBER
370 , p9_a24 NUMBER
371 , p9_a25 NUMBER
372 , p9_a26 VARCHAR2
373 , p9_a27 NUMBER
374 , p9_a28 VARCHAR2
375 , p9_a29 VARCHAR2
376 , p9_a30 NUMBER
377 , p9_a31 NUMBER
378 , p9_a32 VARCHAR2
379 , p9_a33 NUMBER
380 , p9_a34 NUMBER
381 , p9_a35 NUMBER
382 , p9_a36 VARCHAR2
383 , p9_a37 VARCHAR2
384 , p9_a38 VARCHAR2
385 , p9_a39 VARCHAR2
386 , p9_a40 VARCHAR2
387 , p9_a41 VARCHAR2
388 , p9_a42 VARCHAR2
389 , p9_a43 VARCHAR2
390 , p9_a44 VARCHAR2
391 , p9_a45 VARCHAR2
392 , p9_a46 VARCHAR2
393 , p9_a47 VARCHAR2
394 , p9_a48 VARCHAR2
395 , p9_a49 VARCHAR2
396 , p9_a50 VARCHAR2
397 , p9_a51 VARCHAR2
398 , p9_a52 NUMBER
399 , p9_a53 VARCHAR2
400 , p9_a54 VARCHAR2
401 , p9_a55 NUMBER
402 , p9_a56 NUMBER
403 , p9_a57 NUMBER
404 , p9_a58 DATE
405 , p9_a59 DATE
406 , p9_a60 NUMBER
407 , p9_a61 NUMBER
408 , p9_a62 NUMBER
409 , p9_a63 NUMBER
410 , p9_a64 NUMBER
411 , p9_a65 NUMBER
412 , p9_a66 NUMBER
413 , p9_a67 NUMBER
414 , p9_a68 NUMBER
415 , p9_a69 NUMBER
416 , p9_a70 VARCHAR2
417 , p10_a0 JTF_NUMBER_TABLE
418 , p10_a1 JTF_VARCHAR2_TABLE_100
419 )
420
421 as
422 ddp_rsv_rec ahl_mm_reservations_pvt.mtl_reservation_rec_type;
423 ddp_serial_number_tbl ahl_mm_reservations_pvt.serial_number_tbl_type;
424 ddindx binary_integer; indx binary_integer;
425 begin
426
427 -- copy data to the local IN or IN-OUT args, if any
428
429
430
431
432
433
434
435
436
437 ddp_rsv_rec.reservation_id := p9_a0;
438 ddp_rsv_rec.requirement_date := p9_a1;
439 ddp_rsv_rec.organization_id := p9_a2;
440 ddp_rsv_rec.inventory_item_id := p9_a3;
441 ddp_rsv_rec.demand_source_type_id := p9_a4;
442 ddp_rsv_rec.demand_source_name := p9_a5;
443 ddp_rsv_rec.demand_source_header_id := p9_a6;
444 ddp_rsv_rec.demand_source_line_id := p9_a7;
445 ddp_rsv_rec.demand_source_delivery := p9_a8;
446 ddp_rsv_rec.primary_uom_code := p9_a9;
447 ddp_rsv_rec.primary_uom_id := p9_a10;
448 ddp_rsv_rec.secondary_uom_code := p9_a11;
449 ddp_rsv_rec.secondary_uom_id := p9_a12;
450 ddp_rsv_rec.reservation_uom_code := p9_a13;
451 ddp_rsv_rec.reservation_uom_id := p9_a14;
452 ddp_rsv_rec.reservation_quantity := p9_a15;
453 ddp_rsv_rec.primary_reservation_quantity := p9_a16;
454 ddp_rsv_rec.secondary_reservation_quantity := p9_a17;
455 ddp_rsv_rec.detailed_quantity := p9_a18;
456 ddp_rsv_rec.secondary_detailed_quantity := p9_a19;
457 ddp_rsv_rec.autodetail_group_id := p9_a20;
458 ddp_rsv_rec.external_source_code := p9_a21;
459 ddp_rsv_rec.external_source_line_id := p9_a22;
460 ddp_rsv_rec.supply_source_type_id := p9_a23;
461 ddp_rsv_rec.supply_source_header_id := p9_a24;
462 ddp_rsv_rec.supply_source_line_id := p9_a25;
463 ddp_rsv_rec.supply_source_name := p9_a26;
464 ddp_rsv_rec.supply_source_line_detail := p9_a27;
465 ddp_rsv_rec.revision := p9_a28;
466 ddp_rsv_rec.subinventory_code := p9_a29;
467 ddp_rsv_rec.subinventory_id := p9_a30;
468 ddp_rsv_rec.locator_id := p9_a31;
469 ddp_rsv_rec.lot_number := p9_a32;
470 ddp_rsv_rec.lot_number_id := p9_a33;
471 ddp_rsv_rec.pick_slip_number := p9_a34;
472 ddp_rsv_rec.lpn_id := p9_a35;
473 ddp_rsv_rec.attribute_category := p9_a36;
474 ddp_rsv_rec.attribute1 := p9_a37;
475 ddp_rsv_rec.attribute2 := p9_a38;
476 ddp_rsv_rec.attribute3 := p9_a39;
477 ddp_rsv_rec.attribute4 := p9_a40;
478 ddp_rsv_rec.attribute5 := p9_a41;
479 ddp_rsv_rec.attribute6 := p9_a42;
480 ddp_rsv_rec.attribute7 := p9_a43;
481 ddp_rsv_rec.attribute8 := p9_a44;
482 ddp_rsv_rec.attribute9 := p9_a45;
483 ddp_rsv_rec.attribute10 := p9_a46;
484 ddp_rsv_rec.attribute11 := p9_a47;
485 ddp_rsv_rec.attribute12 := p9_a48;
486 ddp_rsv_rec.attribute13 := p9_a49;
487 ddp_rsv_rec.attribute14 := p9_a50;
488 ddp_rsv_rec.attribute15 := p9_a51;
489 ddp_rsv_rec.ship_ready_flag := p9_a52;
490 ddp_rsv_rec.staged_flag := p9_a53;
491 ddp_rsv_rec.crossdock_flag := p9_a54;
492 ddp_rsv_rec.crossdock_criteria_id := p9_a55;
493 ddp_rsv_rec.demand_source_line_detail := p9_a56;
494 ddp_rsv_rec.serial_reservation_quantity := p9_a57;
495 ddp_rsv_rec.supply_receipt_date := p9_a58;
496 ddp_rsv_rec.demand_ship_date := p9_a59;
497 ddp_rsv_rec.project_id := p9_a60;
498 ddp_rsv_rec.task_id := p9_a61;
499 ddp_rsv_rec.orig_supply_source_type_id := p9_a62;
500 ddp_rsv_rec.orig_supply_source_header_id := p9_a63;
501 ddp_rsv_rec.orig_supply_source_line_id := p9_a64;
502 ddp_rsv_rec.orig_supply_source_line_detail := p9_a65;
503 ddp_rsv_rec.orig_demand_source_type_id := p9_a66;
504 ddp_rsv_rec.orig_demand_source_header_id := p9_a67;
505 ddp_rsv_rec.orig_demand_source_line_id := p9_a68;
506 ddp_rsv_rec.orig_demand_source_line_detail := p9_a69;
507 ddp_rsv_rec.serial_number := p9_a70;
508
509 ahl_mm_reservations_pvt_w.rosetta_table_copy_in_p2(ddp_serial_number_tbl, p10_a0
510 , p10_a1
511 );
512
513 -- here's the delegated call to the old PL/SQL routine
514 ahl_mm_reservations_pvt.update_reservation(p_api_version,
515 p_init_msg_list,
516 p_commit,
517 p_validation_level,
518 p_module_type,
519 x_return_status,
520 x_msg_count,
521 x_msg_data,
522 p_reservation_id,
523 ddp_rsv_rec,
524 ddp_serial_number_tbl);
525
526 -- copy data back from the local variables to OUT or IN-OUT args, if any
527
528
529
530
531
532
533
534
535
536
537 end;
538
539 procedure relieve_reservation(p_api_version NUMBER
540 , p_init_msg_list VARCHAR2
541 , p_commit VARCHAR2
542 , p_validation_level NUMBER
543 , p_module_type VARCHAR2
544 , x_return_status out nocopy VARCHAR2
545 , x_msg_count out nocopy NUMBER
546 , x_msg_data out nocopy VARCHAR2
547 , p_reservation_id NUMBER
548 , p9_a0 JTF_NUMBER_TABLE
549 , p9_a1 JTF_VARCHAR2_TABLE_100
550 )
551
552 as
553 ddp_serial_number_tbl ahl_mm_reservations_pvt.serial_number_tbl_type;
554 ddindx binary_integer; indx binary_integer;
555 begin
556
557 -- copy data to the local IN or IN-OUT args, if any
558
559
560
561
562
563
564
565
566
567 ahl_mm_reservations_pvt_w.rosetta_table_copy_in_p2(ddp_serial_number_tbl, p9_a0
568 , p9_a1
569 );
570
571 -- here's the delegated call to the old PL/SQL routine
572 ahl_mm_reservations_pvt.relieve_reservation(p_api_version,
573 p_init_msg_list,
574 p_commit,
575 p_validation_level,
576 p_module_type,
577 x_return_status,
578 x_msg_count,
579 x_msg_data,
580 p_reservation_id,
581 ddp_serial_number_tbl);
582
583 -- copy data back from the local variables to OUT or IN-OUT args, if any
584
585
586
587
588
589
590
591
592
593 end;
594
595 procedure transfer_reservation(p_api_version NUMBER
596 , p_init_msg_list VARCHAR2
597 , p_commit VARCHAR2
598 , p_validation_level NUMBER
599 , p_module_type VARCHAR2
600 , x_return_status out nocopy VARCHAR2
601 , x_msg_count out nocopy NUMBER
602 , x_msg_data out nocopy VARCHAR2
603 , p_from_reservation_id NUMBER
604 , p9_a0 NUMBER
605 , p9_a1 DATE
606 , p9_a2 NUMBER
607 , p9_a3 NUMBER
608 , p9_a4 NUMBER
609 , p9_a5 VARCHAR2
610 , p9_a6 NUMBER
611 , p9_a7 NUMBER
612 , p9_a8 NUMBER
613 , p9_a9 VARCHAR2
614 , p9_a10 NUMBER
615 , p9_a11 VARCHAR2
616 , p9_a12 NUMBER
617 , p9_a13 VARCHAR2
618 , p9_a14 NUMBER
619 , p9_a15 NUMBER
620 , p9_a16 NUMBER
621 , p9_a17 NUMBER
622 , p9_a18 NUMBER
623 , p9_a19 NUMBER
624 , p9_a20 NUMBER
625 , p9_a21 VARCHAR2
626 , p9_a22 NUMBER
627 , p9_a23 NUMBER
628 , p9_a24 NUMBER
629 , p9_a25 NUMBER
630 , p9_a26 VARCHAR2
631 , p9_a27 NUMBER
632 , p9_a28 VARCHAR2
633 , p9_a29 VARCHAR2
634 , p9_a30 NUMBER
635 , p9_a31 NUMBER
636 , p9_a32 VARCHAR2
637 , p9_a33 NUMBER
638 , p9_a34 NUMBER
639 , p9_a35 NUMBER
640 , p9_a36 VARCHAR2
641 , p9_a37 VARCHAR2
642 , p9_a38 VARCHAR2
643 , p9_a39 VARCHAR2
644 , p9_a40 VARCHAR2
645 , p9_a41 VARCHAR2
646 , p9_a42 VARCHAR2
647 , p9_a43 VARCHAR2
648 , p9_a44 VARCHAR2
649 , p9_a45 VARCHAR2
650 , p9_a46 VARCHAR2
651 , p9_a47 VARCHAR2
652 , p9_a48 VARCHAR2
653 , p9_a49 VARCHAR2
654 , p9_a50 VARCHAR2
655 , p9_a51 VARCHAR2
656 , p9_a52 NUMBER
657 , p9_a53 VARCHAR2
658 , p9_a54 VARCHAR2
659 , p9_a55 NUMBER
660 , p9_a56 NUMBER
661 , p9_a57 NUMBER
662 , p9_a58 DATE
663 , p9_a59 DATE
664 , p9_a60 NUMBER
665 , p9_a61 NUMBER
666 , p9_a62 NUMBER
667 , p9_a63 NUMBER
668 , p9_a64 NUMBER
669 , p9_a65 NUMBER
670 , p9_a66 NUMBER
671 , p9_a67 NUMBER
672 , p9_a68 NUMBER
673 , p9_a69 NUMBER
674 , p9_a70 VARCHAR2
675 , p10_a0 JTF_NUMBER_TABLE
676 , p10_a1 JTF_VARCHAR2_TABLE_100
677 , x_to_reservation_id out nocopy NUMBER
678 )
679
680 as
681 ddp_to_rsv_rec ahl_mm_reservations_pvt.mtl_reservation_rec_type;
682 ddp_serial_number_tbl ahl_mm_reservations_pvt.serial_number_tbl_type;
683 ddindx binary_integer; indx binary_integer;
684 begin
685
686 -- copy data to the local IN or IN-OUT args, if any
687
688
689
690
691
692
693
694
695
696 ddp_to_rsv_rec.reservation_id := p9_a0;
697 ddp_to_rsv_rec.requirement_date := p9_a1;
698 ddp_to_rsv_rec.organization_id := p9_a2;
699 ddp_to_rsv_rec.inventory_item_id := p9_a3;
700 ddp_to_rsv_rec.demand_source_type_id := p9_a4;
701 ddp_to_rsv_rec.demand_source_name := p9_a5;
702 ddp_to_rsv_rec.demand_source_header_id := p9_a6;
703 ddp_to_rsv_rec.demand_source_line_id := p9_a7;
704 ddp_to_rsv_rec.demand_source_delivery := p9_a8;
705 ddp_to_rsv_rec.primary_uom_code := p9_a9;
706 ddp_to_rsv_rec.primary_uom_id := p9_a10;
707 ddp_to_rsv_rec.secondary_uom_code := p9_a11;
708 ddp_to_rsv_rec.secondary_uom_id := p9_a12;
709 ddp_to_rsv_rec.reservation_uom_code := p9_a13;
710 ddp_to_rsv_rec.reservation_uom_id := p9_a14;
711 ddp_to_rsv_rec.reservation_quantity := p9_a15;
712 ddp_to_rsv_rec.primary_reservation_quantity := p9_a16;
713 ddp_to_rsv_rec.secondary_reservation_quantity := p9_a17;
714 ddp_to_rsv_rec.detailed_quantity := p9_a18;
715 ddp_to_rsv_rec.secondary_detailed_quantity := p9_a19;
716 ddp_to_rsv_rec.autodetail_group_id := p9_a20;
717 ddp_to_rsv_rec.external_source_code := p9_a21;
718 ddp_to_rsv_rec.external_source_line_id := p9_a22;
719 ddp_to_rsv_rec.supply_source_type_id := p9_a23;
720 ddp_to_rsv_rec.supply_source_header_id := p9_a24;
721 ddp_to_rsv_rec.supply_source_line_id := p9_a25;
722 ddp_to_rsv_rec.supply_source_name := p9_a26;
723 ddp_to_rsv_rec.supply_source_line_detail := p9_a27;
724 ddp_to_rsv_rec.revision := p9_a28;
725 ddp_to_rsv_rec.subinventory_code := p9_a29;
726 ddp_to_rsv_rec.subinventory_id := p9_a30;
727 ddp_to_rsv_rec.locator_id := p9_a31;
728 ddp_to_rsv_rec.lot_number := p9_a32;
729 ddp_to_rsv_rec.lot_number_id := p9_a33;
730 ddp_to_rsv_rec.pick_slip_number := p9_a34;
731 ddp_to_rsv_rec.lpn_id := p9_a35;
732 ddp_to_rsv_rec.attribute_category := p9_a36;
733 ddp_to_rsv_rec.attribute1 := p9_a37;
734 ddp_to_rsv_rec.attribute2 := p9_a38;
735 ddp_to_rsv_rec.attribute3 := p9_a39;
736 ddp_to_rsv_rec.attribute4 := p9_a40;
737 ddp_to_rsv_rec.attribute5 := p9_a41;
738 ddp_to_rsv_rec.attribute6 := p9_a42;
739 ddp_to_rsv_rec.attribute7 := p9_a43;
740 ddp_to_rsv_rec.attribute8 := p9_a44;
741 ddp_to_rsv_rec.attribute9 := p9_a45;
742 ddp_to_rsv_rec.attribute10 := p9_a46;
743 ddp_to_rsv_rec.attribute11 := p9_a47;
744 ddp_to_rsv_rec.attribute12 := p9_a48;
745 ddp_to_rsv_rec.attribute13 := p9_a49;
746 ddp_to_rsv_rec.attribute14 := p9_a50;
747 ddp_to_rsv_rec.attribute15 := p9_a51;
748 ddp_to_rsv_rec.ship_ready_flag := p9_a52;
749 ddp_to_rsv_rec.staged_flag := p9_a53;
750 ddp_to_rsv_rec.crossdock_flag := p9_a54;
751 ddp_to_rsv_rec.crossdock_criteria_id := p9_a55;
752 ddp_to_rsv_rec.demand_source_line_detail := p9_a56;
753 ddp_to_rsv_rec.serial_reservation_quantity := p9_a57;
754 ddp_to_rsv_rec.supply_receipt_date := p9_a58;
755 ddp_to_rsv_rec.demand_ship_date := p9_a59;
756 ddp_to_rsv_rec.project_id := p9_a60;
757 ddp_to_rsv_rec.task_id := p9_a61;
758 ddp_to_rsv_rec.orig_supply_source_type_id := p9_a62;
759 ddp_to_rsv_rec.orig_supply_source_header_id := p9_a63;
760 ddp_to_rsv_rec.orig_supply_source_line_id := p9_a64;
761 ddp_to_rsv_rec.orig_supply_source_line_detail := p9_a65;
762 ddp_to_rsv_rec.orig_demand_source_type_id := p9_a66;
763 ddp_to_rsv_rec.orig_demand_source_header_id := p9_a67;
764 ddp_to_rsv_rec.orig_demand_source_line_id := p9_a68;
765 ddp_to_rsv_rec.orig_demand_source_line_detail := p9_a69;
766 ddp_to_rsv_rec.serial_number := p9_a70;
767
768 ahl_mm_reservations_pvt_w.rosetta_table_copy_in_p2(ddp_serial_number_tbl, p10_a0
769 , p10_a1
770 );
771
772
773 -- here's the delegated call to the old PL/SQL routine
774 ahl_mm_reservations_pvt.transfer_reservation(p_api_version,
775 p_init_msg_list,
776 p_commit,
777 p_validation_level,
778 p_module_type,
779 x_return_status,
780 x_msg_count,
781 x_msg_data,
782 p_from_reservation_id,
783 ddp_to_rsv_rec,
784 ddp_serial_number_tbl,
785 x_to_reservation_id);
786
787 -- copy data back from the local variables to OUT or IN-OUT args, if any
788
789
790
791
792
793
794
795
796
797
798
799 end;
800
801 procedure process_reservation(p_api_version NUMBER
802 , p_init_msg_list VARCHAR2
803 , p_commit VARCHAR2
804 , p_validation_level NUMBER
805 , p_module_type VARCHAR2
806 , x_return_status out nocopy VARCHAR2
807 , x_msg_count out nocopy NUMBER
808 , x_msg_data out nocopy VARCHAR2
809 , p8_a0 NUMBER
810 , p8_a1 DATE
811 , p8_a2 NUMBER
812 , p8_a3 NUMBER
813 , p8_a4 NUMBER
814 , p8_a5 VARCHAR2
815 , p8_a6 NUMBER
816 , p8_a7 NUMBER
817 , p8_a8 NUMBER
818 , p8_a9 VARCHAR2
819 , p8_a10 NUMBER
820 , p8_a11 VARCHAR2
821 , p8_a12 NUMBER
822 , p8_a13 VARCHAR2
823 , p8_a14 NUMBER
824 , p8_a15 NUMBER
825 , p8_a16 NUMBER
826 , p8_a17 NUMBER
827 , p8_a18 NUMBER
828 , p8_a19 NUMBER
829 , p8_a20 NUMBER
830 , p8_a21 VARCHAR2
831 , p8_a22 NUMBER
832 , p8_a23 NUMBER
833 , p8_a24 NUMBER
834 , p8_a25 NUMBER
835 , p8_a26 VARCHAR2
836 , p8_a27 NUMBER
837 , p8_a28 VARCHAR2
838 , p8_a29 VARCHAR2
839 , p8_a30 NUMBER
840 , p8_a31 NUMBER
841 , p8_a32 VARCHAR2
842 , p8_a33 NUMBER
843 , p8_a34 NUMBER
844 , p8_a35 NUMBER
845 , p8_a36 VARCHAR2
846 , p8_a37 VARCHAR2
847 , p8_a38 VARCHAR2
848 , p8_a39 VARCHAR2
849 , p8_a40 VARCHAR2
850 , p8_a41 VARCHAR2
851 , p8_a42 VARCHAR2
852 , p8_a43 VARCHAR2
853 , p8_a44 VARCHAR2
854 , p8_a45 VARCHAR2
855 , p8_a46 VARCHAR2
856 , p8_a47 VARCHAR2
857 , p8_a48 VARCHAR2
858 , p8_a49 VARCHAR2
859 , p8_a50 VARCHAR2
860 , p8_a51 VARCHAR2
861 , p8_a52 NUMBER
862 , p8_a53 VARCHAR2
863 , p8_a54 VARCHAR2
864 , p8_a55 NUMBER
865 , p8_a56 NUMBER
866 , p8_a57 NUMBER
867 , p8_a58 DATE
868 , p8_a59 DATE
869 , p8_a60 NUMBER
870 , p8_a61 NUMBER
871 , p8_a62 NUMBER
872 , p8_a63 NUMBER
873 , p8_a64 NUMBER
874 , p8_a65 NUMBER
875 , p8_a66 NUMBER
876 , p8_a67 NUMBER
877 , p8_a68 NUMBER
878 , p8_a69 NUMBER
879 , p8_a70 VARCHAR2
880 , p9_a0 JTF_NUMBER_TABLE
881 , p9_a1 JTF_VARCHAR2_TABLE_100
882 , x_reservation_id_tbl out nocopy JTF_NUMBER_TABLE
883 )
884
885 as
886 ddp_rsv_rec ahl_mm_reservations_pvt.mtl_reservation_rec_type;
887 ddp_serial_number_tbl ahl_mm_reservations_pvt.serial_number_tbl_type;
888 ddx_reservation_id_tbl ahl_mm_reservations_pvt.number_table_type;
889 ddindx binary_integer; indx binary_integer;
890 begin
891
892 -- copy data to the local IN or IN-OUT args, if any
893
894
895
896
897
898
899
900
901 ddp_rsv_rec.reservation_id := p8_a0;
902 ddp_rsv_rec.requirement_date := p8_a1;
903 ddp_rsv_rec.organization_id := p8_a2;
904 ddp_rsv_rec.inventory_item_id := p8_a3;
905 ddp_rsv_rec.demand_source_type_id := p8_a4;
906 ddp_rsv_rec.demand_source_name := p8_a5;
907 ddp_rsv_rec.demand_source_header_id := p8_a6;
908 ddp_rsv_rec.demand_source_line_id := p8_a7;
909 ddp_rsv_rec.demand_source_delivery := p8_a8;
910 ddp_rsv_rec.primary_uom_code := p8_a9;
911 ddp_rsv_rec.primary_uom_id := p8_a10;
912 ddp_rsv_rec.secondary_uom_code := p8_a11;
913 ddp_rsv_rec.secondary_uom_id := p8_a12;
914 ddp_rsv_rec.reservation_uom_code := p8_a13;
915 ddp_rsv_rec.reservation_uom_id := p8_a14;
916 ddp_rsv_rec.reservation_quantity := p8_a15;
917 ddp_rsv_rec.primary_reservation_quantity := p8_a16;
918 ddp_rsv_rec.secondary_reservation_quantity := p8_a17;
919 ddp_rsv_rec.detailed_quantity := p8_a18;
920 ddp_rsv_rec.secondary_detailed_quantity := p8_a19;
921 ddp_rsv_rec.autodetail_group_id := p8_a20;
922 ddp_rsv_rec.external_source_code := p8_a21;
923 ddp_rsv_rec.external_source_line_id := p8_a22;
924 ddp_rsv_rec.supply_source_type_id := p8_a23;
925 ddp_rsv_rec.supply_source_header_id := p8_a24;
926 ddp_rsv_rec.supply_source_line_id := p8_a25;
927 ddp_rsv_rec.supply_source_name := p8_a26;
928 ddp_rsv_rec.supply_source_line_detail := p8_a27;
929 ddp_rsv_rec.revision := p8_a28;
930 ddp_rsv_rec.subinventory_code := p8_a29;
931 ddp_rsv_rec.subinventory_id := p8_a30;
932 ddp_rsv_rec.locator_id := p8_a31;
933 ddp_rsv_rec.lot_number := p8_a32;
934 ddp_rsv_rec.lot_number_id := p8_a33;
935 ddp_rsv_rec.pick_slip_number := p8_a34;
936 ddp_rsv_rec.lpn_id := p8_a35;
937 ddp_rsv_rec.attribute_category := p8_a36;
938 ddp_rsv_rec.attribute1 := p8_a37;
939 ddp_rsv_rec.attribute2 := p8_a38;
940 ddp_rsv_rec.attribute3 := p8_a39;
941 ddp_rsv_rec.attribute4 := p8_a40;
942 ddp_rsv_rec.attribute5 := p8_a41;
943 ddp_rsv_rec.attribute6 := p8_a42;
944 ddp_rsv_rec.attribute7 := p8_a43;
945 ddp_rsv_rec.attribute8 := p8_a44;
946 ddp_rsv_rec.attribute9 := p8_a45;
947 ddp_rsv_rec.attribute10 := p8_a46;
948 ddp_rsv_rec.attribute11 := p8_a47;
949 ddp_rsv_rec.attribute12 := p8_a48;
950 ddp_rsv_rec.attribute13 := p8_a49;
951 ddp_rsv_rec.attribute14 := p8_a50;
952 ddp_rsv_rec.attribute15 := p8_a51;
953 ddp_rsv_rec.ship_ready_flag := p8_a52;
954 ddp_rsv_rec.staged_flag := p8_a53;
955 ddp_rsv_rec.crossdock_flag := p8_a54;
956 ddp_rsv_rec.crossdock_criteria_id := p8_a55;
957 ddp_rsv_rec.demand_source_line_detail := p8_a56;
958 ddp_rsv_rec.serial_reservation_quantity := p8_a57;
959 ddp_rsv_rec.supply_receipt_date := p8_a58;
960 ddp_rsv_rec.demand_ship_date := p8_a59;
961 ddp_rsv_rec.project_id := p8_a60;
962 ddp_rsv_rec.task_id := p8_a61;
963 ddp_rsv_rec.orig_supply_source_type_id := p8_a62;
964 ddp_rsv_rec.orig_supply_source_header_id := p8_a63;
965 ddp_rsv_rec.orig_supply_source_line_id := p8_a64;
966 ddp_rsv_rec.orig_supply_source_line_detail := p8_a65;
967 ddp_rsv_rec.orig_demand_source_type_id := p8_a66;
968 ddp_rsv_rec.orig_demand_source_header_id := p8_a67;
969 ddp_rsv_rec.orig_demand_source_line_id := p8_a68;
970 ddp_rsv_rec.orig_demand_source_line_detail := p8_a69;
971 ddp_rsv_rec.serial_number := p8_a70;
972
973 ahl_mm_reservations_pvt_w.rosetta_table_copy_in_p2(ddp_serial_number_tbl, p9_a0
974 , p9_a1
975 );
976
977
978 -- here's the delegated call to the old PL/SQL routine
979 ahl_mm_reservations_pvt.process_reservation(p_api_version,
980 p_init_msg_list,
981 p_commit,
982 p_validation_level,
983 p_module_type,
984 x_return_status,
985 x_msg_count,
986 x_msg_data,
987 ddp_rsv_rec,
988 ddp_serial_number_tbl,
989 ddx_reservation_id_tbl);
990
991 -- copy data back from the local variables to OUT or IN-OUT args, if any
992
993
994
995
996
997
998
999
1000
1001
1002 ahl_mm_reservations_pvt_w.rosetta_table_copy_out_p4(ddx_reservation_id_tbl, x_reservation_id_tbl);
1003 end;
1004
1005 procedure cancel_reservation(p_api_version NUMBER
1006 , p_init_msg_list VARCHAR2
1007 , p_commit VARCHAR2
1008 , p_validation_level NUMBER
1009 , p_module_type VARCHAR2
1010 , x_return_status out nocopy VARCHAR2
1011 , x_msg_count out nocopy NUMBER
1012 , x_msg_data out nocopy VARCHAR2
1013 , p8_a0 JTF_NUMBER_TABLE
1014 , p8_a1 JTF_VARCHAR2_TABLE_100
1015 , p_reservation_id_tbl JTF_NUMBER_TABLE
1016 )
1017
1018 as
1019 ddp_serial_number_tbl ahl_mm_reservations_pvt.serial_number_tbl_type;
1020 ddp_reservation_id_tbl ahl_mm_reservations_pvt.number_table_type;
1021 ddindx binary_integer; indx binary_integer;
1022 begin
1023
1024 -- copy data to the local IN or IN-OUT args, if any
1025
1026
1027
1028
1029
1030
1031
1032
1033 ahl_mm_reservations_pvt_w.rosetta_table_copy_in_p2(ddp_serial_number_tbl, p8_a0
1034 , p8_a1
1035 );
1036
1037 ahl_mm_reservations_pvt_w.rosetta_table_copy_in_p4(ddp_reservation_id_tbl, p_reservation_id_tbl);
1038
1039 -- here's the delegated call to the old PL/SQL routine
1040 ahl_mm_reservations_pvt.cancel_reservation(p_api_version,
1041 p_init_msg_list,
1042 p_commit,
1043 p_validation_level,
1044 p_module_type,
1045 x_return_status,
1046 x_msg_count,
1047 x_msg_data,
1048 ddp_serial_number_tbl,
1049 ddp_reservation_id_tbl);
1050
1051 -- copy data back from the local variables to OUT or IN-OUT args, if any
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061 end;
1062
1063 end ahl_mm_reservations_pvt_w;