[Home] [Help]
3170: );
3171: l_progress := '80';
3172:
3173: IF (l_debug = 1) THEN
3174: print_debug('create_int_shp_rcvtxn_intf_rec 125 - before update_rcv_serials_supply' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
3175: END IF;
3176:
3177: /* FP-J Lot/Serial Support Enhancement
3178: * Populate the table to store the information of the RTIs created used for
3188: END IF;
3189: END IF; --END IF populate the table to store RTI info that was just created
3190:
3191: /* FP-J Lot/Serial Support Enhancement
3192: * No updates to rcv_serials_supply if INV J and PO J are installed
3193: */
3194: IF ((inv_rcv_common_apis.g_inv_patch_level < inv_rcv_common_apis.g_patchset_j) OR
3195: (inv_rcv_common_apis.g_po_patch_level < inv_rcv_common_apis.g_patchset_j_po)) THEN
3196: IF l_rcv_rcvtxn_rec.req_line_id IS NOT NULL
3195: (inv_rcv_common_apis.g_po_patch_level < inv_rcv_common_apis.g_patchset_j_po)) THEN
3196: IF l_rcv_rcvtxn_rec.req_line_id IS NOT NULL
3197: AND p_serial_control_code NOT IN(1, 6) THEN
3198: -- update rss for req
3199: update_rcv_serials_supply(
3200: x_return_status => l_return_status
3201: , x_msg_count => l_msg_count
3202: , x_msg_data => x_message
3203: , p_shipment_line_id => l_rcv_rcvtxn_rec.shipment_line_id
3204: );
3205: END IF;
3206:
3207: IF (l_debug = 1) THEN
3208: print_debug('create_int_shp_rcvtxn_intf_rec: 127 - before update_rcv_serials_supply' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
3209: END IF;
3210: ELSE
3211: IF (l_debug = 1) THEN
3212: 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);
5090: inv_rcv_common_apis.g_rcv_global_var := NULL;
5091: g_rcvtxn_match_table_gross.DELETE;
5092: END rcvtxn_clear_global;
5093:
5094: PROCEDURE update_rcv_serials_supply(
5095: x_return_status OUT NOCOPY VARCHAR2
5096: , x_msg_count OUT NOCOPY NUMBER
5097: , x_msg_data OUT NOCOPY VARCHAR2
5098: , p_shipment_line_id IN NUMBER
5103: BEGIN
5104: x_return_status := fnd_api.g_ret_sts_success;
5105:
5106: IF (l_debug = 1) THEN
5107: print_debug('Enter update_rcv_serials_supply 10' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5108: END IF;
5109:
5110: IF (l_debug = 1) THEN
5111: print_debug('p_shipment_line_id => ' || p_shipment_line_id || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
5126: END IF;
5127:
5128: l_progress := '15';
5129:
5130: UPDATE rcv_serials_supply
5131: SET shipment_line_id = (SELECT shipment_line_id
5132: FROM rcv_serials_supply
5133: WHERE serial_num = l_serial_number)
5134: WHERE shipment_line_id = p_shipment_line_id;
5128: l_progress := '15';
5129:
5130: UPDATE rcv_serials_supply
5131: SET shipment_line_id = (SELECT shipment_line_id
5132: FROM rcv_serials_supply
5133: WHERE serial_num = l_serial_number)
5134: WHERE shipment_line_id = p_shipment_line_id;
5135:
5136: l_progress := '20';
5134: WHERE shipment_line_id = p_shipment_line_id;
5135:
5136: l_progress := '20';
5137:
5138: UPDATE rcv_serials_supply
5139: SET shipment_line_id = p_shipment_line_id
5140: WHERE serial_num = l_serial_number;
5141:
5142: l_progress := '30';
5141:
5142: l_progress := '30';
5143:
5144: IF (l_debug = 1) THEN
5145: print_debug('Complete update_rcv_serials_supply 40' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5146: END IF;
5147: EXCEPTION
5148: WHEN OTHERS THEN
5149: x_return_status := fnd_api.g_ret_sts_unexp_error;
5148: WHEN OTHERS THEN
5149: x_return_status := fnd_api.g_ret_sts_unexp_error;
5150:
5151: IF SQLCODE IS NOT NULL THEN
5152: inv_mobile_helper_functions.sql_error('INV_rcv_std_deliver_apis.update_rcv_serials_supply', l_progress, SQLCODE);
5153: END IF;
5154:
5155: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5156:
5154:
5155: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5156:
5157: IF (l_debug = 1) THEN
5158: print_debug('Exception in update_rcv_serials_supply 50' || SQLCODE || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5159: END IF;
5160: END update_rcv_serials_supply;
5161:
5162: FUNCTION insert_mtli_helper(
5156:
5157: IF (l_debug = 1) THEN
5158: print_debug('Exception in update_rcv_serials_supply 50' || SQLCODE || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
5159: END IF;
5160: END update_rcv_serials_supply;
5161:
5162: FUNCTION insert_mtli_helper(
5163: p_txn_if_id IN OUT NOCOPY NUMBER
5164: , p_lot_number IN VARCHAR2
5360: ,msni.transaction_interface_id transaction_interface_id
5361: ,rsl.asn_line_flag asn_line_flag
5362: FROM rcv_supply rs,
5363: rcv_transactions rt,
5364: rcv_serials_supply rss,
5365: rcv_shipment_lines rsl,
5366: rcv_shipment_headers rsh,
5367: mtl_serial_numbers_interface msni
5368: WHERE rs.item_id = p_item_id
5430: ,-1) = nvl(p_inspection_status, -1)
5431: --Bug 5331779 - Begin change
5432: --Adding the following to make sure that we do not pickup RS with serial numbers
5433: AND NOT exists
5434: (SELECT '1' FROM rcv_serials_supply rss
5435: WHERE rss.transaction_id = rs.supply_source_id
5436: AND rss.supply_type_code = 'RECEIVING')
5437: --Bug 5331779-End change
5438: ORDER BY ORDERING1, ORDERING2