[Home] [Help]
414: mydebug('Conversion Factor2: ' || l_conversion_factor2, 'WMS_TASK_LOAD.UPDATE_LOADED_PART');
415: END IF;
416:
417: IF p_lot_controlled <> 'Y' AND p_serial_controlled <> 'Y' THEN -- No Lot or serial control
418: fnd_message.set_token('ROUTINE', '- proc_insert_update_task' );
419: fnd_msg_pub.ADD;
420: l_primary_quantity := Round(p_transaction_quantity/l_conversion_factor, l_g_decimal_precision);
421: l_secondary_quantity := p_secondary_quantity;
422: ELSE
439: END IF;
440:
441: IF x_return_status <> l_g_ret_sts_success
442: THEN
443: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
444: -- Internal Error $ROUTINE
445: fnd_message.set_token('ROUTINE', ' - proc_parse_lot_serial_catchwt API ' );
446: mydebug('Error parsing lot/serial/catch weight string' );
447: -- "Error reserving Serial Number/s"
441: IF x_return_status <> l_g_ret_sts_success
442: THEN
443: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
444: -- Internal Error $ROUTINE
445: fnd_message.set_token('ROUTINE', ' - proc_parse_lot_serial_catchwt API ' );
446: mydebug('Error parsing lot/serial/catch weight string' );
447: -- "Error reserving Serial Number/s"
448: fnd_msg_pub.ADD;
449: RAISE fnd_api.g_exc_error;
1283: x_cms_check := can_pickdrop(p_transaction_temp_id );
1284: mydebug ('x_cms_check: ' || x_cms_check );
1285: IF x_cms_check = 'FAIL'
1286: THEN
1287: --fnd_message.set_name('WMS', 'WMS_CANCELLED_SOURCE');
1288: -- Source of the task is cancelled by source.. F2 to rollback
1289: --fnd_msg_pub.ADD;
1290: RAISE fnd_api.g_exc_error;
1291: END IF;
1318: AND organization_id = p_organization_id;
1319:
1320: IF SQL%NOTFOUND THEN
1321: mydebug ('Cannot find LPNs to update the context' );
1322: fnd_message.set_name('WMS', 'WMS_WRONG_FROM_LPN_CONTEXT');
1323: -- FROM LPN Context is not valid '
1324: fnd_msg_pub.ADD;
1325: RAISE fnd_api.g_exc_error;
1326:
1354: AND organization_id = p_organization_id;
1355:
1356: IF SQL%NOTFOUND THEN
1357: mydebug ('Cannot find LPNs to update the context' );
1358: fnd_message.set_name('WMS', 'WMS_WRONG_TO_LPN_CONTEXT');
1359: -- To LPN Context is not valid
1360: fnd_msg_pub.ADD;
1361:
1362: RAISE fnd_api.g_exc_error;
1652: FROM wms_dispatched_tasks
1653: WHERE transaction_temp_id = p_temp_id);
1654: IF SQL%NOTFOUND THEN
1655: myDebug('Error inserting a new task using WDT record for : '|| p_temp_id);
1656: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
1657: -- Internal Error $ROUTINE
1658: fnd_message.set_token('ROUTINE', '- proc_insert_update_task' );
1659: fnd_msg_pub.ADD;
1660: RAISE fnd_api.G_EXC_ERROR;
1654: IF SQL%NOTFOUND THEN
1655: myDebug('Error inserting a new task using WDT record for : '|| p_temp_id);
1656: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
1657: -- Internal Error $ROUTINE
1658: fnd_message.set_token('ROUTINE', '- proc_insert_update_task' );
1659: fnd_msg_pub.ADD;
1660: RAISE fnd_api.G_EXC_ERROR;
1661: END IF;
1662: ELSE
1678: WHERE transaction_temp_id = l_transaction_temp_id;
1679: IF SQL%NOTFOUND THEN
1680: mydebug('l_progress : ' || l_progress);
1681: myDebug('Error updating task for : '|| l_transaction_temp_id);
1682: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
1683: -- Internal Error $ROUTINE
1684: fnd_message.set_token('ROUTINE', '- proc_insert_update_task' );
1685: fnd_msg_pub.ADD;
1686: RAISE fnd_api.G_EXC_ERROR;
1680: mydebug('l_progress : ' || l_progress);
1681: myDebug('Error updating task for : '|| l_transaction_temp_id);
1682: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
1683: -- Internal Error $ROUTINE
1684: fnd_message.set_token('ROUTINE', '- proc_insert_update_task' );
1685: fnd_msg_pub.ADD;
1686: RAISE fnd_api.G_EXC_ERROR;
1687: END IF;
1688: IF p_update = 'Y2' AND p_action = l_g_action_load_multiple THEN
1685: fnd_msg_pub.ADD;
1686: RAISE fnd_api.G_EXC_ERROR;
1687: END IF;
1688: IF p_update = 'Y2' AND p_action = l_g_action_load_multiple THEN
1689: fnd_message.set_token('ROUTINE', '- proc_insert_update_task' );
1690: fnd_msg_pub.ADD;
1691: l_progress := '300';
1692: mydebug('l_progress: ' || l_progress );
1693: -- delete the original one with p_transaction_temp_id
1694: DELETE wms_dispatched_tasks
1695: WHERE transaction_temp_id = p_temp_id;
1696: IF SQL%NOTFOUND THEN
1697: myDebug('Error deleting task for : '|| l_transaction_temp_id);
1698: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
1699: -- Internal Error $ROUTINE
1700: fnd_message.set_token('ROUTINE', '- proc_insert_update_task' );
1701: fnd_msg_pub.ADD;
1702: RAISE fnd_api.G_EXC_ERROR;
1696: IF SQL%NOTFOUND THEN
1697: myDebug('Error deleting task for : '|| l_transaction_temp_id);
1698: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
1699: -- Internal Error $ROUTINE
1700: fnd_message.set_token('ROUTINE', '- proc_insert_update_task' );
1701: fnd_msg_pub.ADD;
1702: RAISE fnd_api.G_EXC_ERROR;
1703: END IF;
1704: END IF;
2358: FROM mtl_material_transactions_temp
2359: WHERE transaction_temp_id = p_transaction_temp_id);
2360: IF SQL%NOTFOUND THEN
2361: mydebug (' p_transaction_temp_id: NOT found : ' || p_transaction_temp_id);
2362: fnd_message.set_name('WMS', 'WMS_INSERT_ALLOCATION'); -- NEWMSG
2363: -- "Error Inserting Allocation ."
2364: fnd_msg_pub.ADD;
2365: RAISE fnd_api.G_EXC_ERROR;
2366: END IF;
2390: ,x_msg_count => x_msg_count
2391: ,x_msg_data => x_msg_data);
2392: IF x_return_status <> l_g_ret_sts_success
2393: THEN
2394: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
2395: -- Internal Error $ROUTINE
2396: fnd_message.set_token('ROUTINE', ' - proc_parse_lot_serial_catchwt API ' );
2397: mydebug('Error parsing lot/serial/catch weight string' );
2398: -- "Error reserving Serial Number/s"
2392: IF x_return_status <> l_g_ret_sts_success
2393: THEN
2394: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
2395: -- Internal Error $ROUTINE
2396: fnd_message.set_token('ROUTINE', ' - proc_parse_lot_serial_catchwt API ' );
2397: mydebug('Error parsing lot/serial/catch weight string' );
2398: -- "Error reserving Serial Number/s"
2399: RAISE fnd_api.G_EXC_ERROR;
2400: END IF;
2435: ,x_msg_count => x_msg_count
2436: ,x_msg_data => x_msg_data);
2437: IF x_return_status <> l_g_ret_sts_success THEN
2438: mydebug('proc_process_confirmed_lots.x_return_status : ' || x_return_status);
2439: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
2440: -- Internal Error $ROUTINE
2441: fnd_message.set_token('ROUTINE', '- proc_process_confirmed_lots API' );
2442: fnd_msg_pub.ADD;
2443: RAISE fnd_api.g_exc_error;
2437: IF x_return_status <> l_g_ret_sts_success THEN
2438: mydebug('proc_process_confirmed_lots.x_return_status : ' || x_return_status);
2439: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
2440: -- Internal Error $ROUTINE
2441: fnd_message.set_token('ROUTINE', '- proc_process_confirmed_lots API' );
2442: fnd_msg_pub.ADD;
2443: RAISE fnd_api.g_exc_error;
2444: END IF;
2445: mydebug ('Return from proc_process_confirmed_lots ' );
2479: ,x_msg_count => x_msg_count
2480: ,x_msg_data => x_msg_data);
2481: IF x_return_status <> l_g_ret_sts_success THEN
2482: mydebug('proc_process_confirmed_serials.x_return_status : ' || x_return_status);
2483: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
2484: -- Internal Error $ROUTINE
2485: fnd_message.set_token('ROUTINE', '- proc_process_confirmed_serials API' );
2486: fnd_msg_pub.ADD;
2487: RAISE fnd_api.g_exc_error;
2481: IF x_return_status <> l_g_ret_sts_success THEN
2482: mydebug('proc_process_confirmed_serials.x_return_status : ' || x_return_status);
2483: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
2484: -- Internal Error $ROUTINE
2485: fnd_message.set_token('ROUTINE', '- proc_process_confirmed_serials API' );
2486: fnd_msg_pub.ADD;
2487: RAISE fnd_api.g_exc_error;
2488: END IF;
2489: l_progress := '330';
4153: AND lpn_id = p_lpn_id ;
4154: --AND group_mark_id IS NULL;
4155:
4156: IF SQL%NOTFOUND THEN
4157: fnd_message.set_name('WMS', 'WMS_ERROR_MARKING_SERIAL'); --NEWMSG
4158: -- "Error reserving Serial Number/s"
4159: fnd_msg_pub.ADD;
4160: RAISE fnd_api.G_EXC_ERROR;
4161: END IF;
4175: FROM mtl_allocations_gtmp
4176: WHERE NVL(lot_number,'@@') = nvl(p_serial_lot_number,'@@'));
4177:
4178: IF SQL%NOTFOUND THEN
4179: fnd_message.set_name('WMS', 'WMS_ERROR_MARKING_SERIAL'); --NEWMSG
4180: -- "Error reserving Serial Number/s"
4181: fnd_msg_pub.ADD;
4182: RAISE fnd_api.G_EXC_ERROR;
4183: END IF;
4524: mydebug('rec_mmtt1.mmtt_primary_quantity = ' || rec_mmtt1.mmtt_primary_quantity);
4525: mydebug('rec_mmtt1.mmtt_secondary_transaction_quantity = ' || rec_mmtt1.mmtt_secondary_quantity);
4526:
4527: IF rec_mmtt1.item_primary_uom_code IS NULL THEN
4528: fnd_message.set_name('WMS', 'WMS_NULL_PRIM_UOM');
4529: -- Item primary UOM is null for this task
4530: fnd_msg_pub.ADD;
4531: RAISE fnd_api.g_exc_unexpected_error;
4532: END IF;
5163: mydebug('End .. ' || l_proc_name);
5164: EXCEPTION
5165: WHEN fnd_api.g_exc_error THEN
5166: x_return_status := l_g_ret_sts_error;
5167: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
5168: -- Internal Error $ROUTINE
5169: fnd_message.set_token('ROUTINE', '- Process_f2 API' );
5170: fnd_msg_pub.ADD;
5171: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5165: WHEN fnd_api.g_exc_error THEN
5166: x_return_status := l_g_ret_sts_error;
5167: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
5168: -- Internal Error $ROUTINE
5169: fnd_message.set_token('ROUTINE', '- Process_f2 API' );
5170: fnd_msg_pub.ADD;
5171: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5172: mydebug('ROLLBACK ' );
5173: ROLLBACK ;
5174: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5175: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
5176: WHEN fnd_api.g_exc_unexpected_error THEN
5177: x_return_status := fnd_api.g_ret_sts_unexp_error;
5178: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
5179: -- Internal Error $ROUTINE
5180: fnd_message.set_token('ROUTINE', '- Process_f2 API' );
5181: fnd_msg_pub.ADD;
5182: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5176: WHEN fnd_api.g_exc_unexpected_error THEN
5177: x_return_status := fnd_api.g_ret_sts_unexp_error;
5178: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
5179: -- Internal Error $ROUTINE
5180: fnd_message.set_token('ROUTINE', '- Process_f2 API' );
5181: fnd_msg_pub.ADD;
5182: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5183: mydebug('ROLLBACK ' );
5184: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5186: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
5187: ROLLBACK ;
5188: WHEN OTHERS THEN
5189: x_return_status := l_g_ret_sts_unexp_error;
5190: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
5191: -- Internal Error $ROUTINE
5192: fnd_message.set_token('ROUTINE', '- Process_f2 API' );
5193: fnd_msg_pub.ADD;
5194: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5188: WHEN OTHERS THEN
5189: x_return_status := l_g_ret_sts_unexp_error;
5190: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
5191: -- Internal Error $ROUTINE
5192: fnd_message.set_token('ROUTINE', '- Process_f2 API' );
5193: fnd_msg_pub.ADD;
5194: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5195: mydebug('ROLLBACK ' );
5196: ROLLBACK ;
5422: , last_update_date = SYSDATE
5423: , last_updated_by = p_user_id
5424: WHERE line_id = rec_cancelled_mols.line_id;
5425: IF SQL%NOTFOUND THEN
5426: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
5427: -- Internal Error $ROUTINE
5428: fnd_message.set_token('ROUTINE', '-proc_process_cancelled_MOLs' );
5429: myDebug('Error updating MTRL in proc_process_cancelled_MOLs for line: ' || rec_cancelled_mols.line_id);
5430: fnd_msg_pub.ADD;
5424: WHERE line_id = rec_cancelled_mols.line_id;
5425: IF SQL%NOTFOUND THEN
5426: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
5427: -- Internal Error $ROUTINE
5428: fnd_message.set_token('ROUTINE', '-proc_process_cancelled_MOLs' );
5429: myDebug('Error updating MTRL in proc_process_cancelled_MOLs for line: ' || rec_cancelled_mols.line_id);
5430: fnd_msg_pub.ADD;
5431: END IF;
5432: END LOOP;
6347: l_progress := '130';
6348: IF (l_debug = 1) THEN mydebug ('l_progress: ' || l_progress ); END IF;
6349: IF p_confirmed_qty = 0 AND p_exception <> l_g_exception_short
6350: THEN
6351: fnd_message.set_name('WMS', 'WMS_PICK_ZERO_QTY');
6352: -- Confirmed qty for this task is zero
6353: fnd_msg_pub.ADD;
6354: RAISE fnd_api.g_exc_unexpected_error;
6355: END IF;
6415: x_return_status => l_return_status,
6416: x_msg_data => l_msg_data);
6417: IF l_return_status IN ( fnd_api.g_ret_sts_unexp_error, fnd_api.g_ret_sts_error)
6418: THEN
6419: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR');
6420: -- Internal Error $ROUTINE
6421: fnd_message.set_token('ROUTINE', '-INSERT_SERIAL API - ' || p_action);
6422: fnd_msg_pub.ADD;
6423: RAISE fnd_api.g_exc_unexpected_error;
6417: IF l_return_status IN ( fnd_api.g_ret_sts_unexp_error, fnd_api.g_ret_sts_error)
6418: THEN
6419: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR');
6420: -- Internal Error $ROUTINE
6421: fnd_message.set_token('ROUTINE', '-INSERT_SERIAL API - ' || p_action);
6422: fnd_msg_pub.ADD;
6423: RAISE fnd_api.g_exc_unexpected_error;
6424: ELSE
6425: IF (l_debug = 1) THEN
6448: x_return_status => l_return_status,
6449: x_msg_data => l_msg_data);
6450: IF l_return_status IN ( fnd_api.g_ret_sts_unexp_error, fnd_api.g_ret_sts_error)
6451: THEN
6452: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR');
6453: -- Internal Error $ROUTINE
6454: fnd_message.set_token('ROUTINE', '- INSERT_SERIAL API - ');
6455: fnd_msg_pub.ADD;
6456: RAISE fnd_api.g_exc_unexpected_error;
6450: IF l_return_status IN ( fnd_api.g_ret_sts_unexp_error, fnd_api.g_ret_sts_error)
6451: THEN
6452: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR');
6453: -- Internal Error $ROUTINE
6454: fnd_message.set_token('ROUTINE', '- INSERT_SERIAL API - ');
6455: fnd_msg_pub.ADD;
6456: RAISE fnd_api.g_exc_unexpected_error;
6457: ELSE
6458: IF (l_debug = 1) THEN
6507: ,x_msg_data => l_msg_data);
6508:
6509: IF l_return_status IN ( fnd_api.g_ret_sts_unexp_error, fnd_api.g_ret_sts_error)
6510: THEN
6511: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR');
6512: -- Internal Error $ROUTINE
6513: fnd_message.set_token('ROUTINE', '-Task_Merge_Split API - ' || p_action);
6514: fnd_msg_pub.ADD;
6515: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6509: IF l_return_status IN ( fnd_api.g_ret_sts_unexp_error, fnd_api.g_ret_sts_error)
6510: THEN
6511: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR');
6512: -- Internal Error $ROUTINE
6513: fnd_message.set_token('ROUTINE', '-Task_Merge_Split API - ' || p_action);
6514: fnd_msg_pub.ADD;
6515: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6516: RAISE fnd_api.g_exc_unexpected_error;
6517: ELSE
6668: mydebug ('l_new_txn_hdr_id: ' || l_new_txn_hdr_id );
6669: mydebug ('x_return_status: ' || x_return_status );
6670: END IF;
6671: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6672: --fnd_message.set_name('WMS', 'WMS_MULT_LPN_ERROR');
6673: --fnd_msg_pub.ADD;
6674: RAISE fnd_api.g_exc_unexpected_error;
6675: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
6676: --fnd_message.set_name('WMS', 'WMS_MULT_LPN_ERROR');
6672: --fnd_message.set_name('WMS', 'WMS_MULT_LPN_ERROR');
6673: --fnd_msg_pub.ADD;
6674: RAISE fnd_api.g_exc_unexpected_error;
6675: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
6676: --fnd_message.set_name('WMS', 'WMS_MULT_LPN_ERROR');
6677: --fnd_msg_pub.ADD;
6678: RAISE fnd_api.g_exc_error;
6679: END IF;
6680:
7133: IF (l_debug = 1) THEN
7134: mydebug('lpn does not exist in org');
7135: END IF;
7136:
7137: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
7138: fnd_msg_pub.ADD;
7139: RAISE fnd_api.g_exc_error;
7140: END;
7141:
7145: IF (l_debug = 1) THEN
7146: mydebug('lpn does not exist in org');
7147: END IF;
7148:
7149: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
7150: fnd_msg_pub.ADD;
7151: RAISE fnd_api.g_exc_error;
7152: END IF;
7153:
7175: END;
7176:
7177: IF l_loaded > 0 THEN
7178: x_match := 7;
7179: fnd_message.set_name('WMS', 'WMS_LOADED_ERROR');
7180: fnd_msg_pub.ADD;
7181: RAISE fnd_api.g_exc_error;
7182: END IF;
7183:
7205: IF l_sub IS NULL THEN
7206: -- The calling java code treats this condition as an error
7207:
7208: x_match := 10;
7209: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SUB');
7210: fnd_msg_pub.ADD;
7211: RAISE fnd_api.g_exc_error;
7212: END IF;
7213:
7221: AND secondary_inventory_name = l_sub;
7222:
7223: IF l_sub_active = 0 THEN
7224: x_match := 10;
7225: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SUB');
7226: fnd_msg_pub.ADD;
7227: RAISE fnd_api.g_exc_error;
7228: END IF;
7229:
7237: AND inventory_location_id = l_loc_id;
7238:
7239: IF l_loc_active = 0 THEN
7240: x_match := 10;
7241: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LOC');
7242: fnd_msg_pub.ADD;
7243: RAISE fnd_api.g_exc_error;
7244: END IF;
7245: -- Begin fix for 2774506
7274: mydebug('mil task id = '||l_mil_task_id);
7275:
7276: if ((l_mil_proj_id <> l_mmtt_proj_id ) or ( l_mil_task_id <> l_mmtt_task_id )) then
7277: mydebug('lpn : the project/tak information does not match');
7278: FND_MESSAGE.SET_NAME('WMS','WMS_CONT_INVALID_LPN');
7279: FND_MSG_PUB.ADD;
7280: RAISE FND_API.G_EXC_ERROR;
7281: end if ;
7282:
7288: x_loc_id := l_loc_id;
7289: EXCEPTION
7290: WHEN NO_DATA_FOUND THEN
7291: x_match := 6;
7292: fnd_message.set_name('WMS', 'WMS_TD_LPN_LOC_NOT_FOUND');
7293: fnd_msg_pub.ADD;
7294: RAISE fnd_api.g_exc_error;
7295: END;
7296:
7319: END;
7320:
7321: IF l_so_cnt > 0 THEN
7322: x_match := 12;
7323: fnd_message.set_name('WMS', 'WMS_LPN_STAGED');
7324: fnd_msg_pub.ADD;
7325: RAISE fnd_api.g_exc_error;
7326: END IF;
7327:
7375: mydebug('item lot rev combo does not exist');
7376: END IF;
7377:
7378: x_match := 13;
7379: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
7380: fnd_msg_pub.ADD;
7381: RAISE fnd_api.g_exc_error;
7382: END;
7383:
7406: mydebug('lot rev combo for the item does not exist');
7407: END IF;
7408:
7409: x_match := 5;
7410: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LOT_LPN');
7411: fnd_msg_pub.ADD;
7412: RAISE fnd_api.g_exc_error;
7413: END;
7414: END IF;
7459: IF (l_debug = 1) THEN
7460: mydebug('transaction does not exist in mmtt');
7461: END IF;
7462:
7463: fnd_message.set_name('INV', 'INV_INVALID_TRANSACTION');
7464: fnd_msg_pub.ADD;
7465: RAISE fnd_api.g_exc_error;
7466: END;
7467:
7547: END IF;
7548:
7549: -- Serial numbers missing for the transaction
7550: x_match := 9;
7551: fnd_message.set_name('INV', 'INV_INT_SERMISEXP');
7552: fnd_msg_pub.ADD;
7553: RAISE fnd_api.g_exc_error;
7554: END IF;
7555: END IF;
7616: IF (l_debug = 1) THEN
7617: mydebug('calling update qty tree with lpn 1st time failed ');
7618: END IF;
7619:
7620: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
7621: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
7622: fnd_msg_pub.ADD;
7623: RAISE fnd_api.g_exc_error;
7624: END IF;
7617: mydebug('calling update qty tree with lpn 1st time failed ');
7618: END IF;
7619:
7620: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
7621: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
7622: fnd_msg_pub.ADD;
7623: RAISE fnd_api.g_exc_error;
7624: END IF;
7625: --Bug#5649056: only update if subinventory and locator match
7668: IF (l_debug = 1) THEN
7669: mydebug('calling update qty tree back without lpn 1st time failed ');
7670: END IF;
7671:
7672: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
7673: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
7674: fnd_msg_pub.ADD;
7675: RAISE fnd_api.g_exc_error;
7676: END IF;
7669: mydebug('calling update qty tree back without lpn 1st time failed ');
7670: END IF;
7671:
7672: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
7673: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
7674: fnd_msg_pub.ADD;
7675: RAISE fnd_api.g_exc_error;
7676: END IF;
7677: END IF;
7751: IF (l_debug = 1) THEN
7752: mydebug('calling qty tree 1st time failed ');
7753: END IF;
7754:
7755: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
7756: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
7757: fnd_msg_pub.ADD;
7758: RAISE fnd_api.g_exc_error;
7759: END IF;
7752: mydebug('calling qty tree 1st time failed ');
7753: END IF;
7754:
7755: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
7756: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
7757: fnd_msg_pub.ADD;
7758: RAISE fnd_api.g_exc_error;
7759: END IF;
7760:
7805: IF (l_debug = 1) THEN
7806: mydebug('calling update qty tree back with lpn 1st time failed ');
7807: END IF;
7808:
7809: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
7810: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
7811: fnd_msg_pub.ADD;
7812: RAISE fnd_api.g_exc_error;
7813: END IF;
7806: mydebug('calling update qty tree back with lpn 1st time failed ');
7807: END IF;
7808:
7809: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
7810: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
7811: fnd_msg_pub.ADD;
7812: RAISE fnd_api.g_exc_error;
7813: END IF;
7814: --Bug#5649056: only update if subinventory and locator match
7857: IF (l_debug = 1) THEN
7858: mydebug('calling update qty tree back without lpn 1st time failed ');
7859: END IF;
7860:
7861: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
7862: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
7863: fnd_msg_pub.ADD;
7864: RAISE fnd_api.g_exc_error;
7865: END IF;
7858: mydebug('calling update qty tree back without lpn 1st time failed ');
7859: END IF;
7860:
7861: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
7862: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
7863: fnd_msg_pub.ADD;
7864: RAISE fnd_api.g_exc_error;
7865: END IF;
7866: END IF;
7904: END IF;
7905:
7906: -- Serial numbers missing for the transaction
7907: x_match := 9;
7908: fnd_message.set_name('INV', 'INV_INT_SERMISEXP');
7909: fnd_msg_pub.ADD;
7910: RAISE fnd_api.g_exc_error;
7911: END IF;
7912:
7974: END IF;
7975:
7976: -- Serial numbers missing for the transaction
7977: x_match := 9;
7978: fnd_message.set_name('INV', 'INV_INT_SERMISEXP');
7979: fnd_msg_pub.ADD;
7980: RAISE fnd_api.g_exc_error;
7981: END IF;
7982: END IF;
8033: IF (l_debug = 1) THEN
8034: mydebug('calling update qty tree with lpn 2nd time failed ');
8035: END IF;
8036:
8037: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8038: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8039: fnd_msg_pub.ADD;
8040: RAISE fnd_api.g_exc_error;
8041: END IF;
8034: mydebug('calling update qty tree with lpn 2nd time failed ');
8035: END IF;
8036:
8037: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8038: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8039: fnd_msg_pub.ADD;
8040: RAISE fnd_api.g_exc_error;
8041: END IF;
8042: --Bug#5649056: only update if subinventory and locator match
8085: IF (l_debug = 1) THEN
8086: mydebug('calling update qty tree back without lpn 2nd time failed ');
8087: END IF;
8088:
8089: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8090: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8091: fnd_msg_pub.ADD;
8092: RAISE fnd_api.g_exc_error;
8093: END IF;
8086: mydebug('calling update qty tree back without lpn 2nd time failed ');
8087: END IF;
8088:
8089: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8090: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8091: fnd_msg_pub.ADD;
8092: RAISE fnd_api.g_exc_error;
8093: END IF;
8094: END IF;
8146: IF (l_debug = 1) THEN
8147: mydebug('calling qty tree 2nd time failed ');
8148: END IF;
8149:
8150: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8151: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8152: fnd_msg_pub.ADD;
8153: RAISE fnd_api.g_exc_error;
8154: END IF;
8147: mydebug('calling qty tree 2nd time failed ');
8148: END IF;
8149:
8150: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8151: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8152: fnd_msg_pub.ADD;
8153: RAISE fnd_api.g_exc_error;
8154: END IF;
8155:
8200: IF (l_debug = 1) THEN
8201: mydebug('calling update qty tree with lpn 2nd time failed ');
8202: END IF;
8203:
8204: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8205: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8206: fnd_msg_pub.ADD;
8207: RAISE fnd_api.g_exc_error;
8208: END IF;
8201: mydebug('calling update qty tree with lpn 2nd time failed ');
8202: END IF;
8203:
8204: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8205: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8206: fnd_msg_pub.ADD;
8207: RAISE fnd_api.g_exc_error;
8208: END IF;
8209: --Bug#5649056: only update if subinventory and locator match
8252: IF (l_debug = 1) THEN
8253: mydebug('calling update qty tree back without lpn 2nd time failed ');
8254: END IF;
8255:
8256: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8257: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8258: fnd_msg_pub.ADD;
8259: RAISE fnd_api.g_exc_error;
8260: END IF;
8253: mydebug('calling update qty tree back without lpn 2nd time failed ');
8254: END IF;
8255:
8256: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8257: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8258: fnd_msg_pub.ADD;
8259: RAISE fnd_api.g_exc_error;
8260: END IF;
8261: END IF;
8317: END IF;
8318:
8319: -- Serial numbers missing for the transaction
8320: x_match := 9;
8321: fnd_message.set_name('INV', 'INV_INT_SERMISEXP');
8322: fnd_msg_pub.ADD;
8323: RAISE fnd_api.g_exc_error;
8324: END IF;
8325: END IF;
8397: IF (l_debug = 1) THEN
8398: mydebug('calling update qty tree with lpn 3rd time failed ');
8399: END IF;
8400:
8401: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8402: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8403: fnd_msg_pub.ADD;
8404: RAISE fnd_api.g_exc_error;
8405: END IF;
8398: mydebug('calling update qty tree with lpn 3rd time failed ');
8399: END IF;
8400:
8401: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8402: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8403: fnd_msg_pub.ADD;
8404: RAISE fnd_api.g_exc_error;
8405: END IF;
8406: --Bug#5649056: only update if subinventory and locator match
8449: IF (l_debug = 1) THEN
8450: mydebug('calling update qty tree back 3rd time without lpn 3rd time failed ');
8451: END IF;
8452:
8453: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8454: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8455: fnd_msg_pub.ADD;
8456: RAISE fnd_api.g_exc_error;
8457: END IF;
8450: mydebug('calling update qty tree back 3rd time without lpn 3rd time failed ');
8451: END IF;
8452:
8453: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8454: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8455: fnd_msg_pub.ADD;
8456: RAISE fnd_api.g_exc_error;
8457: END IF;
8458: END IF;
8549: IF (l_debug = 1) THEN
8550: mydebug('calling qty tree 3rd time failed ');
8551: END IF;
8552:
8553: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8554: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8555: fnd_msg_pub.ADD;
8556: RAISE fnd_api.g_exc_error;
8557: END IF;
8550: mydebug('calling qty tree 3rd time failed ');
8551: END IF;
8552:
8553: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8554: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8555: fnd_msg_pub.ADD;
8556: RAISE fnd_api.g_exc_error;
8557: END IF;
8558:
8721: IF (l_debug = 1) THEN
8722: mydebug('calling update qty tree with lpn 3rd time failed ');
8723: END IF;
8724:
8725: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8726: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8727: fnd_msg_pub.ADD;
8728: RAISE fnd_api.g_exc_error;
8729: END IF;
8722: mydebug('calling update qty tree with lpn 3rd time failed ');
8723: END IF;
8724:
8725: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8726: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8727: fnd_msg_pub.ADD;
8728: RAISE fnd_api.g_exc_error;
8729: END IF;
8730: --Bug#5649056: only update if subinventory and locator match
8773: IF (l_debug = 1) THEN
8774: mydebug('calling update qty tree back without lpn 3rd time failed ');
8775: END IF;
8776:
8777: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8778: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8779: fnd_msg_pub.ADD;
8780: RAISE fnd_api.g_exc_error;
8781: END IF;
8774: mydebug('calling update qty tree back without lpn 3rd time failed ');
8775: END IF;
8776:
8777: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8778: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8779: fnd_msg_pub.ADD;
8780: RAISE fnd_api.g_exc_error;
8781: END IF;
8782: END IF;
8886: END IF;
8887:
8888: -- Serial numbers missing for the transaction
8889: x_match := 9;
8890: fnd_message.set_name('INV', 'INV_INT_SERMISEXP');
8891: fnd_msg_pub.ADD;
8892: RAISE fnd_api.g_exc_error;
8893: END IF;
8894: END IF;
8945: IF (l_debug = 1) THEN
8946: mydebug('calling update qty tree with lpn 4th time failed ');
8947: END IF;
8948:
8949: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8950: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8951: fnd_msg_pub.ADD;
8952: RAISE fnd_api.g_exc_error;
8953: END IF;
8946: mydebug('calling update qty tree with lpn 4th time failed ');
8947: END IF;
8948:
8949: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8950: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8951: fnd_msg_pub.ADD;
8952: RAISE fnd_api.g_exc_error;
8953: END IF;
8954: --Bug#5649056: only update if subinventory and locator match
8998: IF (l_debug = 1) THEN
8999: mydebug('calling update qty tree without lpn 4th time failed ');
9000: END IF;
9001:
9002: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
9003: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
9004: fnd_msg_pub.ADD;
9005: RAISE fnd_api.g_exc_error;
9006: END IF;
8999: mydebug('calling update qty tree without lpn 4th time failed ');
9000: END IF;
9001:
9002: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
9003: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
9004: fnd_msg_pub.ADD;
9005: RAISE fnd_api.g_exc_error;
9006: END IF;
9007: END IF;
9105: IF (l_debug = 1) THEN
9106: mydebug('calling qty tree 4th time failed');
9107: END IF;
9108:
9109: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
9110: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
9111: fnd_msg_pub.ADD;
9112: RAISE fnd_api.g_exc_error;
9113: END IF;
9106: mydebug('calling qty tree 4th time failed');
9107: END IF;
9108:
9109: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
9110: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
9111: fnd_msg_pub.ADD;
9112: RAISE fnd_api.g_exc_error;
9113: END IF;
9114:
9159: IF (l_debug = 1) THEN
9160: mydebug('calling update qty tree back with lpn 4th time failed ');
9161: END IF;
9162:
9163: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
9164: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
9165: fnd_msg_pub.ADD;
9166: RAISE fnd_api.g_exc_error;
9167: END IF;
9160: mydebug('calling update qty tree back with lpn 4th time failed ');
9161: END IF;
9162:
9163: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
9164: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
9165: fnd_msg_pub.ADD;
9166: RAISE fnd_api.g_exc_error;
9167: END IF;
9168: --Bug#5649056: only update if subinventory and locator match
9211: IF (l_debug = 1) THEN
9212: mydebug('calling update qty tree back without lpn 4th time failed ');
9213: END IF;
9214:
9215: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
9216: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
9217: fnd_msg_pub.ADD;
9218: RAISE fnd_api.g_exc_error;
9219: END IF;
9212: mydebug('calling update qty tree back without lpn 4th time failed ');
9213: END IF;
9214:
9215: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
9216: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
9217: fnd_msg_pub.ADD;
9218: RAISE fnd_api.g_exc_error;
9219: END IF;
9220: END IF;
9363: END IF;
9364:
9365: x_match := 11;
9366: CLOSE ser_csr;
9367: fnd_message.set_name('INV', 'INV_SER_STATUS_NA');
9368: fnd_message.set_token('TOKEN', l_serial_number);
9369: fnd_msg_pub.ADD;
9370: RAISE fnd_api.g_exc_error;
9371: END IF;
9364:
9365: x_match := 11;
9366: CLOSE ser_csr;
9367: fnd_message.set_name('INV', 'INV_SER_STATUS_NA');
9368: fnd_message.set_token('TOKEN', l_serial_number);
9369: fnd_msg_pub.ADD;
9370: RAISE fnd_api.g_exc_error;
9371: END IF;
9372: END LOOP;
9392: ) = 'N' THEN
9393: x_match := 8;
9394: -- LPN status is invalid for this operation
9395:
9396: fnd_message.set_name('INV', 'INV_INVALID_LPN_STATUS');
9397: fnd_message.set_token('TOKEN1', TO_CHAR(p_fromlpn_id));
9398: fnd_msg_pub.ADD;
9399: RAISE fnd_api.g_exc_error;
9400: END IF;
9393: x_match := 8;
9394: -- LPN status is invalid for this operation
9395:
9396: fnd_message.set_name('INV', 'INV_INVALID_LPN_STATUS');
9397: fnd_message.set_token('TOKEN1', TO_CHAR(p_fromlpn_id));
9398: fnd_msg_pub.ADD;
9399: RAISE fnd_api.g_exc_error;
9400: END IF;
9401: END IF;
9757: EXCEPTION
9758: WHEN OTHERS THEN
9759: IF SQLCODE = -54 THEN -- ORA-0054: resource busy and acquire with NOWAIT specified
9760: mydebug('LPN record is locked by another user... cannot pick this LPN' );
9761: fnd_message.set_name('WMS', 'WMS_LPN_LOCKED_ERROR');
9762: -- LPN is in use by another user
9763: fnd_msg_pub.ADD;
9764: RAISE fnd_api.g_exc_error;
9765: ELSE
10191: ELSE
10192: IF (l_debug = 1) THEN
10193: mydebug('calling qty tree 1st time failed ');
10194: END IF;
10195: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
10196: fnd_message.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
10197: fnd_msg_pub.ADD;
10198: RAISE fnd_api.g_exc_error;
10199: END IF;
10192: IF (l_debug = 1) THEN
10193: mydebug('calling qty tree 1st time failed ');
10194: END IF;
10195: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
10196: fnd_message.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
10197: fnd_msg_pub.ADD;
10198: RAISE fnd_api.g_exc_error;
10199: END IF;
10200:
10401: AND (l_org_id is not null and l_org_id <> p_org_id)
10402: ) THEN
10403: IF (l_debug = 1) THEN
10404: mydebug('check_pack_lpn: LPN already exists but with different context or Org');
10405: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_ORG');
10406: fnd_msg_pub.ADD;
10407: END IF;
10408:
10409: x_return_status := fnd_api.g_ret_sts_error;
10444: --OR (l_org_id is not null and l_org_id <> p_org_id)
10445:
10446: IF (l_debug = 1) THEN
10447: mydebug('check_pack_lpn: LPN already exists but with different context or Org');
10448: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_CONTEXT');
10449: fnd_msg_pub.ADD;
10450: END IF;
10451:
10452: x_return_status := fnd_api.g_ret_sts_error;
10467: ) THEN
10468:
10469: IF (l_debug = 1) THEN
10470: mydebug('check_pack_lpn: LPN already exists but with different context or Org');
10471: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_CONTEXT');
10472: fnd_msg_pub.ADD;
10473: END IF;
10474:
10475: x_return_status := fnd_api.g_ret_sts_error;
10519: END IF;
10520:
10521: IF l_return_status = fnd_api.g_ret_sts_unexp_error
10522: OR l_return_status = fnd_api.g_ret_sts_error THEN
10523: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
10524: fnd_msg_pub.ADD;
10525: RAISE fnd_api.g_exc_unexpected_error;
10526: END IF;
10527:
10766: --
10767: -- Standard call to check for call compatibility
10768: --
10769: IF NOT fnd_api.compatible_api_call(l_api_version_number, p_api_version_number, l_api_name, g_pkg_name) THEN
10770: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
10771: fnd_msg_pub.ADD;
10772: RAISE fnd_api.g_exc_error;
10773: END IF;
10774:
10887: OR x_return_status = fnd_api.g_ret_sts_error THEN
10888: RAISE fnd_api.g_exc_error;
10889: END IF;
10890: ELSE
10891: fnd_message.set_name('WMS','WMS_INVALID_PACK_DELIVERY');
10892: fnd_msg_pub.ADD;
10893: RAISE fnd_api.g_exc_error;
10894: END IF;
10895: END;
10926: EXCEPTION
10927: WHEN no_data_found THEN
10928: -- error out and assuming it should exist
10929: -- tolpn doesn't existing or if existing, but has wrong context
10930: fnd_message.set_name('WMS', 'WMS_LPN_NOT_FOUND');
10931: fnd_msg_pub.ADD;
10932: RAISE fnd_api.g_exc_error;
10933: END;
10934: IF (l_debug = 1) THEN
10937: IF (l_container_item_id = -999) THEN --lpn does not use any container
10938: IF (l_debug = 1) THEN
10939: mydebug('LPN does not use any container');
10940: END IF;
10941: fnd_message.set_name('WMS', 'WMS_LPN_NOT_LINKTO_CONT');
10942: fnd_message.set_token('LPN', p_pick_to_lpn );
10943: fnd_msg_pub.ADD;
10944: RAISE fnd_api.g_exc_error;
10945: ELSIF (l_container_item_id <> p_container_item_id) THEN
10938: IF (l_debug = 1) THEN
10939: mydebug('LPN does not use any container');
10940: END IF;
10941: fnd_message.set_name('WMS', 'WMS_LPN_NOT_LINKTO_CONT');
10942: fnd_message.set_token('LPN', p_pick_to_lpn );
10943: fnd_msg_pub.ADD;
10944: RAISE fnd_api.g_exc_error;
10945: ELSIF (l_container_item_id <> p_container_item_id) THEN
10946: IF (l_debug = 1) THEN
10955: EXCEPTION
10956: WHEN OTHERS THEN
10957: l_concatenated_segments := '';
10958: END;
10959: fnd_message.set_name('WMS', 'WMS_LPN_ASSOC_WITH_CONT');
10960: fnd_message.set_token('LPN', p_pick_to_lpn );
10961: fnd_message.set_token('CONTAINER', l_concatenated_segments);
10962: fnd_msg_pub.ADD;
10963: RAISE fnd_api.g_exc_error;
10956: WHEN OTHERS THEN
10957: l_concatenated_segments := '';
10958: END;
10959: fnd_message.set_name('WMS', 'WMS_LPN_ASSOC_WITH_CONT');
10960: fnd_message.set_token('LPN', p_pick_to_lpn );
10961: fnd_message.set_token('CONTAINER', l_concatenated_segments);
10962: fnd_msg_pub.ADD;
10963: RAISE fnd_api.g_exc_error;
10964: END IF;
10957: l_concatenated_segments := '';
10958: END;
10959: fnd_message.set_name('WMS', 'WMS_LPN_ASSOC_WITH_CONT');
10960: fnd_message.set_token('LPN', p_pick_to_lpn );
10961: fnd_message.set_token('CONTAINER', l_concatenated_segments);
10962: fnd_msg_pub.ADD;
10963: RAISE fnd_api.g_exc_error;
10964: END IF;
10965: ELSE
10973: ELSE
10974: IF (l_debug = 1) THEN
10975: mydebug('Container changed. error out');
10976: END IF;
10977: fnd_message.set_name('WMS', 'WMS_LPN_ASSOC_WITH_CONT');
10978: fnd_message.set_token('LPN', p_pick_to_lpn );
10979: fnd_message.set_token('CONTAINER', p_suggested_container_item );
10980: fnd_msg_pub.ADD;
10981: RAISE fnd_api.g_exc_error;
10974: IF (l_debug = 1) THEN
10975: mydebug('Container changed. error out');
10976: END IF;
10977: fnd_message.set_name('WMS', 'WMS_LPN_ASSOC_WITH_CONT');
10978: fnd_message.set_token('LPN', p_pick_to_lpn );
10979: fnd_message.set_token('CONTAINER', p_suggested_container_item );
10980: fnd_msg_pub.ADD;
10981: RAISE fnd_api.g_exc_error;
10982: END IF;
10975: mydebug('Container changed. error out');
10976: END IF;
10977: fnd_message.set_name('WMS', 'WMS_LPN_ASSOC_WITH_CONT');
10978: fnd_message.set_token('LPN', p_pick_to_lpn );
10979: fnd_message.set_token('CONTAINER', p_suggested_container_item );
10980: fnd_msg_pub.ADD;
10981: RAISE fnd_api.g_exc_error;
10982: END IF;
10983: END IF;
11042: IF l_commingle_exist = 'Y' THEN
11043: IF (l_debug = 1) THEN
11044: mydebug('Cost group commigle exist.');
11045: END IF;
11046: fnd_message.set_name('WMS', 'WMS_CG_COMMINGLE');
11047: fnd_msg_pub.ADD;
11048: RAISE fnd_api.g_exc_error;
11049: ELSE
11050: IF (l_debug = 1) THEN
11119: from mtl_material_transactions_temp
11120: where transfer_lpn_id = pick_to_lpn_rec.lpn_id
11121: and transaction_header_id <>l_transaction_header_id);
11122:
11123: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_NOT_NEW'); -- new message
11124: fnd_msg_pub.ADD;
11125: RAISE fnd_api.g_exc_error;
11126: EXCEPTION
11127: WHEN NO_DATA_FOUND THEN RETURN; -- this lpn is fine and no need to do all
11136: from mtl_material_transactions_temp
11137: where transfer_lpn_id = pick_to_lpn_rec.lpn_id
11138: and transaction_temp_id = parent_line_id -- bulk task
11139: );
11140: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_BULK');
11141: fnd_msg_pub.ADD;
11142: RAISE fnd_api.g_exc_error;
11143: EXCEPTION
11144: WHEN NO_DATA_FOUND THEN null;
11195: mydebug(' lpn_id => ' || pick_to_lpn_rec.lpn_id);
11196: mydebug(' l_mmtt_mo_type => ' || l_mmtt_mo_type);
11197: mydebug(' l_mo_type_in_lpn => ' || l_mo_type_in_lpn);
11198: END IF;
11199: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_MO_TYPE');
11200: fnd_msg_pub.ADD;
11201: RAISE fnd_api.g_exc_error;
11202: ELSIF l_mmtt_txn_type_id = 35
11203: OR l_mmtt_txn_type_id = 51 THEN -- Mfg pick
11205: IF (l_debug = 1) THEN
11206: mydebug('validate_pick_to_lpn: This is a manufacturing component pick.');
11207: mydebug('WIP entity type IS NOT the same AS that OF the old mmtt RECORD');
11208: END IF;
11209: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_MFG_MODE');
11210: fnd_msg_pub.ADD;
11211: RAISE fnd_api.g_exc_error;
11212: END IF;
11213: END IF;
11276: mydebug('validate_pick_to_lpn: Drop LPN is going to an LPN controlled sub');
11277: mydebug('validate_pick_to_lpn: Cannot add picks not going to the same sub');
11278: END IF;
11279:
11280: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_SUBINV');
11281: fnd_msg_pub.ADD;
11282: RAISE fnd_api.g_exc_error;
11283: END IF;
11284: ELSE
11317: IF (l_debug = 1) THEN
11318: mydebug('validate_pick_to_lpn: Drop LPN has pick(s) for an LPN-controlled sub');
11319: END IF;
11320:
11321: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_SUBINV');
11322: fnd_msg_pub.ADD;
11323: RAISE fnd_api.g_exc_error;
11324: END IF;
11325: END IF;
11347: IF (l_debug = 1) THEN
11348: mydebug('validate_pick_to_lpn: Drop LPN is associated with material FOR a different operation plan');
11349: END IF;
11350:
11351: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_OPER_PLAN');
11352: fnd_msg_pub.ADD;
11353: RAISE fnd_api.g_exc_error;
11354: END IF;
11355:
11397: IF (l_debug = 1) THEN
11398: mydebug('validate_pick_to_lpn: can NOT find move order line for current task');
11399: END IF;
11400:
11401: fnd_message.set_name('WMS', 'WMS_NO_MOL');
11402: fnd_msg_pub.ADD;
11403: RAISE fnd_api.g_exc_error;
11404: END IF;
11405:
11442: IF (l_debug = 1) THEN
11443: mydebug('validate_pick_to_lpn: can NOT find either wdd or wda for tasks in the lpn');
11444: END IF;
11445:
11446: fnd_message.set_name('WMS', 'WMS_NO_WDD_WDA');
11447: fnd_msg_pub.ADD;
11448: RAISE fnd_api.g_exc_error;
11449: END IF;
11450:
11459: IF (l_debug = 1) THEN
11460: mydebug('validate_pick_to_lpn: other tasks in lpn have different deliveries');
11461: END IF;
11462:
11463: fnd_message.set_name('WMS', 'WMS_PICK_TO_LPN_DIFF_DELIV');
11464: fnd_msg_pub.ADD;
11465: RAISE fnd_api.g_exc_error;
11466: END IF;
11467: ELSE -- they have different carton_grouping_id
11523: --}
11524: END;
11525: --
11526: IF (l_same_carton_grouping = FALSE) then */
11527: fnd_message.set_name('WMS', 'WMS_DIFF_CARTON_GROUP');
11528: fnd_msg_pub.ADD;
11529: RAISE fnd_api.g_exc_error;
11530: /*END IF;
11531: --
11535: ELSE -- some of carton_grouping_id is null
11536: IF (l_debug = 1) THEN
11537: mydebug('validate_pick_to_lpn: some of tasks in lpn have NULL carton_grouping_id');
11538: END IF;
11539: fnd_message.set_name('WMS', 'WMS_CARTON_GROUP_NULL');
11540: fnd_msg_pub.ADD;
11541: RAISE fnd_api.g_exc_error;
11542: END IF;
11543: ELSE --carton_grouping_id is null
11545: mydebug('validate_pick_to_lpn: carton_grouping_id of current task is null');
11546: END IF;
11547: --bug3481923 only fail if it is not requisition on repl mo
11548: if (l_mmtt_mo_type not in(1,2)) then
11549: fnd_message.set_name('WMS', 'WMS_CARTON_GROUP_NULL');
11550: fnd_msg_pub.ADD;
11551: RAISE fnd_api.g_exc_error;
11552: end if;
11553: END IF;
11578: IF (l_debug = 1) THEN
11579: mydebug('validate_pick_to_lpn: Picked LPN and current MMTT go to different deliveries.');
11580: END IF;
11581:
11582: fnd_message.set_name('WMS', 'WMS_PICK_TO_LPN_DIFF_DELIV');
11583: fnd_msg_pub.ADD;
11584: RAISE fnd_api.g_exc_error;
11585: END IF;
11586: ELSIF l_pick_to_lpn_delivery_id2 IS NULL THEN
11593: mydebug('validate_pick_to_lpn: Current task has delivery.');
11594: mydebug('validate_pick_to_lpn: Picked LPN does not have delivery and current task has delivery.');
11595: END IF;
11596:
11597: fnd_message.set_name('WMS', 'WMS_PICK_TO_LPN_DIFF_DELIV');
11598: fnd_msg_pub.ADD;
11599: RAISE fnd_api.g_exc_error;
11600: END IF;
11601: ELSIF l_pick_to_lpn_delivery_id2 = -999 THEN
11627: IF (l_debug = 1) THEN
11628: mydebug('validate_pick_to_lpn: Picked LPN and current MMTT go to different deliveries.');
11629: END IF;
11630:
11631: fnd_message.set_name('WMS', 'WMS_PICK_TO_LPN_DIFF_DELIV');
11632: fnd_msg_pub.ADD;
11633: RAISE fnd_api.g_exc_error;
11634: NULL;
11635: ELSE
11675: IF (l_debug = 1) THEN
11676: mydebug('validate_pick_to_lpn: LPNs are on diff deliveries.');
11677: END IF;
11678:
11679: fnd_message.set_name('WMS', 'WMS_PICK_TO_LPN_DIFF_DELIV');
11680: fnd_msg_pub.ADD;
11681: RAISE fnd_api.g_exc_error;
11682: ELSE
11683: --
11971: l_count := 0;
11972: END;
11973:
11974: IF l_count <> 0 THEN
11975: fnd_message.set_name('INV', 'INVALID_SERIAL_NUMBER');
11976: fnd_msg_pub.ADD;
11977: RAISE fnd_api.g_exc_error;
11978: END IF;
11979: