[Home] [Help]
53: RETURN BOOLEAN IS
54: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
55: BEGIN
56: IF (l_debug = 1) THEN
57: inv_log_util.TRACE('** Trans Eres Enabled trx_action_id = ' || p_trans_action_id, 'INV_LPN_TRX_PUB', 9);
58: inv_log_util.TRACE('** Trans Eres Enabled trx_soource_id =' || p_trans_source_type_id, 'INV_LPN_TRX_PUB', 9);
59: END IF;
60:
61: IF (p_trans_action_id NOT IN(inv_globals.g_action_issue, inv_globals.g_action_receipt,INV_GLOBALS.G_ACTION_SUBXFR,
54: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
55: BEGIN
56: IF (l_debug = 1) THEN
57: inv_log_util.TRACE('** Trans Eres Enabled trx_action_id = ' || p_trans_action_id, 'INV_LPN_TRX_PUB', 9);
58: inv_log_util.TRACE('** Trans Eres Enabled trx_soource_id =' || p_trans_source_type_id, 'INV_LPN_TRX_PUB', 9);
59: END IF;
60:
61: IF (p_trans_action_id NOT IN(inv_globals.g_action_issue, inv_globals.g_action_receipt,INV_GLOBALS.G_ACTION_SUBXFR,
62: INV_GLOBALS.G_ACTION_ORGXFR, INV_GLOBALS.G_ACTION_INTRANSITSHIPMENT)) THEN
59: END IF;
60:
61: IF (p_trans_action_id NOT IN(inv_globals.g_action_issue, inv_globals.g_action_receipt,INV_GLOBALS.G_ACTION_SUBXFR,
62: INV_GLOBALS.G_ACTION_ORGXFR, INV_GLOBALS.G_ACTION_INTRANSITSHIPMENT)) THEN
63: inv_log_util.TRACE(
64: '** Transactions Not ERES Supported trx_action_id =' || p_trans_action_id || ',trx_source_type_id =' || p_trans_source_type_id
65: , 'INV_LPN_TRX_PUB'
66: , 9
67: );
108: RETURN FALSE;
109: END IF;
110:
111: IF (l_debug = 1) THEN
112: inv_log_util.TRACE('** ERES EVENT = ' || g_eres_event_name, 'INV_LPN_TRX_PUB', 9);
113: END IF;
114:
115: RETURN TRUE;
116: EXCEPTION
115: RETURN TRUE;
116: EXCEPTION
117: WHEN OTHERS THEN
118: IF (l_debug = 1) THEN
119: inv_log_util.TRACE('** Function TRANS_ERES_ENABLED - raised when Others', 'INV_LPN_TRX_PUB', 9);
120: END IF;
121:
122: fnd_message.set_name('INV', 'INV_ERES_ENABLED');
123: fnd_msg_pub.ADD;
144: from mtl_parameters
145: where organization_id = p_org_id;
146:
147: IF (l_debug = 1) THEN
148: inv_log_util.TRACE('INVTRXWB: cost method of org'||p_org_id||' is '||l_primary_cost_method,'INVTRXWB',1);
149: END IF;
150:
151: IF l_primary_cost_method in (2,5,6) THEN
152: IF (l_debug = 1) THEN
149: END IF;
150:
151: IF l_primary_cost_method in (2,5,6) THEN
152: IF (l_debug = 1) THEN
153: inv_log_util.TRACE('PRIMARY COST METHOD IS AVG OR FIFO OR LIFO CALLING CSTACOSN.op_snapshot'||p_temp_id,'INVTRXWB',1);
154: END IF;
155:
156: l_cst_ret := CSTACOSN.op_snapshot(i_txn_temp_id => p_temp_id,
157: err_num => l_errNum,
160: IF(l_cst_ret <> 1) THEN
161: fnd_message.set_name('BOM', 'CST_SNAPSHOT_FAILED');
162: fnd_msg_pub.ADD;
163: IF (l_debug = 1) THEN
164: inv_log_util.TRACE('INVTRXWB: Error from CSTACOSN.op_snapshot ','INVTRXWB',1);
165: END IF;
166: raise fnd_api.g_exc_unexpected_error;
167: ELSE
168: inv_log_util.TRACE('INVTRXWB: CALL TO CSTACOSN.op_snapshot SUCCESSFULL','INVTRXWB',1);
164: inv_log_util.TRACE('INVTRXWB: Error from CSTACOSN.op_snapshot ','INVTRXWB',1);
165: END IF;
166: raise fnd_api.g_exc_unexpected_error;
167: ELSE
168: inv_log_util.TRACE('INVTRXWB: CALL TO CSTACOSN.op_snapshot SUCCESSFULL','INVTRXWB',1);
169: END IF;
170:
171: END IF;
172: END create_snapshot;
267: END IF;*/
268: --16445970 --Commented the above
269: v_mmtt_rec.primary_quantity := curlpnrec.primary_quantity;
270: IF (l_debug = 1) THEN
271: inv_log_util.TRACE('Extracting the Primary Qty from WLC. No need to convert ', 'INV_LPN_TRX_PUB', 1);
272: inv_log_util.TRACE('v_mmtt_rec.primary_quantity: '||v_mmtt_rec.primary_quantity, 'INV_LPN_TRX_PUB', 1);
273: END IF;
274: --16445970
275:
268: --16445970 --Commented the above
269: v_mmtt_rec.primary_quantity := curlpnrec.primary_quantity;
270: IF (l_debug = 1) THEN
271: inv_log_util.TRACE('Extracting the Primary Qty from WLC. No need to convert ', 'INV_LPN_TRX_PUB', 1);
272: inv_log_util.TRACE('v_mmtt_rec.primary_quantity: '||v_mmtt_rec.primary_quantity, 'INV_LPN_TRX_PUB', 1);
273: END IF;
274: --16445970
275:
276: v_mmtt_rec.primary_quantity := v_mmtt_rec.primary_quantity * l_sign; --Added bug3984746
295: -- Call GMF_get_transfer_price_PUB.get_transfer_price API if either from or to org is process enabled.
296: IF ( inv_cache.set_org_rec(v_mmtt_rec.organization_id ) ) THEN
297: IF ( NVL(inv_cache.org_rec.process_enabled_flag,'N') = 'Y') THEN
298: p_from_opm_org := 'Y';
299: inv_log_util.trace('p_from_opm_org is:' ||p_from_opm_org, g_pkg_name || '.' || l_api_name, 5);
300:
301: END IF;
302: END IF;
303:
303:
304: IF ( inv_cache.set_org_rec(v_mmtt_rec.transfer_organization ) ) THEN
305: IF ( NVL(inv_cache.org_rec.process_enabled_flag,'N') = 'Y') THEN
306: p_to_opm_org := 'Y';
307: inv_log_util.trace('p_to_opm_org is:' ||p_to_opm_org, g_pkg_name || '.' || l_api_name, 5);
308: END IF;
309: END IF;
310:
311: IF (p_from_opm_org = 'Y' OR p_to_opm_org = 'Y') THEN
308: END IF;
309: END IF;
310:
311: IF (p_from_opm_org = 'Y' OR p_to_opm_org = 'Y') THEN
312: inv_log_util.trace('Calling GMF_get_transfer_price_PUB.get_transfer_price', g_pkg_name || '.' || l_api_name, 5);
313: inv_log_util.trace('v_mmtt_rec.inventory_item_id is:' || v_mmtt_rec.inventory_item_id, g_pkg_name || '.' || l_api_name, 5);
314: inv_log_util.trace('v_mmtt_rec.transaction_quantity is:' || v_mmtt_rec.transaction_quantity, g_pkg_name || '.' || l_api_name, 5);
315: inv_log_util.trace('v_mmtt_rec.transaction_uom is:' ||v_mmtt_rec.transaction_uom, g_pkg_name || '.' || l_api_name, 5);
316: inv_log_util.trace('v_mmtt_rec.organization_id is:' ||v_mmtt_rec.organization_id, g_pkg_name || '.' || l_api_name, 5);
309: END IF;
310:
311: IF (p_from_opm_org = 'Y' OR p_to_opm_org = 'Y') THEN
312: inv_log_util.trace('Calling GMF_get_transfer_price_PUB.get_transfer_price', g_pkg_name || '.' || l_api_name, 5);
313: inv_log_util.trace('v_mmtt_rec.inventory_item_id is:' || v_mmtt_rec.inventory_item_id, g_pkg_name || '.' || l_api_name, 5);
314: inv_log_util.trace('v_mmtt_rec.transaction_quantity is:' || v_mmtt_rec.transaction_quantity, g_pkg_name || '.' || l_api_name, 5);
315: inv_log_util.trace('v_mmtt_rec.transaction_uom is:' ||v_mmtt_rec.transaction_uom, g_pkg_name || '.' || l_api_name, 5);
316: inv_log_util.trace('v_mmtt_rec.organization_id is:' ||v_mmtt_rec.organization_id, g_pkg_name || '.' || l_api_name, 5);
317: inv_log_util.trace('v_mmtt_rec.transfer_organization is:' ||v_mmtt_rec.transfer_organization, g_pkg_name || '.' || l_api_name, 5);
310:
311: IF (p_from_opm_org = 'Y' OR p_to_opm_org = 'Y') THEN
312: inv_log_util.trace('Calling GMF_get_transfer_price_PUB.get_transfer_price', g_pkg_name || '.' || l_api_name, 5);
313: inv_log_util.trace('v_mmtt_rec.inventory_item_id is:' || v_mmtt_rec.inventory_item_id, g_pkg_name || '.' || l_api_name, 5);
314: inv_log_util.trace('v_mmtt_rec.transaction_quantity is:' || v_mmtt_rec.transaction_quantity, g_pkg_name || '.' || l_api_name, 5);
315: inv_log_util.trace('v_mmtt_rec.transaction_uom is:' ||v_mmtt_rec.transaction_uom, g_pkg_name || '.' || l_api_name, 5);
316: inv_log_util.trace('v_mmtt_rec.organization_id is:' ||v_mmtt_rec.organization_id, g_pkg_name || '.' || l_api_name, 5);
317: inv_log_util.trace('v_mmtt_rec.transfer_organization is:' ||v_mmtt_rec.transfer_organization, g_pkg_name || '.' || l_api_name, 5);
318:
311: IF (p_from_opm_org = 'Y' OR p_to_opm_org = 'Y') THEN
312: inv_log_util.trace('Calling GMF_get_transfer_price_PUB.get_transfer_price', g_pkg_name || '.' || l_api_name, 5);
313: inv_log_util.trace('v_mmtt_rec.inventory_item_id is:' || v_mmtt_rec.inventory_item_id, g_pkg_name || '.' || l_api_name, 5);
314: inv_log_util.trace('v_mmtt_rec.transaction_quantity is:' || v_mmtt_rec.transaction_quantity, g_pkg_name || '.' || l_api_name, 5);
315: inv_log_util.trace('v_mmtt_rec.transaction_uom is:' ||v_mmtt_rec.transaction_uom, g_pkg_name || '.' || l_api_name, 5);
316: inv_log_util.trace('v_mmtt_rec.organization_id is:' ||v_mmtt_rec.organization_id, g_pkg_name || '.' || l_api_name, 5);
317: inv_log_util.trace('v_mmtt_rec.transfer_organization is:' ||v_mmtt_rec.transfer_organization, g_pkg_name || '.' || l_api_name, 5);
318:
319: GMF_get_transfer_price_PUB.get_transfer_price (
312: inv_log_util.trace('Calling GMF_get_transfer_price_PUB.get_transfer_price', g_pkg_name || '.' || l_api_name, 5);
313: inv_log_util.trace('v_mmtt_rec.inventory_item_id is:' || v_mmtt_rec.inventory_item_id, g_pkg_name || '.' || l_api_name, 5);
314: inv_log_util.trace('v_mmtt_rec.transaction_quantity is:' || v_mmtt_rec.transaction_quantity, g_pkg_name || '.' || l_api_name, 5);
315: inv_log_util.trace('v_mmtt_rec.transaction_uom is:' ||v_mmtt_rec.transaction_uom, g_pkg_name || '.' || l_api_name, 5);
316: inv_log_util.trace('v_mmtt_rec.organization_id is:' ||v_mmtt_rec.organization_id, g_pkg_name || '.' || l_api_name, 5);
317: inv_log_util.trace('v_mmtt_rec.transfer_organization is:' ||v_mmtt_rec.transfer_organization, g_pkg_name || '.' || l_api_name, 5);
318:
319: GMF_get_transfer_price_PUB.get_transfer_price (
320: p_api_version => 1.0
313: inv_log_util.trace('v_mmtt_rec.inventory_item_id is:' || v_mmtt_rec.inventory_item_id, g_pkg_name || '.' || l_api_name, 5);
314: inv_log_util.trace('v_mmtt_rec.transaction_quantity is:' || v_mmtt_rec.transaction_quantity, g_pkg_name || '.' || l_api_name, 5);
315: inv_log_util.trace('v_mmtt_rec.transaction_uom is:' ||v_mmtt_rec.transaction_uom, g_pkg_name || '.' || l_api_name, 5);
316: inv_log_util.trace('v_mmtt_rec.organization_id is:' ||v_mmtt_rec.organization_id, g_pkg_name || '.' || l_api_name, 5);
317: inv_log_util.trace('v_mmtt_rec.transfer_organization is:' ||v_mmtt_rec.transfer_organization, g_pkg_name || '.' || l_api_name, 5);
318:
319: GMF_get_transfer_price_PUB.get_transfer_price (
320: p_api_version => 1.0
321: , p_init_msg_list => 'F'
348: );
349:
350: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
351: THEN
352: inv_log_util.trace('X_return status is <> S',g_pkg_name || '.' || l_api_name, 5);
353: x_transfer_price := 0;
354: END IF;
355:
356: inv_log_util.trace('x_transfer_price is:' || x_transfer_price, g_pkg_name || '.' || l_api_name, 5);
352: inv_log_util.trace('X_return status is <> S',g_pkg_name || '.' || l_api_name, 5);
353: x_transfer_price := 0;
354: END IF;
355:
356: inv_log_util.trace('x_transfer_price is:' || x_transfer_price, g_pkg_name || '.' || l_api_name, 5);
357: inv_log_util.trace('x_currency_code is :' || x_currency_code, g_pkg_name || '.' || l_api_name, 5);
358: END IF;
359:
360: -- End Bug 10158934
353: x_transfer_price := 0;
354: END IF;
355:
356: inv_log_util.trace('x_transfer_price is:' || x_transfer_price, g_pkg_name || '.' || l_api_name, 5);
357: inv_log_util.trace('x_currency_code is :' || x_currency_code, g_pkg_name || '.' || l_api_name, 5);
358: END IF;
359:
360: -- End Bug 10158934
361: --BUG13657375 Begin
358: END IF;
359:
360: -- End Bug 10158934
361: --BUG13657375 Begin
362: inv_log_util.trace('v_trxtempid is:' || v_trxtempid, g_pkg_name || '.' || l_api_name, 5);
363: inv_log_util.trace('v_orgid is :' || v_orgid, g_pkg_name || '.' || l_api_name, 5);
364: inv_log_util.trace('v_mmtt_rec.transaction_reference is :' || v_mmtt_rec.transaction_reference, g_pkg_name || '.' || l_api_name, 5);
365:
366: BEGIN
359:
360: -- End Bug 10158934
361: --BUG13657375 Begin
362: inv_log_util.trace('v_trxtempid is:' || v_trxtempid, g_pkg_name || '.' || l_api_name, 5);
363: inv_log_util.trace('v_orgid is :' || v_orgid, g_pkg_name || '.' || l_api_name, 5);
364: inv_log_util.trace('v_mmtt_rec.transaction_reference is :' || v_mmtt_rec.transaction_reference, g_pkg_name || '.' || l_api_name, 5);
365:
366: BEGIN
367: select transaction_reference into v_mmtt_rec.transaction_reference
360: -- End Bug 10158934
361: --BUG13657375 Begin
362: inv_log_util.trace('v_trxtempid is:' || v_trxtempid, g_pkg_name || '.' || l_api_name, 5);
363: inv_log_util.trace('v_orgid is :' || v_orgid, g_pkg_name || '.' || l_api_name, 5);
364: inv_log_util.trace('v_mmtt_rec.transaction_reference is :' || v_mmtt_rec.transaction_reference, g_pkg_name || '.' || l_api_name, 5);
365:
366: BEGIN
367: select transaction_reference into v_mmtt_rec.transaction_reference
368: from mtl_material_transactions_temp
371:
372: EXCEPTION
373: WHEN NO_DATA_FOUND THEN
374: IF (l_debug = 1) THEN
375: inv_log_util.TRACE('no data found insert_line_trx', 'INV_LPN_TRX_PUB', 1);
376: END IF;
377: END;
378: --BUG13657375 end
379:
637: /*12949776
638: Added parent_lot_number to fetch from MLN and pass to insert api.
639: */
640: IF (l_debug = 1) THEN
641: inv_log_util.TRACE('Fetching the Exp Date and Parent Lot Number', 'INV_LPN_TRX_PUB', 1);
642: END IF;
643:
644: SELECT expiration_date, parent_lot_number
645: INTO l_exp_date, l_parent_lot_number
653: l_parent_lot_number := NULL; --12949776
654: END;
655: --12949776
656: IF (l_debug = 1) THEN
657: inv_log_util.TRACE(' After Fetching the Exp Date and Parent Lot Number - exp_date : ParentLot' ||l_exp_date||' : '||l_parent_lot_number , 'INV_LPN_TRX_PUB', 1);
658: END IF;
659:
660: SELECT primary_uom_code
661: INTO l_primary_uom
677: --16445970 Commented the above conversion of Primary quantity
678: l_primary_qty := curlpnrec.primary_quantity;
679:
680: IF (l_debug = 1) THEN
681: inv_log_util.TRACE('Extracting the Primary Qty from WLC. No need to convert ', 'INV_LPN_TRX_PUB', 1);
682: inv_log_util.TRACE('l_primary_qty: '||l_primary_qty, 'INV_LPN_TRX_PUB', 1);
683: END IF;
684: --16445970
685:
678: l_primary_qty := curlpnrec.primary_quantity;
679:
680: IF (l_debug = 1) THEN
681: inv_log_util.TRACE('Extracting the Primary Qty from WLC. No need to convert ', 'INV_LPN_TRX_PUB', 1);
682: inv_log_util.TRACE('l_primary_qty: '||l_primary_qty, 'INV_LPN_TRX_PUB', 1);
683: END IF;
684: --16445970
685:
686: retval :=
699: );
700:
701: IF (retval <> 0) THEN
702: IF (l_debug = 1) THEN
703: inv_log_util.TRACE('**Error from insertLot :' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
704: END IF;
705:
706: fnd_message.set_name('INV', 'INV_FAILED');
707: fnd_msg_pub.ADD;
708: RAISE fnd_api.g_exc_error;
709: END IF;
710:
711: IF (l_debug = 1) THEN
712: inv_log_util.TRACE('*Inserted Lot :' || curlpnrec.lot_number, 'INV_LPN_TRX_PUB', 9);
713: END IF;
714:
715: RETURN sertrxid;
716: END;
728: , p_to_ser_num => p_ser_number, x_proc_msg => ret_msgdata);
729:
730: IF (retval <> 0) THEN
731: IF (l_debug = 1) THEN
732: inv_log_util.TRACE('**Error from insertSerial :' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
733: END IF;
734:
735: fnd_message.set_name('INV', 'INV_FAILED');
736: fnd_msg_pub.ADD;
737: RAISE fnd_api.g_exc_error;
738: END IF;
739:
740: IF (l_debug = 1) THEN
741: inv_log_util.TRACE('*Inserted Serial:' || p_ser_number || ',trxid=' || p_sertrxid, 'INV_LPN_TRX_PUB', 9);
742: END IF;
743:
744: RETURN 0;
745: END;
827: v_lastitempriqty NUMBER;--16445970
828: lotpriqty NUMBER;--16445970
829: BEGIN
830: IF (l_debug = 1) THEN
831: inv_log_util.TRACE('** exploding lpn_id =' || p_lpn_id || ',qty=' || p_mmtt.primary_quantity, 'INV_LPN_TRX_PUB', 9);
832: END IF;
833:
834: -- Bug 5103408 Add check for explode_lpn failure status.
835: -- Transaction should not continue if an error occurs during explosion
836: WMS_Container_PVT.Explode_LPN(1.0, fnd_api.g_false, fnd_api.g_false, ret_status, ret_msgcnt, ret_msgdata, p_lpn_id, 0, tb_lpn_cnts);
837:
838: IF ( ret_status <> fnd_api.g_ret_sts_success) THEN
839: IF (l_debug = 1) THEN
840: inv_log_util.TRACE('**Error: Failed in wms_container_pub.explode_lpn API :' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
841: END IF;
842:
843: RAISE fnd_api.g_exc_error;
844: END IF;
857: l_lpn_locator_id := p_mmtt.locator_id;
858: END IF;
859:
860: IF (l_debug = 1) THEN
861: inv_log_util.TRACE('LPN sub : ' || l_lpn_subinv || ',loc=' || l_lpn_locator_id, 'INV_LPN_TRX_PUB', 9);
862: END IF;
863:
864: --Check for batch ID and batch sequence. If they do not exist, populate them
865: --Also set inventory_item_id to -1 to ensure this record is processed first
864: --Check for batch ID and batch sequence. If they do not exist, populate them
865: --Also set inventory_item_id to -1 to ensure this record is processed first
866: --in the batch
867: IF (l_debug = 1) THEN
868: inv_log_util.TRACE('batch id=' || p_mmtt.transaction_batch_id || 'seq_id =' || p_mmtt.transaction_batch_seq, 'INV_LPN_TRX_PUB', 9);
869: END IF;
870:
871: IF (p_mmtt.transaction_batch_id IS NULL OR p_mmtt.transaction_batch_seq IS NULL) THEN
872: -- Batch id and sequence pair should be unique for this header_id.
890: , transaction_batch_seq = p_mmtt.transaction_batch_seq
891: WHERE transaction_interface_id = p_mmtt.transaction_temp_id;
892:
893: IF (l_debug = 1) THEN
894: inv_log_util.TRACE('From MTI, try update MTI batch and seq rowcount='||sql%rowcount, 'INV_LPN_TRX_PUB', 9);
895: END IF;
896:
897: IF ( sql%rowcount = 0 ) THEN
898: fnd_message.set_name('INV', 'INV_NO_RECORDS');
920: AND secondary_inventory_name = NVL(p_mmtt.transfer_subinventory, p_mmtt.subinventory_code);
921:
922: IF SQL%NOTFOUND THEN
923: IF (l_debug = 1) THEN
924: inv_log_util.TRACE('No sub found when checking lpn_controlled_flag', 'INV_LPN_TRX_PUB', 5);
925: END IF;
926:
927: fnd_message.set_name('INV', 'INV_INT_XSUBCODE');
928: fnd_msg_pub.ADD;
929: RAISE fnd_api.g_exc_error;
930: END IF;
931:
932: IF (l_debug = 1) THEN
933: inv_log_util.TRACE(
934: 'Checked lpn_controlled_flag for txnAction '
935: || p_mmtt.transaction_action_id
936: || ' and Sub '
937: || NVL(p_mmtt.transfer_subinventory, p_mmtt.subinventory_code)
956: AND organization_id = NVL(p_mmtt.transfer_organization, p_mmtt.organization_id);
957: EXCEPTION
958: WHEN NO_DATA_FOUND THEN
959: l_skip_comingle_check := 2;
960: inv_log_util.TRACE('NOTFOUND l_skip_comingle_check=' || l_skip_comingle_check, 'INV_LPN_TRX_PUB', 5);
961: END;
962:
963: IF (l_debug = 1) THEN
964: inv_log_util.TRACE('Checked if is a pjm locator l_skip_comingle_check=' || l_skip_comingle_check, 'INV_LPN_TRX_PUB', 5);
960: inv_log_util.TRACE('NOTFOUND l_skip_comingle_check=' || l_skip_comingle_check, 'INV_LPN_TRX_PUB', 5);
961: END;
962:
963: IF (l_debug = 1) THEN
964: inv_log_util.TRACE('Checked if is a pjm locator l_skip_comingle_check=' || l_skip_comingle_check, 'INV_LPN_TRX_PUB', 5);
965: END IF;
966: END IF;
967: ELSE
968: l_skip_comingle_check := 1;
974: LOOP
975: curlpnrec := tb_lpn_cnts(lpnitndx);
976:
977: IF (l_debug = 1) THEN
978: inv_log_util.TRACE(
979: ' cntlpnid = '
980: || curlpnrec.content_lpn_id
981: || ',par lpnid='
982: || curlpnrec.parent_lpn_id
1034: IF (curlpnrec.lot_number IS NOT NULL) THEN
1035: IF (curlpnrec.lot_number <> lastlotnum) THEN
1036: IF (lotqtychanged) THEN
1037: IF (l_debug = 1) THEN
1038: inv_log_util.TRACE('** Going to update last Lot rec1 qty = ' || lotqty, 'INV_LPN_TRX_PUB', 9);
1039: END IF;
1040:
1041: UPDATE mtl_transaction_lots_temp
1042: SET transaction_quantity = lotqty
1049: lotqtychanged := FALSE;
1050: END IF;
1051:
1052: IF (l_debug = 1) THEN
1053: inv_log_util.TRACE('** Inserting Lot Number ' || curlpnrec.lot_number, 'INV_LPN_TRX_PUB', 9);
1054: END IF;
1055:
1056: -- Bug 2795134/2712046 Comingle check failed when sub-transfer LPN to non-LPN controlled sub
1057: -- Need to add check here as well for same item but different lot numbers
1066: AND((curlpnrec.cost_group_id IS NOT NULL)
1067: OR(p_mmtt.cost_group_id IS NOT NULL)) THEN
1068: -- Non LPN Controlled, check cost group comingle
1069: IF (l_debug = 1) THEN
1070: inv_log_util.TRACE(
1071: 'Transfer to non-LPN controlled location, calling comingle_check with '
1072: || 'p_org_id='
1073: || NVL(p_mmtt.transfer_organization, p_mmtt.organization_id)
1074: || ',p_item_id='
1106: );
1107:
1108: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1109: IF (l_debug = 1) THEN
1110: inv_log_util.TRACE('**Error: Failed in comingling_check API :' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
1111: END IF;
1112:
1113: RAISE fnd_api.g_exc_error;
1114: END IF;
1114: END IF;
1115:
1116: IF (l_comingling_occurs = 'Y') THEN
1117: IF (l_debug = 1) THEN
1118: inv_log_util.TRACE('**Error: Transaction results in co-mingling :' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
1119: END IF;
1120:
1121: SELECT cost_group
1122: INTO l_cst_grp
1146: END IF;
1147: ELSE
1148: IF (lotqtychanged) THEN
1149: IF (l_debug = 1) THEN
1150: inv_log_util.TRACE('** Going to update last Lot rec2 qty = ' || lotqty, 'INV_LPN_TRX_PUB', 9);
1151: END IF;
1152:
1153: UPDATE mtl_transaction_lots_temp
1154: SET transaction_quantity = lotqty
1163: END IF;
1164:
1165: IF (curlpnrec.serial_number IS NOT NULL) THEN
1166: IF (l_debug = 1) THEN
1167: inv_log_util.TRACE('** Inserting Serial Number ' || curlpnrec.serial_number, 'INV_LPN_TRX_PUB', 9);
1168: END IF;
1169:
1170: retval := insert_ser_trx(curlpnrec.serial_number, sertrxid);
1171: l_pre_sertrxid := sertrxid;
1185: AND((curlpnrec.cost_group_id IS NOT NULL)
1186: OR(p_mmtt.cost_group_id IS NOT NULL)) THEN
1187: -- Non LPN Controlled, check cost group comingle
1188: IF (l_debug = 1) THEN
1189: inv_log_util.TRACE(
1190: 'Transfer to non-LPN controlled location, calling comingle_check with '
1191: || 'p_org_id='
1192: || NVL(p_mmtt.transfer_organization, p_mmtt.organization_id)
1193: || ',p_item_id='
1224: );
1225:
1226: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1227: IF (l_debug = 1) THEN
1228: inv_log_util.TRACE('**Error: Failed in comingling_check API :' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
1229: END IF;
1230:
1231: RAISE fnd_api.g_exc_error;
1232: END IF;
1232: END IF;
1233:
1234: IF (l_comingling_occurs = 'Y') THEN
1235: IF (l_debug = 1) THEN
1236: inv_log_util.TRACE('**Error: Transaction results in co-mingling :' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
1237: END IF;
1238:
1239: SELECT cost_group
1240: INTO l_cst_grp
1262: v_lastitempriqty := -1* v_lastitempriqty; --16445970
1263: END IF;
1264:
1265: IF (l_debug = 1) THEN
1266: inv_log_util.TRACE('** Going to upd lst rec1. qty = ' || v_lastitemqty, 'INV_LPN_TRX_PUB', 9);
1267: END IF;
1268:
1269: UPDATE mtl_material_transactions_temp
1270: SET transaction_quantity = v_lastitemqty
1279: p_mmtt.secondary_transaction_quantity := CASE WHEN v_lastitemsecqty <> 0 THEN v_lastitemsecqty ELSE p_mmtt.secondary_transaction_quantity END; --INVCONV kkillams
1280:
1281: IF (lotqtychanged) THEN
1282: IF (l_debug = 1) THEN
1283: inv_log_util.TRACE('** Going to upd lst lot3. qty = ' || lotqty, 'INV_LPN_TRX_PUB', 9);
1284: END IF;
1285:
1286: UPDATE mtl_transaction_lots_temp
1287: SET transaction_quantity = lotqty
1318: );
1319:
1320: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1321: IF (l_debug = 1) THEN
1322: inv_log_util.TRACE(' Error from CostGrpAPI:' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
1323: END IF;
1324:
1325: fnd_message.set_name('INV', 'INV_COST_GROUP_FAILURE');
1326: fnd_msg_pub.ADD;
1353: itemsecqty := -1 * curlpnrec.sec_quantity; --INVCONV kkillams
1354: END IF;
1355:
1356: IF (l_debug = 1) THEN
1357: inv_log_util.TRACE(
1358: '** inserting into MMTT. Mode-Normal. Qty=' || itemqty || ',sub=' || l_lpn_subinv || ',loc=' || l_lpn_locator_id
1359: , 'INV_LPN_TRX_PUB'
1360: , 9
1361: );
1401: /*Bug#5486052. End.*/
1402:
1403:
1404: IF (l_debug = 1) THEN
1405: inv_log_util.TRACE('MMTT.retval=' || retval || ',lasttrxtmpid=' || v_lasttrxtmpid, 'INV_LPN_TRX_PUB', 9);
1406: END IF;
1407:
1408: IF (curlpnrec.lot_number IS NOT NULL) THEN
1409: sertrxid := insert_lot_trx(curlpnrec, v_lasttrxtmpid);
1493: );
1494:
1495: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1496: IF (l_debug = 1) THEN
1497: inv_log_util.TRACE(' Error from CostGrpAPI:' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
1498: END IF;
1499:
1500: fnd_message.set_name('INV', 'INV_COST_GROUP_FAILURE');
1501: fnd_msg_pub.ADD;
1526: BEGIN
1527: x_return_status := fnd_api.g_ret_sts_success;
1528:
1529: IF (l_debug = 1) THEN
1530: inv_log_util.TRACE('PO J installed', 'INV_LPN_TRX_PUB', 1);
1531: inv_log_util.TRACE('Updating FOB_POINT', 'INV_LPN_TRX_PUB', 1);
1532: inv_log_util.TRACE('organization_id' || v_mmtt.organization_id, 'INV_LPN_TRX_PUB', 1);
1533: inv_log_util.TRACE('xfr_organization_id' || v_mmtt.transfer_organization, 'INV_LPN_TRX_PUB', 1);
1534: inv_log_util.TRACE('trx_action_id' || v_mmtt.transaction_action_id, 'INV_LPN_TRX_PUB', 1);
1527: x_return_status := fnd_api.g_ret_sts_success;
1528:
1529: IF (l_debug = 1) THEN
1530: inv_log_util.TRACE('PO J installed', 'INV_LPN_TRX_PUB', 1);
1531: inv_log_util.TRACE('Updating FOB_POINT', 'INV_LPN_TRX_PUB', 1);
1532: inv_log_util.TRACE('organization_id' || v_mmtt.organization_id, 'INV_LPN_TRX_PUB', 1);
1533: inv_log_util.TRACE('xfr_organization_id' || v_mmtt.transfer_organization, 'INV_LPN_TRX_PUB', 1);
1534: inv_log_util.TRACE('trx_action_id' || v_mmtt.transaction_action_id, 'INV_LPN_TRX_PUB', 1);
1535: inv_log_util.TRACE('trx_temp_id' || v_mmtt.transaction_temp_id, 'INV_LPN_TRX_PUB', 1);
1528:
1529: IF (l_debug = 1) THEN
1530: inv_log_util.TRACE('PO J installed', 'INV_LPN_TRX_PUB', 1);
1531: inv_log_util.TRACE('Updating FOB_POINT', 'INV_LPN_TRX_PUB', 1);
1532: inv_log_util.TRACE('organization_id' || v_mmtt.organization_id, 'INV_LPN_TRX_PUB', 1);
1533: inv_log_util.TRACE('xfr_organization_id' || v_mmtt.transfer_organization, 'INV_LPN_TRX_PUB', 1);
1534: inv_log_util.TRACE('trx_action_id' || v_mmtt.transaction_action_id, 'INV_LPN_TRX_PUB', 1);
1535: inv_log_util.TRACE('trx_temp_id' || v_mmtt.transaction_temp_id, 'INV_LPN_TRX_PUB', 1);
1536: END IF;
1529: IF (l_debug = 1) THEN
1530: inv_log_util.TRACE('PO J installed', 'INV_LPN_TRX_PUB', 1);
1531: inv_log_util.TRACE('Updating FOB_POINT', 'INV_LPN_TRX_PUB', 1);
1532: inv_log_util.TRACE('organization_id' || v_mmtt.organization_id, 'INV_LPN_TRX_PUB', 1);
1533: inv_log_util.TRACE('xfr_organization_id' || v_mmtt.transfer_organization, 'INV_LPN_TRX_PUB', 1);
1534: inv_log_util.TRACE('trx_action_id' || v_mmtt.transaction_action_id, 'INV_LPN_TRX_PUB', 1);
1535: inv_log_util.TRACE('trx_temp_id' || v_mmtt.transaction_temp_id, 'INV_LPN_TRX_PUB', 1);
1536: END IF;
1537:
1530: inv_log_util.TRACE('PO J installed', 'INV_LPN_TRX_PUB', 1);
1531: inv_log_util.TRACE('Updating FOB_POINT', 'INV_LPN_TRX_PUB', 1);
1532: inv_log_util.TRACE('organization_id' || v_mmtt.organization_id, 'INV_LPN_TRX_PUB', 1);
1533: inv_log_util.TRACE('xfr_organization_id' || v_mmtt.transfer_organization, 'INV_LPN_TRX_PUB', 1);
1534: inv_log_util.TRACE('trx_action_id' || v_mmtt.transaction_action_id, 'INV_LPN_TRX_PUB', 1);
1535: inv_log_util.TRACE('trx_temp_id' || v_mmtt.transaction_temp_id, 'INV_LPN_TRX_PUB', 1);
1536: END IF;
1537:
1538: IF (v_mmtt.transaction_temp_id IS NULL) THEN
1531: inv_log_util.TRACE('Updating FOB_POINT', 'INV_LPN_TRX_PUB', 1);
1532: inv_log_util.TRACE('organization_id' || v_mmtt.organization_id, 'INV_LPN_TRX_PUB', 1);
1533: inv_log_util.TRACE('xfr_organization_id' || v_mmtt.transfer_organization, 'INV_LPN_TRX_PUB', 1);
1534: inv_log_util.TRACE('trx_action_id' || v_mmtt.transaction_action_id, 'INV_LPN_TRX_PUB', 1);
1535: inv_log_util.TRACE('trx_temp_id' || v_mmtt.transaction_temp_id, 'INV_LPN_TRX_PUB', 1);
1536: END IF;
1537:
1538: IF (v_mmtt.transaction_temp_id IS NULL) THEN
1539: x_msg_data := 'Trx_temp_id is null return success';
1538: IF (v_mmtt.transaction_temp_id IS NULL) THEN
1539: x_msg_data := 'Trx_temp_id is null return success';
1540:
1541: IF (l_debug = 1) THEN
1542: inv_log_util.TRACE('Trx_temp_id is null return success', 'INV_LPN_TRX_PUB', 1);
1543: END IF;
1544:
1545: RETURN;
1546: END IF;
1556: AND to_organization_id = v_mmtt.transfer_organization;
1557: EXCEPTION
1558: WHEN NO_DATA_FOUND THEN
1559: IF (l_debug = 1) THEN
1560: inv_log_util.TRACE('no data found INV_FOB_NOT_DEFINED', 'INV_LPN_TRX_PUB', 1);
1561: END IF;
1562:
1563: fnd_message.set_name('INV', 'INV_FOB_NOT_DEFINED');
1564: fnd_message.set_token('ENTITY1', v_mmtt.organization_id);
1582: WHERE transaction_id =v_mmtt.rcv_transaction_id;
1583: EXCEPTION
1584: WHEN NO_DATA_FOUND THEN
1585: IF (l_debug = 1) THEN
1586: inv_log_util.TRACE('no data found rcv_transactions', 'INV_LPN_TRX_PUB', 1);
1587: END IF;
1588:
1589: RAISE fnd_api.g_exc_error;
1590: END;
1614: AND to_organization_id = v_mmtt.organization_id;
1615: EXCEPTION
1616: WHEN NO_DATA_FOUND THEN
1617: IF (l_debug = 1) THEN
1618: inv_log_util.TRACE('no data found INV_FOB_NOT_DEFINED', 'INV_LPN_TRX_PUB', 1);
1619: END IF;
1620: fnd_message.set_name('INV', 'INV_FOB_NOT_DEFINED');
1621: fnd_message.set_token('ENTITY1', v_mmtt.organization_id);
1622: fnd_msg_pub.ADD;
1632: WHERE transaction_id = l_mmt_transaction_id;
1633: EXCEPTION
1634: WHEN NO_DATA_FOUND THEN
1635: IF (l_debug = 1) THEN
1636: inv_log_util.TRACE('no data found mtl_material_transactions', 'INV_LPN_TRX_PUB', 1);
1637: END IF;
1638: RAISE fnd_api.g_exc_error;
1639: END;
1640: END IF;
1731: -- If content_lpn_id column has value then discard the item_id
1732: -- If content_lpn_id is Not NULL then we are packing/unpacking a
1733: -- whole LPN to/from another LPN, so no need to consider Lots and Serials
1734: IF (l_debug = 1) THEN
1735: inv_log_util.TRACE('** pack/unpack of whole LPN **', 'INV_LPN_TRX_PUB', 9);
1736: END IF;
1737:
1738: WMS_Container_PVT.PackUnpack_Container(
1739: p_api_version => 1.0
1763: );
1764:
1765: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1766: IF (l_debug = 1) THEN
1767: inv_log_util.TRACE('**Error from LPN pack/unpack :' || ret_status, 'INV_LPN_TRX_PUB', 1);
1768: inv_log_util.TRACE(
1769: '**p_lpn='
1770: || p_lpn
1771: || ',p_content_lpn='
1764:
1765: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1766: IF (l_debug = 1) THEN
1767: inv_log_util.TRACE('**Error from LPN pack/unpack :' || ret_status, 'INV_LPN_TRX_PUB', 1);
1768: inv_log_util.TRACE(
1769: '**p_lpn='
1770: || p_lpn
1771: || ',p_content_lpn='
1772: || p_content_lpn
1781: );
1782: END IF;
1783:
1784: IF (l_debug = 1) THEN
1785: inv_log_util.TRACE(
1786: ',p_subinv=' || p_subinv || ',p_locator=' || p_locator || ',p_operation=' || p_operation || ',p_cost_grp_id=' || p_cost_grp_id
1787: , 'INV_LPN_TRX_PUB'
1788: , 1
1789: );
1807: v_serfound := FALSE;
1808:
1809: FOR v_sertmp IN c_sertmp LOOP
1810: IF (l_debug = 1) THEN
1811: inv_log_util.TRACE('** Lot and Serial controlled**', 'INV_LPN_TRX_PUB', 9);
1812: END IF;
1813:
1814: v_serfound := TRUE;
1815:
1826: AND p_source_type_id = 12 /*rma*/
1827: AND p_trx_action = 27 /*receipt*/
1828: AND p_operation = 1 /*pack*/
1829: ) THEN /*pack as vanilla*/
1830: inv_log_util.TRACE('** Packing rma so issue serial as vanilla for receipt**', 'INV_LPN_TRX_PUB', 9);
1831: WMS_Container_PVT.PackUnpack_Container (
1832: p_api_version => 1.0
1833: , p_init_msg_list => fnd_api.g_false
1834: , x_return_status => ret_status
1886: END IF; /*end of 3158847*/
1887:
1888: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1889: IF (l_debug = 1) THEN
1890: inv_log_util.TRACE('**Error from pack/unpack :' || ret_status, 'INV_LPN_TRX_PUB', 1);
1891: inv_log_util.TRACE(
1892: '**p_lpn='
1893: || p_lpn
1894: || ',p_content_lpn='
1887:
1888: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1889: IF (l_debug = 1) THEN
1890: inv_log_util.TRACE('**Error from pack/unpack :' || ret_status, 'INV_LPN_TRX_PUB', 1);
1891: inv_log_util.TRACE(
1892: '**p_lpn='
1893: || p_lpn
1894: || ',p_content_lpn='
1895: || p_content_lpn
1903: || v_sertmp.fm_serial_number
1904: , 'INV_LPN_TRX_PUB'
1905: , 1
1906: );
1907: inv_log_util.TRACE(
1908: ',p_org_id='
1909: || p_org_id
1910: || ',p_subinv='
1911: || p_subinv
1927: END LOOP;
1928:
1929: IF (NOT v_serfound) THEN
1930: IF (l_debug = 1) THEN
1931: inv_log_util.TRACE('**** Lot controlled **', 'INV_LPN_TRX_PUB', 9);
1932: END IF;
1933:
1934: WMS_Container_PVT.PackUnpack_Container (
1935: p_api_version => 1.0
1960: );
1961:
1962: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1963: IF (l_debug = 1) THEN
1964: inv_log_util.TRACE('**Error from pack/unpack :' || ret_status, 'INV_LPN_TRX_PUB', 1);
1965: inv_log_util.TRACE(
1966: '**p_lpn='
1967: || p_lpn
1968: || ',p_content_lpn='
1961:
1962: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1963: IF (l_debug = 1) THEN
1964: inv_log_util.TRACE('**Error from pack/unpack :' || ret_status, 'INV_LPN_TRX_PUB', 1);
1965: inv_log_util.TRACE(
1966: '**p_lpn='
1967: || p_lpn
1968: || ',p_content_lpn='
1969: || p_content_lpn
1977: || p_org_id
1978: , 'INV_LPN_TRX_PUB'
1979: , 1
1980: );
1981: inv_log_util.TRACE(
1982: ',p_subinv=' || p_subinv || ',p_locator=' || p_locator || ',p_operation=' || p_operation || ',p_cost_grp_id='
1983: || p_cost_grp_id
1984: , 'INV_LPN_TRX_PUB'
1985: , 1
1998: v_serfound := FALSE;
1999:
2000: FOR v_sertmp IN c_sertmp LOOP
2001: IF (l_debug = 1) THEN
2002: inv_log_util.TRACE('** Serial controlled**.fmser=' || v_sertmp.fm_serial_number || ', toser=' || v_sertmp.to_serial_number
2003: , 'INV_LPN_TRX_PUB', 9);
2004: END IF;
2005:
2006: v_serfound := TRUE;
2018: AND p_source_type_id = 12 /*rma*/
2019: AND p_trx_action = 27 /*receipt*/
2020: AND p_operation = 1 /*pack*/
2021: ) THEN /*pack as vanilla*/
2022: inv_log_util.TRACE('** Packing rma so issue serial as vanilla for receipt**', 'INV_LPN_TRX_PUB', 9);
2023: WMS_Container_PVT.PackUnpack_Container (
2024: p_api_version => 1.0
2025: , p_init_msg_list => fnd_api.g_false
2026: , x_return_status => ret_status
2077: END IF; /*3158847*/
2078:
2079: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
2080: IF (l_debug = 1) THEN
2081: inv_log_util.TRACE(
2082: '**Error from pack/unpack :'
2083: || ret_status
2084: || ',p_lpn='
2085: || p_lpn
2091: || v_sertmp.fm_serial_number
2092: , 'INV_LPN_TRX_PUB'
2093: , 1
2094: );
2095: inv_log_util.TRACE(
2096: 'toser=' || v_sertmp.to_serial_number || ',org=' || p_org_id || ',p_subinv=' || p_subinv || ',p_locator=' || p_locator
2097: , 'INV_LPN_TRX_PUB'
2098: , 9
2099: );
2106: END LOOP;
2107:
2108: IF (NOT v_serfound) THEN
2109: IF (l_debug = 1) THEN
2110: inv_log_util.TRACE('** NOT Lot OR Serial controlled**', 'INV_LPN_TRX_PUB', 9);
2111: END IF;
2112:
2113: WMS_Container_PVT.PackUnpack_Container (
2114: p_api_version => 1.0
2138: );
2139:
2140: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
2141: IF (l_debug = 1) THEN
2142: inv_log_util.TRACE('**Error from pack/unpack :' || ret_status, 'INV_LPN_TRX_PUB', 1);
2143: inv_log_util.TRACE(
2144: '**p_lpn='
2145: || p_lpn
2146: || ',p_content_lpn='
2139:
2140: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
2141: IF (l_debug = 1) THEN
2142: inv_log_util.TRACE('**Error from pack/unpack :' || ret_status, 'INV_LPN_TRX_PUB', 1);
2143: inv_log_util.TRACE(
2144: '**p_lpn='
2145: || p_lpn
2146: || ',p_content_lpn='
2147: || p_content_lpn
2156: );
2157: END IF;
2158:
2159: IF (l_debug = 1) THEN
2160: inv_log_util.TRACE(
2161: ',p_subinv=' || p_subinv || ',p_locator=' || p_locator || ',p_operation=' || p_operation || ',p_cost_grp_id='
2162: || p_cost_grp_id
2163: , 'INV_LPN_TRX_PUB'
2164: , 1
2174: END IF; -- p_content_lpn is NULL
2175:
2176: IF (p_operation = g_pack) THEN
2177: IF (l_debug = 1) THEN
2178: inv_log_util.TRACE('** Pack OK', 'INV_LPN_TRX_PUB', 9);
2179: END IF;
2180: ELSIF(p_operation = g_unpack) THEN
2181: IF (l_debug = 1) THEN
2182: inv_log_util.TRACE('** Unpack OK', 'INV_LPN_TRX_PUB', 9);
2178: inv_log_util.TRACE('** Pack OK', 'INV_LPN_TRX_PUB', 9);
2179: END IF;
2180: ELSIF(p_operation = g_unpack) THEN
2181: IF (l_debug = 1) THEN
2182: inv_log_util.TRACE('** Unpack OK', 'INV_LPN_TRX_PUB', 9);
2183: END IF;
2184: END IF;
2185: END;
2186:
2203: );
2204:
2205: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
2206: IF (l_debug = 1) THEN
2207: inv_log_util.TRACE('Error from modify_lpn :' || ret_status, 'INV_LPN_TRX_PUB', 1);
2208: inv_log_util.TRACE('Error msg :' || ret_msgdata || 'msgcnt=' || ret_msgcnt, 'INV_LPN_TRX_PUB', 1);
2209: END IF;
2210:
2211: fnd_message.set_name('INV', 'INV_LPN_UPDATE_FAILURE');
2204:
2205: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
2206: IF (l_debug = 1) THEN
2207: inv_log_util.TRACE('Error from modify_lpn :' || ret_status, 'INV_LPN_TRX_PUB', 1);
2208: inv_log_util.TRACE('Error msg :' || ret_msgdata || 'msgcnt=' || ret_msgcnt, 'INV_LPN_TRX_PUB', 1);
2209: END IF;
2210:
2211: fnd_message.set_name('INV', 'INV_LPN_UPDATE_FAILURE');
2212: fnd_msg_pub.ADD;
2223: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
2224: l_sertmp_rec mtl_serial_numbers_temp%ROWTYPE;
2225: BEGIN
2226: IF (l_debug = 1) THEN
2227: inv_log_util.TRACE('Call to Copy_MSNT rowid=' || p_source_row_id, 'INV_LPN_TRX_PUB', 9);
2228: inv_log_util.TRACE('newsertrxid=' || p_new_sertrxid || ' newfsn=' || p_new_fm_serial || ' newtsn=' || p_new_to_serial
2229: , 'INV_LPN_TRX_PUB', 9);
2230: END IF;
2231:
2224: l_sertmp_rec mtl_serial_numbers_temp%ROWTYPE;
2225: BEGIN
2226: IF (l_debug = 1) THEN
2227: inv_log_util.TRACE('Call to Copy_MSNT rowid=' || p_source_row_id, 'INV_LPN_TRX_PUB', 9);
2228: inv_log_util.TRACE('newsertrxid=' || p_new_sertrxid || ' newfsn=' || p_new_fm_serial || ' newtsn=' || p_new_to_serial
2229: , 'INV_LPN_TRX_PUB', 9);
2230: END IF;
2231:
2232: SELECT *
2390: );
2391: EXCEPTION
2392: WHEN OTHERS THEN
2393: IF (l_debug = 1) THEN
2394: inv_log_util.TRACE(l_api_name || ' Error', l_api_name, 1);
2395:
2396: IF (SQLCODE IS NOT NULL) THEN
2397: inv_log_util.TRACE('SQL error: ' || SQLERRM(SQLCODE), l_api_name, 1);
2398: END IF;
2393: IF (l_debug = 1) THEN
2394: inv_log_util.TRACE(l_api_name || ' Error', l_api_name, 1);
2395:
2396: IF (SQLCODE IS NOT NULL) THEN
2397: inv_log_util.TRACE('SQL error: ' || SQLERRM(SQLCODE), l_api_name, 1);
2398: END IF;
2399: END IF;
2400:
2401: RAISE fnd_api.g_exc_unexpected_error;
2576: l_shipping_attr(1).transfer_lpn_id := p_xfr_lpn_id;
2577: l_shipping_attr(1).action_flag := 'U';
2578:
2579: IF (l_debug = 1) THEN
2580: inv_log_util.TRACE(l_api_name || ' Entered ' || g_pkg_version, l_api_name, 1);
2581: inv_log_util.TRACE('orgid='||p_organization_id||' lpn='||p_lpn_id||' xfrlpn='||p_xfr_lpn_id||' item='||p_item_rec.inventory_item_id||' rev='||p_revision||' lot='||p_lot_number, l_api_name, 9);
2582: inv_log_util.TRACE('sctl='||p_item_rec.serial_number_control_code||' qty='||p_quantity||' uom='||p_uom_code||' qty2='||p_secondary_trx_quantity||' uom2='||p_secondary_uom_code||' strxtmp='||p_serial_trx_temp_id, l_api_name, 4);
2583: inv_log_util.TRACE('xfrsub='||p_xfr_subinventory||' xfrloc='||p_xfr_to_location||' srcid='||p_transaction_source_id||' srcln='||p_trx_source_line_id, l_api_name, 4);
2584: END IF;
2577: l_shipping_attr(1).action_flag := 'U';
2578:
2579: IF (l_debug = 1) THEN
2580: inv_log_util.TRACE(l_api_name || ' Entered ' || g_pkg_version, l_api_name, 1);
2581: inv_log_util.TRACE('orgid='||p_organization_id||' lpn='||p_lpn_id||' xfrlpn='||p_xfr_lpn_id||' item='||p_item_rec.inventory_item_id||' rev='||p_revision||' lot='||p_lot_number, l_api_name, 9);
2582: inv_log_util.TRACE('sctl='||p_item_rec.serial_number_control_code||' qty='||p_quantity||' uom='||p_uom_code||' qty2='||p_secondary_trx_quantity||' uom2='||p_secondary_uom_code||' strxtmp='||p_serial_trx_temp_id, l_api_name, 4);
2583: inv_log_util.TRACE('xfrsub='||p_xfr_subinventory||' xfrloc='||p_xfr_to_location||' srcid='||p_transaction_source_id||' srcln='||p_trx_source_line_id, l_api_name, 4);
2584: END IF;
2585:
2578:
2579: IF (l_debug = 1) THEN
2580: inv_log_util.TRACE(l_api_name || ' Entered ' || g_pkg_version, l_api_name, 1);
2581: inv_log_util.TRACE('orgid='||p_organization_id||' lpn='||p_lpn_id||' xfrlpn='||p_xfr_lpn_id||' item='||p_item_rec.inventory_item_id||' rev='||p_revision||' lot='||p_lot_number, l_api_name, 9);
2582: inv_log_util.TRACE('sctl='||p_item_rec.serial_number_control_code||' qty='||p_quantity||' uom='||p_uom_code||' qty2='||p_secondary_trx_quantity||' uom2='||p_secondary_uom_code||' strxtmp='||p_serial_trx_temp_id, l_api_name, 4);
2583: inv_log_util.TRACE('xfrsub='||p_xfr_subinventory||' xfrloc='||p_xfr_to_location||' srcid='||p_transaction_source_id||' srcln='||p_trx_source_line_id, l_api_name, 4);
2584: END IF;
2585:
2586: FOR dd_rec IN delivery_detail_cursor(p_lot_number) LOOP
2579: IF (l_debug = 1) THEN
2580: inv_log_util.TRACE(l_api_name || ' Entered ' || g_pkg_version, l_api_name, 1);
2581: inv_log_util.TRACE('orgid='||p_organization_id||' lpn='||p_lpn_id||' xfrlpn='||p_xfr_lpn_id||' item='||p_item_rec.inventory_item_id||' rev='||p_revision||' lot='||p_lot_number, l_api_name, 9);
2582: inv_log_util.TRACE('sctl='||p_item_rec.serial_number_control_code||' qty='||p_quantity||' uom='||p_uom_code||' qty2='||p_secondary_trx_quantity||' uom2='||p_secondary_uom_code||' strxtmp='||p_serial_trx_temp_id, l_api_name, 4);
2583: inv_log_util.TRACE('xfrsub='||p_xfr_subinventory||' xfrloc='||p_xfr_to_location||' srcid='||p_transaction_source_id||' srcln='||p_trx_source_line_id, l_api_name, 4);
2584: END IF;
2585:
2586: FOR dd_rec IN delivery_detail_cursor(p_lot_number) LOOP
2587: IF (l_debug = 1) THEN
2584: END IF;
2585:
2586: FOR dd_rec IN delivery_detail_cursor(p_lot_number) LOOP
2587: IF (l_debug = 1) THEN
2588: inv_log_util.TRACE('Got WDD: dd_id='||dd_rec.delivery_detail_id||' pckqty='||dd_rec.requested_quantity||' requom='||dd_rec.requested_quantity_uom||' sn='||dd_rec.serial_number||' trxtmpid='|| dd_rec.transaction_temp_id, l_api_name, 9);
2589: inv_log_util.TRACE('lpnddid='||dd_rec.lpn_detail_id||' pckqty2='||dd_rec.picked_quantity2||' requom2='||dd_rec.requested_quantity_uom2||' shdrid='||dd_rec.source_header_id||' slnid='||dd_rec.source_line_id, l_api_name, 9);
2590: inv_log_util.TRACE('remqty='||l_remaining_quantity||' remuom='||l_remaining_qty_uom, l_api_name, 9);
2591: END IF;
2592:
2585:
2586: FOR dd_rec IN delivery_detail_cursor(p_lot_number) LOOP
2587: IF (l_debug = 1) THEN
2588: inv_log_util.TRACE('Got WDD: dd_id='||dd_rec.delivery_detail_id||' pckqty='||dd_rec.requested_quantity||' requom='||dd_rec.requested_quantity_uom||' sn='||dd_rec.serial_number||' trxtmpid='|| dd_rec.transaction_temp_id, l_api_name, 9);
2589: inv_log_util.TRACE('lpnddid='||dd_rec.lpn_detail_id||' pckqty2='||dd_rec.picked_quantity2||' requom2='||dd_rec.requested_quantity_uom2||' shdrid='||dd_rec.source_header_id||' slnid='||dd_rec.source_line_id, l_api_name, 9);
2590: inv_log_util.TRACE('remqty='||l_remaining_quantity||' remuom='||l_remaining_qty_uom, l_api_name, 9);
2591: END IF;
2592:
2593: -- Check to see if there needs to be any serial handling
2586: FOR dd_rec IN delivery_detail_cursor(p_lot_number) LOOP
2587: IF (l_debug = 1) THEN
2588: inv_log_util.TRACE('Got WDD: dd_id='||dd_rec.delivery_detail_id||' pckqty='||dd_rec.requested_quantity||' requom='||dd_rec.requested_quantity_uom||' sn='||dd_rec.serial_number||' trxtmpid='|| dd_rec.transaction_temp_id, l_api_name, 9);
2589: inv_log_util.TRACE('lpnddid='||dd_rec.lpn_detail_id||' pckqty2='||dd_rec.picked_quantity2||' requom2='||dd_rec.requested_quantity_uom2||' shdrid='||dd_rec.source_header_id||' slnid='||dd_rec.source_line_id, l_api_name, 9);
2590: inv_log_util.TRACE('remqty='||l_remaining_quantity||' remuom='||l_remaining_qty_uom, l_api_name, 9);
2591: END IF;
2592:
2593: -- Check to see if there needs to be any serial handling
2594: IF (dd_rec.serial_number IS NOT NULL) THEN
2614:
2615: l_split_quantity := ser_tbl.COUNT;
2616:
2617: IF (l_debug = 1) THEN
2618: inv_log_util.TRACE('ser_tbl.COUNT=' || l_split_quantity, l_api_name, 9);
2619: END IF;
2620:
2621: /*
2622: -In case there exist only one MSNT for complete range of serials.we hav one latent issue.
2641: INTO l_invpcinrectype.transaction_temp_id
2642: FROM DUAL;
2643:
2644: IF (l_debug = 1) THEN
2645: inv_log_util.TRACE('Created new trxtmpid=' || l_invpcinrectype.transaction_temp_id || ' ser_tbl.count=' || l_split_quantity
2646: , l_api_name, 9);
2647: END IF;
2648:
2649: l_shipping_attr(1).serial_number := NULL;
2664: l_current_serial := ser_tbl(l_tbl_cnt);
2665: END IF;
2666:
2667: IF (l_debug = 1) THEN
2668: inv_log_util.TRACE('Got new sn='||l_current_serial||' nfmsn='||l_new_fm_serial||' ntosn='||l_new_to_serial||' wfmsn='||wdd_ser_rec.fm_serial_number||' wtosn='||wdd_ser_rec.to_serial_number, l_api_name, 9);
2669: END IF;
2670:
2671: -- If the the to and from serials consume the whole range from MSNT
2672: -- or the current serial is outside the range, We are done with the MSNT
2685: , l_to_serial_suffix, x_error_code);
2686:
2687: IF (x_error_code <> 0) THEN
2688: IF (l_debug = 1) THEN
2689: inv_log_util.TRACE('Failed MTL_SERIAL_CHECK.Inv_Serial_Info', l_api_name, 1);
2690: END IF;
2691:
2692: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
2693: fnd_msg_pub.ADD;
2700: /* 3406810 */
2701: l_to_serial_suffix := l_to_serial_suffix + 1;
2702:
2703: IF (l_debug = 1) THEN
2704: inv_log_util.TRACE('New prefix='||l_serial_prefix||' suffix='||l_fm_serial_suffix||' sfxlgth='||l_serial_suffix_length, l_api_name, 1);
2705: END IF;
2706: END IF;
2707:
2708: -- Check if Serial is contiguous. If so, make current serial the new to_serial
2786: END LOOP;
2787:
2788: --Call shipping api to set transaction_temp_id global variable
2789: IF (l_debug = 1) THEN
2790: inv_log_util.TRACE('Calling Set_Inv_PC_Attributes transaction_temp_id=' || l_invpcinrectype.transaction_temp_id, l_api_name);
2791: END IF;
2792:
2793: wsh_integration.set_inv_pc_attributes(p_in_attributes => l_invpcinrectype, x_return_status => ret_status
2794: , x_msg_count => ret_msgcnt, x_msg_data => ret_msgdata);
2794: , x_msg_count => ret_msgcnt, x_msg_data => ret_msgdata);
2795:
2796: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
2797: IF (l_debug = 1) THEN
2798: inv_log_util.TRACE('return error from Set_Inv_PC_Attributes', l_api_name);
2799: END IF;
2800:
2801: RAISE fnd_api.g_exc_error;
2802: END IF;
2849: END IF;
2850:
2851: --12432643
2852: IF (l_debug = 1) THEN
2853: inv_log_util.TRACE('l_split_quantity: '||l_split_quantity, l_api_name);
2854: inv_log_util.TRACE('l_remaining_quantity: '||l_remaining_quantity, l_api_name);
2855: END IF;
2856: --12432643
2857:
2850:
2851: --12432643
2852: IF (l_debug = 1) THEN
2853: inv_log_util.TRACE('l_split_quantity: '||l_split_quantity, l_api_name);
2854: inv_log_util.TRACE('l_remaining_quantity: '||l_remaining_quantity, l_api_name);
2855: END IF;
2856: --12432643
2857:
2858:
2862: l_split_quantity := ROUND(l_split_quantity, g_precision);
2863: END IF;
2864: --12432643
2865: IF (l_debug = 1) THEN
2866: inv_log_util.TRACE('l_split_quantity: '||l_split_quantity, l_api_name);
2867: END IF;
2868: --12432643
2869:
2870: IF (l_remaining_quantity2 > 0) THEN
2896: l_dd_ct := l_dd_ct + 1;
2897: END IF;
2898:
2899: IF (l_debug = 1) THEN
2900: inv_log_util.TRACE(
2901: 'new split_qty2=' || l_split_quantity2 || ' rem_qty2=' || l_remaining_quantity2 || ' splitfmqty=' || l_total_split_qty2
2902: , l_api_name
2903: , 9
2904: );
2916: l_action_prms.split_quantity2 := LEAST(dd_rec.picked_quantity2, l_split_quantity2);
2917:
2918: -- Call new Shipping API to split line
2919: IF (l_debug = 1) THEN
2920: inv_log_util.TRACE('Calling Delivery_Detail_Action ddid='||l_detail_id_tab(1)||' qty='||l_action_prms.split_quantity||' qty2='||l_action_prms.split_quantity2, l_api_name, 1);
2921: END IF;
2922:
2923: wsh_interface_ext_grp.delivery_detail_action(
2924: p_api_version_number => 1.0
2933: );
2934:
2935: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
2936: IF (l_debug = 1) THEN
2937: inv_log_util.TRACE('**Error Delivery_Detail_Action: ' || ret_msgdata, l_api_name, 1);
2938: END IF;
2939:
2940: fnd_message.set_name('INV', 'INV_SPLIT_LINE_FAILURE');
2941: fnd_msg_pub.ADD;
2944:
2945: l_shipping_attr(1).delivery_detail_id := l_action_out_rec.result_id_tab(1);
2946:
2947: IF (l_debug = 1) THEN
2948: inv_log_util.TRACE('Created new delivery line: dd_id=' || l_shipping_attr(1).delivery_detail_id, l_api_name, 9);
2949: END IF;
2950: ELSE -- Split qty is > dd_rec.delivery_detail_id logic error;
2951: IF (l_debug = 1) THEN
2952: inv_log_util.TRACE('Split qty ' || l_split_quantity || ' is greater than what is available on WDD '
2948: inv_log_util.TRACE('Created new delivery line: dd_id=' || l_shipping_attr(1).delivery_detail_id, l_api_name, 9);
2949: END IF;
2950: ELSE -- Split qty is > dd_rec.delivery_detail_id logic error;
2951: IF (l_debug = 1) THEN
2952: inv_log_util.TRACE('Split qty ' || l_split_quantity || ' is greater than what is available on WDD '
2953: || dd_rec.delivery_detail_id, l_api_name, 9);
2954: END IF;
2955:
2956: RAISE fnd_api.g_exc_unexpected_error;
2956: RAISE fnd_api.g_exc_unexpected_error;
2957: END IF;
2958:
2959: IF (l_debug = 1) THEN
2960: inv_log_util.TRACE('Call to WSH Delivery_Detail_Action unassign delivery from lpn', l_api_name, 4);
2961: END IF;
2962:
2963: l_wsh_action_prms.caller := 'WMS';
2964: l_wsh_action_prms.action_code := 'UNPACK';
2978: , x_action_out_rec => l_wsh_action_out_rec );
2979:
2980: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
2981: IF (l_debug = 1) THEN
2982: inv_log_util.TRACE('Error WSH_WMS_LPN_GRP.Delivery_Detail_Action' || ret_status, l_api_name, 1);
2983: END IF;
2984:
2985: fnd_message.set_name('INV', 'INV_UNASSIGN_DEL_FAILURE');
2986: fnd_msg_pub.ADD;
2985: fnd_message.set_name('INV', 'INV_UNASSIGN_DEL_FAILURE');
2986: fnd_msg_pub.ADD;
2987: RAISE fnd_api.g_exc_error;
2988: ELSIF (l_debug = 1) THEN
2989: inv_log_util.TRACE('Done with call to WSH Create_Update_Containers', l_api_name, 4);
2990: END IF;
2991:
2992: --Associate New Delivery Line with transfer LPN
2993: IF (p_xfr_subinventory IS NOT NULL) THEN
2991:
2992: --Associate New Delivery Line with transfer LPN
2993: IF (p_xfr_subinventory IS NOT NULL) THEN
2994: IF (l_debug = 1) THEN
2995: inv_log_util.TRACE('Replacing sub: ' || l_shipping_attr(1).subinventory || ' with xfr sub: ' || p_xfr_subinventory, l_api_name
2996: , 9);
2997: END IF;
2998:
2999: l_shipping_attr(1).subinventory := p_xfr_subinventory;
3000: END IF;
3001:
3002: IF (p_xfr_to_location <> 0) THEN
3003: IF (l_debug = 1) THEN
3004: inv_log_util.TRACE('Replacing loc: ' || l_shipping_attr(1).locator_id || ' with xfr loc: ' || p_xfr_to_location, l_api_name, 9);
3005: END IF;
3006:
3007: l_shipping_attr(1).locator_id := p_xfr_to_location;
3008: END IF;
3014: , x_return_status => ret_status);
3015:
3016: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
3017: IF (l_debug = 1) THEN
3018: inv_log_util.TRACE('***Error in update shipping attribures for split trx', l_api_name, 9);
3019: END IF;
3020:
3021: fnd_message.set_name('WMS', 'WMS_TD_UPD_SHP_ERROR');
3022: fnd_msg_pub.ADD;
3024: END IF;
3025:
3026: -- Need to also to transfer the item reservation
3027: IF (l_debug = 1) THEN
3028: inv_log_util.TRACE('Calling Upd_Reservation_PUP_New qty='||l_split_quantity||' uom='||dd_rec.requested_quantity_uom, l_api_name, 9);
3029: END IF;
3030: l_loop_counter := l_loop_counter + 1;
3031:
3032: --16197273
3030: l_loop_counter := l_loop_counter + 1;
3031:
3032: --16197273
3033: IF (l_debug = 1) THEN
3034: inv_log_util.TRACE('RTV ER Changes:Passing demand source name to fetch MR for Return order::'||dd_rec.source_header_id, l_api_name, 9);
3035: END IF;
3036:
3037: IF (dd_rec.source_code = 'RTV') THEN
3038:
3070: ,p_demand_source_name => l_demand_source_name);
3071:
3072: IF ( ret_status <> fnd_api.g_ret_sts_success ) THEN
3073: IF (l_debug = 1) THEN
3074: inv_log_util.TRACE('upd_reservation_pup failed '||ret_msgdata, l_api_name, 1);
3075: END IF;
3076: fnd_message.set_name('WMS', 'UPD_RESERVATION_PUP_FAIL');
3077: fnd_msg_pub.ADD;
3078: RAISE fnd_api.g_exc_error;
3082: -- Subtract the split quantity from the remaining quantity
3083: l_remaining_quantity := l_remaining_quantity - l_split_quantity;
3084:
3085: IF (l_debug = 1) THEN
3086: inv_log_util.TRACE(
3087: 'Assoc new line remqty=' || l_remaining_quantity || ' remqty2=' || l_remaining_quantity2 || ' tsplt2=' || l_total_split_qty2
3088: , l_api_name
3089: , 9
3090: );
3094: EXIT WHEN ROUND(l_remaining_quantity, g_precision) <= 0;
3095: END LOOP;
3096:
3097: IF (l_remaining_quantity > 0) THEN
3098: inv_log_util.TRACE('***Error while splittng delivery not enough quantity found in wdd', l_api_name, 1);
3099: fnd_message.set_name('WMS', 'INV_INSUFFICIENT_WDD_QTY');
3100: fnd_msg_pub.ADD;
3101: RAISE fnd_api.g_exc_error;
3102: END IF;
3106: -- That needs to be added back or removed from soruce LPN.
3107: qty2_remainder := p_secondary_trx_quantity - l_total_split_qty2;
3108:
3109: IF (l_debug = 1) THEN
3110: inv_log_util.TRACE('qty2_remainder=' || qty2_remainder, l_api_name, 9);
3111: END IF;
3112:
3113: IF (qty2_remainder <> 0) THEN
3114: OPEN delivery_detail_cursor(p_lot_number);
3119: IF (delivery_detail_cursor%FOUND
3120: AND l_dd_rec.picked_quantity2 IS NOT NULL) THEN
3121: WHILE(delivery_detail_cursor%FOUND) LOOP
3122: IF (l_debug = 1) THEN
3123: inv_log_util.TRACE(
3124: 'Got WDD: dd_id='
3125: || l_dd_rec.delivery_detail_id
3126: || ' pkqty='
3127: || l_dd_rec.requested_quantity
3133: || l_dd_rec.transaction_temp_id
3134: , l_api_name
3135: , 9
3136: );
3137: inv_log_util.TRACE(
3138: 'lpnddid='
3139: || l_dd_rec.lpn_detail_id
3140: || ' pckqty2='
3141: || l_dd_rec.picked_quantity2
3175: qty2_remainder := qty2_remainder - l_dd_rec.picked_quantity2;
3176: END IF;
3177:
3178: IF (l_debug = 1) THEN
3179: inv_log_util.TRACE('new qty2_remainder=' || qty2_remainder, l_api_name, 9);
3180: END IF;
3181:
3182: FETCH delivery_detail_cursor
3183: INTO l_dd_rec;
3183: INTO l_dd_rec;
3184: END LOOP;
3185:
3186: IF (qty2_remainder <> 0) THEN
3187: inv_log_util.TRACE('***Error while splittng delivery not enough quantity2 found in wdd', l_api_name, 9);
3188: fnd_message.set_name('WMS', 'INV_INSUFFICIENT_WDD_QTY');
3189: fnd_msg_pub.ADD;
3190: RAISE fnd_api.g_exc_error;
3191: END IF;
3189: fnd_msg_pub.ADD;
3190: RAISE fnd_api.g_exc_error;
3191: END IF;
3192: ELSIF(l_debug = 1) THEN
3193: inv_log_util.TRACE('no WDD rows left in source lpn...ok', l_api_name, 9);
3194: END IF;
3195:
3196: CLOSE delivery_detail_cursor;
3197: END IF;
3202: l_del_det_in_rec.caller := 'WMS';
3203: l_del_det_in_rec.action_code := 'UPDATE';
3204:
3205: IF (l_debug = 1) THEN
3206: inv_log_util.TRACE('Calling Create_Update_Delivery_Detail count=' || l_del_det_attr.COUNT, l_api_name, 9);
3207: END IF;
3208:
3209: wsh_interface_ext_grp.create_update_delivery_detail(
3210: p_api_version_number => 1.0
3226: ret_msgdata := ret_msgdata || l_msg_details;
3227: END IF;
3228:
3229: IF (l_debug = 1) THEN
3230: inv_log_util.TRACE('Error calling Create_Update_Delivery_Detail: ' || ret_msgdata, l_api_name, 1);
3231: END IF;
3232:
3233: fnd_message.set_name('WMS', 'WMS_UPD_DELIVERY_ERROR');
3234: fnd_message.set_token('MSG1', ret_msgdata);
3330: RAISE fnd_api.g_exc_unexpected_error;
3331: END IF;
3332:
3333: IF (l_debug = 1) THEN
3334: inv_log_util.TRACE('l_valid_sec_qty_split=' || l_valid_sec_qty_split, l_api_name, 9);
3335: END IF;
3336:
3337: IF (l_valid_sec_qty_split <> 1) THEN
3338: --Clear the secondary quantity fields for the from LPN
3354: );
3355:
3356: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
3357: IF (l_debug = 1) THEN
3358: inv_log_util.TRACE('Error calling Update_LPN_Secondary_Quantity: ' || ret_msgdata, l_api_name, 1);
3359: END IF;
3360:
3361: RAISE fnd_api.g_exc_unexpected_error;
3362: END IF;
3380: );
3381:
3382: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
3383: IF (l_debug = 1) THEN
3384: inv_log_util.TRACE('Error calling Update_LPN_Secondary_Quantity: ' || ret_msgdata, l_api_name, 1);
3385: END IF;
3386:
3387: RAISE fnd_api.g_exc_unexpected_error;
3388: END IF;
3448: RAISE fnd_api.g_exc_unexpected_error;
3449: END IF;
3450:
3451: IF (l_debug = 1) THEN
3452: inv_log_util.TRACE('l_valid_sec_qty_split=' || l_valid_sec_qty_split, l_api_name, 9);
3453: END IF;
3454:
3455: -- Secondary quantities are not allowed do not pass it to
3456: -- the Split_Delivery_Details API
3475: );
3476:
3477: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
3478: IF (l_debug = 1) THEN
3479: inv_log_util.TRACE('Error calling Update_LPN_Secondary_Quantity: ' || ret_msgdata, l_api_name, 1);
3480: END IF;
3481:
3482: RAISE fnd_api.g_exc_unexpected_error;
3483: END IF;
3500: );
3501:
3502: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
3503: IF (l_debug = 1) THEN
3504: inv_log_util.TRACE('Error calling Update_LPN_Secondary_Quantity: ' || ret_msgdata, l_api_name, 1);
3505: END IF;
3506:
3507: RAISE fnd_api.g_exc_unexpected_error;
3508: END IF;
3537: );
3538: END IF;
3539:
3540: IF (l_debug = 1) THEN
3541: inv_log_util.TRACE('** Split Delivery OK', l_api_name, 1);
3542: END IF;
3543: END split_delivery;
3544:
3545:
3766: --Bug14298387 end
3767:
3768: BEGIN
3769: IF (l_debug = 1) THEN
3770: inv_log_util.TRACE(
3771: 'Call to PROCESS_LPN_TRX trxhdr=' || p_trx_hdr_id || ',procmode=' || p_proc_mode || ',bflow=' || p_business_flow_code
3772: , 'INV_LPN_TRX_PUB'
3773: , 9
3774: );
3788: IF l_dcp_profile IS NULL THEN
3789: l_dcp_profile := inv_dcp_pvt.is_dcp_enabled;
3790: END IF;
3791: IF (l_debug = 1) THEN
3792: inv_log_util.TRACE('l_dcp_profile :'||l_dcp_profile,'INV_LPN_TRX_PUB',9);
3793: END IF;
3794: IF (l_dcp_profile =1) then
3795: INV_DCP_PVT.validate_data(
3796: p_dcp_event => 'Validate MMTT',
3800: p_raise_exception => 'N',
3801: x_return_status => l_dcp_return_status);
3802: END IF;
3803: IF (l_debug = 1) THEN
3804: inv_log_util.TRACE('After DCP Call -'||l_dcp_return_status,'INV_LPN_TRX_PUB',9);
3805: END IF;
3806: EXCEPTION
3807: WHEN OTHERS THEN
3808: IF (l_debug = 1) THEN
3805: END IF;
3806: EXCEPTION
3807: WHEN OTHERS THEN
3808: IF (l_debug = 1) THEN
3809: inv_log_util.TRACE('DCP Error :'||substr(sqlerrm,1,240),'INV_LPN_TRX_PUB',9);
3810: END IF;
3811: END; ---}
3812:
3813:
3814: -- For BUG 2919763, initializing the message stack only if the new parameter
3815: -- p_init_msg_list is true.
3816: IF (p_init_msg_list = TRUE) THEN
3817: IF (l_debug = 1) THEN
3818: inv_log_util.TRACE('Initializing the message list', 'INV_LPN_TRX_PUB', 9);
3819: END IF;
3820: fnd_msg_pub.initialize;
3821: END IF;
3822:
3830: IF (l_proc_mode IS NULL) THEN
3831: l_proc_mode := fnd_profile.VALUE('TRANSACTION_PROCESS_MODE');
3832:
3833: IF (l_debug = 1) THEN
3834: inv_log_util.TRACE('TRANSACTION_PROCESS_MODE for ProcMode= ' || l_proc_mode, 'INV_LPN_TRX_PUB', 9);
3835: END IF;
3836:
3837: -- if trx_process_mode is set for control at form level, then query
3838: -- form level profiles
3868: l_is_cartonization := 0;
3869: END;
3870:
3871: IF (l_debug = 1) THEN
3872: inv_log_util.TRACE('l_is_cartonization=' || l_is_cartonization, 'INV_LPN_TRX_PUB', 9);
3873: END IF;
3874:
3875: IF (l_is_cartonization = 1) THEN
3876: -- Cartonization request call cartonization process
3874:
3875: IF (l_is_cartonization = 1) THEN
3876: -- Cartonization request call cartonization process
3877: IF (l_debug = 1) THEN
3878: inv_log_util.TRACE('**** Cartonization transaction', 'INV_LPN_TRX_PUB', 9);
3879: END IF;
3880:
3881: -- Retrieve level and organization information for cartonization
3882: -- If there is a mix of contaner levels, take the maxium level. If
3893: GROUP BY organization_id;
3894: EXCEPTION
3895: WHEN NO_DATA_FOUND THEN
3896: IF (l_debug = 1) THEN
3897: inv_log_util.TRACE('no rows retrieve when finding org and level for Cartonization', 'INV_LPN_TRX_PUB', 1);
3898: END IF;
3899:
3900: RAISE fnd_api.g_exc_unexpected_error;
3901: WHEN OTHERS THEN
3899:
3900: RAISE fnd_api.g_exc_unexpected_error;
3901: WHEN OTHERS THEN
3902: IF (l_debug = 1) THEN
3903: inv_log_util.TRACE('Unexpected error when finding org and level for Cartonization', 'INV_LPN_TRX_PUB', 1);
3904: END IF;
3905:
3906: RAISE fnd_api.g_exc_unexpected_error;
3907: END;
3927: );
3928:
3929: IF (ret_status = fnd_api.g_ret_sts_error) THEN
3930: IF (l_debug = 1) THEN
3931: inv_log_util.TRACE('Error in calling Cartonization', 'INV_LPN_TRX_PUB', 1);
3932: END IF;
3933:
3934: RAISE fnd_api.g_exc_error;
3935: ELSIF(ret_status = fnd_api.g_ret_sts_unexp_error) THEN
3933:
3934: RAISE fnd_api.g_exc_error;
3935: ELSIF(ret_status = fnd_api.g_ret_sts_unexp_error) THEN
3936: IF (l_debug = 1) THEN
3937: inv_log_util.TRACE('Unexpectied error in calling Cartonization', 'INV_LPN_TRX_PUB', 1);
3938: END IF;
3939:
3940: RAISE fnd_api.g_exc_unexpected_error;
3941: ELSIF(ret_status <> fnd_api.g_ret_sts_success) THEN
3939:
3940: RAISE fnd_api.g_exc_unexpected_error;
3941: ELSIF(ret_status <> fnd_api.g_ret_sts_success) THEN
3942: IF (l_debug = 1) THEN
3943: inv_log_util.TRACE('Undefined error in calling Cartonization', 'INV_LPN_TRX_PUB', 1);
3944: END IF;
3945:
3946: RAISE fnd_api.g_exc_unexpected_error;
3947: END IF;
3946: RAISE fnd_api.g_exc_unexpected_error;
3947: END IF;
3948:
3949: IF (l_debug = 1) THEN
3950: inv_log_util.TRACE('Done with call to Cartonization', 'INV_LPN_TRX_PUB', 9);
3951: END IF;
3952:
3953: --Need to transfer cartonization_id to transfer_lpn_id to pack into
3954: --suggested LPN
3952:
3953: --Need to transfer cartonization_id to transfer_lpn_id to pack into
3954: --suggested LPN
3955: IF (l_debug = 1) THEN
3956: inv_log_util.TRACE('Transfering Cartonization suggestions', 'INV_LPN_TRX_PUB', 9);
3957: END IF;
3958:
3959: UPDATE mtl_material_transactions_temp
3960: SET transfer_lpn_id = cartonization_id
3960: SET transfer_lpn_id = cartonization_id
3961: WHERE transaction_header_id = p_trx_hdr_id;
3962:
3963: IF (l_debug = 1) THEN
3964: inv_log_util.TRACE('Done transfering Cartonization suggestions', 'INV_LPN_TRX_PUB', 9);
3965: END IF;
3966: END IF;
3967: END IF;
3968:
3977:
3978: --************* Open cursor into MMTT *************
3979: FOR v_mmtt IN c_mmtt LOOP
3980: IF (l_debug = 1) THEN
3981: inv_log_util.TRACE('trxtempid='||v_mmtt.transaction_temp_id||'srctypeid='||v_mmtt.transaction_source_type_id||'actid='||v_mmtt.transaction_action_id||',batchid='||v_mmtt.transaction_batch_id, 'INV_LPN_TRX_PUB', 9);
3982: inv_log_util.TRACE('seqid='||v_mmtt.transaction_sequence_id||',lpnid='||v_mmtt.lpn_id||',cntlpnid='||v_mmtt.content_lpn_id||'xfrlpnid='||v_mmtt.transfer_lpn_id, 'INV_LPN_TRX_PUB', 9);
3983: inv_log_util.TRACE('item_id='||v_mmtt.inventory_item_id||'qty='||v_mmtt.transaction_quantity||'uom='||v_mmtt.transaction_uom||'CG='||v_mmtt.cost_group_id||',XCG='||v_mmtt.transfer_cost_group_id, 'INV_LPN_TRX_PUB', 9);
3984: inv_log_util.TRACE('ccid='||v_mmtt.cycle_count_id, 'INV_LPN_TRX_PUB', 9);
3985: END IF;
3978: --************* Open cursor into MMTT *************
3979: FOR v_mmtt IN c_mmtt LOOP
3980: IF (l_debug = 1) THEN
3981: inv_log_util.TRACE('trxtempid='||v_mmtt.transaction_temp_id||'srctypeid='||v_mmtt.transaction_source_type_id||'actid='||v_mmtt.transaction_action_id||',batchid='||v_mmtt.transaction_batch_id, 'INV_LPN_TRX_PUB', 9);
3982: inv_log_util.TRACE('seqid='||v_mmtt.transaction_sequence_id||',lpnid='||v_mmtt.lpn_id||',cntlpnid='||v_mmtt.content_lpn_id||'xfrlpnid='||v_mmtt.transfer_lpn_id, 'INV_LPN_TRX_PUB', 9);
3983: inv_log_util.TRACE('item_id='||v_mmtt.inventory_item_id||'qty='||v_mmtt.transaction_quantity||'uom='||v_mmtt.transaction_uom||'CG='||v_mmtt.cost_group_id||',XCG='||v_mmtt.transfer_cost_group_id, 'INV_LPN_TRX_PUB', 9);
3984: inv_log_util.TRACE('ccid='||v_mmtt.cycle_count_id, 'INV_LPN_TRX_PUB', 9);
3985: END IF;
3986:
3979: FOR v_mmtt IN c_mmtt LOOP
3980: IF (l_debug = 1) THEN
3981: inv_log_util.TRACE('trxtempid='||v_mmtt.transaction_temp_id||'srctypeid='||v_mmtt.transaction_source_type_id||'actid='||v_mmtt.transaction_action_id||',batchid='||v_mmtt.transaction_batch_id, 'INV_LPN_TRX_PUB', 9);
3982: inv_log_util.TRACE('seqid='||v_mmtt.transaction_sequence_id||',lpnid='||v_mmtt.lpn_id||',cntlpnid='||v_mmtt.content_lpn_id||'xfrlpnid='||v_mmtt.transfer_lpn_id, 'INV_LPN_TRX_PUB', 9);
3983: inv_log_util.TRACE('item_id='||v_mmtt.inventory_item_id||'qty='||v_mmtt.transaction_quantity||'uom='||v_mmtt.transaction_uom||'CG='||v_mmtt.cost_group_id||',XCG='||v_mmtt.transfer_cost_group_id, 'INV_LPN_TRX_PUB', 9);
3984: inv_log_util.TRACE('ccid='||v_mmtt.cycle_count_id, 'INV_LPN_TRX_PUB', 9);
3985: END IF;
3986:
3987: BEGIN
3980: IF (l_debug = 1) THEN
3981: inv_log_util.TRACE('trxtempid='||v_mmtt.transaction_temp_id||'srctypeid='||v_mmtt.transaction_source_type_id||'actid='||v_mmtt.transaction_action_id||',batchid='||v_mmtt.transaction_batch_id, 'INV_LPN_TRX_PUB', 9);
3982: inv_log_util.TRACE('seqid='||v_mmtt.transaction_sequence_id||',lpnid='||v_mmtt.lpn_id||',cntlpnid='||v_mmtt.content_lpn_id||'xfrlpnid='||v_mmtt.transfer_lpn_id, 'INV_LPN_TRX_PUB', 9);
3983: inv_log_util.TRACE('item_id='||v_mmtt.inventory_item_id||'qty='||v_mmtt.transaction_quantity||'uom='||v_mmtt.transaction_uom||'CG='||v_mmtt.cost_group_id||',XCG='||v_mmtt.transfer_cost_group_id, 'INV_LPN_TRX_PUB', 9);
3984: inv_log_util.TRACE('ccid='||v_mmtt.cycle_count_id, 'INV_LPN_TRX_PUB', 9);
3985: END IF;
3986:
3987: BEGIN
3988: /* Jalaj Srivastava Bug 4634410
4019:
4020: IF (NOT l_lot_indiv_trx_valid) THEN
4021: -- the transaction is not valid regarding lot indivisible:
4022: IF (l_debug = 1) THEN
4023: inv_log_util.trace('in proc process_lpn_trx. lot indivisibility error', 'INV_LPN_TRX_PUB', 9);
4024: END IF;
4025: RAISE FND_API.G_EXC_ERROR;
4026: END IF;
4027: ELSE
4045:
4046: IF (NOT l_lot_indiv_trx_valid) THEN
4047: -- the transaction is not valid regarding lot indivisible:
4048: IF (l_debug = 1) THEN
4049: inv_log_util.trace('in proc process_lpn_trx. lot indivisibility error', 'INV_LPN_TRX_PUB', 9);
4050: END IF;
4051: RAISE FND_API.G_EXC_ERROR;
4052: END IF;
4053:
4062: l_eres_tbl(tbl_index).transaction_action_id := v_mmtt.transaction_action_id;
4063: l_eres_tbl(tbl_index).transaction_source_type_id := v_mmtt.transaction_source_type_id;
4064:
4065: IF (l_debug = 1) THEN
4066: inv_log_util.TRACE('ERES event id => ' || l_eres_tbl(tbl_index).event_id, 'INV_LPN_TRX_PUB', 9);
4067: inv_log_util.TRACE('Transaction Action Id => ' || l_eres_tbl(tbl_index).transaction_action_id, 'INV_LPN_TRX_PUB', 9);
4068: inv_log_util.TRACE('Transaction Source Type Id => ' || l_eres_tbl(tbl_index).transaction_source_type_id, 'INV_LPN_TRX_PUB', 9);
4069: END IF;
4070: END IF;
4063: l_eres_tbl(tbl_index).transaction_source_type_id := v_mmtt.transaction_source_type_id;
4064:
4065: IF (l_debug = 1) THEN
4066: inv_log_util.TRACE('ERES event id => ' || l_eres_tbl(tbl_index).event_id, 'INV_LPN_TRX_PUB', 9);
4067: inv_log_util.TRACE('Transaction Action Id => ' || l_eres_tbl(tbl_index).transaction_action_id, 'INV_LPN_TRX_PUB', 9);
4068: inv_log_util.TRACE('Transaction Source Type Id => ' || l_eres_tbl(tbl_index).transaction_source_type_id, 'INV_LPN_TRX_PUB', 9);
4069: END IF;
4070: END IF;
4071:
4064:
4065: IF (l_debug = 1) THEN
4066: inv_log_util.TRACE('ERES event id => ' || l_eres_tbl(tbl_index).event_id, 'INV_LPN_TRX_PUB', 9);
4067: inv_log_util.TRACE('Transaction Action Id => ' || l_eres_tbl(tbl_index).transaction_action_id, 'INV_LPN_TRX_PUB', 9);
4068: inv_log_util.TRACE('Transaction Source Type Id => ' || l_eres_tbl(tbl_index).transaction_source_type_id, 'INV_LPN_TRX_PUB', 9);
4069: END IF;
4070: END IF;
4071:
4072: /*------------------------------------------------------+
4127: l_prev_trx_batch_id := v_mmtt.transaction_batch_id;
4128: l_current_group_status := fnd_api.g_ret_sts_success;
4129:
4130: IF (l_debug = 1) THEN
4131: inv_log_util.TRACE('new group savepoint prevbatchid=' || l_prev_trx_batch_id, 'INV_LPN_TRX_PUB', 9);
4132: END IF;
4133: END IF;
4134:
4135: -- Skip records that are of the same trx group where a record has failed
4164: ) THEN
4165: l_proc_mode := fnd_profile.VALUE('SUBINV_TRANS_TXN');
4166:
4167: IF (l_debug = 1) THEN
4168: inv_log_util.TRACE('Using SUBINV_TRANS_TXN to set process_mode. ProcMode=' || l_proc_mode, 'INV_LPN_TRX_PUB', 9);
4169: END IF;
4170: ELSIF(
4171: (
4172: (v_mmtt.transaction_source_type_id = inv_globals.g_sourcetype_inventory)
4179: ) THEN
4180: l_proc_mode := fnd_profile.VALUE('ACCOUNT_ISSUE_TXN');
4181:
4182: IF (l_debug = 1) THEN
4183: inv_log_util.TRACE('Using ACCOUNT_ISSUE_TXN to set process_mode. ProcMode = ' || l_proc_mode, 'INV_LPN_TRX_PUB', 9);
4184: END IF;
4185: ELSIF(
4186: (v_mmtt.transaction_source_type_id = inv_globals.g_sourcetype_moveorder)
4187: AND(
4191: ) THEN
4192: l_proc_mode := fnd_profile.VALUE('TRANSFER_ORDER_TXN');
4193:
4194: IF (l_debug = 1) THEN
4195: inv_log_util.TRACE('Using TRANSFER_ORDER_TXN to set process_mode. ProcMode = ' || l_proc_mode, 'INV_LPN_TRX_PUB', 9);
4196: END IF;
4197: ELSIF(
4198: (v_mmtt.transaction_source_type_id = inv_globals.g_sourcetype_inventory)
4199: AND(
4203: ) THEN
4204: l_proc_mode := fnd_profile.VALUE('INTER_ORG_SHIP_TXN');
4205:
4206: IF (l_debug = 1) THEN
4207: inv_log_util.TRACE('Using INTER_ORG_SHIP_TXN to set process_mode. ProcMode = ' || l_proc_mode, 'INV_LPN_TRX_PUB', 9);
4208: END IF;
4209: END IF;
4210: END IF;
4211:
4212: -- Sanity check. If the transaction-process mode is still Not set, then
4213: -- perform an online transaction
4214: IF (l_proc_mode IS NULL) THEN
4215: IF (l_debug = 1) THEN
4216: inv_log_util.TRACE('Warning: TrxProcess profile not set ', 'INV_LPN_TRX_PUB', 2);
4217: END IF;
4218:
4219: l_proc_mode := 1;
4220: END IF;
4244: , x_msg_count => l_fob_msg_count);
4245:
4246: IF (l_fob_ret_sts <> fnd_api.g_ret_sts_success) THEN
4247: IF (l_debug = 1) THEN
4248: inv_log_util.TRACE(' Error from update_fob_point:' || l_fob_ret_msg, 'INV_LPN_TRX_PUB', 1);
4249: END IF;
4250:
4251: fnd_message.set_name('INV', 'INV_FOB_NOT_DEFINED');
4252: fnd_message.set_token('ENTITY1', v_mmtt.organization_id);
4263: --installed.
4264: IF (v_mmtt.transaction_source_type_id = 5
4265: AND wip_constants.dmf_patchset_level >= wip_constants.dmf_patchset_j_value) THEN
4266: IF (wip_mtltempproc_grp.istxnidrequired(v_mmtt.transaction_temp_id)) THEN
4267: inv_log_util.TRACE('Going to update mmtt with material_allocation_temp_id', 'INV_LPN_TRX_PUB', 1);
4268:
4269: UPDATE mtl_material_transactions_temp
4270: SET material_allocation_temp_id = mtl_material_transactions_s.NEXTVAL
4271: WHERE transaction_temp_id = v_mmtt.transaction_temp_id;
4289: IF (inv_cache.set_org_rec(v_mmtt.organization_id)) THEN
4290: l_wms_enabled_org := inv_cache.org_rec.WMS_ENABLED_FLAG;
4291: END IF;
4292:
4293: inv_log_util.TRACE('Wms_enabled_flag: '||l_wms_enabled_org, 'INV_LPN_TRX_PUB', 1);
4294: IF NOT(
4295: (v_mmtt.content_lpn_id IS NOT NULL)
4296: AND
4297: v_mmtt.transaction_source_type_id <> inv_globals.g_sourcetype_intorder
4314: );
4315:
4316: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
4317: IF (l_debug = 1) THEN
4318: inv_log_util.TRACE(' Error from CostGrpAPI:' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
4319: END IF;
4320: --Bug 3804314: The message from the cost group API is
4321: --overwritten by INV_COST_GROUP_FAILURE. Commenting the message.
4322: --fnd_message.set_name('INV', 'INV_COST_GROUP_FAILURE');
4349: fnd_msg_pub.ADD;
4350: x_proc_msg := fnd_msg_pub.get(fnd_msg_pub.g_last, 'F');
4351:
4352: IF (l_debug = 1) THEN
4353: inv_log_util.TRACE('Concurrent Req. submitted: ' || l_req_id, 'INV_LPN_TRX_PUB', 9);
4354: END IF;
4355:
4356: RETURN 0;
4357: END IF;
4356: RETURN 0;
4357: END IF;
4358: ELSIF l_proc_mode = 3 THEN -- Background mode
4359: IF (l_debug = 1) THEN
4360: inv_log_util.TRACE('** Background request submitted **', 'INV_LPN_TRX_PUB', 9);
4361: END IF;
4362:
4363: -- In this case, the background transaction manager would pick
4364: -- up this row from MMTT. Update transaction_mode and return to caller
4393: AND(v_mmtt.primary_quantity > 0)
4394: ) THEN
4395:
4396: IF (l_debug = 1) THEN
4397: inv_log_util.trace('sign of quantity is not -ve for temp_id '||v_mmtt.transaction_temp_id, 'INV_LPN_TRX_PUB',9);
4398: END IF;
4399:
4400: v_mmtt.primary_quantity := -1 * v_mmtt.primary_quantity;
4401: v_mmtt.transaction_quantity := -1 * ABS(v_mmtt.transaction_quantity);
4415: WHERE TRANSACTION_TEMP_ID = v_mmtt.transaction_temp_id
4416: AND PRIMARY_QUANTITY > 0;
4417:
4418: IF (l_debug = 1) THEN
4419: inv_log_util.trace('Made the sign -ve for temp_id '||v_mmtt.transaction_temp_id, 'INV_LPN_TRX_PUB',9);
4420: END IF;
4421:
4422: END IF;
4423:
4432: AND v_mmtt.transaction_source_type_id IN(4, 5)
4433: AND mtrh.move_order_type = 6
4434: AND ROWNUM < 2;
4435:
4436: inv_log_util.TRACE(' Patchset J code. Do not explode LPN for Putaway ', 'INV_LPN_TRX_PUB', 1);
4437: EXCEPTION
4438: WHEN OTHERS THEN
4439: inv_log_util.TRACE(' Exception while exploding ', 'INV_LPN_TRX_PUB', 1);
4440: l_putway_explode_req := 'N';
4435:
4436: inv_log_util.TRACE(' Patchset J code. Do not explode LPN for Putaway ', 'INV_LPN_TRX_PUB', 1);
4437: EXCEPTION
4438: WHEN OTHERS THEN
4439: inv_log_util.TRACE(' Exception while exploding ', 'INV_LPN_TRX_PUB', 1);
4440: l_putway_explode_req := 'N';
4441: END;
4442: END IF;
4443:
4446: -- Note: For SO and IO transactions, there is no need
4447: -- to explode the LPN as there will be a seperate MMTT line for each
4448: -- item inside the LPN
4449:
4450: inv_log_util.TRACE('Wms_enabled_flag: '||l_wms_enabled_org, 'INV_LPN_TRX_PUB', 1);
4451: IF (v_mmtt.content_lpn_id IS NOT NULL) THEN
4452: IF ( v_mmtt.transaction_action_id <> inv_globals.g_action_containerpack AND
4453: v_mmtt.transaction_action_id <> inv_globals.g_action_containerunpack AND
4454: v_mmtt.transaction_action_id <> inv_globals.g_action_containersplit AND
4479: expldrowcnt := explode_and_insert(v_mmtt.content_lpn_id, p_trx_hdr_id, v_mmtt);
4480:
4481: IF (expldrowcnt = -1) THEN
4482: IF (l_debug = 1) THEN
4483: inv_log_util.TRACE(' Failed in EXPLODE_AND_INSERT!!', 'INV_LPN_TRX_PUB', 1);
4484: END IF;
4485:
4486: fnd_message.set_name('INV', 'INV_FAILED');
4487: fnd_msg_pub.ADD;
4491:
4492: insrowcnt := insrowcnt + expldrowcnt;
4493:
4494: IF (l_debug = 1) THEN
4495: inv_log_util.TRACE('Done exploding new lpn expldrowcnt=' || expldrowcnt || ' insrowcnt=' || insrowcnt, 'INV_LPN_TRX_PUB', 9);
4496: END IF;
4497: ELSIF ( l_putway_explode_req = 'Y' AND v_mmtt.cost_group_id IS NULL ) THEN
4498: -- bug4475607 For WIP putaway transactions contents are not exploded, but the
4499: -- cost group id may not exist on the record. Call cost group api
4510: , x_transfer_cost_group_id => l_xfr_cst_grp_id );
4511:
4512: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
4513: IF (l_debug = 1) THEN
4514: inv_log_util.TRACE(' Error from CostGrpAPI:' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
4515: END IF;
4516: RAISE fnd_api.g_exc_error;
4517: END IF;
4518:
4537:
4538: EXCEPTION
4539: WHEN OTHERS THEN
4540: IF (l_debug = 1) THEN
4541: inv_log_util.TRACE(
4542: '***Error g_exec in c_mmtt loop trxtmpid=' || v_mmtt.transaction_temp_id || ',Sqlerrm:' || SUBSTR(SQLERRM, 1, 100)
4543: , 'INV_LPN_TRX_PUB'
4544: , 1
4545: );
4550: x_proc_msg := fnd_msg_pub.get(fnd_msg_pub.g_previous, 'F');
4551: failedrowcnt := failedrowcnt + 1;
4552:
4553: IF (l_debug = 1) THEN
4554: inv_log_util.TRACE('failedrowcnt=' || failedrowcnt || ' msg=' || x_proc_msg, 'INV_LPN_TRX_PUB', 1);
4555: END IF;
4556:
4557: ROLLBACK TO group_savepoint;
4558:
4569: WHERE transaction_header_id = p_trx_hdr_id;
4570: EXCEPTION
4571: WHEN OTHERS THEN
4572: IF (l_debug = 1) THEN
4573: inv_log_util.TRACE('Error in updating MMTT for trxhdrid=' || p_trx_hdr_id, 1);
4574: END IF;
4575: END;
4576:
4577: -- Batch Failed exit from loop
4592:
4593: l_num_ret_rows := SQL%ROWCOUNT;
4594:
4595: IF (l_debug = 1) THEN
4596: inv_log_util.TRACE('Updated error msg for ' || l_num_ret_rows || ' rows form MTI with txnbatchid='
4597: || v_mmtt.transaction_batch_id, 1);
4598: END IF;
4599:
4600: -- Remove from MSNT rows with same MMTT transaction_temp_id
4638:
4639: l_num_ret_rows := SQL%ROWCOUNT;
4640:
4641: IF (l_debug = 1) THEN
4642: inv_log_util.TRACE('Updated error msg for ' || l_num_ret_rows || ' rows form MTI with txntempid='
4643: || v_mmtt.transaction_temp_id, 1);
4644: END IF;
4645:
4646: -- Remove from MSNT rows with same MMTT transaction_temp_id
4663: END IF;
4664: EXCEPTION
4665: WHEN OTHERS THEN
4666: IF (l_debug = 1) THEN
4667: inv_log_util.TRACE('Error in updating MTI or deleting MMTT for trxbatchid=' || v_mmtt.transaction_batch_id, 1);
4668: END IF;
4669: END;
4670: ELSE -- record originated in MMTT
4671: IF (v_mmtt.transaction_batch_id IS NOT NULL) THEN
4724: END IF; -- Bug 9569657
4725:
4726: IF (v_mmtt.move_order_line_id IS NOT null ) THEN --Bug15837987 begin for those allocation type mmtt records.
4727: IF (l_debug = 1) THEN
4728: inv_log_util.TRACE('Update WHO Columns for allocation type.','INV_LPN_TRX_PUB', 1);
4729: END IF;
4730: update mtl_material_transactions_temp
4731: set last_update_date = SYSDATE,
4732: last_updated_by = FND_PROFILE.VALUE('USER_ID'),
4735: where transaction_temp_id = v_mmtt.transaction_temp_id;
4736: END IF; --Bug15837987 End
4737:
4738: IF (l_debug = 1) THEN
4739: inv_log_util.trace('before calling java TM transaction quantity='||v_mmtt.transaction_quantity, 'INV_LPN_TRX_PUB',9);
4740: inv_log_util.trace('before calling java TM secondary transaction quantity='||l_secondary_txn_quantity, 'INV_LPN_TRX_PUB',9);
4741: inv_log_util.trace('before calling java TM primary quantity='||v_mmtt.primary_quantity, 'INV_LPN_TRX_PUB',9);
4742: END IF;
4743: /*Bug14298387,added the validation on logic locator to call pjm api GET_PHYSICAL_LOCATION*/
4736: END IF; --Bug15837987 End
4737:
4738: IF (l_debug = 1) THEN
4739: inv_log_util.trace('before calling java TM transaction quantity='||v_mmtt.transaction_quantity, 'INV_LPN_TRX_PUB',9);
4740: inv_log_util.trace('before calling java TM secondary transaction quantity='||l_secondary_txn_quantity, 'INV_LPN_TRX_PUB',9);
4741: inv_log_util.trace('before calling java TM primary quantity='||v_mmtt.primary_quantity, 'INV_LPN_TRX_PUB',9);
4742: END IF;
4743: /*Bug14298387,added the validation on logic locator to call pjm api GET_PHYSICAL_LOCATION*/
4744: BEGIN
4737:
4738: IF (l_debug = 1) THEN
4739: inv_log_util.trace('before calling java TM transaction quantity='||v_mmtt.transaction_quantity, 'INV_LPN_TRX_PUB',9);
4740: inv_log_util.trace('before calling java TM secondary transaction quantity='||l_secondary_txn_quantity, 'INV_LPN_TRX_PUB',9);
4741: inv_log_util.trace('before calling java TM primary quantity='||v_mmtt.primary_quantity, 'INV_LPN_TRX_PUB',9);
4742: END IF;
4743: /*Bug14298387,added the validation on logic locator to call pjm api GET_PHYSICAL_LOCATION*/
4744: BEGIN
4745: SELECT DECODE(NVL(PROJECT_REFERENCE_ENABLED, 2),1,1,0)
4756: , P_LOCATOR_ID => v_mmtt.locator_id
4757: );
4758: IF (l_phy_result = FALSE) THEN
4759: IF (l_debug = 1) THEN
4760: inv_log_util.TRACE('Calling inv_projectlocator_pub.GET_PHYSICAL_LOCATION returned with error for locator_id'||v_mmtt.locator_id, 'INV_LPN_TRX_PUB', 9);
4761: END IF;
4762: fnd_message.set_name('INV', 'INV_INT_LOCEXP');
4763: fnd_msg_pub.ADD;
4764: RAISE fnd_api.g_exc_error;
4772: , P_LOCATOR_ID => v_mmtt.transfer_to_location
4773: );
4774: IF (l_phy_result = FALSE) THEN
4775: IF (l_debug = 1) THEN
4776: inv_log_util.TRACE('Calling inv_projectlocator_pub.GET_PHYSICAL_LOCATION returned with error for transfer_to_location'||v_mmtt.transfer_to_location, 'INV_LPN_TRX_PUB', 9);
4777: END IF;
4778: fnd_message.set_name('INV', 'INV_INT_LOCEXP');
4779: fnd_msg_pub.ADD;
4780: RAISE fnd_api.g_exc_error;
4787: , P_LOCATOR_ID => v_mmtt.transfer_to_location
4788: );
4789: IF (l_phy_result = FALSE) THEN
4790: IF (l_debug = 1) THEN
4791: inv_log_util.TRACE('Calling inv_projectlocator_pub.GET_PHYSICAL_LOCATION returned with error for transfer_to_location'||v_mmtt.transfer_to_location, 'INV_LPN_TRX_PUB', 9);
4792: END IF;
4793: fnd_message.set_name('INV', 'INV_INT_LOCEXP');
4794: fnd_msg_pub.ADD;
4795: RAISE fnd_api.g_exc_error;
4811: , P_LOCATOR_ID => v_mmtt.transfer_to_location
4812: );
4813: IF (l_phy_result = FALSE) THEN
4814: IF (l_debug = 1) THEN
4815: inv_log_util.TRACE('Calling inv_projectlocator_pub.GET_PHYSICAL_LOCATION returned with error for transfer_to_location'||v_mmtt.transfer_to_location, 'INV_LPN_TRX_PUB', 9);
4816: END IF;
4817: fnd_message.set_name('INV', 'INV_INT_LOCEXP');
4818: fnd_msg_pub.ADD;
4819: RAISE fnd_api.g_exc_error;
4824: END LOOP;
4825:
4826: --************* Close cursor loop into MMTT *************
4827: IF (l_debug = 1) THEN
4828: inv_log_util.TRACE('Done with MMTT cursor insrowcnt=' || insrowcnt || ' failedrowcnt=' || failedrowcnt, 'INV_LPN_TRX_PUB', 9);
4829: END IF;
4830:
4831: -- Bug 3618385
4832: -- For a transaction_header_id, when there's only one batch and a record is failed in the batch
4843: WHERE transaction_header_id = p_trx_hdr_id
4844: AND process_flag = 'Y'
4845: AND ROWNUM < 2;
4846: IF (l_debug = 1) THEN
4847: inv_log_util.TRACE('l_process: ' || l_process, 'INV_LPN_TRX_PUB', 9);
4848: END IF;
4849: EXCEPTION
4850: WHEN NO_DATA_FOUND THEN
4851: IF (l_debug = 1) THEN
4848: END IF;
4849: EXCEPTION
4850: WHEN NO_DATA_FOUND THEN
4851: IF (l_debug = 1) THEN
4852: inv_log_util.TRACE('No records in MMTT for trx_header_id: ' || p_trx_hdr_id || ' ,will not call JAVATM', 'INV_LPN_TRX_PUB', 9);
4853: END IF;
4854: l_process := 0;
4855: END;
4856:
4865: l_atomic := 1;
4866: END IF;
4867:
4868: IF (l_debug = 1) THEN
4869: inv_log_util.TRACE('***Calling TM **', 'INV_LPN_TRX_PUB', 9);
4870: END IF;
4871:
4872: retval := inv_trx_mgr.process_trx_batch(p_trx_hdr_id, l_commit, l_atomic, NVL(p_business_flow_code, 0), ret_msgdata);
4873:
4871:
4872: retval := inv_trx_mgr.process_trx_batch(p_trx_hdr_id, l_commit, l_atomic, NVL(p_business_flow_code, 0), ret_msgdata);
4873:
4874: IF (l_debug = 1) THEN
4875: inv_log_util.TRACE('retval=' || retval || ', regmsg=' || ret_msgdata, 'INV_LPN_TRX_PUB', 9);
4876: END IF;
4877: --------------------
4878: -- Bug no 3540288
4879: -- Adding call to clear picked quantity.
4878: -- Bug no 3540288
4879: -- Adding call to clear picked quantity.
4880: --------------------
4881: IF (l_debug = 1) THEN
4882: inv_log_util.trace('calling API to clear the picked quantity', 'INV_LPN_TRX_PUB',9);
4883: END IF;
4884: BEGIN
4885: inv_transfer_order_pvt.clear_picked_quantity;
4886: END;
4884: BEGIN
4885: inv_transfer_order_pvt.clear_picked_quantity;
4886: END;
4887: IF (l_debug = 1) THEN
4888: inv_log_util.trace('API call to clear picked quantity successful', 'INV_LPN_TRX_PUB',9);
4889: END IF;
4890: END IF;
4891:
4892: IF (retval <> 0) THEN
4914: );
4915:
4916: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
4917: IF (l_debug = 1) THEN
4918: inv_log_util.TRACE('**Error Label Printing :' || ret_status, 'INV_LPN_TRX_PUB', 1);
4919: END IF;
4920: END IF;
4921: END IF;
4922:
4936: IF l_eres_enabled <> 'N' THEN
4937: -- ERES is Enabled, Verify if Transaction type is supported
4938: IF l_eres_tbl.COUNT > 0 THEN
4939: IF (l_debug = 1) THEN
4940: inv_log_util.TRACE('TBL COUNT =' || l_eres_tbl.COUNT, 'INV_LPN_TRX_PUB', 9);
4941: END IF;
4942:
4943: FOR tbl_index IN 1 .. l_eres_tbl.COUNT LOOP
4944: IF (l_debug = 1) THEN
4941: END IF;
4942:
4943: FOR tbl_index IN 1 .. l_eres_tbl.COUNT LOOP
4944: IF (l_debug = 1) THEN
4945: inv_log_util.TRACE('counter =' || tbl_index, 'INV_LPN_TRX_PUB', 9);
4946: END IF;
4947:
4948: IF (
4949: trans_eres_enabled(
4951: , p_trans_source_type_id => l_eres_tbl(tbl_index).transaction_source_type_id
4952: )
4953: ) THEN
4954: IF (l_debug = 1) THEN
4955: inv_log_util.TRACE('This is an ERES enabled Event', 'INV_LPN_TRX_PUB', 1);
4956: inv_log_util.TRACE(' EVENT_NAME => ' || g_eres_event_name, 'INV_LPN_TRX_PUB', 1);
4957: inv_log_util.TRACE(' EVENT_ID => ' || l_eres_tbl(tbl_index).event_id, 'INV_LPN_TRX_PUB', 1);
4958: END IF;
4959:
4952: )
4953: ) THEN
4954: IF (l_debug = 1) THEN
4955: inv_log_util.TRACE('This is an ERES enabled Event', 'INV_LPN_TRX_PUB', 1);
4956: inv_log_util.TRACE(' EVENT_NAME => ' || g_eres_event_name, 'INV_LPN_TRX_PUB', 1);
4957: inv_log_util.TRACE(' EVENT_ID => ' || l_eres_tbl(tbl_index).event_id, 'INV_LPN_TRX_PUB', 1);
4958: END IF;
4959:
4960: -- Get Erecord Id
4953: ) THEN
4954: IF (l_debug = 1) THEN
4955: inv_log_util.TRACE('This is an ERES enabled Event', 'INV_LPN_TRX_PUB', 1);
4956: inv_log_util.TRACE(' EVENT_NAME => ' || g_eres_event_name, 'INV_LPN_TRX_PUB', 1);
4957: inv_log_util.TRACE(' EVENT_ID => ' || l_eres_tbl(tbl_index).event_id, 'INV_LPN_TRX_PUB', 1);
4958: END IF;
4959:
4960: -- Get Erecord Id
4961: qa_edr_standard.get_erecord_id(
4969: , x_erecord_id => l_erecord_id
4970: );
4971:
4972: IF (l_debug = 1) THEN
4973: inv_log_util.TRACE('Status of Get_Erecord_Id => ' || ret_status, 'INV_LPN_TRX_PUB', 1);
4974: inv_log_util.TRACE(' Return Message => ' || ret_status, 'INV_LPN_TRX_PUB', 1);
4975: inv_log_util.TRACE('ERECORD => ' || ret_status, 'INV_LPN_TRX_PUB', 1);
4976: END IF;
4977:
4970: );
4971:
4972: IF (l_debug = 1) THEN
4973: inv_log_util.TRACE('Status of Get_Erecord_Id => ' || ret_status, 'INV_LPN_TRX_PUB', 1);
4974: inv_log_util.TRACE(' Return Message => ' || ret_status, 'INV_LPN_TRX_PUB', 1);
4975: inv_log_util.TRACE('ERECORD => ' || ret_status, 'INV_LPN_TRX_PUB', 1);
4976: END IF;
4977:
4978: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
4971:
4972: IF (l_debug = 1) THEN
4973: inv_log_util.TRACE('Status of Get_Erecord_Id => ' || ret_status, 'INV_LPN_TRX_PUB', 1);
4974: inv_log_util.TRACE(' Return Message => ' || ret_status, 'INV_LPN_TRX_PUB', 1);
4975: inv_log_util.TRACE('ERECORD => ' || ret_status, 'INV_LPN_TRX_PUB', 1);
4976: END IF;
4977:
4978: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
4979: IF (l_debug = 1) THEN
4976: END IF;
4977:
4978: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
4979: IF (l_debug = 1) THEN
4980: inv_log_util.TRACE(' ERROR generated from getErecordIdAPI:' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
4981: END IF;
4982:
4983: fnd_message.set_name('INV', 'INV_ERECORD_INVALID');
4984: fnd_msg_pub.ADD;
5004: );
5005:
5006: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
5007: IF (l_debug = 1) THEN
5008: inv_log_util.TRACE(' Error from Send ERES ACKNOWLEDGE API:' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
5009: END IF;
5010:
5011: fnd_message.set_name('INV', 'INV_ERECORD_INVALID');
5012: fnd_msg_pub.ADD;
5047: /* Jalaj Srivastava
5048:
5049: Raise workflow event for OPM-QM */
5050:
5051: inv_log_util.TRACE(' OPM part ', 'INV_LPN_TRX_PUB', 1);
5052: FOR c1_rec IN cur_get_txn_for_opm_qm
5053: LOOP
5054:
5055: inv_log_util.TRACE('in cur_get_txn_for_opm_qm - c1_rec.transaction_id = ' || c1_rec.transaction_id, 'INV_LPN_TRX_PUB', 1);
5051: inv_log_util.TRACE(' OPM part ', 'INV_LPN_TRX_PUB', 1);
5052: FOR c1_rec IN cur_get_txn_for_opm_qm
5053: LOOP
5054:
5055: inv_log_util.TRACE('in cur_get_txn_for_opm_qm - c1_rec.transaction_id = ' || c1_rec.transaction_id, 'INV_LPN_TRX_PUB', 1);
5056: inv_log_util.TRACE('in cur_get_txn_for_opm_qm - c1_rec.transaction_source_type_id = ' || c1_rec.transaction_source_type_id, 'INV_LPN_TRX_PUB', 1);
5057: IF c1_rec.transaction_source_type_id <> inv_globals.G_SOURCETYPE_WIP then -- -- 9756188
5058: inv_log_util.TRACE('about to raise event oracle.apps.gmi.inventory.created for NON G_SOURCETYPE_WIP for c1_rec.transaction_id = ' || c1_rec.transaction_id, 'INV_LPN_TRX_PUB', 1);
5059: inv_log_util.TRACE(' gen_object_id = ' || l_gen_object_id, 'INV_LPN_TRX_PUB', 1);
5052: FOR c1_rec IN cur_get_txn_for_opm_qm
5053: LOOP
5054:
5055: inv_log_util.TRACE('in cur_get_txn_for_opm_qm - c1_rec.transaction_id = ' || c1_rec.transaction_id, 'INV_LPN_TRX_PUB', 1);
5056: inv_log_util.TRACE('in cur_get_txn_for_opm_qm - c1_rec.transaction_source_type_id = ' || c1_rec.transaction_source_type_id, 'INV_LPN_TRX_PUB', 1);
5057: IF c1_rec.transaction_source_type_id <> inv_globals.G_SOURCETYPE_WIP then -- -- 9756188
5058: inv_log_util.TRACE('about to raise event oracle.apps.gmi.inventory.created for NON G_SOURCETYPE_WIP for c1_rec.transaction_id = ' || c1_rec.transaction_id, 'INV_LPN_TRX_PUB', 1);
5059: inv_log_util.TRACE(' gen_object_id = ' || l_gen_object_id, 'INV_LPN_TRX_PUB', 1);
5060: wf_event.raise2( p_event_name => 'oracle.apps.gmi.inventory.created'
5054:
5055: inv_log_util.TRACE('in cur_get_txn_for_opm_qm - c1_rec.transaction_id = ' || c1_rec.transaction_id, 'INV_LPN_TRX_PUB', 1);
5056: inv_log_util.TRACE('in cur_get_txn_for_opm_qm - c1_rec.transaction_source_type_id = ' || c1_rec.transaction_source_type_id, 'INV_LPN_TRX_PUB', 1);
5057: IF c1_rec.transaction_source_type_id <> inv_globals.G_SOURCETYPE_WIP then -- -- 9756188
5058: inv_log_util.TRACE('about to raise event oracle.apps.gmi.inventory.created for NON G_SOURCETYPE_WIP for c1_rec.transaction_id = ' || c1_rec.transaction_id, 'INV_LPN_TRX_PUB', 1);
5059: inv_log_util.TRACE(' gen_object_id = ' || l_gen_object_id, 'INV_LPN_TRX_PUB', 1);
5060: wf_event.raise2( p_event_name => 'oracle.apps.gmi.inventory.created'
5061: --,p_event_key => c1_rec.transaction_id);
5062: ,p_event_key => to_char(c1_rec.transaction_id)||'-'||to_Char(l_gen_object_id)); -- pass a dummy gen_object_id as there is no lot for this pass
5055: inv_log_util.TRACE('in cur_get_txn_for_opm_qm - c1_rec.transaction_id = ' || c1_rec.transaction_id, 'INV_LPN_TRX_PUB', 1);
5056: inv_log_util.TRACE('in cur_get_txn_for_opm_qm - c1_rec.transaction_source_type_id = ' || c1_rec.transaction_source_type_id, 'INV_LPN_TRX_PUB', 1);
5057: IF c1_rec.transaction_source_type_id <> inv_globals.G_SOURCETYPE_WIP then -- -- 9756188
5058: inv_log_util.TRACE('about to raise event oracle.apps.gmi.inventory.created for NON G_SOURCETYPE_WIP for c1_rec.transaction_id = ' || c1_rec.transaction_id, 'INV_LPN_TRX_PUB', 1);
5059: inv_log_util.TRACE(' gen_object_id = ' || l_gen_object_id, 'INV_LPN_TRX_PUB', 1);
5060: wf_event.raise2( p_event_name => 'oracle.apps.gmi.inventory.created'
5061: --,p_event_key => c1_rec.transaction_id);
5062: ,p_event_key => to_char(c1_rec.transaction_id)||'-'||to_Char(l_gen_object_id)); -- pass a dummy gen_object_id as there is no lot for this pass
5063: end if;
5065: ,inv_globals.g_sourcetype_rma
5066: ,inv_globals.G_SOURCETYPE_WIP -- 9756188
5067: ,inv_globals.g_sourcetype_intreq) THEN
5068: -- Bug 5361705 - Raise the opm qm quality event for every distinct lot
5069: inv_log_util.TRACE('about to get into cr_get_distinct_lots - c1_rec.transaction_id = ' || c1_rec.transaction_id, 'INV_LPN_TRX_PUB', 1);
5070: i := 0; -- 13557341
5071: FOR c2_rec IN cr_get_distinct_lots(c1_rec.transaction_id)
5072: LOOP
5073: IF c1_rec.transaction_source_type_id = inv_globals.G_SOURCETYPE_WIP THEN -- 9756188
5070: i := 0; -- 13557341
5071: FOR c2_rec IN cr_get_distinct_lots(c1_rec.transaction_id)
5072: LOOP
5073: IF c1_rec.transaction_source_type_id = inv_globals.G_SOURCETYPE_WIP THEN -- 9756188
5074: inv_log_util.TRACE(' about to raise event oracle.apps.gmi.inventory.created for G_SOURCETYPE_WIP for c1_rec.transaction_id = ' || c1_rec.transaction_id, 'INV_LPN_TRX_PUB', 1);
5075: inv_log_util.TRACE(' G_SOURCETYPE_WIP gen_object_id = ' || c2_rec.gen_object_id , 'INV_LPN_TRX_PUB', 1);
5076: wf_event.raise2( p_event_name => 'oracle.apps.gmi.inventory.created'
5077: --,p_event_key => c1_rec.transaction_id);
5078: ,p_event_key => to_char(c1_rec.transaction_id)||'-'||to_Char(c2_rec.gen_object_id)); -- pass lot number as gen_object_id
5071: FOR c2_rec IN cr_get_distinct_lots(c1_rec.transaction_id)
5072: LOOP
5073: IF c1_rec.transaction_source_type_id = inv_globals.G_SOURCETYPE_WIP THEN -- 9756188
5074: inv_log_util.TRACE(' about to raise event oracle.apps.gmi.inventory.created for G_SOURCETYPE_WIP for c1_rec.transaction_id = ' || c1_rec.transaction_id, 'INV_LPN_TRX_PUB', 1);
5075: inv_log_util.TRACE(' G_SOURCETYPE_WIP gen_object_id = ' || c2_rec.gen_object_id , 'INV_LPN_TRX_PUB', 1);
5076: wf_event.raise2( p_event_name => 'oracle.apps.gmi.inventory.created'
5077: --,p_event_key => c1_rec.transaction_id);
5078: ,p_event_key => to_char(c1_rec.transaction_id)||'-'||to_Char(c2_rec.gen_object_id)); -- pass lot number as gen_object_id
5079: ELSE
5076: wf_event.raise2( p_event_name => 'oracle.apps.gmi.inventory.created'
5077: --,p_event_key => c1_rec.transaction_id);
5078: ,p_event_key => to_char(c1_rec.transaction_id)||'-'||to_Char(c2_rec.gen_object_id)); -- pass lot number as gen_object_id
5079: ELSE
5080: inv_log_util.TRACE(' about to raise event oracle.apps.gmi.inv.po.receipt for c1_rec.transaction_id = ' || c1_rec.transaction_id, 'INV_LPN_TRX_PUB', 1);
5081: inv_log_util.TRACE(' gen_object_id = ' || c2_rec.gen_object_id , 'INV_LPN_TRX_PUB', 1);
5082: wf_event.raise2( p_event_name => 'oracle.apps.gmi.inv.po.receipt'
5083: ,p_event_key =>to_char(c2_rec.product_transaction_id)||'-'||to_Char(c2_rec.gen_object_id));
5084: END IF;
5077: --,p_event_key => c1_rec.transaction_id);
5078: ,p_event_key => to_char(c1_rec.transaction_id)||'-'||to_Char(c2_rec.gen_object_id)); -- pass lot number as gen_object_id
5079: ELSE
5080: inv_log_util.TRACE(' about to raise event oracle.apps.gmi.inv.po.receipt for c1_rec.transaction_id = ' || c1_rec.transaction_id, 'INV_LPN_TRX_PUB', 1);
5081: inv_log_util.TRACE(' gen_object_id = ' || c2_rec.gen_object_id , 'INV_LPN_TRX_PUB', 1);
5082: wf_event.raise2( p_event_name => 'oracle.apps.gmi.inv.po.receipt'
5083: ,p_event_key =>to_char(c2_rec.product_transaction_id)||'-'||to_Char(c2_rec.gen_object_id));
5084: END IF;
5085: i := i + 1; -- 13557341
5087: END LOOP;
5088:
5089: --13557341 start if no lots found then raise event event oracle.apps.gmi.inventory.created for G_SOURCETYPE_WIP with not lot
5090: IF i = 0 then
5091: inv_log_util.TRACE('cursor cr_get_distinct_lots returns zero rows for c1_rec.transaction_id = ' || c1_rec.transaction_id, 'INV_LPN_TRX_PUB', 1);
5092:
5093: IF c1_rec.transaction_source_type_id <> inv_globals.G_SOURCETYPE_WIP then -- 13686877 start added if
5094: inv_log_util.TRACE(' about to raise event oracle.apps.gmi.inv.po.receipt for c1_rec.transaction_id = ' || c1_rec.transaction_id, 'INV_LPN_TRX_PUB', 1);
5095: inv_log_util.TRACE(' dummy gen_object_id as there is no lot for this pass gen_object_id = ' || l_gen_object_id, 'INV_LPN_TRX_PUB', 1);
5090: IF i = 0 then
5091: inv_log_util.TRACE('cursor cr_get_distinct_lots returns zero rows for c1_rec.transaction_id = ' || c1_rec.transaction_id, 'INV_LPN_TRX_PUB', 1);
5092:
5093: IF c1_rec.transaction_source_type_id <> inv_globals.G_SOURCETYPE_WIP then -- 13686877 start added if
5094: inv_log_util.TRACE(' about to raise event oracle.apps.gmi.inv.po.receipt for c1_rec.transaction_id = ' || c1_rec.transaction_id, 'INV_LPN_TRX_PUB', 1);
5095: inv_log_util.TRACE(' dummy gen_object_id as there is no lot for this pass gen_object_id = ' || l_gen_object_id, 'INV_LPN_TRX_PUB', 1);
5096: wf_event.raise2( p_event_name => 'oracle.apps.gmi.inv.po.receipt'
5097: ,p_event_key =>to_char(c1_rec.transaction_id)||'-'||to_Char(l_gen_object_id)); -- pass a dummy gen_object_id as there is no lot for this pass
5098:
5091: inv_log_util.TRACE('cursor cr_get_distinct_lots returns zero rows for c1_rec.transaction_id = ' || c1_rec.transaction_id, 'INV_LPN_TRX_PUB', 1);
5092:
5093: IF c1_rec.transaction_source_type_id <> inv_globals.G_SOURCETYPE_WIP then -- 13686877 start added if
5094: inv_log_util.TRACE(' about to raise event oracle.apps.gmi.inv.po.receipt for c1_rec.transaction_id = ' || c1_rec.transaction_id, 'INV_LPN_TRX_PUB', 1);
5095: inv_log_util.TRACE(' dummy gen_object_id as there is no lot for this pass gen_object_id = ' || l_gen_object_id, 'INV_LPN_TRX_PUB', 1);
5096: wf_event.raise2( p_event_name => 'oracle.apps.gmi.inv.po.receipt'
5097: ,p_event_key =>to_char(c1_rec.transaction_id)||'-'||to_Char(l_gen_object_id)); -- pass a dummy gen_object_id as there is no lot for this pass
5098:
5099:
5097: ,p_event_key =>to_char(c1_rec.transaction_id)||'-'||to_Char(l_gen_object_id)); -- pass a dummy gen_object_id as there is no lot for this pass
5098:
5099:
5100: ELSE
5101: inv_log_util.TRACE('SO about to raise event oracle.apps.gmi.inventory.created for G_SOURCETYPE_WIP for c1_rec.transaction_id = ' || c1_rec.transaction_id, 'INV_LPN_TRX_PUB', 1);
5102: inv_log_util.TRACE(' dummy gen_object_id as there is no lot for this pass gen_object_id = ' || l_gen_object_id, 'INV_LPN_TRX_PUB', 1);
5103: wf_event.raise2( p_event_name => 'oracle.apps.gmi.inventory.created'
5104: ,p_event_key => to_char(c1_rec.transaction_id)||'-'||to_Char(l_gen_object_id)); -- pass a dummy gen_object_id as there is no lot for this pass
5105:
5098:
5099:
5100: ELSE
5101: inv_log_util.TRACE('SO about to raise event oracle.apps.gmi.inventory.created for G_SOURCETYPE_WIP for c1_rec.transaction_id = ' || c1_rec.transaction_id, 'INV_LPN_TRX_PUB', 1);
5102: inv_log_util.TRACE(' dummy gen_object_id as there is no lot for this pass gen_object_id = ' || l_gen_object_id, 'INV_LPN_TRX_PUB', 1);
5103: wf_event.raise2( p_event_name => 'oracle.apps.gmi.inventory.created'
5104: ,p_event_key => to_char(c1_rec.transaction_id)||'-'||to_Char(l_gen_object_id)); -- pass a dummy gen_object_id as there is no lot for this pass
5105:
5106: END IF; -- 13686877 end
5110: -- 13557341 end
5111:
5112: END IF; -- IF c1_rec.transaction_source_type_id in ( inv_globals.g_sourcetype_purchaseorder
5113: END LOOP; -- FOR c1_rec IN cur_get_txn_for_opm_qm
5114: inv_log_util.TRACE(' @@@@@@@@@@@@@@@@@@ OPM part end @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@', 'INV_LPN_TRX_PUB', 1);
5115:
5116: -- HVERDDIN END OF ERES CHANGES
5117: --
5118:
5123: EXCEPTION
5124: WHEN OTHERS THEN
5125: -- rollback to the savepoint
5126: IF (l_debug = 1) THEN
5127: inv_log_util.TRACE('ERROR : Code' || SQLCODE || ',Msg:' || SUBSTR(SQLERRM, 1, 100), 'INV_LPN_TRX_PUB', 1);
5128: END IF;
5129:
5130: ROLLBACK TO process_lpn_trx;
5131: --bug 2894323 fix made changes to return all the messages in the
5139: FOR x IN 1 .. ret_msgcnt LOOP
5140: ret_msgdata := SUBSTR(fnd_msg_pub.get(ret_msgcnt - x + 1, 'F'), 0, 200);
5141:
5142: IF (l_debug = 1) THEN
5143: inv_log_util.TRACE(x || ':' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
5144: END IF;
5145:
5146: IF x <> 1 THEN
5147: ret_msgdata := ' | ' || ret_msgdata;
5166: AND transaction_mode = inv_txn_manager_pub.proc_mode_mti);
5167: EXCEPTION
5168: WHEN NO_DATA_FOUND THEN
5169: IF (l_debug = 1) THEN
5170: inv_log_util.TRACE('no record found in mmtt', 'INV_LPN_TRX_PUB', 1);
5171: END IF;
5172: END;
5173:
5174: IF (l_is_from_mti = 1) THEN
5214: WHERE transaction_header_id = p_trx_hdr_id;
5215: END IF;
5216:
5217: IF (l_debug = 1) THEN
5218: inv_log_util.TRACE('Exiting PROCESS_LPN_TRX with exception from_mti=' || l_is_from_mti || ' trx_hdr_id=' || p_trx_hdr_id
5219: , 'INV_LPN_TRX_PUB', 1);
5220: END IF;
5221:
5222: RETURN -1;
5355:
5356:
5357: BEGIN
5358: IF (l_debug = 1) THEN
5359: inv_log_util.TRACE(
5360: 'Call to PROCESS_LPN_TRX_LINE trxtmpid='
5361: || p_transaction_temp_id
5362: || ' flwcode='
5363: || p_business_flow_code
5367: || p_transaction_action_id
5368: , 'INV_LPN_TRX_PUB'
5369: , 9
5370: );
5371: inv_log_util.TRACE(
5372: 'lpn='
5373: || p_lpn_id
5374: || ' cntlpn='
5375: || p_content_lpn_id
5383: || p_locator_id
5384: , 'INV_LPN_TRX_PUB'
5385: , 9
5386: );
5387: inv_log_util.TRACE(
5388: 'xfrorg='
5389: || p_transfer_organization
5390: || ' xfrsub='
5391: || p_transfer_subinventory
5399: || p_transaction_uom
5400: , 'INV_LPN_TRX_PUB'
5401: , 9
5402: );
5403: inv_log_util.TRACE(
5404: 'item='
5405: || p_inventory_item_id
5406: || ' rev='
5407: || p_revision
5415: || p_shipment_number
5416: , 'INV_LPN_TRX_PUB'
5417: , 9
5418: );
5419: inv_log_util.TRACE(
5420: 'srcid='
5421: || p_transaction_source_id
5422: || ' slnid='
5423: || p_trx_source_line_id
5478: l_progress := 'Found item assigning it to l_item_rec';
5479: l_item_rec := inv_cache.item_rec;
5480:
5481: IF (l_debug = 1) THEN
5482: inv_log_util.TRACE(
5483: 'Got item properties puom=' || l_item_rec.primary_uom_code || ' sctl=' || l_item_rec.serial_number_control_code
5484: , 'INV_LPN_TRX_PUB'
5485: , 9
5486: );
5569: l_rcv_txn_type := NULL;
5570: END;
5571:
5572: IF (l_debug = 1) THEN
5573: inv_log_util.TRACE('** transaction_type=' || l_rcv_txn_type, 'INV_LPN_TRX_PUB', 9);
5574: END IF;
5575:
5576: IF (l_rcv_txn_type = 'CORRECT') THEN
5577: IF (l_primary_quantity < 0) THEN -- -ve correction on delivery
5575:
5576: IF (l_rcv_txn_type = 'CORRECT') THEN
5577: IF (l_primary_quantity < 0) THEN -- -ve correction on delivery
5578: IF (l_debug = 1) THEN
5579: inv_log_util.TRACE('** -ve correction on delivery unpacking', 'INV_LPN_TRX_PUB', 9);
5580: END IF;
5581:
5582: -- Unpack items from lpn
5583: -- IF p_transfer_lpn_id IS NOT NULL THEN
5609: );
5610: END IF;
5611:
5612: IF (l_debug = 1) THEN
5613: inv_log_util.TRACE('** -ve correction on delivery packing', 'INV_LPN_TRX_PUB', 9);
5614: END IF;
5615:
5616:
5617: IF ((NVL(p_lpn_id, 0) <> NVL(p_transfer_lpn_id,0))) THEN ----14547482
5649: WHERE lpn_id = p_lpn_id;
5650: END IF;
5651: ELSE
5652: IF (l_debug = 1) THEN
5653: inv_log_util.TRACE('** +ve correction on delivery', 'INV_LPN_TRX_PUB', 9);
5654: END IF;
5655:
5656: -- Unpack items from lpn with null sub, locator and cost group
5657: Call_Pack_Unpack (
5677: , p_source_trx_id => p_source_transaction_id
5678: );
5679:
5680: IF (l_debug = 1) THEN
5681: inv_log_util.TRACE('** +ve correction on delivery packing', 'INV_LPN_TRX_PUB', 9);
5682: END IF;
5683:
5684: IF p_transfer_lpn_id IS NOT NULL THEN
5685: -- Repack items into transfer lpn if it is not null
5725: AND l_primary_quantity < 0) --bug#9223918
5726: OR((p_transaction_action_id = inv_globals.g_action_physicalcountadj)
5727: AND l_primary_quantity < 0) THEN
5728: IF (l_debug = 1) THEN
5729: inv_log_util.TRACE(' Action = Issue, lpn=' || p_lpn_id || ',qty=' || l_primary_quantity, 'INV_LPN_TRX_PUB', 9);
5730: END IF;
5731:
5732: IF (p_content_lpn_id IS NOT NULL) THEN
5733: -- This is an Issue of LPN from system
5731:
5732: IF (p_content_lpn_id IS NOT NULL) THEN
5733: -- This is an Issue of LPN from system
5734: IF (l_debug = 1) THEN
5735: inv_log_util.TRACE('** content_lpn_id Not null:' || p_content_lpn_id, 'INV_LPN_TRX_PUB', 9);
5736: END IF;
5737:
5738: v_lpn.lpn_id := p_content_lpn_id;
5739:
5753: FROM wms_license_plate_numbers
5754: WHERE lpn_id = p_content_lpn_id;
5755:
5756: IF (l_debug = 1) THEN
5757: inv_log_util.TRACE('Got v_cnt_lpn_ctx='||v_cnt_lpn_ctx, 'INV_LPN_TRX_PUB', 9);
5758: END IF;
5759: END IF;
5760:
5761: IF ( v_cnt_lpn_ctx <> wms_container_pub.lpn_context_intransit ) THEN
5771: -- For WIP Issues the LPN set to be defined but not used
5772: v_lpn.lpn_context := wms_container_pub.lpn_context_pregenerated;
5773:
5774: IF (l_debug = 1) THEN
5775: inv_log_util.TRACE('WIP Issue, unpack all items', 'INV_LPN_TRX_PUB', 9);
5776: END IF;
5777: --Bug 16245192 start
5778: SELECT subinventory_code, locator_id
5779: INTO l_wlpn_sub, l_wlpn_loc_id
5780: FROM wms_license_plate_numbers
5781: WHERE lpn_id = p_content_lpn_id;
5782:
5783: IF (l_debug = 1) THEN
5784: inv_log_util.TRACE('p_content_lpn_id: '||p_content_lpn_id , 'INV_LPN_TRX_PUB', 1);
5785: inv_log_util.TRACE('LPN Sub: '||l_wlpn_sub , 'INV_LPN_TRX_PUB', 1);
5786: inv_log_util.TRACE('LPN Loc: '||l_wlpn_loc_id, 'INV_LPN_TRX_PUB', 1);
5787: inv_log_util.TRACE('p_subinventory_code: '||p_subinventory_code, 'INV_LPN_TRX_PUB', 1);
5788: inv_log_util.TRACE('p_locator_id: '||p_locator_id, 'INV_LPN_TRX_PUB', 1);
5781: WHERE lpn_id = p_content_lpn_id;
5782:
5783: IF (l_debug = 1) THEN
5784: inv_log_util.TRACE('p_content_lpn_id: '||p_content_lpn_id , 'INV_LPN_TRX_PUB', 1);
5785: inv_log_util.TRACE('LPN Sub: '||l_wlpn_sub , 'INV_LPN_TRX_PUB', 1);
5786: inv_log_util.TRACE('LPN Loc: '||l_wlpn_loc_id, 'INV_LPN_TRX_PUB', 1);
5787: inv_log_util.TRACE('p_subinventory_code: '||p_subinventory_code, 'INV_LPN_TRX_PUB', 1);
5788: inv_log_util.TRACE('p_locator_id: '||p_locator_id, 'INV_LPN_TRX_PUB', 1);
5789: END IF;
5782:
5783: IF (l_debug = 1) THEN
5784: inv_log_util.TRACE('p_content_lpn_id: '||p_content_lpn_id , 'INV_LPN_TRX_PUB', 1);
5785: inv_log_util.TRACE('LPN Sub: '||l_wlpn_sub , 'INV_LPN_TRX_PUB', 1);
5786: inv_log_util.TRACE('LPN Loc: '||l_wlpn_loc_id, 'INV_LPN_TRX_PUB', 1);
5787: inv_log_util.TRACE('p_subinventory_code: '||p_subinventory_code, 'INV_LPN_TRX_PUB', 1);
5788: inv_log_util.TRACE('p_locator_id: '||p_locator_id, 'INV_LPN_TRX_PUB', 1);
5789: END IF;
5790: --Bug 16245192 end
5783: IF (l_debug = 1) THEN
5784: inv_log_util.TRACE('p_content_lpn_id: '||p_content_lpn_id , 'INV_LPN_TRX_PUB', 1);
5785: inv_log_util.TRACE('LPN Sub: '||l_wlpn_sub , 'INV_LPN_TRX_PUB', 1);
5786: inv_log_util.TRACE('LPN Loc: '||l_wlpn_loc_id, 'INV_LPN_TRX_PUB', 1);
5787: inv_log_util.TRACE('p_subinventory_code: '||p_subinventory_code, 'INV_LPN_TRX_PUB', 1);
5788: inv_log_util.TRACE('p_locator_id: '||p_locator_id, 'INV_LPN_TRX_PUB', 1);
5789: END IF;
5790: --Bug 16245192 end
5791:
5784: inv_log_util.TRACE('p_content_lpn_id: '||p_content_lpn_id , 'INV_LPN_TRX_PUB', 1);
5785: inv_log_util.TRACE('LPN Sub: '||l_wlpn_sub , 'INV_LPN_TRX_PUB', 1);
5786: inv_log_util.TRACE('LPN Loc: '||l_wlpn_loc_id, 'INV_LPN_TRX_PUB', 1);
5787: inv_log_util.TRACE('p_subinventory_code: '||p_subinventory_code, 'INV_LPN_TRX_PUB', 1);
5788: inv_log_util.TRACE('p_locator_id: '||p_locator_id, 'INV_LPN_TRX_PUB', 1);
5789: END IF;
5790: --Bug 16245192 end
5791:
5792: -- LPN must be unpacked into the current sub
5807: , p_source_transaction_id => p_source_transaction_id );
5808:
5809: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
5810: IF (l_debug = 1) THEN
5811: inv_log_util.TRACE('**Error Full unpack for wip issue:' || ret_status, 'INV_LPN_TRX_PUB', 1);
5812: END IF;
5813:
5814: fnd_message.set_name('INV', 'INV_PACKUNPACK_FAILURE');
5815: fnd_msg_pub.ADD;
5821: AND p_lpn_id IS NOT NULL AND p_lpn_id <> NVL(p_transfer_lpn_id,-9999)) THEN
5822: v_lpn.lpn_context := wms_container_pub.lpn_context_stores;
5823:
5824: IF (l_debug = 1) THEN
5825: inv_log_util.TRACE('MO Issue, unpack the content LPN', 'INV_LPN_TRX_PUB', 9);
5826: END IF;
5827:
5828: -- LPN must be unpacked from the current parent LPN
5829: WMS_Container_PVT.PackUnpack_Container(
5844: , p_source_transaction_id => p_source_transaction_id );
5845:
5846: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
5847: IF (l_debug = 1) THEN
5848: inv_log_util.TRACE('**Error During unpacking Content LPN for MO issue:' || ret_status, 'INV_LPN_TRX_PUB', 1);
5849: END IF;
5850:
5851: fnd_message.set_name('INV', 'INV_PACKUNPACK_FAILURE');
5852: fnd_msg_pub.ADD;
5862: IF (p_transaction_action_id = inv_globals.g_action_intransitshipment) THEN
5863: v_lpn.source_name := p_shipment_number;
5864: END IF;
5865:
5866: inv_log_util.TRACE('** 3361969 setting lpn org id to : ' || p_organization_id, 'INV_LPN_TRX_PUB', 9);
5867: v_lpn.organization_id := p_organization_id;
5868: v_lpn.subinventory_code := NULL;
5869: v_lpn.locator_id := NULL;
5870: v_lpn.inventory_item_id := NULL;
5870: v_lpn.inventory_item_id := NULL;
5871: update_lpn_status(v_lpn);
5872:
5873: IF (l_debug = 1) THEN
5874: inv_log_util.TRACE('*** Issued out LPN :' || p_content_lpn_id, 'INV_LPN_TRX_PUB', 9);
5875: END IF;
5876: ELSIF(
5877: p_transaction_action_id = inv_globals.g_action_issue
5878: AND(
6146: ELSIF (p_transfer_lpn_id = p_lpn_id
6147: AND p_transaction_action_id = inv_globals.g_action_issue
6148: AND p_transaction_source_type_id= inv_globals.G_SOURCETYPE_MOVEORDER) THEN
6149: IF (l_debug = 1) THEN
6150: inv_log_util.TRACE('** p_lpn_id = p_transfer_lpn_id *** :' , 'INV_LPN_TRX_PUB', 9);
6151: inv_log_util.TRACE('** Updating lpn to issued out :' || p_lpn_id, 'INV_LPN_TRX_PUB', 9);
6152: END IF;
6153:
6154: v_lpn.lpn_id := p_lpn_id;
6147: AND p_transaction_action_id = inv_globals.g_action_issue
6148: AND p_transaction_source_type_id= inv_globals.G_SOURCETYPE_MOVEORDER) THEN
6149: IF (l_debug = 1) THEN
6150: inv_log_util.TRACE('** p_lpn_id = p_transfer_lpn_id *** :' , 'INV_LPN_TRX_PUB', 9);
6151: inv_log_util.TRACE('** Updating lpn to issued out :' || p_lpn_id, 'INV_LPN_TRX_PUB', 9);
6152: END IF;
6153:
6154: v_lpn.lpn_id := p_lpn_id;
6155: v_lpn.lpn_context := wms_container_pub.lpn_context_stores;
6196: where lpn_id = p_transfer_lpn_id
6197: and organization_id = p_organization_id;
6198:
6199: IF (l_debug = 1) THEN
6200: inv_log_util.TRACE('** p_transfer_lpn_id Not null :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 9);
6201: inv_log_util.TRACE('** Calling Pack unpack with action Pack for lpn_id :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 9);
6202: inv_log_util.TRACE('Value of subinventory_code on WLPN :' || l_wlpn_sub, 'INV_LPN_TRX_PUB', 9);
6203: inv_log_util.TRACE('Value of locator_id on WLPN :' || l_wlpn_loc_id, 'INV_LPN_TRX_PUB', 9);
6204: inv_log_util.TRACE('Value of p_subinventory_code:' || p_subinventory_code, 'INV_LPN_TRX_PUB', 9);
6197: and organization_id = p_organization_id;
6198:
6199: IF (l_debug = 1) THEN
6200: inv_log_util.TRACE('** p_transfer_lpn_id Not null :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 9);
6201: inv_log_util.TRACE('** Calling Pack unpack with action Pack for lpn_id :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 9);
6202: inv_log_util.TRACE('Value of subinventory_code on WLPN :' || l_wlpn_sub, 'INV_LPN_TRX_PUB', 9);
6203: inv_log_util.TRACE('Value of locator_id on WLPN :' || l_wlpn_loc_id, 'INV_LPN_TRX_PUB', 9);
6204: inv_log_util.TRACE('Value of p_subinventory_code:' || p_subinventory_code, 'INV_LPN_TRX_PUB', 9);
6205: inv_log_util.TRACE('Value of p_locator_id :' || p_locator_id, 'INV_LPN_TRX_PUB', 9);
6198:
6199: IF (l_debug = 1) THEN
6200: inv_log_util.TRACE('** p_transfer_lpn_id Not null :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 9);
6201: inv_log_util.TRACE('** Calling Pack unpack with action Pack for lpn_id :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 9);
6202: inv_log_util.TRACE('Value of subinventory_code on WLPN :' || l_wlpn_sub, 'INV_LPN_TRX_PUB', 9);
6203: inv_log_util.TRACE('Value of locator_id on WLPN :' || l_wlpn_loc_id, 'INV_LPN_TRX_PUB', 9);
6204: inv_log_util.TRACE('Value of p_subinventory_code:' || p_subinventory_code, 'INV_LPN_TRX_PUB', 9);
6205: inv_log_util.TRACE('Value of p_locator_id :' || p_locator_id, 'INV_LPN_TRX_PUB', 9);
6206: END IF;
6199: IF (l_debug = 1) THEN
6200: inv_log_util.TRACE('** p_transfer_lpn_id Not null :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 9);
6201: inv_log_util.TRACE('** Calling Pack unpack with action Pack for lpn_id :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 9);
6202: inv_log_util.TRACE('Value of subinventory_code on WLPN :' || l_wlpn_sub, 'INV_LPN_TRX_PUB', 9);
6203: inv_log_util.TRACE('Value of locator_id on WLPN :' || l_wlpn_loc_id, 'INV_LPN_TRX_PUB', 9);
6204: inv_log_util.TRACE('Value of p_subinventory_code:' || p_subinventory_code, 'INV_LPN_TRX_PUB', 9);
6205: inv_log_util.TRACE('Value of p_locator_id :' || p_locator_id, 'INV_LPN_TRX_PUB', 9);
6206: END IF;
6207:
6200: inv_log_util.TRACE('** p_transfer_lpn_id Not null :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 9);
6201: inv_log_util.TRACE('** Calling Pack unpack with action Pack for lpn_id :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 9);
6202: inv_log_util.TRACE('Value of subinventory_code on WLPN :' || l_wlpn_sub, 'INV_LPN_TRX_PUB', 9);
6203: inv_log_util.TRACE('Value of locator_id on WLPN :' || l_wlpn_loc_id, 'INV_LPN_TRX_PUB', 9);
6204: inv_log_util.TRACE('Value of p_subinventory_code:' || p_subinventory_code, 'INV_LPN_TRX_PUB', 9);
6205: inv_log_util.TRACE('Value of p_locator_id :' || p_locator_id, 'INV_LPN_TRX_PUB', 9);
6206: END IF;
6207:
6208: Call_Pack_Unpack (
6201: inv_log_util.TRACE('** Calling Pack unpack with action Pack for lpn_id :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 9);
6202: inv_log_util.TRACE('Value of subinventory_code on WLPN :' || l_wlpn_sub, 'INV_LPN_TRX_PUB', 9);
6203: inv_log_util.TRACE('Value of locator_id on WLPN :' || l_wlpn_loc_id, 'INV_LPN_TRX_PUB', 9);
6204: inv_log_util.TRACE('Value of p_subinventory_code:' || p_subinventory_code, 'INV_LPN_TRX_PUB', 9);
6205: inv_log_util.TRACE('Value of p_locator_id :' || p_locator_id, 'INV_LPN_TRX_PUB', 9);
6206: END IF;
6207:
6208: Call_Pack_Unpack (
6209: p_tempid => p_transaction_temp_id
6248: -- IDS: Logical Transactions for lot and serials - Opened up TM to
6249: -- handle logical receipts and logical corrections.
6250: THEN
6251: IF (l_debug = 1) THEN
6252: inv_log_util.TRACE(' Action = Receipt', 'INV_LPN_TRX_PUB', 9);
6253: END IF;
6254: --BUG13656377 begin
6255: IF(p_transaction_action_id = inv_globals.g_action_assycomplete
6256: AND p_transaction_source_type_id = inv_globals.G_SOURCETYPE_WIP
6256: AND p_transaction_source_type_id = inv_globals.G_SOURCETYPE_WIP
6257: AND (p_content_lpn_id IS NOT NULL OR p_lpn_id = p_transfer_lpn_id))THEN
6258:
6259: IF (l_debug = 1) THEN
6260: inv_log_util.TRACE('It is WIP LPN completion and content LPN is not null or txfer LPN equals LPN id', 'INV_LPN_TRX_PUB', 9);
6261: inv_log_util.TRACE('Updating WLC to make source_type_id null', 'INV_LPN_TRX_PUB', 9);
6262: END IF;
6263:
6264: UPDATE wms_lpn_contents
6257: AND (p_content_lpn_id IS NOT NULL OR p_lpn_id = p_transfer_lpn_id))THEN
6258:
6259: IF (l_debug = 1) THEN
6260: inv_log_util.TRACE('It is WIP LPN completion and content LPN is not null or txfer LPN equals LPN id', 'INV_LPN_TRX_PUB', 9);
6261: inv_log_util.TRACE('Updating WLC to make source_type_id null', 'INV_LPN_TRX_PUB', 9);
6262: END IF;
6263:
6264: UPDATE wms_lpn_contents
6265: SET source_type_id = NULL
6293: END;
6294: END IF;
6295:
6296: IF (l_debug = 1) THEN
6297: inv_log_util.TRACE('Got l_rcv_txn_typ=' || l_rcv_txn_type, 'INV_LPN_TRX_PUB', 9);
6298: END IF;
6299:
6300: -- If receipt is a correction, then special logic is needed
6301: -- otherwise use default behavior
6445: --for intransit shipments, update the wlc's serial summary entry to 2 if the
6446: --serial_control_code is 6.
6447: --Also null out the LPN_id and cost group from MSN.
6448: IF (l_debug = 1) THEN
6449: inv_log_util.TRACE('p_action is:'||p_transaction_action_id ,'INV_LPN_TRX_PUB', 9);
6450: inv_log_util.TRACE('p_sr_Code is:'||p_serial_control_code ,'INV_LPN_TRX_PUB', 9);
6451: END IF;
6452: IF (p_transaction_action_id = inv_globals.g_action_intransitreceipt AND
6453: p_serial_control_code = 6 ) THEN
6446: --serial_control_code is 6.
6447: --Also null out the LPN_id and cost group from MSN.
6448: IF (l_debug = 1) THEN
6449: inv_log_util.TRACE('p_action is:'||p_transaction_action_id ,'INV_LPN_TRX_PUB', 9);
6450: inv_log_util.TRACE('p_sr_Code is:'||p_serial_control_code ,'INV_LPN_TRX_PUB', 9);
6451: END IF;
6452: IF (p_transaction_action_id = inv_globals.g_action_intransitreceipt AND
6453: p_serial_control_code = 6 ) THEN
6454: UPDATE wms_lpn_contents
6483: SET cost_group_id = p_cost_group_id
6484: WHERE inventory_item_id = p_inventory_item_id
6485: AND lpn_id = p_lpn_id;
6486: IF (l_debug = 1) THEN
6487: inv_log_util.TRACE('**Updated WMS_Contents cost_grp_id for lpn=' || p_lpn_id || ' and cg=' || p_cost_group_id, 'INV_LPN_TRX_PUB', 9);
6488: END IF;
6489: END IF;
6490: --End of bug# 9651496,9764650
6491: END IF;
6554: , p_source_transaction_id => p_source_transaction_id );
6555:
6556: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
6557: IF (l_debug = 1) THEN
6558: inv_log_util.TRACE('**Error Full unpack :' || ret_status, 'INV_LPN_TRX_PUB', 1);
6559: END IF;
6560:
6561: fnd_message.set_name('INV', 'INV_PACKUNPACK_FAILURE');
6562: fnd_msg_pub.ADD;
6571: OR(p_transaction_action_id = inv_globals.g_action_orgxfr)
6572: OR(p_transaction_action_id = inv_globals.g_action_stgxfr)
6573: OR(p_transaction_action_id = inv_globals.g_action_costgroupxfr) THEN
6574: IF (l_debug = 1) THEN
6575: inv_log_util.TRACE(' Action = SubXfr/OrgXfr/StgXfr/CGXfr', 'INV_LPN_TRX_PUB', 9);
6576: END IF;
6577:
6578: -- sanity check. If CostGroupXfr, then both cost_group_id and
6579: -- xfr_cost_group_id should be filled
6582: OR(p_transfer_cost_group_id IS NULL) THEN
6583: x_proc_msg := 'Error. Cost Groups not specified. CG=' || p_cost_group_id || ',XfrCG=' || p_transfer_cost_group_id;
6584:
6585: IF (l_debug = 1) THEN
6586: inv_log_util.TRACE('Error. Cost Groups not specified. CG=' || p_cost_group_id || ',XfrCG=' || p_transfer_cost_group_id
6587: , 'INV_LPN_TRX_PUB', 1);
6588: END IF;
6589:
6590: fnd_message.set_name('INV', 'BAD_INPUT_ARGUMENTS');
6605: WHERE lpn_id = p_lpn_id;
6606: END IF;
6607:
6608: IF (l_debug = 1) THEN
6609: inv_log_util.TRACE('SUBXFER from LPN context=' || v_lpn_ctx, 'INV_LPN_TRX_PUB', 9);
6610: END IF;
6611:
6612: IF (v_lpn_ctx = wms_container_pub.lpn_context_picked) THEN
6613: split_delivery(
6643: FROM wms_license_plate_numbers
6644: WHERE lpn_id = p_lpn_id;
6645: --14189803
6646: IF (l_debug = 1) THEN
6647: inv_log_util.TRACE('LPN Sub: '||l_wlpn_sub , 'INV_LPN_TRX_PUB', 1);
6648: inv_log_util.TRACE('LPN Loc: '||l_wlpn_loc_id, 'INV_LPN_TRX_PUB', 1);
6649: inv_log_util.TRACE('p_subinventory_code: '||p_subinventory_code, 'INV_LPN_TRX_PUB', 1);
6650: inv_log_util.TRACE('p_locator_id: '||p_locator_id, 'INV_LPN_TRX_PUB', 1);
6651: END IF;
6644: WHERE lpn_id = p_lpn_id;
6645: --14189803
6646: IF (l_debug = 1) THEN
6647: inv_log_util.TRACE('LPN Sub: '||l_wlpn_sub , 'INV_LPN_TRX_PUB', 1);
6648: inv_log_util.TRACE('LPN Loc: '||l_wlpn_loc_id, 'INV_LPN_TRX_PUB', 1);
6649: inv_log_util.TRACE('p_subinventory_code: '||p_subinventory_code, 'INV_LPN_TRX_PUB', 1);
6650: inv_log_util.TRACE('p_locator_id: '||p_locator_id, 'INV_LPN_TRX_PUB', 1);
6651: END IF;
6652: --14189803
6645: --14189803
6646: IF (l_debug = 1) THEN
6647: inv_log_util.TRACE('LPN Sub: '||l_wlpn_sub , 'INV_LPN_TRX_PUB', 1);
6648: inv_log_util.TRACE('LPN Loc: '||l_wlpn_loc_id, 'INV_LPN_TRX_PUB', 1);
6649: inv_log_util.TRACE('p_subinventory_code: '||p_subinventory_code, 'INV_LPN_TRX_PUB', 1);
6650: inv_log_util.TRACE('p_locator_id: '||p_locator_id, 'INV_LPN_TRX_PUB', 1);
6651: END IF;
6652: --14189803
6653: IF (v_lpn_ctx = wms_container_pub.lpn_context_packing
6646: IF (l_debug = 1) THEN
6647: inv_log_util.TRACE('LPN Sub: '||l_wlpn_sub , 'INV_LPN_TRX_PUB', 1);
6648: inv_log_util.TRACE('LPN Loc: '||l_wlpn_loc_id, 'INV_LPN_TRX_PUB', 1);
6649: inv_log_util.TRACE('p_subinventory_code: '||p_subinventory_code, 'INV_LPN_TRX_PUB', 1);
6650: inv_log_util.TRACE('p_locator_id: '||p_locator_id, 'INV_LPN_TRX_PUB', 1);
6651: END IF;
6652: --14189803
6653: IF (v_lpn_ctx = wms_container_pub.lpn_context_packing
6654: AND p_transaction_action_id IN (inv_globals.g_action_stgxfr,inv_globals.g_action_subxfr)) THEN -- 12736705
6653: IF (v_lpn_ctx = wms_container_pub.lpn_context_packing
6654: AND p_transaction_action_id IN (inv_globals.g_action_stgxfr,inv_globals.g_action_subxfr)) THEN -- 12736705
6655:
6656: IF (l_debug = 1) THEN
6657: inv_log_util.TRACE('LPN Packing context and transaction is staging xfer/sub xfer:' || v_lpn_ctx, 'INV_LPN_TRX_PUB', 1);
6658: END IF;
6659:
6660: ELSIF (v_lpn_ctx <> wms_container_pub.lpn_context_inv
6661: AND v_lpn_ctx <> wms_container_pub.lpn_context_picked
6663: ) THEN
6664: x_proc_msg := 'Error. Invalid LPN context for Transfer Trx:' || v_lpn_ctx;
6665:
6666: IF (l_debug = 1) THEN
6667: inv_log_util.TRACE('Error. Invalid LPN context for Transfer Trx:' || v_lpn_ctx, 'INV_LPN_TRX_PUB', 1);
6668: END IF;
6669:
6670: fnd_message.set_name('INV', 'INV_INVALID_LPN_CONTEXT');
6671: fnd_msg_pub.ADD;
6726: WHERE organization_id = v_xfr_org
6727: AND secondary_inventory_name = p_transfer_subinventory;
6728:
6729: IF (l_debug = 1) THEN
6730: inv_log_util.TRACE(
6731: 'orgid=' || v_xfr_org || ' sub=' || p_transfer_subinventory || ' lpn_controlled_flag=' || v_autounpack
6732: , 'INV_LPN_TRX_PUB'
6733: , 9
6734: );
6734: );
6735: END IF;
6736: ELSE -- Not a WMS organization unpack all lpns
6737: IF (l_debug = 1) THEN
6738: inv_log_util.TRACE('orgid=' || v_xfr_org || ' not wms enabled unpacking all', 'INV_LPN_TRX_PUB', 9);
6739: END IF;
6740:
6741: v_autounpack := 2;
6742: -- Also need to prevent the LPN from being assigned to a non wms org
6750: FROM mtl_material_transactions_temp
6751: WHERE transaction_temp_id = p_transaction_temp_id;
6752:
6753: IF (l_debug = 1) THEN
6754: inv_log_util.TRACE('l_system_task_type = ' || l_system_task_type, 'INV_LPN_TRX_PUB', 9);
6755: inv_log_util.TRACE('l_reservation_id = ' || l_reservation_id , 'INV_LPN_TRX_PUB', 9);
6756: inv_log_util.TRACE('l_trx_hdr_id = ' || l_trx_hdr_id, 'INV_LPN_TRX_PUB', 9); -- Added for bug 7010169
6757: END IF;
6758:
6751: WHERE transaction_temp_id = p_transaction_temp_id;
6752:
6753: IF (l_debug = 1) THEN
6754: inv_log_util.TRACE('l_system_task_type = ' || l_system_task_type, 'INV_LPN_TRX_PUB', 9);
6755: inv_log_util.TRACE('l_reservation_id = ' || l_reservation_id , 'INV_LPN_TRX_PUB', 9);
6756: inv_log_util.TRACE('l_trx_hdr_id = ' || l_trx_hdr_id, 'INV_LPN_TRX_PUB', 9); -- Added for bug 7010169
6757: END IF;
6758:
6759: -- bug 2879208
6752:
6753: IF (l_debug = 1) THEN
6754: inv_log_util.TRACE('l_system_task_type = ' || l_system_task_type, 'INV_LPN_TRX_PUB', 9);
6755: inv_log_util.TRACE('l_reservation_id = ' || l_reservation_id , 'INV_LPN_TRX_PUB', 9);
6756: inv_log_util.TRACE('l_trx_hdr_id = ' || l_trx_hdr_id, 'INV_LPN_TRX_PUB', 9); -- Added for bug 7010169
6757: END IF;
6758:
6759: -- bug 2879208
6760:
6773: AND ((NVL(l_system_task_type, -1) <> 7) AND (NVL(l_system_task_type, -1) <> 5))) -- Added for Bug 14741165
6774: AND l_reservation_id IS NULL --9869993
6775: ) THEN
6776: IF (l_debug = 1) THEN
6777: inv_log_util.TRACE('Sub Xfer of LPN, calling Transfer_LPN_Reservations ', 'INV_LPN_TRX_PUB', 9);
6778: END IF;
6779:
6780: IF p_transfer_lpn_id = p_lpn_id THEN --For bug 14778937
6781: IF (l_debug = 1) THEN
6778: END IF;
6779:
6780: IF p_transfer_lpn_id = p_lpn_id THEN --For bug 14778937
6781: IF (l_debug = 1) THEN
6782: inv_log_util.TRACE('p_transfer_lpn_id = p_lpn_id ', 'INV_LPN_TRX_PUB', 9);
6783: END IF;
6784: inv_lpn_reservations_pvt.transfer_lpn_reservations(
6785: x_return_status => ret_status
6786: , x_msg_count => ret_msgcnt
6793: );
6794:
6795: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
6796: IF (l_debug = 1) THEN
6797: inv_log_util.TRACE('Undefined error in calling Transfer_LPN_Reservations', 'INV_LPN_TRX_PUB', 1);
6798: END IF;
6799:
6800: RAISE fnd_api.g_exc_error;
6801: END IF;
6800: RAISE fnd_api.g_exc_error;
6801: END IF;
6802:
6803: IF (l_debug = 1) THEN
6804: inv_log_util.TRACE('Done with call to Transfer_LPN_Reservations', 'INV_LPN_TRX_PUB', 9);
6805: END IF;
6806: ELSE --p_transfer_lpn_id <> p_lpn_id For bug 14778937
6807: IF (l_debug = 1) THEN
6808: inv_log_util.TRACE('transfer_reserved_lpn_contents p_lpn_id :' || p_lpn_id, 'INV_LPN_TRX_PUB', 1);
6804: inv_log_util.TRACE('Done with call to Transfer_LPN_Reservations', 'INV_LPN_TRX_PUB', 9);
6805: END IF;
6806: ELSE --p_transfer_lpn_id <> p_lpn_id For bug 14778937
6807: IF (l_debug = 1) THEN
6808: inv_log_util.TRACE('transfer_reserved_lpn_contents p_lpn_id :' || p_lpn_id, 'INV_LPN_TRX_PUB', 1);
6809: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_lpn_id :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 1);
6810: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_subinventory :' || p_transfer_subinventory, 'INV_LPN_TRX_PUB', 1);
6811: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_to_location :' ||p_transfer_to_location , 'INV_LPN_TRX_PUB', 1);
6812: inv_log_util.TRACE('transfer_reserved_lpn_contents p_inventory_item_id :' || p_inventory_item_id , 'INV_LPN_TRX_PUB', 1);
6805: END IF;
6806: ELSE --p_transfer_lpn_id <> p_lpn_id For bug 14778937
6807: IF (l_debug = 1) THEN
6808: inv_log_util.TRACE('transfer_reserved_lpn_contents p_lpn_id :' || p_lpn_id, 'INV_LPN_TRX_PUB', 1);
6809: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_lpn_id :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 1);
6810: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_subinventory :' || p_transfer_subinventory, 'INV_LPN_TRX_PUB', 1);
6811: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_to_location :' ||p_transfer_to_location , 'INV_LPN_TRX_PUB', 1);
6812: inv_log_util.TRACE('transfer_reserved_lpn_contents p_inventory_item_id :' || p_inventory_item_id , 'INV_LPN_TRX_PUB', 1);
6813: END IF;
6806: ELSE --p_transfer_lpn_id <> p_lpn_id For bug 14778937
6807: IF (l_debug = 1) THEN
6808: inv_log_util.TRACE('transfer_reserved_lpn_contents p_lpn_id :' || p_lpn_id, 'INV_LPN_TRX_PUB', 1);
6809: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_lpn_id :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 1);
6810: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_subinventory :' || p_transfer_subinventory, 'INV_LPN_TRX_PUB', 1);
6811: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_to_location :' ||p_transfer_to_location , 'INV_LPN_TRX_PUB', 1);
6812: inv_log_util.TRACE('transfer_reserved_lpn_contents p_inventory_item_id :' || p_inventory_item_id , 'INV_LPN_TRX_PUB', 1);
6813: END IF;
6814:
6807: IF (l_debug = 1) THEN
6808: inv_log_util.TRACE('transfer_reserved_lpn_contents p_lpn_id :' || p_lpn_id, 'INV_LPN_TRX_PUB', 1);
6809: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_lpn_id :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 1);
6810: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_subinventory :' || p_transfer_subinventory, 'INV_LPN_TRX_PUB', 1);
6811: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_to_location :' ||p_transfer_to_location , 'INV_LPN_TRX_PUB', 1);
6812: inv_log_util.TRACE('transfer_reserved_lpn_contents p_inventory_item_id :' || p_inventory_item_id , 'INV_LPN_TRX_PUB', 1);
6813: END IF;
6814:
6815: inv_lpn_reservations_pvt.transfer_reserved_lpn_contents(
6808: inv_log_util.TRACE('transfer_reserved_lpn_contents p_lpn_id :' || p_lpn_id, 'INV_LPN_TRX_PUB', 1);
6809: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_lpn_id :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 1);
6810: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_subinventory :' || p_transfer_subinventory, 'INV_LPN_TRX_PUB', 1);
6811: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_to_location :' ||p_transfer_to_location , 'INV_LPN_TRX_PUB', 1);
6812: inv_log_util.TRACE('transfer_reserved_lpn_contents p_inventory_item_id :' || p_inventory_item_id , 'INV_LPN_TRX_PUB', 1);
6813: END IF;
6814:
6815: inv_lpn_reservations_pvt.transfer_reserved_lpn_contents(
6816: x_return_status => ret_status
6827: );
6828:
6829: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
6830: IF (l_debug = 1) THEN
6831: inv_log_util.TRACE('Undefined error in calling transfer_reserved_lpn_contents', 'INV_LPN_TRX_PUB', 1);
6832: END IF;
6833:
6834: RAISE fnd_api.g_exc_error;
6835: END IF;
6834: RAISE fnd_api.g_exc_error;
6835: END IF;
6836:
6837: IF (l_debug = 1) THEN
6838: inv_log_util.TRACE('Done with call to transfer_reserved_lpn_contents', 'INV_LPN_TRX_PUB', 9);
6839: END IF;
6840: END IF; --end transfer_lpn_id = p_lpn_id For bug 14778937
6841: END IF;
6842: END IF;
6870: AND l_reservation_id IS NULL --9869993
6871: ) -- bug 2879208 added nv for 3240617
6872: THEN
6873: IF (l_debug = 1) THEN
6874: inv_log_util.TRACE('Sub Xfer of LPN, calling Transfer_LPN_Reservations', 'INV_LPN_TRX_PUB', 9);
6875: END IF;
6876:
6877: /*Added for Bug#6043776*/
6878: l_cyclpn_id:=p_content_lpn_id;
6878: l_cyclpn_id:=p_content_lpn_id;
6879: /*if the transaction is cyclecount use outer LPN to update reservations*/
6880: IF(p_transaction_source_type_id=inv_globals.G_SOURCETYPE_CYCLECOUNT) THEN
6881: IF (l_debug = 1) THEN
6882: inv_log_util.TRACE('entered here cyclecount.. ','INV_LPN_TRX_PUB', 9);
6883: END IF;
6884: SELECT OUTERMOST_LPN_ID into l_cyclpn_id
6885: from wms_license_plate_numbers
6886: where lpn_id=p_content_lpn_id;
6900: );
6901:
6902: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
6903: IF (l_debug = 1) THEN
6904: inv_log_util.TRACE('Undefined error in calling Transfer_LPN_Reservations', 'INV_LPN_TRX_PUB', 1);
6905: END IF;
6906:
6907: RAISE fnd_api.g_exc_error;
6908: END IF;
6907: RAISE fnd_api.g_exc_error;
6908: END IF;
6909:
6910: IF (l_debug = 1) THEN
6911: inv_log_util.TRACE('Done with call to Transfer_LPN_Reservations', 'INV_LPN_TRX_PUB', 9);
6912: END IF;
6913: END IF;
6914:
6915: /*if ( v_lpn_ctx <> WMS_Container_PUB.LPN_CONTEXT_PICKED ) then
6928: -- If the autounpack is set for the transfer sub, then unpack the
6929: -- contents of the LPN.
6930: IF (v_autounpack = 2) THEN
6931: IF (l_debug = 1) THEN
6932: inv_log_util.TRACE('**Calling fullunpack lpn:' || p_content_lpn_id, 'INV_LPN_TRX_PUB', 9);
6933: END IF;
6934:
6935: -- bug 5531237 LPN org has not changed yet need to use original org not xfer org
6936: WMS_Container_PVT.PackUnpack_Container (
6950: , p_source_transaction_id => p_source_transaction_id );
6951:
6952: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
6953: IF (l_debug = 1) THEN
6954: inv_log_util.TRACE('**Error Full unpack :' || ret_status, 'INV_LPN_TRX_PUB', 1);
6955: END IF;
6956:
6957: fnd_message.set_name('INV', 'INV_PACKUNPACK_FAILURE');
6958: fnd_msg_pub.ADD;
6973: IF ( p_transaction_source_type_id = inv_globals.G_SOURCETYPE_INTORDER AND
6974: p_transaction_action_id IN (inv_globals.G_ACTION_ORGXFR,inv_globals.G_ACTION_SUBXFR) --8395505.Added SUBXFR
6975: ) THEN
6976: IF (l_debug = 1) THEN
6977: inv_log_util.trace('int req direct org/sub xfr. setting lpn_ctxt to in inventory','INV_LPN_TRX_PUB',1);
6978: END IF;
6979: v_lpn.lpn_context := wms_container_pub.lpn_context_inv;
6980: ELSE
6981: v_lpn.lpn_context := wms_container_pub.lpn_context_picked;
7030: ) THEN
7031: v_lpn.lpn_context := NVL(v_cnt_lpn_ctx, v_lpn_ctx);
7032:
7033: IF (l_debug = 1) THEN
7034: inv_log_util.TRACE('Changing context of xfrlpn cntlpnctx=' || v_cnt_lpn_ctx || ' lpnctx=' || v_lpn_ctx, 'INV_LPN_TRX_PUB'
7035: , 9);
7036: END IF;
7037: ELSE
7038: -- Bug 4247497 Moving update of context to TM
7058: -- Verify that the context of this LPN is 'Resides in Inventory'
7059: x_proc_msg := 'Error. Invalid LPN context for XFR_LPN:' || v_xfrlpn_ctx;
7060:
7061: IF (l_debug = 1) THEN
7062: inv_log_util.TRACE('Error. Invalid LPN context for XFR_LPN :' || v_xfrlpn_ctx, 'INV_LPN_TRX_PUB', 1);
7063: END IF;
7064:
7065: fnd_message.set_name('INV', 'INV_INVALID_LPN_CONTEXT');
7066: fnd_msg_pub.ADD;
7067: RAISE fnd_api.g_exc_error;
7068: END IF;
7069:
7070: IF (l_debug = 1) THEN
7071: inv_log_util.TRACE(' p_lpn_id :' || p_lpn_id, 'INV_LPN_TRX_PUB', 1);
7072: inv_log_util.TRACE(' p_transfer_lpn_id :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 1);
7073: inv_log_util.TRACE(' v_xfrlpn_ctx :' || v_xfrlpn_ctx, 'INV_LPN_TRX_PUB', 1);
7074: END IF;
7075: -- For CostGroupTransfer transactions, use the xfr_cost_group_id
7068: END IF;
7069:
7070: IF (l_debug = 1) THEN
7071: inv_log_util.TRACE(' p_lpn_id :' || p_lpn_id, 'INV_LPN_TRX_PUB', 1);
7072: inv_log_util.TRACE(' p_transfer_lpn_id :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 1);
7073: inv_log_util.TRACE(' v_xfrlpn_ctx :' || v_xfrlpn_ctx, 'INV_LPN_TRX_PUB', 1);
7074: END IF;
7075: -- For CostGroupTransfer transactions, use the xfr_cost_group_id
7076: -- column from MMTT. For all other transactions, use the cost_group_id
7069:
7070: IF (l_debug = 1) THEN
7071: inv_log_util.TRACE(' p_lpn_id :' || p_lpn_id, 'INV_LPN_TRX_PUB', 1);
7072: inv_log_util.TRACE(' p_transfer_lpn_id :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 1);
7073: inv_log_util.TRACE(' v_xfrlpn_ctx :' || v_xfrlpn_ctx, 'INV_LPN_TRX_PUB', 1);
7074: END IF;
7075: -- For CostGroupTransfer transactions, use the xfr_cost_group_id
7076: -- column from MMTT. For all other transactions, use the cost_group_id
7077: -- For CostGrpTrx, sub and location are same as that of source side.
7092: AND NVL(l_system_task_type, -1) <> 5 -- Added for Bug 14741165
7093: ) THEN --Bug7692251
7094: -- ER 7307189 changes start
7095: IF (l_debug = 1) THEN
7096: inv_log_util.TRACE('transfer_reserved_lpn_contents p_lpn_id :' || p_lpn_id, 'INV_LPN_TRX_PUB', 1);
7097: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_lpn_id :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 1);
7098: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_subinventory :' || p_transfer_subinventory, 'INV_LPN_TRX_PUB', 1);
7099: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_to_location :' ||p_transfer_to_location , 'INV_LPN_TRX_PUB', 1);
7100: inv_log_util.TRACE('transfer_reserved_lpn_contents p_inventory_item_id :' || p_inventory_item_id , 'INV_LPN_TRX_PUB', 1);
7093: ) THEN --Bug7692251
7094: -- ER 7307189 changes start
7095: IF (l_debug = 1) THEN
7096: inv_log_util.TRACE('transfer_reserved_lpn_contents p_lpn_id :' || p_lpn_id, 'INV_LPN_TRX_PUB', 1);
7097: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_lpn_id :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 1);
7098: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_subinventory :' || p_transfer_subinventory, 'INV_LPN_TRX_PUB', 1);
7099: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_to_location :' ||p_transfer_to_location , 'INV_LPN_TRX_PUB', 1);
7100: inv_log_util.TRACE('transfer_reserved_lpn_contents p_inventory_item_id :' || p_inventory_item_id , 'INV_LPN_TRX_PUB', 1);
7101: END IF;
7094: -- ER 7307189 changes start
7095: IF (l_debug = 1) THEN
7096: inv_log_util.TRACE('transfer_reserved_lpn_contents p_lpn_id :' || p_lpn_id, 'INV_LPN_TRX_PUB', 1);
7097: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_lpn_id :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 1);
7098: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_subinventory :' || p_transfer_subinventory, 'INV_LPN_TRX_PUB', 1);
7099: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_to_location :' ||p_transfer_to_location , 'INV_LPN_TRX_PUB', 1);
7100: inv_log_util.TRACE('transfer_reserved_lpn_contents p_inventory_item_id :' || p_inventory_item_id , 'INV_LPN_TRX_PUB', 1);
7101: END IF;
7102:
7095: IF (l_debug = 1) THEN
7096: inv_log_util.TRACE('transfer_reserved_lpn_contents p_lpn_id :' || p_lpn_id, 'INV_LPN_TRX_PUB', 1);
7097: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_lpn_id :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 1);
7098: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_subinventory :' || p_transfer_subinventory, 'INV_LPN_TRX_PUB', 1);
7099: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_to_location :' ||p_transfer_to_location , 'INV_LPN_TRX_PUB', 1);
7100: inv_log_util.TRACE('transfer_reserved_lpn_contents p_inventory_item_id :' || p_inventory_item_id , 'INV_LPN_TRX_PUB', 1);
7101: END IF;
7102:
7103:
7096: inv_log_util.TRACE('transfer_reserved_lpn_contents p_lpn_id :' || p_lpn_id, 'INV_LPN_TRX_PUB', 1);
7097: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_lpn_id :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 1);
7098: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_subinventory :' || p_transfer_subinventory, 'INV_LPN_TRX_PUB', 1);
7099: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_to_location :' ||p_transfer_to_location , 'INV_LPN_TRX_PUB', 1);
7100: inv_log_util.TRACE('transfer_reserved_lpn_contents p_inventory_item_id :' || p_inventory_item_id , 'INV_LPN_TRX_PUB', 1);
7101: END IF;
7102:
7103:
7104:
7117: );
7118:
7119: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
7120: IF (l_debug = 1) THEN
7121: inv_log_util.TRACE('Undefined error in calling transfer_reserved_lpn_contents', 'INV_LPN_TRX_PUB', 1);
7122: END IF;
7123:
7124: RAISE fnd_api.g_exc_error;
7125: END IF;
7124: RAISE fnd_api.g_exc_error;
7125: END IF;
7126:
7127: IF (l_debug = 1) THEN
7128: inv_log_util.TRACE('Done with call to transfer_reserved_lpn_contents', 'INV_LPN_TRX_PUB', 9);
7129: END IF;
7130:
7131: -- ER 7307189 changes end
7132: END IF;
7166: WHERE transfer_lpn_id = p_transfer_lpn_id
7167: AND transaction_header_id <> l_trx_hdr_id ;
7168:
7169: IF (l_debug = 1) THEN
7170: inv_log_util.TRACE('Count of other tasks loaded to this LPN='||l_loaded_tasks_count,'INV_LPN_TRX_PUB', 5);
7171: END IF;
7172:
7173: IF (l_loaded_tasks_count = 0 ) THEN
7174:
7191: WHERE lpn_id = p_transfer_lpn_id;
7192:
7193: -- bug 5620764: add debug
7194: IF (l_debug = 1) THEN
7195: inv_log_util.TRACE('Got xfrlpn ctx=' || v_xfrlpn_ctx, 'INV_LPN_TRX_PUB', 5);
7196: END IF;
7197:
7198: -- If the lpn is transfered update the status of that LPN
7199: -- provided the context is 2, 3, or 8
7222: ) THEN
7223: x_proc_msg := 'Error. Invalid LPN context for XFR_LPN:' || v_xfrlpn_ctx;
7224:
7225: IF (l_debug = 1) THEN
7226: inv_log_util.TRACE('Error. Invalid LPN context for XFR_LPN :' || v_xfrlpn_ctx, 'INV_LPN_TRX_PUB', 1);
7227: END IF;
7228:
7229: fnd_message.set_name('INV', 'INV_INVALID_LPN_CONTEXT');
7230: fnd_msg_pub.ADD;
7232: END IF;
7233: END IF;
7234:
7235: IF (l_debug = 1) THEN
7236: inv_log_util.TRACE('Updating lpn=' || p_transfer_lpn_id || ' ctx=' || v_lpn.lpn_context || ' org=' || v_xfr_org
7237: , 'INV_LPN_TRX_PUB', 1);
7238: END IF;
7239: --12595055 Begin
7240: IF (v_autounpack = 2) THEN
7238: END IF;
7239: --12595055 Begin
7240: IF (v_autounpack = 2) THEN
7241: IF (l_debug = 1) THEN
7242: inv_log_util.TRACE('*** Added to handle non LPN control sub Calling fullunpack lpn:' || p_content_lpn_id, 'INV_LPN_TRX_PUB', 9);
7243: END IF;
7244:
7245: -- bug 5531237 LPN org has not changed yet need to use original org not xfer org
7246: WMS_Container_PVT.PackUnpack_Container (
7260: , p_source_transaction_id => p_source_transaction_id );
7261:
7262: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
7263: IF (l_debug = 1) THEN
7264: inv_log_util.TRACE('****Error Full unpack :' || ret_status, 'INV_LPN_TRX_PUB', 1);
7265: END IF;
7266:
7267: fnd_message.set_name('INV', 'INV_PACKUNPACK_FAILURE');
7268: fnd_msg_pub.ADD;
7269: RAISE fnd_api.g_exc_error;
7270: END IF;
7271: ELSE
7272: IF (l_debug = 1) THEN
7273: inv_log_util.TRACE('*** Coming to else portion ie LPN controlled sub' || p_content_lpn_id, 'INV_LPN_TRX_PUB', 9);
7274: END IF;
7275: v_lpn.lpn_id := p_transfer_lpn_id;
7276: v_lpn.organization_id := v_xfr_org;
7277: v_lpn.subinventory_code := p_transfer_subinventory;
7292: FROM wms_license_plate_numbers
7293: WHERE lpn_id = p_content_lpn_id;
7294:
7295: IF (l_debug = 1) THEN
7296: inv_log_util.TRACE('SUBXFER cont LPN context=' || v_cnt_lpn_ctx, 'INV_LPN_TRX_PUB', 9);
7297: END IF;
7298:
7299: IF (v_cnt_lpn_ctx = wms_container_pub.lpn_context_picked)
7300: OR (NVL(l_system_task_type, -1) = 7) THEN --Bug 3620318
7314: );
7315:
7316: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
7317: IF (l_debug = 1) THEN
7318: inv_log_util.TRACE('**Error from transfer_lpn_trx_reservation :' || ret_status, 'INV_LPN_TRX_PUB', 1);
7319: END IF;
7320:
7321: fnd_message.set_name('INV', 'INV_XFR_RSV_FAILURE');
7322: fnd_msg_pub.ADD;
7327: END IF;
7328: /***** Actions for PACK transactions ****/
7329: ELSIF(p_transaction_action_id = inv_globals.g_action_containerpack) THEN
7330: IF (l_debug = 1) THEN
7331: inv_log_util.TRACE(' Action = Pack', 'INV_LPN_TRX_PUB', 9);
7332: END IF;
7333:
7334: Call_Pack_Unpack (
7335: p_tempid => p_transaction_temp_id
7364: AND lpn_context <> wms_container_pub.lpn_context_picked;
7365: /***** Actions for UNPACK transactions ****/
7366: ELSIF(p_transaction_action_id = inv_globals.g_action_containerunpack) THEN
7367: IF (l_debug = 1) THEN
7368: inv_log_util.TRACE(' Action = UnPack', 'INV_LPN_TRX_PUB', 9);
7369: END IF;
7370:
7371: Call_Pack_Unpack (
7372: p_tempid => p_transaction_temp_id
7394:
7395: /***** Actions for SLPIT transactions ****/
7396: ELSIF(p_transaction_action_id = inv_globals.g_action_containersplit) THEN
7397: IF (l_debug = 1) THEN
7398: inv_log_util.TRACE(' Action = Split, First Unpack', 'INV_LPN_TRX_PUB', 9);
7399: END IF;
7400:
7401: -- Start of bug 7226314 7355087
7402:
7415:
7416: EXCEPTION
7417: WHEN No_Data_Found THEN
7418: IF (l_debug = 1) THEN
7419: inv_log_util.trace('no data found', 'INV_LPN_TRX_PUB', 9);
7420: END IF;
7421: END;
7422:
7423: IF(l_xfrlpn_ctx = wms_container_pub.lpn_context_pregenerated)THEN
7525: CLOSE c_rtv_exists;
7526:
7527:
7528: IF (l_debug = 1) THEN
7529: inv_log_util.trace('RTV ER Split' || l_rtv_transaction_id , 'INV_LPN_TRX_PUB', 9);
7530: END IF;
7531:
7532:
7533: IF (l_rtv_transaction_id IS NOT NULL )THEN --RTV Change 16197273
7534:
7535: l_source_header_id := l_rtv_transaction_id;
7536: l_source_name := 'RETURN TO VENDOR';
7537:
7538: inv_log_util.TRACE('Calling split delivery for RTV ER '|| p_transaction_temp_id, 'INV_LPN_TRX_PUB', 1);
7539:
7540: split_delivery(
7541: p_tempid => p_transaction_temp_id
7542: , p_lpn_id => p_lpn_id
7558:
7559: END IF ;
7560:
7561: IF (l_debug = 1) THEN
7562: inv_log_util.TRACE('RTV ER Split: l_source_header_id '|| l_source_header_id, 'INV_LPN_TRX_PUB', 1);
7563: inv_log_util.TRACE('RTV ER Split: l_source_name'|| l_source_name, 'INV_LPN_TRX_PUB', 1);
7564: END IF;
7565:
7566:
7559: END IF ;
7560:
7561: IF (l_debug = 1) THEN
7562: inv_log_util.TRACE('RTV ER Split: l_source_header_id '|| l_source_header_id, 'INV_LPN_TRX_PUB', 1);
7563: inv_log_util.TRACE('RTV ER Split: l_source_name'|| l_source_name, 'INV_LPN_TRX_PUB', 1);
7564: END IF;
7565:
7566:
7567: Call_Pack_Unpack (
7639: , p_sec_uom => p_secondary_uom_code
7640: , p_source_trx_id => p_source_transaction_id
7641: );
7642: IF (l_debug = 1) THEN
7643: inv_log_util.TRACE('Done with unpack for OPM return transaction from LPN :'|| p_lpn_id, 'INV_LPN_TRX_PUB', 1);
7644: END IF;
7645: END IF;
7646: ELSE
7647: IF (l_debug = 1) THEN
7644: END IF;
7645: END IF;
7646: ELSE
7647: IF (l_debug = 1) THEN
7648: inv_log_util.TRACE('Error. While getting org parameters :' , 'INV_LPN_TRX_PUB', 1);
7649: END IF;
7650: RAISE fnd_api.g_exc_error;
7651: END IF;
7652: /* 8579396 :End */
7674: WHERE transaction_temp_id = p_transaction_temp_id;
7675: EXCEPTION
7676: when others then
7677: IF (l_debug = 1) THEN
7678: inv_log_util.trace('Error updating content_lpn_id in MMTT line ttid='||p_transaction_temp_id, 'INV_LPN_TRX_PUB', 9);
7679: END IF;
7680: END;
7681: end if;*/
7682: END IF; --lpn_id = null AND content_lpn_id = null and xfr_lpn_id = null
7684: -- Start 9740452
7685:
7686: IF (NOT inv_cache.Set_org_rec(p_organization_id => p_organization_id)) THEN
7687: IF (l_debug = 1) THEN
7688: inv_log_util.TRACE(l_api_name||' : '||p_organization_id||' is an invalid organization id', 'INV_LPN_TRX_PUB', 1);
7689: END IF;
7690: fnd_message.Set_name('WMS','WMS_CONT_INVALID_ORG');
7691: fnd_msg_pub.ADD;
7692: RAISE fnd_api.g_exc_error;
7716: IF (NVL(l_business_flow_code, 0) <> 0) THEN -- Bug # 9740452
7717:
7718: -- Start of fix for Bug: 4891916
7719: IF (l_debug = 1) THEN
7720: inv_log_util.TRACE('Value of Business flow:'|| l_business_flow_code || 'l_print_label:'
7721: || l_print_label, 'INV_LPN_TRX_PUB', 1); -- Bug # 9740452
7722: END IF;
7723: -- Checking for the business flow and the value of the profile
7724: -- and setting the value of the transaction identifier accordingly.
7745: );
7746:
7747: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
7748: IF (l_debug = 1) THEN
7749: inv_log_util.TRACE('**Error Label Printing :' || ret_status, 'INV_LPN_TRX_PUB', 1);
7750: END IF;
7751: --RAISE FND_API.G_EXC_ERROR; Since TM should not fail, even if
7752: --this call fails bug#2555226
7753: END IF;
7760: -- After all the LPN related txn is done, delete the original MMTT record that
7761: -- has inventory_item_id = -1
7762: IF p_inventory_item_id = -1 THEN
7763: IF (l_debug = 1) THEN
7764: inv_log_util.TRACE('* Done with process_lpn_trx_line, deleting MMTT record for tmpID=' || p_transaction_temp_id, 'INV_LPN_TRX_PUB'
7765: , 1);
7766: END IF;
7767:
7768: DELETE FROM mtl_serial_numbers_temp
7783: AND inventory_item_id = -1));
7784: END IF;
7785:
7786: IF (l_debug = 1) THEN
7787: inv_log_util.TRACE('* No of MSNT records deleted =' || SQL%ROWCOUNT, 'INV_LPN_TRX_PUB', 1);
7788: END IF;
7789:
7790: DELETE FROM mtl_transaction_lots_temp
7791: WHERE transaction_temp_id = (SELECT transaction_temp_id
7793: WHERE transaction_temp_id = p_transaction_temp_id
7794: AND inventory_item_id = -1);
7795:
7796: IF (l_debug = 1) THEN
7797: inv_log_util.TRACE('* No of MTLT records deleted =' || SQL%ROWCOUNT, 'INV_LPN_TRX_PUB', 1);
7798: END IF;
7799:
7800: DELETE FROM mtl_material_transactions_temp
7801: WHERE transaction_temp_id = p_transaction_temp_id
7801: WHERE transaction_temp_id = p_transaction_temp_id
7802: AND inventory_item_id = -1;
7803:
7804: IF (l_debug = 1) THEN
7805: inv_log_util.TRACE('* No. of MMTT record deleted ' || SQL%ROWCOUNT, 'INV_LPN_TRX_PUB', 1);
7806: END IF;
7807: END IF;
7808: EXCEPTION
7809: WHEN fnd_api.g_exc_error THEN
7810: x_return_status := fnd_api.g_ret_sts_error;
7811: x_proc_msg := fnd_msg_pub.get(fnd_msg_pub.g_previous, 'F');
7812:
7813: IF (l_debug = 1) THEN
7814: inv_log_util.TRACE(l_api_name || ' Exc err prog=' || l_progress || ' SQL err: ' || SQLERRM(SQLCODE), l_api_name, 1);
7815: fnd_msg_pub.count_and_get(p_count => ret_msgcnt, p_data => ret_msgdata);
7816:
7817: FOR i IN 1 .. ret_msgcnt LOOP
7818: l_msgdata := SUBSTR(l_msgdata || ' | ' || SUBSTR(fnd_msg_pub.get(ret_msgcnt - i + 1, 'F'), 0, 200), 1, 2000);
7817: FOR i IN 1 .. ret_msgcnt LOOP
7818: l_msgdata := SUBSTR(l_msgdata || ' | ' || SUBSTR(fnd_msg_pub.get(ret_msgcnt - i + 1, 'F'), 0, 200), 1, 2000);
7819: END LOOP;
7820:
7821: inv_log_util.TRACE('msg: ' || l_msgdata, l_api_name, 1);
7822: END IF;
7823: WHEN OTHERS THEN
7824: x_return_status := fnd_api.g_ret_sts_unexp_error;
7825: x_proc_msg := fnd_msg_pub.get(fnd_msg_pub.g_previous, 'F');
7824: x_return_status := fnd_api.g_ret_sts_unexp_error;
7825: x_proc_msg := fnd_msg_pub.get(fnd_msg_pub.g_previous, 'F');
7826:
7827: IF (l_debug = 1) THEN
7828: inv_log_util.TRACE(l_api_name || ' Unexp err prog=' || l_progress || ' SQL err: ' || SQLERRM(SQLCODE), l_api_name, 1);
7829: inv_log_util.TRACE('msg=' || x_proc_msg, l_api_name, 1);
7830: END IF;
7831: END process_lpn_trx_line;
7832:
7825: x_proc_msg := fnd_msg_pub.get(fnd_msg_pub.g_previous, 'F');
7826:
7827: IF (l_debug = 1) THEN
7828: inv_log_util.TRACE(l_api_name || ' Unexp err prog=' || l_progress || ' SQL err: ' || SQLERRM(SQLCODE), l_api_name, 1);
7829: inv_log_util.TRACE('msg=' || x_proc_msg, l_api_name, 1);
7830: END IF;
7831: END process_lpn_trx_line;
7832:
7833: END inv_lpn_trx_pub;