[Home] [Help]
340: AND transaction_temp_id = p_trx_temp_id;
341: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
342: BEGIN
343: IF (l_debug = 1) THEN
344: inv_pick_wave_pick_confirm_pub.tracelog ( 'Inside InsertLot API' , 'INV_LOT_API_PUB');
345: END IF;
346: -- Standard Start of API savepoint
347: SAVEPOINT apiinsertlot_apipub;
348:
380: EXCEPTION
381: WHEN NO_DATA_FOUND
382: THEN
383: IF (l_debug = 1) THEN
384: inv_pick_wave_pick_confirm_pub.tracelog ( 'Exception in LOT_CONTROL_CODE' , 'INV_LOT_API_PUB');
385: END IF;
386: fnd_message.set_name ('INV' , 'INV_INVALID_ITEM' );
387: fnd_msg_pub.ADD;
388: x_return_status := fnd_api.g_ret_sts_error;
418: fnd_msg_pub.ADD;
419: x_return_status := fnd_api.g_ret_sts_error;
420: RAISE fnd_api.g_exc_unexpected_error;
421: IF (l_debug = 1) THEN
422: inv_pick_wave_pick_confirm_pub.tracelog ( 'Exception in MTL_LOT_NUMBER' , 'INV_LOT_API_PUB');
423: END IF;
424: END IF;
425: END IF;
426:
458: END IF;
459: END IF;
460:
461: IF (l_debug = 1) THEN
462: inv_pick_wave_pick_confirm_pub.tracelog ( 'Before calling populateattributesColumn' , 'INV_LOT_API_PUB');
463: END IF;
464:
465: SELECT mtl_gen_object_id_s.NEXTVAL
466: INTO x_object_id
467: FROM DUAL;
468:
469: populateattributescolumn ( );
470: IF (l_debug = 1) THEN
471: inv_pick_wave_pick_confirm_pub.tracelog ( 'After calling populateattributesColumn' , 'INV_LOT_API_PUB');
472: END IF;
473:
474: IF ( p_transaction_temp_id IS NOT NULL ) THEN
475: IF (l_debug = 1) THEN
472: END IF;
473:
474: IF ( p_transaction_temp_id IS NOT NULL ) THEN
475: IF (l_debug = 1) THEN
476: inv_pick_wave_pick_confirm_pub.tracelog ( 'p_transaction_temp_id' || p_transaction_temp_id, 'INV_LOT_API_PUB');
477: END IF;
478: OPEN lot_temp_csr ( p_lot_number, p_transaction_temp_id );
479:
480: LOOP
565:
566: IF (( p_transaction_action_id IS NOT NULL AND p_transaction_action_id = 3 AND g_firstscan = FALSE)
567: OR ( p_transaction_action_id is not null AND p_transaction_action_id = 12 )) THEN
568: IF (l_debug = 1) THEN
569: inv_pick_wave_pick_confirm_pub.tracelog ( 'Before Insert action_id=3' , 'INV_LOT_API_PUB');
570: END IF;
571: BEGIN
572: select count(*)
573: into l_lotcount
993: AND organization_id = p_organization_id
994: AND inventory_item_id = p_inventory_item_id;
995:
996: IF (l_debug = 1) THEN
997: inv_pick_wave_pick_confirm_pub.tracelog ( 'After Insert action_id=3' , 'INV_LOT_API_PUB');
998: END IF;
999: ELSE -- if transaction_action_id is not 3
1000: /* ---------------------------------------------------------
1001: * call inv_lot_sel_attr.get_default to get the default value
1003: * ---------------------------------------------------------*/
1004: IF ( inv_install.adv_inv_installed ( NULL ) = TRUE ) THEN
1005:
1006: IF (l_debug = 1) THEN
1007: inv_pick_wave_pick_confirm_pub.tracelog ( 'Before calling get_default' , 'INV_LOT_API_PUB');
1008: END IF;
1009: inv_lot_sel_attr.get_default (
1010: x_attributes_default => l_attributes_default,
1011: x_attributes_default_count => l_attributes_default_count,
1019: p_lot_serial_number => p_lot_number,
1020: p_attributes => l_attributes_in
1021: );
1022: IF (l_debug = 1) THEN
1023: inv_pick_wave_pick_confirm_pub.tracelog ( 'After get_default' , 'INV_LOT_API_PUB');
1024: END IF;
1025:
1026: IF ( l_return_status <> fnd_api.g_ret_sts_success ) THEN
1027: IF (l_debug = 1) THEN
1024: END IF;
1025:
1026: IF ( l_return_status <> fnd_api.g_ret_sts_success ) THEN
1027: IF (l_debug = 1) THEN
1028: inv_pick_wave_pick_confirm_pub.tracelog ( 'exception of get_default' , 'INV_LOT_API_PUB');
1029: END IF;
1030: x_return_status := l_return_status;
1031: RAISE fnd_api.g_exc_unexpected_error;
1032: END IF;
1056: l_source_non_wms_lot_att_rec.attribute15 := NULL;
1057:
1058: IF p_transfer_organization_id IS NOT NULL THEN
1059: IF (l_debug = 1) THEN
1060: inv_pick_wave_pick_confirm_pub.tracelog ( 'Before calling get_lot_att_from_source' , 'INV_LOT_API_PUB');
1061: END IF;
1062:
1063: get_lot_att_from_source
1064: (
1081: l_attributes_default := l_att_after_source_copy;
1082: l_attributes_default_count := l_num_wms_lot_att_copied;
1083:
1084: IF (l_debug = 1) THEN
1085: inv_pick_wave_pick_confirm_pub.tracelog ( 'After calling get_lot_att_from_source' , 'INV_LOT_API_PUB');
1086: END IF;
1087: END IF;
1088:
1089: /* Bug 2181558 - Code Ends */
1118: * g_lot_attributes_tbl(5).COLUMN_VALUE if OUT parameter
1119: * 'lot_status_enabled' is 'Y'.
1120: ***********************************************************************/
1121: IF (l_debug = 1) THEN
1122: inv_pick_wave_pick_confirm_pub.tracelog ( 'before calling get_lot_Serial_status_control' , 'INV_LOT_API_PUB');
1123: END IF;
1124: inv_material_status_grp.get_lot_serial_status_control (
1125: p_organization_id => p_organization_id,
1126: p_inventory_item_id => p_inventory_item_id,
1132: x_serial_status_enabled => l_serial_status_enabled,
1133: x_default_serial_status_id => l_default_serial_status_id
1134: );
1135: IF (l_debug = 1) THEN
1136: inv_pick_wave_pick_confirm_pub.tracelog ( 'After get_lot_Serial_status_control' , 'INV_LOT_API_PUB');
1137: END IF;
1138:
1139: IF ( l_return_status <> fnd_api.g_ret_sts_success ) THEN
1140: x_return_status := l_return_status;
1156: p_inventory_item_id,
1157: 'Lot Attributes'
1158: );
1159: IF (l_debug = 1) THEN
1160: inv_pick_wave_pick_confirm_pub.tracelog ( 'before inserting into mtl_lot_numbers' , 'INV_LOT_API_PUB');
1161: END IF;
1162:
1163: --print_debug('after get_context_code 30', 4);
1164:
1366: g_lot_attributes_tbl(67).column_value
1367: );
1368:
1369: IF (l_debug = 1) THEN
1370: inv_pick_wave_pick_confirm_pub.tracelog ( 'After inserting the lot' , 'INV_LOT_API_PUB');
1371: END IF;
1372:
1373: END IF;
1374:
1381: l_status_rec.status_id := l_default_lot_status_id;
1382: l_status_rec.initial_status_flag := 'Y';
1383: inv_material_status_pkg.insert_status_history ( l_status_rec);
1384: IF (l_debug = 1) THEN
1385: inv_pick_wave_pick_confirm_pub.tracelog ( 'after calling insert_status_history' , 'INV_LOT_API_PUB');
1386: END IF;
1387: END IF;
1388:
1389: x_return_status := fnd_api.g_ret_sts_success;
1388:
1389: x_return_status := fnd_api.g_ret_sts_success;
1390: ELSE
1391: IF (l_debug = 1) THEN
1392: inv_pick_wave_pick_confirm_pub.tracelog ( 'INV_LOT_EXISTS' , 'INV_LOT_API_PUB');
1393: END IF;
1394: fnd_message.set_name ('INV' , 'INV_LOT_EXISTS' );
1395: fnd_msg_pub.ADD;
1396: --l_return_status := FND_API.G_RET_STS_SUCCESS;
1402: l_userid := fnd_global.user_id;
1403:
1404: --Lot exists, but now the user has entered the lot expiration date
1405: IF (l_debug = 1) THEN
1406: inv_pick_wave_pick_confirm_pub.tracelog ('Update the expiration date', 'INV_LOT_API_PUB');
1407: END IF;
1408:
1409: UPDATE mtl_lot_numbers
1410: SET expiration_date = p_expiration_date,
1420:
1421: -- End of API body.
1422: -- Standard check of p_commit.
1423: IF (l_debug = 1) THEN
1424: inv_pick_wave_pick_confirm_pub.tracelog ( 'Inserted the Lot ' || p_lot_number, 'INV_LOT_API_PUB');
1425: END IF;
1426:
1427: IF fnd_api.to_boolean ( p_commit ) THEN
1428: COMMIT WORK;
1436:
1437: EXCEPTION
1438: WHEN OTHERS THEN
1439: IF (l_debug = 1) THEN
1440: inv_pick_wave_pick_confirm_pub.tracelog ( 'Inside the exception ' || p_lot_number, 'INV_LOT_API_PUB');
1441: END IF;
1442: --print_debug('insertlot other exception', 4);
1443:
1444: ROLLBACK TO apiinsertlot_apipub;