[Home] [Help]
2259: SELECT
2260: fm_serial_number,
2261: to_serial_number
2262: FROM
2263: mtl_serial_numbers_interface
2264: WHERE l_intf_txn_id = transaction_interface_id;
2265:
2266: l_wlpnci_total_qty NUMBER;
2267: l_msni_total_qty NUMBER := 0;
2728:
2729: -- Now update the product code and product_intf_id
2730: IF (l_msni_total_qty > 0) THEN
2731: BEGIN
2732: UPDATE mtl_serial_numbers_interface
2733: SET product_code = 'RCV',
2734: product_transaction_id=l_rti_rec.interface_transaction_id,
2735: transaction_interface_id = l_serial_txn_intf_id
2736: --WHERE transaction_interface_id = l_wlpnci_rec.interface_transaction_id;
10529:
10530: l_user_id := fnd_global.user_id;
10531: l_login_id := fnd_global.login_id;
10532:
10533: Insert into MTL_SERIAL_NUMBERS_INTERFACE
10534: (
10535: transaction_interface_id,
10536: Source_Code,
10537: Source_Line_Id,
13737: Loop
13738: BEGIN
13739: SELECT 1
13740: INTO l_serial_disc
13741: FROM mtl_serial_numbers_interface msni
13742: , rcv_transactions_interface rti
13743: where rti.lpn_group_id = p_lpn_group_id
13744: and (rti.lpn_id = l_lpn_contents.lpn_id
13745: OR rti.license_plate_number = l_lpn_contents.license_plate_number)
16908: IF (l_debug = 1) THEN
16909: print_debug('insert_msni_rowid:010: Entry Stamp :' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
16910: END If;
16911:
16912: INSERT INTO mtl_serial_numbers_interface
16913: (TRANSACTION_INTERFACE_ID,
16914: SOURCE_CODE,
16915: SOURCE_LINE_ID,
16916: LAST_UPDATE_DATE,
17095: ATTRIBUTE14,
17096: ATTRIBUTE15,
17097: PRODUCT_CODE,
17098: p_product_txn_id
17099: FROM mtl_serial_numbers_interface
17100: WHERE ROWID = p_rowid);
17101:
17102: IF (l_debug = 1) THEN
17103: print_debug('insert_msni_rowid:020: Exit Stamp :' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
17155: CURSOR msni_recs_with_rsl (l_old_rti_id NUMBER,l_shipment_line_id NUMBER) IS
17156: SELECT msni.fm_serial_number,
17157: msni.to_serial_number,
17158: msni.ROWID
17159: FROM mtl_serial_numbers_interface msni,rcv_serials_supply rss
17160: WHERE msni.product_code = 'RCV'
17161: AND msni.product_transaction_id = l_old_rti_id
17162: AND msni.fm_serial_number = rss.serial_num(+)
17163: AND NVL(rss.shipment_line_id,l_shipment_line_id) = l_shipment_line_id --10248599
17166: CURSOR msni_recs (l_old_rti_id NUMBER) IS
17167: SELECT msni.fm_serial_number,
17168: msni.to_serial_number,
17169: msni.ROWID
17170: FROM mtl_serial_numbers_interface msni
17171: WHERE msni.product_code = 'RCV'
17172: AND msni.product_transaction_id = l_old_rti_id;
17173: --13521315
17174: l_msni_rec msni_recs%ROWTYPE;
17176: CURSOR msni_recs_lotserial(l_serial_transaction_temp_id NUMBER) IS
17177: SELECT fm_serial_number,
17178: to_serial_number,
17179: ROWID
17180: FROM mtl_serial_numbers_interface
17181: WHERE transaction_interface_id = l_serial_transaction_temp_id;
17182:
17183: l_remaining_quantity NUMBER;
17184: l_primary_rem_qty NUMBER;
17258:
17259: BEGIN
17260: SELECT SUM(inv_serial_number_pub.get_serial_diff(fm_serial_number,to_serial_number))
17261: INTO l_total_serial_qty
17262: FROM mtl_serial_numbers_interface
17263: WHERE product_code = 'RCV'
17264: AND product_transaction_id = l_orig_interface_trx_id;
17265: EXCEPTION
17266: WHEN no_data_found THEN
17364: mtli.transaction_quantity)
17365: )
17366: = (SELECT SUM(inv_serial_number_pub.get_serial_diff(msni.fm_serial_number,
17367: msni.to_serial_number))
17368: FROM mtl_serial_numbers_interface msni
17369: WHERE msni.transaction_interface_id = mtli.serial_transaction_temp_id));
17370: EXCEPTION
17371: WHEN no_data_found then
17372: l_lot_ser_qty := 0;
17479:
17480: BEGIN
17481: SELECT SUM(inv_serial_number_pub.get_serial_diff(fm_serial_number,to_serial_number))
17482: INTO l_total_serial_qty
17483: FROM mtl_serial_numbers_interface
17484: WHERE product_code = 'RCV'
17485: AND product_transaction_id = l_orig_interface_trx_id;
17486: EXCEPTION
17487: WHEN no_data_found THEN
17536: get_primary_qty(l_to_organization_id,l_item_id,l_uom_code,
17537: mtli.transaction_quantity)
17538: ) = (SELECT SUM(inv_serial_number_pub.get_serial_diff(msni.fm_serial_number,
17539: msni.to_serial_number))
17540: FROM mtl_serial_numbers_interface msni
17541: WHERE msni.transaction_interface_id = mtli.serial_transaction_temp_id))
17542: AND (p_rti_tb(newrti).lot_number IS NULL OR (p_rti_tb(newrti).lot_number IS NOT NULL AND lot_number=p_rti_tb(newrti).lot_number)); -- for 13972742
17543: EXCEPTION
17544: WHEN no_data_found then
17749: IF (l_debug = 1) THEN
17750: print_debug('split_lot_serial:170: update msni ', 1);
17751: END If;
17752: -- update the msni with new rti id.
17753: UPDATE mtl_serial_numbers_interface
17754: SET product_transaction_id = p_rti_tb(newrti).new_interface_trx_id
17755: WHERE ROWID = l_msni_rec.ROWID;
17756:
17757: END LOOP; -- fetch msni_recs_lotserial
17837: IF (l_debug = 1) THEN
17838: print_debug('split_lot_serial:210: update msni ', 1);
17839: END If;
17840:
17841: UPDATE mtl_serial_numbers_interface
17842: SET product_transaction_id = p_rti_tb(newrti).new_interface_trx_id,
17843: transaction_interface_id = l_new_serial_txn_temp_id
17844: WHERE ROWID = l_msni_rec.ROWID;
17845:
17887: IF (l_debug = 1) THEN
17888: print_debug('split_lot_serial:230: update msni ', 1);
17889: END IF;
17890:
17891: UPDATE mtl_serial_numbers_interface
17892: SET fm_serial_number = l_new_from_ser_num
17893: WHERE ROWID = l_msni_rec.ROWID;
17894:
17895: l_remaining_serial_qty := 0;
17989: print_debug('split_lot_serial:240: update msni ', 1);
17990: print_debug('split_lot_serial:241: new rti '||p_rti_tb(newrti).new_interface_trx_id, 1);
17991: END If;
17992:
17993: UPDATE mtl_serial_numbers_interface
17994: SET product_transaction_id = p_rti_tb(newrti).new_interface_trx_id
17995: WHERE ROWID = l_msni_rec.ROWID;
17996:
17997: l_remaining_quantity := l_remaining_quantity -
18042: IF (l_debug = 1) THEN
18043: print_debug('split_lot_serial:260: update msni ', 1);
18044: END If;
18045:
18046: UPDATE mtl_serial_numbers_interface
18047: SET fm_serial_number = l_new_from_ser_num
18048: WHERE ROWID = l_msni_rec.ROWID;
18049:
18050: l_remaining_quantity := 0;
18675: CYCLES_SINCE_MARK,
18676: NUMBER_OF_REPAIRS,
18677: PRODUCT_CODE,
18678: product_transaction_id
18679: FROM mtl_serial_numbers_interface
18680: WHERE product_code = 'RCV'
18681: AND product_transaction_id = p_rti_id;
18682:
18683: IF (l_debug = 1) THEN
18691: /* Added By Bug#9713930 */
18692: UPDATE mtl_transaction_lots_temp mtlt
18693: set mtlt.serial_transaction_temp_id =
18694: (Select msni.transaction_interface_id
18695: from mtl_serial_numbers_interface msni where
18696: msni.product_code = 'RCV'
18697: AND msni.product_transaction_id = p_rti_id
18698: and rownum=1)
18699: where mtlt.product_code = 'RCV'
18704: DELETE FROM mtl_transaction_lots_interface
18705: WHERE product_code = 'RCV'
18706: AND product_transaction_id = p_rti_id;
18707:
18708: DELETE FROM mtl_serial_numbers_interface
18709: WHERE product_code = 'RCV'
18710: AND product_transaction_id = p_rti_id;
18711:
18712: EXCEPTION