[Home] [Help]
1: PACKAGE BODY inv_lpn_trx_pub AS
2: /* $Header: INVTRXWB.pls 120.90.12020000.24 2013/04/05 07:11:13 ssingams ship $ */
3:
4: -- Name: PROCESS_LPN_TRX
5: --
10: -- return_status 0 on Success, 1 on Error
11: --
12: --
13: -- Global constant holding the package name
14: g_pkg_name CONSTANT VARCHAR2(30) := 'INV_LPN_TRX_PUB';
15: g_pkg_version CONSTANT VARCHAR2(100) := '$Header: INVTRXWB.pls 120.90.12020000.24 2013/04/05 07:11:13 ssingams ship $';
16: ret_status VARCHAR2(512);
17: ret_msgcnt NUMBER := 0;
18: ret_msgdata VARCHAR2(1000);
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
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: );
68: RETURN FALSE;
69: ELSIF(p_trans_action_id = inv_globals.g_action_issue) THEN
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;
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
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;
936: || ' and Sub '
937: || NVL(p_mmtt.transfer_subinventory, p_mmtt.subinventory_code)
938: || ', result='
939: || l_skip_comingle_check
940: , 'INV_LPN_TRX_PUB'
941: , 9
942: );
943: END IF;
944:
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;
987: || ',sec_qty='
988: || curlpnrec.sec_quantity
989: || ',rev='
990: || curlpnrec.revision
991: , 'INV_LPN_TRX_PUB'
992: , 9
993: );
994: END IF;
995:
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
1082: || ',p_loc='
1083: || NVL(p_mmtt.transfer_to_location, p_mmtt.locator_id)
1084: || ',p_cg_id='
1085: || NVL(curlpnrec.cost_group_id, p_mmtt.cost_group_id)
1086: , 'INV_LPN_TRX_PUB'
1087: , 9
1088: );
1089: END IF;
1090:
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;
1201: || ',p_loc='
1202: || NVL(p_mmtt.transfer_to_location, p_mmtt.locator_id)
1203: || ',p_cg_id='
1204: || NVL(curlpnrec.cost_group_id, p_mmtt.cost_group_id)
1205: , 'INV_LPN_TRX_PUB'
1206: , 9
1207: );
1208: END IF;
1209:
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;
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: );
1362: END IF;
1363:
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='
1775: || ',p_revision='
1776: || p_revision
1777: || ',p_org_id='
1778: || p_org_id
1779: , 'INV_LPN_TRX_PUB'
1780: , 1
1781: );
1782: END IF;
1783:
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: );
1790: END IF;
1791:
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='
1900: || ',v_lotnum='
1901: || v_lotnum
1902: || ',ser='
1903: || v_sertmp.fm_serial_number
1904: , 'INV_LPN_TRX_PUB'
1905: , 1
1906: );
1907: inv_log_util.TRACE(
1908: ',p_org_id='
1914: || ',p_operation='
1915: || p_operation
1916: || ',p_cost_grp_id='
1917: || p_cost_grp_id
1918: , 'INV_LPN_TRX_PUB'
1919: , 1
1920: );
1921: END IF;
1922:
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='
1974: || 'lot='
1975: || v_lotnum
1976: || ',p_org_id='
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='
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
1986: );
1987: END IF;
1988:
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;
2007:
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
2088: || ',item_id='
2089: || item_id
2090: || ',fmser='
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
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: );
2100: END IF;
2101:
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='
2150: || ',p_revision='
2151: || p_revision
2152: || ',p_org_id='
2153: || p_org_id
2154: , 'INV_LPN_TRX_PUB'
2155: , 1
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
2165: );
2166: END IF;
2167:
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:
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 *
2233: INTO l_sertmp_rec
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: );
3775: END IF;
3776:
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:
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: );
4546: END IF;
4547:
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:
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
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;
5223: END process_lpn_trx;
5364: || ' srctype='
5365: || p_transaction_source_type_id
5366: || ' actid='
5367: || p_transaction_action_id
5368: , 'INV_LPN_TRX_PUB'
5369: , 9
5370: );
5371: inv_log_util.TRACE(
5372: 'lpn='
5380: || ' sub='
5381: || p_subinventory_code
5382: || ' loc='
5383: || p_locator_id
5384: , 'INV_LPN_TRX_PUB'
5385: , 9
5386: );
5387: inv_log_util.TRACE(
5388: 'xfrorg='
5396: || ' trxqty='
5397: || p_transaction_quantity
5398: || ' uom='
5399: || p_transaction_uom
5400: , 'INV_LPN_TRX_PUB'
5401: , 9
5402: );
5403: inv_log_util.TRACE(
5404: 'item='
5412: || ' rcvtrxid='
5413: || p_rcv_transaction_id
5414: || ' shipnum='
5415: || p_shipment_number
5416: , 'INV_LPN_TRX_PUB'
5417: , 9
5418: );
5419: inv_log_util.TRACE(
5420: 'srcid='
5430: || ' rcptex='
5431: || p_manual_receipt_expense
5432: || ' strxid='
5433: || p_source_transaction_id
5434: , 'INV_LPN_TRX_PUB'
5435: , 9
5436: );
5437: END IF;
5438:
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: );
5487: END IF;
5488: ELSE --failed to get item info
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
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');
6591: fnd_msg_pub.ADD;
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;
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: );
6735: END IF;
6736: ELSE -- Not a WMS organization unpack all lpns
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;
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
7241: IF (l_debug = 1) 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;
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.
7725:
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
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;