[Home] [Help]
1099: IS
1100: l_api_version NUMBER := 0.9;
1101: L_api_name VARCHAR2(30) := 'Process_LPN_CountRequest';
1102:
1103: l_lpn WMS_CONTAINER_PUB.LPN;
1104: l_expl_tbl WMS_CONTAINER_PUB.WMS_Container_Tbl_Type;
1105: l_item_rec MTL_CCEOI_VAR_PVT.INV_CCEOI_TYPE := p_interface_rec;
1106: l_temp_int_id NUMBER;
1107: l_counter NUMBER := 0;
1100: l_api_version NUMBER := 0.9;
1101: L_api_name VARCHAR2(30) := 'Process_LPN_CountRequest';
1102:
1103: l_lpn WMS_CONTAINER_PUB.LPN;
1104: l_expl_tbl WMS_CONTAINER_PUB.WMS_Container_Tbl_Type;
1105: l_item_rec MTL_CCEOI_VAR_PVT.INV_CCEOI_TYPE := p_interface_rec;
1106: l_temp_int_id NUMBER;
1107: l_counter NUMBER := 0;
1108: l_unsched_allowed NUMBER;
1181: -- Validate LPN ID and LPN
1182: IF p_interface_rec.parent_lpn_id IS NOT NULL OR p_interface_rec.parent_lpn IS NOT NULL THEN
1183: l_lpn.lpn_id := p_interface_rec.parent_lpn_id;
1184: l_lpn.license_plate_number := p_interface_rec.parent_lpn;
1185: l_result := WMS_CONTAINER_PUB.Validate_LPN(l_lpn);
1186: IF (l_result = INV_Validate.F) THEN
1187: IF (l_debug = 1) THEN
1188: mdebug('invalid parent lpn id or parent lpn');
1189: END IF;
1266: IF (l_debug = 1) THEN
1267: mdebug('record is a container, exploding contents');
1268: END IF;
1269: -- Record is a container, thus needs to be exploded
1270: WMS_CONTAINER_PUB.Explode_LPN(
1271: p_api_version => 1.0,
1272: p_init_msg_list => fnd_api.g_true,
1273: p_commit => fnd_api.g_true,
1274: x_return_status => x_return_status,
1444:
1445: IF (l_debug = 1) THEN
1446: mdebug('validating new parent lpn: ' || TO_CHAR(l_lpn.lpn_id));
1447: END IF;
1448: l_result := WMS_CONTAINER_PUB.Validate_LPN(l_lpn);
1449: IF (l_result = INV_Validate.F) THEN
1450: IF (l_debug = 1) THEN
1451: mdebug('invalid parent lpn id or parent lpn');
1452: END IF;