[Home] [Help]
53: RETURN BOOLEAN IS
54: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
55: BEGIN
56: IF (l_debug = 1) THEN
57: inv_log_util.TRACE('** Trans Eres Enabled trx_action_id = ' || p_trans_action_id, 'INV_LPN_TRX_PUB', 9);
58: inv_log_util.TRACE('** Trans Eres Enabled trx_soource_id =' || p_trans_source_type_id, 'INV_LPN_TRX_PUB', 9);
59: END IF;
60:
61: IF (p_trans_action_id NOT IN(inv_globals.g_action_issue, inv_globals.g_action_receipt,INV_GLOBALS.G_ACTION_SUBXFR,
54: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
55: BEGIN
56: IF (l_debug = 1) THEN
57: inv_log_util.TRACE('** Trans Eres Enabled trx_action_id = ' || p_trans_action_id, 'INV_LPN_TRX_PUB', 9);
58: inv_log_util.TRACE('** Trans Eres Enabled trx_soource_id =' || p_trans_source_type_id, 'INV_LPN_TRX_PUB', 9);
59: END IF;
60:
61: IF (p_trans_action_id NOT IN(inv_globals.g_action_issue, inv_globals.g_action_receipt,INV_GLOBALS.G_ACTION_SUBXFR,
62: INV_GLOBALS.G_ACTION_ORGXFR, INV_GLOBALS.G_ACTION_INTRANSITSHIPMENT)) THEN
59: END IF;
60:
61: IF (p_trans_action_id NOT IN(inv_globals.g_action_issue, inv_globals.g_action_receipt,INV_GLOBALS.G_ACTION_SUBXFR,
62: INV_GLOBALS.G_ACTION_ORGXFR, INV_GLOBALS.G_ACTION_INTRANSITSHIPMENT)) THEN
63: inv_log_util.TRACE(
64: '** Transactions Not ERES Supported trx_action_id =' || p_trans_action_id || ',trx_source_type_id =' || p_trans_source_type_id
65: , 'INV_LPN_TRX_PUB'
66: , 9
67: );
108: RETURN FALSE;
109: END IF;
110:
111: IF (l_debug = 1) THEN
112: inv_log_util.TRACE('** ERES EVENT = ' || g_eres_event_name, 'INV_LPN_TRX_PUB', 9);
113: END IF;
114:
115: RETURN TRUE;
116: EXCEPTION
115: RETURN TRUE;
116: EXCEPTION
117: WHEN OTHERS THEN
118: IF (l_debug = 1) THEN
119: inv_log_util.TRACE('** Function TRANS_ERES_ENABLED - raised when Others', 'INV_LPN_TRX_PUB', 9);
120: END IF;
121:
122: fnd_message.set_name('INV', 'INV_ERES_ENABLED');
123: fnd_msg_pub.ADD;
144: from mtl_parameters
145: where organization_id = p_org_id;
146:
147: IF (l_debug = 1) THEN
148: inv_log_util.TRACE('INVTRXWB: cost method of org'||p_org_id||' is '||l_primary_cost_method,'INVTRXWB',1);
149: END IF;
150:
151: IF l_primary_cost_method in (2,5,6) THEN
152: IF (l_debug = 1) THEN
149: END IF;
150:
151: IF l_primary_cost_method in (2,5,6) THEN
152: IF (l_debug = 1) THEN
153: inv_log_util.TRACE('PRIMARY COST METHOD IS AVG OR FIFO OR LIFO CALLING CSTACOSN.op_snapshot'||p_temp_id,'INVTRXWB',1);
154: END IF;
155:
156: l_cst_ret := CSTACOSN.op_snapshot(i_txn_temp_id => p_temp_id,
157: err_num => l_errNum,
160: IF(l_cst_ret <> 1) THEN
161: fnd_message.set_name('BOM', 'CST_SNAPSHOT_FAILED');
162: fnd_msg_pub.ADD;
163: IF (l_debug = 1) THEN
164: inv_log_util.TRACE('INVTRXWB: Error from CSTACOSN.op_snapshot ','INVTRXWB',1);
165: END IF;
166: raise fnd_api.g_exc_unexpected_error;
167: ELSE
168: inv_log_util.TRACE('INVTRXWB: CALL TO CSTACOSN.op_snapshot SUCCESSFULL','INVTRXWB',1);
164: inv_log_util.TRACE('INVTRXWB: Error from CSTACOSN.op_snapshot ','INVTRXWB',1);
165: END IF;
166: raise fnd_api.g_exc_unexpected_error;
167: ELSE
168: inv_log_util.TRACE('INVTRXWB: CALL TO CSTACOSN.op_snapshot SUCCESSFULL','INVTRXWB',1);
169: END IF;
170:
171: END IF;
172: END create_snapshot;
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;
733: RAISE fnd_api.g_exc_error;
734: END IF;
735:
736: IF (l_debug = 1) THEN
737: inv_log_util.TRACE(
738: 'Checked lpn_controlled_flag for txnAction '
739: || p_mmtt.transaction_action_id
740: || ' and Sub '
741: || NVL(p_mmtt.transfer_subinventory, p_mmtt.subinventory_code)
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;
778: LOOP
779: curlpnrec := tb_lpn_cnts(lpnitndx);
780:
781: IF (l_debug = 1) THEN
782: inv_log_util.TRACE(
783: ' cntlpnid = '
784: || curlpnrec.content_lpn_id
785: || ',par lpnid='
786: || curlpnrec.parent_lpn_id
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
864: AND((curlpnrec.cost_group_id IS NOT NULL)
865: OR(p_mmtt.cost_group_id IS NOT NULL)) THEN
866: -- Non LPN Controlled, check cost group comingle
867: IF (l_debug = 1) THEN
868: inv_log_util.TRACE(
869: 'Transfer to non-LPN controlled location, calling comingle_check with '
870: || 'p_org_id='
871: || NVL(p_mmtt.transfer_organization, p_mmtt.organization_id)
872: || ',p_item_id='
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;
980: AND((curlpnrec.cost_group_id IS NOT NULL)
981: OR(p_mmtt.cost_group_id IS NOT NULL)) THEN
982: -- Non LPN Controlled, check cost group comingle
983: IF (l_debug = 1) THEN
984: inv_log_util.TRACE(
985: 'Transfer to non-LPN controlled location, calling comingle_check with '
986: || 'p_org_id='
987: || NVL(p_mmtt.transfer_organization, p_mmtt.organization_id)
988: || ',p_item_id='
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;
1143: itemsecqty := -1 * curlpnrec.sec_quantity; --INVCONV kkillams
1144: END IF;
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: );
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='
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='
1555: || p_content_lpn
1564: );
1565: END IF;
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: );
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='
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='
1678: || p_content_lpn
1686: || v_sertmp.fm_serial_number
1687: , 'INV_LPN_TRX_PUB'
1688: , 1
1689: );
1690: inv_log_util.TRACE(
1691: ',p_org_id='
1692: || p_org_id
1693: || ',p_subinv='
1694: || p_subinv
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='
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='
1752: || p_content_lpn
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='
1766: || p_cost_grp_id
1767: , 'INV_LPN_TRX_PUB'
1768: , 1
1781: v_serfound := FALSE;
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;
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
1860: END IF; /*3158847*/
1861:
1862: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
1863: IF (l_debug = 1) THEN
1864: inv_log_util.TRACE(
1865: '**Error from pack/unpack :'
1866: || ret_status
1867: || ',p_lpn='
1868: || p_lpn
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
1880: , 'INV_LPN_TRX_PUB'
1881: , 9
1882: );
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='
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='
1930: || p_content_lpn
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
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:
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:
2015: SELECT *
2173: );
2174: EXCEPTION
2175: WHEN OTHERS THEN
2176: IF (l_debug = 1) THEN
2177: inv_log_util.TRACE(l_api_name || ' Error', l_api_name, 1);
2178:
2179: IF (SQLCODE IS NOT NULL) THEN
2180: inv_log_util.TRACE('SQL error: ' || SQLERRM(SQLCODE), l_api_name, 1);
2181: END IF;
2176: IF (l_debug = 1) THEN
2177: inv_log_util.TRACE(l_api_name || ' Error', l_api_name, 1);
2178:
2179: IF (SQLCODE IS NOT NULL) THEN
2180: inv_log_util.TRACE('SQL error: ' || SQLERRM(SQLCODE), l_api_name, 1);
2181: END IF;
2182: END IF;
2183:
2184: RAISE fnd_api.g_exc_unexpected_error;
2355: l_shipping_attr(1).transfer_lpn_id := p_xfr_lpn_id;
2356: l_shipping_attr(1).action_flag := 'U';
2357:
2358: IF (l_debug = 1) THEN
2359: inv_log_util.TRACE(l_api_name || ' Entered ' || g_pkg_version, l_api_name, 1);
2360: inv_log_util.TRACE('orgid='||p_organization_id||' lpn='||p_lpn_id||' xfrlpn='||p_xfr_lpn_id||' item='||p_item_rec.inventory_item_id||' rev='||p_revision||' lot='||p_lot_number, l_api_name, 9);
2361: inv_log_util.TRACE('sctl='||p_item_rec.serial_number_control_code||' qty='||p_quantity||' uom='||p_uom_code||' qty2='||p_secondary_trx_quantity||' uom2='||p_secondary_uom_code||' strxtmp='||p_serial_trx_temp_id, l_api_name, 4);
2362: inv_log_util.TRACE('xfrsub='||p_xfr_subinventory||' xfrloc='||p_xfr_to_location||' srcid='||p_transaction_source_id||' srcln='||p_trx_source_line_id, l_api_name, 4);
2363: END IF;
2356: l_shipping_attr(1).action_flag := 'U';
2357:
2358: IF (l_debug = 1) THEN
2359: inv_log_util.TRACE(l_api_name || ' Entered ' || g_pkg_version, l_api_name, 1);
2360: inv_log_util.TRACE('orgid='||p_organization_id||' lpn='||p_lpn_id||' xfrlpn='||p_xfr_lpn_id||' item='||p_item_rec.inventory_item_id||' rev='||p_revision||' lot='||p_lot_number, l_api_name, 9);
2361: inv_log_util.TRACE('sctl='||p_item_rec.serial_number_control_code||' qty='||p_quantity||' uom='||p_uom_code||' qty2='||p_secondary_trx_quantity||' uom2='||p_secondary_uom_code||' strxtmp='||p_serial_trx_temp_id, l_api_name, 4);
2362: inv_log_util.TRACE('xfrsub='||p_xfr_subinventory||' xfrloc='||p_xfr_to_location||' srcid='||p_transaction_source_id||' srcln='||p_trx_source_line_id, l_api_name, 4);
2363: END IF;
2364:
2357:
2358: IF (l_debug = 1) THEN
2359: inv_log_util.TRACE(l_api_name || ' Entered ' || g_pkg_version, l_api_name, 1);
2360: inv_log_util.TRACE('orgid='||p_organization_id||' lpn='||p_lpn_id||' xfrlpn='||p_xfr_lpn_id||' item='||p_item_rec.inventory_item_id||' rev='||p_revision||' lot='||p_lot_number, l_api_name, 9);
2361: inv_log_util.TRACE('sctl='||p_item_rec.serial_number_control_code||' qty='||p_quantity||' uom='||p_uom_code||' qty2='||p_secondary_trx_quantity||' uom2='||p_secondary_uom_code||' strxtmp='||p_serial_trx_temp_id, l_api_name, 4);
2362: inv_log_util.TRACE('xfrsub='||p_xfr_subinventory||' xfrloc='||p_xfr_to_location||' srcid='||p_transaction_source_id||' srcln='||p_trx_source_line_id, l_api_name, 4);
2363: END IF;
2364:
2365: FOR dd_rec IN delivery_detail_cursor(p_lot_number) LOOP
2358: IF (l_debug = 1) THEN
2359: inv_log_util.TRACE(l_api_name || ' Entered ' || g_pkg_version, l_api_name, 1);
2360: inv_log_util.TRACE('orgid='||p_organization_id||' lpn='||p_lpn_id||' xfrlpn='||p_xfr_lpn_id||' item='||p_item_rec.inventory_item_id||' rev='||p_revision||' lot='||p_lot_number, l_api_name, 9);
2361: inv_log_util.TRACE('sctl='||p_item_rec.serial_number_control_code||' qty='||p_quantity||' uom='||p_uom_code||' qty2='||p_secondary_trx_quantity||' uom2='||p_secondary_uom_code||' strxtmp='||p_serial_trx_temp_id, l_api_name, 4);
2362: inv_log_util.TRACE('xfrsub='||p_xfr_subinventory||' xfrloc='||p_xfr_to_location||' srcid='||p_transaction_source_id||' srcln='||p_trx_source_line_id, l_api_name, 4);
2363: END IF;
2364:
2365: FOR dd_rec IN delivery_detail_cursor(p_lot_number) LOOP
2366: IF (l_debug = 1) THEN
2363: END IF;
2364:
2365: FOR dd_rec IN delivery_detail_cursor(p_lot_number) LOOP
2366: IF (l_debug = 1) THEN
2367: inv_log_util.TRACE('Got WDD: dd_id='||dd_rec.delivery_detail_id||' pckqty='||dd_rec.requested_quantity||' requom='||dd_rec.requested_quantity_uom||' sn='||dd_rec.serial_number||' trxtmpid='|| dd_rec.transaction_temp_id, l_api_name, 9);
2368: inv_log_util.TRACE('lpnddid='||dd_rec.lpn_detail_id||' pckqty2='||dd_rec.picked_quantity2||' requom2='||dd_rec.requested_quantity_uom2||' shdrid='||dd_rec.source_header_id||' slnid='||dd_rec.source_line_id, l_api_name, 9);
2369: inv_log_util.TRACE('remqty='||l_remaining_quantity||' remuom='||l_remaining_qty_uom, l_api_name, 9);
2370: END IF;
2371:
2364:
2365: FOR dd_rec IN delivery_detail_cursor(p_lot_number) LOOP
2366: IF (l_debug = 1) THEN
2367: inv_log_util.TRACE('Got WDD: dd_id='||dd_rec.delivery_detail_id||' pckqty='||dd_rec.requested_quantity||' requom='||dd_rec.requested_quantity_uom||' sn='||dd_rec.serial_number||' trxtmpid='|| dd_rec.transaction_temp_id, l_api_name, 9);
2368: inv_log_util.TRACE('lpnddid='||dd_rec.lpn_detail_id||' pckqty2='||dd_rec.picked_quantity2||' requom2='||dd_rec.requested_quantity_uom2||' shdrid='||dd_rec.source_header_id||' slnid='||dd_rec.source_line_id, l_api_name, 9);
2369: inv_log_util.TRACE('remqty='||l_remaining_quantity||' remuom='||l_remaining_qty_uom, l_api_name, 9);
2370: END IF;
2371:
2372: -- Check to see if there needs to be any serial handling
2365: FOR dd_rec IN delivery_detail_cursor(p_lot_number) LOOP
2366: IF (l_debug = 1) THEN
2367: inv_log_util.TRACE('Got WDD: dd_id='||dd_rec.delivery_detail_id||' pckqty='||dd_rec.requested_quantity||' requom='||dd_rec.requested_quantity_uom||' sn='||dd_rec.serial_number||' trxtmpid='|| dd_rec.transaction_temp_id, l_api_name, 9);
2368: inv_log_util.TRACE('lpnddid='||dd_rec.lpn_detail_id||' pckqty2='||dd_rec.picked_quantity2||' requom2='||dd_rec.requested_quantity_uom2||' shdrid='||dd_rec.source_header_id||' slnid='||dd_rec.source_line_id, l_api_name, 9);
2369: inv_log_util.TRACE('remqty='||l_remaining_quantity||' remuom='||l_remaining_qty_uom, l_api_name, 9);
2370: END IF;
2371:
2372: -- Check to see if there needs to be any serial handling
2373: IF (dd_rec.serial_number IS NOT NULL) THEN
2393:
2394: l_split_quantity := ser_tbl.COUNT;
2395:
2396: IF (l_debug = 1) THEN
2397: inv_log_util.TRACE('ser_tbl.COUNT=' || l_split_quantity, l_api_name, 9);
2398: END IF;
2399:
2400: -- Is some split serials were found for this WDD. Otherwise bypass
2401: -- If not all serials in this detail are part of split. no need to split ranges
2404: -- If only a single serial is being split from this delivery line, shipping expects
2405: -- a serial not a transaction_temp_id. delete MSNT line and populate wdd.serial_number
2406: IF (l_split_quantity = 1) THEN
2407: IF (l_debug = 1) THEN
2408: inv_log_util.TRACE('Split qty is 1 no need for msnt record, instead stamp sn ' || ser_tbl(1) || ' on wdd', l_api_name, 9);
2409: END IF;
2410:
2411: l_invpcinrectype.transaction_temp_id := NULL;
2412: l_shipping_attr(1).serial_number := ser_tbl(1);
2416: INTO l_invpcinrectype.transaction_temp_id
2417: FROM DUAL;
2418:
2419: IF (l_debug = 1) THEN
2420: inv_log_util.TRACE('Created new trxtmpid=' || l_invpcinrectype.transaction_temp_id || ' ser_tbl.count=' || l_split_quantity
2421: , l_api_name, 9);
2422: END IF;
2423:
2424: l_shipping_attr(1).serial_number := NULL;
2439: l_current_serial := ser_tbl(l_tbl_cnt);
2440: END IF;
2441:
2442: IF (l_debug = 1) THEN
2443: inv_log_util.TRACE('Got new sn='||l_current_serial||' nfmsn='||l_new_fm_serial||' ntosn='||l_new_to_serial||' wfmsn='||wdd_ser_rec.fm_serial_number||' wtosn='||wdd_ser_rec.to_serial_number, l_api_name, 9);
2444: END IF;
2445:
2446: -- If the the to and from serials consume the whole range from MSNT
2447: -- or the current serial is outside the range, We are done with the MSNT
2460: , l_to_serial_suffix, x_error_code);
2461:
2462: IF (x_error_code <> 0) THEN
2463: IF (l_debug = 1) THEN
2464: inv_log_util.TRACE('Failed MTL_SERIAL_CHECK.Inv_Serial_Info', l_api_name, 1);
2465: END IF;
2466:
2467: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
2468: fnd_msg_pub.ADD;
2475: /* 3406810 */
2476: l_to_serial_suffix := l_to_serial_suffix + 1;
2477:
2478: IF (l_debug = 1) THEN
2479: inv_log_util.TRACE('New prefix='||l_serial_prefix||' suffix='||l_fm_serial_suffix||' sfxlgth='||l_serial_suffix_length, l_api_name, 1);
2480: END IF;
2481: END IF;
2482:
2483: -- Check if Serial is contiguous. If so, make current serial the new to_serial
2561: END LOOP;
2562:
2563: --Call shipping api to set transaction_temp_id global variable
2564: IF (l_debug = 1) THEN
2565: inv_log_util.TRACE('Calling Set_Inv_PC_Attributes transaction_temp_id=' || l_invpcinrectype.transaction_temp_id, l_api_name);
2566: END IF;
2567:
2568: wsh_integration.set_inv_pc_attributes(p_in_attributes => l_invpcinrectype, x_return_status => ret_status
2569: , x_msg_count => ret_msgcnt, x_msg_data => ret_msgdata);
2569: , x_msg_count => ret_msgcnt, x_msg_data => ret_msgdata);
2570:
2571: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
2572: IF (l_debug = 1) THEN
2573: inv_log_util.TRACE('return error from Set_Inv_PC_Attributes', l_api_name);
2574: END IF;
2575:
2576: RAISE fnd_api.g_exc_error;
2577: END IF;
2653: l_dd_ct := l_dd_ct + 1;
2654: END IF;
2655:
2656: IF (l_debug = 1) THEN
2657: inv_log_util.TRACE(
2658: 'new split_qty2=' || l_split_quantity2 || ' rem_qty2=' || l_remaining_quantity2 || ' splitfmqty=' || l_total_split_qty2
2659: , l_api_name
2660: , 9
2661: );
2673: l_action_prms.split_quantity2 := LEAST(dd_rec.picked_quantity2, l_split_quantity2);
2674:
2675: -- Call new Shipping API to split line
2676: IF (l_debug = 1) THEN
2677: inv_log_util.TRACE('Calling Delivery_Detail_Action ddid='||l_detail_id_tab(1)||' qty='||l_action_prms.split_quantity||' qty2='||l_action_prms.split_quantity2, l_api_name, 1);
2678: END IF;
2679:
2680: wsh_interface_ext_grp.delivery_detail_action(
2681: p_api_version_number => 1.0
2690: );
2691:
2692: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
2693: IF (l_debug = 1) THEN
2694: inv_log_util.TRACE('**Error Delivery_Detail_Action: ' || ret_msgdata, l_api_name, 1);
2695: END IF;
2696:
2697: fnd_message.set_name('INV', 'INV_SPLIT_LINE_FAILURE');
2698: fnd_msg_pub.ADD;
2701:
2702: l_shipping_attr(1).delivery_detail_id := l_action_out_rec.result_id_tab(1);
2703:
2704: IF (l_debug = 1) THEN
2705: inv_log_util.TRACE('Created new delivery line: dd_id=' || l_shipping_attr(1).delivery_detail_id, l_api_name, 9);
2706: END IF;
2707: ELSE -- Split qty is > dd_rec.delivery_detail_id logic error;
2708: IF (l_debug = 1) THEN
2709: inv_log_util.TRACE('Split qty ' || l_split_quantity || ' is greater than what is available on WDD '
2705: inv_log_util.TRACE('Created new delivery line: dd_id=' || l_shipping_attr(1).delivery_detail_id, l_api_name, 9);
2706: END IF;
2707: ELSE -- Split qty is > dd_rec.delivery_detail_id logic error;
2708: IF (l_debug = 1) THEN
2709: inv_log_util.TRACE('Split qty ' || l_split_quantity || ' is greater than what is available on WDD '
2710: || dd_rec.delivery_detail_id, l_api_name, 9);
2711: END IF;
2712:
2713: RAISE fnd_api.g_exc_unexpected_error;
2713: RAISE fnd_api.g_exc_unexpected_error;
2714: END IF;
2715:
2716: IF (l_debug = 1) THEN
2717: inv_log_util.TRACE('Call to WSH Delivery_Detail_Action unassign delivery from lpn', l_api_name, 4);
2718: END IF;
2719:
2720: l_wsh_action_prms.caller := 'WMS';
2721: l_wsh_action_prms.action_code := 'UNPACK';
2735: , x_action_out_rec => l_wsh_action_out_rec );
2736:
2737: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
2738: IF (l_debug = 1) THEN
2739: inv_log_util.TRACE('Error WSH_WMS_LPN_GRP.Delivery_Detail_Action' || ret_status, l_api_name, 1);
2740: END IF;
2741:
2742: fnd_message.set_name('INV', 'INV_UNASSIGN_DEL_FAILURE');
2743: fnd_msg_pub.ADD;
2742: fnd_message.set_name('INV', 'INV_UNASSIGN_DEL_FAILURE');
2743: fnd_msg_pub.ADD;
2744: RAISE fnd_api.g_exc_error;
2745: ELSIF (l_debug = 1) THEN
2746: inv_log_util.TRACE('Done with call to WSH Create_Update_Containers', l_api_name, 4);
2747: END IF;
2748:
2749: --Associate New Delivery Line with transfer LPN
2750: IF (p_xfr_subinventory IS NOT NULL) THEN
2748:
2749: --Associate New Delivery Line with transfer LPN
2750: IF (p_xfr_subinventory IS NOT NULL) THEN
2751: IF (l_debug = 1) THEN
2752: inv_log_util.TRACE('Replacing sub: ' || l_shipping_attr(1).subinventory || ' with xfr sub: ' || p_xfr_subinventory, l_api_name
2753: , 9);
2754: END IF;
2755:
2756: l_shipping_attr(1).subinventory := p_xfr_subinventory;
2757: END IF;
2758:
2759: IF (p_xfr_to_location <> 0) THEN
2760: IF (l_debug = 1) THEN
2761: inv_log_util.TRACE('Replacing loc: ' || l_shipping_attr(1).locator_id || ' with xfr loc: ' || p_xfr_to_location, l_api_name, 9);
2762: END IF;
2763:
2764: l_shipping_attr(1).locator_id := p_xfr_to_location;
2765: END IF;
2771: , x_return_status => ret_status);
2772:
2773: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
2774: IF (l_debug = 1) THEN
2775: inv_log_util.TRACE('***Error in update shipping attribures for split trx', l_api_name, 9);
2776: END IF;
2777:
2778: fnd_message.set_name('WMS', 'WMS_TD_UPD_SHP_ERROR');
2779: fnd_msg_pub.ADD;
2781: END IF;
2782:
2783: -- Need to also to transfer the item reservation
2784: IF (l_debug = 1) THEN
2785: inv_log_util.TRACE('Calling Upd_Reservation_PUP_New qty='||l_split_quantity||' uom='||dd_rec.requested_quantity_uom, l_api_name, 9);
2786: END IF;
2787: l_loop_counter := l_loop_counter + 1;
2788:
2789: INV_RESERVATION_PVT.Upd_Reservation_PUP_New (
2808: , p_source_lpn_id => p_lpn_id );
2809:
2810: IF ( ret_status <> fnd_api.g_ret_sts_success ) THEN
2811: IF (l_debug = 1) THEN
2812: inv_log_util.TRACE('upd_reservation_pup failed '||ret_msgdata, l_api_name, 1);
2813: END IF;
2814: fnd_message.set_name('WMS', 'UPD_RESERVATION_PUP_FAIL');
2815: fnd_msg_pub.ADD;
2816: RAISE fnd_api.g_exc_error;
2820: -- Subtract the split quantity from the remaining quantity
2821: l_remaining_quantity := l_remaining_quantity - l_split_quantity;
2822:
2823: IF (l_debug = 1) THEN
2824: inv_log_util.TRACE(
2825: 'Assoc new line remqty=' || l_remaining_quantity || ' remqty2=' || l_remaining_quantity2 || ' tsplt2=' || l_total_split_qty2
2826: , l_api_name
2827: , 9
2828: );
2832: EXIT WHEN ROUND(l_remaining_quantity, g_precision) <= 0;
2833: END LOOP;
2834:
2835: IF (l_remaining_quantity > 0) THEN
2836: inv_log_util.TRACE('***Error while splittng delivery not enough quantity found in wdd', l_api_name, 1);
2837: fnd_message.set_name('WMS', 'INV_INSUFFICIENT_WDD_QTY');
2838: fnd_msg_pub.ADD;
2839: RAISE fnd_api.g_exc_error;
2840: END IF;
2844: -- That needs to be added back or removed from soruce LPN.
2845: qty2_remainder := p_secondary_trx_quantity - l_total_split_qty2;
2846:
2847: IF (l_debug = 1) THEN
2848: inv_log_util.TRACE('qty2_remainder=' || qty2_remainder, l_api_name, 9);
2849: END IF;
2850:
2851: IF (qty2_remainder <> 0) THEN
2852: OPEN delivery_detail_cursor(p_lot_number);
2857: IF (delivery_detail_cursor%FOUND
2858: AND l_dd_rec.picked_quantity2 IS NOT NULL) THEN
2859: WHILE(delivery_detail_cursor%FOUND) LOOP
2860: IF (l_debug = 1) THEN
2861: inv_log_util.TRACE(
2862: 'Got WDD: dd_id='
2863: || l_dd_rec.delivery_detail_id
2864: || ' pkqty='
2865: || l_dd_rec.requested_quantity
2871: || l_dd_rec.transaction_temp_id
2872: , l_api_name
2873: , 9
2874: );
2875: inv_log_util.TRACE(
2876: 'lpnddid='
2877: || l_dd_rec.lpn_detail_id
2878: || ' pckqty2='
2879: || l_dd_rec.picked_quantity2
2913: qty2_remainder := qty2_remainder - l_dd_rec.picked_quantity2;
2914: END IF;
2915:
2916: IF (l_debug = 1) THEN
2917: inv_log_util.TRACE('new qty2_remainder=' || qty2_remainder, l_api_name, 9);
2918: END IF;
2919:
2920: FETCH delivery_detail_cursor
2921: INTO l_dd_rec;
2921: INTO l_dd_rec;
2922: END LOOP;
2923:
2924: IF (qty2_remainder <> 0) THEN
2925: inv_log_util.TRACE('***Error while splittng delivery not enough quantity2 found in wdd', l_api_name, 9);
2926: fnd_message.set_name('WMS', 'INV_INSUFFICIENT_WDD_QTY');
2927: fnd_msg_pub.ADD;
2928: RAISE fnd_api.g_exc_error;
2929: END IF;
2927: fnd_msg_pub.ADD;
2928: RAISE fnd_api.g_exc_error;
2929: END IF;
2930: ELSIF(l_debug = 1) THEN
2931: inv_log_util.TRACE('no WDD rows left in source lpn...ok', l_api_name, 9);
2932: END IF;
2933:
2934: CLOSE delivery_detail_cursor;
2935: END IF;
2940: l_del_det_in_rec.caller := 'WMS';
2941: l_del_det_in_rec.action_code := 'UPDATE';
2942:
2943: IF (l_debug = 1) THEN
2944: inv_log_util.TRACE('Calling Create_Update_Delivery_Detail count=' || l_del_det_attr.COUNT, l_api_name, 9);
2945: END IF;
2946:
2947: wsh_interface_ext_grp.create_update_delivery_detail(
2948: p_api_version_number => 1.0
2964: ret_msgdata := ret_msgdata || l_msg_details;
2965: END IF;
2966:
2967: IF (l_debug = 1) THEN
2968: inv_log_util.TRACE('Error calling Create_Update_Delivery_Detail: ' || ret_msgdata, l_api_name, 1);
2969: END IF;
2970:
2971: fnd_message.set_name('WMS', 'WMS_UPD_DELIVERY_ERROR');
2972: fnd_message.set_token('MSG1', ret_msgdata);
3058: RAISE fnd_api.g_exc_unexpected_error;
3059: END IF;
3060:
3061: IF (l_debug = 1) THEN
3062: inv_log_util.TRACE('l_valid_sec_qty_split=' || l_valid_sec_qty_split, l_api_name, 9);
3063: END IF;
3064:
3065: IF (l_valid_sec_qty_split <> 1) THEN
3066: --Clear the secondary quantity fields for the from LPN
3082: );
3083:
3084: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
3085: IF (l_debug = 1) THEN
3086: inv_log_util.TRACE('Error calling Update_LPN_Secondary_Quantity: ' || ret_msgdata, l_api_name, 1);
3087: END IF;
3088:
3089: RAISE fnd_api.g_exc_unexpected_error;
3090: END IF;
3108: );
3109:
3110: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
3111: IF (l_debug = 1) THEN
3112: inv_log_util.TRACE('Error calling Update_LPN_Secondary_Quantity: ' || ret_msgdata, l_api_name, 1);
3113: END IF;
3114:
3115: RAISE fnd_api.g_exc_unexpected_error;
3116: END IF;
3173: RAISE fnd_api.g_exc_unexpected_error;
3174: END IF;
3175:
3176: IF (l_debug = 1) THEN
3177: inv_log_util.TRACE('l_valid_sec_qty_split=' || l_valid_sec_qty_split, l_api_name, 9);
3178: END IF;
3179:
3180: -- Secondary quantities are not allowed do not pass it to
3181: -- the Split_Delivery_Details API
3200: );
3201:
3202: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
3203: IF (l_debug = 1) THEN
3204: inv_log_util.TRACE('Error calling Update_LPN_Secondary_Quantity: ' || ret_msgdata, l_api_name, 1);
3205: END IF;
3206:
3207: RAISE fnd_api.g_exc_unexpected_error;
3208: END IF;
3225: );
3226:
3227: IF (ret_status <> fnd_api.g_ret_sts_success) THEN
3228: IF (l_debug = 1) THEN
3229: inv_log_util.TRACE('Error calling Update_LPN_Secondary_Quantity: ' || ret_msgdata, l_api_name, 1);
3230: END IF;
3231:
3232: RAISE fnd_api.g_exc_unexpected_error;
3233: END IF;
3261: );
3262: END IF;
3263:
3264: IF (l_debug = 1) THEN
3265: inv_log_util.TRACE('** Split Delivery OK', l_api_name, 1);
3266: END IF;
3267: END split_delivery;
3268:
3269:
3479: l_lot_indiv_trx_valid boolean;
3480: l_secondary_txn_quantity number;
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: );
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;
4214:
4215: EXCEPTION
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: );
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:
4246: WHERE transaction_header_id = p_trx_hdr_id;
4247: EXCEPTION
4248: WHEN OTHERS THEN
4249: IF (l_debug = 1) THEN
4250: inv_log_util.TRACE('Error in updating MMTT for trxhdrid=' || p_trx_hdr_id, 1);
4251: END IF;
4252: END;
4253:
4254: -- Batch Failed exit from loop
4269:
4270: l_num_ret_rows := SQL%ROWCOUNT;
4271:
4272: IF (l_debug = 1) THEN
4273: inv_log_util.TRACE('Updated error msg for ' || l_num_ret_rows || ' rows form MTI with txnbatchid='
4274: || v_mmtt.transaction_batch_id, 1);
4275: END IF;
4276:
4277: -- Remove from MSNT rows with same MMTT transaction_temp_id
4315:
4316: l_num_ret_rows := SQL%ROWCOUNT;
4317:
4318: IF (l_debug = 1) THEN
4319: inv_log_util.TRACE('Updated error msg for ' || l_num_ret_rows || ' rows form MTI with txntempid='
4320: || v_mmtt.transaction_temp_id, 1);
4321: END IF;
4322:
4323: -- Remove from MSNT rows with same MMTT transaction_temp_id
4340: END IF;
4341: EXCEPTION
4342: WHEN OTHERS THEN
4343: IF (l_debug = 1) THEN
4344: inv_log_util.TRACE('Error in updating MTI or deleting MMTT for trxbatchid=' || v_mmtt.transaction_batch_id, 1);
4345: END IF;
4346: END;
4347: ELSE -- record originated in MMTT
4348: IF (v_mmtt.transaction_batch_id IS NOT NULL) THEN
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
4714: WHERE transaction_header_id = p_trx_hdr_id;
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;
4805: l_sub VARCHAR2(30);
4806: l_loc_id number;
4807: BEGIN
4808: IF (l_debug = 1) THEN
4809: inv_log_util.TRACE(
4810: 'Call to PROCESS_LPN_TRX_LINE trxtmpid='
4811: || p_transaction_temp_id
4812: || ' flwcode='
4813: || p_business_flow_code
4817: || p_transaction_action_id
4818: , 'INV_LPN_TRX_PUB'
4819: , 9
4820: );
4821: inv_log_util.TRACE(
4822: 'lpn='
4823: || p_lpn_id
4824: || ' cntlpn='
4825: || p_content_lpn_id
4833: || p_locator_id
4834: , 'INV_LPN_TRX_PUB'
4835: , 9
4836: );
4837: inv_log_util.TRACE(
4838: 'xfrorg='
4839: || p_transfer_organization
4840: || ' xfrsub='
4841: || p_transfer_subinventory
4849: || p_transaction_uom
4850: , 'INV_LPN_TRX_PUB'
4851: , 9
4852: );
4853: inv_log_util.TRACE(
4854: 'item='
4855: || p_inventory_item_id
4856: || ' rev='
4857: || p_revision
4865: || p_shipment_number
4866: , 'INV_LPN_TRX_PUB'
4867: , 9
4868: );
4869: inv_log_util.TRACE(
4870: 'srcid='
4871: || p_transaction_source_id
4872: || ' slnid='
4873: || p_trx_source_line_id
4906: l_progress := 'Found item assigning it to l_item_rec';
4907: l_item_rec := inv_cache.item_rec;
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: );
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
5745: WHERE inventory_item_id = p_inventory_item_id
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:
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
5834: OR(p_transfer_cost_group_id IS NULL) THEN
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');
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;
5962: WHERE organization_id = v_xfr_org
5963: AND secondary_inventory_name = p_transfer_subinventory;
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: );
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;
6375: END IF;
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;
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
6634: IF (NVL(p_business_flow_code, 0) <> 0) THEN
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.
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
6728: x_return_status := fnd_api.g_ret_sts_error;
6729: x_proc_msg := fnd_msg_pub.get(fnd_msg_pub.g_previous, 'F');
6730:
6731: IF (l_debug = 1) THEN
6732: inv_log_util.TRACE(l_api_name || ' Exc err prog=' || l_progress || ' SQL err: ' || SQLERRM(SQLCODE), l_api_name, 1);
6733: fnd_msg_pub.count_and_get(p_count => ret_msgcnt, p_data => ret_msgdata);
6734:
6735: FOR i IN 1 .. ret_msgcnt LOOP
6736: l_msgdata := SUBSTR(l_msgdata || ' | ' || SUBSTR(fnd_msg_pub.get(ret_msgcnt - i + 1, 'F'), 0, 200), 1, 2000);
6735: FOR i IN 1 .. ret_msgcnt LOOP
6736: l_msgdata := SUBSTR(l_msgdata || ' | ' || SUBSTR(fnd_msg_pub.get(ret_msgcnt - i + 1, 'F'), 0, 200), 1, 2000);
6737: END LOOP;
6738:
6739: inv_log_util.TRACE('msg: ' || l_msgdata, l_api_name, 1);
6740: END IF;
6741: WHEN OTHERS THEN
6742: x_return_status := fnd_api.g_ret_sts_unexp_error;
6743: x_proc_msg := fnd_msg_pub.get(fnd_msg_pub.g_previous, 'F');
6742: x_return_status := fnd_api.g_ret_sts_unexp_error;
6743: x_proc_msg := fnd_msg_pub.get(fnd_msg_pub.g_previous, 'F');
6744:
6745: IF (l_debug = 1) THEN
6746: inv_log_util.TRACE(l_api_name || ' Unexp err prog=' || l_progress || ' SQL err: ' || SQLERRM(SQLCODE), l_api_name, 1);
6747: inv_log_util.TRACE('msg=' || x_proc_msg, l_api_name, 1);
6748: END IF;
6749: END process_lpn_trx_line;
6750:
6743: x_proc_msg := fnd_msg_pub.get(fnd_msg_pub.g_previous, 'F');
6744:
6745: IF (l_debug = 1) THEN
6746: inv_log_util.TRACE(l_api_name || ' Unexp err prog=' || l_progress || ' SQL err: ' || SQLERRM(SQLCODE), l_api_name, 1);
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;