550: --Generate transaction_interface_id if the parameter is NULL
551: IF (p_transaction_interface_id IS NULL) THEN
552: SELECT mtl_material_transactions_s.NEXTVAL
553: INTO l_transaction_interface_id
554: FROM sys.dual;
555: ELSE
556: l_transaction_interface_id := p_transaction_interface_id;
557: END IF;
558:
560:
561: IF l_serial_control_code <> 1 THEN
562: SELECT mtl_material_transactions_s.NEXTVAL
563: INTO l_serial_transaction_temp_id
564: FROM sys.DUAL;
565: ELSE
566: l_serial_transaction_temp_id := NULL;
567: END IF;
568:
569: --Generate production_transaction_id if the parameter is NULL
570: IF (p_product_transaction_id IS NULL) THEN
571: SELECT rcv_transactions_interface_s.NEXTVAL
572: INTO l_product_transaction_id
573: FROM sys.dual;
574: ELSE
575: l_product_transaction_id := p_product_transaction_id;
576: END IF;
577:
1416: --Generate transaction_interface_id if necessary
1417: IF (p_transaction_interface_id IS NULL) THEN
1418: SELECT mtl_material_transactions_s.NEXTVAL
1419: INTO l_transaction_interface_id
1420: FROM sys.dual;
1421: ELSE
1422: l_transaction_interface_id := p_transaction_interface_id;
1423: END IF;
1424:
1425: --Generate production_transaction_id if the parameter is NULL
1426: IF (p_product_transaction_id IS NULL AND p_product_code = 'RCV') THEN
1427: SELECT rcv_transactions_interface_s.NEXTVAL
1428: INTO l_product_transaction_id
1429: FROM sys.dual;
1430: ELSE
1431: l_product_transaction_id := p_product_transaction_id;
1432: END IF;
1433:
2076: END IF;
2077:
2078: SELECT SYSDATE + l_shelf_life_days
2079: INTO l_expiration_date
2080: FROM DUAL;
2081:
2082: IF TRUNC(l_expiration_date) <> trunc(p_expiration_date) THEN
2083: fnd_message.set_name('INV', 'INV_EXP_DATE_NOT_CONSIDER');
2084: fnd_msg_pub.ADD;
2811: /*
2812: BEGIN
2813: SELECT 1
2814: INTO l_exist
2815: FROM dual
2816: WHERE exists (SELECT 1
2817: FROM rcv_transactions_interface
2818: WHERE group_id = p_group_id
2819: AND item_id is null
3062: --BUG 3633752: Break up the query below. This is made
3063: --to improve performance
3064: SELECT 1
3065: INTO l_exist
3066: FROM dual
3067: WHERE exists (SELECT '1'
3068: FROM rcv_supply rs, wms_license_plate_numbers wlpn
3069: WHERE wlpn.lpn_id = l_lpn_id
3070: AND wlpn.lpn_id = rs.lpn_id
3071: AND rs.location_id <> l_location_id);
3072: ELSE
3073: SELECT 1
3074: INTO l_exist
3075: FROM dual
3076: WHERE exists (SELECT '1'
3077: FROM rcv_supply rs, wms_license_plate_numbers wlpn
3078: WHERE wlpn.license_plate_number = l_lpn_num
3079: AND wlpn.lpn_id = rs.lpn_id
5026:
5027: BEGIN
5028: SELECT MTL_TXN_REQUEST_LINES_S.NEXTVAL
5029: INTO l_new_mol_rec.line_id
5030: FROM dual;
5031:
5032: INSERT INTO mtl_txn_request_lines
5033: (
5034: LINE_ID