[Home] [Help]
810: This API will insert records into
811:
812: MTL_TRANSACTION_LOTS_INTERFACE: For every receipt in lot
813: (lot controlled items).
814: MTL_SERIAL_NUMBERS_INTERFACE : For every serial number
815: receipt (serial controlled
816: items.)
817: MTL_TRANSACTIONS_INTERFACE : For every transaction
818: (corresponds to qty recd
1036: DECLARE
1037: --modified the following cursor for bug 6012741
1038: CURSOR get_received_serial_number IS
1039: SELECT rtrim(ltrim(msn.serial_number))
1040: FROM mtl_serial_numbers msn
1041: WHERE msn.inventory_item_id = p_inventory_item_id
1042: AND msn.current_organization_id = p_warehouse_id
1043: AND nvl(msn.current_subinventory_code,' ') = p_secondary_inventory
1044: AND nvl(msn.current_locator_id,0) = nvl(p_locator_id,0)
1131:
1132: BEGIN
1133:
1134: IF l_debug_level > 0 THEN
1135: oe_debug_pub.add( 'Inserting into mtl_serial_numbers_interface table ' , 1 ) ;
1136: END IF;
1137:
1138: insert into mtl_serial_numbers_interface
1139: (transaction_interface_id,
1134: IF l_debug_level > 0 THEN
1135: oe_debug_pub.add( 'Inserting into mtl_serial_numbers_interface table ' , 1 ) ;
1136: END IF;
1137:
1138: insert into mtl_serial_numbers_interface
1139: (transaction_interface_id,
1140: source_code,
1141: source_line_id,
1142: last_update_date,
1179:
1180: EXCEPTION
1181: WHEN OTHERS THEN
1182: IF l_debug_level > 0 THEN
1183: oe_debug_pub.add( 'Failed inserting into mtl_serial_numbers_interface' , 1 ) ;
1184: END IF;
1185: -- bug 5357879
1186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1187: ROLLBACK TO DECREMENT_INV;
1197: (p_sn_control_code = 5))
1198: THEN
1199:
1200: BEGIN
1201: UPDATE mtl_serial_numbers
1202: SET GROUP_MARK_ID = p_line_rec.line_id
1203: where inventory_item_id = p_inventory_item_id
1204: and current_organization_id = p_warehouse_id
1205: and nvl(current_locator_id,0) = nvl(p_locator_id,0)