[Home] [Help]
1: PACKAGE BODY inv_lpn_trx_pub AS
2: /* $Header: INVTRXWB.pls 120.46.12010000.7 2008/10/07 11:37:53 kkesavar 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.46.12010000.7 2008/10/07 11:37:53 kkesavar 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;
510: );
511:
512: IF (retval <> 0) THEN
513: IF (l_debug = 1) THEN
514: inv_log_util.TRACE('**Error from insertLot :' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
515: END IF;
516:
517: fnd_message.set_name('INV', 'INV_FAILED');
518: fnd_msg_pub.ADD;
519: RAISE fnd_api.g_exc_error;
520: END IF;
521:
522: IF (l_debug = 1) THEN
523: inv_log_util.TRACE('*Inserted Lot :' || curlpnrec.lot_number, 'INV_LPN_TRX_PUB', 9);
524: END IF;
525:
526: RETURN sertrxid;
527: END;
539: , p_to_ser_num => p_ser_number, x_proc_msg => ret_msgdata);
540:
541: IF (retval <> 0) THEN
542: IF (l_debug = 1) THEN
543: inv_log_util.TRACE('**Error from insertSerial :' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
544: END IF;
545:
546: fnd_message.set_name('INV', 'INV_FAILED');
547: fnd_msg_pub.ADD;
548: RAISE fnd_api.g_exc_error;
549: END IF;
550:
551: IF (l_debug = 1) THEN
552: inv_log_util.TRACE('*Inserted Serial:' || p_ser_number || ',trxid=' || p_sertrxid, 'INV_LPN_TRX_PUB', 9);
553: END IF;
554:
555: RETURN 0;
556: END;
631: l_primary_uom VARCHAR2(3); /*Bug#5486052*/
632: l_converted_qty NUMBER; /*Bug#5486052*/
633: BEGIN
634: IF (l_debug = 1) THEN
635: inv_log_util.TRACE('** exploding lpn_id =' || p_lpn_id || ',qty=' || p_mmtt.primary_quantity, 'INV_LPN_TRX_PUB', 9);
636: END IF;
637:
638: -- Bug 5103408 Add check for explode_lpn failure status.
639: -- Transaction should not continue if an error occurs during explosion
640: 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);
641:
642: IF ( ret_status <> fnd_api.g_ret_sts_success) THEN
643: IF (l_debug = 1) THEN
644: inv_log_util.TRACE('**Error: Failed in wms_container_pub.explode_lpn API :' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
645: END IF;
646:
647: RAISE fnd_api.g_exc_error;
648: END IF;
661: l_lpn_locator_id := p_mmtt.locator_id;
662: END IF;
663:
664: IF (l_debug = 1) THEN
665: inv_log_util.TRACE('LPN sub : ' || l_lpn_subinv || ',loc=' || l_lpn_locator_id, 'INV_LPN_TRX_PUB', 9);
666: END IF;
667:
668: --Check for batch ID and batch sequence. If they do not exist, populate them
669: --Also set inventory_item_id to -1 to ensure this record is processed first
668: --Check for batch ID and batch sequence. If they do not exist, populate them
669: --Also set inventory_item_id to -1 to ensure this record is processed first
670: --in the batch
671: IF (l_debug = 1) THEN
672: inv_log_util.TRACE('batch id=' || p_mmtt.transaction_batch_id || 'seq_id =' || p_mmtt.transaction_batch_seq, 'INV_LPN_TRX_PUB', 9);
673: END IF;
674:
675: IF (p_mmtt.transaction_batch_id IS NULL OR p_mmtt.transaction_batch_seq IS NULL) THEN
676: -- Batch id and sequence pair should be unique for this header_id.
694: , transaction_batch_seq = p_mmtt.transaction_batch_seq
695: WHERE transaction_interface_id = p_mmtt.transaction_temp_id;
696:
697: IF (l_debug = 1) THEN
698: inv_log_util.TRACE('From MTI, try update MTI batch and seq rowcount='||sql%rowcount, 'INV_LPN_TRX_PUB', 9);
699: END IF;
700:
701: IF ( sql%rowcount = 0 ) THEN
702: fnd_message.set_name('INV', 'INV_NO_RECORDS');
724: AND secondary_inventory_name = NVL(p_mmtt.transfer_subinventory, p_mmtt.subinventory_code);
725:
726: IF SQL%NOTFOUND THEN
727: IF (l_debug = 1) THEN
728: inv_log_util.TRACE('No sub found when checking lpn_controlled_flag', 'INV_LPN_TRX_PUB', 5);
729: END IF;
730:
731: fnd_message.set_name('INV', 'INV_INT_XSUBCODE');
732: fnd_msg_pub.ADD;
740: || ' and Sub '
741: || NVL(p_mmtt.transfer_subinventory, p_mmtt.subinventory_code)
742: || ', result='
743: || l_skip_comingle_check
744: , 'INV_LPN_TRX_PUB'
745: , 9
746: );
747: END IF;
748:
760: AND organization_id = NVL(p_mmtt.transfer_organization, p_mmtt.organization_id);
761: EXCEPTION
762: WHEN NO_DATA_FOUND THEN
763: l_skip_comingle_check := 2;
764: inv_log_util.TRACE('NOTFOUND l_skip_comingle_check=' || l_skip_comingle_check, 'INV_LPN_TRX_PUB', 5);
765: END;
766:
767: IF (l_debug = 1) THEN
768: inv_log_util.TRACE('Checked if is a pjm locator l_skip_comingle_check=' || l_skip_comingle_check, 'INV_LPN_TRX_PUB', 5);
764: inv_log_util.TRACE('NOTFOUND l_skip_comingle_check=' || l_skip_comingle_check, 'INV_LPN_TRX_PUB', 5);
765: END;
766:
767: IF (l_debug = 1) THEN
768: inv_log_util.TRACE('Checked if is a pjm locator l_skip_comingle_check=' || l_skip_comingle_check, 'INV_LPN_TRX_PUB', 5);
769: END IF;
770: END IF;
771: ELSE
772: l_skip_comingle_check := 1;
791: || ',sec_qty='
792: || curlpnrec.sec_quantity
793: || ',rev='
794: || curlpnrec.revision
795: , 'INV_LPN_TRX_PUB'
796: , 9
797: );
798: END IF;
799:
833: IF (curlpnrec.lot_number IS NOT NULL) THEN
834: IF (curlpnrec.lot_number <> lastlotnum) THEN
835: IF (lotqtychanged) THEN
836: IF (l_debug = 1) THEN
837: inv_log_util.TRACE('** Going to update last Lot rec1 qty = ' || lotqty, 'INV_LPN_TRX_PUB', 9);
838: END IF;
839:
840: UPDATE mtl_transaction_lots_temp
841: SET transaction_quantity = lotqty
847: lotqtychanged := FALSE;
848: END IF;
849:
850: IF (l_debug = 1) THEN
851: inv_log_util.TRACE('** Inserting Lot Number ' || curlpnrec.lot_number, 'INV_LPN_TRX_PUB', 9);
852: END IF;
853:
854: -- Bug 2795134/2712046 Comingle check failed when sub-transfer LPN to non-LPN controlled sub
855: -- Need to add check here as well for same item but different lot numbers
880: || ',p_loc='
881: || NVL(p_mmtt.transfer_to_location, p_mmtt.locator_id)
882: || ',p_cg_id='
883: || NVL(curlpnrec.cost_group_id, p_mmtt.cost_group_id)
884: , 'INV_LPN_TRX_PUB'
885: , 9
886: );
887: END IF;
888:
904: );
905:
906: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
907: IF (l_debug = 1) THEN
908: inv_log_util.TRACE('**Error: Failed in comingling_check API :' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
909: END IF;
910:
911: RAISE fnd_api.g_exc_error;
912: END IF;
912: END IF;
913:
914: IF (l_comingling_occurs = 'Y') THEN
915: IF (l_debug = 1) THEN
916: inv_log_util.TRACE('**Error: Transaction results in co-mingling :' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
917: END IF;
918:
919: SELECT cost_group
920: INTO l_cst_grp
942: END IF;
943: ELSE
944: IF (lotqtychanged) THEN
945: IF (l_debug = 1) THEN
946: inv_log_util.TRACE('** Going to update last Lot rec2 qty = ' || lotqty, 'INV_LPN_TRX_PUB', 9);
947: END IF;
948:
949: UPDATE mtl_transaction_lots_temp
950: SET transaction_quantity = lotqty
958: END IF;
959:
960: IF (curlpnrec.serial_number IS NOT NULL) THEN
961: IF (l_debug = 1) THEN
962: inv_log_util.TRACE('** Inserting Serial Number ' || curlpnrec.serial_number, 'INV_LPN_TRX_PUB', 9);
963: END IF;
964:
965: retval := insert_ser_trx(curlpnrec.serial_number, sertrxid);
966: l_pre_sertrxid := sertrxid;
996: || ',p_loc='
997: || NVL(p_mmtt.transfer_to_location, p_mmtt.locator_id)
998: || ',p_cg_id='
999: || NVL(curlpnrec.cost_group_id, p_mmtt.cost_group_id)
1000: , 'INV_LPN_TRX_PUB'
1001: , 9
1002: );
1003: END IF;
1004:
1019: );
1020:
1021: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1022: IF (l_debug = 1) THEN
1023: inv_log_util.TRACE('**Error: Failed in comingling_check API :' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
1024: END IF;
1025:
1026: RAISE fnd_api.g_exc_error;
1027: END IF;
1027: END IF;
1028:
1029: IF (l_comingling_occurs = 'Y') THEN
1030: IF (l_debug = 1) THEN
1031: inv_log_util.TRACE('**Error: Transaction results in co-mingling :' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
1032: END IF;
1033:
1034: SELECT cost_group
1035: INTO l_cst_grp
1056: END IF;
1057: END IF;
1058:
1059: IF (l_debug = 1) THEN
1060: inv_log_util.TRACE('** Going to upd lst rec1. qty = ' || v_lastitemqty, 'INV_LPN_TRX_PUB', 9);
1061: END IF;
1062:
1063: UPDATE mtl_material_transactions_temp
1064: SET transaction_quantity = v_lastitemqty
1072: p_mmtt.secondary_transaction_quantity := CASE WHEN v_lastitemsecqty <> 0 THEN v_lastitemsecqty ELSE p_mmtt.secondary_transaction_quantity END; --INVCONV kkillams
1073:
1074: IF (lotqtychanged) THEN
1075: IF (l_debug = 1) THEN
1076: inv_log_util.TRACE('** Going to upd lst lot3. qty = ' || lotqty, 'INV_LPN_TRX_PUB', 9);
1077: END IF;
1078:
1079: UPDATE mtl_transaction_lots_temp
1080: SET transaction_quantity = lotqty
1110: );
1111:
1112: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1113: IF (l_debug = 1) THEN
1114: inv_log_util.TRACE(' Error from CostGrpAPI:' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
1115: END IF;
1116:
1117: fnd_message.set_name('INV', 'INV_COST_GROUP_FAILURE');
1118: fnd_msg_pub.ADD;
1145:
1146: IF (l_debug = 1) THEN
1147: inv_log_util.TRACE(
1148: '** inserting into MMTT. Mode-Normal. Qty=' || itemqty || ',sub=' || l_lpn_subinv || ',loc=' || l_lpn_locator_id
1149: , 'INV_LPN_TRX_PUB'
1150: , 9
1151: );
1152: END IF;
1153:
1188: /*Bug#5486052. End.*/
1189:
1190:
1191: IF (l_debug = 1) THEN
1192: inv_log_util.TRACE('MMTT.retval=' || retval || ',lasttrxtmpid=' || v_lasttrxtmpid, 'INV_LPN_TRX_PUB', 9);
1193: END IF;
1194:
1195: IF (curlpnrec.lot_number IS NOT NULL) THEN
1196: sertrxid := insert_lot_trx(curlpnrec, v_lasttrxtmpid);
1276: );
1277:
1278: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1279: IF (l_debug = 1) THEN
1280: inv_log_util.TRACE(' Error from CostGrpAPI:' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
1281: END IF;
1282:
1283: fnd_message.set_name('INV', 'INV_COST_GROUP_FAILURE');
1284: fnd_msg_pub.ADD;
1309: BEGIN
1310: x_return_status := fnd_api.g_ret_sts_success;
1311:
1312: IF (l_debug = 1) THEN
1313: inv_log_util.TRACE('PO J installed', 'INV_LPN_TRX_PUB', 1);
1314: inv_log_util.TRACE('Updating FOB_POINT', 'INV_LPN_TRX_PUB', 1);
1315: inv_log_util.TRACE('organization_id' || v_mmtt.organization_id, 'INV_LPN_TRX_PUB', 1);
1316: inv_log_util.TRACE('xfr_organization_id' || v_mmtt.transfer_organization, 'INV_LPN_TRX_PUB', 1);
1317: inv_log_util.TRACE('trx_action_id' || v_mmtt.transaction_action_id, 'INV_LPN_TRX_PUB', 1);
1310: x_return_status := fnd_api.g_ret_sts_success;
1311:
1312: IF (l_debug = 1) THEN
1313: inv_log_util.TRACE('PO J installed', 'INV_LPN_TRX_PUB', 1);
1314: inv_log_util.TRACE('Updating FOB_POINT', 'INV_LPN_TRX_PUB', 1);
1315: inv_log_util.TRACE('organization_id' || v_mmtt.organization_id, 'INV_LPN_TRX_PUB', 1);
1316: inv_log_util.TRACE('xfr_organization_id' || v_mmtt.transfer_organization, 'INV_LPN_TRX_PUB', 1);
1317: inv_log_util.TRACE('trx_action_id' || v_mmtt.transaction_action_id, 'INV_LPN_TRX_PUB', 1);
1318: inv_log_util.TRACE('trx_temp_id' || v_mmtt.transaction_temp_id, 'INV_LPN_TRX_PUB', 1);
1311:
1312: IF (l_debug = 1) THEN
1313: inv_log_util.TRACE('PO J installed', 'INV_LPN_TRX_PUB', 1);
1314: inv_log_util.TRACE('Updating FOB_POINT', 'INV_LPN_TRX_PUB', 1);
1315: inv_log_util.TRACE('organization_id' || v_mmtt.organization_id, 'INV_LPN_TRX_PUB', 1);
1316: inv_log_util.TRACE('xfr_organization_id' || v_mmtt.transfer_organization, 'INV_LPN_TRX_PUB', 1);
1317: inv_log_util.TRACE('trx_action_id' || v_mmtt.transaction_action_id, 'INV_LPN_TRX_PUB', 1);
1318: inv_log_util.TRACE('trx_temp_id' || v_mmtt.transaction_temp_id, 'INV_LPN_TRX_PUB', 1);
1319: END IF;
1312: IF (l_debug = 1) THEN
1313: inv_log_util.TRACE('PO J installed', 'INV_LPN_TRX_PUB', 1);
1314: inv_log_util.TRACE('Updating FOB_POINT', 'INV_LPN_TRX_PUB', 1);
1315: inv_log_util.TRACE('organization_id' || v_mmtt.organization_id, 'INV_LPN_TRX_PUB', 1);
1316: inv_log_util.TRACE('xfr_organization_id' || v_mmtt.transfer_organization, 'INV_LPN_TRX_PUB', 1);
1317: inv_log_util.TRACE('trx_action_id' || v_mmtt.transaction_action_id, 'INV_LPN_TRX_PUB', 1);
1318: inv_log_util.TRACE('trx_temp_id' || v_mmtt.transaction_temp_id, 'INV_LPN_TRX_PUB', 1);
1319: END IF;
1320:
1313: inv_log_util.TRACE('PO J installed', 'INV_LPN_TRX_PUB', 1);
1314: inv_log_util.TRACE('Updating FOB_POINT', 'INV_LPN_TRX_PUB', 1);
1315: inv_log_util.TRACE('organization_id' || v_mmtt.organization_id, 'INV_LPN_TRX_PUB', 1);
1316: inv_log_util.TRACE('xfr_organization_id' || v_mmtt.transfer_organization, 'INV_LPN_TRX_PUB', 1);
1317: inv_log_util.TRACE('trx_action_id' || v_mmtt.transaction_action_id, 'INV_LPN_TRX_PUB', 1);
1318: inv_log_util.TRACE('trx_temp_id' || v_mmtt.transaction_temp_id, 'INV_LPN_TRX_PUB', 1);
1319: END IF;
1320:
1321: IF (v_mmtt.transaction_temp_id IS NULL) THEN
1314: inv_log_util.TRACE('Updating FOB_POINT', 'INV_LPN_TRX_PUB', 1);
1315: inv_log_util.TRACE('organization_id' || v_mmtt.organization_id, 'INV_LPN_TRX_PUB', 1);
1316: inv_log_util.TRACE('xfr_organization_id' || v_mmtt.transfer_organization, 'INV_LPN_TRX_PUB', 1);
1317: inv_log_util.TRACE('trx_action_id' || v_mmtt.transaction_action_id, 'INV_LPN_TRX_PUB', 1);
1318: inv_log_util.TRACE('trx_temp_id' || v_mmtt.transaction_temp_id, 'INV_LPN_TRX_PUB', 1);
1319: END IF;
1320:
1321: IF (v_mmtt.transaction_temp_id IS NULL) THEN
1322: x_msg_data := 'Trx_temp_id is null return success';
1321: IF (v_mmtt.transaction_temp_id IS NULL) THEN
1322: x_msg_data := 'Trx_temp_id is null return success';
1323:
1324: IF (l_debug = 1) THEN
1325: inv_log_util.TRACE('Trx_temp_id is null return success', 'INV_LPN_TRX_PUB', 1);
1326: END IF;
1327:
1328: RETURN;
1329: END IF;
1339: AND to_organization_id = v_mmtt.transfer_organization;
1340: EXCEPTION
1341: WHEN NO_DATA_FOUND THEN
1342: IF (l_debug = 1) THEN
1343: inv_log_util.TRACE('no data found INV_FOB_NOT_DEFINED', 'INV_LPN_TRX_PUB', 1);
1344: END IF;
1345:
1346: fnd_message.set_name('INV', 'INV_FOB_NOT_DEFINED');
1347: fnd_message.set_token('ENTITY1', v_mmtt.organization_id);
1365: WHERE transaction_id =v_mmtt.rcv_transaction_id;
1366: EXCEPTION
1367: WHEN NO_DATA_FOUND THEN
1368: IF (l_debug = 1) THEN
1369: inv_log_util.TRACE('no data found rcv_transactions', 'INV_LPN_TRX_PUB', 1);
1370: END IF;
1371:
1372: RAISE fnd_api.g_exc_error;
1373: END;
1397: AND to_organization_id = v_mmtt.organization_id;
1398: EXCEPTION
1399: WHEN NO_DATA_FOUND THEN
1400: IF (l_debug = 1) THEN
1401: inv_log_util.TRACE('no data found INV_FOB_NOT_DEFINED', 'INV_LPN_TRX_PUB', 1);
1402: END IF;
1403: fnd_message.set_name('INV', 'INV_FOB_NOT_DEFINED');
1404: fnd_message.set_token('ENTITY1', v_mmtt.organization_id);
1405: fnd_msg_pub.ADD;
1415: WHERE transaction_id = l_mmt_transaction_id;
1416: EXCEPTION
1417: WHEN NO_DATA_FOUND THEN
1418: IF (l_debug = 1) THEN
1419: inv_log_util.TRACE('no data found mtl_material_transactions', 'INV_LPN_TRX_PUB', 1);
1420: END IF;
1421: RAISE fnd_api.g_exc_error;
1422: END;
1423: END IF;
1514: -- If content_lpn_id column has value then discard the item_id
1515: -- If content_lpn_id is Not NULL then we are packing/unpacking a
1516: -- whole LPN to/from another LPN, so no need to consider Lots and Serials
1517: IF (l_debug = 1) THEN
1518: inv_log_util.TRACE('** pack/unpack of whole LPN **', 'INV_LPN_TRX_PUB', 9);
1519: END IF;
1520:
1521: WMS_Container_PVT.PackUnpack_Container(
1522: p_api_version => 1.0
1546: );
1547:
1548: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1549: IF (l_debug = 1) THEN
1550: inv_log_util.TRACE('**Error from LPN pack/unpack :' || ret_status, 'INV_LPN_TRX_PUB', 1);
1551: inv_log_util.TRACE(
1552: '**p_lpn='
1553: || p_lpn
1554: || ',p_content_lpn='
1558: || ',p_revision='
1559: || p_revision
1560: || ',p_org_id='
1561: || p_org_id
1562: , 'INV_LPN_TRX_PUB'
1563: , 1
1564: );
1565: END IF;
1566:
1566:
1567: IF (l_debug = 1) THEN
1568: inv_log_util.TRACE(
1569: ',p_subinv=' || p_subinv || ',p_locator=' || p_locator || ',p_operation=' || p_operation || ',p_cost_grp_id=' || p_cost_grp_id
1570: , 'INV_LPN_TRX_PUB'
1571: , 1
1572: );
1573: END IF;
1574:
1590: v_serfound := FALSE;
1591:
1592: FOR v_sertmp IN c_sertmp LOOP
1593: IF (l_debug = 1) THEN
1594: inv_log_util.TRACE('** Lot and Serial controlled**', 'INV_LPN_TRX_PUB', 9);
1595: END IF;
1596:
1597: v_serfound := TRUE;
1598:
1609: AND p_source_type_id = 12 /*rma*/
1610: AND p_trx_action = 27 /*receipt*/
1611: AND p_operation = 1 /*pack*/
1612: ) THEN /*pack as vanilla*/
1613: inv_log_util.TRACE('** Packing rma so issue serial as vanilla for receipt**', 'INV_LPN_TRX_PUB', 9);
1614: WMS_Container_PVT.PackUnpack_Container (
1615: p_api_version => 1.0
1616: , p_init_msg_list => fnd_api.g_false
1617: , x_return_status => ret_status
1669: END IF; /*end of 3158847*/
1670:
1671: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1672: IF (l_debug = 1) THEN
1673: inv_log_util.TRACE('**Error from pack/unpack :' || ret_status, 'INV_LPN_TRX_PUB', 1);
1674: inv_log_util.TRACE(
1675: '**p_lpn='
1676: || p_lpn
1677: || ',p_content_lpn='
1683: || ',v_lotnum='
1684: || v_lotnum
1685: || ',ser='
1686: || v_sertmp.fm_serial_number
1687: , 'INV_LPN_TRX_PUB'
1688: , 1
1689: );
1690: inv_log_util.TRACE(
1691: ',p_org_id='
1697: || ',p_operation='
1698: || p_operation
1699: || ',p_cost_grp_id='
1700: || p_cost_grp_id
1701: , 'INV_LPN_TRX_PUB'
1702: , 1
1703: );
1704: END IF;
1705:
1710: END LOOP;
1711:
1712: IF (NOT v_serfound) THEN
1713: IF (l_debug = 1) THEN
1714: inv_log_util.TRACE('**** Lot controlled **', 'INV_LPN_TRX_PUB', 9);
1715: END IF;
1716:
1717: WMS_Container_PVT.PackUnpack_Container (
1718: p_api_version => 1.0
1743: );
1744:
1745: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1746: IF (l_debug = 1) THEN
1747: inv_log_util.TRACE('**Error from pack/unpack :' || ret_status, 'INV_LPN_TRX_PUB', 1);
1748: inv_log_util.TRACE(
1749: '**p_lpn='
1750: || p_lpn
1751: || ',p_content_lpn='
1757: || 'lot='
1758: || v_lotnum
1759: || ',p_org_id='
1760: || p_org_id
1761: , 'INV_LPN_TRX_PUB'
1762: , 1
1763: );
1764: inv_log_util.TRACE(
1765: ',p_subinv=' || p_subinv || ',p_locator=' || p_locator || ',p_operation=' || p_operation || ',p_cost_grp_id='
1763: );
1764: inv_log_util.TRACE(
1765: ',p_subinv=' || p_subinv || ',p_locator=' || p_locator || ',p_operation=' || p_operation || ',p_cost_grp_id='
1766: || p_cost_grp_id
1767: , 'INV_LPN_TRX_PUB'
1768: , 1
1769: );
1770: END IF;
1771:
1782:
1783: FOR v_sertmp IN c_sertmp LOOP
1784: IF (l_debug = 1) THEN
1785: inv_log_util.TRACE('** Serial controlled**.fmser=' || v_sertmp.fm_serial_number || ', toser=' || v_sertmp.to_serial_number
1786: , 'INV_LPN_TRX_PUB', 9);
1787: END IF;
1788:
1789: v_serfound := TRUE;
1790:
1801: AND p_source_type_id = 12 /*rma*/
1802: AND p_trx_action = 27 /*receipt*/
1803: AND p_operation = 1 /*pack*/
1804: ) THEN /*pack as vanilla*/
1805: inv_log_util.TRACE('** Packing rma so issue serial as vanilla for receipt**', 'INV_LPN_TRX_PUB', 9);
1806: WMS_Container_PVT.PackUnpack_Container (
1807: p_api_version => 1.0
1808: , p_init_msg_list => fnd_api.g_false
1809: , x_return_status => ret_status
1871: || ',item_id='
1872: || item_id
1873: || ',fmser='
1874: || v_sertmp.fm_serial_number
1875: , 'INV_LPN_TRX_PUB'
1876: , 1
1877: );
1878: inv_log_util.TRACE(
1879: 'toser=' || v_sertmp.to_serial_number || ',org=' || p_org_id || ',p_subinv=' || p_subinv || ',p_locator=' || p_locator
1876: , 1
1877: );
1878: inv_log_util.TRACE(
1879: 'toser=' || v_sertmp.to_serial_number || ',org=' || p_org_id || ',p_subinv=' || p_subinv || ',p_locator=' || p_locator
1880: , 'INV_LPN_TRX_PUB'
1881: , 9
1882: );
1883: END IF;
1884:
1889: END LOOP;
1890:
1891: IF (NOT v_serfound) THEN
1892: IF (l_debug = 1) THEN
1893: inv_log_util.TRACE('** NOT Lot OR Serial controlled**', 'INV_LPN_TRX_PUB', 9);
1894: END IF;
1895:
1896: WMS_Container_PVT.PackUnpack_Container (
1897: p_api_version => 1.0
1921: );
1922:
1923: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1924: IF (l_debug = 1) THEN
1925: inv_log_util.TRACE('**Error from pack/unpack :' || ret_status, 'INV_LPN_TRX_PUB', 1);
1926: inv_log_util.TRACE(
1927: '**p_lpn='
1928: || p_lpn
1929: || ',p_content_lpn='
1933: || ',p_revision='
1934: || p_revision
1935: || ',p_org_id='
1936: || p_org_id
1937: , 'INV_LPN_TRX_PUB'
1938: , 1
1939: );
1940: END IF;
1941:
1942: IF (l_debug = 1) THEN
1943: inv_log_util.TRACE(
1944: ',p_subinv=' || p_subinv || ',p_locator=' || p_locator || ',p_operation=' || p_operation || ',p_cost_grp_id='
1945: || p_cost_grp_id
1946: , 'INV_LPN_TRX_PUB'
1947: , 1
1948: );
1949: END IF;
1950:
1957: END IF; -- p_content_lpn is NULL
1958:
1959: IF (p_operation = g_pack) THEN
1960: IF (l_debug = 1) THEN
1961: inv_log_util.TRACE('** Pack OK', 'INV_LPN_TRX_PUB', 9);
1962: END IF;
1963: ELSIF(p_operation = g_unpack) THEN
1964: IF (l_debug = 1) THEN
1965: inv_log_util.TRACE('** Unpack OK', 'INV_LPN_TRX_PUB', 9);
1961: inv_log_util.TRACE('** Pack OK', 'INV_LPN_TRX_PUB', 9);
1962: END IF;
1963: ELSIF(p_operation = g_unpack) THEN
1964: IF (l_debug = 1) THEN
1965: inv_log_util.TRACE('** Unpack OK', 'INV_LPN_TRX_PUB', 9);
1966: END IF;
1967: END IF;
1968: END;
1969:
1986: );
1987:
1988: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1989: IF (l_debug = 1) THEN
1990: inv_log_util.TRACE('Error from modify_lpn :' || ret_status, 'INV_LPN_TRX_PUB', 1);
1991: inv_log_util.TRACE('Error msg :' || ret_msgdata || 'msgcnt=' || ret_msgcnt, 'INV_LPN_TRX_PUB', 1);
1992: END IF;
1993:
1994: fnd_message.set_name('INV', 'INV_LPN_UPDATE_FAILURE');
1987:
1988: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1989: IF (l_debug = 1) THEN
1990: inv_log_util.TRACE('Error from modify_lpn :' || ret_status, 'INV_LPN_TRX_PUB', 1);
1991: inv_log_util.TRACE('Error msg :' || ret_msgdata || 'msgcnt=' || ret_msgcnt, 'INV_LPN_TRX_PUB', 1);
1992: END IF;
1993:
1994: fnd_message.set_name('INV', 'INV_LPN_UPDATE_FAILURE');
1995: fnd_msg_pub.ADD;
2006: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
2007: l_sertmp_rec mtl_serial_numbers_temp%ROWTYPE;
2008: BEGIN
2009: IF (l_debug = 1) THEN
2010: inv_log_util.TRACE('Call to Copy_MSNT rowid=' || p_source_row_id, 'INV_LPN_TRX_PUB', 9);
2011: inv_log_util.TRACE('newsertrxid=' || p_new_sertrxid || ' newfsn=' || p_new_fm_serial || ' newtsn=' || p_new_to_serial
2012: , 'INV_LPN_TRX_PUB', 9);
2013: END IF;
2014:
2008: BEGIN
2009: IF (l_debug = 1) THEN
2010: inv_log_util.TRACE('Call to Copy_MSNT rowid=' || p_source_row_id, 'INV_LPN_TRX_PUB', 9);
2011: inv_log_util.TRACE('newsertrxid=' || p_new_sertrxid || ' newfsn=' || p_new_fm_serial || ' newtsn=' || p_new_to_serial
2012: , 'INV_LPN_TRX_PUB', 9);
2013: END IF;
2014:
2015: SELECT *
2016: INTO l_sertmp_rec
3481: BEGIN
3482: IF (l_debug = 1) THEN
3483: inv_log_util.TRACE(
3484: 'Call to PROCESS_LPN_TRX trxhdr=' || p_trx_hdr_id || ',procmode=' || p_proc_mode || ',bflow=' || p_business_flow_code
3485: , 'INV_LPN_TRX_PUB'
3486: , 9
3487: );
3488: END IF;
3489:
3501: IF l_dcp_profile IS NULL THEN
3502: l_dcp_profile := inv_dcp_pvt.is_dcp_enabled;
3503: END IF;
3504: IF (l_debug = 1) THEN
3505: inv_log_util.TRACE('l_dcp_profile :'||l_dcp_profile,'INV_LPN_TRX_PUB',9);
3506: END IF;
3507: IF (l_dcp_profile =1) then
3508: INV_DCP_PVT.validate_data(
3509: p_dcp_event => 'Validate MMTT',
3513: p_raise_exception => 'N',
3514: x_return_status => l_dcp_return_status);
3515: END IF;
3516: IF (l_debug = 1) THEN
3517: inv_log_util.TRACE('After DCP Call -'||l_dcp_return_status,'INV_LPN_TRX_PUB',9);
3518: END IF;
3519: EXCEPTION
3520: WHEN OTHERS THEN
3521: IF (l_debug = 1) THEN
3518: END IF;
3519: EXCEPTION
3520: WHEN OTHERS THEN
3521: IF (l_debug = 1) THEN
3522: inv_log_util.TRACE('DCP Error :'||substr(sqlerrm,1,240),'INV_LPN_TRX_PUB',9);
3523: END IF;
3524: END; ---}
3525:
3526:
3527: -- For BUG 2919763, initializing the message stack only if the new parameter
3528: -- p_init_msg_list is true.
3529: IF (p_init_msg_list = TRUE) THEN
3530: IF (l_debug = 1) THEN
3531: inv_log_util.TRACE('Initializing the message list', 'INV_LPN_TRX_PUB', 9);
3532: END IF;
3533: fnd_msg_pub.initialize;
3534: END IF;
3535:
3543: IF (l_proc_mode IS NULL) THEN
3544: l_proc_mode := fnd_profile.VALUE('TRANSACTION_PROCESS_MODE');
3545:
3546: IF (l_debug = 1) THEN
3547: inv_log_util.TRACE('TRANSACTION_PROCESS_MODE for ProcMode= ' || l_proc_mode, 'INV_LPN_TRX_PUB', 9);
3548: END IF;
3549:
3550: -- if trx_process_mode is set for control at form level, then query
3551: -- form level profiles
3581: l_is_cartonization := 0;
3582: END;
3583:
3584: IF (l_debug = 1) THEN
3585: inv_log_util.TRACE('l_is_cartonization=' || l_is_cartonization, 'INV_LPN_TRX_PUB', 9);
3586: END IF;
3587:
3588: IF (l_is_cartonization = 1) THEN
3589: -- Cartonization request call cartonization process
3587:
3588: IF (l_is_cartonization = 1) THEN
3589: -- Cartonization request call cartonization process
3590: IF (l_debug = 1) THEN
3591: inv_log_util.TRACE('**** Cartonization transaction', 'INV_LPN_TRX_PUB', 9);
3592: END IF;
3593:
3594: -- Retrieve level and organization information for cartonization
3595: -- If there is a mix of contaner levels, take the maxium level. If
3606: GROUP BY organization_id;
3607: EXCEPTION
3608: WHEN NO_DATA_FOUND THEN
3609: IF (l_debug = 1) THEN
3610: inv_log_util.TRACE('no rows retrieve when finding org and level for Cartonization', 'INV_LPN_TRX_PUB', 1);
3611: END IF;
3612:
3613: RAISE fnd_api.g_exc_unexpected_error;
3614: WHEN OTHERS THEN
3612:
3613: RAISE fnd_api.g_exc_unexpected_error;
3614: WHEN OTHERS THEN
3615: IF (l_debug = 1) THEN
3616: inv_log_util.TRACE('Unexpected error when finding org and level for Cartonization', 'INV_LPN_TRX_PUB', 1);
3617: END IF;
3618:
3619: RAISE fnd_api.g_exc_unexpected_error;
3620: END;
3640: );
3641:
3642: IF (ret_status = fnd_api.g_ret_sts_error) THEN
3643: IF (l_debug = 1) THEN
3644: inv_log_util.TRACE('Error in calling Cartonization', 'INV_LPN_TRX_PUB', 1);
3645: END IF;
3646:
3647: RAISE fnd_api.g_exc_error;
3648: ELSIF(ret_status = fnd_api.g_ret_sts_unexp_error) THEN
3646:
3647: RAISE fnd_api.g_exc_error;
3648: ELSIF(ret_status = fnd_api.g_ret_sts_unexp_error) THEN
3649: IF (l_debug = 1) THEN
3650: inv_log_util.TRACE('Unexpectied error in calling Cartonization', 'INV_LPN_TRX_PUB', 1);
3651: END IF;
3652:
3653: RAISE fnd_api.g_exc_unexpected_error;
3654: ELSIF(ret_status <> fnd_api.g_ret_sts_success) THEN
3652:
3653: RAISE fnd_api.g_exc_unexpected_error;
3654: ELSIF(ret_status <> fnd_api.g_ret_sts_success) THEN
3655: IF (l_debug = 1) THEN
3656: inv_log_util.TRACE('Undefined error in calling Cartonization', 'INV_LPN_TRX_PUB', 1);
3657: END IF;
3658:
3659: RAISE fnd_api.g_exc_unexpected_error;
3660: END IF;
3659: RAISE fnd_api.g_exc_unexpected_error;
3660: END IF;
3661:
3662: IF (l_debug = 1) THEN
3663: inv_log_util.TRACE('Done with call to Cartonization', 'INV_LPN_TRX_PUB', 9);
3664: END IF;
3665:
3666: --Need to transfer cartonization_id to transfer_lpn_id to pack into
3667: --suggested LPN
3665:
3666: --Need to transfer cartonization_id to transfer_lpn_id to pack into
3667: --suggested LPN
3668: IF (l_debug = 1) THEN
3669: inv_log_util.TRACE('Transfering Cartonization suggestions', 'INV_LPN_TRX_PUB', 9);
3670: END IF;
3671:
3672: UPDATE mtl_material_transactions_temp
3673: SET transfer_lpn_id = cartonization_id
3673: SET transfer_lpn_id = cartonization_id
3674: WHERE transaction_header_id = p_trx_hdr_id;
3675:
3676: IF (l_debug = 1) THEN
3677: inv_log_util.TRACE('Done transfering Cartonization suggestions', 'INV_LPN_TRX_PUB', 9);
3678: END IF;
3679: END IF;
3680: END IF;
3681:
3690:
3691: --************* Open cursor into MMTT *************
3692: FOR v_mmtt IN c_mmtt LOOP
3693: IF (l_debug = 1) THEN
3694: 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);
3695: 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);
3696: 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);
3697: inv_log_util.TRACE('ccid='||v_mmtt.cycle_count_id, 'INV_LPN_TRX_PUB', 9);
3698: END IF;
3691: --************* Open cursor into MMTT *************
3692: FOR v_mmtt IN c_mmtt LOOP
3693: IF (l_debug = 1) THEN
3694: 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);
3695: 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);
3696: 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);
3697: inv_log_util.TRACE('ccid='||v_mmtt.cycle_count_id, 'INV_LPN_TRX_PUB', 9);
3698: END IF;
3699:
3692: FOR v_mmtt IN c_mmtt LOOP
3693: IF (l_debug = 1) THEN
3694: 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);
3695: 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);
3696: 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);
3697: inv_log_util.TRACE('ccid='||v_mmtt.cycle_count_id, 'INV_LPN_TRX_PUB', 9);
3698: END IF;
3699:
3700: BEGIN
3693: IF (l_debug = 1) THEN
3694: 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);
3695: 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);
3696: 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);
3697: inv_log_util.TRACE('ccid='||v_mmtt.cycle_count_id, 'INV_LPN_TRX_PUB', 9);
3698: END IF;
3699:
3700: BEGIN
3701: /* Jalaj Srivastava Bug 4634410
3732:
3733: IF (NOT l_lot_indiv_trx_valid) THEN
3734: -- the transaction is not valid regarding lot indivisible:
3735: IF (l_debug = 1) THEN
3736: inv_log_util.trace('in proc process_lpn_trx. lot indivisibility error', 'INV_LPN_TRX_PUB', 9);
3737: END IF;
3738: RAISE FND_API.G_EXC_ERROR;
3739: END IF;
3740: ELSE
3758:
3759: IF (NOT l_lot_indiv_trx_valid) THEN
3760: -- the transaction is not valid regarding lot indivisible:
3761: IF (l_debug = 1) THEN
3762: inv_log_util.trace('in proc process_lpn_trx. lot indivisibility error', 'INV_LPN_TRX_PUB', 9);
3763: END IF;
3764: RAISE FND_API.G_EXC_ERROR;
3765: END IF;
3766:
3775: l_eres_tbl(tbl_index).transaction_action_id := v_mmtt.transaction_action_id;
3776: l_eres_tbl(tbl_index).transaction_source_type_id := v_mmtt.transaction_source_type_id;
3777:
3778: IF (l_debug = 1) THEN
3779: inv_log_util.TRACE('ERES event id => ' || l_eres_tbl(tbl_index).event_id, 'INV_LPN_TRX_PUB', 9);
3780: inv_log_util.TRACE('Transaction Action Id => ' || l_eres_tbl(tbl_index).transaction_action_id, 'INV_LPN_TRX_PUB', 9);
3781: inv_log_util.TRACE('Transaction Source Type Id => ' || l_eres_tbl(tbl_index).transaction_source_type_id, 'INV_LPN_TRX_PUB', 9);
3782: END IF;
3783: END IF;
3776: l_eres_tbl(tbl_index).transaction_source_type_id := v_mmtt.transaction_source_type_id;
3777:
3778: IF (l_debug = 1) THEN
3779: inv_log_util.TRACE('ERES event id => ' || l_eres_tbl(tbl_index).event_id, 'INV_LPN_TRX_PUB', 9);
3780: inv_log_util.TRACE('Transaction Action Id => ' || l_eres_tbl(tbl_index).transaction_action_id, 'INV_LPN_TRX_PUB', 9);
3781: inv_log_util.TRACE('Transaction Source Type Id => ' || l_eres_tbl(tbl_index).transaction_source_type_id, 'INV_LPN_TRX_PUB', 9);
3782: END IF;
3783: END IF;
3784:
3777:
3778: IF (l_debug = 1) THEN
3779: inv_log_util.TRACE('ERES event id => ' || l_eres_tbl(tbl_index).event_id, 'INV_LPN_TRX_PUB', 9);
3780: inv_log_util.TRACE('Transaction Action Id => ' || l_eres_tbl(tbl_index).transaction_action_id, 'INV_LPN_TRX_PUB', 9);
3781: inv_log_util.TRACE('Transaction Source Type Id => ' || l_eres_tbl(tbl_index).transaction_source_type_id, 'INV_LPN_TRX_PUB', 9);
3782: END IF;
3783: END IF;
3784:
3785: /*------------------------------------------------------+
3840: l_prev_trx_batch_id := v_mmtt.transaction_batch_id;
3841: l_current_group_status := fnd_api.g_ret_sts_success;
3842:
3843: IF (l_debug = 1) THEN
3844: inv_log_util.TRACE('new group savepoint prevbatchid=' || l_prev_trx_batch_id, 'INV_LPN_TRX_PUB', 9);
3845: END IF;
3846: END IF;
3847:
3848: -- Skip records that are of the same trx group where a record has failed
3877: ) THEN
3878: l_proc_mode := fnd_profile.VALUE('SUBINV_TRANS_TXN');
3879:
3880: IF (l_debug = 1) THEN
3881: inv_log_util.TRACE('Using SUBINV_TRANS_TXN to set process_mode. ProcMode=' || l_proc_mode, 'INV_LPN_TRX_PUB', 9);
3882: END IF;
3883: ELSIF(
3884: (
3885: (v_mmtt.transaction_source_type_id = inv_globals.g_sourcetype_inventory)
3892: ) THEN
3893: l_proc_mode := fnd_profile.VALUE('ACCOUNT_ISSUE_TXN');
3894:
3895: IF (l_debug = 1) THEN
3896: inv_log_util.TRACE('Using ACCOUNT_ISSUE_TXN to set process_mode. ProcMode = ' || l_proc_mode, 'INV_LPN_TRX_PUB', 9);
3897: END IF;
3898: ELSIF(
3899: (v_mmtt.transaction_source_type_id = inv_globals.g_sourcetype_moveorder)
3900: AND(
3904: ) THEN
3905: l_proc_mode := fnd_profile.VALUE('TRANSFER_ORDER_TXN');
3906:
3907: IF (l_debug = 1) THEN
3908: inv_log_util.TRACE('Using TRANSFER_ORDER_TXN to set process_mode. ProcMode = ' || l_proc_mode, 'INV_LPN_TRX_PUB', 9);
3909: END IF;
3910: ELSIF(
3911: (v_mmtt.transaction_source_type_id = inv_globals.g_sourcetype_inventory)
3912: AND(
3916: ) THEN
3917: l_proc_mode := fnd_profile.VALUE('INTER_ORG_SHIP_TXN');
3918:
3919: IF (l_debug = 1) THEN
3920: inv_log_util.TRACE('Using INTER_ORG_SHIP_TXN to set process_mode. ProcMode = ' || l_proc_mode, 'INV_LPN_TRX_PUB', 9);
3921: END IF;
3922: END IF;
3923: END IF;
3924:
3925: -- Sanity check. If the transaction-process mode is still Not set, then
3926: -- perform an online transaction
3927: IF (l_proc_mode IS NULL) THEN
3928: IF (l_debug = 1) THEN
3929: inv_log_util.TRACE('Warning: TrxProcess profile not set ', 'INV_LPN_TRX_PUB', 2);
3930: END IF;
3931:
3932: l_proc_mode := 1;
3933: END IF;
3957: , x_msg_count => l_fob_msg_count);
3958:
3959: IF (l_fob_ret_sts <> fnd_api.g_ret_sts_success) THEN
3960: IF (l_debug = 1) THEN
3961: inv_log_util.TRACE(' Error from update_fob_point:' || l_fob_ret_msg, 'INV_LPN_TRX_PUB', 1);
3962: END IF;
3963:
3964: fnd_message.set_name('INV', 'INV_FOB_NOT_DEFINED');
3965: fnd_message.set_token('ENTITY1', v_mmtt.organization_id);
3976: --installed.
3977: IF (v_mmtt.transaction_source_type_id = 5
3978: AND wip_constants.dmf_patchset_level >= wip_constants.dmf_patchset_j_value) THEN
3979: IF (wip_mtltempproc_grp.istxnidrequired(v_mmtt.transaction_temp_id)) THEN
3980: inv_log_util.TRACE('Going to update mmtt with material_allocation_temp_id', 'INV_LPN_TRX_PUB', 1);
3981:
3982: UPDATE mtl_material_transactions_temp
3983: SET material_allocation_temp_id = mtl_material_transactions_s.NEXTVAL
3984: WHERE transaction_temp_id = v_mmtt.transaction_temp_id;
4017: );
4018:
4019: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
4020: IF (l_debug = 1) THEN
4021: inv_log_util.TRACE(' Error from CostGrpAPI:' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
4022: END IF;
4023: --Bug 3804314: The message from the cost group API is
4024: --overwritten by INV_COST_GROUP_FAILURE. Commenting the message.
4025: --fnd_message.set_name('INV', 'INV_COST_GROUP_FAILURE');
4052: fnd_msg_pub.ADD;
4053: x_proc_msg := fnd_msg_pub.get(fnd_msg_pub.g_last, 'F');
4054:
4055: IF (l_debug = 1) THEN
4056: inv_log_util.TRACE('Concurrent Req. submitted: ' || l_req_id, 'INV_LPN_TRX_PUB', 9);
4057: END IF;
4058:
4059: RETURN 0;
4060: END IF;
4059: RETURN 0;
4060: END IF;
4061: ELSIF l_proc_mode = 3 THEN -- Background mode
4062: IF (l_debug = 1) THEN
4063: inv_log_util.TRACE('** Background request submitted **', 'INV_LPN_TRX_PUB', 9);
4064: END IF;
4065:
4066: -- In this case, the background transaction manager would pick
4067: -- up this row from MMTT. Update transaction_mode and return to caller
4094: AND(v_mmtt.primary_quantity > 0)
4095: ) THEN
4096:
4097: IF (l_debug = 1) THEN
4098: inv_log_util.trace('sign of quantity is not -ve for temp_id '||v_mmtt.transaction_temp_id, 'INV_LPN_TRX_PUB',9);
4099: END IF;
4100:
4101: v_mmtt.primary_quantity := -1 * v_mmtt.primary_quantity;
4102: v_mmtt.transaction_quantity := -1 * ABS(v_mmtt.transaction_quantity);
4116: WHERE TRANSACTION_TEMP_ID = v_mmtt.transaction_temp_id
4117: AND PRIMARY_QUANTITY > 0;
4118:
4119: IF (l_debug = 1) THEN
4120: inv_log_util.trace('Made the sign -ve for temp_id '||v_mmtt.transaction_temp_id, 'INV_LPN_TRX_PUB',9);
4121: END IF;
4122:
4123: END IF;
4124:
4133: AND v_mmtt.transaction_source_type_id IN(4, 5)
4134: AND mtrh.move_order_type = 6
4135: AND ROWNUM < 2;
4136:
4137: inv_log_util.TRACE(' Patchset J code. Do not explode LPN for Putaway ', 'INV_LPN_TRX_PUB', 1);
4138: EXCEPTION
4139: WHEN OTHERS THEN
4140: inv_log_util.TRACE(' Exception while exploding ', 'INV_LPN_TRX_PUB', 1);
4141: l_putway_explode_req := 'N';
4136:
4137: inv_log_util.TRACE(' Patchset J code. Do not explode LPN for Putaway ', 'INV_LPN_TRX_PUB', 1);
4138: EXCEPTION
4139: WHEN OTHERS THEN
4140: inv_log_util.TRACE(' Exception while exploding ', 'INV_LPN_TRX_PUB', 1);
4141: l_putway_explode_req := 'N';
4142: END;
4143: END IF;
4144:
4158: expldrowcnt := explode_and_insert(v_mmtt.content_lpn_id, p_trx_hdr_id, v_mmtt);
4159:
4160: IF (expldrowcnt = -1) THEN
4161: IF (l_debug = 1) THEN
4162: inv_log_util.TRACE(' Failed in EXPLODE_AND_INSERT!!', 'INV_LPN_TRX_PUB', 1);
4163: END IF;
4164:
4165: fnd_message.set_name('INV', 'INV_FAILED');
4166: fnd_msg_pub.ADD;
4170:
4171: insrowcnt := insrowcnt + expldrowcnt;
4172:
4173: IF (l_debug = 1) THEN
4174: inv_log_util.TRACE('Done exploding new lpn expldrowcnt=' || expldrowcnt || ' insrowcnt=' || insrowcnt, 'INV_LPN_TRX_PUB', 9);
4175: END IF;
4176: ELSIF ( l_putway_explode_req = 'Y' AND v_mmtt.cost_group_id IS NULL ) THEN
4177: -- bug4475607 For WIP putaway transactions contents are not exploded, but the
4178: -- cost group id may not exist on the record. Call cost group api
4189: , x_transfer_cost_group_id => l_xfr_cst_grp_id );
4190:
4191: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
4192: IF (l_debug = 1) THEN
4193: inv_log_util.TRACE(' Error from CostGrpAPI:' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
4194: END IF;
4195: RAISE fnd_api.g_exc_error;
4196: END IF;
4197: END IF;
4216: WHEN OTHERS THEN
4217: IF (l_debug = 1) THEN
4218: inv_log_util.TRACE(
4219: '***Error g_exec in c_mmtt loop trxtmpid=' || v_mmtt.transaction_temp_id || ',Sqlerrm:' || SUBSTR(SQLERRM, 1, 100)
4220: , 'INV_LPN_TRX_PUB'
4221: , 1
4222: );
4223: END IF;
4224:
4227: x_proc_msg := fnd_msg_pub.get(fnd_msg_pub.g_previous, 'F');
4228: failedrowcnt := failedrowcnt + 1;
4229:
4230: IF (l_debug = 1) THEN
4231: inv_log_util.TRACE('failedrowcnt=' || failedrowcnt || ' msg=' || x_proc_msg, 'INV_LPN_TRX_PUB', 1);
4232: END IF;
4233:
4234: ROLLBACK TO group_savepoint;
4235:
4391: set secondary_transaction_quantity = l_secondary_txn_quantity
4392: where transaction_temp_id = v_mmtt.transaction_temp_id;
4393: END IF;
4394: IF (l_debug = 1) THEN
4395: inv_log_util.trace('before calling java TM transaction quantity='||v_mmtt.transaction_quantity, 'INV_LPN_TRX_PUB',9);
4396: inv_log_util.trace('before calling java TM secondary transaction quantity='||l_secondary_txn_quantity, 'INV_LPN_TRX_PUB',9);
4397: inv_log_util.trace('before calling java TM primary quantity='||v_mmtt.primary_quantity, 'INV_LPN_TRX_PUB',9);
4398: END IF;
4399: END LOOP;
4392: where transaction_temp_id = v_mmtt.transaction_temp_id;
4393: END IF;
4394: IF (l_debug = 1) THEN
4395: inv_log_util.trace('before calling java TM transaction quantity='||v_mmtt.transaction_quantity, 'INV_LPN_TRX_PUB',9);
4396: inv_log_util.trace('before calling java TM secondary transaction quantity='||l_secondary_txn_quantity, 'INV_LPN_TRX_PUB',9);
4397: inv_log_util.trace('before calling java TM primary quantity='||v_mmtt.primary_quantity, 'INV_LPN_TRX_PUB',9);
4398: END IF;
4399: END LOOP;
4400:
4393: END IF;
4394: IF (l_debug = 1) THEN
4395: inv_log_util.trace('before calling java TM transaction quantity='||v_mmtt.transaction_quantity, 'INV_LPN_TRX_PUB',9);
4396: inv_log_util.trace('before calling java TM secondary transaction quantity='||l_secondary_txn_quantity, 'INV_LPN_TRX_PUB',9);
4397: inv_log_util.trace('before calling java TM primary quantity='||v_mmtt.primary_quantity, 'INV_LPN_TRX_PUB',9);
4398: END IF;
4399: END LOOP;
4400:
4401: --************* Close cursor loop into MMTT *************
4399: END LOOP;
4400:
4401: --************* Close cursor loop into MMTT *************
4402: IF (l_debug = 1) THEN
4403: inv_log_util.TRACE('Done with MMTT cursor insrowcnt=' || insrowcnt || ' failedrowcnt=' || failedrowcnt, 'INV_LPN_TRX_PUB', 9);
4404: END IF;
4405:
4406: -- Bug 3618385
4407: -- For a transaction_header_id, when there's only one batch and a record is failed in the batch
4418: WHERE transaction_header_id = p_trx_hdr_id
4419: AND process_flag = 'Y'
4420: AND ROWNUM < 2;
4421: IF (l_debug = 1) THEN
4422: inv_log_util.TRACE('l_process: ' || l_process, 'INV_LPN_TRX_PUB', 9);
4423: END IF;
4424: EXCEPTION
4425: WHEN NO_DATA_FOUND THEN
4426: IF (l_debug = 1) THEN
4423: END IF;
4424: EXCEPTION
4425: WHEN NO_DATA_FOUND THEN
4426: IF (l_debug = 1) THEN
4427: 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);
4428: END IF;
4429: l_process := 0;
4430: END;
4431:
4440: l_atomic := 1;
4441: END IF;
4442:
4443: IF (l_debug = 1) THEN
4444: inv_log_util.TRACE('***Calling TM **', 'INV_LPN_TRX_PUB', 9);
4445: END IF;
4446:
4447: retval := inv_trx_mgr.process_trx_batch(p_trx_hdr_id, l_commit, l_atomic, NVL(p_business_flow_code, 0), ret_msgdata);
4448:
4446:
4447: retval := inv_trx_mgr.process_trx_batch(p_trx_hdr_id, l_commit, l_atomic, NVL(p_business_flow_code, 0), ret_msgdata);
4448:
4449: IF (l_debug = 1) THEN
4450: inv_log_util.TRACE('retval=' || retval || ', regmsg=' || ret_msgdata, 'INV_LPN_TRX_PUB', 9);
4451: END IF;
4452: --------------------
4453: -- Bug no 3540288
4454: -- Adding call to clear picked quantity.
4453: -- Bug no 3540288
4454: -- Adding call to clear picked quantity.
4455: --------------------
4456: IF (l_debug = 1) THEN
4457: inv_log_util.trace('calling API to clear the picked quantity', 'INV_LPN_TRX_PUB',9);
4458: END IF;
4459: BEGIN
4460: inv_transfer_order_pvt.clear_picked_quantity;
4461: END;
4459: BEGIN
4460: inv_transfer_order_pvt.clear_picked_quantity;
4461: END;
4462: IF (l_debug = 1) THEN
4463: inv_log_util.trace('API call to clear picked quantity successful', 'INV_LPN_TRX_PUB',9);
4464: END IF;
4465: END IF;
4466:
4467: IF (retval <> 0) THEN
4489: );
4490:
4491: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
4492: IF (l_debug = 1) THEN
4493: inv_log_util.TRACE('**Error Label Printing :' || ret_status, 'INV_LPN_TRX_PUB', 1);
4494: END IF;
4495: END IF;
4496: END IF;
4497:
4511: IF l_eres_enabled <> 'N' THEN
4512: -- ERES is Enabled, Verify if Transaction type is supported
4513: IF l_eres_tbl.COUNT > 0 THEN
4514: IF (l_debug = 1) THEN
4515: inv_log_util.TRACE('TBL COUNT =' || l_eres_tbl.COUNT, 'INV_LPN_TRX_PUB', 9);
4516: END IF;
4517:
4518: FOR tbl_index IN 1 .. l_eres_tbl.COUNT LOOP
4519: IF (l_debug = 1) THEN
4516: END IF;
4517:
4518: FOR tbl_index IN 1 .. l_eres_tbl.COUNT LOOP
4519: IF (l_debug = 1) THEN
4520: inv_log_util.TRACE('counter =' || tbl_index, 'INV_LPN_TRX_PUB', 9);
4521: END IF;
4522:
4523: IF (
4524: trans_eres_enabled(
4526: , p_trans_source_type_id => l_eres_tbl(tbl_index).transaction_source_type_id
4527: )
4528: ) THEN
4529: IF (l_debug = 1) THEN
4530: inv_log_util.TRACE('This is an ERES enabled Event', 'INV_LPN_TRX_PUB', 1);
4531: inv_log_util.TRACE(' EVENT_NAME => ' || g_eres_event_name, 'INV_LPN_TRX_PUB', 1);
4532: inv_log_util.TRACE(' EVENT_ID => ' || l_eres_tbl(tbl_index).event_id, 'INV_LPN_TRX_PUB', 1);
4533: END IF;
4534:
4527: )
4528: ) THEN
4529: IF (l_debug = 1) THEN
4530: inv_log_util.TRACE('This is an ERES enabled Event', 'INV_LPN_TRX_PUB', 1);
4531: inv_log_util.TRACE(' EVENT_NAME => ' || g_eres_event_name, 'INV_LPN_TRX_PUB', 1);
4532: inv_log_util.TRACE(' EVENT_ID => ' || l_eres_tbl(tbl_index).event_id, 'INV_LPN_TRX_PUB', 1);
4533: END IF;
4534:
4535: -- Get Erecord Id
4528: ) THEN
4529: IF (l_debug = 1) THEN
4530: inv_log_util.TRACE('This is an ERES enabled Event', 'INV_LPN_TRX_PUB', 1);
4531: inv_log_util.TRACE(' EVENT_NAME => ' || g_eres_event_name, 'INV_LPN_TRX_PUB', 1);
4532: inv_log_util.TRACE(' EVENT_ID => ' || l_eres_tbl(tbl_index).event_id, 'INV_LPN_TRX_PUB', 1);
4533: END IF;
4534:
4535: -- Get Erecord Id
4536: qa_edr_standard.get_erecord_id(
4544: , x_erecord_id => l_erecord_id
4545: );
4546:
4547: IF (l_debug = 1) THEN
4548: inv_log_util.TRACE('Status of Get_Erecord_Id => ' || ret_status, 'INV_LPN_TRX_PUB', 1);
4549: inv_log_util.TRACE(' Return Message => ' || ret_status, 'INV_LPN_TRX_PUB', 1);
4550: inv_log_util.TRACE('ERECORD => ' || ret_status, 'INV_LPN_TRX_PUB', 1);
4551: END IF;
4552:
4545: );
4546:
4547: IF (l_debug = 1) THEN
4548: inv_log_util.TRACE('Status of Get_Erecord_Id => ' || ret_status, 'INV_LPN_TRX_PUB', 1);
4549: inv_log_util.TRACE(' Return Message => ' || ret_status, 'INV_LPN_TRX_PUB', 1);
4550: inv_log_util.TRACE('ERECORD => ' || ret_status, 'INV_LPN_TRX_PUB', 1);
4551: END IF;
4552:
4553: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
4546:
4547: IF (l_debug = 1) THEN
4548: inv_log_util.TRACE('Status of Get_Erecord_Id => ' || ret_status, 'INV_LPN_TRX_PUB', 1);
4549: inv_log_util.TRACE(' Return Message => ' || ret_status, 'INV_LPN_TRX_PUB', 1);
4550: inv_log_util.TRACE('ERECORD => ' || ret_status, 'INV_LPN_TRX_PUB', 1);
4551: END IF;
4552:
4553: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
4554: IF (l_debug = 1) THEN
4551: END IF;
4552:
4553: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
4554: IF (l_debug = 1) THEN
4555: inv_log_util.TRACE(' ERROR generated from getErecordIdAPI:' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
4556: END IF;
4557:
4558: fnd_message.set_name('INV', 'INV_ERECORD_INVALID');
4559: fnd_msg_pub.ADD;
4579: );
4580:
4581: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
4582: IF (l_debug = 1) THEN
4583: inv_log_util.TRACE(' Error from Send ERES ACKNOWLEDGE API:' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
4584: END IF;
4585:
4586: fnd_message.set_name('INV', 'INV_ERECORD_INVALID');
4587: fnd_msg_pub.ADD;
4623: EXCEPTION
4624: WHEN OTHERS THEN
4625: -- rollback to the savepoint
4626: IF (l_debug = 1) THEN
4627: inv_log_util.TRACE('ERROR : Code' || SQLCODE || ',Msg:' || SUBSTR(SQLERRM, 1, 100), 'INV_LPN_TRX_PUB', 1);
4628: END IF;
4629:
4630: ROLLBACK TO process_lpn_trx;
4631: --bug 2894323 fix made changes to return all the messages in the
4639: FOR x IN 1 .. ret_msgcnt LOOP
4640: ret_msgdata := SUBSTR(fnd_msg_pub.get(ret_msgcnt - x + 1, 'F'), 0, 200);
4641:
4642: IF (l_debug = 1) THEN
4643: inv_log_util.TRACE(x || ':' || ret_msgdata, 'INV_LPN_TRX_PUB', 1);
4644: END IF;
4645:
4646: IF x <> 1 THEN
4647: ret_msgdata := ' | ' || ret_msgdata;
4666: AND transaction_mode = inv_txn_manager_pub.proc_mode_mti);
4667: EXCEPTION
4668: WHEN NO_DATA_FOUND THEN
4669: IF (l_debug = 1) THEN
4670: inv_log_util.TRACE('no record found in mmtt', 'INV_LPN_TRX_PUB', 1);
4671: END IF;
4672: END;
4673:
4674: IF (l_is_from_mti = 1) THEN
4715: END IF;
4716:
4717: IF (l_debug = 1) THEN
4718: inv_log_util.TRACE('Exiting PROCESS_LPN_TRX with exception from_mti=' || l_is_from_mti || ' trx_hdr_id=' || p_trx_hdr_id
4719: , 'INV_LPN_TRX_PUB', 1);
4720: END IF;
4721:
4722: RETURN -1;
4723: END process_lpn_trx;
4814: || ' srctype='
4815: || p_transaction_source_type_id
4816: || ' actid='
4817: || p_transaction_action_id
4818: , 'INV_LPN_TRX_PUB'
4819: , 9
4820: );
4821: inv_log_util.TRACE(
4822: 'lpn='
4830: || ' sub='
4831: || p_subinventory_code
4832: || ' loc='
4833: || p_locator_id
4834: , 'INV_LPN_TRX_PUB'
4835: , 9
4836: );
4837: inv_log_util.TRACE(
4838: 'xfrorg='
4846: || ' trxqty='
4847: || p_transaction_quantity
4848: || ' uom='
4849: || p_transaction_uom
4850: , 'INV_LPN_TRX_PUB'
4851: , 9
4852: );
4853: inv_log_util.TRACE(
4854: 'item='
4862: || ' rcvtrxid='
4863: || p_rcv_transaction_id
4864: || ' shipnum='
4865: || p_shipment_number
4866: , 'INV_LPN_TRX_PUB'
4867: , 9
4868: );
4869: inv_log_util.TRACE(
4870: 'srcid='
4880: || ' rcptex='
4881: || p_manual_receipt_expense
4882: || ' strxid='
4883: || p_source_transaction_id
4884: , 'INV_LPN_TRX_PUB'
4885: , 9
4886: );
4887: END IF;
4888:
4908:
4909: IF (l_debug = 1) THEN
4910: inv_log_util.TRACE(
4911: 'Got item properties puom=' || l_item_rec.primary_uom_code || ' sctl=' || l_item_rec.serial_number_control_code
4912: , 'INV_LPN_TRX_PUB'
4913: , 9
4914: );
4915: END IF;
4916: ELSE --failed to get item info
4997: l_rcv_txn_type := NULL;
4998: END;
4999:
5000: IF (l_debug = 1) THEN
5001: inv_log_util.TRACE('** transaction_type=' || l_rcv_txn_type, 'INV_LPN_TRX_PUB', 9);
5002: END IF;
5003:
5004: IF (l_rcv_txn_type = 'CORRECT') THEN
5005: IF (l_primary_quantity < 0) THEN -- -ve correction on delivery
5003:
5004: IF (l_rcv_txn_type = 'CORRECT') THEN
5005: IF (l_primary_quantity < 0) THEN -- -ve correction on delivery
5006: IF (l_debug = 1) THEN
5007: inv_log_util.TRACE('** -ve correction on delivery unpacking', 'INV_LPN_TRX_PUB', 9);
5008: END IF;
5009:
5010: -- Unpack items from lpn
5011: IF p_transfer_lpn_id IS NOT NULL THEN
5034: );
5035: END IF;
5036:
5037: IF (l_debug = 1) THEN
5038: inv_log_util.TRACE('** -ve correction on delivery packing', 'INV_LPN_TRX_PUB', 9);
5039: END IF;
5040:
5041: -- Repack items into transfer lpn nulling cost group,sub and locator
5042: Call_Pack_Unpack (
5070: WHERE lpn_id = p_lpn_id;
5071: END IF;
5072: ELSE
5073: IF (l_debug = 1) THEN
5074: inv_log_util.TRACE('** +ve correction on delivery', 'INV_LPN_TRX_PUB', 9);
5075: END IF;
5076:
5077: -- Unpack items from lpn with null sub, locator and cost group
5078: Call_Pack_Unpack (
5098: , p_source_trx_id => p_source_transaction_id
5099: );
5100:
5101: IF (l_debug = 1) THEN
5102: inv_log_util.TRACE('** +ve correction on delivery packing', 'INV_LPN_TRX_PUB', 9);
5103: END IF;
5104:
5105: IF p_transfer_lpn_id IS NOT NULL THEN
5106: -- Repack items into transfer lpn if it is not null
5144: AND l_primary_quantity < 0)
5145: OR((p_transaction_action_id = inv_globals.g_action_physicalcountadj)
5146: AND l_primary_quantity < 0) THEN
5147: IF (l_debug = 1) THEN
5148: inv_log_util.TRACE(' Action = Issue, lpn=' || p_lpn_id || ',qty=' || l_primary_quantity, 'INV_LPN_TRX_PUB', 9);
5149: END IF;
5150:
5151: IF (p_content_lpn_id IS NOT NULL) THEN
5152: -- This is an Issue of LPN from system
5150:
5151: IF (p_content_lpn_id IS NOT NULL) THEN
5152: -- This is an Issue of LPN from system
5153: IF (l_debug = 1) THEN
5154: inv_log_util.TRACE('** content_lpn_id Not null:' || p_content_lpn_id, 'INV_LPN_TRX_PUB', 9);
5155: END IF;
5156:
5157: v_lpn.lpn_id := p_content_lpn_id;
5158:
5172: FROM wms_license_plate_numbers
5173: WHERE lpn_id = p_content_lpn_id;
5174:
5175: IF (l_debug = 1) THEN
5176: inv_log_util.TRACE('Got v_cnt_lpn_ctx='||v_cnt_lpn_ctx, 'INV_LPN_TRX_PUB', 9);
5177: END IF;
5178: END IF;
5179:
5180: IF ( v_cnt_lpn_ctx <> wms_container_pub.lpn_context_intransit ) THEN
5190: -- For WIP Issues the LPN set to be defined but not used
5191: v_lpn.lpn_context := wms_container_pub.lpn_context_pregenerated;
5192:
5193: IF (l_debug = 1) THEN
5194: inv_log_util.TRACE('WIP Issue, unpack all items', 'INV_LPN_TRX_PUB', 9);
5195: END IF;
5196:
5197: -- LPN must be unpacked into the current sub
5198: WMS_Container_PVT.PackUnpack_Container(
5212: , p_source_transaction_id => p_source_transaction_id );
5213:
5214: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
5215: IF (l_debug = 1) THEN
5216: inv_log_util.TRACE('**Error Full unpack for wip issue:' || ret_status, 'INV_LPN_TRX_PUB', 1);
5217: END IF;
5218:
5219: fnd_message.set_name('INV', 'INV_PACKUNPACK_FAILURE');
5220: fnd_msg_pub.ADD;
5229: IF (p_transaction_action_id = inv_globals.g_action_intransitshipment) THEN
5230: v_lpn.source_name := p_shipment_number;
5231: END IF;
5232:
5233: inv_log_util.TRACE('** 3361969 setting lpn org id to : ' || p_organization_id, 'INV_LPN_TRX_PUB', 9);
5234: v_lpn.organization_id := p_organization_id;
5235: v_lpn.subinventory_code := NULL;
5236: v_lpn.locator_id := NULL;
5237: v_lpn.inventory_item_id := NULL;
5237: v_lpn.inventory_item_id := NULL;
5238: update_lpn_status(v_lpn);
5239:
5240: IF (l_debug = 1) THEN
5241: inv_log_util.TRACE('*** Issued out LPN :' || p_content_lpn_id, 'INV_LPN_TRX_PUB', 9);
5242: END IF;
5243: ELSIF(
5244: p_transaction_action_id = inv_globals.g_action_issue
5245: AND(
5552: -- IDS: Logical Transactions for lot and serials - Opened up TM to
5553: -- handle logical receipts and logical corrections.
5554: THEN
5555: IF (l_debug = 1) THEN
5556: inv_log_util.TRACE(' Action = Receipt', 'INV_LPN_TRX_PUB', 9);
5557: END IF;
5558:
5559: -- Check if a receipt with PO or RMA source types check to see if it is a correction
5560: IF (
5583: END;
5584: END IF;
5585:
5586: IF (l_debug = 1) THEN
5587: inv_log_util.TRACE('Got l_rcv_txn_typ=' || l_rcv_txn_type, 'INV_LPN_TRX_PUB', 9);
5588: END IF;
5589:
5590: -- If receipt is a correction, then special logic is needed
5591: -- otherwise use default behavior
5746: AND lpn_id = p_lpn_id;
5747:
5748: IF (l_debug = 1) THEN
5749: inv_log_util.TRACE('**Updated WMS_Contents cost_grp_id for lpn=' || p_lpn_id || ' and cg=' || p_cost_group_id
5750: , 'INV_LPN_TRX_PUB', 9);
5751: END IF;
5752: END IF;
5753:
5754: -- Update the status of the received LPN, or the LPN to which the item
5806: , p_source_transaction_id => p_source_transaction_id );
5807:
5808: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
5809: IF (l_debug = 1) THEN
5810: inv_log_util.TRACE('**Error Full unpack :' || ret_status, 'INV_LPN_TRX_PUB', 1);
5811: END IF;
5812:
5813: fnd_message.set_name('INV', 'INV_PACKUNPACK_FAILURE');
5814: fnd_msg_pub.ADD;
5823: OR(p_transaction_action_id = inv_globals.g_action_orgxfr)
5824: OR(p_transaction_action_id = inv_globals.g_action_stgxfr)
5825: OR(p_transaction_action_id = inv_globals.g_action_costgroupxfr) THEN
5826: IF (l_debug = 1) THEN
5827: inv_log_util.TRACE(' Action = SubXfr/OrgXfr/StgXfr/CGXfr', 'INV_LPN_TRX_PUB', 9);
5828: END IF;
5829:
5830: -- sanity check. If CostGroupXfr, then both cost_group_id and
5831: -- xfr_cost_group_id should be filled
5835: x_proc_msg := 'Error. Cost Groups not specified. CG=' || p_cost_group_id || ',XfrCG=' || p_transfer_cost_group_id;
5836:
5837: IF (l_debug = 1) THEN
5838: inv_log_util.TRACE('Error. Cost Groups not specified. CG=' || p_cost_group_id || ',XfrCG=' || p_transfer_cost_group_id
5839: , 'INV_LPN_TRX_PUB', 1);
5840: END IF;
5841:
5842: fnd_message.set_name('INV', 'BAD_INPUT_ARGUMENTS');
5843: fnd_msg_pub.ADD;
5857: WHERE lpn_id = p_lpn_id;
5858: END IF;
5859:
5860: IF (l_debug = 1) THEN
5861: inv_log_util.TRACE('SUBXFER from LPN context=' || v_lpn_ctx, 'INV_LPN_TRX_PUB', 9);
5862: END IF;
5863:
5864: IF (v_lpn_ctx = wms_container_pub.lpn_context_picked) THEN
5865: split_delivery(
5899: AND v_lpn_ctx <> wms_container_pub.lpn_context_picked) THEN
5900: x_proc_msg := 'Error. Invalid LPN context for Transfer Trx:' || v_lpn_ctx;
5901:
5902: IF (l_debug = 1) THEN
5903: inv_log_util.TRACE('Error. Invalid LPN context for Transfer Trx:' || v_lpn_ctx, 'INV_LPN_TRX_PUB', 1);
5904: END IF;
5905:
5906: fnd_message.set_name('INV', 'INV_INVALID_LPN_CONTEXT');
5907: fnd_msg_pub.ADD;
5964:
5965: IF (l_debug = 1) THEN
5966: inv_log_util.TRACE(
5967: 'orgid=' || v_xfr_org || ' sub=' || p_transfer_subinventory || ' lpn_controlled_flag=' || v_autounpack
5968: , 'INV_LPN_TRX_PUB'
5969: , 9
5970: );
5971: END IF;
5972: ELSE -- Not a WMS organization unpack all lpns
5970: );
5971: END IF;
5972: ELSE -- Not a WMS organization unpack all lpns
5973: IF (l_debug = 1) THEN
5974: inv_log_util.TRACE('orgid=' || v_xfr_org || ' not wms enabled unpacking all', 'INV_LPN_TRX_PUB', 9);
5975: END IF;
5976:
5977: v_autounpack := 2;
5978: -- Also need to prevent the LPN from being assigned to a non wms org
5986: FROM mtl_material_transactions_temp
5987: WHERE transaction_temp_id = p_transaction_temp_id;
5988:
5989: IF (l_debug = 1) THEN
5990: inv_log_util.TRACE('l_system_task_type = ' || l_system_task_type, 'INV_LPN_TRX_PUB', 9);
5991: END IF;
5992:
5993: -- bug 2879208
5994:
6005: IF (p_transaction_action_id = inv_globals.g_action_subxfr
6006: AND(l_lpn_ctx_tmp <> wms_container_pub.lpn_context_picked
6007: AND NVL(l_system_task_type, -1) <> 7)) THEN
6008: IF (l_debug = 1) THEN
6009: inv_log_util.TRACE('Sub Xfer of LPN, calling Transfer_LPN_Reservations ', 'INV_LPN_TRX_PUB', 9);
6010: END IF;
6011:
6012: inv_lpn_reservations_pvt.transfer_lpn_reservations(
6013: x_return_status => ret_status
6020: );
6021:
6022: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
6023: IF (l_debug = 1) THEN
6024: inv_log_util.TRACE('Undefined error in calling Transfer_LPN_Reservations', 'INV_LPN_TRX_PUB', 1);
6025: END IF;
6026:
6027: RAISE fnd_api.g_exc_error;
6028: END IF;
6027: RAISE fnd_api.g_exc_error;
6028: END IF;
6029:
6030: IF (l_debug = 1) THEN
6031: inv_log_util.TRACE('Done with call to Transfer_LPN_Reservations', 'INV_LPN_TRX_PUB', 9);
6032: END IF;
6033: END IF;
6034: END IF;
6035: -- bug 6007873
6050: AND NVL(l_system_task_type, -1) <> 7)
6051: ) -- bug 2879208 added nv for 3240617
6052: THEN
6053: IF (l_debug = 1) THEN
6054: inv_log_util.TRACE('Sub Xfer of LPN, calling Transfer_LPN_Reservations', 'INV_LPN_TRX_PUB', 9);
6055: END IF;
6056:
6057: /*Added for Bug#6043776*/
6058: l_cyclpn_id:=p_content_lpn_id;
6058: l_cyclpn_id:=p_content_lpn_id;
6059: /*if the transaction is cyclecount use outer LPN to update reservations*/
6060: IF(p_transaction_source_type_id=inv_globals.G_SOURCETYPE_CYCLECOUNT) THEN
6061: IF (l_debug = 1) THEN
6062: inv_log_util.TRACE('entered here cyclecount.. Bug#6043776','INV_LPN_TRX_PUB', 9);
6063: END IF;
6064: SELECT OUTERMOST_LPN_ID into l_cyclpn_id
6065: from wms_license_plate_numbers
6066: where lpn_id=p_content_lpn_id;
6079: );
6080:
6081: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
6082: IF (l_debug = 1) THEN
6083: inv_log_util.TRACE('Undefined error in calling Transfer_LPN_Reservations', 'INV_LPN_TRX_PUB', 1);
6084: END IF;
6085:
6086: RAISE fnd_api.g_exc_error;
6087: END IF;
6086: RAISE fnd_api.g_exc_error;
6087: END IF;
6088:
6089: IF (l_debug = 1) THEN
6090: inv_log_util.TRACE('Done with call to Transfer_LPN_Reservations', 'INV_LPN_TRX_PUB', 9);
6091: END IF;
6092: END IF;
6093:
6094: /*if ( v_lpn_ctx <> WMS_Container_PUB.LPN_CONTEXT_PICKED ) then
6107: -- If the autounpack is set for the transfer sub, then unpack the
6108: -- contents of the LPN.
6109: IF (v_autounpack = 2) THEN
6110: IF (l_debug = 1) THEN
6111: inv_log_util.TRACE('**Calling fullunpack lpn:' || p_content_lpn_id, 'INV_LPN_TRX_PUB', 9);
6112: END IF;
6113:
6114: -- bug 5531237 LPN org has not changed yet need to use original org not xfer org
6115: WMS_Container_PVT.PackUnpack_Container (
6129: , p_source_transaction_id => p_source_transaction_id );
6130:
6131: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
6132: IF (l_debug = 1) THEN
6133: inv_log_util.TRACE('**Error Full unpack :' || ret_status, 'INV_LPN_TRX_PUB', 1);
6134: END IF;
6135:
6136: fnd_message.set_name('INV', 'INV_PACKUNPACK_FAILURE');
6137: fnd_msg_pub.ADD;
6151: --to "In Inventory" from Picked to reflect the correct status
6152: IF ( p_transaction_source_type_id = inv_globals.G_SOURCETYPE_INTORDER AND
6153: p_transaction_action_id = inv_globals.G_ACTION_ORGXFR) THEN
6154: IF (l_debug = 1) THEN
6155: inv_log_util.trace('int req direct org xfr. setting lpn_ctxt to in inventory','INV_LPN_TRX_PUB',1);
6156: END IF;
6157: v_lpn.lpn_context := wms_container_pub.lpn_context_inv;
6158: ELSE
6159: v_lpn.lpn_context := wms_container_pub.lpn_context_picked;
6208: ) THEN
6209: v_lpn.lpn_context := NVL(v_cnt_lpn_ctx, v_lpn_ctx);
6210:
6211: IF (l_debug = 1) THEN
6212: inv_log_util.TRACE('Changing context of xfrlpn cntlpnctx=' || v_cnt_lpn_ctx || ' lpnctx=' || v_lpn_ctx, 'INV_LPN_TRX_PUB'
6213: , 9);
6214: END IF;
6215: ELSE
6216: -- Bug 4247497 Moving update of context to TM
6235: -- Verify that the context of this LPN is 'Resides in Inventory'
6236: x_proc_msg := 'Error. Invalid LPN context for XFR_LPN:' || v_xfrlpn_ctx;
6237:
6238: IF (l_debug = 1) THEN
6239: inv_log_util.TRACE('Error. Invalid LPN context for XFR_LPN :' || v_xfrlpn_ctx, 'INV_LPN_TRX_PUB', 1);
6240: END IF;
6241:
6242: fnd_message.set_name('INV', 'INV_INVALID_LPN_CONTEXT');
6243: fnd_msg_pub.ADD;
6256: END IF;
6257:
6258: -- ER 7307189 changes start
6259: IF (l_debug = 1) THEN
6260: inv_log_util.TRACE('transfer_reserved_lpn_contents p_lpn_id :' || p_lpn_id, 'INV_LPN_TRX_PUB', 1);
6261: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_lpn_id :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 1);
6262: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_subinventory :' || p_transfer_subinventory, 'INV_LPN_TRX_PUB', 1);
6263: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_to_location :' ||p_transfer_to_location , 'INV_LPN_TRX_PUB', 1);
6264: inv_log_util.TRACE('transfer_reserved_lpn_contents p_inventory_item_id :' || p_inventory_item_id , 'INV_LPN_TRX_PUB', 1);
6257:
6258: -- ER 7307189 changes start
6259: IF (l_debug = 1) THEN
6260: inv_log_util.TRACE('transfer_reserved_lpn_contents p_lpn_id :' || p_lpn_id, 'INV_LPN_TRX_PUB', 1);
6261: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_lpn_id :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 1);
6262: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_subinventory :' || p_transfer_subinventory, 'INV_LPN_TRX_PUB', 1);
6263: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_to_location :' ||p_transfer_to_location , 'INV_LPN_TRX_PUB', 1);
6264: inv_log_util.TRACE('transfer_reserved_lpn_contents p_inventory_item_id :' || p_inventory_item_id , 'INV_LPN_TRX_PUB', 1);
6265: END IF;
6258: -- ER 7307189 changes start
6259: IF (l_debug = 1) THEN
6260: inv_log_util.TRACE('transfer_reserved_lpn_contents p_lpn_id :' || p_lpn_id, 'INV_LPN_TRX_PUB', 1);
6261: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_lpn_id :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 1);
6262: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_subinventory :' || p_transfer_subinventory, 'INV_LPN_TRX_PUB', 1);
6263: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_to_location :' ||p_transfer_to_location , 'INV_LPN_TRX_PUB', 1);
6264: inv_log_util.TRACE('transfer_reserved_lpn_contents p_inventory_item_id :' || p_inventory_item_id , 'INV_LPN_TRX_PUB', 1);
6265: END IF;
6266:
6259: IF (l_debug = 1) THEN
6260: inv_log_util.TRACE('transfer_reserved_lpn_contents p_lpn_id :' || p_lpn_id, 'INV_LPN_TRX_PUB', 1);
6261: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_lpn_id :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 1);
6262: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_subinventory :' || p_transfer_subinventory, 'INV_LPN_TRX_PUB', 1);
6263: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_to_location :' ||p_transfer_to_location , 'INV_LPN_TRX_PUB', 1);
6264: inv_log_util.TRACE('transfer_reserved_lpn_contents p_inventory_item_id :' || p_inventory_item_id , 'INV_LPN_TRX_PUB', 1);
6265: END IF;
6266:
6267:
6260: inv_log_util.TRACE('transfer_reserved_lpn_contents p_lpn_id :' || p_lpn_id, 'INV_LPN_TRX_PUB', 1);
6261: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_lpn_id :' || p_transfer_lpn_id, 'INV_LPN_TRX_PUB', 1);
6262: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_subinventory :' || p_transfer_subinventory, 'INV_LPN_TRX_PUB', 1);
6263: inv_log_util.TRACE('transfer_reserved_lpn_contents p_transfer_to_location :' ||p_transfer_to_location , 'INV_LPN_TRX_PUB', 1);
6264: inv_log_util.TRACE('transfer_reserved_lpn_contents p_inventory_item_id :' || p_inventory_item_id , 'INV_LPN_TRX_PUB', 1);
6265: END IF;
6266:
6267:
6268:
6279: );
6280:
6281: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
6282: IF (l_debug = 1) THEN
6283: inv_log_util.TRACE('Undefined error in calling transfer_reserved_lpn_contents', 'INV_LPN_TRX_PUB', 1);
6284: END IF;
6285:
6286: RAISE fnd_api.g_exc_error;
6287: END IF;
6286: RAISE fnd_api.g_exc_error;
6287: END IF;
6288:
6289: IF (l_debug = 1) THEN
6290: inv_log_util.TRACE('Done with call to transfer_reserved_lpn_contents', 'INV_LPN_TRX_PUB', 9);
6291: END IF;
6292:
6293: -- ER 7307189 changes end
6294:
6337: WHERE lpn_id = p_transfer_lpn_id;
6338:
6339: -- bug 5620764: add debug
6340: IF (l_debug = 1) THEN
6341: inv_log_util.TRACE('Got xfrlpn ctx=' || v_xfrlpn_ctx, 'INV_LPN_TRX_PUB', 5);
6342: END IF;
6343:
6344: -- If the lpn is transfered update the status of that LPN
6345: -- provided the context is 2, 3, or 8
6365: ) THEN
6366: x_proc_msg := 'Error. Invalid LPN context for XFR_LPN:' || v_xfrlpn_ctx;
6367:
6368: IF (l_debug = 1) THEN
6369: inv_log_util.TRACE('Error. Invalid LPN context for XFR_LPN :' || v_xfrlpn_ctx, 'INV_LPN_TRX_PUB', 1);
6370: END IF;
6371:
6372: fnd_message.set_name('INV', 'INV_INVALID_LPN_CONTEXT');
6373: fnd_msg_pub.ADD;
6376: END IF;
6377:
6378: IF (l_debug = 1) THEN
6379: inv_log_util.TRACE('Updating lpn=' || p_transfer_lpn_id || ' ctx=' || v_lpn.lpn_context || ' org=' || v_xfr_org
6380: , 'INV_LPN_TRX_PUB', 1);
6381: END IF;
6382:
6383: v_lpn.lpn_id := p_transfer_lpn_id;
6384: v_lpn.organization_id := v_xfr_org;
6397: FROM wms_license_plate_numbers
6398: WHERE lpn_id = p_content_lpn_id;
6399:
6400: IF (l_debug = 1) THEN
6401: inv_log_util.TRACE('SUBXFER cont LPN context=' || v_cnt_lpn_ctx, 'INV_LPN_TRX_PUB', 9);
6402: END IF;
6403:
6404: IF (v_cnt_lpn_ctx = wms_container_pub.lpn_context_picked)
6405: OR (NVL(l_system_task_type, -1) = 7) THEN --Bug 3620318
6419: );
6420:
6421: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
6422: IF (l_debug = 1) THEN
6423: inv_log_util.TRACE('**Error from transfer_lpn_trx_reservation :' || ret_status, 'INV_LPN_TRX_PUB', 1);
6424: END IF;
6425:
6426: fnd_message.set_name('INV', 'INV_XFR_RSV_FAILURE');
6427: fnd_msg_pub.ADD;
6432: END IF;
6433: /***** Actions for PACK transactions ****/
6434: ELSIF(p_transaction_action_id = inv_globals.g_action_containerpack) THEN
6435: IF (l_debug = 1) THEN
6436: inv_log_util.TRACE(' Action = Pack', 'INV_LPN_TRX_PUB', 9);
6437: END IF;
6438:
6439: Call_Pack_Unpack (
6440: p_tempid => p_transaction_temp_id
6469: AND lpn_context <> wms_container_pub.lpn_context_picked;
6470: /***** Actions for UNPACK transactions ****/
6471: ELSIF(p_transaction_action_id = inv_globals.g_action_containerunpack) THEN
6472: IF (l_debug = 1) THEN
6473: inv_log_util.TRACE(' Action = UnPack', 'INV_LPN_TRX_PUB', 9);
6474: END IF;
6475:
6476: Call_Pack_Unpack (
6477: p_tempid => p_transaction_temp_id
6499:
6500: /***** Actions for SLPIT transactions ****/
6501: ELSIF(p_transaction_action_id = inv_globals.g_action_containersplit) THEN
6502: IF (l_debug = 1) THEN
6503: inv_log_util.TRACE(' Action = Split, First Unpack', 'INV_LPN_TRX_PUB', 9);
6504: END IF;
6505:
6506: IF (p_content_lpn_id IS NULL) THEN
6507: SELECT lpn_context
6623: WHERE transaction_temp_id = p_transaction_temp_id;
6624: EXCEPTION
6625: when others then
6626: IF (l_debug = 1) THEN
6627: inv_log_util.trace('Error updating content_lpn_id in MMTT line ttid='||p_transaction_temp_id, 'INV_LPN_TRX_PUB', 9);
6628: END IF;
6629: END;
6630: end if;*/
6631: END IF; --lpn_id = null AND content_lpn_id = null and xfr_lpn_id = null
6635:
6636: -- Start of fix for Bug: 4891916
6637: IF (l_debug = 1) THEN
6638: inv_log_util.TRACE('Value of Business flow:'|| p_business_flow_code || 'l_print_label:'
6639: || l_print_label, 'INV_LPN_TRX_PUB', 1);
6640: END IF;
6641: -- Checking for the business flow and the value of the profile
6642: -- and setting the value of the transaction identifier accordingly.
6643:
6663: );
6664:
6665: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
6666: IF (l_debug = 1) THEN
6667: inv_log_util.TRACE('**Error Label Printing :' || ret_status, 'INV_LPN_TRX_PUB', 1);
6668: END IF;
6669: --RAISE FND_API.G_EXC_ERROR; Since TM should not fail, even if
6670: --this call fails bug#2555226
6671: END IF;
6678: -- After all the LPN related txn is done, delete the original MMTT record that
6679: -- has inventory_item_id = -1
6680: IF p_inventory_item_id = -1 THEN
6681: IF (l_debug = 1) THEN
6682: inv_log_util.TRACE('* Done with process_lpn_trx_line, deleting MMTT record for tmpID=' || p_transaction_temp_id, 'INV_LPN_TRX_PUB'
6683: , 1);
6684: END IF;
6685:
6686: DELETE FROM mtl_serial_numbers_temp
6701: AND inventory_item_id = -1));
6702: END IF;
6703:
6704: IF (l_debug = 1) THEN
6705: inv_log_util.TRACE('* No of MSNT records deleted =' || SQL%ROWCOUNT, 'INV_LPN_TRX_PUB', 1);
6706: END IF;
6707:
6708: DELETE FROM mtl_transaction_lots_temp
6709: WHERE transaction_temp_id = (SELECT transaction_temp_id
6711: WHERE transaction_temp_id = p_transaction_temp_id
6712: AND inventory_item_id = -1);
6713:
6714: IF (l_debug = 1) THEN
6715: inv_log_util.TRACE('* No of MTLT records deleted =' || SQL%ROWCOUNT, 'INV_LPN_TRX_PUB', 1);
6716: END IF;
6717:
6718: DELETE FROM mtl_material_transactions_temp
6719: WHERE transaction_temp_id = p_transaction_temp_id
6719: WHERE transaction_temp_id = p_transaction_temp_id
6720: AND inventory_item_id = -1;
6721:
6722: IF (l_debug = 1) THEN
6723: inv_log_util.TRACE('* No. of MMTT record deleted ' || SQL%ROWCOUNT, 'INV_LPN_TRX_PUB', 1);
6724: END IF;
6725: END IF;
6726: EXCEPTION
6727: WHEN fnd_api.g_exc_error THEN
6747: inv_log_util.TRACE('msg=' || x_proc_msg, l_api_name, 1);
6748: END IF;
6749: END process_lpn_trx_line;
6750:
6751: END inv_lpn_trx_pub;