[Home] [Help]
1: PACKAGE BODY INV_TXN_MANAGER_GRP AS
2: /* $Header: INVTXGGB.pls 120.129.12020000.12 2013/01/10 06:28:01 gausriva ship $ */
3:
4: --------------------------------------------------
5: -- Private Procedures and Functions
472: into l_transaction_interface_id --J-dev
473: FROM dual;
474: for l_mti_csr in mti_csr(p_parent_id ) LOOP
475: IF (l_debug = 1) THEN
476: inv_log_util.trace('insert into mmti is ' || l_mti_csr.transaction_interface_id, 'INV_TXN_MANAGER_GRP', 9);
477: END IF;
478:
479: INSERT INTO mtl_transactions_interface
480: ( transaction_header_id ,
786: return true;
787: EXCEPTION
788: when FND_API.G_EXC_ERROR then
789: IF (l_debug = 1) THEN
790: inv_log_util.trace('SQL : ' || substr(sqlerrm, 1, 200), 'INV_TXN_MANAGER_GRP','9');
791: inv_log_util.trace('Error in check_partial_split : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','9');
792: END IF;
793: return FALSE;
794: when Others then
787: EXCEPTION
788: when FND_API.G_EXC_ERROR then
789: IF (l_debug = 1) THEN
790: inv_log_util.trace('SQL : ' || substr(sqlerrm, 1, 200), 'INV_TXN_MANAGER_GRP','9');
791: inv_log_util.trace('Error in check_partial_split : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','9');
792: END IF;
793: return FALSE;
794: when Others then
795: IF (l_debug = 1) THEN
792: END IF;
793: return FALSE;
794: when Others then
795: IF (l_debug = 1) THEN
796: inv_log_util.trace('SQL : ' || substr(sqlerrm, 1, 200), 'INV_TXN_MANAGER_GRP','9');
797: inv_log_util.trace('Error in check_partial_split : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','9');
798: END IF;
799: return false;
800: END Check_Partial_Split;
793: return FALSE;
794: when Others then
795: IF (l_debug = 1) THEN
796: inv_log_util.trace('SQL : ' || substr(sqlerrm, 1, 200), 'INV_TXN_MANAGER_GRP','9');
797: inv_log_util.trace('Error in check_partial_split : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','9');
798: END IF;
799: return false;
800: END Check_Partial_Split;
801:
819: AND hoi.org_information_context = 'Accounting Information'
820: AND hoi.organization_id = p_orgid;
821:
822: IF (l_debug = 1) THEN
823: inv_log_util.trace('chart_of_accounts_id:'|| to_char(l_chart), 'INV_TXN_MANAGER_GRP','1');
824: END IF;
825:
826: IF fnd_flex_keyval.validate_ccid ( APPL_SHORT_NAME => 'SQLGL'
827: ,KEY_FLEX_CODE => 'GL#'
838: ,VRULE => '\nSUMMARY_FLAG\nI\nAPPL=SQLGL;NAME=GL_NO_PARENT_SEGMENT_ALLOWED\nN'||
839: '\0GL_GLOBAL\nDETAIL_POSTING_ALLOWED\nE\nAPPL=INV;NAME=INV_VRULE_POSTING\nN' )
840: THEN
841: IF (l_debug = 1) THEN
842: inv_log_util.trace('Distribution acct id : ' || p_acctid || ' is valid', 'INV_TXN_MANAGER_GRP','1');
843: END IF;
844: RETURN TRUE;
845: ELSE
846: l_error_exp := substr(fnd_flex_keyval.error_message,1,240);
844: RETURN TRUE;
845: ELSE
846: l_error_exp := substr(fnd_flex_keyval.error_message,1,240);
847: IF (l_debug = 1) THEN
848: inv_log_util.trace('Distribution acct id is invalid '|| l_error_exp, 'INV_TXN_MANAGER_GRP','1');
849: END IF;
850: RETURN FALSE;
851: END IF;
852: ELSE
851: END IF;
852: ELSE
853: l_error_exp := substr(fnd_flex_keyval.error_message,1,240);
854: IF (l_debug = 1) THEN
855: inv_log_util.trace('Distribution acct id Validation Error '|| l_error_exp, 'INV_TXN_MANAGER_GRP','1');
856: END IF;
857: RETURN FALSE;
858: END IF ;
859:
860: EXCEPTION
861: WHEN OTHERS THEN
862: l_error_exp := substr(fnd_flex_keyval.error_message,1,240);
863: IF (l_debug = 1) THEN
864: inv_log_util.trace('Error in validate_acctid : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
865: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
866: END IF;
867: RETURN FALSE;
868: END validate_acctid;
861: WHEN OTHERS THEN
862: l_error_exp := substr(fnd_flex_keyval.error_message,1,240);
863: IF (l_debug = 1) THEN
864: inv_log_util.trace('Error in validate_acctid : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
865: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
866: END IF;
867: RETURN FALSE;
868: END validate_acctid;
869:
983: RETURN FALSE;
984: END IF;
985:
986: IF (l_debug = 1) THEN
987: inv_log_util.trace('Distribution acct id : ' || x_acctid, 'INV_TXN_MANAGER_GRP','1');
988: END IF;
989: x_acctid := l_acctid;
990: RETURN TRUE;
991: else
990: RETURN TRUE;
991: else
992: l_error_exp := substr(FND_MESSAGE.get,1,240);
993: IF (l_debug = 1) THEN
994: inv_log_util.trace('Distribution acct id error '|| l_error_exp, 'INV_TXN_MANAGER_GRP','1');
995: END IF;
996: RETURN FALSE;
997: end if;
998: --x_acctid := fnd_flex_ext.concatenate_segments(nsegs,segarray, str.segment_separator);
1004: RETURN FALSE;
1005: WHEN OTHERS THEN
1006: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
1007: IF (l_debug = 1) THEN
1008: inv_log_util.trace('Error in getacctid : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
1009: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
1010: END IF;
1011: x_acctid := NULL;
1012: RETURN FALSE;
1005: WHEN OTHERS THEN
1006: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
1007: IF (l_debug = 1) THEN
1008: inv_log_util.trace('Error in getacctid : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
1009: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
1010: END IF;
1011: x_acctid := NULL;
1012: RETURN FALSE;
1013: END getacctid;
1119: x_itemid := fnd_flex_keyval.combination_id;
1120: else
1121: x_itemid := NULL;
1122: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
1123: inv_log_util.trace('Error in getitemid : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
1124: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
1125: end if;
1126: return l_result;
1127:
1120: else
1121: x_itemid := NULL;
1122: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
1123: inv_log_util.trace('Error in getitemid : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
1124: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
1125: end if;
1126: return l_result;
1127:
1128: END getitemid;
1260: COMBINATION_ID => x_trxsrc);
1261: END IF;
1262: if l_result then
1263: IF (l_debug = 1) THEN
1264: inv_log_util.trace('Transaction Source ID : ' || x_trxsrc, 'INV_TXN_MANAGER_GRP','1');
1265: END IF;
1266: RETURN TRUE;
1267: else
1268: l_error_exp := substr(FND_MESSAGE.get,1,240);
1266: RETURN TRUE;
1267: else
1268: l_error_exp := substr(FND_MESSAGE.get,1,240);
1269: IF (l_debug = 1) THEN
1270: inv_log_util.trace('Transaction Source ID error '|| l_error_exp, 'INV_TXN_MANAGER_GRP','1'
1271: );
1272: END IF;
1273: RETURN FALSE;
1274: end if;
1276: EXCEPTION
1277: WHEN OTHERS THEN
1278: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
1279: IF (l_debug = 1) THEN
1280: inv_log_util.trace('Error in getsrcid : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
1281: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
1282: END IF;
1283: x_trxsrc := NULL;
1284: return FALSE;
1277: WHEN OTHERS THEN
1278: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
1279: IF (l_debug = 1) THEN
1280: inv_log_util.trace('Error in getsrcid : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
1281: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
1282: END IF;
1283: x_trxsrc := NULL;
1284: return FALSE;
1285:
1467:
1468: EXCEPTION
1469: WHEN OTHERS THEN
1470: IF (l_debug = 1) THEN
1471: inv_log_util.trace('Error in derive_segment_ids : ' || l_error_exp, 'INV_TXN_MANAGER_GRP ','1');
1472: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
1473: END IF;
1474: x_return_status := FND_API.G_RET_STS_ERROR;
1475:
1468: EXCEPTION
1469: WHEN OTHERS THEN
1470: IF (l_debug = 1) THEN
1471: inv_log_util.trace('Error in derive_segment_ids : ' || l_error_exp, 'INV_TXN_MANAGER_GRP ','1');
1472: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
1473: END IF;
1474: x_return_status := FND_API.G_RET_STS_ERROR;
1475:
1476: END derive_segment_ids;
1584: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1585: END IF;
1586:
1587: IF (l_debug = 1) THEN
1588: inv_log_util.trace('validate_quantities: Start ', 'INV_TXN_MANAGER_GRP', 9);
1589: inv_log_util.trace('org id='||to_char(p_organization_id)||' item id='||to_char(p_inventory_item_id)||' rev='||p_revision, 'INV_TXN_MANAGER_GRP', 9);
1590: inv_log_util.trace('txn uom='||p_transaction_uom||' qty='||to_char(p_transaction_quantity), 'INV_TXN_MANAGER_GRP', 9);
1591: inv_log_util.trace('sec uom='||p_secondary_uom_code||' qty='||to_char(p_secondary_quantity), 'INV_TXN_MANAGER_GRP', 9);
1592: END IF;
1585: END IF;
1586:
1587: IF (l_debug = 1) THEN
1588: inv_log_util.trace('validate_quantities: Start ', 'INV_TXN_MANAGER_GRP', 9);
1589: inv_log_util.trace('org id='||to_char(p_organization_id)||' item id='||to_char(p_inventory_item_id)||' rev='||p_revision, 'INV_TXN_MANAGER_GRP', 9);
1590: inv_log_util.trace('txn uom='||p_transaction_uom||' qty='||to_char(p_transaction_quantity), 'INV_TXN_MANAGER_GRP', 9);
1591: inv_log_util.trace('sec uom='||p_secondary_uom_code||' qty='||to_char(p_secondary_quantity), 'INV_TXN_MANAGER_GRP', 9);
1592: END IF;
1593:
1586:
1587: IF (l_debug = 1) THEN
1588: inv_log_util.trace('validate_quantities: Start ', 'INV_TXN_MANAGER_GRP', 9);
1589: inv_log_util.trace('org id='||to_char(p_organization_id)||' item id='||to_char(p_inventory_item_id)||' rev='||p_revision, 'INV_TXN_MANAGER_GRP', 9);
1590: inv_log_util.trace('txn uom='||p_transaction_uom||' qty='||to_char(p_transaction_quantity), 'INV_TXN_MANAGER_GRP', 9);
1591: inv_log_util.trace('sec uom='||p_secondary_uom_code||' qty='||to_char(p_secondary_quantity), 'INV_TXN_MANAGER_GRP', 9);
1592: END IF;
1593:
1594:
1587: IF (l_debug = 1) THEN
1588: inv_log_util.trace('validate_quantities: Start ', 'INV_TXN_MANAGER_GRP', 9);
1589: inv_log_util.trace('org id='||to_char(p_organization_id)||' item id='||to_char(p_inventory_item_id)||' rev='||p_revision, 'INV_TXN_MANAGER_GRP', 9);
1590: inv_log_util.trace('txn uom='||p_transaction_uom||' qty='||to_char(p_transaction_quantity), 'INV_TXN_MANAGER_GRP', 9);
1591: inv_log_util.trace('sec uom='||p_secondary_uom_code||' qty='||to_char(p_secondary_quantity), 'INV_TXN_MANAGER_GRP', 9);
1592: END IF;
1593:
1594:
1595: /* =======================================================================
1611:
1612: /** Quantity Validation **/
1613: IF (p_transaction_quantity IS NULL AND p_secondary_quantity IS NULL) THEN
1614: IF (l_debug = 1) THEN
1615: inv_log_util.trace('validate_quantities: both transaction and secondary quantities are null', 'INV_TXN_MANAGER_GRP', 9);
1616: END IF;
1617: loaderrmsg('INV_INT_QTYCODE','INV_INT_QTYCODE');
1618: errupdate(p_rowid, p_lot_rowid);
1619: return false;
1623:
1624: /** UOM Validation **/
1625: IF (p_secondary_uom_code <> l_secondary_uom_code) THEN
1626: IF (l_debug = 1) THEN
1627: inv_log_util.trace('validate_quantities: sec uom passed in not same as item sec uom', 'INV_TXN_MANAGER_GRP', 9);
1628: END IF;
1629: loaderrmsg('INV_INCORRECT_SECONDARY_UOM','INV_INCORRECT_SECONDARY_UOM');
1630: errupdate(p_rowid, p_lot_rowid);
1631: return false;
1634: IF (p_secondary_uom_code IS NULL) THEN
1635: p_secondary_uom_code := l_secondary_uom_code;
1636: END IF;
1637: IF (l_debug = 1) THEN
1638: inv_log_util.trace('validate_quantities: assigned sec uom='||p_secondary_uom_code, 'INV_TXN_MANAGER_GRP', 9);
1639: END IF;
1640: -- Set the Qty2 from Qty1 if missing:
1641: --{
1642: IF (p_secondary_quantity IS NULL) THEN
1652: ,to_name => NULL);
1653:
1654: IF (l_secondary_qty = -99999) THEN
1655: IF (l_debug = 1) THEN
1656: inv_log_util.trace('validate_quantities: INV_CONVERT.INV_UM_CONVERT error while calculating sec qty', 'INV_TXN_MANAGER_GRP', 9);
1657: END IF;
1658: loaderrmsg('INV_NO_CONVERSION_ERR','INV_NO_CONVERSION_ERR');
1659: errupdate(p_rowid, p_lot_rowid);
1660: return false;
1660: return false;
1661: END IF;
1662: p_secondary_quantity := l_secondary_qty;
1663: IF (l_debug = 1) THEN
1664: inv_log_util.trace('validate_quantities: new secondary qty is: '|| l_secondary_qty , 'INV_TXN_MANAGER_GRP', 9);
1665: END IF;
1666: END IF;--}
1667:
1668: -- Set the Qty1 from Qty2 if missing:
1680: , to_name => NULL);
1681:
1682: IF (l_transaction_quantity = -99999) THEN
1683: IF (l_debug = 1) THEN
1684: inv_log_util.trace('validate_quantities: INV_CONVERT.INV_UM_CONVERT ERROR while calculating transaction quantity', 'INV_TXN_MANAGER_GRP', 9);
1685: END IF;
1686: loaderrmsg('INV_NO_CONVERSION_ERR','INV_NO_CONVERSION_ERR');
1687: errupdate(p_rowid, p_lot_rowid);
1688: return false;
1688: return false;
1689: END IF;
1690: p_transaction_quantity := l_transaction_quantity;
1691: IF (l_debug = 1) THEN
1692: inv_log_util.trace('validate_quantities: new transaction qty is: '|| l_transaction_quantity , 'INV_TXN_MANAGER_GRP', 9);
1693: END IF;
1694: END IF;--}
1695:
1696: --Jalaj Srivastava Bug 4969885
1724: ,to_name => NULL);
1725:
1726: IF (l_primary_quantity = -99999) THEN
1727: IF (l_debug = 1) THEN
1728: inv_log_util.trace('validate_quantities: INV_CONVERT.INV_UM_CONVERT error while calculating primary qty', 'INV_TXN_MANAGER_GRP', 9);
1729: END IF;
1730: loaderrmsg('INV_NO_CONVERSION_ERR','INV_NO_CONVERSION_ERR');
1731: errupdate(p_rowid, p_lot_rowid);
1732: return false;
1754: FETCH check_gme_reversal INTO l_is_reversal;
1755: CLOSE check_gme_reversal;
1756: END IF;
1757: IF (l_debug = 1) THEN
1758: inv_log_util.trace('validate_quantities: check for lot indivisibility,gme_reversal'||l_is_reversal, 'INV_TXN_MANAGER_GRP', 9);
1759: END IF;
1760:
1761: IF l_is_reversal <> 1 THEN
1762: /*Bug,9717803 END Avoiding the indivisible lot validation for the reversal transactions */
1790: CLOSE check_yield_correction;
1791:
1792: IF l_is_yield_correction = 1 THEN
1793: IF (l_debug = 1) THEN
1794: inv_log_util.trace('validate_quantities: End .... ', 'INV_TXN_MANAGER_GRP', 9);
1795: END IF;
1796: RETURN TRUE;
1797: END IF;
1798: END IF;
1799: /*Bug#14700832 End*/
1800:
1801: --the transaction is not valid regarding lot indivisible:
1802: IF (l_debug = 1) THEN
1803: inv_log_util.trace('validate_quantities: Failed check for lot indivisibility', 'INV_TXN_MANAGER_GRP', 9);
1804: END IF;
1805: RAISE FND_API.G_EXC_ERROR;
1806: END IF;
1807:
1806: END IF;
1807:
1808: END IF;
1809: IF (l_debug = 1) THEN
1810: inv_log_util.trace('validate_quantities: passed check for lot indivisibility', 'INV_TXN_MANAGER_GRP', 9);
1811: END IF;
1812:
1813: END IF;--} -- l_lot_divisible_flag = 'N'
1814:
1812:
1813: END IF;--} -- l_lot_divisible_flag = 'N'
1814:
1815: IF (l_debug = 1) THEN
1816: inv_log_util.trace('validate_quantities: End .... ', 'INV_TXN_MANAGER_GRP', 9);
1817: END IF;
1818:
1819: RETURN TRUE;
1820:
1829: l_error_exp := l_msg;
1830: l_error_code := l_msg;
1831:
1832: IF (l_debug = 1) THEN
1833: inv_log_util.trace('validate_quantities: FND_API.G_EXC_ERROR ' || l_error_code, 'INV_TXN_MANAGER_GRP', 9);
1834: END IF;
1835:
1836: errupdate(p_rowid, p_lot_rowid);
1837: RETURN FALSE;
1837: RETURN FALSE;
1838:
1839: WHEN OTHERS THEN
1840: IF (l_debug = 1) THEN
1841: inv_log_util.trace('validate_quantities: when others'||substr(sqlerrm,1,240),'INV_TXN_MANAGER_GRP',1);
1842: END IF;
1843: RETURN FALSE;
1844:
1845: END validate_quantities;
2046: END;
2047:
2048: /**J-dev check we need to perform a full validation*/
2049: IF (l_debug = 1) THEN
2050: inv_log_util.trace('wip_constants.DMF_PATCHSET_LEVEL'||wip_constants.dmf_patchset_level,'INV_TXN_MANAGER_GRP', 9);
2051: inv_log_util.trace('wip_constants.DMF_PATCHSET_J_VALUE'||wip_constants.dmf_patchset_J_VALUE,'INV_TXN_MANAGER_GRP', 9);
2052: END IF;
2053:
2054: IF (srctypeid = 5 AND wip_constants.DMF_PATCHSET_LEVEL>= wip_constants.DMF_PATCHSET_J_VALUE) THEN
2047:
2048: /**J-dev check we need to perform a full validation*/
2049: IF (l_debug = 1) THEN
2050: inv_log_util.trace('wip_constants.DMF_PATCHSET_LEVEL'||wip_constants.dmf_patchset_level,'INV_TXN_MANAGER_GRP', 9);
2051: inv_log_util.trace('wip_constants.DMF_PATCHSET_J_VALUE'||wip_constants.dmf_patchset_J_VALUE,'INV_TXN_MANAGER_GRP', 9);
2052: END IF;
2053:
2054: IF (srctypeid = 5 AND wip_constants.DMF_PATCHSET_LEVEL>= wip_constants.DMF_PATCHSET_J_VALUE) THEN
2055: IF (p_validation_level <> fnd_api.g_valid_level_full) THEN
2055: IF (p_validation_level <> fnd_api.g_valid_level_full) THEN
2056: l_validate_full := FALSE;
2057: /**implies this a WIP desktop transaction*/
2058: IF (l_debug = 1) THEN
2059: inv_log_util.trace('Val Grp:WIP desktop trx','INV_TXN_MANAGER_GRP', 9);
2060: END IF;
2061: ELSE
2062: IF (l_debug = 1) THEN
2063: inv_log_util.trace('Val Grp:WIP MTI trx','INV_TXN_MANAGER_GRP', 9);
2059: inv_log_util.trace('Val Grp:WIP desktop trx','INV_TXN_MANAGER_GRP', 9);
2060: END IF;
2061: ELSE
2062: IF (l_debug = 1) THEN
2063: inv_log_util.trace('Val Grp:WIP MTI trx','INV_TXN_MANAGER_GRP', 9);
2064: END IF;
2065: END IF;
2066: END IF;
2067:
2210: AND MSI.INVENTORY_ITEM_FLAG = 'Y');
2211:
2212: l_count := SQL%ROWCOUNT;
2213: IF (l_debug = 1) THEN
2214: inv_log_util.trace('Validating specified item ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2215: END IF;
2216:
2217:
2218:
2243: AND MSI.COSTING_ENABLED_FLAG = 'Y');
2244:
2245: l_count := SQL%ROWCOUNT;
2246: IF (l_debug = 1) THEN
2247: inv_log_util.trace('Validating specified item ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2248: END IF;
2249:
2250: /*----------------------------------------------------------------+
2251: | The inv layer is validated seperately for layer cost update
2274: AND CIL.LAYER_QUANTITY > 0);
2275:
2276: l_count := SQL%ROWCOUNT;
2277: IF (l_debug = 1) THEN
2278: inv_log_util.trace('Validating for layer cost update ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2279: END IF;
2280: END IF;--J-dev
2281:
2282: /*------------------------------------------------------------------------+
2314: MS2.REVISION_QTY_CONTROL_CODE = 2)));
2315:
2316: l_count := SQL%ROWCOUNT;
2317: IF (l_debug = 1) THEN
2318: inv_log_util.trace('Validating lot/serial/revision control for direct inter-org transfers (exclude internal order) ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2319: END IF;
2320:
2321: /**Bug 13365231 we need allow serial contorl 'sale order receipt' at source org
2322: * when the transaction is Int Order Direct Ship
2349: MS2.REVISION_QTY_CONTROL_CODE = 2)));
2350:
2351: l_count := SQL%ROWCOUNT;
2352: IF (l_debug = 1) THEN
2353: inv_log_util.trace('Validating lot/serial/revision control for direct inter-org transfers (only for internal order) ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2354: END IF;
2355: /*End Bug 13365231 */
2356:
2357: END IF;--J-dev
2385: AND MSI.MTL_TRANSACTIONS_ENABLED_FLAG = 'Y');
2386:
2387: l_count := SQL%ROWCOUNT;
2388: IF (l_debug = 1) THEN
2389: inv_log_util.trace('Validating item against xfer org ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2390: END IF;
2391:
2392: END IF;--J-dev
2393:
2427: AND NVL(MSI.DISABLE_DATE,SYSDATE+1) > SYSDATE)));
2428:
2429: l_count := SQL%ROWCOUNT;
2430: IF (l_debug = 1) THEN
2431: inv_log_util.trace('Validating subinventory code ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2432: END IF;
2433:
2434:
2435:
2479: AND NVL(MSI.DISABLE_DATE,SYSDATE+1) > SYSDATE)));
2480:
2481: l_count := SQL%ROWCOUNT;
2482: IF (l_debug = 1) THEN
2483: inv_log_util.trace('Validating xfer subinventory code ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2484: END IF;
2485: END IF;--J-dev
2486:
2487:
2523: AND ITM.RESTRICT_SUBINVENTORIES_CODE = 2);
2524:
2525: l_count := SQL%ROWCOUNT;
2526: IF (l_debug = 1) THEN
2527: inv_log_util.trace('Validating restricted subinventories ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2528: END IF;
2529:
2530:
2531: /*--------------------------------------------------------+
2578:
2579:
2580: l_count := SQL%ROWCOUNT;
2581: IF (l_debug = 1) THEN
2582: inv_log_util.trace('Validating xfer res subs ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2583: END IF;
2584:
2585: END IF;--J-dev
2586:
2719:
2720: l_count := l_count + SQL%ROWCOUNT;
2721:
2722: IF (l_debug = 1) THEN
2723: inv_log_util.trace('Validating subs ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2724: END IF;
2725: FND_MESSAGE.set_name('INV', 'INV_ERR_DETVAL');
2726: FND_MESSAGE.set_token('token', numhold);
2727:
2759: AND MSI.QUANTITY_TRACKED = 2)));
2760:
2761: l_count := SQL%ROWCOUNT;
2762: IF (l_debug = 1) THEN
2763: inv_log_util.trace('Validating subs else ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2764: END IF;
2765: FND_MESSAGE.set_name('INV', 'INV_ERR_DETVAL');
2766: FND_MESSAGE.set_token('token', numhold);
2767:
2858:
2859:
2860: l_count := l_count + SQL%ROWCOUNT;
2861: IF (l_debug = 1) THEN
2862: inv_log_util.trace('Validating transaction source ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2863: END IF;
2864:
2865: END IF;--J-dev
2866:
2887: AND nvl(MTT.DISABLE_DATE,SYSDATE+1) > SYSDATE );
2888:
2889: l_count := SQL%ROWCOUNT;
2890: IF (l_debug = 1) THEN
2891: inv_log_util.trace('Validating transaction type ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2892: END IF;
2893:
2894:
2895: /*-------------------------------------------------------+
2912: OR (TRANSACTION_ACTION_ID = 30 AND UPPER(NVL(FLOW_SCHEDULE,'N')) <> 'Y')); /* CFM Scrap Transaction */
2913:
2914: l_count := SQL%ROWCOUNT;
2915: IF (l_debug = 1) THEN
2916: inv_log_util.trace('Validating transaction action ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2917: END IF;
2918:
2919:
2920: /*-------------------------------------------------------+
2942: AND NVL(OOD.DISABLE_DATE, SYSDATE + 1) > SYSDATE);
2943:
2944: l_count := SQL%ROWCOUNT;
2945: IF (l_debug = 1) THEN
2946: inv_log_util.trace('Validating ORG ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2947: END IF;
2948:
2949:
2950: /*-------------------------------------------------------------+
2980: AND MIP.FROM_ORGANIZATION_ID = MTI.ORGANIZATION_ID));
2981:
2982: l_count := SQL%ROWCOUNT;
2983: IF (l_debug = 1) THEN
2984: inv_log_util.trace('Validating xfer ORG ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2985: END IF;
2986:
2987: END IF;--J-dev
2988:
3067:
3068: END IF;--J-dev
3069:
3070: IF (l_debug = 1) THEN
3071: inv_log_util.trace('Validating revisions ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3072: END IF;
3073:
3074: /* Bug# 10331476 - Start : Restricting unimplemented item revisions for transactions with source type (13, 6, 3)*/
3075:
3104:
3105: l_count := SQL%ROWCOUNT;
3106:
3107: IF (l_debug = 1) THEN
3108: inv_log_util.trace('Validating unimplemented revisions ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3109: END IF;
3110:
3111: /* Bug# 10331476: End */
3112:
3136: AND NVL(MTR.DISABLE_DATE, SYSDATE + 1) > SYSDATE);
3137:
3138: l_count := SQL%ROWCOUNT;
3139: IF (l_debug = 1) THEN
3140: inv_log_util.trace('Validating reasons ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3141: END IF;
3142:
3143: --Jalaj Srivastava Bug 4969885
3144: --Validate the transaction uom befoire validating quantities
3169: AND MIUV.UOM_CODE = MTI.TRANSACTION_UOM);
3170:
3171: l_count := SQL%ROWCOUNT;
3172: IF (l_debug = 1) THEN
3173: inv_log_util.trace('Validating transaction uom ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3174: END IF;
3175:
3176: /*------------------------------------------------------+
3177: | Validating transaction quantity
3210: AND TRANSACTION_ACTION_ID IN (12,27,31,33);
3211:
3212: l_count := l_count + SQL%ROWCOUNT;
3213: IF (l_debug = 1) THEN
3214: inv_log_util.trace('Validating transaction quantity ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3215: END IF;
3216:
3217: IF (l_debug = 1) THEN
3218: inv_log_util.trace('start of OPM validations within (validate_group)' , 'INV_TXN_MANAGER_GRP', 9);
3214: inv_log_util.trace('Validating transaction quantity ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3215: END IF;
3216:
3217: IF (l_debug = 1) THEN
3218: inv_log_util.trace('start of OPM validations within (validate_group)' , 'INV_TXN_MANAGER_GRP', 9);
3219: END IF;
3220:
3221: OPEN AA2 ;
3222: LOOP
3246: --{
3247: IF (l_lot_control_code = 1 ) THEN
3248:
3249: IF (l_debug = 1) THEN
3250: inv_log_util.trace('calling validate_quantities IN (validate_group)' , 'INV_TXN_MANAGER_GRP', 9);
3251: END IF;
3252:
3253: /*------------------------------------------------------+
3254: | Validating secondary quantity, only
3272: );
3273: --{
3274: IF (l_qty_check) THEN
3275: IF (l_debug = 1) THEN
3276: inv_log_util.trace('validate_quantities IN (validate_group) - PASSED ' , 'INV_TXN_MANAGER_GRP', 9);
3277: END IF;
3278:
3279: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
3280: SET TRANSACTION_QUANTITY = l_transaction_quantity,
3284:
3285: ELSE
3286: -- validation failed
3287: IF (l_debug = 1) THEN
3288: inv_log_util.trace('validate_quantities IN (validate_group) - FAIL ' || l_msg_data , 'INV_TXN_MANAGER_GRP', 9);
3289: inv_log_util.trace('validate_group: TRANSACTION_QUANTITY ' || l_transaction_quantity , 'INV_TXN_MANAGER_GRP', 9);
3290: inv_log_util.trace('validate_group: SECONDARY_TRANSACTION_QUANTITY ' || l_secondary_quantity || ' uom2 '|| l_secondary_uom_code ,
3291: 'INV_TXN_MANAGER_GRP', 9);
3292: END IF;
3285: ELSE
3286: -- validation failed
3287: IF (l_debug = 1) THEN
3288: inv_log_util.trace('validate_quantities IN (validate_group) - FAIL ' || l_msg_data , 'INV_TXN_MANAGER_GRP', 9);
3289: inv_log_util.trace('validate_group: TRANSACTION_QUANTITY ' || l_transaction_quantity , 'INV_TXN_MANAGER_GRP', 9);
3290: inv_log_util.trace('validate_group: SECONDARY_TRANSACTION_QUANTITY ' || l_secondary_quantity || ' uom2 '|| l_secondary_uom_code ,
3291: 'INV_TXN_MANAGER_GRP', 9);
3292: END IF;
3293: END IF;--}
3287: IF (l_debug = 1) THEN
3288: inv_log_util.trace('validate_quantities IN (validate_group) - FAIL ' || l_msg_data , 'INV_TXN_MANAGER_GRP', 9);
3289: inv_log_util.trace('validate_group: TRANSACTION_QUANTITY ' || l_transaction_quantity , 'INV_TXN_MANAGER_GRP', 9);
3290: inv_log_util.trace('validate_group: SECONDARY_TRANSACTION_QUANTITY ' || l_secondary_quantity || ' uom2 '|| l_secondary_uom_code ,
3291: 'INV_TXN_MANAGER_GRP', 9);
3292: END IF;
3293: END IF;--}
3294: ELSIF (l_lot_control_code = 2 ) THEN
3295: IF (l_debug = 1) THEN
3292: END IF;
3293: END IF;--}
3294: ELSIF (l_lot_control_code = 2 ) THEN
3295: IF (l_debug = 1) THEN
3296: inv_log_util.trace('validate_group: for lot controlled items secondary uom='||l_secondary_uom_code, 'INV_TXN_MANAGER_GRP', 9);
3297: END IF;
3298: IF (l_secondary_uom_code <> l_item_secondary_uom_code) THEN
3299: IF (l_debug = 1) THEN
3300: inv_log_util.trace('validate_group: sec uom in mti is diff than item sec uom', 'INV_TXN_MANAGER_GRP', 9);
3296: inv_log_util.trace('validate_group: for lot controlled items secondary uom='||l_secondary_uom_code, 'INV_TXN_MANAGER_GRP', 9);
3297: END IF;
3298: IF (l_secondary_uom_code <> l_item_secondary_uom_code) THEN
3299: IF (l_debug = 1) THEN
3300: inv_log_util.trace('validate_group: sec uom in mti is diff than item sec uom', 'INV_TXN_MANAGER_GRP', 9);
3301: END IF;
3302: loaderrmsg('INV_INCORRECT_SECONDARY_UOM','INV_INCORRECT_SECONDARY_UOM');
3303: errupdate(l_rowid, NULL);
3304: END IF;
3379: AND OVERCOMPLETION_TRANSACTION_QTY > TRANSACTION_QUANTITY;
3380:
3381: l_count := l_count + SQL%ROWCOUNT;
3382: IF (l_debug = 1) THEN
3383: inv_log_util.trace('Validating overcompletion quantity ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3384: END IF;
3385:
3386:
3387: /*------------------------------------------------------+
3454:
3455:
3456: l_count := l_count + SQL%ROWCOUNT;
3457: IF (l_debug = 1) THEN
3458: inv_log_util.trace('Validating distribution account ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3459: END IF;
3460:
3461: END IF;--J-dev
3462:
3518: AND NVL(FR.DISABLE_DATE, SYSDATE + 1) > SYSDATE);
3519:
3520: l_count := l_count + SQL%ROWCOUNT;
3521: IF (l_debug = 1) THEN
3522: inv_log_util.trace('Validating freight account ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3523: END IF;
3524: END IF; --J-dev
3525:
3526: /*--------------------------------------------------------+
3556: AND WEN.WIP_ENTITY_ID = MTI.TRANSACTION_SOURCE_ID);
3557:
3558: l_count := SQL%ROWCOUNT;
3559: IF (l_debug = 1) THEN
3560: inv_log_util.trace('Validating wip entity non-CFM ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3561: END IF;
3562: END IF;
3563: END IF;--J-dev
3564:
3595: AND WEN.WIP_ENTITY_ID = MTI.TRANSACTION_SOURCE_ID);
3596:
3597: l_count := SQL%ROWCOUNT;
3598: IF (l_debug = 1) THEN
3599: inv_log_util.trace('Validating wip entity CFM ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3600: END IF;
3601: END IF;
3602: END IF;--J-dev
3603:
3783: AND TRUNC(NVL(CCG.DISABLE_DATE,SYSDATE+1)) >= TRUNC(SYSDATE) ) ;
3784:
3785: l_count := SQL%ROWCOUNT;
3786: IF (l_debug = 1) THEN
3787: inv_log_util.trace('Validating cost group ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3788: END IF;
3789:
3790: END IF;--J-dev
3791:
3818:
3819:
3820: l_count := SQL%ROWCOUNT;
3821: IF (l_debug = 1) THEN
3822: inv_log_util.trace('Validating xfer cost group ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3823: END IF;
3824:
3825: /*-------------------------------------------------------------+
3826: | Validate the interface table for Planning Organization
3858: paa.using_organization_id = mti.organization_id));
3859:
3860: l_count := SQL%ROWCOUNT;
3861: IF (l_debug = 1) THEN
3862: inv_log_util.trace('Validating group Plann Org:Supplier' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3863: END IF;
3864:
3865: --if the planning _org is a inventory org it should be in
3866: --mtl_parameters.
3887:
3888:
3889: l_count := SQL%ROWCOUNT;
3890: IF (l_debug = 1) THEN
3891: inv_log_util.trace('Validating group Planning Org:Inventory Org' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3892: END IF;
3893:
3894:
3895: /*-------------------------------------------------------------+
3919:
3920:
3921: l_count := SQL%ROWCOUNT;
3922: IF (l_debug = 1) THEN
3923: inv_log_util.trace('Validating group LPN:LPN_ID' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3924: END IF;
3925:
3926: --Validate Xfr LPN
3927:
4037:
4038:
4039: l_count := SQL%ROWCOUNT;
4040: IF (l_debug = 1) THEN
4041: inv_log_util.trace('Validating group LPN:XFER_LPN_ID' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
4042: END IF;
4043:
4044:
4045: --Validate Content LPN
4064:
4065:
4066: l_count := SQL%ROWCOUNT;
4067: IF (l_debug = 1) THEN
4068: inv_log_util.trace('Validating group LPN:Content_LPN_ID' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
4069: END IF;
4070:
4071:
4072: /*-------------------------------------------------------------+
4230: AND MSI.EAM_ITEM_TYPE = 2)));
4231:
4232: l_count := SQL%ROWCOUNT;
4233: IF (l_debug = 1) THEN
4234: inv_log_util.trace('Validating rebuild items ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
4235: END IF;
4236: -- end of fix for eam
4237:
4238: END IF;--J-dev
4244:
4245: EXCEPTION
4246: WHEN OTHERS THEN
4247: IF (l_debug = 1) THEN
4248: inv_log_util.trace('Error in validate_group : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
4249: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
4250: END IF;
4251: x_return_status := FND_API.G_RET_STS_ERROR;
4252: FND_MESSAGE.clear;
4245: EXCEPTION
4246: WHEN OTHERS THEN
4247: IF (l_debug = 1) THEN
4248: inv_log_util.trace('Error in validate_group : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
4249: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
4250: END IF;
4251: x_return_status := FND_API.G_RET_STS_ERROR;
4252: FND_MESSAGE.clear;
4253:
4421: end if;
4422:
4423: -- INVCONV start fabdi
4424: IF (l_debug = 1) THEN
4425: inv_log_util.trace('invconv: inside lotcheck..', 'INV_TXN_MANAGER_GRP', 9);
4426: END IF;
4427:
4428: /* GET Copy Lot Attribute_flag */
4429:
4549: -- INVCONV start fabdi
4550: l_transaction_uom_code := p_trxuom;
4551:
4552: IF (l_debug = 1) THEN
4553: inv_log_util.trace('lotcheck: calling validate_quantities', 'INV_TXN_MANAGER_GRP', 9);
4554: inv_log_util.trace('l_parent_object_type: ' || l_parent_object_type,'INV_TXN_MANAGER_GRP', 9);
4555: inv_log_util.trace('l_parent_object_id: ' || l_parent_object_id,'INV_TXN_MANAGER_GRP', 9);
4556: inv_log_util.trace('l_parent_object_number: ' || l_parent_object_number,'INV_TXN_MANAGER_GRP', 9);
4557: inv_log_util.trace('l_parent_item_id: ' || l_parent_item_id,'INV_TXN_MANAGER_GRP', 9);
4550: l_transaction_uom_code := p_trxuom;
4551:
4552: IF (l_debug = 1) THEN
4553: inv_log_util.trace('lotcheck: calling validate_quantities', 'INV_TXN_MANAGER_GRP', 9);
4554: inv_log_util.trace('l_parent_object_type: ' || l_parent_object_type,'INV_TXN_MANAGER_GRP', 9);
4555: inv_log_util.trace('l_parent_object_id: ' || l_parent_object_id,'INV_TXN_MANAGER_GRP', 9);
4556: inv_log_util.trace('l_parent_object_number: ' || l_parent_object_number,'INV_TXN_MANAGER_GRP', 9);
4557: inv_log_util.trace('l_parent_item_id: ' || l_parent_item_id,'INV_TXN_MANAGER_GRP', 9);
4558: inv_log_util.trace('l_parent_object_type2: ' || l_parent_object_type2,'INV_TXN_MANAGER_GRP', 9);
4551:
4552: IF (l_debug = 1) THEN
4553: inv_log_util.trace('lotcheck: calling validate_quantities', 'INV_TXN_MANAGER_GRP', 9);
4554: inv_log_util.trace('l_parent_object_type: ' || l_parent_object_type,'INV_TXN_MANAGER_GRP', 9);
4555: inv_log_util.trace('l_parent_object_id: ' || l_parent_object_id,'INV_TXN_MANAGER_GRP', 9);
4556: inv_log_util.trace('l_parent_object_number: ' || l_parent_object_number,'INV_TXN_MANAGER_GRP', 9);
4557: inv_log_util.trace('l_parent_item_id: ' || l_parent_item_id,'INV_TXN_MANAGER_GRP', 9);
4558: inv_log_util.trace('l_parent_object_type2: ' || l_parent_object_type2,'INV_TXN_MANAGER_GRP', 9);
4559: inv_log_util.trace('l_parent_object_id2: ' || l_parent_object_id2,'INV_TXN_MANAGER_GRP', 9);
4552: IF (l_debug = 1) THEN
4553: inv_log_util.trace('lotcheck: calling validate_quantities', 'INV_TXN_MANAGER_GRP', 9);
4554: inv_log_util.trace('l_parent_object_type: ' || l_parent_object_type,'INV_TXN_MANAGER_GRP', 9);
4555: inv_log_util.trace('l_parent_object_id: ' || l_parent_object_id,'INV_TXN_MANAGER_GRP', 9);
4556: inv_log_util.trace('l_parent_object_number: ' || l_parent_object_number,'INV_TXN_MANAGER_GRP', 9);
4557: inv_log_util.trace('l_parent_item_id: ' || l_parent_item_id,'INV_TXN_MANAGER_GRP', 9);
4558: inv_log_util.trace('l_parent_object_type2: ' || l_parent_object_type2,'INV_TXN_MANAGER_GRP', 9);
4559: inv_log_util.trace('l_parent_object_id2: ' || l_parent_object_id2,'INV_TXN_MANAGER_GRP', 9);
4560: inv_log_util.trace('l_parent_object_number2: ' || l_parent_object_number2,'INV_TXN_MANAGER_GRP', 9);
4553: inv_log_util.trace('lotcheck: calling validate_quantities', 'INV_TXN_MANAGER_GRP', 9);
4554: inv_log_util.trace('l_parent_object_type: ' || l_parent_object_type,'INV_TXN_MANAGER_GRP', 9);
4555: inv_log_util.trace('l_parent_object_id: ' || l_parent_object_id,'INV_TXN_MANAGER_GRP', 9);
4556: inv_log_util.trace('l_parent_object_number: ' || l_parent_object_number,'INV_TXN_MANAGER_GRP', 9);
4557: inv_log_util.trace('l_parent_item_id: ' || l_parent_item_id,'INV_TXN_MANAGER_GRP', 9);
4558: inv_log_util.trace('l_parent_object_type2: ' || l_parent_object_type2,'INV_TXN_MANAGER_GRP', 9);
4559: inv_log_util.trace('l_parent_object_id2: ' || l_parent_object_id2,'INV_TXN_MANAGER_GRP', 9);
4560: inv_log_util.trace('l_parent_object_number2: ' || l_parent_object_number2,'INV_TXN_MANAGER_GRP', 9);
4561: inv_log_util.trace('l_sertempid: ' || l_sertempid,'INV_TXN_MANAGER_GRP', 9);
4554: inv_log_util.trace('l_parent_object_type: ' || l_parent_object_type,'INV_TXN_MANAGER_GRP', 9);
4555: inv_log_util.trace('l_parent_object_id: ' || l_parent_object_id,'INV_TXN_MANAGER_GRP', 9);
4556: inv_log_util.trace('l_parent_object_number: ' || l_parent_object_number,'INV_TXN_MANAGER_GRP', 9);
4557: inv_log_util.trace('l_parent_item_id: ' || l_parent_item_id,'INV_TXN_MANAGER_GRP', 9);
4558: inv_log_util.trace('l_parent_object_type2: ' || l_parent_object_type2,'INV_TXN_MANAGER_GRP', 9);
4559: inv_log_util.trace('l_parent_object_id2: ' || l_parent_object_id2,'INV_TXN_MANAGER_GRP', 9);
4560: inv_log_util.trace('l_parent_object_number2: ' || l_parent_object_number2,'INV_TXN_MANAGER_GRP', 9);
4561: inv_log_util.trace('l_sertempid: ' || l_sertempid,'INV_TXN_MANAGER_GRP', 9);
4562:
4555: inv_log_util.trace('l_parent_object_id: ' || l_parent_object_id,'INV_TXN_MANAGER_GRP', 9);
4556: inv_log_util.trace('l_parent_object_number: ' || l_parent_object_number,'INV_TXN_MANAGER_GRP', 9);
4557: inv_log_util.trace('l_parent_item_id: ' || l_parent_item_id,'INV_TXN_MANAGER_GRP', 9);
4558: inv_log_util.trace('l_parent_object_type2: ' || l_parent_object_type2,'INV_TXN_MANAGER_GRP', 9);
4559: inv_log_util.trace('l_parent_object_id2: ' || l_parent_object_id2,'INV_TXN_MANAGER_GRP', 9);
4560: inv_log_util.trace('l_parent_object_number2: ' || l_parent_object_number2,'INV_TXN_MANAGER_GRP', 9);
4561: inv_log_util.trace('l_sertempid: ' || l_sertempid,'INV_TXN_MANAGER_GRP', 9);
4562:
4563: END IF;
4556: inv_log_util.trace('l_parent_object_number: ' || l_parent_object_number,'INV_TXN_MANAGER_GRP', 9);
4557: inv_log_util.trace('l_parent_item_id: ' || l_parent_item_id,'INV_TXN_MANAGER_GRP', 9);
4558: inv_log_util.trace('l_parent_object_type2: ' || l_parent_object_type2,'INV_TXN_MANAGER_GRP', 9);
4559: inv_log_util.trace('l_parent_object_id2: ' || l_parent_object_id2,'INV_TXN_MANAGER_GRP', 9);
4560: inv_log_util.trace('l_parent_object_number2: ' || l_parent_object_number2,'INV_TXN_MANAGER_GRP', 9);
4561: inv_log_util.trace('l_sertempid: ' || l_sertempid,'INV_TXN_MANAGER_GRP', 9);
4562:
4563: END IF;
4564:
4557: inv_log_util.trace('l_parent_item_id: ' || l_parent_item_id,'INV_TXN_MANAGER_GRP', 9);
4558: inv_log_util.trace('l_parent_object_type2: ' || l_parent_object_type2,'INV_TXN_MANAGER_GRP', 9);
4559: inv_log_util.trace('l_parent_object_id2: ' || l_parent_object_id2,'INV_TXN_MANAGER_GRP', 9);
4560: inv_log_util.trace('l_parent_object_number2: ' || l_parent_object_number2,'INV_TXN_MANAGER_GRP', 9);
4561: inv_log_util.trace('l_sertempid: ' || l_sertempid,'INV_TXN_MANAGER_GRP', 9);
4562:
4563: END IF;
4564:
4565:
4588:
4589:
4590: IF (l_qty_check) THEN
4591: IF (l_debug = 1) THEN
4592: inv_log_util.trace('validate_quantities IN (lotcheck) ==> PASS ' , 'INV_TXN_MANAGER_GRP', 9);
4593: END IF;
4594:
4595: UPDATE MTL_TRANSACTION_LOTS_INTERFACE MTLI
4596: SET TRANSACTION_QUANTITY = l_lotqty,
4597: SECONDARY_TRANSACTION_QUANTITY = l_secondary_quantity
4598: WHERE ROWID = l_lotrowid;
4599: ELSE
4600: IF (l_debug = 1) THEN
4601: inv_log_util.trace('validate_quantities IN (lotcheck) - FAIL ' || l_msg_data, 'INV_TXN_MANAGER_GRP', 9);
4602: END IF;
4603: l_error_exp := '';
4604: l_error_code := '';
4605: FND_MESSAGE.clear;
4606: return(FALSE);
4607: END IF;
4608:
4609: IF (l_debug = 1) THEN
4610: inv_log_util.trace('calling VALIDATE_ADDITIONAL_ATTR', 'INV_TXN_MANAGER_GRP', 9);
4611: end if;
4612:
4613: IF l_child_lot_enabled = 'N'
4614: THEN
4654: IF (l_attr_check)
4655: THEN
4656:
4657: IF (l_debug = 1) THEN
4658: inv_log_util.trace('VALIDATE_ADDITIONAL_ATTR IN (lotcheck) ==> PASS ' , 'INV_TXN_MANAGER_GRP', 9);
4659: END IF;
4660:
4661: -- nsinghi bug 5209065. Added the following line.
4662: -- Expiration date was getting reset and hence ensured that appropriate value gets updated to MTLI.
4678: WHERE ROWID = l_lotrowid;
4679:
4680: ELSE
4681: IF (l_debug = 1) THEN
4682: inv_log_util.trace('VALIDATE_ADDITIONAL_ATTR IN (lotcheck) - FAIL ' || l_msg_data, 'INV_TXN_MANAGER_GRP', 9);
4683: END IF;
4684: l_error_exp := '';
4685: l_error_code := '';
4686: FND_MESSAGE.clear;
4696: THEN
4697: -- mrana:5443557: this is not needed anymore AND (p_is_wsm_enabled = 'N')) THEN
4698: IF (l_debug = 1) THEN
4699: INV_log_util.trace('{{- It is lot+serial controlled item. Call validate_serial_genealogy_data }}'
4700: , 'INV_TXN_MANAGER_GRP', 9);
4701: END IF;
4702: validate_serial_genealogy_data ( p_interface_id => l_sertempid
4703: , p_org_id => p_orgid
4704: , x_return_status => l_return_status
4711: ELSE
4712: IF (l_debug = 1) THEN
4713: INV_log_util.trace('{{- It is lot controlled item - if parent details are available, }} ' ||
4714: '{{ Validation/derivation of parent object details should happen here}}'
4715: , 'INV_TXN_MANAGER_GRP', 9);
4716: END IF;
4717: IF (l_parent_object_id is NOT NULL AND l_parent_object_type is NOT NULL) OR
4718: (l_parent_object_type is NOT NULL AND l_parent_object_number is NOT NULL
4719: AND l_parent_Item_id IS NOT NULL) THEN
4718: (l_parent_object_type is NOT NULL AND l_parent_object_number is NOT NULL
4719: AND l_parent_Item_id IS NOT NULL) THEN
4720: IF (l_debug = 1) THEN
4721: inv_log_util.trace('{{- Parent details are available - Validation/derivation of }} ' ||
4722: '{{ parent object details is called here}}' , 'INV_TXN_MANAGER_GRP', 9);
4723: END IF;
4724: validate_derive_object_details
4725: ( p_org_id => p_orgid
4726: , p_object_type => l_parent_object_type
4745: ELSE
4746: null; -- Parent object details not populated during wip issue . It is OK
4747: IF (l_debug = 1) THEN
4748: inv_log_util.trace('{{ Parent object details not populated during WIP issue . It is OK }}' ,
4749: 'INV_TXN_MANAGER_GRP', 9);
4750: END IF;
4751: END IF;
4752: END IF;
4753: IF (l_debug = 1) THEN
4751: END IF;
4752: END IF;
4753: IF (l_debug = 1) THEN
4754: inv_log_util.trace('{{- It is not a WIP issue transactioon, so no validation/derivation of }}' ||
4755: '{{ parent object details should happen here}}' , 'INV_TXN_MANAGER_GRP', 9);
4756: END IF;
4757: END IF;
4758: -- R12 Genealogy Enhancement : End
4759: --bug 8497953 kbanddyo added lot number and org id as in parameters for invoking inv_convert
5148: l_locator := fnd_flex_ext.concatenate_segments(n_segments => l_nseg,
5149: segments => l_segmentarray,
5150: delimiter => l_delim);
5151: IF (l_debug = 1) THEN
5152: inv_log_util.trace('Locator is : ' || l_locator, 'INV_TXN_MANAGER_GRP','1');
5153: END IF;
5154: /*
5155: * If Locator control allows dynamic creation then create the combination
5156: * if it does not already exist else just check if it exists.
5181: else
5182: x_locid := NULL;
5183: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
5184: IF (l_debug = 1) THEN
5185: inv_log_util.trace('Error in getloc : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
5186: inv_log_util.trace('Error in getloc : error_segment :' || FND_FLEX_KEYVAL.error_segment , 'INV_TXN_MANAGER_GRP','1');
5187: inv_log_util.trace('Error in getloc : error_message :' || FND_FLEX_KEYVAL.error_message , 'INV_TXN_MANAGER_GRP','1');
5188: inv_log_util.trace('Error in getloc : encoded_error_message :' || FND_FLEX_KEYVAL.encoded_error_message , 'INV_TXN_MANAGER_GRP','1');
5189: END IF;
5182: x_locid := NULL;
5183: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
5184: IF (l_debug = 1) THEN
5185: inv_log_util.trace('Error in getloc : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
5186: inv_log_util.trace('Error in getloc : error_segment :' || FND_FLEX_KEYVAL.error_segment , 'INV_TXN_MANAGER_GRP','1');
5187: inv_log_util.trace('Error in getloc : error_message :' || FND_FLEX_KEYVAL.error_message , 'INV_TXN_MANAGER_GRP','1');
5188: inv_log_util.trace('Error in getloc : encoded_error_message :' || FND_FLEX_KEYVAL.encoded_error_message , 'INV_TXN_MANAGER_GRP','1');
5189: END IF;
5190: end if;
5183: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
5184: IF (l_debug = 1) THEN
5185: inv_log_util.trace('Error in getloc : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
5186: inv_log_util.trace('Error in getloc : error_segment :' || FND_FLEX_KEYVAL.error_segment , 'INV_TXN_MANAGER_GRP','1');
5187: inv_log_util.trace('Error in getloc : error_message :' || FND_FLEX_KEYVAL.error_message , 'INV_TXN_MANAGER_GRP','1');
5188: inv_log_util.trace('Error in getloc : encoded_error_message :' || FND_FLEX_KEYVAL.encoded_error_message , 'INV_TXN_MANAGER_GRP','1');
5189: END IF;
5190: end if;
5191:
5184: IF (l_debug = 1) THEN
5185: inv_log_util.trace('Error in getloc : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
5186: inv_log_util.trace('Error in getloc : error_segment :' || FND_FLEX_KEYVAL.error_segment , 'INV_TXN_MANAGER_GRP','1');
5187: inv_log_util.trace('Error in getloc : error_message :' || FND_FLEX_KEYVAL.error_message , 'INV_TXN_MANAGER_GRP','1');
5188: inv_log_util.trace('Error in getloc : encoded_error_message :' || FND_FLEX_KEYVAL.encoded_error_message , 'INV_TXN_MANAGER_GRP','1');
5189: END IF;
5190: end if;
5191:
5192: return l_val;
5196: WHEN OTHERS THEN
5197:
5198: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
5199: IF (l_debug = 1) THEN
5200: inv_log_util.trace('Error in getloc : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
5201: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
5202: END IF;
5203: x_locid := NULL;
5204: return FALSE;
5197:
5198: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
5199: IF (l_debug = 1) THEN
5200: inv_log_util.trace('Error in getloc : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
5201: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
5202: END IF;
5203: x_locid := NULL;
5204: return FALSE;
5205:
5272:
5273: WHEN OTHERS THEN
5274: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
5275: IF (l_debug = 1) THEN
5276: inv_log_util.trace('Error in getlocId : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
5277: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
5278: END IF;
5279: x_locid := NULL;
5280: return FALSE;
5273: WHEN OTHERS THEN
5274: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
5275: IF (l_debug = 1) THEN
5276: inv_log_util.trace('Error in getlocId : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
5277: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
5278: END IF;
5279: x_locid := NULL;
5280: return FALSE;
5281:
5350:
5351: WHEN OTHERS THEN
5352: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
5353: IF (l_debug = 1) THEN
5354: inv_log_util.trace('Error in getxlocId : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
5355: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
5356: END IF;
5357: x_locid := NULL;
5358: return FALSE;
5351: WHEN OTHERS THEN
5352: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
5353: IF (l_debug = 1) THEN
5354: inv_log_util.trace('Error in getxlocId : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
5355: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
5356: END IF;
5357: x_locid := NULL;
5358: return FALSE;
5359:
5433:
5434: WHEN OTHERS THEN
5435: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
5436: IF (l_debug = 1) THEN
5437: inv_log_util.trace('Error in getplocId : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
5438: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
5439: END IF;
5440: x_locid := NULL;
5441: return FALSE;
5434: WHEN OTHERS THEN
5435: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
5436: IF (l_debug = 1) THEN
5437: inv_log_util.trace('Error in getplocId : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
5438: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
5439: END IF;
5440: x_locid := NULL;
5441: return FALSE;
5442:
5516:
5517: WHEN OTHERS THEN
5518: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
5519: IF (l_debug = 1) THEN
5520: inv_log_util.trace('Error in getxplocId : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
5521: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
5522: END IF;
5523: x_locid := NULL;
5524: return FALSE;
5517: WHEN OTHERS THEN
5518: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
5519: IF (l_debug = 1) THEN
5520: inv_log_util.trace('Error in getxplocId : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
5521: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
5522: END IF;
5523: x_locid := NULL;
5524: return FALSE;
5525:
5623: return(TRUE);
5624: END IF;
5625: END IF;
5626: IF (l_debug=1) THEN
5627: inv_log_util.trace('Validating l_ltv_project_id='||l_ltv_project_id||' l_ltv_task_id='||l_ltv_task_id, 'INV_TXN_MANAGER_GRP','9');
5628: END IF;
5629:
5630: IF p_ltv_scheduled_flag = 1 THEN
5631: inv_wwacst.call_prj_loc_validation(
5641:
5642: IF l_ltv_loc_project_valid = 0 THEN
5643: --Bug #6449667, Modified the code below so that relavant error message are displayed from project validation API.
5644: IF (l_debug=1) THEN
5645: inv_log_util.trace('Error in validate_loc_for_project : ' || l_ltv_error_mesg, 'INV_TXN_MANAGER_GRP','9');
5646: END IF;
5647: --FND_MESSAGE.set_name('INV','INV_INT_SRCWIPEXP');
5648: FND_MESSAGE.set_name('INV', 'INV_FND_GENERIC_MSG');
5649: FND_MESSAGE.set_token('MSG', l_ltv_error_mesg);
5808: exception
5809: when others then
5810: l_count := 0;
5811: IF (l_debug = 1) THEN
5812: inv_log_util.trace('Could not lock MIL : ' || substr(sqlerrm, 1, 200), 'INV_TXN_MANAGER_GRP','9');
5813: END IF;
5814: end;
5815:
5816: IF (l_count = 1) THEN
5837: AND SUBINVENTORY_CODE is NULL;
5838:
5839:
5840: IF (l_debug = 1) THEN
5841: inv_log_util.trace('Rows updated in MIL = '||SQL%ROWCOUNT, 'INV_TXN_MANAGER_GRP','9');
5842: END IF;
5843: END IF;
5844:
5845: COMMIT;
5846:
5847: EXCEPTION
5848: WHEN OTHERS THEN
5849: IF (l_debug = 1) THEN
5850: inv_log_util.trace('update_mil SQL : ' || substr(sqlerrm, 1, 200), 'INV_TXN_MANAGER_GRP','9');
5851: END IF;
5852: ROLLBACK;
5853: RETURN;
5854: END update_mil;
5876: WHERE transaction_interface_id = p_txn_interface_id;
5877:
5878: Begin
5879: IF (l_debug = 1) THEN
5880: inv_log_util.trace('Entered The Procedure update_status_id_in_mtli() with the parameters:', 'INV_TXN_MANAGER_GRP','1');
5881: inv_log_util.trace('p_txn_interface_id:'||p_txn_interface_id, 'INV_TXN_MANAGER_GRP','1');
5882: inv_log_util.trace('p_org_id:'||p_org_id, 'INV_TXN_MANAGER_GRP','1');
5883: inv_log_util.trace('p_inventory_item_id:'||p_inventory_item_id, 'INV_TXN_MANAGER_GRP','1');
5884: End If;
5877:
5878: Begin
5879: IF (l_debug = 1) THEN
5880: inv_log_util.trace('Entered The Procedure update_status_id_in_mtli() with the parameters:', 'INV_TXN_MANAGER_GRP','1');
5881: inv_log_util.trace('p_txn_interface_id:'||p_txn_interface_id, 'INV_TXN_MANAGER_GRP','1');
5882: inv_log_util.trace('p_org_id:'||p_org_id, 'INV_TXN_MANAGER_GRP','1');
5883: inv_log_util.trace('p_inventory_item_id:'||p_inventory_item_id, 'INV_TXN_MANAGER_GRP','1');
5884: End If;
5885:
5878: Begin
5879: IF (l_debug = 1) THEN
5880: inv_log_util.trace('Entered The Procedure update_status_id_in_mtli() with the parameters:', 'INV_TXN_MANAGER_GRP','1');
5881: inv_log_util.trace('p_txn_interface_id:'||p_txn_interface_id, 'INV_TXN_MANAGER_GRP','1');
5882: inv_log_util.trace('p_org_id:'||p_org_id, 'INV_TXN_MANAGER_GRP','1');
5883: inv_log_util.trace('p_inventory_item_id:'||p_inventory_item_id, 'INV_TXN_MANAGER_GRP','1');
5884: End If;
5885:
5886: FOR lots_rec IN lots
5879: IF (l_debug = 1) THEN
5880: inv_log_util.trace('Entered The Procedure update_status_id_in_mtli() with the parameters:', 'INV_TXN_MANAGER_GRP','1');
5881: inv_log_util.trace('p_txn_interface_id:'||p_txn_interface_id, 'INV_TXN_MANAGER_GRP','1');
5882: inv_log_util.trace('p_org_id:'||p_org_id, 'INV_TXN_MANAGER_GRP','1');
5883: inv_log_util.trace('p_inventory_item_id:'||p_inventory_item_id, 'INV_TXN_MANAGER_GRP','1');
5884: End If;
5885:
5886: FOR lots_rec IN lots
5887: LOOP
5887: LOOP
5888: IF lots_rec.status_id IS NULL THEN
5889: l_mtli_status_id := lots_rec.status_id;--To initialize 'lots_rec.status_id' with NULL
5890: IF (l_debug = 1) THEN
5891: inv_log_util.trace('Current cursor values are :', 'INV_TXN_MANAGER_GRP','1');
5892: inv_log_util.trace('lots_rec.lot_number:'||lots_rec.lot_number, 'INV_TXN_MANAGER_GRP','1');
5893: inv_log_util.trace('lots_rec.status_id:'||lots_rec.status_id, 'INV_TXN_MANAGER_GRP','1');
5894: End If;
5895: BEGIN
5888: IF lots_rec.status_id IS NULL THEN
5889: l_mtli_status_id := lots_rec.status_id;--To initialize 'lots_rec.status_id' with NULL
5890: IF (l_debug = 1) THEN
5891: inv_log_util.trace('Current cursor values are :', 'INV_TXN_MANAGER_GRP','1');
5892: inv_log_util.trace('lots_rec.lot_number:'||lots_rec.lot_number, 'INV_TXN_MANAGER_GRP','1');
5893: inv_log_util.trace('lots_rec.status_id:'||lots_rec.status_id, 'INV_TXN_MANAGER_GRP','1');
5894: End If;
5895: BEGIN
5896: SELECT status_id
5889: l_mtli_status_id := lots_rec.status_id;--To initialize 'lots_rec.status_id' with NULL
5890: IF (l_debug = 1) THEN
5891: inv_log_util.trace('Current cursor values are :', 'INV_TXN_MANAGER_GRP','1');
5892: inv_log_util.trace('lots_rec.lot_number:'||lots_rec.lot_number, 'INV_TXN_MANAGER_GRP','1');
5893: inv_log_util.trace('lots_rec.status_id:'||lots_rec.status_id, 'INV_TXN_MANAGER_GRP','1');
5894: End If;
5895: BEGIN
5896: SELECT status_id
5897: INTO l_mtli_status_id
5900: AND inventory_item_id = p_inventory_item_id
5901: AND lot_number = lots_rec.lot_number;
5902:
5903: IF (l_debug = 1) THEN
5904: inv_log_util.trace('After selecting from MLN, Value is:', 'INV_TXN_MANAGER_GRP','1');
5905: inv_log_util.trace('l_mtli_status_id:'||l_mtli_status_id, 'INV_TXN_MANAGER_GRP','1');
5906: End If;
5907:
5908: EXCEPTION WHEN NO_DATA_FOUND THEN
5901: AND lot_number = lots_rec.lot_number;
5902:
5903: IF (l_debug = 1) THEN
5904: inv_log_util.trace('After selecting from MLN, Value is:', 'INV_TXN_MANAGER_GRP','1');
5905: inv_log_util.trace('l_mtli_status_id:'||l_mtli_status_id, 'INV_TXN_MANAGER_GRP','1');
5906: End If;
5907:
5908: EXCEPTION WHEN NO_DATA_FOUND THEN
5909: BEGIN
5914: FROM mtl_system_items
5915: WHERE organization_id = p_org_id
5916: AND inventory_item_id = p_inventory_item_id;
5917: IF (l_debug = 1) THEN
5918: inv_log_util.trace('After selecting from MSI, Values are:', 'INV_TXN_MANAGER_GRP','1');
5919: inv_log_util.trace('lot_status_enabled:'||l_status_enabled, 'INV_TXN_MANAGER_GRP','1');
5920: inv_log_util.trace('default_lot_status_id:'||l_status_id, 'INV_TXN_MANAGER_GRP','1');
5921: End If;
5922:
5915: WHERE organization_id = p_org_id
5916: AND inventory_item_id = p_inventory_item_id;
5917: IF (l_debug = 1) THEN
5918: inv_log_util.trace('After selecting from MSI, Values are:', 'INV_TXN_MANAGER_GRP','1');
5919: inv_log_util.trace('lot_status_enabled:'||l_status_enabled, 'INV_TXN_MANAGER_GRP','1');
5920: inv_log_util.trace('default_lot_status_id:'||l_status_id, 'INV_TXN_MANAGER_GRP','1');
5921: End If;
5922:
5923: IF (NVL(l_status_enabled, 'N') = 'Y') THEN
5916: AND inventory_item_id = p_inventory_item_id;
5917: IF (l_debug = 1) THEN
5918: inv_log_util.trace('After selecting from MSI, Values are:', 'INV_TXN_MANAGER_GRP','1');
5919: inv_log_util.trace('lot_status_enabled:'||l_status_enabled, 'INV_TXN_MANAGER_GRP','1');
5920: inv_log_util.trace('default_lot_status_id:'||l_status_id, 'INV_TXN_MANAGER_GRP','1');
5921: End If;
5922:
5923: IF (NVL(l_status_enabled, 'N') = 'Y') THEN
5924: l_mtli_status_id := l_status_id;
5928: END;
5929: END;
5930:
5931: IF (l_debug = 1) THEN
5932: inv_log_util.trace('Before Update of MTLI', 'INV_TXN_MANAGER_GRP','1');
5933: End If;
5934:
5935: UPDATE mtl_transaction_lots_interface
5936: SET status_id = l_mtli_status_id
5943: ,program_update_date = Decode(fnd_global.conc_request_id, -1, NULL, SYSDATE)
5944: WHERE ROWID = lots_rec.rowid;
5945:
5946: IF (l_debug = 1) THEN
5947: inv_log_util.trace('After Update of MTLI', 'INV_TXN_MANAGER_GRP','1');
5948: End If;
5949:
5950: END IF;
5951: END LOOP;
5953: IF lots%ISOPEN THEN
5954: CLOSE lots;
5955: END IF;
5956: IF (l_debug = 1) THEN
5957: inv_log_util.trace('Exception occurred in update_status_id_in_mtli procedure:', 'INV_TXN_MANAGER_GRP','1');
5958: inv_log_util.trace('Error Is:'||SQLERRM, 'INV_TXN_MANAGER_GRP','1');
5959: End If;
5960:
5961: End update_status_id_in_mtli;
5954: CLOSE lots;
5955: END IF;
5956: IF (l_debug = 1) THEN
5957: inv_log_util.trace('Exception occurred in update_status_id_in_mtli procedure:', 'INV_TXN_MANAGER_GRP','1');
5958: inv_log_util.trace('Error Is:'||SQLERRM, 'INV_TXN_MANAGER_GRP','1');
5959: End If;
5960:
5961: End update_status_id_in_mtli;
5962:
6102:
6103: -- Check for both lot and serial controlled item
6104: IF (p_lotctrl = 2 AND p_serctrl IN (2,5) ) THEN
6105: IF (l_debug = 1) THEN
6106: inv_log_util.trace('Validating both lot and serial controlled item','INV_TXN_MANAGER_GRP', 9);
6107: END IF;
6108: -- Looping through all MTLI records
6109: FOR rec_MTLI IN cur_MTLI
6110: LOOP
6126: END; -- End of check for lot exists
6127:
6128: IF (l_lot_exists = 1) THEN
6129: IF (l_debug = 1) THEN
6130: inv_log_util.trace('Lot already exists','INV_TXN_MANAGER_GRP', 9);
6131: END IF;
6132: ELSE -- Have to create a new lot
6133:
6134: l_attributes_tbl(1) := rec_MTLI.ATTRIBUTE1;
6190: l_d_attributes_tbl(9) := rec_MTLI.D_ATTRIBUTE9;
6191: l_d_attributes_tbl(10) := rec_MTLI.D_ATTRIBUTE10;
6192:
6193: IF (l_debug=1) THEN
6194: inv_log_util.trace('Before call to inv_lot_api_pub.create_inv_lot', 'INV_TXN_MANAGER_GRP', 9);
6195: END IF;
6196:
6197: inv_lot_api_pub.create_inv_lot(
6198: x_return_status => x_return_status
6236: , p_source => null
6237: );
6238:
6239: IF (l_debug=1) THEN
6240: inv_log_util.trace('After call to inv_lot_api_pub.create_inv_lot', 'INV_TXN_MANAGER_GRP', 9);
6241: inv_log_util.trace(' x_return_status : ' || x_return_status, 'INV_TXN_MANAGER_GRP', 9);
6242: END IF;
6243: END IF; -- End of Lot Exists check
6244:
6237: );
6238:
6239: IF (l_debug=1) THEN
6240: inv_log_util.trace('After call to inv_lot_api_pub.create_inv_lot', 'INV_TXN_MANAGER_GRP', 9);
6241: inv_log_util.trace(' x_return_status : ' || x_return_status, 'INV_TXN_MANAGER_GRP', 9);
6242: END IF;
6243: END IF; -- End of Lot Exists check
6244:
6245: IF (x_return_status = lg_ret_sts_success) THEN
6243: END IF; -- End of Lot Exists check
6244:
6245: IF (x_return_status = lg_ret_sts_success) THEN
6246: IF (l_debug=1) THEN
6247: inv_log_util.trace('Call to inv_lot_api_pub.create_inv_lot was successful','INV_TXN_MANAGER_GRP', 9);
6248: END IF;
6249: -- Looping through every serials in the lot
6250: FOR rec_MSNI IN cur_MSNI(rec_MTLI.SERIAL_TRANSACTION_TEMP_ID)
6251: LOOP
6249: -- Looping through every serials in the lot
6250: FOR rec_MSNI IN cur_MSNI(rec_MTLI.SERIAL_TRANSACTION_TEMP_ID)
6251: LOOP
6252: IF (l_debug=1) THEN
6253: inv_log_util.trace('About to call inv_serial_number_pub.validate_serials', 'INV_TXN_MANAGER_GRP', 9);
6254: END IF;
6255:
6256: l_qty := NULL;
6257: l_end_ser := NVL(rec_MSNI.TO_SERIAL_NUMBER,rec_MSNI.FM_SERIAL_NUMBER);
6276: IF (l_start_qty <> l_qty) THEN
6277: x_return_status := lg_ret_sts_error;
6278: loaderrmsg('INV_INT_SERMISCODE','INV_LOT_SERIAL_VALIDATION_FAIL');
6279: IF (l_debug = 1) THEN
6280: inv_log_util.trace('Group mark validations failed', 'INV_TXN_MANAGER_GRP', 9);
6281: END IF;
6282: RETURN;
6283: END IF; -- End of group mark validations
6284: IF (l_debug=1) THEN
6281: END IF;
6282: RETURN;
6283: END IF; -- End of group mark validations
6284: IF (l_debug=1) THEN
6285: inv_log_util.trace('After call to inv_serial_number_pub.validate_serials', 'INV_TXN_MANAGER_GRP', 9);
6286: inv_log_util.trace(' l_ret_number : ' || l_ret_number, 'INV_TXN_MANAGER_GRP', 9);
6287: END IF;
6288: IF (l_ret_number = 0) THEN -- Success from inv_serial_number_pub.validate_serials
6289: x_return_status := lg_ret_sts_success;
6282: RETURN;
6283: END IF; -- End of group mark validations
6284: IF (l_debug=1) THEN
6285: inv_log_util.trace('After call to inv_serial_number_pub.validate_serials', 'INV_TXN_MANAGER_GRP', 9);
6286: inv_log_util.trace(' l_ret_number : ' || l_ret_number, 'INV_TXN_MANAGER_GRP', 9);
6287: END IF;
6288: IF (l_ret_number = 0) THEN -- Success from inv_serial_number_pub.validate_serials
6289: x_return_status := lg_ret_sts_success;
6290: IF (l_debug = 1) THEN
6287: END IF;
6288: IF (l_ret_number = 0) THEN -- Success from inv_serial_number_pub.validate_serials
6289: x_return_status := lg_ret_sts_success;
6290: IF (l_debug = 1) THEN
6291: inv_log_util.trace('Call to inv_serial_number_pub.validate_serials was successful','INV_TXN_MANAGER_GRP', 9);
6292: END IF;
6293: ELSIF (l_ret_number = 1) THEN
6294: x_return_status := lg_ret_sts_error;
6295: loaderrmsg('INV_INT_SERMISCODE','INV_LOT_SERIAL_VALIDATION_FAIL');
6293: ELSIF (l_ret_number = 1) THEN
6294: x_return_status := lg_ret_sts_error;
6295: loaderrmsg('INV_INT_SERMISCODE','INV_LOT_SERIAL_VALIDATION_FAIL');
6296: IF (l_debug = 1) THEN
6297: inv_log_util.trace('Error from inv_serial_number_pub.validate_serials'|| x_proc_msg || ':' || sqlerrm,'INV_TXN_MANAGER_GRP', 9);
6298: END IF;
6299: RETURN;
6300: END IF;
6301: END LOOP; -- End of cur_MSNI cursor
6303: ELSE -- Failure from inv_lot_api_pub.create_inv_lot
6304: x_return_status := lg_ret_sts_error;
6305: loaderrmsg('INV_INT_LOTCODE','INV_LOT_SERIAL_VALIDATION_FAIL');
6306: IF (l_debug = 1) THEN
6307: inv_log_util.trace('Error from inv_lot_api_pub.create_inv_lot'|| x_proc_msg || ':' || sqlerrm,'INV_TXN_MANAGER_GRP', 9);
6308: END IF;
6309: RETURN;
6310: END IF;
6311:
6321: l_qty := NULL;
6322: l_end_ser := NVL(rec_MSNI.TO_SERIAL_NUMBER,rec_MSNI.FM_SERIAL_NUMBER);
6323: l_start_qty := inv_serial_number_pub.get_serial_diff(rec_MSNI.FM_SERIAL_NUMBER,l_end_ser);
6324: IF (l_debug=1) THEN
6325: inv_log_util.trace('About to call inv_serial_number_pub.validate_serials', 'INV_TXN_MANAGER_GRP', 9);
6326: END IF;
6327: l_ret_number := inv_serial_number_pub.validate_serials(
6328: p_org_id => p_org_id
6329: , p_item_id => p_item_id
6344: IF (l_start_qty <> l_qty) THEN
6345: x_return_status := lg_ret_sts_error;
6346: loaderrmsg('INV_INT_SERMISCODE','INV_LOT_SERIAL_VALIDATION_FAIL');
6347: IF (l_debug = 1) THEN
6348: inv_log_util.trace('Group mark validations failed', 'INV_TXN_MANAGER_GRP', 9);
6349: END IF;
6350: RETURN;
6351: END IF; -- End of check for group mark validations
6352: IF (l_debug=1) THEN
6349: END IF;
6350: RETURN;
6351: END IF; -- End of check for group mark validations
6352: IF (l_debug=1) THEN
6353: inv_log_util.trace('After call to inv_serial_number_pub.validate_serials', 'INV_TXN_MANAGER_GRP', 9);
6354: inv_log_util.trace(' l_ret_number : ' || l_ret_number, 'INV_TXN_MANAGER_GRP', 9);
6355: END IF;
6356:
6357: IF (l_ret_number = 0) THEN -- Success from inv_serial_number_pub.validate_serials
6350: RETURN;
6351: END IF; -- End of check for group mark validations
6352: IF (l_debug=1) THEN
6353: inv_log_util.trace('After call to inv_serial_number_pub.validate_serials', 'INV_TXN_MANAGER_GRP', 9);
6354: inv_log_util.trace(' l_ret_number : ' || l_ret_number, 'INV_TXN_MANAGER_GRP', 9);
6355: END IF;
6356:
6357: IF (l_ret_number = 0) THEN -- Success from inv_serial_number_pub.validate_serials
6358: x_return_status := lg_ret_sts_success;
6356:
6357: IF (l_ret_number = 0) THEN -- Success from inv_serial_number_pub.validate_serials
6358: x_return_status := lg_ret_sts_success;
6359: IF (l_debug = 1) THEN
6360: inv_log_util.trace('Call to inv_serial_number_pub.validate_serials was successful','INV_TXN_MANAGER_GRP', 9);
6361: END IF;
6362: ELSIF (l_ret_number = 1) THEN -- Failure from inv_serial_number_pub.validate_serials
6363: x_return_status := lg_ret_sts_error;
6364: loaderrmsg('INV_INT_SERMISCODE','INV_LOT_SERIAL_VALIDATION_FAIL');
6362: ELSIF (l_ret_number = 1) THEN -- Failure from inv_serial_number_pub.validate_serials
6363: x_return_status := lg_ret_sts_error;
6364: loaderrmsg('INV_INT_SERMISCODE','INV_LOT_SERIAL_VALIDATION_FAIL');
6365: IF (l_debug = 1) THEN
6366: inv_log_util.trace('Error from inv_serial_number_pub.validate_serials'|| x_proc_msg || ':' || sqlerrm,'INV_TXN_MANAGER_GRP', 9);
6367: END IF;
6368: RETURN;
6369: END IF;
6370:
6373: EXCEPTION
6374: WHEN OTHERS THEN
6375: x_return_status := lg_ret_sts_unexp_error;
6376: IF (l_debug = 1) THEN
6377: inv_log_util.trace(' x_return_status : ' || x_return_status, 'INV_TXN_MANAGER_GRP', 9);
6378: inv_log_util.trace('Exception in validate_lot_serial_for_rcpt '|| x_proc_msg || ':' || sqlerrm, 'INV_TXN_MANAGER_GRP', 9);
6379: END IF;
6380: loaderrmsg('INV_INT_SERMISCODE','INV_LOT_SERIAL_VALIDATION_FAIL');
6381:
6374: WHEN OTHERS THEN
6375: x_return_status := lg_ret_sts_unexp_error;
6376: IF (l_debug = 1) THEN
6377: inv_log_util.trace(' x_return_status : ' || x_return_status, 'INV_TXN_MANAGER_GRP', 9);
6378: inv_log_util.trace('Exception in validate_lot_serial_for_rcpt '|| x_proc_msg || ':' || sqlerrm, 'INV_TXN_MANAGER_GRP', 9);
6379: END IF;
6380: loaderrmsg('INV_INT_SERMISCODE','INV_LOT_SERIAL_VALIDATION_FAIL');
6381:
6382: END validate_lot_serial_for_rcpt;
6484: p_applid => p_applid,
6485: p_progid => p_progid);
6486: IF (line_vldn_error_flag = 'Y') then
6487: IF (l_debug = 1) THEN
6488: inv_log_util.trace('Error in Line Validatin', 'INV_TXN_MANAGER_GRP', 9);
6489: END IF;
6490: END IF;
6491:
6492: END;
6497: EXCEPTION
6498: WHEN OTHERS THEN
6499: IF (l_debug = 1) THEN
6500: inv_log_util.trace('Error in outer validate_lines'||substr(sqlerrm,1,240),
6501: 'INV_TXN_MANAGER_GRP',1);
6502: END IF;
6503: x_return_status := FND_API.G_RET_STS_ERROR;
6504:
6505: END validate_lines;
6672: if (l_debug is null) then
6673: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6674: end if;
6675: IF (l_debug = 1) THEN
6676: inv_log_util.trace('in Validate_lines ....','INV_TXN_MANAGER_GRP', 9);
6677: END IF;
6678:
6679: l_count := 0;
6680:
6760: fnd_profile.put('MFG_ORGANIZATION_ID',l_orgid);
6761:
6762: /**J-dev check we need to perform a full validation*/
6763: IF (l_debug = 1) THEN
6764: inv_log_util.trace('wip_constants.DMF_PATCHSET_LEVEL'||wip_constants.dmf_patchset_level,'INV_TXN_MANAGER_GRP', 9);
6765: inv_log_util.trace('wip_constants.DMF_PATCHSET_J_VALUE'||wip_constants.dmf_patchset_J_VALUE,'INV_TXN_MANAGER_GRP', 9);
6766: END IF;
6767:
6768: IF (l_srctype = 5 AND wip_constants.DMF_PATCHSET_LEVEL>= wip_constants.DMF_PATCHSET_J_VALUE) THEN
6761:
6762: /**J-dev check we need to perform a full validation*/
6763: IF (l_debug = 1) THEN
6764: inv_log_util.trace('wip_constants.DMF_PATCHSET_LEVEL'||wip_constants.dmf_patchset_level,'INV_TXN_MANAGER_GRP', 9);
6765: inv_log_util.trace('wip_constants.DMF_PATCHSET_J_VALUE'||wip_constants.dmf_patchset_J_VALUE,'INV_TXN_MANAGER_GRP', 9);
6766: END IF;
6767:
6768: IF (l_srctype = 5 AND wip_constants.DMF_PATCHSET_LEVEL>= wip_constants.DMF_PATCHSET_J_VALUE) THEN
6769: IF (p_validation_level <> fnd_api.g_valid_level_full) THEN
6769: IF (p_validation_level <> fnd_api.g_valid_level_full) THEN
6770: l_validate_full := FALSE;
6771: /**implies this a WIP desktop transaction*/
6772: IF (l_debug = 1) THEN
6773: inv_log_util.trace('Val line:WIP desktop trx','INV_TXN_MANAGER_GRP', 9);
6774: END IF;
6775: ELSE
6776: IF (l_debug = 1) THEN
6777: inv_log_util.trace('Val line:WIP MTI trx','INV_TXN_MANAGER_GRP', 9);
6773: inv_log_util.trace('Val line:WIP desktop trx','INV_TXN_MANAGER_GRP', 9);
6774: END IF;
6775: ELSE
6776: IF (l_debug = 1) THEN
6777: inv_log_util.trace('Val line:WIP MTI trx','INV_TXN_MANAGER_GRP', 9);
6778: END IF;
6779: END IF;
6780: END IF;--J-dev
6781:
6799:
6800: --Begin Fix 2505534
6801:
6802: IF (l_debug = 1) THEN
6803: inv_log_util.trace('Before calling setorgclientinfo with l_orgid '||l_orgid, 'INV_TXN_MANAGER_GRP', 9);
6804: END IF;
6805:
6806: IF (NOT setorgclientinfo(l_orgid)) THEN
6807: RAISE fnd_api.g_exc_error;
6807: RAISE fnd_api.g_exc_error;
6808: END IF;
6809:
6810: IF (l_debug = 1) THEN
6811: inv_log_util.trace('After calling setorgclientinfo', 'INV_TXN_MANAGER_GRP',9);
6812: END IF;
6813:
6814: /* load message to detect source project error */
6815: loaderrmsg('INV_PRJ_ERR','INV_PRJ_ERR');
6814: /* load message to detect source project error */
6815: loaderrmsg('INV_PRJ_ERR','INV_PRJ_ERR');
6816:
6817: IF (l_debug = 1) THEN
6818: inv_log_util.trace('After loaderrmsg INV_PRJ_ERR', 'INV_TXN_MANAGER_GRP',9);
6819: END IF;
6820:
6821: /* validate source project id */
6822: IF (l_debug = 1) THEN
6819: END IF;
6820:
6821: /* validate source project id */
6822: IF (l_debug = 1) THEN
6823: inv_log_util.trace('#$Validating source project ID l_error_code '||l_error_code||' l_error_exp '||l_error_exp , 'INV_TXN_MANAGER_GRP', 9);
6824: inv_log_util.trace('#$l_rowid '||l_rowid, 'INV_TXN_MANAGER_GRP', 9);
6825: END IF;
6826:
6827:
6820:
6821: /* validate source project id */
6822: IF (l_debug = 1) THEN
6823: inv_log_util.trace('#$Validating source project ID l_error_code '||l_error_code||' l_error_exp '||l_error_exp , 'INV_TXN_MANAGER_GRP', 9);
6824: inv_log_util.trace('#$l_rowid '||l_rowid, 'INV_TXN_MANAGER_GRP', 9);
6825: END IF;
6826:
6827:
6828: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
6850: WHERE prj1.project_id = mti.source_project_id ) ;
6851:
6852: if sql%notfound then
6853: IF (l_debug = 1) THEN
6854: inv_log_util.trace('Passed the source project Validation**', 'INV_TXN_MANAGER_GRP',9);
6855: END IF;
6856: else
6857: IF (l_debug = 1) THEN
6858: inv_log_util.trace('Failed the source project Validation**', 'INV_TXN_MANAGER_GRP',9);
6854: inv_log_util.trace('Passed the source project Validation**', 'INV_TXN_MANAGER_GRP',9);
6855: END IF;
6856: else
6857: IF (l_debug = 1) THEN
6858: inv_log_util.trace('Failed the source project Validation**', 'INV_TXN_MANAGER_GRP',9);
6859: END IF;
6860: l_count := l_count + 1;
6861: RAISE fnd_api.g_exc_error;
6862: end if;
6861: RAISE fnd_api.g_exc_error;
6862: end if;
6863:
6864: IF (l_debug = 1) THEN
6865: inv_log_util.trace('After update on MTI for INV_PRJ_ERR', 'INV_TXN_MANAGER_GRP',9);
6866: END IF;
6867:
6868: /*
6869:
6879: issue and receipt transactions.
6880: */
6881:
6882: IF (l_debug = 1) THEN
6883: inv_log_util.trace('Before loaderrmsg INV_UNIT_COST_NEG','INV_TXN_MANAGER_GRP',9);
6884: END IF;
6885:
6886: /* validate Negative transaction cost */
6887:
6909: );
6910:
6911: if sql%notfound then
6912: IF (l_debug = 1) THEN
6913: inv_log_util.trace('Passed the Negative Txn cost Validation**', 'INV_TXN_MANAGER_GRP',9);
6914: END IF;
6915: else
6916: IF (l_debug = 1) THEN
6917: inv_log_util.trace('Failed the Negative Txn cost Validation**', 'INV_TXN_MANAGER_GRP',9);
6913: inv_log_util.trace('Passed the Negative Txn cost Validation**', 'INV_TXN_MANAGER_GRP',9);
6914: END IF;
6915: else
6916: IF (l_debug = 1) THEN
6917: inv_log_util.trace('Failed the Negative Txn cost Validation**', 'INV_TXN_MANAGER_GRP',9);
6918: END IF;
6919: l_count := l_count + 1;
6920: RAISE fnd_api.g_exc_error;
6921: end if;
6920: RAISE fnd_api.g_exc_error;
6921: end if;
6922:
6923: IF (l_debug = 1) THEN
6924: inv_log_util.trace('After update on MTI for INV_UNIT_COST_NEG','INV_TXN_MANAGER_GRP',9);
6925: END IF;
6926:
6927:
6928: IF (l_debug = 1) THEN
6925: END IF;
6926:
6927:
6928: IF (l_debug = 1) THEN
6929: inv_log_util.trace('Before loaderrmsg INV_PAORG_ERR','INV_TXN_MANAGER_GRP',9);
6930: END IF;
6931:
6932: /* validate expenditure org id */
6933:
6960: AND NVL(POE.DATE_TO, TRUNC(SYSDATE)));
6961:
6962: if sql%notfound then
6963: IF (l_debug = 1) THEN
6964: inv_log_util.trace('Passed the exp org Validation**', 'INV_TXN_MANAGER_GRP',9);
6965: END IF;
6966: else
6967: IF (l_debug = 1) THEN
6968: inv_log_util.trace('Failed the exp org Validation**', 'INV_TXN_MANAGER_GRP',9);
6964: inv_log_util.trace('Passed the exp org Validation**', 'INV_TXN_MANAGER_GRP',9);
6965: END IF;
6966: else
6967: IF (l_debug = 1) THEN
6968: inv_log_util.trace('Failed the exp org Validation**', 'INV_TXN_MANAGER_GRP',9);
6969: END IF;
6970: l_count := l_count + 1;
6971: RAISE fnd_api.g_exc_error;
6972: end if;
6971: RAISE fnd_api.g_exc_error;
6972: end if;
6973:
6974: IF (l_debug = 1) THEN
6975: inv_log_util.trace('After update on MTI for INV_PAORG_ERR','INV_TXN_MANAGER_GRP',9);
6976: END IF;
6977:
6978: /*
6979: IF (SQL%ROWCOUNT > 0) THEN
7033: /* Bug 12589617: For these transactions serial details are not
7034: * needed
7035: */
7036: IF (l_debug = 1) THEN
7037: inv_log_util.trace('setting the serial_tagged to 1 for Scrap transactions','INV_TXN_MANAGER_GRP',9);
7038: END IF;
7039:
7040: serial_tagged := 1;
7041:
7101: FROM DUAL;
7102: END IF;
7103:
7104: IF (l_debug = 1) THEN
7105: inv_log_util.trace('g_create_loc_at : '||g_create_loc_at, 'INV_TXN_MANAGER_GRP', 9);
7106: END IF;
7107:
7108:
7109: IF ((l_loci = -1) AND (l_locctrl <> 1 AND l_acttype <> 24)) THEN
7224: tev_scheduled_flag := 0;
7225: END;
7226:
7227: IF (l_debug = 1) THEN
7228: inv_log_util.trace('flow_schedule = '|| tev_flow_schedule || ', scheduled_flag = ' || tev_scheduled_flag,'INV_TXN_MANAGER_GRP', 9);
7229: END IF;
7230: END IF;
7231:
7232:
7476:
7477: -- Begin fix of bug 15931430
7478: IF (l_srctype in (8, 13)) and (l_acttype = 3) and (l_xorgid is not null) THEN
7479: IF (l_debug = 1) THEN
7480: inv_log_util.trace('re-setting org context, before calling setorgclientinfo with l_orgid '||l_orgid, 'INV_TXN_MANAGER_GRP', 9);
7481: END IF;
7482:
7483: IF (NOT setorgclientinfo(l_xorgid)) THEN
7484: RAISE fnd_api.g_exc_error;
7485: END IF;
7486: fnd_profile.put('MFG_ORGANIZATION_ID',l_xorgid);
7487:
7488: IF (l_debug = 1) THEN
7489: inv_log_util.trace('re-setting org context, after calling setorgclientinfo', 'INV_TXN_MANAGER_GRP',9);
7490: END IF;
7491: END IF;
7492: -- end fix of bug 15931430
7493:
7507:
7508: -- Begin fix of bug 15931430
7509: IF (l_srctype in (8, 13)) and (l_acttype = 3) and (l_xorgid is not null) then
7510: IF (l_debug = 1) THEN
7511: inv_log_util.trace('For transfer org, before calling setorgclientinfo with l_orgid '||l_orgid, 'INV_TXN_MANAGER_GRP', 9);
7512: END IF;
7513: IF (NOT setorgclientinfo(l_orgid)) THEN
7514: RAISE fnd_api.g_exc_error;
7515: END IF;
7514: RAISE fnd_api.g_exc_error;
7515: END IF;
7516: fnd_profile.put('MFG_ORGANIZATION_ID',l_orgid);
7517: IF (l_debug = 1) THEN
7518: inv_log_util.trace('For transfer org, after calling setorgclientinfo', 'INV_TXN_MANAGER_GRP',9);
7519: END IF;
7520: END IF;
7521: -- end fix of bug 15931430
7522:
7599: IF ( l_acttype IN ( 3, 21) OR
7600: (l_srctype = 8 AND l_acttype IN (1, 2)) ) THEN
7601: IF l_acttype IN ( 1, 2, 21) THEN
7602: IF (l_debug = 1) THEN
7603: inv_log_util.trace('l_acttype: '||l_acttype||' l_srctype: '||l_srctype, 'INV_TXN_MANAGER_GRP', 9);
7604: END IF;
7605:
7606: BEGIN
7607: IF (l_debug = 1) THEN
7604: END IF;
7605:
7606: BEGIN
7607: IF (l_debug = 1) THEN
7608: inv_log_util.trace('Getting the FOB Point between the orgs, '||l_orgid||' and '||l_xorgid, 'INV_TXN_MANAGER_GRP', 9);
7609: END IF;
7610:
7611: SELECT fob_point
7612: INTO l_fob_point
7614: WHERE from_organization_id = l_orgid
7615: AND to_organization_id = l_xorgid;
7616:
7617: IF (l_debug = 1) THEN
7618: inv_log_util.trace('FOB Point is: '||l_fob_point, 'INV_TXN_MANAGER_GRP', 9);
7619: END IF;
7620:
7621: EXCEPTION
7622: WHEN OTHERS THEN
7620:
7621: EXCEPTION
7622: WHEN OTHERS THEN
7623: IF (l_debug = 1) THEN
7624: inv_log_util.trace('Exception while finding the FOB Point.', 'INV_TXN_MANAGER_GRP', 9);
7625: END IF;
7626: l_fob_point := NULL;
7627: END;
7628: IF l_fob_point = 1 THEN
7634: l_validate_xfer_org := TRUE;
7635: END IF;
7636: IF (l_validate_xfer_org) THEN
7637: IF (l_debug = 1) THEN
7638: inv_log_util.trace('l_validate_xfer_org is TRUE', 'INV_TXN_MANAGER_GRP', 9);
7639: END IF;
7640: IF ( get_open_period(l_xorgid,l_trxdate,0) IN (-1, 0)) THEN
7641: FND_MESSAGE.set_name('INV', 'INV_INT_PRDCODE');
7642: l_error_code := FND_MESSAGE.get;
7703: AND trunc(NVL(GCC.END_DATE_ACTIVE, mti.transaction_date + 1)) >= trunc(mti.transaction_date));
7704:
7705: l_count := SQL%ROWCOUNT;
7706: IF (l_debug = 1) THEN
7707: inv_log_util.trace('Validating material account ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
7708: END IF;
7709:
7710: END IF; --J-dev
7711:
7751: AND trunc(NVL(GCC.END_DATE_ACTIVE, mti.transaction_date + 1)) >= trunc(mti.transaction_date));
7752:
7753: l_count := SQL%ROWCOUNT;
7754: IF (l_debug = 1) THEN
7755: inv_log_util.trace('Validating material overhead account ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
7756: END IF;
7757:
7758: END IF; --J-dev
7759:
7798: AND trunc(NVL(GCC.END_DATE_ACTIVE, mti.transaction_date + 1)) >= trunc(mti.transaction_date));
7799:
7800: l_count := SQL%ROWCOUNT;
7801: IF (l_debug = 1) THEN
7802: inv_log_util.trace('Validating resource account ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
7803: END IF;
7804:
7805: END IF; --J-dev
7806:
7845: AND trunc(NVL(GCC.END_DATE_ACTIVE, mti.transaction_date + 1)) >= trunc(mti.transaction_date));
7846:
7847: l_count := SQL%ROWCOUNT;
7848: IF (l_debug = 1) THEN
7849: inv_log_util.trace('Validating outside processing account ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
7850: END IF;
7851:
7852: END IF; --J-dev
7853:
7892: AND trunc(NVL(GCC.END_DATE_ACTIVE, mti.transaction_date + 1)) >= trunc(mti.transaction_date));
7893:
7894: l_count := SQL%ROWCOUNT;
7895: IF (l_debug = 1) THEN
7896: inv_log_util.trace('Validating overhead account ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
7897: END IF;
7898:
7899: END IF; --J-dev
7900:
8033: -- lot and serial controlled item
8034: -- validate lot quantities and mmtt quantity.
8035: BEGIN
8036: IF (l_debug = 1) THEN
8037: inv_log_util.trace('validating lot/serial quantities','INV_TXN_MANAGER_GRP', 9);
8038: END IF;
8039:
8040: SELECT NVL(SUM(ABS(NVL(mtli.transaction_quantity,0))), 0)
8041: INTO l_lot_ser_qty
8050: = mtli.serial_transaction_temp_id);
8051: EXCEPTION
8052: WHEN others THEN
8053: IF (l_debug = 1) THEN
8054: inv_log_util.trace('Ex.. while checking lot/serial quantities','INV_TXN_MANAGER_GRP', 9);
8055: END IF;
8056: l_lot_ser_qty := 0;
8057: END;
8058:
8057: END;
8058:
8059: IF (ABS(l_trxqty) <> l_lot_ser_qty) THEN
8060: IF (l_debug = 1) THEN
8061: inv_log_util.trace('mismatch in lot/serial quantities','INV_TXN_MANAGER_GRP', 9);
8062: END IF;
8063: loaderrmsg('INV_INT_LOTCODE','INV_INVLTPU_LOTTRX_QTY');
8064: errupdate(l_rowid,null);
8065: l_count := l_count + 1;
8065: l_count := l_count + 1;
8066: RAISE fnd_api.g_exc_error;
8067: ELSE
8068: IF (l_debug = 1) THEN
8069: inv_log_util.trace('no mismatch in lot/serial quantities','INV_TXN_MANAGER_GRP', 9);
8070: END IF;
8071: END IF;
8072:
8073: --Serial Tagging
8086: -- serial controlled item
8087: -- validate serial quantities only.
8088: BEGIN
8089: IF (l_debug = 1) THEN
8090: inv_log_util.trace('validating lot/serial quantities','INV_TXN_MANAGER_GRP', 9);
8091: END IF;
8092:
8093: SELECT SUM(get_serial_diff_wrp
8094: (fm_serial_number,NVL(to_serial_number,fm_serial_number)))
8098: EXCEPTION
8099: WHEN others THEN
8100: IF (l_debug = 1) THEN
8101: --serial tagging
8102: inv_log_util.trace('Exception '||SQLERRM,'INV_TXN_MANAGER_GRP', 9);
8103: inv_log_util.trace('Ex.. while checking lot/serial quantities','INV_TXN_MANAGER_GRP', 9);
8104: END IF;
8105: l_lot_ser_qty := 0;
8106: END;
8099: WHEN others THEN
8100: IF (l_debug = 1) THEN
8101: --serial tagging
8102: inv_log_util.trace('Exception '||SQLERRM,'INV_TXN_MANAGER_GRP', 9);
8103: inv_log_util.trace('Ex.. while checking lot/serial quantities','INV_TXN_MANAGER_GRP', 9);
8104: END IF;
8105: l_lot_ser_qty := 0;
8106: END;
8107: IF (ABS(l_priqty) <> l_lot_ser_qty) THEN
8105: l_lot_ser_qty := 0;
8106: END;
8107: IF (ABS(l_priqty) <> l_lot_ser_qty) THEN
8108: IF (l_debug = 1) THEN
8109: inv_log_util.trace('mismatch in serial quantities','INV_TXN_MANAGER_GRP', 9);
8110: END IF;
8111: loaderrmsg('INV_INT_SERMISCODE','INV_INVLTPU_LOTTRX_QTY');
8112: errupdate(l_rowid,null);
8113: l_count := l_count + 1;
8113: l_count := l_count + 1;
8114: RAISE fnd_api.g_exc_error;
8115: ELSE
8116: IF (l_debug = 1) THEN
8117: inv_log_util.trace('no mismatch in serial quantities','INV_TXN_MANAGER_GRP', 9);
8118: END IF;
8119: END IF;
8120: END IF;
8121: END IF;
8126: -- and for the transaction sources -> 3,6 and 13.
8127: IF (l_acttype = 27 AND l_srctype IN(3,6,13)) THEN
8128:
8129: IF (l_debug = 1) THEN
8130: inv_log_util.trace('Before calling validate_lot_serial_for_rcpt','INV_TXN_MANAGER_GRP', 9);
8131: END IF;
8132: SAVEPOINT val_lot_serial_for_rcpt_sp;
8133: validate_lot_serial_for_rcpt( p_interface_id => l_intid
8134: , p_org_id => l_orgid
8142: , p_locator_id => l_locid
8143: , x_proc_msg => l_msg_data
8144: , x_return_status => l_return_status );
8145: IF (l_debug = 1) THEN
8146: inv_log_util.trace('After call to validate_lot_serial_for_rcpt','INV_TXN_MANAGER_GRP', 9);
8147: END IF;
8148:
8149: IF (l_return_status <> lg_ret_sts_success) THEN -- Failure from validate_lot_serial_for_rcpt
8150: IF (l_debug = 1) THEN
8147: END IF;
8148:
8149: IF (l_return_status <> lg_ret_sts_success) THEN -- Failure from validate_lot_serial_for_rcpt
8150: IF (l_debug = 1) THEN
8151: inv_log_util.trace('Error from validate_lot_serial_for_rcpt','INV_TXN_MANAGER_GRP', 9);
8152: END IF;
8153: errupdate(l_rowid,null);
8154: l_count := l_count + 1;
8155: ROLLBACK TO val_lot_serial_for_rcpt_sp;
8155: ROLLBACK TO val_lot_serial_for_rcpt_sp;
8156: RAISE fnd_api.g_exc_error;
8157: ELSE
8158: IF (l_debug = 1) THEN
8159: inv_log_util.trace('Call to validate_lot_serial_for_rcpt successful','INV_TXN_MANAGER_GRP', 9);
8160: END IF;
8161: END IF;
8162:
8163: END IF; -- End of fix for Bug# 5710830
8206: ELSE
8207: if l_trxuom <> l_priuom then
8208: begin
8209: IF (l_debug = 1) THEN
8210: inv_log_util.trace('txn uom different from primary uom','INV_TXN_MANAGER_GRP', 9);
8211: END IF;
8212:
8213: SELECT SUM(PRIMARY_QUANTITY)
8214: INTO l_lot_ser_qty
8213: SELECT SUM(PRIMARY_QUANTITY)
8214: INTO l_lot_ser_qty
8215: FROM mtl_transaction_lots_interface
8216: WHERE transaction_interface_id =l_intid;
8217: inv_log_util.trace('total lot primary quantity '||l_lot_ser_qty,'INV_TXN_MANAGER_GRP', 9);
8218:
8219: EXCEPTION
8220: WHEN others THEN
8221: IF (l_debug = 1) THEN
8218:
8219: EXCEPTION
8220: WHEN others THEN
8221: IF (l_debug = 1) THEN
8222: inv_log_util.trace('Ex.. while checking lot primary quantities','INV_TXN_MANAGER_GRP', 9);
8223: END IF;
8224: l_lot_ser_qty := 0;
8225: end;
8226:
8306: (l_lotctrl = 1 AND (l_serctrl = 2 OR l_serctrl = 5)) )
8307: THEN
8308: IF (l_debug = 1) THEN
8309: INV_log_util.trace('{{- It is serial controlled item. Call validate_serial_genealogy_data }}'
8310: , 'INV_TXN_MANAGER_GRP', 9);
8311: END IF;
8312: validate_serial_genealogy_data ( p_interface_id => l_intid
8313: , p_org_id => l_orgid
8314: , x_return_status => l_return_status
8321: END IF;
8322: ELSE
8323: IF (l_debug = 1) THEN
8324: inv_log_util.trace('{{-It is not a WIP issue transactioon, so no validation/derivation of }}' ||
8325: '{{ parent object details will not happen }}' , 'INV_TXN_MANAGER_GRP', 9);
8326: END IF;
8327: END IF;
8328: -- R12 Genealogy Enhancement : End
8329:
8515: AND ITM.ORGANIZATION_ID = MTI.ORGANIZATION_ID
8516: AND ITM.INVENTORY_ITEM_ID = MTI.INVENTORY_ITEM_ID);
8517:
8518: IF (l_debug = 1) THEN
8519: inv_log_util.trace('Validating locators','INV_TXN_MANAGER_GRP',9);
8520: END IF;
8521:
8522:
8523: /*-----------------------------------------------------------+
8593: AND MSI.RESTRICT_LOCATORS_CODE = 2);
8594:
8595:
8596: IF (l_debug = 1) THEN
8597: inv_log_util.trace('Validating xfer locators ','INV_TXN_MANAGER_GRP',9);
8598: END IF;
8599: /* End changes for bug 3009135 */
8600:
8601:
8657:
8658: IF (l_debug = 1) THEN
8659: IF (l_process_enabled_flag_from <> l_process_enabled_flag_to)
8660: THEN
8661: inv_log_util.trace('This is process-discrete xfer. Getting Transfer Price.','INV_TXN_MANAGER_GRP',9);
8662: ELSIF (l_process_enabled_flag_from = 'Y' AND
8663: l_process_enabled_flag_to = 'Y')
8664: THEN
8665: inv_log_util.trace('This is process-process xfer across OUs. Getting Transfer Price.','INV_TXN_MANAGER_GRP',9);
8661: inv_log_util.trace('This is process-discrete xfer. Getting Transfer Price.','INV_TXN_MANAGER_GRP',9);
8662: ELSIF (l_process_enabled_flag_from = 'Y' AND
8663: l_process_enabled_flag_to = 'Y')
8664: THEN
8665: inv_log_util.trace('This is process-process xfer across OUs. Getting Transfer Price.','INV_TXN_MANAGER_GRP',9);
8666: ELSIF (l_process_enabled_flag_from = 'N' AND
8667: l_process_enabled_flag_to = 'N')
8668: THEN
8669: inv_log_util.trace('This is discrete-discrete xfer across OUs with IC enabled. Getting Transfer Price.','INV_TXN_MANAGER_GRP',9);
8665: inv_log_util.trace('This is process-process xfer across OUs. Getting Transfer Price.','INV_TXN_MANAGER_GRP',9);
8666: ELSIF (l_process_enabled_flag_from = 'N' AND
8667: l_process_enabled_flag_to = 'N')
8668: THEN
8669: inv_log_util.trace('This is discrete-discrete xfer across OUs with IC enabled. Getting Transfer Price.','INV_TXN_MANAGER_GRP',9);
8670: END IF;
8671: END IF;
8672:
8673: --
8739: , x_incr_currency_code => x_incr_currency_code
8740: );
8741:
8742: IF (l_debug = 1) THEN
8743: inv_log_util.trace('After getting transfer price. Status: ' || x_return_status, 'INV_TXN_MANAGER_GRP','1');
8744: END IF;
8745:
8746: IF x_return_status = FND_API.G_RET_STS_SUCCESS
8747: THEN
8756: IF l_transfer_price_priuom IS NOT NULL
8757: THEN
8758:
8759: IF (l_debug = 1) THEN
8760: inv_log_util.trace('Updating MTI with transfer price: ' || l_transfer_price_priuom, 'INV_TXN_MANAGER_GRP','1');
8761: END IF;
8762:
8763: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
8764: SET LAST_UPDATE_DATE = SYSDATE,
8781: inv_log_util.trace('InterOrg Xfer. Skipping transfer price API call as all conditions are not met.' ||
8782: ' From/To ProcessFlags: ' || l_process_enabled_flag_from ||'/'|| l_process_enabled_flag_to ||
8783: ' From/To OUs: ' || l_from_ou ||'/'|| l_to_ou ||
8784: ' l_ic_invoicing_enabled: ' || l_ic_invoicing_enabled,
8785: 'INV_TXN_MANAGER_GRP',9);
8786: END IF;
8787: -- Not a process-discrete xfer. So, set xfer price to NULL
8788: l_transfer_price := NULL;
8789: END IF;
8791: --============================================================
8792: -- End OPM INVCONV changes by umoogala
8793: --============================================================
8794: IF (l_debug = 1) THEN
8795: inv_log_util.trace('end of validate lines inner sec uom code='||p_line_Rec_Type.secondary_uom_code, 'INV_TXN_MANAGER_GRP', 9);
8796: inv_log_util.trace('end of validate lines inner lot control='||to_char(l_lotctrl), 'INV_TXN_MANAGER_GRP', 9);
8797: END IF;
8798: --Jalaj Srivastava Bug 4969885
8799: IF (l_lotctrl=2 AND p_line_Rec_Type.secondary_uom_code IS NOT NULL) THEN
8792: -- End OPM INVCONV changes by umoogala
8793: --============================================================
8794: IF (l_debug = 1) THEN
8795: inv_log_util.trace('end of validate lines inner sec uom code='||p_line_Rec_Type.secondary_uom_code, 'INV_TXN_MANAGER_GRP', 9);
8796: inv_log_util.trace('end of validate lines inner lot control='||to_char(l_lotctrl), 'INV_TXN_MANAGER_GRP', 9);
8797: END IF;
8798: --Jalaj Srivastava Bug 4969885
8799: IF (l_lotctrl=2 AND p_line_Rec_Type.secondary_uom_code IS NOT NULL) THEN
8800: IF (l_debug = 1) THEN
8797: END IF;
8798: --Jalaj Srivastava Bug 4969885
8799: IF (l_lotctrl=2 AND p_line_Rec_Type.secondary_uom_code IS NOT NULL) THEN
8800: IF (l_debug = 1) THEN
8801: inv_log_util.trace('update secondary quantity on line as sum of lot level secondary quantities', 'INV_TXN_MANAGER_GRP', 9);
8802: END IF;
8803: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
8804: SET secondary_transaction_quantity = (SELECT SUM(SECONDARY_TRANSACTION_QUANTITY)
8805: FROM MTL_TRANSACTION_LOTS_INTERFACE MTLI
8841: WHERE ORGANIZATION_ID = l_orgid
8842: AND WMS_ENABLED_FLAG = 'N'); -- Bug 8345339 Changes End
8843:
8844: IF (l_debug = 1) THEN
8845: inv_log_util.trace('Validating cost group ', 'INV_TXN_MANAGER_GRP', 9);
8846: END IF;
8847: END IF;
8848:
8849: /*--------------------------------------------------------------+
8879: WHERE ORGANIZATION_ID = l_cg_org
8880: AND WMS_ENABLED_FLAG = 'N'); -- Bug 8345339 Changes End
8881:
8882: IF (l_debug = 1) THEN
8883: inv_log_util.trace('Validating xfer cost group ', 'INV_TXN_MANAGER_GRP', 9);
8884: END IF;
8885: END IF;
8886:
8887: /* Bug 6356567 Changes Ending */
8958: EXCEPTION
8959: WHEN OTHERS THEN
8960: p_error_flag:='Y';
8961: IF (l_debug = 1) THEN
8962: inv_log_util.trace('Error in validate_line : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
8963: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
8964: END IF;
8965:
8966: UPDATE MTL_TRANSACTIONS_INTERFACE
8959: WHEN OTHERS THEN
8960: p_error_flag:='Y';
8961: IF (l_debug = 1) THEN
8962: inv_log_util.trace('Error in validate_line : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
8963: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
8964: END IF;
8965:
8966: UPDATE MTL_TRANSACTIONS_INTERFACE
8967: SET LAST_UPDATE_DATE = SYSDATE,
9085: /*OSFM Support for Serialized Lot Items*/
9086: IF (l_debug = 1)
9087: THEN
9088: inv_log_util.TRACE ( 'In tmpinsert '
9089: , 'INV_TXN_MANAGER_GRP'
9090: , '9'
9091: );
9092: END IF;
9093: /*********************************************************************
9110: WHEN OTHERS THEN
9111: l_count := 0;
9112: IF(l_debug = 1) THEN
9113: inv_log_util.TRACE ( 'Exce. Section l_count => ' || l_count
9114: , 'INV_TXN_MANAGER_GRP'
9115: , '9'
9116: );
9117: END IF;
9118: END;
9119: IF(l_count = 0 OR l_count IS NULL) THEN
9120: IF (l_debug = 1)
9121: THEN
9122: inv_log_util.TRACE ( 'Returning from tmpinsert '
9123: , 'INV_TXN_MANAGER_GRP'
9124: , '9'
9125: );
9126: END IF;
9127: RETURN TRUE;
9435: TRANSFER_PLANNING_TP_TYPE,
9436: TRANSACTION_BATCH_ID,
9437: TRANSACTION_BATCH_SEQ,
9438: TRANSFER_COST_GROUP_ID,
9439: Decode(p_validation_level,fnd_api.g_valid_level_none,transaction_mode,INV_TXN_MANAGER_GRP.proc_mode_mti),
9440: -- start of fix for eam
9441: -- added following 4 columns
9442: REBUILD_ITEM_ID,
9443: REBUILD_ACTIVITY_ID,
9782: MTI.TRANSFER_PLANNING_TP_TYPE,
9783: MTI.TRANSACTION_BATCH_ID,
9784: MTI.TRANSACTION_BATCH_SEQ,
9785: MTI.TRANSFER_COST_GROUP_ID,
9786: Decode(p_validation_level,fnd_api.g_valid_level_none,mti.transaction_mode,INV_TXN_MANAGER_GRP.proc_mode_mti),
9787: -- start of fix for eam
9788: -- added following 4 columns
9789: MTI.REBUILD_ITEM_ID,
9790: MTI.REBUILD_ACTIVITY_ID,
10136: mti.TRANSFER_PLANNING_TP_TYPE,
10137: MTI.TRANSACTION_BATCH_ID,
10138: MTI.TRANSACTION_BATCH_SEQ,
10139: MTI.TRANSFER_COST_GROUP_ID,
10140: Decode(p_validation_level,fnd_api.g_valid_level_none,mti.transaction_mode,INV_TXN_MANAGER_GRP.proc_mode_mti),
10141: -- start of fix for eam
10142: -- added following 4 columns
10143: MTI.REBUILD_ITEM_ID,
10144: MTI.REBUILD_ACTIVITY_ID,
10466: mti.TRANSFER_PLANNING_TP_TYPE,
10467: MTI.TRANSACTION_BATCH_ID,
10468: MTI.TRANSACTION_BATCH_SEQ,
10469: MTI.TRANSFER_COST_GROUP_ID,
10470: Decode(p_validation_level,fnd_api.g_valid_level_none,mti.transaction_mode,INV_TXN_MANAGER_GRP.proc_mode_mti),
10471: -- start of fix for eam
10472: -- added following 4 columns
10473: MTI.REBUILD_ITEM_ID,
10474: MTI.REBUILD_ACTIVITY_ID,
10500: END IF;--J-dev
10501:
10502:
10503: IF (l_debug = 1) THEN
10504: inv_log_util.trace('going to insert lot'||p_header_id,'INV_TXN_MANAGER_GRP','9');
10505: END IF;
10506:
10507: /* Inserting LOT transactions */
10508: INSERT INTO MTL_TRANSACTION_LOTS_TEMP
10951: EXCEPTION
10952: WHEN OTHERS THEN
10953: IF (l_debug = 1) THEN
10954: inv_log_util.trace('Error in tmpinsert: sqlerrm : ' || substr(sqlerrm, 1, 200),
10955: 'INV_TXN_MANAGER_GRP','9');
10956: END IF;
10957: RETURN FALSE;
10958:
10959: END tmpinsert;
12493: ,
12494: --this goes into transaction_mode
12495: DECODE (p_validation_level
12496: , fnd_api.g_valid_level_none, l_mti_csr.transaction_mode
12497: , inv_txn_manager_grp.proc_mode_mti
12498: )
12499: , l_mti_csr.rebuild_item_id
12500: , l_mti_csr.rebuild_activity_id
12501: , l_mti_csr.rebuild_serial_number
14255: l_header_id := p_header_id;
14256:
14257: IF (l_debug = 1)
14258: THEN
14259: inv_log_util.trace('-----Inside validate_Transactions-------.trxhdr='||p_header_id, 'INV_TXN_MANAGER_GRP', 9);
14260: END IF;
14261:
14262:
14263: /*----------------------------------------------------------+
14312: p_validation_level);
14313:
14314: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
14315: IF (l_debug = 1) THEN
14316: inv_log_util.trace('Unexpected Error in Validate Group : ' || x_msg_data,'INV_TXN_MANAGER_GRP', 9);
14317: END IF;
14318: RAISE fnd_api.g_exc_unexpected_error;
14319: END IF;
14320:
14343: p_progid => l_progid
14344: );
14345: IF (line_vldn_error_flag = 'Y') then
14346: IF (l_debug = 1) THEN
14347: inv_log_util.trace('Error in Line Validatin', 'INV_TXN_MANAGER_GRP', 9);
14348: END IF;
14349: RAISE fnd_api.g_exc_unexpected_error;
14350: --SQL error
14351: END IF;
14353: /* Added for Bug 6679112 */
14354: WHEN others THEN
14355: batch_error := TRUE;
14356: IF (l_debug = 1) THEN
14357: inv_log_util.trace('Error:'||sqlerrm,'INV_TXN_MANAGER_GRP', 9);
14358: END IF;
14359: END; --validate_lines block
14360: /* Changes for bug 6679112 end */
14361:
14411: --END LOOP
14412: --clear all tree cache.
14413:
14414: IF (l_debug = 1) THEN
14415: inv_log_util.trace('Going to open cursor AA1', 'INV_TXN_MANAGER_GRP', 9);
14416: END IF;
14417:
14418: FOR l_Line_rec_Type IN AA1 LOOP
14419: /*Bug#5075521. Moved all the validation code inside the below IF condition so that
14428:
14429: tree_exists := FALSE;
14430:
14431: IF (l_debug = 1) THEN
14432: inv_log_util.trace('Getting values from Z1 cursor', 'INV_TXN_MANAGER_GRP', 9);
14433: END IF;
14434:
14435: l_temp_rowid :=z1_rec.ROWID;
14436: l_item_id:=z1_rec.inventory_item_id;
14465: l_lot_control := TRUE;
14466: END IF;
14467:
14468: IF (l_debug = 1) THEN
14469: inv_log_util.trace('Calling Create tree', 'INV_TXN_MANAGER_GRP', 9);
14470: END IF;
14471:
14472: -- Bug 4194323 WIP Assembly Return transactions need to look for Available Quantity against the Sales Order
14473: -- if it's linked to job
14482: EXCEPTION
14483: WHEN OTHERS THEN
14484: IF (l_debug = 1) THEN
14485: inv_log_util.trace('Error in getting Demand Info : '
14486: || x_msg_data,'INV_TXN_MANAGER_GRP', 9);
14487: END IF;
14488: l_error_code := 'Error in getting Demand Info';
14489: l_error_exp := 'Error in getting Demand Info';
14490:
14576: END IF;
14577: -- Bug 4194323 Ends
14578:
14579: IF (l_debug = 1) THEN
14580: inv_log_util.trace('After create tree tree : ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14581: END IF;
14582:
14583:
14584:
14583:
14584:
14585: IF l_return_status IN (fnd_api.g_ret_sts_error, fnd_api.g_ret_sts_unexp_error) THEN
14586: IF (l_debug = 1) THEN
14587: inv_log_util.trace('Error while creating tree : x_msg_data = ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14588: END IF;
14589: FND_MESSAGE.set_name('INV','INV_ERR_CREATETREE');
14590: FND_MESSAGE.set_token('ROUTINE','UE:AVAIL_TO_TRX');
14591: l_error_code := FND_MESSAGE.get;
14649: );
14650:
14651: IF l_return_status = fnd_api.g_ret_sts_error THEN
14652: IF (l_debug = 1) THEN
14653: inv_log_util.trace('Expected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14654: END IF;
14655:
14656: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14657: FND_MESSAGE.set_token('token1','XACT_QTY1');
14690: END IF ;
14691:
14692: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
14693: IF (l_debug = 1) THEN
14694: inv_log_util.trace('UnExpected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14695: END IF;
14696:
14697: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14698: FND_MESSAGE.set_token('token1','XACT_QTY1');
14729: l_current_err_batch_id := l_Line_rec_Type.transaction_batch_id;--Bug#5075521
14730: END IF;
14731:
14732: IF (l_debug = 1) THEN
14733: inv_log_util.trace('L_QOH : ' || l_qoh,'INV_TXN_MANAGER_GRP', 9);
14734: inv_log_util.trace('L_RQOH : ' || l_rqoh,'INV_TXN_MANAGER_GRP', 9);
14735: inv_log_util.trace('L_PQOH : ' || l_pqoh,'INV_TXN_MANAGER_GRP', 9);
14736: inv_log_util.trace('L_QR : ' || l_qr,'INV_TXN_MANAGER_GRP', 9);
14737: inv_log_util.trace('L_QS : ' || l_qs,'INV_TXN_MANAGER_GRP', 9);
14730: END IF;
14731:
14732: IF (l_debug = 1) THEN
14733: inv_log_util.trace('L_QOH : ' || l_qoh,'INV_TXN_MANAGER_GRP', 9);
14734: inv_log_util.trace('L_RQOH : ' || l_rqoh,'INV_TXN_MANAGER_GRP', 9);
14735: inv_log_util.trace('L_PQOH : ' || l_pqoh,'INV_TXN_MANAGER_GRP', 9);
14736: inv_log_util.trace('L_QR : ' || l_qr,'INV_TXN_MANAGER_GRP', 9);
14737: inv_log_util.trace('L_QS : ' || l_qs,'INV_TXN_MANAGER_GRP', 9);
14738: inv_log_util.trace('L_ATT : ' || l_att,'INV_TXN_MANAGER_GRP', 9);
14731:
14732: IF (l_debug = 1) THEN
14733: inv_log_util.trace('L_QOH : ' || l_qoh,'INV_TXN_MANAGER_GRP', 9);
14734: inv_log_util.trace('L_RQOH : ' || l_rqoh,'INV_TXN_MANAGER_GRP', 9);
14735: inv_log_util.trace('L_PQOH : ' || l_pqoh,'INV_TXN_MANAGER_GRP', 9);
14736: inv_log_util.trace('L_QR : ' || l_qr,'INV_TXN_MANAGER_GRP', 9);
14737: inv_log_util.trace('L_QS : ' || l_qs,'INV_TXN_MANAGER_GRP', 9);
14738: inv_log_util.trace('L_ATT : ' || l_att,'INV_TXN_MANAGER_GRP', 9);
14739: inv_log_util.trace('L_ATR : ' || l_atr,'INV_TXN_MANAGER_GRP', 9);
14732: IF (l_debug = 1) THEN
14733: inv_log_util.trace('L_QOH : ' || l_qoh,'INV_TXN_MANAGER_GRP', 9);
14734: inv_log_util.trace('L_RQOH : ' || l_rqoh,'INV_TXN_MANAGER_GRP', 9);
14735: inv_log_util.trace('L_PQOH : ' || l_pqoh,'INV_TXN_MANAGER_GRP', 9);
14736: inv_log_util.trace('L_QR : ' || l_qr,'INV_TXN_MANAGER_GRP', 9);
14737: inv_log_util.trace('L_QS : ' || l_qs,'INV_TXN_MANAGER_GRP', 9);
14738: inv_log_util.trace('L_ATT : ' || l_att,'INV_TXN_MANAGER_GRP', 9);
14739: inv_log_util.trace('L_ATR : ' || l_atr,'INV_TXN_MANAGER_GRP', 9);
14740: END IF;
14733: inv_log_util.trace('L_QOH : ' || l_qoh,'INV_TXN_MANAGER_GRP', 9);
14734: inv_log_util.trace('L_RQOH : ' || l_rqoh,'INV_TXN_MANAGER_GRP', 9);
14735: inv_log_util.trace('L_PQOH : ' || l_pqoh,'INV_TXN_MANAGER_GRP', 9);
14736: inv_log_util.trace('L_QR : ' || l_qr,'INV_TXN_MANAGER_GRP', 9);
14737: inv_log_util.trace('L_QS : ' || l_qs,'INV_TXN_MANAGER_GRP', 9);
14738: inv_log_util.trace('L_ATT : ' || l_att,'INV_TXN_MANAGER_GRP', 9);
14739: inv_log_util.trace('L_ATR : ' || l_atr,'INV_TXN_MANAGER_GRP', 9);
14740: END IF;
14741: END IF;--100
14734: inv_log_util.trace('L_RQOH : ' || l_rqoh,'INV_TXN_MANAGER_GRP', 9);
14735: inv_log_util.trace('L_PQOH : ' || l_pqoh,'INV_TXN_MANAGER_GRP', 9);
14736: inv_log_util.trace('L_QR : ' || l_qr,'INV_TXN_MANAGER_GRP', 9);
14737: inv_log_util.trace('L_QS : ' || l_qs,'INV_TXN_MANAGER_GRP', 9);
14738: inv_log_util.trace('L_ATT : ' || l_att,'INV_TXN_MANAGER_GRP', 9);
14739: inv_log_util.trace('L_ATR : ' || l_atr,'INV_TXN_MANAGER_GRP', 9);
14740: END IF;
14741: END IF;--100
14742:
14735: inv_log_util.trace('L_PQOH : ' || l_pqoh,'INV_TXN_MANAGER_GRP', 9);
14736: inv_log_util.trace('L_QR : ' || l_qr,'INV_TXN_MANAGER_GRP', 9);
14737: inv_log_util.trace('L_QS : ' || l_qs,'INV_TXN_MANAGER_GRP', 9);
14738: inv_log_util.trace('L_ATT : ' || l_att,'INV_TXN_MANAGER_GRP', 9);
14739: inv_log_util.trace('L_ATR : ' || l_atr,'INV_TXN_MANAGER_GRP', 9);
14740: END IF;
14741: END IF;--100
14742:
14743: -- Bug 3427817: For WIP backflush transactions, we should not
14775: l_override_neg_for_backflush := 0;
14776: l_override_rsv_for_backflush := 2;
14777: END IF;
14778: IF (l_debug = 1) THEN
14779: inv_log_util.trace('l_override_neg_for_backflush ' || l_override_neg_for_backflush,'INV_TXN_MANAGER_GRP', 9);
14780: inv_log_util.trace('l_override_rsv_for_backflush ' || l_override_rsv_for_backflush,'INV_TXN_MANAGER_GRP', 9);
14781: END IF;
14782:
14783: --Bug 3487453: Added and set the variable l_translate
14776: l_override_rsv_for_backflush := 2;
14777: END IF;
14778: IF (l_debug = 1) THEN
14779: inv_log_util.trace('l_override_neg_for_backflush ' || l_override_neg_for_backflush,'INV_TXN_MANAGER_GRP', 9);
14780: inv_log_util.trace('l_override_rsv_for_backflush ' || l_override_rsv_for_backflush,'INV_TXN_MANAGER_GRP', 9);
14781: END IF;
14782:
14783: --Bug 3487453: Added and set the variable l_translate
14784: -- to true for the token to be translated.
14794: a new profile 'INV_OVERRIDE_RSV_FOR_BACKFLUSH' . If this profile is not set to 'Yes'
14795: then the backflush transaction can not consume existing reservations.Else it can consume
14796: existing reservation and can drive inventory go negative. */
14797: IF (l_override_rsv_for_backflush <> 1 ) THEN
14798: inv_log_util.trace('Transaction quantity must be less than or equal to available quantity','INV_TXN_MANAGER_GRP', 9);
14799: FND_MESSAGE.set_name('INV','INV_INT_PROCCODE');
14800: l_error_code := FND_MESSAGE.get;
14801: FND_MESSAGE.set_name('INV','INV_QTY_LESS_OR_EQUAL');
14802: l_error_exp := FND_MESSAGE.get;
14854: );
14855:
14856: IF l_return_status = fnd_api.g_ret_sts_error THEN
14857: IF (l_debug = 1) THEN
14858: inv_log_util.trace('Expected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14859: END IF;
14860:
14861: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14862: FND_MESSAGE.set_token('token1','XACT_QTY1');
14894: END IF ;
14895:
14896: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
14897: IF (l_debug = 1) THEN
14898: inv_log_util.trace('UnExpected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14899: END IF;
14900:
14901: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14902: FND_MESSAGE.set_token('token1','XACT_QTY1');
14932: l_current_batch_failed := TRUE;--Bug#5075521
14933: l_current_err_batch_id := l_Line_rec_Type.transaction_batch_id;--Bug#5075521
14934: END IF;
14935: END IF; --200
14936: inv_log_util.trace('L_ITEM_QOH : ' || l_item_qoh,'INV_TXN_MANAGER_GRP', 9);
14937: inv_log_util.trace('L_ITEM_RQOH : ' || l_item_rqoh,'INV_TXN_MANAGER_GRP', 9);
14938: inv_log_util.trace('L_ITEM_PQOH : ' || l_item_pqoh,'INV_TXN_MANAGER_GRP', 9);
14939: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_GRP', 9);
14940: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_GRP', 9);
14933: l_current_err_batch_id := l_Line_rec_Type.transaction_batch_id;--Bug#5075521
14934: END IF;
14935: END IF; --200
14936: inv_log_util.trace('L_ITEM_QOH : ' || l_item_qoh,'INV_TXN_MANAGER_GRP', 9);
14937: inv_log_util.trace('L_ITEM_RQOH : ' || l_item_rqoh,'INV_TXN_MANAGER_GRP', 9);
14938: inv_log_util.trace('L_ITEM_PQOH : ' || l_item_pqoh,'INV_TXN_MANAGER_GRP', 9);
14939: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_GRP', 9);
14940: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_GRP', 9);
14941: inv_log_util.trace('L_ITEM_ATT : ' || l_item_att,'INV_TXN_MANAGER_GRP', 9);
14934: END IF;
14935: END IF; --200
14936: inv_log_util.trace('L_ITEM_QOH : ' || l_item_qoh,'INV_TXN_MANAGER_GRP', 9);
14937: inv_log_util.trace('L_ITEM_RQOH : ' || l_item_rqoh,'INV_TXN_MANAGER_GRP', 9);
14938: inv_log_util.trace('L_ITEM_PQOH : ' || l_item_pqoh,'INV_TXN_MANAGER_GRP', 9);
14939: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_GRP', 9);
14940: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_GRP', 9);
14941: inv_log_util.trace('L_ITEM_ATT : ' || l_item_att,'INV_TXN_MANAGER_GRP', 9);
14942: inv_log_util.trace('L_ITEM_ATR : ' || l_item_atr,'INV_TXN_MANAGER_GRP', 9);
14935: END IF; --200
14936: inv_log_util.trace('L_ITEM_QOH : ' || l_item_qoh,'INV_TXN_MANAGER_GRP', 9);
14937: inv_log_util.trace('L_ITEM_RQOH : ' || l_item_rqoh,'INV_TXN_MANAGER_GRP', 9);
14938: inv_log_util.trace('L_ITEM_PQOH : ' || l_item_pqoh,'INV_TXN_MANAGER_GRP', 9);
14939: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_GRP', 9);
14940: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_GRP', 9);
14941: inv_log_util.trace('L_ITEM_ATT : ' || l_item_att,'INV_TXN_MANAGER_GRP', 9);
14942: inv_log_util.trace('L_ITEM_ATR : ' || l_item_atr,'INV_TXN_MANAGER_GRP', 9);
14943: inv_log_util.trace('L_TRX_QTY : ' || l_trx_qty,'INV_TXN_MANAGER_GRP', 9);
14936: inv_log_util.trace('L_ITEM_QOH : ' || l_item_qoh,'INV_TXN_MANAGER_GRP', 9);
14937: inv_log_util.trace('L_ITEM_RQOH : ' || l_item_rqoh,'INV_TXN_MANAGER_GRP', 9);
14938: inv_log_util.trace('L_ITEM_PQOH : ' || l_item_pqoh,'INV_TXN_MANAGER_GRP', 9);
14939: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_GRP', 9);
14940: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_GRP', 9);
14941: inv_log_util.trace('L_ITEM_ATT : ' || l_item_att,'INV_TXN_MANAGER_GRP', 9);
14942: inv_log_util.trace('L_ITEM_ATR : ' || l_item_atr,'INV_TXN_MANAGER_GRP', 9);
14943: inv_log_util.trace('L_TRX_QTY : ' || l_trx_qty,'INV_TXN_MANAGER_GRP', 9);
14944:
14937: inv_log_util.trace('L_ITEM_RQOH : ' || l_item_rqoh,'INV_TXN_MANAGER_GRP', 9);
14938: inv_log_util.trace('L_ITEM_PQOH : ' || l_item_pqoh,'INV_TXN_MANAGER_GRP', 9);
14939: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_GRP', 9);
14940: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_GRP', 9);
14941: inv_log_util.trace('L_ITEM_ATT : ' || l_item_att,'INV_TXN_MANAGER_GRP', 9);
14942: inv_log_util.trace('L_ITEM_ATR : ' || l_item_atr,'INV_TXN_MANAGER_GRP', 9);
14943: inv_log_util.trace('L_TRX_QTY : ' || l_trx_qty,'INV_TXN_MANAGER_GRP', 9);
14944:
14945: IF ( NOT l_current_batch_failed) THEN --250
14938: inv_log_util.trace('L_ITEM_PQOH : ' || l_item_pqoh,'INV_TXN_MANAGER_GRP', 9);
14939: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_GRP', 9);
14940: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_GRP', 9);
14941: inv_log_util.trace('L_ITEM_ATT : ' || l_item_att,'INV_TXN_MANAGER_GRP', 9);
14942: inv_log_util.trace('L_ITEM_ATR : ' || l_item_atr,'INV_TXN_MANAGER_GRP', 9);
14943: inv_log_util.trace('L_TRX_QTY : ' || l_trx_qty,'INV_TXN_MANAGER_GRP', 9);
14944:
14945: IF ( NOT l_current_batch_failed) THEN --250
14946: IF (l_item_qoh <> l_item_att) THEN -- Higher Level Reservations
14939: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_GRP', 9);
14940: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_GRP', 9);
14941: inv_log_util.trace('L_ITEM_ATT : ' || l_item_att,'INV_TXN_MANAGER_GRP', 9);
14942: inv_log_util.trace('L_ITEM_ATR : ' || l_item_atr,'INV_TXN_MANAGER_GRP', 9);
14943: inv_log_util.trace('L_TRX_QTY : ' || l_trx_qty,'INV_TXN_MANAGER_GRP', 9);
14944:
14945: IF ( NOT l_current_batch_failed) THEN --250
14946: IF (l_item_qoh <> l_item_att) THEN -- Higher Level Reservations
14947: IF (l_item_att < l_trx_qty AND l_item_qr > 0) THEN
14949: a new profile 'INV_OVERRIDE_RSV_FOR_BACKFLUSH' . If this profile is not set to 'Yes'then the
14950: backflush transaction can not consume existing reservations.Else it can consume existing
14951: reservation and can drive inventory negative. */
14952: IF (l_override_rsv_for_backflush <> 1 ) THEN
14953: inv_log_util.trace('Total Org quantity cannot become negative when there are reservations present','INV_TXN_MANAGER_GRP', 9);
14954: FND_MESSAGE.set_name('INV','INV_INT_PROCCODE');
14955: l_error_code := FND_MESSAGE.get;
14956: FND_MESSAGE.set_name('INV','INV_ORG_QUANTITY');
14957: l_error_exp := FND_MESSAGE.get;
14991: END IF; --250
14992:
14993: ELSE --(neg_inv_rcpt = 1)
14994: IF (l_debug = 1) THEN
14995: inv_log_util.trace('Not Enough Qty: l_att,l_trx_qty:' || l_att||','||l_trx_qty,'INV_TXN_MANAGER_GRP', 9);
14996: END IF;
14997: FND_MESSAGE.set_name('INV','INV_NO_NEG_BALANCES');
14998: l_error_code := FND_MESSAGE.get;
14999: FND_MESSAGE.set_name('INV','INV_LESS_OR_EQUAL');
15173: l_current_err_batch_id := l_Line_rec_Type.transaction_batch_id;--Bug#5075521
15174: ELSE
15175: --qty tree update was successful
15176: IF (l_debug = 1) THEN
15177: inv_log_util.trace('after update of quantity tree qoh='||l_qoh||' l_att='||l_att||' l_atr='||l_atr,'INV_TXN_MANAGER_GRP', 9);
15178: END IF;
15179: END IF;
15180: END IF;-- Pawan Added for IF (l_actid in (2,28))
15181: END IF; --300
15228:
15229: IF (NOT tmpinsert(l_header_id,p_validation_level)) THEN
15230: l_error_exp := FND_MESSAGE.get;
15231: IF (l_debug = 1) THEN
15232: inv_log_util.trace('Error in tmpinsert='|| l_error_exp, 'INV_TXN_MANAGER_GRP', 9);
15233: END IF;
15234: FND_MESSAGE.set_name('INV','INV_INT_TMPXFRCODE');
15235: l_error_code := FND_MESSAGE.get;
15236: x_msg_data := l_error_exp;
15275: DELETE FROM MTL_TRANSACTIONS_INTERFACE
15276: WHERE TRANSACTION_HEADER_ID = l_header_id
15277: AND PROCESS_FLAG <> 3;
15278: IF (l_debug = 1) THEN
15279: inv_log_util.trace('*** Del recs mti valid trx', 'INV_TXN_MANAGER_GRP',9);
15280: END IF;
15281: END IF;--tmpinsert
15282:
15283: return 0;--return success.
15285:
15286: EXCEPTION
15287: WHEN OTHERS THEN
15288: IF (l_debug = 1) THEN
15289: inv_log_util.trace('*** SQL error '||substr(sqlerrm, 1, 200), 'INV_TXN_MANAGER_GRP',9);
15290: END IF;
15291:
15292: FND_MESSAGE.set_name('INV','INV_INT_SQLCODE');
15293: l_error_code := FND_MESSAGE.get;
15428: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
15429: END IF;
15430:
15431: IF (l_debug = 1) THEN
15432: inv_log_util.trace('inside Validate_Additional_Attr' , 'INV_TXN_MANAGER_GRP', 9);
15433: END IF;
15434:
15435:
15436:
15464: );
15465:
15466: IF l_return_status <> 'S' THEN
15467: IF (l_debug = 1) THEN
15468: inv_log_util.trace('Error from get_origination_date', 'INV_TXN_MANAGER_GRP', 9);
15469: END IF;
15470: CLOSE c_get_lot_record;
15471: RAISE FND_API.G_EXC_ERROR;
15472: END IF;
15472: END IF;
15473: -- dbms_output.put_line('Existing Lot Child ');
15474: IF (l_orig_date IS NULL AND p_expiration_date IS NULL) THEN
15475: IF (l_debug = 1) THEN
15476: inv_log_util.trace('existing pending lot having no expiry date', 'INV_TXN_MANAGER_GRP', 9);
15477: END IF;
15478: l_new_child_lot := TRUE;
15479: END IF; --expiration date null
15480: ELSE
15478: l_new_child_lot := TRUE;
15479: END IF; --expiration date null
15480: ELSE
15481: IF (l_debug = 1) THEN
15482: inv_log_util.trace('new lot', 'INV_TXN_MANAGER_GRP', 9);
15483: END IF;
15484: l_new_child_lot := FALSE;
15485: END IF; --lot onhand condition
15486: END IF;
15518: /* Check Lot */
15519: IF (l_new_child_lot) THEN
15520:
15521: IF (l_debug = 1) THEN
15522: inv_log_util.trace('Validate_Additional_Attr: This is a New Lot : ' , 'INV_TXN_MANAGER_GRP', 9);
15523: END IF;
15524:
15525: /* defult missing values */
15526: l_lot_record.inventory_item_id := p_inventory_item_id ;
15563:
15564: -- dbms_output.put_line('l_copy_lot_attribute_flag ' || p_copy_lot_attribute_flag );
15565:
15566: IF (l_debug = 1) THEN
15567: inv_log_util.trace('Validate_Additional_Attr: p_copy_lot_attribute_flag ' || p_copy_lot_attribute_flag , 'INV_TXN_MANAGER_GRP', 9);
15568: END IF;
15569:
15570: IF ((p_parent_lot_number IS NOT NULL) AND
15571: (l_child_lot_flag = 'Y'))
15572: THEN
15573: IF p_copy_lot_attribute_flag = 'N'
15574: THEN
15575: IF (l_debug = 1) THEN
15576: inv_log_util.trace('Calling Inv_Lot_API_PKG.Set_Msi_Default_Attr (1) ' , 'INV_TXN_MANAGER_GRP', 9);
15577: END IF;
15578: -- dbms_output.put_line('Calling Inv_Lot_API_PKG.Set_Msi_Default_Attr (1 )');
15579: /* Default attributes for lot from item master */
15580: -- inv_lot_api_pub.Set_Msi_Default_Attr(p_lot_rec => l_lot_record);
15608: /* Check if Parent lot exists */
15609: IF NOT (l_new_parent_lot)
15610: THEN
15611: IF (l_debug = 1) THEN
15612: inv_log_util.trace('Validate_Additional_Attr: Parent lot EXISTS ' , 'INV_TXN_MANAGER_GRP', 9);
15613: END IF;
15614: if p_expiration_date is null
15615: then
15616: p_expiration_date := l_parent_lot_record.expiration_date;
15650: END IF;
15651: Else
15652: -- dbms_output.put_line('Parent lot does not EXISTS, default from item ' );
15653: IF (l_debug = 1) THEN
15654: inv_log_util.trace('Calling Inv_Lot_API_PKG.Set_Msi_Default_Attr (2) ' , 'INV_TXN_MANAGER_GRP', 9);
15655: END IF;
15656:
15657: /* new parent lot , default from item master */
15658:
15684: -- dbms_output.put_line('lot is new and Item is not child lot enabled ' );
15685: /* lot is new and Item is not child lot enabled */
15686:
15687: IF (l_debug = 1) THEN
15688: inv_log_util.trace('Calling Inv_Lot_API_PKG.Set_Msi_Default_Attr (3) ' , 'INV_TXN_MANAGER_GRP', 9);
15689: END IF;
15690:
15691: Inv_Lot_API_PKG.Set_Msi_Default_Attr (
15692: p_lot_rec => l_lot_record
15747:
15748: END IF;
15749:
15750: IF (l_debug = 1) THEN
15751: inv_log_util.trace('validate_child_lot pass', 'INV_TXN_MANAGER_GRP', 9);
15752: END IF;
15753:
15754:
15755: /******************* START Grade Code validation logic ********************/
15767: RAISE FND_API.G_EXC_ERROR;
15768: END IF;
15769:
15770: IF (l_debug = 1) THEN
15771: inv_log_util.trace('validate_grade_code pass', 'INV_TXN_MANAGER_GRP', 9);
15772: END IF;
15773:
15774: /******************* START Origination Type validation logic ********************/
15775: l_check := INV_LOT_ATTR_PUB.validate_origination_type( p_origination_type => p_origination_type
15782: l_error_exp := l_msg_data;
15783: RAISE FND_API.G_EXC_ERROR;
15784: END IF;
15785: IF (l_debug = 1) THEN
15786: inv_log_util.trace('validate_origination_type pass', 'INV_TXN_MANAGER_GRP', 9);
15787: END IF;
15788:
15789:
15790: -- dbms_output.put_line('Validate_Additional_Attr: Origination type validation - PASS...');
15803: l_error_exp := l_msg_data;
15804: RAISE FND_API.G_EXC_ERROR;
15805: END IF;
15806: IF (l_debug = 1) THEN
15807: inv_log_util.trace('validate_exp_action_code pass', 'INV_TXN_MANAGER_GRP', 9);
15808: END IF;
15809:
15810: -- dbms_output.put_line('Validate_Additional_Attr: Expiration Action Code validation - PASS...');
15811:
15821: l_error_exp := l_msg_data;
15822: RAISE FND_API.G_EXC_ERROR;
15823: END IF;
15824: IF (l_debug = 1) THEN
15825: inv_log_util.trace('validate_retest_date pass', 'INV_TXN_MANAGER_GRP', 9);
15826: END IF;
15827:
15828: /******************* START Expiration Action Date validation logic ********************/
15829: l_check := INV_LOT_ATTR_PUB.validate_exp_action_date( p_expiration_action_date => p_expiration_action_date
15838: RAISE FND_API.G_EXC_ERROR;
15839:
15840: END IF;
15841: IF (l_debug = 1) THEN
15842: inv_log_util.trace('validate_exp_action_date pass', 'INV_TXN_MANAGER_GRP', 9);
15843: END IF;
15844:
15845:
15846: /******************* START Maturity Date validation logic ********************/
15855: l_error_exp := l_msg_data;
15856: RAISE FND_API.G_EXC_ERROR;
15857: END IF;
15858: IF (l_debug = 1) THEN
15859: inv_log_util.trace('validate_maturity_date pass', 'INV_TXN_MANAGER_GRP', 9);
15860: END IF;
15861:
15862: /******************* START Hold Date validation logic ********************/
15863: l_check := INV_LOT_ATTR_PUB.validate_hold_date( p_hold_date => p_hold_date
15871: l_error_exp := l_msg_data;
15872: RAISE FND_API.G_EXC_ERROR;
15873: END IF;
15874: IF (l_debug = 1) THEN
15875: inv_log_util.trace('validate_hold_date pass', 'INV_TXN_MANAGER_GRP', 9);
15876: END IF;
15877:
15878: /******************* START Reason Code validation logic ********************/
15879: l_check := INV_LOT_ATTR_PUB.validate_reason_code( p_reason_code => null
15887: l_error_exp := l_msg_data;
15888: RAISE FND_API.G_EXC_ERROR;
15889: END IF;
15890: IF (l_debug = 1) THEN
15891: inv_log_util.trace('validate_reason_code pass', 'INV_TXN_MANAGER_GRP', 9);
15892: END IF;
15893:
15894: ELSE
15895: IF (l_debug = 1) THEN
15893:
15894: ELSE
15895: IF (l_debug = 1) THEN
15896: inv_log_util.trace('Validate_Additional_Attr: NO NEED FOR VALIDATION.. just default ',
15897: 'INV_TXN_MANAGER_GRP', 9);
15898: END IF;
15899:
15900: -- dbms_output.put_line('Validate_Additional_Attr: LOT EXISTS, NO NEED FOR VALIDATION.. just default from MLN : '||
15901: -- l_lot_record.lot_number);
15970: RETURN FALSE;
15971:
15972: WHEN NO_DATA_FOUND THEN
15973: IF (l_debug = 1) THEN
15974: inv_log_util.trace('Validate_Additional_Attr: error NO_DATA_FOUND' , 'INV_TXN_MANAGER_GRP', 9);
15975: END IF;
15976:
15977: x_return_status := fnd_api.g_ret_sts_error;
15978:
16001:
16002:
16003: WHEN OTHERS THEN
16004: IF (l_debug = 1) THEN
16005: inv_log_util.trace('Validate_Additional_Attr: error OTHERS exception' , 'INV_TXN_MANAGER_GRP', 9);
16006: END IF;
16007:
16008: x_return_status := fnd_api.g_ret_sts_unexp_error;
16009:
16314: END IF;
16315:
16316: END get_serial_diff_wrp;
16317:
16318: END INV_TXN_MANAGER_GRP;