[Home] [Help]
2: /* $Header: AHLPICXB.pls 115.2 2003/08/29 09:59:39 tamdas noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AHL_MC_ITEM_COMP_PUB';
5:
6: PROCEDURE Convert_code_to_ID(p_x_item_comp_rec IN OUT NOCOPY ahl_mc_item_comp_pvt.Detail_Rec_Type);
7:
8: PROCEDURE Process_Item_Composition(
9: p_api_version IN NUMBER,
10: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
13: p_module_type IN VARCHAR2 := NULL,
14: x_return_status OUT NOCOPY VARCHAR2,
15: x_msg_count OUT NOCOPY NUMBER,
16: x_msg_data OUT NOCOPY VARCHAR2,
17: p_x_ic_header_rec IN OUT NOCOPY AHL_MC_ITEM_COMP_PVT.Header_Rec_Type,
18: p_x_ic_det_tbl IN OUT NOCOPY AHL_MC_ITEM_COMP_PVT.Det_Tbl_Type
19: ) AS
20:
21: l_init_msg_list VARCHAR2(10):=FND_API.G_TRUE;
14: x_return_status OUT NOCOPY VARCHAR2,
15: x_msg_count OUT NOCOPY NUMBER,
16: x_msg_data OUT NOCOPY VARCHAR2,
17: p_x_ic_header_rec IN OUT NOCOPY AHL_MC_ITEM_COMP_PVT.Header_Rec_Type,
18: p_x_ic_det_tbl IN OUT NOCOPY AHL_MC_ITEM_COMP_PVT.Det_Tbl_Type
19: ) AS
20:
21: l_init_msg_list VARCHAR2(10):=FND_API.G_TRUE;
22:
151: END IF;
152:
153: IF p_x_ic_header_rec.operation_flag = 'C' THEN
154:
155: ahl_mc_item_comp_pvt.Create_Item_Composition(
156: p_api_version => p_api_version,
157: --p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
158: --p_commit IN VARCHAR2 := FND_API.G_FALSE,
159: --p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
164: p_x_det_tbl => p_x_ic_det_tbl);
165:
166: ELSIF p_x_ic_header_rec.operation_flag = 'M' THEN
167:
168: ahl_mc_item_comp_pvt.Modify_Item_Composition(
169: p_api_version => p_api_version,
170: --p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
171: --p_commit IN VARCHAR2 := FND_API.G_FALSE,
172: --p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
177: p_x_det_tbl => p_x_ic_det_tbl);
178:
179: ELSIF p_x_ic_header_rec.operation_flag = 'D' THEN
180:
181: ahl_mc_item_comp_pvt.delete_item_composition(
182: p_api_version => p_api_version,
183: -- p_init_msg_list =>
184: -- p_commit =>
185: -- p_validation_level =>
253:
254: END Process_Item_Composition;
255:
256:
257: PROCEDURE Convert_code_to_ID(p_x_item_comp_rec IN OUT NOCOPY ahl_mc_item_comp_pvt.Detail_Rec_Type) IS
258:
259:
260: -- For Item Group id.
261: CURSOR get_itemGroup_csr(p_item_group_name IN VARCHAR2) IS
290:
291:
292: l_inventory_id NUMBER;
293: l_item_group_id NUMBER;
294: l_item_comp_rec ahl_mc_item_comp_pvt.Detail_Rec_Type DEFAULT p_x_item_comp_rec;
295: l_inventory_org_id NUMBER;
296: l_item_association_id NUMBER;
297: l_lookup_code fnd_lookups.lookup_code%TYPE;
298: l_return_val BOOLEAN;
303:
304: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
305: THEN
306: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
307: 'ahl_mc_item_comp_pvt.Convert_InTo_ID', 'Begin of Convert_InTo_ID');
308: END IF;
309:
310: IF (l_item_comp_rec.item_group_name IS NOT NULL) THEN
311: OPEN get_itemGroup_csr (l_item_comp_rec.item_group_name);
400: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
401: THEN
402: l_dummy := 'Inventory p_x_item_comp_rec '||to_char(p_x_item_comp_rec.inventory_item_id);
403: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
404: 'ahl_mc_item_comp_pvt.Convert_InTo_ID', l_dummy);
405: END IF;
406:
407:
408: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
407:
408: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL )
409: THEN
410: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
411: 'ahl_mc_item_comp_pvt.Convert_InTo_ID', 'End of Convert_InTo_ID');
412: END IF;
413:
414: END Convert_code_to_ID;
415: