[Home] [Help]
188: l_from_cg_id NUMBER;
189: l1 VARCHAR2(30);
190: l2 NUMBER;
191: l3 NUMBER;
192: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
193: l_sec_qty NUMBER; -- Added for OPM convergance
194: l_sec_uom VARCHAR2(3); -- Added for OPM convergance
195: BEGIN
196: --Get Max line number
500: l1 VARCHAR2(30);
501: l2 NUMBER;
502: l3 NUMBER;
503: l_project_comingle NUMBER;
504: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
505: l_sec_qty NUMBER;
506: l_sec_uom VARCHAR2(3);
507: BEGIN
508: l_header_id := p_header_id;
1128: -- used for inventory move by rules's engine
1129: l_quick_pick_flag VARCHAR2(1) := 'N';
1130: -- End GRAO
1131:
1132: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1133:
1134: -- Added for OPM convergance
1135: l_sec_qty NUMBER;
1136: l_sec_uom VARCHAR2(3);
2945: l_false VARCHAR2(1) := inv_rcv_integration_apis.G_FALSE;
2946: l_return_status VARCHAR2(1);
2947: l_msg_count NUMBER;
2948: l_msg_data VARCHAR2(10000);
2949: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
2950: BEGIN
2951: --Get the required columns from MLN first
2952: SELECT expiration_date
2953: , status_id
3030: l_false VARCHAR2(1) := inv_rcv_integration_apis.G_FALSE;
3031: l_return_status VARCHAR2(1);
3032: l_msg_count NUMBER;
3033: l_msg_data VARCHAR2(10000);
3034: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
3035: BEGIN
3036:
3037: --Get the serial status
3038: SELECT status_id
3084: l_errCode VARCHAR2(1);
3085: l_errMsg VARCHAR2(241);
3086: l_cst_ret NUMBER(1):=0;
3087: l_primary_cost_method NUMBER;
3088: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
3089: BEGIN
3090: select primary_cost_method
3091: into l_primary_cost_method
3092: from mtl_parameters
3335: content_lpn_id NUMBER;
3336: lpn_id NUMBER;
3337: temp_count NUMBER;
3338: l_emp_id NUMBER;
3339: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
3340:
3341: -- ER 7307189 changes start
3342:
3343: res_count NUMBER :=0;
5663: l_qty NUMBER;
5664: l_qty_diff NUMBER;
5665: l_qty_diff_prim NUMBER;
5666: l_cnt1 NUMBER;
5667: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
5668: BEGIN
5669: l_temp_id := p_temp_id;
5670: l_org_id := p_org_id;
5671: l_uom := p_uom;
5786: -- Need to trap the error returned when
5787: -- unable to lock the lpn record.
5788: record_locked EXCEPTION;
5789: PRAGMA EXCEPTION_INIT(record_locked, -54);
5790: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
5791:
5792: -- Following variables added in ATF_J
5793:
5794: -- end variables added in ATF_J
6234: l_mmtt_line_id NUMBER;
6235: l_mmtt_qty NUMBER;
6236: l_transaction_batch_id NUMBER;
6237: l_transaction_batch_seq NUMBER;
6238: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6239: BEGIN
6240: IF (l_debug = 1) THEN
6241: mydebug('In archive task..' || p_temp_id || ':' || p_org_id);
6242: END IF;
6355: l_msg_count NUMBER;
6356: l_msg_data VARCHAR2(2000);
6357: l_transaction_batch_id NUMBER;
6358: l_transaction_batch_seq NUMBER;
6359: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6360: BEGIN
6361: IF (l_debug = 1) THEN
6362: mydebug('archive_task: In archive task..' || p_temp_id || ':' || p_org_id);
6363: END IF;
6503: l_demand_source_header_id NUMBER := -1;
6504: l_repetitive_line_id NUMBER := -1;
6505: l_operation_seq_num NUMBER := -1;
6506: l_primary_qty NUMBER := -1;
6507: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6508: -- Following variables added in ATF_J4
6509:
6510:
6511: l_secondary_quantity NUMBER; --OPM Convergence
6792: l_count NUMBER;
6793: l_to_lpn_id NUMBER;
6794: l_lpn_context NUMBER;
6795: l_quantity NUMBER;
6796: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6797:
6798: -- Bug 4411792
6799: l_lpn_update WMS_CONTAINER_PUB.LPN;
6800: l_return_status VARCHAR2(1);
7137: AND inventory_item_id = l_item_id
7138: AND current_organization_id = l_org_id
7139: AND NVL(lot_number, -999) = NVL(l_lot_number, -999);
7140:
7141: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
7142: BEGIN
7143: IF (l_debug = 1) THEN
7144: mydebug('in check_mmtt_mtl_status api');
7145: mydebug('p_temp_id => ' || p_temp_id);
7339: , p_lpn_id IN NUMBER
7340: ) IS
7341: l_lpn_context NUMBER;
7342: PRAGMA AUTONOMOUS_TRANSACTION;
7343: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
7344:
7345: -- Following variables added in ATF_J3
7346:
7347: -- End variables added in ATF_J3
7407: l_return_status VARCHAR2(1);
7408: l_msg_count NUMBER;
7409: l_msg_data VARCHAR2(2000);
7410: l_lpn_cg_id NUMBER;
7411: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
7412: l_project_id NUMBER;
7413: l_task_id NUMBER;
7414:
7415: -- Bug# 3434940 - Performance Fixes
7617: l_number_of_rows NUMBER;
7618: l_return_status VARCHAR2(1);
7619: l_crossdock VARCHAR2(3);
7620: l_fully_allocated BOOLEAN := TRUE;
7621: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
7622: l_is_content_lpn VARCHAR2(1) := 'N';
7623: l_is_mo_there VARCHAR2(1) := 'N';
7624: l_lpn_context NUMBER;
7625: l_lpn_id NUMBER;
8116: )
8117: AND mol.line_status = 7
8118: AND mol.lpn_id = l_current_lpn_id;
8119:
8120: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8121: l_emp_id NUMBER;
8122:
8123:
8124:
8684: WHERE inventory_item_id = l_item_id
8685: AND current_organization_id = p_organization_id
8686: AND lpn_id = p_lpn_id;
8687:
8688: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8689: BEGIN
8690: IF (l_debug = 1) THEN
8691: mydebug('***Calling validate_lot_serial_status***');
8692: mydebug('Org ID: => ' || p_organization_id);
8894: l_item_id NUMBER;
8895: l_locator_id NUMBER;
8896: l_quantity NUMBER;
8897: l_uom_code VARCHAR2(3);
8898: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8899: l_parent_line_id NUMBER; --6962664
8900: l_txn_header_id NUMBER; --6962664
8901:
8902: -- Bug# 3434940 - Performance Fixes
9081: l_api_name CONSTANT VARCHAR2(30) := 'check_for_crossdock';
9082: l_progress VARCHAR2(10);
9083: l_cross_dock_flag NUMBER;
9084: l_ret_crossdock NUMBER;
9085: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
9086: BEGIN
9087: IF (l_debug = 1) THEN
9088: mydebug('***Calling check_for_crossdock***');
9089: mydebug('Org ID: => ' || p_organization_id);