[Home] [Help]
3266: );
3267: l_progress := '80';
3268:
3269: IF (l_debug = 1) THEN
3270: print_debug('create_int_shp_rcvtxn_intf_rec 125 - before update_rcv_serials_supply' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
3271: END IF;
3272:
3273: /* FP-J Lot/Serial Support Enhancement
3274: * Populate the table to store the information of the RTIs created used for
3284: END IF;
3285: END IF; --END IF populate the table to store RTI info that was just created
3286:
3287: /* FP-J Lot/Serial Support Enhancement
3288: * No updates to rcv_serials_supply if INV J and PO J are installed
3289: */
3290: IF ((inv_rcv_common_apis.g_inv_patch_level < inv_rcv_common_apis.g_patchset_j) OR
3291: (inv_rcv_common_apis.g_po_patch_level < inv_rcv_common_apis.g_patchset_j_po)) THEN
3292: IF l_rcv_rcvtxn_rec.req_line_id IS NOT NULL
3291: (inv_rcv_common_apis.g_po_patch_level < inv_rcv_common_apis.g_patchset_j_po)) THEN
3292: IF l_rcv_rcvtxn_rec.req_line_id IS NOT NULL
3293: AND p_serial_control_code NOT IN(1, 6) THEN
3294: -- update rss for req
3295: update_rcv_serials_supply(
3296: x_return_status => l_return_status
3297: , x_msg_count => l_msg_count
3298: , x_msg_data => x_message
3299: , p_shipment_line_id => l_rcv_rcvtxn_rec.shipment_line_id
3300: );
3301: END IF;
3302:
3303: IF (l_debug = 1) THEN
3304: print_debug('create_int_shp_rcvtxn_intf_rec: 127 - before update_rcv_serials_supply' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
3305: END IF;
3306: ELSE
3307: IF (l_debug = 1) THEN
3308: print_debug('create_int_shp_rcvtxn_intf_rec: 127.6 - INV and PO patch levels are J or higher. No update to rcv_supply', 4);
5212: inv_rcv_common_apis.g_rcv_global_var := NULL;
5213: g_rcvtxn_match_table_gross.DELETE;
5214: END rcvtxn_clear_global;
5215:
5216: PROCEDURE update_rcv_serials_supply(
5217: x_return_status OUT NOCOPY VARCHAR2
5218: , x_msg_count OUT NOCOPY NUMBER
5219: , x_msg_data OUT NOCOPY VARCHAR2
5220: , p_shipment_line_id IN NUMBER
5225: BEGIN
5226: x_return_status := fnd_api.g_ret_sts_success;
5227:
5228: IF (l_debug = 1) THEN
5229: print_debug('Enter update_rcv_serials_supply 10' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5230: END IF;
5231:
5232: IF (l_debug = 1) THEN
5233: print_debug('p_shipment_line_id => ' || p_shipment_line_id || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5248: END IF;
5249:
5250: l_progress := '15';
5251:
5252: UPDATE rcv_serials_supply
5253: SET shipment_line_id = (SELECT shipment_line_id
5254: FROM rcv_serials_supply
5255: WHERE serial_num = l_serial_number)
5256: WHERE shipment_line_id = p_shipment_line_id;
5250: l_progress := '15';
5251:
5252: UPDATE rcv_serials_supply
5253: SET shipment_line_id = (SELECT shipment_line_id
5254: FROM rcv_serials_supply
5255: WHERE serial_num = l_serial_number)
5256: WHERE shipment_line_id = p_shipment_line_id;
5257:
5258: l_progress := '20';
5256: WHERE shipment_line_id = p_shipment_line_id;
5257:
5258: l_progress := '20';
5259:
5260: UPDATE rcv_serials_supply
5261: SET shipment_line_id = p_shipment_line_id
5262: WHERE serial_num = l_serial_number;
5263:
5264: l_progress := '30';
5263:
5264: l_progress := '30';
5265:
5266: IF (l_debug = 1) THEN
5267: print_debug('Complete update_rcv_serials_supply 40' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5268: END IF;
5269: EXCEPTION
5270: WHEN OTHERS THEN
5271: x_return_status := fnd_api.g_ret_sts_unexp_error;
5270: WHEN OTHERS THEN
5271: x_return_status := fnd_api.g_ret_sts_unexp_error;
5272:
5273: IF SQLCODE IS NOT NULL THEN
5274: inv_mobile_helper_functions.sql_error('INV_rcv_std_deliver_apis.update_rcv_serials_supply', l_progress, SQLCODE);
5275: END IF;
5276:
5277: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5278:
5276:
5277: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5278:
5279: IF (l_debug = 1) THEN
5280: print_debug('Exception in update_rcv_serials_supply 50' || SQLCODE || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5281: END IF;
5282: END update_rcv_serials_supply;
5283:
5284: FUNCTION insert_mtli_helper(
5278:
5279: IF (l_debug = 1) THEN
5280: print_debug('Exception in update_rcv_serials_supply 50' || SQLCODE || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5281: END IF;
5282: END update_rcv_serials_supply;
5283:
5284: FUNCTION insert_mtli_helper(
5285: p_txn_if_id IN OUT NOCOPY NUMBER
5286: , p_lot_number IN VARCHAR2
5482: ,msni.transaction_interface_id transaction_interface_id
5483: ,rsl.asn_line_flag asn_line_flag
5484: FROM rcv_supply rs,
5485: rcv_transactions rt,
5486: rcv_serials_supply rss,
5487: rcv_shipment_lines rsl,
5488: rcv_shipment_headers rsh,
5489: mtl_serial_numbers_interface msni
5490: WHERE rs.item_id = p_item_id
5561: )
5562: --Bug 5331779 - Begin change
5563: --Adding the following to make sure that we do not pickup RS with serial numbers
5564: AND NOT exists
5565: (SELECT '1' FROM rcv_serials_supply rss
5566: WHERE rss.transaction_id = rs.supply_source_id
5567: AND rss.supply_type_code = 'RECEIVING')
5568: --Bug 5331779-End change
5569: ORDER BY ORDERING1, ORDERING2