1: package body ahl_mm_cannibalization_pvt_w as
2: /* $Header: AHLWCANB.pls 120.0.12020000.2 2012/12/11 05:53:04 prakkum noship $ */
3: procedure create_nr_workorder(p_api_version NUMBER
4: , p_init_msg_list VARCHAR2
5: , p_commit VARCHAR2
169:
170:
171:
172: -- here's the delegated call to the old PL/SQL routine
173: ahl_mm_cannibalization_pvt.create_nr_workorder(p_api_version,
174: p_init_msg_list,
175: p_commit,
176: p_validation_level,
177: p_module_type,
283: , p8_a6 in out nocopy NUMBER
284: )
285:
286: as
287: ddp_cannibalization_rec ahl_mm_cannibalization_pvt.cannibalization_rec_type;
288: ddindx binary_integer; indx binary_integer;
289: begin
290:
291: -- copy data to the local IN or IN-OUT args, if any
305: ddp_cannibalization_rec.supply_pos_key := p8_a5;
306: ddp_cannibalization_rec.reservation_id := p8_a6;
307:
308: -- here's the delegated call to the old PL/SQL routine
309: ahl_mm_cannibalization_pvt.process_cannibalization(p_api_version,
310: p_init_msg_list,
311: p_commit,
312: p_validation_level,
313: p_module_type,
333: p8_a5 := ddp_cannibalization_rec.supply_pos_key;
334: p8_a6 := ddp_cannibalization_rec.reservation_id;
335: end;
336:
337: end ahl_mm_cannibalization_pvt_w;