[Home] [Help]
71: # PROCEDURE INV_VALIDATE_LOT
72: #
73: # DESCRIPTION :
74: #
75: # Additional Validations/defaulting needs to be done on MTL_TRANSACTION_LOTS_TEMP are:
76: # Default origination type to 'Purchasing' , RMA Validations and do separate validations
77: # for new and existing lots.
78: # First the RMA set of validations will be performed so that incase of any error we need
79: # not carry out the remaining set of validations.
244:
245: -------Checking if the item is dual UOM controlled.
246: IF p_line_secondary_quantity > 0 AND p_secondary_unit_of_measure IS NOT NULL THEN
247: */
248: /* Check total no of lots from MTL_TRANSACTION_LOTS_TEMP against transactuion id
249: and product code (RCV).IF there is only one lot for the receipt line and receipt
250: line qty (p_line_quantity) = lot qty THEN default the secondary qty from line
251: to lot record. */
252: /*
252: /*
253: BEGIN
254: SELECT count(LOT_NUMBER)
255: INTO l_count_lots
256: FROM MTL_TRANSACTION_LOTS_TEMP
257: WHERE PRODUCT_TRANSACTION_ID =p_rti_id
258: AND PRODUCT_CODE = 'RCV' ;
259:
260: IF l_count_lots = 1 THEN
259:
260: IF l_count_lots = 1 THEN
261: l_lot_secondary_quantity := p_line_secondary_quantity;
262:
263: UPDATE mtl_transaction_lots_temp
264: SET secondary_quantity = l_lot_secondary_quantity
265: WHERE rowid = p_mtlt_rowid ;
266:
267: x_lot_secondary_quantity := l_lot_secondary_quantity ;
966: x_lot_secondary_quantity :=l_lot_secondary_quantity ;
967:
968: ---update table with the defaulted secondary quantity
969: BEGIN
970: UPDATE mtl_transaction_lots_temp
971: SET secondary_quantity = l_lot_secondary_quantity
972: WHERE rowid = p_mtlt_rowid ;
973: IF g_debug = 1 THEN
974: print_debug('updated MTLT with the defaulted secondary quantity: ' || l_progress, 9);
981:
982: EXCEPTION
983: WHEN OTHERS THEN
984: IF g_debug = 1 THEN
985: print_debug('UPDATE mtl_transaction_lots_temp with not null lot secondary quantity failed for an existing lot' || l_progress, 1);
986: END IF;
987: RAISE g_exc_unexpected_error;
988: END;
989:
1072: x_lot_secondary_quantity :=l_lot_secondary_quantity ;
1073:
1074: ---update table with the defaulted secondary quantity
1075: BEGIN
1076: UPDATE mtl_transaction_lots_temp
1077: SET secondary_quantity = l_lot_secondary_quantity
1078: WHERE rowid = p_mtlt_rowid ;
1079:
1080: IF g_debug = 1 THEN
1088:
1089: EXCEPTION
1090: WHEN OTHERS THEN
1091: IF g_debug = 1 THEN
1092: print_debug('UPDATE mtl_transaction_lots_temp with not null lot secondary quantity failed for an existing lot' || l_progress, 1);
1093: END IF;
1094: RAISE g_exc_unexpected_error;
1095: END;
1096:
1107: x_lot_secondary_quantity :=l_lot_secondary_quantity ;
1108:
1109: ---update table with NULL secondary quantity
1110: BEGIN
1111: UPDATE mtl_transaction_lots_temp
1112: SET secondary_quantity = l_lot_secondary_quantity
1113: WHERE rowid = p_mtlt_rowid ;
1114:
1115: IF g_debug = 1 THEN
1119:
1120: EXCEPTION
1121: WHEN OTHERS THEN
1122: IF g_debug = 1 THEN
1123: print_debug('UPDATE mtl_transaction_lots_temp with null lot secondary quantity failed for an existing lot' || l_progress, 1);
1124: END IF;
1125: RAISE g_exc_unexpected_error;
1126: END;
1127:
1168: x_lot_secondary_quantity :=l_lot_secondary_quantity ;
1169:
1170: ---update table with the defaulted secondary quantity
1171: BEGIN
1172: UPDATE mtl_transaction_lots_temp
1173: SET secondary_quantity = l_lot_secondary_quantity
1174: WHERE rowid = p_mtlt_rowid ;
1175: IF g_debug = 1 THEN
1176: print_debug('updated MTLT with the defaulted secondary quantity: ' || l_progress, 9);
1183:
1184: EXCEPTION
1185: WHEN OTHERS THEN
1186: IF g_debug = 1 THEN
1187: print_debug('UPDATE mtl_transaction_lots_temp with not null lot secondary quantity failed for an
1188: existing lot' || l_progress, 1);
1189: END IF;
1190: RAISE g_exc_unexpected_error;
1191: END;
1273: x_lot_secondary_quantity :=l_lot_secondary_quantity ;
1274:
1275: ---update table with the defaulted secondary quantity
1276: BEGIN
1277: UPDATE mtl_transaction_lots_temp
1278: SET secondary_quantity = l_lot_secondary_quantity
1279: WHERE rowid = p_mtlt_rowid ;
1280:
1281: IF g_debug = 1 THEN
1288:
1289: EXCEPTION
1290: WHEN OTHERS THEN
1291: IF g_debug = 1 THEN
1292: print_debug('UPDATE mtl_transaction_lots_temp with not null lot secondary quantity failed for a new lot'|| l_progress, 4);
1293: END IF;
1294: RAISE g_exc_unexpected_error;
1295: END;
1296:
1305: x_lot_secondary_quantity := l_lot_secondary_quantity ;
1306:
1307: ---update table with NULL secondary quantity
1308: BEGIN
1309: UPDATE mtl_transaction_lots_temp
1310: SET secondary_quantity = l_lot_secondary_quantity
1311: WHERE rowid = p_mtlt_rowid ;
1312:
1313: IF g_debug = 1 THEN
1321:
1322: EXCEPTION
1323: WHEN OTHERS THEN
1324: IF g_debug = 1 THEN
1325: print_debug('UPDATE mtl_transaction_lots_temp with null lot secondary quantity failed for a new lot'|| l_progress, 1);
1326: END IF;
1327: RAISE g_exc_unexpected_error;
1328: END;
1329:
1892:
1893: ----Update MTLT with the out record type parameter x_lot_rec
1894: BEGIN
1895:
1896: UPDATE mtl_transaction_lots_temp
1897: SET
1898: lot_expiration_date = x_lot_rec.expiration_date ,
1899: attribute_category = x_lot_rec.attribute_category ,
1900: lot_attribute_category = x_lot_rec.lot_attribute_category ,
1973: END IF;
1974: RAISE g_exc_unexpected_error;
1975: END;
1976:
1977: --------The records from mtl_transaction_lots_temp finally enter mtl_lot_transactions.
1978: l_progress := '031';
1979:
1980: -------Create Lot specific conversion
1981:
2783: RMA quantity.*/
2784:
2785: CURSOR Cr_user_quantity IS
2786: SELECT SUM(transaction_quantity)
2787: FROM mtl_transaction_lots_temp
2788: WHERE product_code = 'RCV'
2789: AND product_transaction_id = p_rti_id
2790: AND lot_number= p_lot_number;
2791: