[Home] [Help]
1: PACKAGE BODY INV_TXN_MANAGER_GRP AS
2: /* $Header: INVTXGGB.pls 120.72.12010000.6 2008/10/08 11:58:11 ckrishna 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:
828: ,VRULE => '\nSUMMARY_FLAG\nI\nAPPL=SQLGL;NAME=GL_NO_PARENT_SEGMENT_ALLOWED\nN'||
829: '\0GL_GLOBAL\nDETAIL_POSTING_ALLOWED\nE\nAPPL=INV;NAME=INV_VRULE_POSTING\nN' )
830: THEN
831: IF (l_debug = 1) THEN
832: inv_log_util.trace('Distribution acct id : ' || p_acctid || ' is valid', 'INV_TXN_MANAGER_GRP','1');
833: END IF;
834: RETURN TRUE;
835: ELSE
836: l_error_exp := substr(fnd_flex_keyval.error_message,1,240);
834: RETURN TRUE;
835: ELSE
836: l_error_exp := substr(fnd_flex_keyval.error_message,1,240);
837: IF (l_debug = 1) THEN
838: inv_log_util.trace('Distribution acct id is invalid '|| l_error_exp, 'INV_TXN_MANAGER_GRP','1');
839: END IF;
840: RETURN FALSE;
841: END IF;
842: ELSE
841: END IF;
842: ELSE
843: l_error_exp := substr(fnd_flex_keyval.error_message,1,240);
844: IF (l_debug = 1) THEN
845: inv_log_util.trace('Distribution acct id Validation Error '|| l_error_exp, 'INV_TXN_MANAGER_GRP','1');
846: END IF;
847: RETURN FALSE;
848: END IF ;
849:
850: EXCEPTION
851: WHEN OTHERS THEN
852: l_error_exp := substr(fnd_flex_keyval.error_message,1,240);
853: IF (l_debug = 1) THEN
854: inv_log_util.trace('Error in validate_acctid : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
855: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
856: END IF;
857: RETURN FALSE;
858: END validate_acctid;
851: WHEN OTHERS THEN
852: l_error_exp := substr(fnd_flex_keyval.error_message,1,240);
853: IF (l_debug = 1) THEN
854: inv_log_util.trace('Error in validate_acctid : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
855: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
856: END IF;
857: RETURN FALSE;
858: END validate_acctid;
859:
973: RETURN FALSE;
974: END IF;
975:
976: IF (l_debug = 1) THEN
977: inv_log_util.trace('Distribution acct id : ' || x_acctid, 'INV_TXN_MANAGER_GRP','1');
978: END IF;
979: x_acctid := l_acctid;
980: RETURN TRUE;
981: else
980: RETURN TRUE;
981: else
982: l_error_exp := substr(FND_MESSAGE.get,1,240);
983: IF (l_debug = 1) THEN
984: inv_log_util.trace('Distribution acct id error '|| l_error_exp, 'INV_TXN_MANAGER_GRP','1');
985: END IF;
986: RETURN FALSE;
987: end if;
988: --x_acctid := fnd_flex_ext.concatenate_segments(nsegs,segarray, str.segment_separator);
994: RETURN FALSE;
995: WHEN OTHERS THEN
996: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
997: IF (l_debug = 1) THEN
998: inv_log_util.trace('Error in getacctid : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
999: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
1000: END IF;
1001: x_acctid := NULL;
1002: RETURN FALSE;
995: WHEN OTHERS THEN
996: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
997: IF (l_debug = 1) THEN
998: inv_log_util.trace('Error in getacctid : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
999: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
1000: END IF;
1001: x_acctid := NULL;
1002: RETURN FALSE;
1003: END getacctid;
1109: x_itemid := fnd_flex_keyval.combination_id;
1110: else
1111: x_itemid := NULL;
1112: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
1113: inv_log_util.trace('Error in getitemid : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
1114: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
1115: end if;
1116: return l_result;
1117:
1110: else
1111: x_itemid := NULL;
1112: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
1113: inv_log_util.trace('Error in getitemid : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
1114: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
1115: end if;
1116: return l_result;
1117:
1118: END getitemid;
1250: COMBINATION_ID => x_trxsrc);
1251: END IF;
1252: if l_result then
1253: IF (l_debug = 1) THEN
1254: inv_log_util.trace('Transaction Source ID : ' || x_trxsrc, 'INV_TXN_MANAGER_GRP','1');
1255: END IF;
1256: RETURN TRUE;
1257: else
1258: l_error_exp := substr(FND_MESSAGE.get,1,240);
1256: RETURN TRUE;
1257: else
1258: l_error_exp := substr(FND_MESSAGE.get,1,240);
1259: IF (l_debug = 1) THEN
1260: inv_log_util.trace('Transaction Source ID error '|| l_error_exp, 'INV_TXN_MANAGER_GRP','1'
1261: );
1262: END IF;
1263: RETURN FALSE;
1264: end if;
1266: EXCEPTION
1267: WHEN OTHERS THEN
1268: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
1269: IF (l_debug = 1) THEN
1270: inv_log_util.trace('Error in getsrcid : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
1271: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
1272: END IF;
1273: x_trxsrc := NULL;
1274: return FALSE;
1267: WHEN OTHERS THEN
1268: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
1269: IF (l_debug = 1) THEN
1270: inv_log_util.trace('Error in getsrcid : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
1271: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
1272: END IF;
1273: x_trxsrc := NULL;
1274: return FALSE;
1275:
1457:
1458: EXCEPTION
1459: WHEN OTHERS THEN
1460: IF (l_debug = 1) THEN
1461: inv_log_util.trace('Error in derive_segment_ids : ' || l_error_exp, 'INV_TXN_MANAGER_GRP ','1');
1462: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
1463: END IF;
1464: x_return_status := FND_API.G_RET_STS_ERROR;
1465:
1458: EXCEPTION
1459: WHEN OTHERS THEN
1460: IF (l_debug = 1) THEN
1461: inv_log_util.trace('Error in derive_segment_ids : ' || l_error_exp, 'INV_TXN_MANAGER_GRP ','1');
1462: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
1463: END IF;
1464: x_return_status := FND_API.G_RET_STS_ERROR;
1465:
1466: END derive_segment_ids;
1537: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1538: END IF;
1539:
1540: IF (l_debug = 1) THEN
1541: inv_log_util.trace('validate_quantities: Start ', 'INV_TXN_MANAGER_GRP', 9);
1542: 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);
1543: inv_log_util.trace('txn uom='||p_transaction_uom||' qty='||to_char(p_transaction_quantity), 'INV_TXN_MANAGER_GRP', 9);
1544: inv_log_util.trace('sec uom='||p_secondary_uom_code||' qty='||to_char(p_secondary_quantity), 'INV_TXN_MANAGER_GRP', 9);
1545: END IF;
1538: END IF;
1539:
1540: IF (l_debug = 1) THEN
1541: inv_log_util.trace('validate_quantities: Start ', 'INV_TXN_MANAGER_GRP', 9);
1542: 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);
1543: inv_log_util.trace('txn uom='||p_transaction_uom||' qty='||to_char(p_transaction_quantity), 'INV_TXN_MANAGER_GRP', 9);
1544: inv_log_util.trace('sec uom='||p_secondary_uom_code||' qty='||to_char(p_secondary_quantity), 'INV_TXN_MANAGER_GRP', 9);
1545: END IF;
1546:
1539:
1540: IF (l_debug = 1) THEN
1541: inv_log_util.trace('validate_quantities: Start ', 'INV_TXN_MANAGER_GRP', 9);
1542: 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);
1543: inv_log_util.trace('txn uom='||p_transaction_uom||' qty='||to_char(p_transaction_quantity), 'INV_TXN_MANAGER_GRP', 9);
1544: inv_log_util.trace('sec uom='||p_secondary_uom_code||' qty='||to_char(p_secondary_quantity), 'INV_TXN_MANAGER_GRP', 9);
1545: END IF;
1546:
1547:
1540: IF (l_debug = 1) THEN
1541: inv_log_util.trace('validate_quantities: Start ', 'INV_TXN_MANAGER_GRP', 9);
1542: 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);
1543: inv_log_util.trace('txn uom='||p_transaction_uom||' qty='||to_char(p_transaction_quantity), 'INV_TXN_MANAGER_GRP', 9);
1544: inv_log_util.trace('sec uom='||p_secondary_uom_code||' qty='||to_char(p_secondary_quantity), 'INV_TXN_MANAGER_GRP', 9);
1545: END IF;
1546:
1547:
1548: /* =======================================================================
1564:
1565: /** Quantity Validation **/
1566: IF (p_transaction_quantity IS NULL AND p_secondary_quantity IS NULL) THEN
1567: IF (l_debug = 1) THEN
1568: inv_log_util.trace('validate_quantities: both transaction and secondary quantities are null', 'INV_TXN_MANAGER_GRP', 9);
1569: END IF;
1570: loaderrmsg('INV_INT_QTYCODE','INV_INT_QTYCODE');
1571: errupdate(p_rowid, p_lot_rowid);
1572: return false;
1576:
1577: /** UOM Validation **/
1578: IF (p_secondary_uom_code <> l_secondary_uom_code) THEN
1579: IF (l_debug = 1) THEN
1580: inv_log_util.trace('validate_quantities: sec uom passed in not same as item sec uom', 'INV_TXN_MANAGER_GRP', 9);
1581: END IF;
1582: loaderrmsg('INV_INCORRECT_SECONDARY_UOM','INV_INCORRECT_SECONDARY_UOM');
1583: errupdate(p_rowid, p_lot_rowid);
1584: return false;
1587: IF (p_secondary_uom_code IS NULL) THEN
1588: p_secondary_uom_code := l_secondary_uom_code;
1589: END IF;
1590: IF (l_debug = 1) THEN
1591: inv_log_util.trace('validate_quantities: assigned sec uom='||p_secondary_uom_code, 'INV_TXN_MANAGER_GRP', 9);
1592: END IF;
1593: -- Set the Qty2 from Qty1 if missing:
1594: --{
1595: IF (p_secondary_quantity IS NULL) THEN
1605: ,to_name => NULL);
1606:
1607: IF (l_secondary_qty = -99999) THEN
1608: IF (l_debug = 1) THEN
1609: inv_log_util.trace('validate_quantities: INV_CONVERT.INV_UM_CONVERT error while calculating sec qty', 'INV_TXN_MANAGER_GRP', 9);
1610: END IF;
1611: loaderrmsg('INV_NO_CONVERSION_ERR','INV_NO_CONVERSION_ERR');
1612: errupdate(p_rowid, p_lot_rowid);
1613: return false;
1613: return false;
1614: END IF;
1615: p_secondary_quantity := l_secondary_qty;
1616: IF (l_debug = 1) THEN
1617: inv_log_util.trace('validate_quantities: new secondary qty is: '|| l_secondary_qty , 'INV_TXN_MANAGER_GRP', 9);
1618: END IF;
1619: END IF;--}
1620:
1621: -- Set the Qty1 from Qty2 if missing:
1633: , to_name => NULL);
1634:
1635: IF (l_transaction_quantity = -99999) THEN
1636: IF (l_debug = 1) THEN
1637: inv_log_util.trace('validate_quantities: INV_CONVERT.INV_UM_CONVERT ERROR while calculating transaction quantity', 'INV_TXN_MANAGER_GRP', 9);
1638: END IF;
1639: loaderrmsg('INV_NO_CONVERSION_ERR','INV_NO_CONVERSION_ERR');
1640: errupdate(p_rowid, p_lot_rowid);
1641: return false;
1641: return false;
1642: END IF;
1643: p_transaction_quantity := l_transaction_quantity;
1644: IF (l_debug = 1) THEN
1645: inv_log_util.trace('validate_quantities: new transaction qty is: '|| l_transaction_quantity , 'INV_TXN_MANAGER_GRP', 9);
1646: END IF;
1647: END IF;--}
1648:
1649: --Jalaj Srivastava Bug 4969885
1677: ,to_name => NULL);
1678:
1679: IF (l_primary_quantity = -99999) THEN
1680: IF (l_debug = 1) THEN
1681: inv_log_util.trace('validate_quantities: INV_CONVERT.INV_UM_CONVERT error while calculating primary qty', 'INV_TXN_MANAGER_GRP', 9);
1682: END IF;
1683: loaderrmsg('INV_NO_CONVERSION_ERR','INV_NO_CONVERSION_ERR');
1684: errupdate(p_rowid, p_lot_rowid);
1685: return false;
1707:
1708: IF (NOT l_lot_indiv_trx_valid) THEN
1709: --the transaction is not valid regarding lot indivisible:
1710: IF (l_debug = 1) THEN
1711: inv_log_util.trace('validate_quantities: Failed check for lot indivisibility', 'INV_TXN_MANAGER_GRP', 9);
1712: END IF;
1713: RAISE FND_API.G_EXC_ERROR;
1714: END IF;
1715:
1713: RAISE FND_API.G_EXC_ERROR;
1714: END IF;
1715:
1716: IF (l_debug = 1) THEN
1717: inv_log_util.trace('validate_quantities: passed check for lot indivisibility', 'INV_TXN_MANAGER_GRP', 9);
1718: END IF;
1719:
1720:
1721: END IF;--} -- l_lot_divisible_flag = 'N'
1720:
1721: END IF;--} -- l_lot_divisible_flag = 'N'
1722:
1723: IF (l_debug = 1) THEN
1724: inv_log_util.trace('validate_quantities: End .... ', 'INV_TXN_MANAGER_GRP', 9);
1725: END IF;
1726:
1727: RETURN TRUE;
1728:
1737: l_error_exp := l_msg;
1738: l_error_code := l_msg;
1739:
1740: IF (l_debug = 1) THEN
1741: inv_log_util.trace('validate_quantities: FND_API.G_EXC_ERROR ' || l_error_code, 'INV_TXN_MANAGER_GRP', 9);
1742: END IF;
1743:
1744: errupdate(p_rowid, p_lot_rowid);
1745: RETURN FALSE;
1745: RETURN FALSE;
1746:
1747: WHEN OTHERS THEN
1748: IF (l_debug = 1) THEN
1749: inv_log_util.trace('validate_quantities: when others'||substr(sqlerrm,1,240),'INV_TXN_MANAGER_GRP',1);
1750: END IF;
1751: RETURN FALSE;
1752:
1753: END validate_quantities;
1954: END;
1955:
1956: /**J-dev check we need to perform a full validation*/
1957: IF (l_debug = 1) THEN
1958: inv_log_util.trace('wip_constants.DMF_PATCHSET_LEVEL'||wip_constants.dmf_patchset_level,'INV_TXN_MANAGER_GRP', 9);
1959: inv_log_util.trace('wip_constants.DMF_PATCHSET_J_VALUE'||wip_constants.dmf_patchset_J_VALUE,'INV_TXN_MANAGER_GRP', 9);
1960: END IF;
1961:
1962: IF (srctypeid = 5 AND wip_constants.DMF_PATCHSET_LEVEL>= wip_constants.DMF_PATCHSET_J_VALUE) THEN
1955:
1956: /**J-dev check we need to perform a full validation*/
1957: IF (l_debug = 1) THEN
1958: inv_log_util.trace('wip_constants.DMF_PATCHSET_LEVEL'||wip_constants.dmf_patchset_level,'INV_TXN_MANAGER_GRP', 9);
1959: inv_log_util.trace('wip_constants.DMF_PATCHSET_J_VALUE'||wip_constants.dmf_patchset_J_VALUE,'INV_TXN_MANAGER_GRP', 9);
1960: END IF;
1961:
1962: IF (srctypeid = 5 AND wip_constants.DMF_PATCHSET_LEVEL>= wip_constants.DMF_PATCHSET_J_VALUE) THEN
1963: IF (p_validation_level <> fnd_api.g_valid_level_full) THEN
1963: IF (p_validation_level <> fnd_api.g_valid_level_full) THEN
1964: l_validate_full := FALSE;
1965: /**implies this a WIP desktop transaction*/
1966: IF (l_debug = 1) THEN
1967: inv_log_util.trace('Val Grp:WIP desktop trx','INV_TXN_MANAGER_GRP', 9);
1968: END IF;
1969: ELSE
1970: IF (l_debug = 1) THEN
1971: inv_log_util.trace('Val Grp:WIP MTI trx','INV_TXN_MANAGER_GRP', 9);
1967: inv_log_util.trace('Val Grp:WIP desktop trx','INV_TXN_MANAGER_GRP', 9);
1968: END IF;
1969: ELSE
1970: IF (l_debug = 1) THEN
1971: inv_log_util.trace('Val Grp:WIP MTI trx','INV_TXN_MANAGER_GRP', 9);
1972: END IF;
1973: END IF;
1974: END IF;
1975:
2118: AND MSI.INVENTORY_ITEM_FLAG = 'Y');
2119:
2120: l_count := SQL%ROWCOUNT;
2121: IF (l_debug = 1) THEN
2122: inv_log_util.trace('Validating specified item ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2123: END IF;
2124:
2125:
2126:
2151: AND MSI.COSTING_ENABLED_FLAG = 'Y');
2152:
2153: l_count := SQL%ROWCOUNT;
2154: IF (l_debug = 1) THEN
2155: inv_log_util.trace('Validating specified item ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2156: END IF;
2157:
2158: /*----------------------------------------------------------------+
2159: | The inv layer is validated seperately for layer cost update
2182: AND CIL.LAYER_QUANTITY > 0);
2183:
2184: l_count := SQL%ROWCOUNT;
2185: IF (l_debug = 1) THEN
2186: inv_log_util.trace('Validating for layer cost update ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2187: END IF;
2188: END IF;--J-dev
2189:
2190: /*------------------------------------------------------------------------+
2222: MS2.REVISION_QTY_CONTROL_CODE = 2)));
2223:
2224: l_count := SQL%ROWCOUNT;
2225: IF (l_debug = 1) THEN
2226: inv_log_util.trace('Validating lot/serial/revision control for direct inter-org transfers ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2227: END IF;
2228:
2229: END IF;--J-dev
2230:
2257: AND MSI.MTL_TRANSACTIONS_ENABLED_FLAG = 'Y');
2258:
2259: l_count := SQL%ROWCOUNT;
2260: IF (l_debug = 1) THEN
2261: inv_log_util.trace('Validating item against xfer org ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2262: END IF;
2263:
2264: END IF;--J-dev
2265:
2299: AND NVL(MSI.DISABLE_DATE,SYSDATE+1) > SYSDATE)));
2300:
2301: l_count := SQL%ROWCOUNT;
2302: IF (l_debug = 1) THEN
2303: inv_log_util.trace('Validating subinventory code ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2304: END IF;
2305:
2306:
2307:
2351: AND NVL(MSI.DISABLE_DATE,SYSDATE+1) > SYSDATE)));
2352:
2353: l_count := SQL%ROWCOUNT;
2354: IF (l_debug = 1) THEN
2355: inv_log_util.trace('Validating xfer subinventory code ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2356: END IF;
2357: END IF;--J-dev
2358:
2359:
2395: AND ITM.RESTRICT_SUBINVENTORIES_CODE = 2);
2396:
2397: l_count := SQL%ROWCOUNT;
2398: IF (l_debug = 1) THEN
2399: inv_log_util.trace('Validating restricted subinventories ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2400: END IF;
2401:
2402:
2403: /*--------------------------------------------------------+
2450:
2451:
2452: l_count := SQL%ROWCOUNT;
2453: IF (l_debug = 1) THEN
2454: inv_log_util.trace('Validating xfer res subs ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2455: END IF;
2456:
2457: END IF;--J-dev
2458:
2581:
2582: l_count := l_count + SQL%ROWCOUNT;
2583:
2584: IF (l_debug = 1) THEN
2585: inv_log_util.trace('Validating subs ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2586: END IF;
2587: FND_MESSAGE.set_name('INV', 'INV_ERR_DETVAL');
2588: FND_MESSAGE.set_token('token', numhold);
2589:
2612: )) ;
2613:
2614: l_count := SQL%ROWCOUNT;
2615: IF (l_debug = 1) THEN
2616: inv_log_util.trace('Validating subs else ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2617: END IF;
2618: FND_MESSAGE.set_name('INV', 'INV_ERR_DETVAL');
2619: FND_MESSAGE.set_token('token', numhold);
2620:
2711:
2712:
2713: l_count := l_count + SQL%ROWCOUNT;
2714: IF (l_debug = 1) THEN
2715: inv_log_util.trace('Validating transaction source ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2716: END IF;
2717:
2718: END IF;--J-dev
2719:
2740: AND nvl(MTT.DISABLE_DATE,SYSDATE+1) > SYSDATE );
2741:
2742: l_count := SQL%ROWCOUNT;
2743: IF (l_debug = 1) THEN
2744: inv_log_util.trace('Validating transaction type ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2745: END IF;
2746:
2747:
2748: /*-------------------------------------------------------+
2765: OR (TRANSACTION_ACTION_ID = 30 AND UPPER(NVL(FLOW_SCHEDULE,'N')) <> 'Y')); /* CFM Scrap Transaction */
2766:
2767: l_count := SQL%ROWCOUNT;
2768: IF (l_debug = 1) THEN
2769: inv_log_util.trace('Validating transaction action ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2770: END IF;
2771:
2772:
2773: /*-------------------------------------------------------+
2795: AND NVL(OOD.DISABLE_DATE, SYSDATE + 1) > SYSDATE);
2796:
2797: l_count := SQL%ROWCOUNT;
2798: IF (l_debug = 1) THEN
2799: inv_log_util.trace('Validating ORG ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2800: END IF;
2801:
2802:
2803: /*-------------------------------------------------------------+
2833: AND MIP.FROM_ORGANIZATION_ID = MTI.ORGANIZATION_ID));
2834:
2835: l_count := SQL%ROWCOUNT;
2836: IF (l_debug = 1) THEN
2837: inv_log_util.trace('Validating xfer ORG ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2838: END IF;
2839:
2840: END IF;--J-dev
2841:
2920:
2921: END IF;--J-dev
2922:
2923: IF (l_debug = 1) THEN
2924: inv_log_util.trace('Validating revisions ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2925: END IF;
2926:
2927:
2928: /*------------------------------------------------------+
2949: AND NVL(MTR.DISABLE_DATE, SYSDATE + 1) > SYSDATE);
2950:
2951: l_count := SQL%ROWCOUNT;
2952: IF (l_debug = 1) THEN
2953: inv_log_util.trace('Validating reasons ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2954: END IF;
2955:
2956: --Jalaj Srivastava Bug 4969885
2957: --Validate the transaction uom befoire validating quantities
2982: AND MIUV.UOM_CODE = MTI.TRANSACTION_UOM);
2983:
2984: l_count := SQL%ROWCOUNT;
2985: IF (l_debug = 1) THEN
2986: inv_log_util.trace('Validating transaction uom ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2987: END IF;
2988:
2989: /*------------------------------------------------------+
2990: | Validating transaction quantity
3023: AND TRANSACTION_ACTION_ID IN (12,27,31,33);
3024:
3025: l_count := l_count + SQL%ROWCOUNT;
3026: IF (l_debug = 1) THEN
3027: inv_log_util.trace('Validating transaction quantity ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3028: END IF;
3029:
3030: IF (l_debug = 1) THEN
3031: inv_log_util.trace('start of OPM validations within (validate_group)' , 'INV_TXN_MANAGER_GRP', 9);
3027: inv_log_util.trace('Validating transaction quantity ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3028: END IF;
3029:
3030: IF (l_debug = 1) THEN
3031: inv_log_util.trace('start of OPM validations within (validate_group)' , 'INV_TXN_MANAGER_GRP', 9);
3032: END IF;
3033:
3034: OPEN AA2 ;
3035: LOOP
3059: --{
3060: IF (l_lot_control_code = 1 ) THEN
3061:
3062: IF (l_debug = 1) THEN
3063: inv_log_util.trace('calling validate_quantities IN (validate_group)' , 'INV_TXN_MANAGER_GRP', 9);
3064: END IF;
3065:
3066: /*------------------------------------------------------+
3067: | Validating secondary quantity, only
3085: );
3086: --{
3087: IF (l_qty_check) THEN
3088: IF (l_debug = 1) THEN
3089: inv_log_util.trace('validate_quantities IN (validate_group) - PASSED ' , 'INV_TXN_MANAGER_GRP', 9);
3090: END IF;
3091:
3092: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
3093: SET TRANSACTION_QUANTITY = l_transaction_quantity,
3097:
3098: ELSE
3099: -- validation failed
3100: IF (l_debug = 1) THEN
3101: inv_log_util.trace('validate_quantities IN (validate_group) - FAIL ' || l_msg_data , 'INV_TXN_MANAGER_GRP', 9);
3102: inv_log_util.trace('validate_group: TRANSACTION_QUANTITY ' || l_transaction_quantity , 'INV_TXN_MANAGER_GRP', 9);
3103: inv_log_util.trace('validate_group: SECONDARY_TRANSACTION_QUANTITY ' || l_secondary_quantity || ' uom2 '|| l_secondary_uom_code ,
3104: 'INV_TXN_MANAGER_GRP', 9);
3105: END IF;
3098: ELSE
3099: -- validation failed
3100: IF (l_debug = 1) THEN
3101: inv_log_util.trace('validate_quantities IN (validate_group) - FAIL ' || l_msg_data , 'INV_TXN_MANAGER_GRP', 9);
3102: inv_log_util.trace('validate_group: TRANSACTION_QUANTITY ' || l_transaction_quantity , 'INV_TXN_MANAGER_GRP', 9);
3103: inv_log_util.trace('validate_group: SECONDARY_TRANSACTION_QUANTITY ' || l_secondary_quantity || ' uom2 '|| l_secondary_uom_code ,
3104: 'INV_TXN_MANAGER_GRP', 9);
3105: END IF;
3106: END IF;--}
3100: IF (l_debug = 1) THEN
3101: inv_log_util.trace('validate_quantities IN (validate_group) - FAIL ' || l_msg_data , 'INV_TXN_MANAGER_GRP', 9);
3102: inv_log_util.trace('validate_group: TRANSACTION_QUANTITY ' || l_transaction_quantity , 'INV_TXN_MANAGER_GRP', 9);
3103: inv_log_util.trace('validate_group: SECONDARY_TRANSACTION_QUANTITY ' || l_secondary_quantity || ' uom2 '|| l_secondary_uom_code ,
3104: 'INV_TXN_MANAGER_GRP', 9);
3105: END IF;
3106: END IF;--}
3107: ELSIF (l_lot_control_code = 2 ) THEN
3108: IF (l_debug = 1) THEN
3105: END IF;
3106: END IF;--}
3107: ELSIF (l_lot_control_code = 2 ) THEN
3108: IF (l_debug = 1) THEN
3109: inv_log_util.trace('validate_group: for lot controlled items secondary uom='||l_secondary_uom_code, 'INV_TXN_MANAGER_GRP', 9);
3110: END IF;
3111: IF (l_secondary_uom_code <> l_item_secondary_uom_code) THEN
3112: IF (l_debug = 1) THEN
3113: inv_log_util.trace('validate_group: sec uom in mti is diff than item sec uom', 'INV_TXN_MANAGER_GRP', 9);
3109: inv_log_util.trace('validate_group: for lot controlled items secondary uom='||l_secondary_uom_code, 'INV_TXN_MANAGER_GRP', 9);
3110: END IF;
3111: IF (l_secondary_uom_code <> l_item_secondary_uom_code) THEN
3112: IF (l_debug = 1) THEN
3113: inv_log_util.trace('validate_group: sec uom in mti is diff than item sec uom', 'INV_TXN_MANAGER_GRP', 9);
3114: END IF;
3115: loaderrmsg('INV_INCORRECT_SECONDARY_UOM','INV_INCORRECT_SECONDARY_UOM');
3116: errupdate(l_rowid, NULL);
3117: END IF;
3192: AND OVERCOMPLETION_TRANSACTION_QTY > TRANSACTION_QUANTITY;
3193:
3194: l_count := l_count + SQL%ROWCOUNT;
3195: IF (l_debug = 1) THEN
3196: inv_log_util.trace('Validating overcompletion quantity ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3197: END IF;
3198:
3199:
3200: /*------------------------------------------------------+
3267:
3268:
3269: l_count := l_count + SQL%ROWCOUNT;
3270: IF (l_debug = 1) THEN
3271: inv_log_util.trace('Validating distribution account ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3272: END IF;
3273:
3274: END IF;--J-dev
3275:
3331: AND NVL(FR.DISABLE_DATE, SYSDATE + 1) > SYSDATE);
3332:
3333: l_count := l_count + SQL%ROWCOUNT;
3334: IF (l_debug = 1) THEN
3335: inv_log_util.trace('Validating freight account ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3336: END IF;
3337: END IF; --J-dev
3338:
3339: /*--------------------------------------------------------+
3369: AND WEN.WIP_ENTITY_ID = MTI.TRANSACTION_SOURCE_ID);
3370:
3371: l_count := SQL%ROWCOUNT;
3372: IF (l_debug = 1) THEN
3373: inv_log_util.trace('Validating wip entity non-CFM ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3374: END IF;
3375: END IF;
3376: END IF;--J-dev
3377:
3408: AND WEN.WIP_ENTITY_ID = MTI.TRANSACTION_SOURCE_ID);
3409:
3410: l_count := SQL%ROWCOUNT;
3411: IF (l_debug = 1) THEN
3412: inv_log_util.trace('Validating wip entity CFM ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3413: END IF;
3414: END IF;
3415: END IF;--J-dev
3416:
3596: AND TRUNC(NVL(CCG.DISABLE_DATE,SYSDATE+1)) >= TRUNC(SYSDATE) ) ;
3597:
3598: l_count := SQL%ROWCOUNT;
3599: IF (l_debug = 1) THEN
3600: inv_log_util.trace('Validating cost group ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3601: END IF;
3602:
3603: END IF;--J-dev
3604:
3631:
3632:
3633: l_count := SQL%ROWCOUNT;
3634: IF (l_debug = 1) THEN
3635: inv_log_util.trace('Validating xfer cost group ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3636: END IF;
3637:
3638: /*-------------------------------------------------------------+
3639: | Validate the interface table for Planning Organization
3671: paa.using_organization_id = mti.organization_id));
3672:
3673: l_count := SQL%ROWCOUNT;
3674: IF (l_debug = 1) THEN
3675: inv_log_util.trace('Validating group Plann Org:Supplier' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3676: END IF;
3677:
3678: --if the planning _org is a inventory org it should be in
3679: --mtl_parameters.
3700:
3701:
3702: l_count := SQL%ROWCOUNT;
3703: IF (l_debug = 1) THEN
3704: inv_log_util.trace('Validating group Planning Org:Inventory Org' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3705: END IF;
3706:
3707:
3708: /*-------------------------------------------------------------+
3732:
3733:
3734: l_count := SQL%ROWCOUNT;
3735: IF (l_debug = 1) THEN
3736: inv_log_util.trace('Validating group LPN:LPN_ID' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3737: END IF;
3738:
3739: --Validate Xfr LPN
3740:
3758:
3759:
3760: l_count := SQL%ROWCOUNT;
3761: IF (l_debug = 1) THEN
3762: inv_log_util.trace('Validating group LPN:XFER_LPN_ID' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3763: END IF;
3764:
3765:
3766: --Validate Content LPN
3785:
3786:
3787: l_count := SQL%ROWCOUNT;
3788: IF (l_debug = 1) THEN
3789: inv_log_util.trace('Validating group LPN:Content_LPN_ID' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3790: END IF;
3791:
3792:
3793: /*-------------------------------------------------------------+
3941: AND MSI.EAM_ITEM_TYPE = 2)));
3942:
3943: l_count := SQL%ROWCOUNT;
3944: IF (l_debug = 1) THEN
3945: inv_log_util.trace('Validating rebuild items ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
3946: END IF;
3947: -- end of fix for eam
3948:
3949: END IF;--J-dev
3955:
3956: EXCEPTION
3957: WHEN OTHERS THEN
3958: IF (l_debug = 1) THEN
3959: inv_log_util.trace('Error in validate_group : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
3960: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
3961: END IF;
3962: x_return_status := FND_API.G_RET_STS_ERROR;
3963: FND_MESSAGE.clear;
3956: EXCEPTION
3957: WHEN OTHERS THEN
3958: IF (l_debug = 1) THEN
3959: inv_log_util.trace('Error in validate_group : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
3960: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
3961: END IF;
3962: x_return_status := FND_API.G_RET_STS_ERROR;
3963: FND_MESSAGE.clear;
3964:
4127: end if;
4128:
4129: -- INVCONV start fabdi
4130: IF (l_debug = 1) THEN
4131: inv_log_util.trace('invconv: inside lotcheck..', 'INV_TXN_MANAGER_GRP', 9);
4132: END IF;
4133:
4134: /* GET Copy Lot Attribute_flag */
4135:
4254: -- INVCONV start fabdi
4255: l_transaction_uom_code := p_trxuom;
4256:
4257: IF (l_debug = 1) THEN
4258: inv_log_util.trace('lotcheck: calling validate_quantities', 'INV_TXN_MANAGER_GRP', 9);
4259: inv_log_util.trace('l_parent_object_type: ' || l_parent_object_type,'INV_TXN_MANAGER_GRP', 9);
4260: inv_log_util.trace('l_parent_object_id: ' || l_parent_object_id,'INV_TXN_MANAGER_GRP', 9);
4261: inv_log_util.trace('l_parent_object_number: ' || l_parent_object_number,'INV_TXN_MANAGER_GRP', 9);
4262: inv_log_util.trace('l_parent_item_id: ' || l_parent_item_id,'INV_TXN_MANAGER_GRP', 9);
4255: l_transaction_uom_code := p_trxuom;
4256:
4257: IF (l_debug = 1) THEN
4258: inv_log_util.trace('lotcheck: calling validate_quantities', 'INV_TXN_MANAGER_GRP', 9);
4259: inv_log_util.trace('l_parent_object_type: ' || l_parent_object_type,'INV_TXN_MANAGER_GRP', 9);
4260: inv_log_util.trace('l_parent_object_id: ' || l_parent_object_id,'INV_TXN_MANAGER_GRP', 9);
4261: inv_log_util.trace('l_parent_object_number: ' || l_parent_object_number,'INV_TXN_MANAGER_GRP', 9);
4262: inv_log_util.trace('l_parent_item_id: ' || l_parent_item_id,'INV_TXN_MANAGER_GRP', 9);
4263: inv_log_util.trace('l_parent_object_type2: ' || l_parent_object_type2,'INV_TXN_MANAGER_GRP', 9);
4256:
4257: IF (l_debug = 1) THEN
4258: inv_log_util.trace('lotcheck: calling validate_quantities', 'INV_TXN_MANAGER_GRP', 9);
4259: inv_log_util.trace('l_parent_object_type: ' || l_parent_object_type,'INV_TXN_MANAGER_GRP', 9);
4260: inv_log_util.trace('l_parent_object_id: ' || l_parent_object_id,'INV_TXN_MANAGER_GRP', 9);
4261: inv_log_util.trace('l_parent_object_number: ' || l_parent_object_number,'INV_TXN_MANAGER_GRP', 9);
4262: inv_log_util.trace('l_parent_item_id: ' || l_parent_item_id,'INV_TXN_MANAGER_GRP', 9);
4263: inv_log_util.trace('l_parent_object_type2: ' || l_parent_object_type2,'INV_TXN_MANAGER_GRP', 9);
4264: inv_log_util.trace('l_parent_object_id2: ' || l_parent_object_id2,'INV_TXN_MANAGER_GRP', 9);
4257: IF (l_debug = 1) THEN
4258: inv_log_util.trace('lotcheck: calling validate_quantities', 'INV_TXN_MANAGER_GRP', 9);
4259: inv_log_util.trace('l_parent_object_type: ' || l_parent_object_type,'INV_TXN_MANAGER_GRP', 9);
4260: inv_log_util.trace('l_parent_object_id: ' || l_parent_object_id,'INV_TXN_MANAGER_GRP', 9);
4261: inv_log_util.trace('l_parent_object_number: ' || l_parent_object_number,'INV_TXN_MANAGER_GRP', 9);
4262: inv_log_util.trace('l_parent_item_id: ' || l_parent_item_id,'INV_TXN_MANAGER_GRP', 9);
4263: inv_log_util.trace('l_parent_object_type2: ' || l_parent_object_type2,'INV_TXN_MANAGER_GRP', 9);
4264: inv_log_util.trace('l_parent_object_id2: ' || l_parent_object_id2,'INV_TXN_MANAGER_GRP', 9);
4265: inv_log_util.trace('l_parent_object_number2: ' || l_parent_object_number2,'INV_TXN_MANAGER_GRP', 9);
4258: inv_log_util.trace('lotcheck: calling validate_quantities', 'INV_TXN_MANAGER_GRP', 9);
4259: inv_log_util.trace('l_parent_object_type: ' || l_parent_object_type,'INV_TXN_MANAGER_GRP', 9);
4260: inv_log_util.trace('l_parent_object_id: ' || l_parent_object_id,'INV_TXN_MANAGER_GRP', 9);
4261: inv_log_util.trace('l_parent_object_number: ' || l_parent_object_number,'INV_TXN_MANAGER_GRP', 9);
4262: inv_log_util.trace('l_parent_item_id: ' || l_parent_item_id,'INV_TXN_MANAGER_GRP', 9);
4263: inv_log_util.trace('l_parent_object_type2: ' || l_parent_object_type2,'INV_TXN_MANAGER_GRP', 9);
4264: inv_log_util.trace('l_parent_object_id2: ' || l_parent_object_id2,'INV_TXN_MANAGER_GRP', 9);
4265: inv_log_util.trace('l_parent_object_number2: ' || l_parent_object_number2,'INV_TXN_MANAGER_GRP', 9);
4266: inv_log_util.trace('l_sertempid: ' || l_sertempid,'INV_TXN_MANAGER_GRP', 9);
4259: inv_log_util.trace('l_parent_object_type: ' || l_parent_object_type,'INV_TXN_MANAGER_GRP', 9);
4260: inv_log_util.trace('l_parent_object_id: ' || l_parent_object_id,'INV_TXN_MANAGER_GRP', 9);
4261: inv_log_util.trace('l_parent_object_number: ' || l_parent_object_number,'INV_TXN_MANAGER_GRP', 9);
4262: inv_log_util.trace('l_parent_item_id: ' || l_parent_item_id,'INV_TXN_MANAGER_GRP', 9);
4263: inv_log_util.trace('l_parent_object_type2: ' || l_parent_object_type2,'INV_TXN_MANAGER_GRP', 9);
4264: inv_log_util.trace('l_parent_object_id2: ' || l_parent_object_id2,'INV_TXN_MANAGER_GRP', 9);
4265: inv_log_util.trace('l_parent_object_number2: ' || l_parent_object_number2,'INV_TXN_MANAGER_GRP', 9);
4266: inv_log_util.trace('l_sertempid: ' || l_sertempid,'INV_TXN_MANAGER_GRP', 9);
4267:
4260: inv_log_util.trace('l_parent_object_id: ' || l_parent_object_id,'INV_TXN_MANAGER_GRP', 9);
4261: inv_log_util.trace('l_parent_object_number: ' || l_parent_object_number,'INV_TXN_MANAGER_GRP', 9);
4262: inv_log_util.trace('l_parent_item_id: ' || l_parent_item_id,'INV_TXN_MANAGER_GRP', 9);
4263: inv_log_util.trace('l_parent_object_type2: ' || l_parent_object_type2,'INV_TXN_MANAGER_GRP', 9);
4264: inv_log_util.trace('l_parent_object_id2: ' || l_parent_object_id2,'INV_TXN_MANAGER_GRP', 9);
4265: inv_log_util.trace('l_parent_object_number2: ' || l_parent_object_number2,'INV_TXN_MANAGER_GRP', 9);
4266: inv_log_util.trace('l_sertempid: ' || l_sertempid,'INV_TXN_MANAGER_GRP', 9);
4267:
4268: END IF;
4261: inv_log_util.trace('l_parent_object_number: ' || l_parent_object_number,'INV_TXN_MANAGER_GRP', 9);
4262: inv_log_util.trace('l_parent_item_id: ' || l_parent_item_id,'INV_TXN_MANAGER_GRP', 9);
4263: inv_log_util.trace('l_parent_object_type2: ' || l_parent_object_type2,'INV_TXN_MANAGER_GRP', 9);
4264: inv_log_util.trace('l_parent_object_id2: ' || l_parent_object_id2,'INV_TXN_MANAGER_GRP', 9);
4265: inv_log_util.trace('l_parent_object_number2: ' || l_parent_object_number2,'INV_TXN_MANAGER_GRP', 9);
4266: inv_log_util.trace('l_sertempid: ' || l_sertempid,'INV_TXN_MANAGER_GRP', 9);
4267:
4268: END IF;
4269:
4262: inv_log_util.trace('l_parent_item_id: ' || l_parent_item_id,'INV_TXN_MANAGER_GRP', 9);
4263: inv_log_util.trace('l_parent_object_type2: ' || l_parent_object_type2,'INV_TXN_MANAGER_GRP', 9);
4264: inv_log_util.trace('l_parent_object_id2: ' || l_parent_object_id2,'INV_TXN_MANAGER_GRP', 9);
4265: inv_log_util.trace('l_parent_object_number2: ' || l_parent_object_number2,'INV_TXN_MANAGER_GRP', 9);
4266: inv_log_util.trace('l_sertempid: ' || l_sertempid,'INV_TXN_MANAGER_GRP', 9);
4267:
4268: END IF;
4269:
4270:
4293:
4294:
4295: IF (l_qty_check) THEN
4296: IF (l_debug = 1) THEN
4297: inv_log_util.trace('validate_quantities IN (lotcheck) ==> PASS ' , 'INV_TXN_MANAGER_GRP', 9);
4298: END IF;
4299:
4300: UPDATE MTL_TRANSACTION_LOTS_INTERFACE MTLI
4301: SET TRANSACTION_QUANTITY = l_lotqty,
4302: SECONDARY_TRANSACTION_QUANTITY = l_secondary_quantity
4303: WHERE ROWID = l_lotrowid;
4304: ELSE
4305: IF (l_debug = 1) THEN
4306: inv_log_util.trace('validate_quantities IN (lotcheck) - FAIL ' || l_msg_data, 'INV_TXN_MANAGER_GRP', 9);
4307: END IF;
4308: l_error_exp := '';
4309: l_error_code := '';
4310: FND_MESSAGE.clear;
4311: return(FALSE);
4312: END IF;
4313:
4314: IF (l_debug = 1) THEN
4315: inv_log_util.trace('calling VALIDATE_ADDITIONAL_ATTR', 'INV_TXN_MANAGER_GRP', 9);
4316: end if;
4317:
4318: IF l_child_lot_enabled = 'N'
4319: THEN
4359: IF (l_attr_check)
4360: THEN
4361:
4362: IF (l_debug = 1) THEN
4363: inv_log_util.trace('VALIDATE_ADDITIONAL_ATTR IN (lotcheck) ==> PASS ' , 'INV_TXN_MANAGER_GRP', 9);
4364: END IF;
4365:
4366: -- nsinghi bug 5209065. Added the following line.
4367: -- Expiration date was getting reset and hence ensured that appropriate value gets updated to MTLI.
4383: WHERE ROWID = l_lotrowid;
4384:
4385: ELSE
4386: IF (l_debug = 1) THEN
4387: inv_log_util.trace('VALIDATE_ADDITIONAL_ATTR IN (lotcheck) - FAIL ' || l_msg_data, 'INV_TXN_MANAGER_GRP', 9);
4388: END IF;
4389: l_error_exp := '';
4390: l_error_code := '';
4391: FND_MESSAGE.clear;
4401: THEN
4402: -- mrana:5443557: this is not needed anymore AND (p_is_wsm_enabled = 'N')) THEN
4403: IF (l_debug = 1) THEN
4404: INV_log_util.trace('{{- It is lot+serial controlled item. Call validate_serial_genealogy_data }}'
4405: , 'INV_TXN_MANAGER_GRP', 9);
4406: END IF;
4407: validate_serial_genealogy_data ( p_interface_id => l_sertempid
4408: , p_org_id => p_orgid
4409: , x_return_status => l_return_status
4416: ELSE
4417: IF (l_debug = 1) THEN
4418: INV_log_util.trace('{{- It is lot controlled item - if parent details are available, }} ' ||
4419: '{{ Validation/derivation of parent object details should happen here}}'
4420: , 'INV_TXN_MANAGER_GRP', 9);
4421: END IF;
4422: IF (l_parent_object_id is NOT NULL AND l_parent_object_type is NOT NULL) OR
4423: (l_parent_object_type is NOT NULL AND l_parent_object_number is NOT NULL
4424: AND l_parent_Item_id IS NOT NULL) THEN
4423: (l_parent_object_type is NOT NULL AND l_parent_object_number is NOT NULL
4424: AND l_parent_Item_id IS NOT NULL) THEN
4425: IF (l_debug = 1) THEN
4426: inv_log_util.trace('{{- Parent details are available - Validation/derivation of }} ' ||
4427: '{{ parent object details is called here}}' , 'INV_TXN_MANAGER_GRP', 9);
4428: END IF;
4429: validate_derive_object_details
4430: ( p_org_id => p_orgid
4431: , p_object_type => l_parent_object_type
4450: ELSE
4451: null; -- Parent object details not populated during wip issue . It is OK
4452: IF (l_debug = 1) THEN
4453: inv_log_util.trace('{{ Parent object details not populated during WIP issue . It is OK }}' ,
4454: 'INV_TXN_MANAGER_GRP', 9);
4455: END IF;
4456: END IF;
4457: END IF;
4458: IF (l_debug = 1) THEN
4456: END IF;
4457: END IF;
4458: IF (l_debug = 1) THEN
4459: inv_log_util.trace('{{- It is not a WIP issue transactioon, so no validation/derivation of }}' ||
4460: '{{ parent object details should happen here}}' , 'INV_TXN_MANAGER_GRP', 9);
4461: END IF;
4462: END IF;
4463: -- R12 Genealogy Enhancement : End
4464:
4771: l_locator := fnd_flex_ext.concatenate_segments(n_segments => l_nseg,
4772: segments => l_segmentarray,
4773: delimiter => l_delim);
4774: IF (l_debug = 1) THEN
4775: inv_log_util.trace('Locator is : ' || l_locator, 'INV_TXN_MANAGER_GRP','1');
4776: END IF;
4777: /*
4778: * If Locator control allows dynamic creation then create the combination
4779: * if it does not already exist else just check if it exists.
4804: else
4805: x_locid := NULL;
4806: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
4807: IF (l_debug = 1) THEN
4808: inv_log_util.trace('Error in getloc : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
4809: inv_log_util.trace('Error in getloc : error_segment :' || FND_FLEX_KEYVAL.error_segment , 'INV_TXN_MANAGER_GRP','1');
4810: inv_log_util.trace('Error in getloc : error_message :' || FND_FLEX_KEYVAL.error_message , 'INV_TXN_MANAGER_GRP','1');
4811: inv_log_util.trace('Error in getloc : encoded_error_message :' || FND_FLEX_KEYVAL.encoded_error_message , 'INV_TXN_MANAGER_GRP','1');
4812: END IF;
4805: x_locid := NULL;
4806: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
4807: IF (l_debug = 1) THEN
4808: inv_log_util.trace('Error in getloc : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
4809: inv_log_util.trace('Error in getloc : error_segment :' || FND_FLEX_KEYVAL.error_segment , 'INV_TXN_MANAGER_GRP','1');
4810: inv_log_util.trace('Error in getloc : error_message :' || FND_FLEX_KEYVAL.error_message , 'INV_TXN_MANAGER_GRP','1');
4811: inv_log_util.trace('Error in getloc : encoded_error_message :' || FND_FLEX_KEYVAL.encoded_error_message , 'INV_TXN_MANAGER_GRP','1');
4812: END IF;
4813: end if;
4806: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
4807: IF (l_debug = 1) THEN
4808: inv_log_util.trace('Error in getloc : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
4809: inv_log_util.trace('Error in getloc : error_segment :' || FND_FLEX_KEYVAL.error_segment , 'INV_TXN_MANAGER_GRP','1');
4810: inv_log_util.trace('Error in getloc : error_message :' || FND_FLEX_KEYVAL.error_message , 'INV_TXN_MANAGER_GRP','1');
4811: inv_log_util.trace('Error in getloc : encoded_error_message :' || FND_FLEX_KEYVAL.encoded_error_message , 'INV_TXN_MANAGER_GRP','1');
4812: END IF;
4813: end if;
4814:
4807: IF (l_debug = 1) THEN
4808: inv_log_util.trace('Error in getloc : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
4809: inv_log_util.trace('Error in getloc : error_segment :' || FND_FLEX_KEYVAL.error_segment , 'INV_TXN_MANAGER_GRP','1');
4810: inv_log_util.trace('Error in getloc : error_message :' || FND_FLEX_KEYVAL.error_message , 'INV_TXN_MANAGER_GRP','1');
4811: inv_log_util.trace('Error in getloc : encoded_error_message :' || FND_FLEX_KEYVAL.encoded_error_message , 'INV_TXN_MANAGER_GRP','1');
4812: END IF;
4813: end if;
4814:
4815: return l_val;
4819: WHEN OTHERS THEN
4820:
4821: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
4822: IF (l_debug = 1) THEN
4823: inv_log_util.trace('Error in getloc : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
4824: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
4825: END IF;
4826: x_locid := NULL;
4827: return FALSE;
4820:
4821: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
4822: IF (l_debug = 1) THEN
4823: inv_log_util.trace('Error in getloc : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
4824: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
4825: END IF;
4826: x_locid := NULL;
4827: return FALSE;
4828:
4895:
4896: WHEN OTHERS THEN
4897: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
4898: IF (l_debug = 1) THEN
4899: inv_log_util.trace('Error in getlocId : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
4900: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
4901: END IF;
4902: x_locid := NULL;
4903: return FALSE;
4896: WHEN OTHERS THEN
4897: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
4898: IF (l_debug = 1) THEN
4899: inv_log_util.trace('Error in getlocId : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
4900: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
4901: END IF;
4902: x_locid := NULL;
4903: return FALSE;
4904:
4973:
4974: WHEN OTHERS THEN
4975: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
4976: IF (l_debug = 1) THEN
4977: inv_log_util.trace('Error in getxlocId : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
4978: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
4979: END IF;
4980: x_locid := NULL;
4981: return FALSE;
4974: WHEN OTHERS THEN
4975: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
4976: IF (l_debug = 1) THEN
4977: inv_log_util.trace('Error in getxlocId : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
4978: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
4979: END IF;
4980: x_locid := NULL;
4981: return FALSE;
4982:
5055:
5056: WHEN OTHERS THEN
5057: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
5058: IF (l_debug = 1) THEN
5059: inv_log_util.trace('Error in getplocId : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
5060: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
5061: END IF;
5062: x_locid := NULL;
5063: return FALSE;
5056: WHEN OTHERS THEN
5057: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
5058: IF (l_debug = 1) THEN
5059: inv_log_util.trace('Error in getplocId : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
5060: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
5061: END IF;
5062: x_locid := NULL;
5063: return FALSE;
5064:
5138:
5139: WHEN OTHERS THEN
5140: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
5141: IF (l_debug = 1) THEN
5142: inv_log_util.trace('Error in getxplocId : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
5143: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
5144: END IF;
5145: x_locid := NULL;
5146: return FALSE;
5139: WHEN OTHERS THEN
5140: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
5141: IF (l_debug = 1) THEN
5142: inv_log_util.trace('Error in getxplocId : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
5143: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
5144: END IF;
5145: x_locid := NULL;
5146: return FALSE;
5147:
5245: return(TRUE);
5246: END IF;
5247: END IF;
5248: IF (l_debug=1) THEN
5249: 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');
5250: END IF;
5251:
5252: IF p_ltv_scheduled_flag = 1 THEN
5253: inv_wwacst.call_prj_loc_validation(
5263:
5264: IF l_ltv_loc_project_valid = 0 THEN
5265: --Bug #6449667, Modified the code below so that relavant error message are displayed from project validation API.
5266: IF (l_debug=1) THEN
5267: inv_log_util.trace('Error in validate_loc_for_project : ' || l_ltv_error_mesg, 'INV_TXN_MANAGER_GRP','9');
5268: END IF;
5269: --FND_MESSAGE.set_name('INV','INV_INT_SRCWIPEXP');
5270: FND_MESSAGE.set_name('INV', 'INV_FND_GENERIC_MSG');
5271: FND_MESSAGE.set_token('MSG', l_ltv_error_mesg);
5429: exception
5430: when others then
5431: l_count := 0;
5432: IF (l_debug = 1) THEN
5433: inv_log_util.trace('Could not lock MIL : ' || substr(sqlerrm, 1, 200), 'INV_TXN_MANAGER_GRP','9');
5434: END IF;
5435: end;
5436:
5437: IF (l_count = 1) THEN
5458: AND SUBINVENTORY_CODE is NULL;
5459:
5460:
5461: IF (l_debug = 1) THEN
5462: inv_log_util.trace('Rows updated in MIL = '||SQL%ROWCOUNT, 'INV_TXN_MANAGER_GRP','9');
5463: END IF;
5464: END IF;
5465:
5466: COMMIT;
5467:
5468: EXCEPTION
5469: WHEN OTHERS THEN
5470: IF (l_debug = 1) THEN
5471: inv_log_util.trace('update_mil SQL : ' || substr(sqlerrm, 1, 200), 'INV_TXN_MANAGER_GRP','9');
5472: END IF;
5473: ROLLBACK;
5474: RETURN;
5475: END update_mil;
5497: WHERE transaction_interface_id = p_txn_interface_id;
5498:
5499: Begin
5500: IF (l_debug = 1) THEN
5501: inv_log_util.trace('Entered The Procedure update_status_id_in_mtli() with the parameters:', 'INV_TXN_MANAGER_GRP','1');
5502: inv_log_util.trace('p_txn_interface_id:'||p_txn_interface_id, 'INV_TXN_MANAGER_GRP','1');
5503: inv_log_util.trace('p_org_id:'||p_org_id, 'INV_TXN_MANAGER_GRP','1');
5504: inv_log_util.trace('p_inventory_item_id:'||p_inventory_item_id, 'INV_TXN_MANAGER_GRP','1');
5505: End If;
5498:
5499: Begin
5500: IF (l_debug = 1) THEN
5501: inv_log_util.trace('Entered The Procedure update_status_id_in_mtli() with the parameters:', 'INV_TXN_MANAGER_GRP','1');
5502: inv_log_util.trace('p_txn_interface_id:'||p_txn_interface_id, 'INV_TXN_MANAGER_GRP','1');
5503: inv_log_util.trace('p_org_id:'||p_org_id, 'INV_TXN_MANAGER_GRP','1');
5504: inv_log_util.trace('p_inventory_item_id:'||p_inventory_item_id, 'INV_TXN_MANAGER_GRP','1');
5505: End If;
5506:
5499: Begin
5500: IF (l_debug = 1) THEN
5501: inv_log_util.trace('Entered The Procedure update_status_id_in_mtli() with the parameters:', 'INV_TXN_MANAGER_GRP','1');
5502: inv_log_util.trace('p_txn_interface_id:'||p_txn_interface_id, 'INV_TXN_MANAGER_GRP','1');
5503: inv_log_util.trace('p_org_id:'||p_org_id, 'INV_TXN_MANAGER_GRP','1');
5504: inv_log_util.trace('p_inventory_item_id:'||p_inventory_item_id, 'INV_TXN_MANAGER_GRP','1');
5505: End If;
5506:
5507: FOR lots_rec IN lots
5500: IF (l_debug = 1) THEN
5501: inv_log_util.trace('Entered The Procedure update_status_id_in_mtli() with the parameters:', 'INV_TXN_MANAGER_GRP','1');
5502: inv_log_util.trace('p_txn_interface_id:'||p_txn_interface_id, 'INV_TXN_MANAGER_GRP','1');
5503: inv_log_util.trace('p_org_id:'||p_org_id, 'INV_TXN_MANAGER_GRP','1');
5504: inv_log_util.trace('p_inventory_item_id:'||p_inventory_item_id, 'INV_TXN_MANAGER_GRP','1');
5505: End If;
5506:
5507: FOR lots_rec IN lots
5508: LOOP
5508: LOOP
5509: IF lots_rec.status_id IS NULL THEN
5510: l_mtli_status_id := lots_rec.status_id;--To initialize 'lots_rec.status_id' with NULL
5511: IF (l_debug = 1) THEN
5512: inv_log_util.trace('Current cursor values are :', 'INV_TXN_MANAGER_GRP','1');
5513: inv_log_util.trace('lots_rec.lot_number:'||lots_rec.lot_number, 'INV_TXN_MANAGER_GRP','1');
5514: inv_log_util.trace('lots_rec.status_id:'||lots_rec.status_id, 'INV_TXN_MANAGER_GRP','1');
5515: End If;
5516: BEGIN
5509: IF lots_rec.status_id IS NULL THEN
5510: l_mtli_status_id := lots_rec.status_id;--To initialize 'lots_rec.status_id' with NULL
5511: IF (l_debug = 1) THEN
5512: inv_log_util.trace('Current cursor values are :', 'INV_TXN_MANAGER_GRP','1');
5513: inv_log_util.trace('lots_rec.lot_number:'||lots_rec.lot_number, 'INV_TXN_MANAGER_GRP','1');
5514: inv_log_util.trace('lots_rec.status_id:'||lots_rec.status_id, 'INV_TXN_MANAGER_GRP','1');
5515: End If;
5516: BEGIN
5517: SELECT status_id
5510: l_mtli_status_id := lots_rec.status_id;--To initialize 'lots_rec.status_id' with NULL
5511: IF (l_debug = 1) THEN
5512: inv_log_util.trace('Current cursor values are :', 'INV_TXN_MANAGER_GRP','1');
5513: inv_log_util.trace('lots_rec.lot_number:'||lots_rec.lot_number, 'INV_TXN_MANAGER_GRP','1');
5514: inv_log_util.trace('lots_rec.status_id:'||lots_rec.status_id, 'INV_TXN_MANAGER_GRP','1');
5515: End If;
5516: BEGIN
5517: SELECT status_id
5518: INTO l_mtli_status_id
5521: AND inventory_item_id = p_inventory_item_id
5522: AND lot_number = lots_rec.lot_number;
5523:
5524: IF (l_debug = 1) THEN
5525: inv_log_util.trace('After selecting from MLN, Value is:', 'INV_TXN_MANAGER_GRP','1');
5526: inv_log_util.trace('l_mtli_status_id:'||l_mtli_status_id, 'INV_TXN_MANAGER_GRP','1');
5527: End If;
5528:
5529: EXCEPTION WHEN NO_DATA_FOUND THEN
5522: AND lot_number = lots_rec.lot_number;
5523:
5524: IF (l_debug = 1) THEN
5525: inv_log_util.trace('After selecting from MLN, Value is:', 'INV_TXN_MANAGER_GRP','1');
5526: inv_log_util.trace('l_mtli_status_id:'||l_mtli_status_id, 'INV_TXN_MANAGER_GRP','1');
5527: End If;
5528:
5529: EXCEPTION WHEN NO_DATA_FOUND THEN
5530: BEGIN
5535: FROM mtl_system_items
5536: WHERE organization_id = p_org_id
5537: AND inventory_item_id = p_inventory_item_id;
5538: IF (l_debug = 1) THEN
5539: inv_log_util.trace('After selecting from MSI, Values are:', 'INV_TXN_MANAGER_GRP','1');
5540: inv_log_util.trace('lot_status_enabled:'||l_status_enabled, 'INV_TXN_MANAGER_GRP','1');
5541: inv_log_util.trace('default_lot_status_id:'||l_status_id, 'INV_TXN_MANAGER_GRP','1');
5542: End If;
5543:
5536: WHERE organization_id = p_org_id
5537: AND inventory_item_id = p_inventory_item_id;
5538: IF (l_debug = 1) THEN
5539: inv_log_util.trace('After selecting from MSI, Values are:', 'INV_TXN_MANAGER_GRP','1');
5540: inv_log_util.trace('lot_status_enabled:'||l_status_enabled, 'INV_TXN_MANAGER_GRP','1');
5541: inv_log_util.trace('default_lot_status_id:'||l_status_id, 'INV_TXN_MANAGER_GRP','1');
5542: End If;
5543:
5544: IF (NVL(l_status_enabled, 'N') = 'Y') THEN
5537: AND inventory_item_id = p_inventory_item_id;
5538: IF (l_debug = 1) THEN
5539: inv_log_util.trace('After selecting from MSI, Values are:', 'INV_TXN_MANAGER_GRP','1');
5540: inv_log_util.trace('lot_status_enabled:'||l_status_enabled, 'INV_TXN_MANAGER_GRP','1');
5541: inv_log_util.trace('default_lot_status_id:'||l_status_id, 'INV_TXN_MANAGER_GRP','1');
5542: End If;
5543:
5544: IF (NVL(l_status_enabled, 'N') = 'Y') THEN
5545: l_mtli_status_id := l_status_id;
5549: END;
5550: END;
5551:
5552: IF (l_debug = 1) THEN
5553: inv_log_util.trace('Before Update of MTLI', 'INV_TXN_MANAGER_GRP','1');
5554: End If;
5555:
5556: UPDATE mtl_transaction_lots_interface
5557: SET status_id = l_mtli_status_id
5564: ,program_update_date = Decode(fnd_global.conc_request_id, -1, NULL, SYSDATE)
5565: WHERE ROWID = lots_rec.rowid;
5566:
5567: IF (l_debug = 1) THEN
5568: inv_log_util.trace('After Update of MTLI', 'INV_TXN_MANAGER_GRP','1');
5569: End If;
5570:
5571: END IF;
5572: END LOOP;
5574: IF lots%ISOPEN THEN
5575: CLOSE lots;
5576: END IF;
5577: IF (l_debug = 1) THEN
5578: inv_log_util.trace('Exception occurred in update_status_id_in_mtli procedure:', 'INV_TXN_MANAGER_GRP','1');
5579: inv_log_util.trace('Error Is:'||SQLERRM, 'INV_TXN_MANAGER_GRP','1');
5580: End If;
5581:
5582: End update_status_id_in_mtli;
5575: CLOSE lots;
5576: END IF;
5577: IF (l_debug = 1) THEN
5578: inv_log_util.trace('Exception occurred in update_status_id_in_mtli procedure:', 'INV_TXN_MANAGER_GRP','1');
5579: inv_log_util.trace('Error Is:'||SQLERRM, 'INV_TXN_MANAGER_GRP','1');
5580: End If;
5581:
5582: End update_status_id_in_mtli;
5583:
5723:
5724: -- Check for both lot and serial controlled item
5725: IF (p_lotctrl = 2 AND p_serctrl IN (2,5) ) THEN
5726: IF (l_debug = 1) THEN
5727: inv_log_util.trace('Validating both lot and serial controlled item','INV_TXN_MANAGER_GRP', 9);
5728: END IF;
5729: -- Looping through all MTLI records
5730: FOR rec_MTLI IN cur_MTLI
5731: LOOP
5747: END; -- End of check for lot exists
5748:
5749: IF (l_lot_exists = 1) THEN
5750: IF (l_debug = 1) THEN
5751: inv_log_util.trace('Lot already exists','INV_TXN_MANAGER_GRP', 9);
5752: END IF;
5753: ELSE -- Have to create a new lot
5754:
5755: l_attributes_tbl(1) := rec_MTLI.ATTRIBUTE1;
5811: l_d_attributes_tbl(9) := rec_MTLI.D_ATTRIBUTE9;
5812: l_d_attributes_tbl(10) := rec_MTLI.D_ATTRIBUTE10;
5813:
5814: IF (l_debug=1) THEN
5815: inv_log_util.trace('Before call to inv_lot_api_pub.create_inv_lot', 'INV_TXN_MANAGER_GRP', 9);
5816: END IF;
5817:
5818: inv_lot_api_pub.create_inv_lot(
5819: x_return_status => x_return_status
5857: , p_source => null
5858: );
5859:
5860: IF (l_debug=1) THEN
5861: inv_log_util.trace('After call to inv_lot_api_pub.create_inv_lot', 'INV_TXN_MANAGER_GRP', 9);
5862: inv_log_util.trace(' x_return_status : ' || x_return_status, 'INV_TXN_MANAGER_GRP', 9);
5863: END IF;
5864: END IF; -- End of Lot Exists check
5865:
5858: );
5859:
5860: IF (l_debug=1) THEN
5861: inv_log_util.trace('After call to inv_lot_api_pub.create_inv_lot', 'INV_TXN_MANAGER_GRP', 9);
5862: inv_log_util.trace(' x_return_status : ' || x_return_status, 'INV_TXN_MANAGER_GRP', 9);
5863: END IF;
5864: END IF; -- End of Lot Exists check
5865:
5866: IF (x_return_status = lg_ret_sts_success) THEN
5864: END IF; -- End of Lot Exists check
5865:
5866: IF (x_return_status = lg_ret_sts_success) THEN
5867: IF (l_debug=1) THEN
5868: inv_log_util.trace('Call to inv_lot_api_pub.create_inv_lot was successful','INV_TXN_MANAGER_GRP', 9);
5869: END IF;
5870: -- Looping through every serials in the lot
5871: FOR rec_MSNI IN cur_MSNI(rec_MTLI.SERIAL_TRANSACTION_TEMP_ID)
5872: LOOP
5870: -- Looping through every serials in the lot
5871: FOR rec_MSNI IN cur_MSNI(rec_MTLI.SERIAL_TRANSACTION_TEMP_ID)
5872: LOOP
5873: IF (l_debug=1) THEN
5874: inv_log_util.trace('About to call inv_serial_number_pub.validate_serials', 'INV_TXN_MANAGER_GRP', 9);
5875: END IF;
5876:
5877: l_qty := NULL;
5878: l_end_ser := NVL(rec_MSNI.TO_SERIAL_NUMBER,rec_MSNI.FM_SERIAL_NUMBER);
5897: IF (l_start_qty <> l_qty) THEN
5898: x_return_status := lg_ret_sts_error;
5899: loaderrmsg('INV_INT_SERMISCODE','INV_LOT_SERIAL_VALIDATION_FAIL');
5900: IF (l_debug = 1) THEN
5901: inv_log_util.trace('Group mark validations failed', 'INV_TXN_MANAGER_GRP', 9);
5902: END IF;
5903: RETURN;
5904: END IF; -- End of group mark validations
5905: IF (l_debug=1) THEN
5902: END IF;
5903: RETURN;
5904: END IF; -- End of group mark validations
5905: IF (l_debug=1) THEN
5906: inv_log_util.trace('After call to inv_serial_number_pub.validate_serials', 'INV_TXN_MANAGER_GRP', 9);
5907: inv_log_util.trace(' l_ret_number : ' || l_ret_number, 'INV_TXN_MANAGER_GRP', 9);
5908: END IF;
5909: IF (l_ret_number = 0) THEN -- Success from inv_serial_number_pub.validate_serials
5910: x_return_status := lg_ret_sts_success;
5903: RETURN;
5904: END IF; -- End of group mark validations
5905: IF (l_debug=1) THEN
5906: inv_log_util.trace('After call to inv_serial_number_pub.validate_serials', 'INV_TXN_MANAGER_GRP', 9);
5907: inv_log_util.trace(' l_ret_number : ' || l_ret_number, 'INV_TXN_MANAGER_GRP', 9);
5908: END IF;
5909: IF (l_ret_number = 0) THEN -- Success from inv_serial_number_pub.validate_serials
5910: x_return_status := lg_ret_sts_success;
5911: IF (l_debug = 1) THEN
5908: END IF;
5909: IF (l_ret_number = 0) THEN -- Success from inv_serial_number_pub.validate_serials
5910: x_return_status := lg_ret_sts_success;
5911: IF (l_debug = 1) THEN
5912: inv_log_util.trace('Call to inv_serial_number_pub.validate_serials was successful','INV_TXN_MANAGER_GRP', 9);
5913: END IF;
5914: ELSIF (l_ret_number = 1) THEN
5915: x_return_status := lg_ret_sts_error;
5916: loaderrmsg('INV_INT_SERMISCODE','INV_LOT_SERIAL_VALIDATION_FAIL');
5914: ELSIF (l_ret_number = 1) THEN
5915: x_return_status := lg_ret_sts_error;
5916: loaderrmsg('INV_INT_SERMISCODE','INV_LOT_SERIAL_VALIDATION_FAIL');
5917: IF (l_debug = 1) THEN
5918: inv_log_util.trace('Error from inv_serial_number_pub.validate_serials'|| x_proc_msg || ':' || sqlerrm,'INV_TXN_MANAGER_GRP', 9);
5919: END IF;
5920: RETURN;
5921: END IF;
5922: END LOOP; -- End of cur_MSNI cursor
5924: ELSE -- Failure from inv_lot_api_pub.create_inv_lot
5925: x_return_status := lg_ret_sts_error;
5926: loaderrmsg('INV_INT_LOTCODE','INV_LOT_SERIAL_VALIDATION_FAIL');
5927: IF (l_debug = 1) THEN
5928: inv_log_util.trace('Error from inv_lot_api_pub.create_inv_lot'|| x_proc_msg || ':' || sqlerrm,'INV_TXN_MANAGER_GRP', 9);
5929: END IF;
5930: RETURN;
5931: END IF;
5932:
5942: l_qty := NULL;
5943: l_end_ser := NVL(rec_MSNI.TO_SERIAL_NUMBER,rec_MSNI.FM_SERIAL_NUMBER);
5944: l_start_qty := inv_serial_number_pub.get_serial_diff(rec_MSNI.FM_SERIAL_NUMBER,l_end_ser);
5945: IF (l_debug=1) THEN
5946: inv_log_util.trace('About to call inv_serial_number_pub.validate_serials', 'INV_TXN_MANAGER_GRP', 9);
5947: END IF;
5948: l_ret_number := inv_serial_number_pub.validate_serials(
5949: p_org_id => p_org_id
5950: , p_item_id => p_item_id
5965: IF (l_start_qty <> l_qty) THEN
5966: x_return_status := lg_ret_sts_error;
5967: loaderrmsg('INV_INT_SERMISCODE','INV_LOT_SERIAL_VALIDATION_FAIL');
5968: IF (l_debug = 1) THEN
5969: inv_log_util.trace('Group mark validations failed', 'INV_TXN_MANAGER_GRP', 9);
5970: END IF;
5971: RETURN;
5972: END IF; -- End of check for group mark validations
5973: IF (l_debug=1) THEN
5970: END IF;
5971: RETURN;
5972: END IF; -- End of check for group mark validations
5973: IF (l_debug=1) THEN
5974: inv_log_util.trace('After call to inv_serial_number_pub.validate_serials', 'INV_TXN_MANAGER_GRP', 9);
5975: inv_log_util.trace(' l_ret_number : ' || l_ret_number, 'INV_TXN_MANAGER_GRP', 9);
5976: END IF;
5977:
5978: IF (l_ret_number = 0) THEN -- Success from inv_serial_number_pub.validate_serials
5971: RETURN;
5972: END IF; -- End of check for group mark validations
5973: IF (l_debug=1) THEN
5974: inv_log_util.trace('After call to inv_serial_number_pub.validate_serials', 'INV_TXN_MANAGER_GRP', 9);
5975: inv_log_util.trace(' l_ret_number : ' || l_ret_number, 'INV_TXN_MANAGER_GRP', 9);
5976: END IF;
5977:
5978: IF (l_ret_number = 0) THEN -- Success from inv_serial_number_pub.validate_serials
5979: x_return_status := lg_ret_sts_success;
5977:
5978: IF (l_ret_number = 0) THEN -- Success from inv_serial_number_pub.validate_serials
5979: x_return_status := lg_ret_sts_success;
5980: IF (l_debug = 1) THEN
5981: inv_log_util.trace('Call to inv_serial_number_pub.validate_serials was successful','INV_TXN_MANAGER_GRP', 9);
5982: END IF;
5983: ELSIF (l_ret_number = 1) THEN -- Failure from inv_serial_number_pub.validate_serials
5984: x_return_status := lg_ret_sts_error;
5985: loaderrmsg('INV_INT_SERMISCODE','INV_LOT_SERIAL_VALIDATION_FAIL');
5983: ELSIF (l_ret_number = 1) THEN -- Failure from inv_serial_number_pub.validate_serials
5984: x_return_status := lg_ret_sts_error;
5985: loaderrmsg('INV_INT_SERMISCODE','INV_LOT_SERIAL_VALIDATION_FAIL');
5986: IF (l_debug = 1) THEN
5987: inv_log_util.trace('Error from inv_serial_number_pub.validate_serials'|| x_proc_msg || ':' || sqlerrm,'INV_TXN_MANAGER_GRP', 9);
5988: END IF;
5989: RETURN;
5990: END IF;
5991:
5994: EXCEPTION
5995: WHEN OTHERS THEN
5996: x_return_status := lg_ret_sts_unexp_error;
5997: IF (l_debug = 1) THEN
5998: inv_log_util.trace(' x_return_status : ' || x_return_status, 'INV_TXN_MANAGER_GRP', 9);
5999: inv_log_util.trace('Exception in validate_lot_serial_for_rcpt '|| x_proc_msg || ':' || sqlerrm, 'INV_TXN_MANAGER_GRP', 9);
6000: END IF;
6001: loaderrmsg('INV_INT_SERMISCODE','INV_LOT_SERIAL_VALIDATION_FAIL');
6002:
5995: WHEN OTHERS THEN
5996: x_return_status := lg_ret_sts_unexp_error;
5997: IF (l_debug = 1) THEN
5998: inv_log_util.trace(' x_return_status : ' || x_return_status, 'INV_TXN_MANAGER_GRP', 9);
5999: inv_log_util.trace('Exception in validate_lot_serial_for_rcpt '|| x_proc_msg || ':' || sqlerrm, 'INV_TXN_MANAGER_GRP', 9);
6000: END IF;
6001: loaderrmsg('INV_INT_SERMISCODE','INV_LOT_SERIAL_VALIDATION_FAIL');
6002:
6003: END validate_lot_serial_for_rcpt;
6105: p_applid => p_applid,
6106: p_progid => p_progid);
6107: IF (line_vldn_error_flag = 'Y') then
6108: IF (l_debug = 1) THEN
6109: inv_log_util.trace('Error in Line Validatin', 'INV_TXN_MANAGER_GRP', 9);
6110: END IF;
6111: END IF;
6112:
6113: END;
6118: EXCEPTION
6119: WHEN OTHERS THEN
6120: IF (l_debug = 1) THEN
6121: inv_log_util.trace('Error in outer validate_lines'||substr(sqlerrm,1,240),
6122: 'INV_TXN_MANAGER_GRP',1);
6123: END IF;
6124: x_return_status := FND_API.G_RET_STS_ERROR;
6125:
6126: END validate_lines;
6277: if (l_debug is null) then
6278: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6279: end if;
6280: IF (l_debug = 1) THEN
6281: inv_log_util.trace('in Validate_lines ....','INV_TXN_MANAGER_GRP', 9);
6282: END IF;
6283:
6284: l_count := 0;
6285:
6355: fnd_profile.put('MFG_ORGANIZATION_ID',l_orgid);
6356:
6357: /**J-dev check we need to perform a full validation*/
6358: IF (l_debug = 1) THEN
6359: inv_log_util.trace('wip_constants.DMF_PATCHSET_LEVEL'||wip_constants.dmf_patchset_level,'INV_TXN_MANAGER_GRP', 9);
6360: inv_log_util.trace('wip_constants.DMF_PATCHSET_J_VALUE'||wip_constants.dmf_patchset_J_VALUE,'INV_TXN_MANAGER_GRP', 9);
6361: END IF;
6362:
6363: IF (l_srctype = 5 AND wip_constants.DMF_PATCHSET_LEVEL>= wip_constants.DMF_PATCHSET_J_VALUE) THEN
6356:
6357: /**J-dev check we need to perform a full validation*/
6358: IF (l_debug = 1) THEN
6359: inv_log_util.trace('wip_constants.DMF_PATCHSET_LEVEL'||wip_constants.dmf_patchset_level,'INV_TXN_MANAGER_GRP', 9);
6360: inv_log_util.trace('wip_constants.DMF_PATCHSET_J_VALUE'||wip_constants.dmf_patchset_J_VALUE,'INV_TXN_MANAGER_GRP', 9);
6361: END IF;
6362:
6363: IF (l_srctype = 5 AND wip_constants.DMF_PATCHSET_LEVEL>= wip_constants.DMF_PATCHSET_J_VALUE) THEN
6364: IF (p_validation_level <> fnd_api.g_valid_level_full) THEN
6364: IF (p_validation_level <> fnd_api.g_valid_level_full) THEN
6365: l_validate_full := FALSE;
6366: /**implies this a WIP desktop transaction*/
6367: IF (l_debug = 1) THEN
6368: inv_log_util.trace('Val line:WIP desktop trx','INV_TXN_MANAGER_GRP', 9);
6369: END IF;
6370: ELSE
6371: IF (l_debug = 1) THEN
6372: inv_log_util.trace('Val line:WIP MTI trx','INV_TXN_MANAGER_GRP', 9);
6368: inv_log_util.trace('Val line:WIP desktop trx','INV_TXN_MANAGER_GRP', 9);
6369: END IF;
6370: ELSE
6371: IF (l_debug = 1) THEN
6372: inv_log_util.trace('Val line:WIP MTI trx','INV_TXN_MANAGER_GRP', 9);
6373: END IF;
6374: END IF;
6375: END IF;--J-dev
6376:
6379:
6380: --Begin Fix 2505534
6381:
6382: IF (l_debug = 1) THEN
6383: inv_log_util.trace('Before calling setorgclientinfo with l_orgid '||l_orgid, 'INV_TXN_MANAGER_GRP', 9);
6384: END IF;
6385:
6386: IF (NOT setorgclientinfo(l_orgid)) THEN
6387: RAISE fnd_api.g_exc_error;
6387: RAISE fnd_api.g_exc_error;
6388: END IF;
6389:
6390: IF (l_debug = 1) THEN
6391: inv_log_util.trace('After calling setorgclientinfo', 'INV_TXN_MANAGER_GRP',9);
6392: END IF;
6393:
6394: /* load message to detect source project error */
6395: loaderrmsg('INV_PRJ_ERR','INV_PRJ_ERR');
6394: /* load message to detect source project error */
6395: loaderrmsg('INV_PRJ_ERR','INV_PRJ_ERR');
6396:
6397: IF (l_debug = 1) THEN
6398: inv_log_util.trace('After loaderrmsg INV_PRJ_ERR', 'INV_TXN_MANAGER_GRP',9);
6399: END IF;
6400:
6401: /* validate source project id */
6402: IF (l_debug = 1) THEN
6399: END IF;
6400:
6401: /* validate source project id */
6402: IF (l_debug = 1) THEN
6403: 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);
6404: inv_log_util.trace('#$l_rowid '||l_rowid, 'INV_TXN_MANAGER_GRP', 9);
6405: END IF;
6406:
6407:
6400:
6401: /* validate source project id */
6402: IF (l_debug = 1) THEN
6403: 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);
6404: inv_log_util.trace('#$l_rowid '||l_rowid, 'INV_TXN_MANAGER_GRP', 9);
6405: END IF;
6406:
6407:
6408: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
6430: WHERE prj1.project_id = mti.source_project_id ) ;
6431:
6432: if sql%notfound then
6433: IF (l_debug = 1) THEN
6434: inv_log_util.trace('Passed the source project Validation**', 'INV_TXN_MANAGER_GRP',9);
6435: END IF;
6436: else
6437: IF (l_debug = 1) THEN
6438: inv_log_util.trace('Failed the source project Validation**', 'INV_TXN_MANAGER_GRP',9);
6434: inv_log_util.trace('Passed the source project Validation**', 'INV_TXN_MANAGER_GRP',9);
6435: END IF;
6436: else
6437: IF (l_debug = 1) THEN
6438: inv_log_util.trace('Failed the source project Validation**', 'INV_TXN_MANAGER_GRP',9);
6439: END IF;
6440: l_count := l_count + 1;
6441: RAISE fnd_api.g_exc_error;
6442: end if;
6441: RAISE fnd_api.g_exc_error;
6442: end if;
6443:
6444: IF (l_debug = 1) THEN
6445: inv_log_util.trace('After update on MTI for INV_PRJ_ERR', 'INV_TXN_MANAGER_GRP',9);
6446: END IF;
6447:
6448: /*
6449:
6454:
6455: */
6456:
6457: IF (l_debug = 1) THEN
6458: inv_log_util.trace('Before loaderrmsg INV_PAORG_ERR','INV_TXN_MANAGER_GRP',9);
6459: END IF;
6460:
6461: /* validate expenditure org id */
6462:
6489: AND NVL(POE.DATE_TO, TRUNC(SYSDATE)));
6490:
6491: if sql%notfound then
6492: IF (l_debug = 1) THEN
6493: inv_log_util.trace('Passed the exp org Validation**', 'INV_TXN_MANAGER_GRP',9);
6494: END IF;
6495: else
6496: IF (l_debug = 1) THEN
6497: inv_log_util.trace('Failed the exp org Validation**', 'INV_TXN_MANAGER_GRP',9);
6493: inv_log_util.trace('Passed the exp org Validation**', 'INV_TXN_MANAGER_GRP',9);
6494: END IF;
6495: else
6496: IF (l_debug = 1) THEN
6497: inv_log_util.trace('Failed the exp org Validation**', 'INV_TXN_MANAGER_GRP',9);
6498: END IF;
6499: l_count := l_count + 1;
6500: RAISE fnd_api.g_exc_error;
6501: end if;
6500: RAISE fnd_api.g_exc_error;
6501: end if;
6502:
6503: IF (l_debug = 1) THEN
6504: inv_log_util.trace('After update on MTI for INV_PAORG_ERR','INV_TXN_MANAGER_GRP',9);
6505: END IF;
6506:
6507: /*
6508: IF (SQL%ROWCOUNT > 0) THEN
6621: FROM DUAL;
6622: END IF;
6623:
6624: IF (l_debug = 1) THEN
6625: inv_log_util.trace('g_create_loc_at : '||g_create_loc_at, 'INV_TXN_MANAGER_GRP', 9);
6626: END IF;
6627:
6628:
6629: IF ((l_loci = -1) AND (l_locctrl <> 1 AND l_acttype <> 24)) THEN
6742: tev_scheduled_flag := 0;
6743: END;
6744:
6745: IF (l_debug = 1) THEN
6746: inv_log_util.trace('flow_schedule = '|| tev_flow_schedule || ', scheduled_flag = ' || tev_scheduled_flag,'INV_TXN_MANAGER_GRP', 9);
6747: END IF;
6748: END IF;
6749:
6750:
7084: IF ( l_acttype IN ( 3, 21) OR
7085: (l_srctype = 8 AND l_acttype IN (1, 2)) ) THEN
7086: IF l_acttype IN ( 1, 2, 21) THEN
7087: IF (l_debug = 1) THEN
7088: inv_log_util.trace('l_acttype: '||l_acttype||' l_srctype: '||l_srctype, 'INV_TXN_MANAGER_GRP', 9);
7089: END IF;
7090:
7091: BEGIN
7092: IF (l_debug = 1) THEN
7089: END IF;
7090:
7091: BEGIN
7092: IF (l_debug = 1) THEN
7093: inv_log_util.trace('Getting the FOB Point between the orgs, '||l_orgid||' and '||l_xorgid, 'INV_TXN_MANAGER_GRP', 9);
7094: END IF;
7095:
7096: SELECT fob_point
7097: INTO l_fob_point
7099: WHERE from_organization_id = l_orgid
7100: AND to_organization_id = l_xorgid;
7101:
7102: IF (l_debug = 1) THEN
7103: inv_log_util.trace('FOB Point is: '||l_fob_point, 'INV_TXN_MANAGER_GRP', 9);
7104: END IF;
7105:
7106: EXCEPTION
7107: WHEN OTHERS THEN
7105:
7106: EXCEPTION
7107: WHEN OTHERS THEN
7108: IF (l_debug = 1) THEN
7109: inv_log_util.trace('Exception while finding the FOB Point.', 'INV_TXN_MANAGER_GRP', 9);
7110: END IF;
7111: l_fob_point := NULL;
7112: END;
7113: IF l_fob_point = 1 THEN
7119: l_validate_xfer_org := TRUE;
7120: END IF;
7121: IF (l_validate_xfer_org) THEN
7122: IF (l_debug = 1) THEN
7123: inv_log_util.trace('l_validate_xfer_org is TRUE', 'INV_TXN_MANAGER_GRP', 9);
7124: END IF;
7125: IF ( get_open_period(l_xorgid,l_trxdate,0) IN (-1, 0)) THEN
7126: FND_MESSAGE.set_name('INV', 'INV_INT_PRDCODE');
7127: l_error_code := FND_MESSAGE.get;
7188: AND trunc(NVL(GCC.END_DATE_ACTIVE, mti.transaction_date + 1)) >= trunc(mti.transaction_date));
7189:
7190: l_count := SQL%ROWCOUNT;
7191: IF (l_debug = 1) THEN
7192: inv_log_util.trace('Validating material account ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
7193: END IF;
7194:
7195: END IF; --J-dev
7196:
7236: AND trunc(NVL(GCC.END_DATE_ACTIVE, mti.transaction_date + 1)) >= trunc(mti.transaction_date));
7237:
7238: l_count := SQL%ROWCOUNT;
7239: IF (l_debug = 1) THEN
7240: inv_log_util.trace('Validating material overhead account ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
7241: END IF;
7242:
7243: END IF; --J-dev
7244:
7283: AND trunc(NVL(GCC.END_DATE_ACTIVE, mti.transaction_date + 1)) >= trunc(mti.transaction_date));
7284:
7285: l_count := SQL%ROWCOUNT;
7286: IF (l_debug = 1) THEN
7287: inv_log_util.trace('Validating resource account ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
7288: END IF;
7289:
7290: END IF; --J-dev
7291:
7330: AND trunc(NVL(GCC.END_DATE_ACTIVE, mti.transaction_date + 1)) >= trunc(mti.transaction_date));
7331:
7332: l_count := SQL%ROWCOUNT;
7333: IF (l_debug = 1) THEN
7334: inv_log_util.trace('Validating outside processing account ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
7335: END IF;
7336:
7337: END IF; --J-dev
7338:
7377: AND trunc(NVL(GCC.END_DATE_ACTIVE, mti.transaction_date + 1)) >= trunc(mti.transaction_date));
7378:
7379: l_count := SQL%ROWCOUNT;
7380: IF (l_debug = 1) THEN
7381: inv_log_util.trace('Validating overhead account ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
7382: END IF;
7383:
7384: END IF; --J-dev
7385:
7393: from mtl_parameters
7394: where organization_id = l_orgid;
7395: Exception
7396: when others then
7397: inv_log_util.trace('Error in obtaining LCM Enabled Flag ', 'INV_TXN_MANAGER_GRP', 9);
7398: RAISE fnd_api.g_exc_unexpected_error;
7399: End;
7400:
7401: IF (l_debug = 1) THEN
7398: RAISE fnd_api.g_exc_unexpected_error;
7399: End;
7400:
7401: IF (l_debug = 1) THEN
7402: inv_log_util.trace('LCM Enabled : ' ||l_lcm_enabled_org, 'INV_TXN_MANAGER_GRP', 9);
7403: END IF;
7404:
7405: IF l_lcm_enabled_org = 'Y' then
7406:
7441: AND trunc(NVL(GCC.END_DATE_ACTIVE, mti.transaction_date + 1)) >= trunc(mti.transaction_date));
7442:
7443: l_count := SQL%ROWCOUNT;
7444: IF (l_debug = 1) THEN
7445: inv_log_util.trace('Validating material expense account (LCM changes) ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
7446: END IF;
7447:
7448: END IF; --J-dev
7449:
7592: -- lot and serial controlled item
7593: -- validate lot quantities and mmtt quantity.
7594: BEGIN
7595: IF (l_debug = 1) THEN
7596: inv_log_util.trace('validating lot/serial quantities','INV_TXN_MANAGER_GRP', 9);
7597: END IF;
7598:
7599: SELECT NVL(SUM(ABS(NVL(mtli.transaction_quantity,0))), 0)
7600: INTO l_lot_ser_qty
7609: = mtli.serial_transaction_temp_id);
7610: EXCEPTION
7611: WHEN others THEN
7612: IF (l_debug = 1) THEN
7613: inv_log_util.trace('Ex.. while checking lot/serial quantities','INV_TXN_MANAGER_GRP', 9);
7614: END IF;
7615: l_lot_ser_qty := 0;
7616: END;
7617:
7616: END;
7617:
7618: IF (ABS(l_trxqty) <> l_lot_ser_qty) THEN
7619: IF (l_debug = 1) THEN
7620: inv_log_util.trace('mismatch in lot/serial quantities','INV_TXN_MANAGER_GRP', 9);
7621: END IF;
7622: loaderrmsg('INV_INT_LOTCODE','INV_INVLTPU_LOTTRX_QTY');
7623: errupdate(l_rowid,null);
7624: l_count := l_count + 1;
7624: l_count := l_count + 1;
7625: RAISE fnd_api.g_exc_error;
7626: ELSE
7627: IF (l_debug = 1) THEN
7628: inv_log_util.trace('no mismatch in lot/serial quantities','INV_TXN_MANAGER_GRP', 9);
7629: END IF;
7630: END IF;
7631:
7632: ELSIF ( l_serctrl = 2 OR l_serctrl = 5 OR
7637: -- serial controlled item
7638: -- validate serial quantities only.
7639: BEGIN
7640: IF (l_debug = 1) THEN
7641: inv_log_util.trace('validating lot/serial quantities','INV_TXN_MANAGER_GRP', 9);
7642: END IF;
7643:
7644: SELECT SUM(get_serial_diff_wrp
7645: (fm_serial_number,NVL(to_serial_number,fm_serial_number)))
7648: WHERE msni.transaction_interface_id =l_intid;
7649: EXCEPTION
7650: WHEN others THEN
7651: IF (l_debug = 1) THEN
7652: inv_log_util.trace('Ex.. while checking lot/serial quantities','INV_TXN_MANAGER_GRP', 9);
7653: END IF;
7654: l_lot_ser_qty := 0;
7655: END;
7656: IF (ABS(l_priqty) <> l_lot_ser_qty) THEN
7654: l_lot_ser_qty := 0;
7655: END;
7656: IF (ABS(l_priqty) <> l_lot_ser_qty) THEN
7657: IF (l_debug = 1) THEN
7658: inv_log_util.trace('mismatch in serial quantities','INV_TXN_MANAGER_GRP', 9);
7659: END IF;
7660: loaderrmsg('INV_INT_SERMISCODE','INV_INVLTPU_LOTTRX_QTY');
7661: errupdate(l_rowid,null);
7662: l_count := l_count + 1;
7662: l_count := l_count + 1;
7663: RAISE fnd_api.g_exc_error;
7664: ELSE
7665: IF (l_debug = 1) THEN
7666: inv_log_util.trace('no mismatch in serial quantities','INV_TXN_MANAGER_GRP', 9);
7667: END IF;
7668: END IF;
7669: END IF;
7670: END IF;
7675: -- and for the transaction sources -> 3,6 and 13.
7676: IF (l_acttype = 27 AND l_srctype IN(3,6,13)) THEN
7677:
7678: IF (l_debug = 1) THEN
7679: inv_log_util.trace('Before calling validate_lot_serial_for_rcpt','INV_TXN_MANAGER_GRP', 9);
7680: END IF;
7681: SAVEPOINT val_lot_serial_for_rcpt_sp;
7682: validate_lot_serial_for_rcpt( p_interface_id => l_intid
7683: , p_org_id => l_orgid
7691: , p_locator_id => l_locid
7692: , x_proc_msg => l_msg_data
7693: , x_return_status => l_return_status );
7694: IF (l_debug = 1) THEN
7695: inv_log_util.trace('After call to validate_lot_serial_for_rcpt','INV_TXN_MANAGER_GRP', 9);
7696: END IF;
7697:
7698: IF (l_return_status <> lg_ret_sts_success) THEN -- Failure from validate_lot_serial_for_rcpt
7699: IF (l_debug = 1) THEN
7696: END IF;
7697:
7698: IF (l_return_status <> lg_ret_sts_success) THEN -- Failure from validate_lot_serial_for_rcpt
7699: IF (l_debug = 1) THEN
7700: inv_log_util.trace('Error from validate_lot_serial_for_rcpt','INV_TXN_MANAGER_GRP', 9);
7701: END IF;
7702: errupdate(l_rowid,null);
7703: l_count := l_count + 1;
7704: ROLLBACK TO val_lot_serial_for_rcpt_sp;
7704: ROLLBACK TO val_lot_serial_for_rcpt_sp;
7705: RAISE fnd_api.g_exc_error;
7706: ELSE
7707: IF (l_debug = 1) THEN
7708: inv_log_util.trace('Call to validate_lot_serial_for_rcpt successful','INV_TXN_MANAGER_GRP', 9);
7709: END IF;
7710: END IF;
7711:
7712: END IF; -- End of fix for Bug# 5710830
7809: (l_lotctrl = 1 AND (l_serctrl = 2 OR l_serctrl = 5)) )
7810: THEN
7811: IF (l_debug = 1) THEN
7812: INV_log_util.trace('{{- It is serial controlled item. Call validate_serial_genealogy_data }}'
7813: , 'INV_TXN_MANAGER_GRP', 9);
7814: END IF;
7815: validate_serial_genealogy_data ( p_interface_id => l_intid
7816: , p_org_id => l_orgid
7817: , x_return_status => l_return_status
7824: END IF;
7825: ELSE
7826: IF (l_debug = 1) THEN
7827: inv_log_util.trace('{{-It is not a WIP issue transactioon, so no validation/derivation of }}' ||
7828: '{{ parent object details will not happen }}' , 'INV_TXN_MANAGER_GRP', 9);
7829: END IF;
7830: END IF;
7831: -- R12 Genealogy Enhancement : End
7832:
8018: AND ITM.ORGANIZATION_ID = MTI.ORGANIZATION_ID
8019: AND ITM.INVENTORY_ITEM_ID = MTI.INVENTORY_ITEM_ID);
8020:
8021: IF (l_debug = 1) THEN
8022: inv_log_util.trace('Validating locators','INV_TXN_MANAGER_GRP',9);
8023: END IF;
8024:
8025:
8026: /*-----------------------------------------------------------+
8096: AND MSI.RESTRICT_LOCATORS_CODE = 2);
8097:
8098:
8099: IF (l_debug = 1) THEN
8100: inv_log_util.trace('Validating xfer locators ','INV_TXN_MANAGER_GRP',9);
8101: END IF;
8102: /* End changes for bug 3009135 */
8103:
8104:
8160:
8161: IF (l_debug = 1) THEN
8162: IF (l_process_enabled_flag_from <> l_process_enabled_flag_to)
8163: THEN
8164: inv_log_util.trace('This is process-discrete xfer. Getting Transfer Price.','INV_TXN_MANAGER_GRP',9);
8165: ELSIF (l_process_enabled_flag_from = 'Y' AND
8166: l_process_enabled_flag_to = 'Y')
8167: THEN
8168: inv_log_util.trace('This is process-process xfer across OUs. Getting Transfer Price.','INV_TXN_MANAGER_GRP',9);
8164: inv_log_util.trace('This is process-discrete xfer. Getting Transfer Price.','INV_TXN_MANAGER_GRP',9);
8165: ELSIF (l_process_enabled_flag_from = 'Y' AND
8166: l_process_enabled_flag_to = 'Y')
8167: THEN
8168: inv_log_util.trace('This is process-process xfer across OUs. Getting Transfer Price.','INV_TXN_MANAGER_GRP',9);
8169: ELSIF (l_process_enabled_flag_from = 'N' AND
8170: l_process_enabled_flag_to = 'N')
8171: THEN
8172: inv_log_util.trace('This is discrete-discrete xfer across OUs with IC enabled. Getting Transfer Price.','INV_TXN_MANAGER_GRP',9);
8168: inv_log_util.trace('This is process-process xfer across OUs. Getting Transfer Price.','INV_TXN_MANAGER_GRP',9);
8169: ELSIF (l_process_enabled_flag_from = 'N' AND
8170: l_process_enabled_flag_to = 'N')
8171: THEN
8172: inv_log_util.trace('This is discrete-discrete xfer across OUs with IC enabled. Getting Transfer Price.','INV_TXN_MANAGER_GRP',9);
8173: END IF;
8174: END IF;
8175:
8176: --
8239: , x_incr_currency_code => x_incr_currency_code
8240: );
8241:
8242: IF (l_debug = 1) THEN
8243: inv_log_util.trace('After getting transfer price. Status: ' || x_return_status, 'INV_TXN_MANAGER_GRP','1');
8244: END IF;
8245:
8246: IF x_return_status = FND_API.G_RET_STS_SUCCESS
8247: THEN
8256: IF l_transfer_price_priuom IS NOT NULL
8257: THEN
8258:
8259: IF (l_debug = 1) THEN
8260: inv_log_util.trace('Updating MTI with transfer price: ' || l_transfer_price_priuom, 'INV_TXN_MANAGER_GRP','1');
8261: END IF;
8262:
8263: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
8264: SET LAST_UPDATE_DATE = SYSDATE,
8281: inv_log_util.trace('InterOrg Xfer. Skipping transfer price API call as all conditions are not met.' ||
8282: ' From/To ProcessFlags: ' || l_process_enabled_flag_from ||'/'|| l_process_enabled_flag_to ||
8283: ' From/To OUs: ' || l_from_ou ||'/'|| l_to_ou ||
8284: ' l_ic_invoicing_enabled: ' || l_ic_invoicing_enabled,
8285: 'INV_TXN_MANAGER_GRP',9);
8286: END IF;
8287: -- Not a process-discrete xfer. So, set xfer price to NULL
8288: l_transfer_price := NULL;
8289: END IF;
8291: --============================================================
8292: -- End OPM INVCONV changes by umoogala
8293: --============================================================
8294: IF (l_debug = 1) THEN
8295: inv_log_util.trace('end of validate lines inner sec uom code='||p_line_Rec_Type.secondary_uom_code, 'INV_TXN_MANAGER_GRP', 9);
8296: inv_log_util.trace('end of validate lines inner lot control='||to_char(l_lotctrl), 'INV_TXN_MANAGER_GRP', 9);
8297: END IF;
8298: --Jalaj Srivastava Bug 4969885
8299: IF (l_lotctrl=2 AND p_line_Rec_Type.secondary_uom_code IS NOT NULL) THEN
8292: -- End OPM INVCONV changes by umoogala
8293: --============================================================
8294: IF (l_debug = 1) THEN
8295: inv_log_util.trace('end of validate lines inner sec uom code='||p_line_Rec_Type.secondary_uom_code, 'INV_TXN_MANAGER_GRP', 9);
8296: inv_log_util.trace('end of validate lines inner lot control='||to_char(l_lotctrl), 'INV_TXN_MANAGER_GRP', 9);
8297: END IF;
8298: --Jalaj Srivastava Bug 4969885
8299: IF (l_lotctrl=2 AND p_line_Rec_Type.secondary_uom_code IS NOT NULL) THEN
8300: IF (l_debug = 1) THEN
8297: END IF;
8298: --Jalaj Srivastava Bug 4969885
8299: IF (l_lotctrl=2 AND p_line_Rec_Type.secondary_uom_code IS NOT NULL) THEN
8300: IF (l_debug = 1) THEN
8301: inv_log_util.trace('update secondary quantity on line as sum of lot level secondary quantities', 'INV_TXN_MANAGER_GRP', 9);
8302: END IF;
8303: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
8304: SET secondary_transaction_quantity = (SELECT SUM(SECONDARY_TRANSACTION_QUANTITY)
8305: FROM MTL_TRANSACTION_LOTS_INTERFACE MTLI
8337: AND COST_GROUP_ID IS NOT NULL
8338: AND COST_GROUP_ID <> l_temp_cost_group_id;
8339:
8340: IF (l_debug = 1) THEN
8341: inv_log_util.trace('Validating cost group ', 'INV_TXN_MANAGER_GRP', 9);
8342: END IF;
8343: END IF;
8344:
8345: /*--------------------------------------------------------------+
8371: AND TRANSFER_COST_GROUP_ID IS NOT NULL
8372: AND TRANSFER_COST_GROUP_ID <> l_temp_xfer_cost_group_id;
8373:
8374: IF (l_debug = 1) THEN
8375: inv_log_util.trace('Validating xfer cost group ', 'INV_TXN_MANAGER_GRP', 9);
8376: END IF;
8377: END IF;
8378:
8379: /* Bug 6356567 Changes Ending */
8389: EXCEPTION
8390: WHEN OTHERS THEN
8391: p_error_flag:='Y';
8392: IF (l_debug = 1) THEN
8393: inv_log_util.trace('Error in validate_line : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
8394: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
8395: END IF;
8396:
8397: UPDATE MTL_TRANSACTIONS_INTERFACE
8390: WHEN OTHERS THEN
8391: p_error_flag:='Y';
8392: IF (l_debug = 1) THEN
8393: inv_log_util.trace('Error in validate_line : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
8394: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
8395: END IF;
8396:
8397: UPDATE MTL_TRANSACTIONS_INTERFACE
8398: SET LAST_UPDATE_DATE = SYSDATE,
8516: /*OSFM Support for Serialized Lot Items*/
8517: IF (l_debug = 1)
8518: THEN
8519: inv_log_util.TRACE ( 'In tmpinsert '
8520: , 'INV_TXN_MANAGER_GRP'
8521: , '9'
8522: );
8523: END IF;
8524: /*********************************************************************
8541: WHEN OTHERS THEN
8542: l_count := 0;
8543: IF(l_debug = 1) THEN
8544: inv_log_util.TRACE ( 'Exce. Section l_count => ' || l_count
8545: , 'INV_TXN_MANAGER_GRP'
8546: , '9'
8547: );
8548: END IF;
8549: END;
8550: IF(l_count = 0 OR l_count IS NULL) THEN
8551: IF (l_debug = 1)
8552: THEN
8553: inv_log_util.TRACE ( 'Returning from tmpinsert '
8554: , 'INV_TXN_MANAGER_GRP'
8555: , '9'
8556: );
8557: END IF;
8558: RETURN TRUE;
8865: TRANSFER_PLANNING_TP_TYPE,
8866: TRANSACTION_BATCH_ID,
8867: TRANSACTION_BATCH_SEQ,
8868: TRANSFER_COST_GROUP_ID,
8869: Decode(p_validation_level,fnd_api.g_valid_level_none,transaction_mode,INV_TXN_MANAGER_GRP.proc_mode_mti),
8870: -- start of fix for eam
8871: -- added following 4 columns
8872: REBUILD_ITEM_ID,
8873: REBUILD_ACTIVITY_ID,
9211: MTI.TRANSFER_PLANNING_TP_TYPE,
9212: MTI.TRANSACTION_BATCH_ID,
9213: MTI.TRANSACTION_BATCH_SEQ,
9214: MTI.TRANSFER_COST_GROUP_ID,
9215: Decode(p_validation_level,fnd_api.g_valid_level_none,mti.transaction_mode,INV_TXN_MANAGER_GRP.proc_mode_mti),
9216: -- start of fix for eam
9217: -- added following 4 columns
9218: MTI.REBUILD_ITEM_ID,
9219: MTI.REBUILD_ACTIVITY_ID,
9565: mti.TRANSFER_PLANNING_TP_TYPE,
9566: MTI.TRANSACTION_BATCH_ID,
9567: MTI.TRANSACTION_BATCH_SEQ,
9568: MTI.TRANSFER_COST_GROUP_ID,
9569: Decode(p_validation_level,fnd_api.g_valid_level_none,mti.transaction_mode,INV_TXN_MANAGER_GRP.proc_mode_mti),
9570: -- start of fix for eam
9571: -- added following 4 columns
9572: MTI.REBUILD_ITEM_ID,
9573: MTI.REBUILD_ACTIVITY_ID,
9895: mti.TRANSFER_PLANNING_TP_TYPE,
9896: MTI.TRANSACTION_BATCH_ID,
9897: MTI.TRANSACTION_BATCH_SEQ,
9898: MTI.TRANSFER_COST_GROUP_ID,
9899: Decode(p_validation_level,fnd_api.g_valid_level_none,mti.transaction_mode,INV_TXN_MANAGER_GRP.proc_mode_mti),
9900: -- start of fix for eam
9901: -- added following 4 columns
9902: MTI.REBUILD_ITEM_ID,
9903: MTI.REBUILD_ACTIVITY_ID,
9929: END IF;--J-dev
9930:
9931:
9932: IF (l_debug = 1) THEN
9933: inv_log_util.trace('going to insert lot'||p_header_id,'INV_TXN_MANAGER_GRP','9');
9934: END IF;
9935:
9936: /* Inserting LOT transactions */
9937: INSERT INTO MTL_TRANSACTION_LOTS_TEMP
10380: EXCEPTION
10381: WHEN OTHERS THEN
10382: IF (l_debug = 1) THEN
10383: inv_log_util.trace('Error in tmpinsert: sqlerrm : ' || substr(sqlerrm, 1, 200),
10384: 'INV_TXN_MANAGER_GRP','9');
10385: END IF;
10386: RETURN FALSE;
10387:
10388: END tmpinsert;
11922: ,
11923: --this goes into transaction_mode
11924: DECODE (p_validation_level
11925: , fnd_api.g_valid_level_none, l_mti_csr.transaction_mode
11926: , inv_txn_manager_grp.proc_mode_mti
11927: )
11928: , l_mti_csr.rebuild_item_id
11929: , l_mti_csr.rebuild_activity_id
11930: , l_mti_csr.rebuild_serial_number
13684: l_header_id := p_header_id;
13685:
13686: IF (l_debug = 1)
13687: THEN
13688: inv_log_util.trace('-----Inside validate_Transactions-------.trxhdr='||p_header_id, 'INV_TXN_MANAGER_GRP', 9);
13689: END IF;
13690:
13691:
13692: /*----------------------------------------------------------+
13741: p_validation_level);
13742:
13743: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13744: IF (l_debug = 1) THEN
13745: inv_log_util.trace('Unexpected Error in Validate Group : ' || x_msg_data,'INV_TXN_MANAGER_GRP', 9);
13746: END IF;
13747: RAISE fnd_api.g_exc_unexpected_error;
13748: END IF;
13749:
13772: p_progid => l_progid
13773: );
13774: IF (line_vldn_error_flag = 'Y') then
13775: IF (l_debug = 1) THEN
13776: inv_log_util.trace('Error in Line Validatin', 'INV_TXN_MANAGER_GRP', 9);
13777: END IF;
13778: RAISE fnd_api.g_exc_unexpected_error;
13779: --SQL error
13780: END IF;
13782: /* Added for Bug 6679112 */
13783: WHEN others THEN
13784: batch_error := TRUE;
13785: IF (l_debug = 1) THEN
13786: inv_log_util.trace('Error:'||sqlerrm,'INV_TXN_MANAGER_GRP', 9);
13787: END IF;
13788: END; --validate_lines block
13789: /* Changes for bug 6679112 end */
13790:
13830: --END LOOP
13831: --clear all tree cache.
13832:
13833: IF (l_debug = 1) THEN
13834: inv_log_util.trace('Going to open cursor AA1', 'INV_TXN_MANAGER_GRP', 9);
13835: END IF;
13836:
13837: FOR l_Line_rec_Type IN AA1 LOOP
13838: /*Bug#5075521. Moved all the validation code inside the below IF condition so that
13847:
13848: tree_exists := FALSE;
13849:
13850: IF (l_debug = 1) THEN
13851: inv_log_util.trace('Getting values from Z1 cursor', 'INV_TXN_MANAGER_GRP', 9);
13852: END IF;
13853:
13854: l_temp_rowid :=z1_rec.ROWID;
13855: l_item_id:=z1_rec.inventory_item_id;
13884: l_lot_control := TRUE;
13885: END IF;
13886:
13887: IF (l_debug = 1) THEN
13888: inv_log_util.trace('Calling Create tree', 'INV_TXN_MANAGER_GRP', 9);
13889: END IF;
13890:
13891: -- Bug 4194323 WIP Assembly Return transactions need to look for Available Quantity against the Sales Order
13892: -- if it's linked to job
13901: EXCEPTION
13902: WHEN OTHERS THEN
13903: IF (l_debug = 1) THEN
13904: inv_log_util.trace('Error in getting Demand Info : '
13905: || x_msg_data,'INV_TXN_MANAGER_GRP', 9);
13906: END IF;
13907: l_error_code := 'Error in getting Demand Info';
13908: l_error_exp := 'Error in getting Demand Info';
13909:
13995: END IF;
13996: -- Bug 4194323 Ends
13997:
13998: IF (l_debug = 1) THEN
13999: inv_log_util.trace('After create tree tree : ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14000: END IF;
14001:
14002:
14003:
14002:
14003:
14004: IF l_return_status IN (fnd_api.g_ret_sts_error, fnd_api.g_ret_sts_unexp_error) THEN
14005: IF (l_debug = 1) THEN
14006: inv_log_util.trace('Error while creating tree : x_msg_data = ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14007: END IF;
14008: FND_MESSAGE.set_name('INV','INV_ERR_CREATETREE');
14009: FND_MESSAGE.set_token('ROUTINE','UE:AVAIL_TO_TRX');
14010: l_error_code := FND_MESSAGE.get;
14068: );
14069:
14070: IF l_return_status = fnd_api.g_ret_sts_error THEN
14071: IF (l_debug = 1) THEN
14072: inv_log_util.trace('Expected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14073: END IF;
14074:
14075: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14076: FND_MESSAGE.set_token('token1','XACT_QTY1');
14109: END IF ;
14110:
14111: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
14112: IF (l_debug = 1) THEN
14113: inv_log_util.trace('UnExpected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14114: END IF;
14115:
14116: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14117: FND_MESSAGE.set_token('token1','XACT_QTY1');
14148: l_current_err_batch_id := l_Line_rec_Type.transaction_batch_id;--Bug#5075521
14149: END IF;
14150:
14151: IF (l_debug = 1) THEN
14152: inv_log_util.trace('L_QOH : ' || l_qoh,'INV_TXN_MANAGER_GRP', 9);
14153: inv_log_util.trace('L_RQOH : ' || l_rqoh,'INV_TXN_MANAGER_GRP', 9);
14154: inv_log_util.trace('L_PQOH : ' || l_pqoh,'INV_TXN_MANAGER_GRP', 9);
14155: inv_log_util.trace('L_QR : ' || l_qr,'INV_TXN_MANAGER_GRP', 9);
14156: inv_log_util.trace('L_QS : ' || l_qs,'INV_TXN_MANAGER_GRP', 9);
14149: END IF;
14150:
14151: IF (l_debug = 1) THEN
14152: inv_log_util.trace('L_QOH : ' || l_qoh,'INV_TXN_MANAGER_GRP', 9);
14153: inv_log_util.trace('L_RQOH : ' || l_rqoh,'INV_TXN_MANAGER_GRP', 9);
14154: inv_log_util.trace('L_PQOH : ' || l_pqoh,'INV_TXN_MANAGER_GRP', 9);
14155: inv_log_util.trace('L_QR : ' || l_qr,'INV_TXN_MANAGER_GRP', 9);
14156: inv_log_util.trace('L_QS : ' || l_qs,'INV_TXN_MANAGER_GRP', 9);
14157: inv_log_util.trace('L_ATT : ' || l_att,'INV_TXN_MANAGER_GRP', 9);
14150:
14151: IF (l_debug = 1) THEN
14152: inv_log_util.trace('L_QOH : ' || l_qoh,'INV_TXN_MANAGER_GRP', 9);
14153: inv_log_util.trace('L_RQOH : ' || l_rqoh,'INV_TXN_MANAGER_GRP', 9);
14154: inv_log_util.trace('L_PQOH : ' || l_pqoh,'INV_TXN_MANAGER_GRP', 9);
14155: inv_log_util.trace('L_QR : ' || l_qr,'INV_TXN_MANAGER_GRP', 9);
14156: inv_log_util.trace('L_QS : ' || l_qs,'INV_TXN_MANAGER_GRP', 9);
14157: inv_log_util.trace('L_ATT : ' || l_att,'INV_TXN_MANAGER_GRP', 9);
14158: inv_log_util.trace('L_ATR : ' || l_atr,'INV_TXN_MANAGER_GRP', 9);
14151: IF (l_debug = 1) THEN
14152: inv_log_util.trace('L_QOH : ' || l_qoh,'INV_TXN_MANAGER_GRP', 9);
14153: inv_log_util.trace('L_RQOH : ' || l_rqoh,'INV_TXN_MANAGER_GRP', 9);
14154: inv_log_util.trace('L_PQOH : ' || l_pqoh,'INV_TXN_MANAGER_GRP', 9);
14155: inv_log_util.trace('L_QR : ' || l_qr,'INV_TXN_MANAGER_GRP', 9);
14156: inv_log_util.trace('L_QS : ' || l_qs,'INV_TXN_MANAGER_GRP', 9);
14157: inv_log_util.trace('L_ATT : ' || l_att,'INV_TXN_MANAGER_GRP', 9);
14158: inv_log_util.trace('L_ATR : ' || l_atr,'INV_TXN_MANAGER_GRP', 9);
14159: END IF;
14152: inv_log_util.trace('L_QOH : ' || l_qoh,'INV_TXN_MANAGER_GRP', 9);
14153: inv_log_util.trace('L_RQOH : ' || l_rqoh,'INV_TXN_MANAGER_GRP', 9);
14154: inv_log_util.trace('L_PQOH : ' || l_pqoh,'INV_TXN_MANAGER_GRP', 9);
14155: inv_log_util.trace('L_QR : ' || l_qr,'INV_TXN_MANAGER_GRP', 9);
14156: inv_log_util.trace('L_QS : ' || l_qs,'INV_TXN_MANAGER_GRP', 9);
14157: inv_log_util.trace('L_ATT : ' || l_att,'INV_TXN_MANAGER_GRP', 9);
14158: inv_log_util.trace('L_ATR : ' || l_atr,'INV_TXN_MANAGER_GRP', 9);
14159: END IF;
14160: END IF;--100
14153: inv_log_util.trace('L_RQOH : ' || l_rqoh,'INV_TXN_MANAGER_GRP', 9);
14154: inv_log_util.trace('L_PQOH : ' || l_pqoh,'INV_TXN_MANAGER_GRP', 9);
14155: inv_log_util.trace('L_QR : ' || l_qr,'INV_TXN_MANAGER_GRP', 9);
14156: inv_log_util.trace('L_QS : ' || l_qs,'INV_TXN_MANAGER_GRP', 9);
14157: inv_log_util.trace('L_ATT : ' || l_att,'INV_TXN_MANAGER_GRP', 9);
14158: inv_log_util.trace('L_ATR : ' || l_atr,'INV_TXN_MANAGER_GRP', 9);
14159: END IF;
14160: END IF;--100
14161:
14154: inv_log_util.trace('L_PQOH : ' || l_pqoh,'INV_TXN_MANAGER_GRP', 9);
14155: inv_log_util.trace('L_QR : ' || l_qr,'INV_TXN_MANAGER_GRP', 9);
14156: inv_log_util.trace('L_QS : ' || l_qs,'INV_TXN_MANAGER_GRP', 9);
14157: inv_log_util.trace('L_ATT : ' || l_att,'INV_TXN_MANAGER_GRP', 9);
14158: inv_log_util.trace('L_ATR : ' || l_atr,'INV_TXN_MANAGER_GRP', 9);
14159: END IF;
14160: END IF;--100
14161:
14162: -- Bug 3427817: For WIP backflush transactions, we should not
14194: l_override_neg_for_backflush := 0;
14195: l_override_rsv_for_backflush := 2;
14196: END IF;
14197: IF (l_debug = 1) THEN
14198: inv_log_util.trace('l_override_neg_for_backflush ' || l_override_neg_for_backflush,'INV_TXN_MANAGER_GRP', 9);
14199: inv_log_util.trace('l_override_rsv_for_backflush ' || l_override_rsv_for_backflush,'INV_TXN_MANAGER_GRP', 9);
14200: END IF;
14201:
14202: --Bug 3487453: Added and set the variable l_translate
14195: l_override_rsv_for_backflush := 2;
14196: END IF;
14197: IF (l_debug = 1) THEN
14198: inv_log_util.trace('l_override_neg_for_backflush ' || l_override_neg_for_backflush,'INV_TXN_MANAGER_GRP', 9);
14199: inv_log_util.trace('l_override_rsv_for_backflush ' || l_override_rsv_for_backflush,'INV_TXN_MANAGER_GRP', 9);
14200: END IF;
14201:
14202: --Bug 3487453: Added and set the variable l_translate
14203: -- to true for the token to be translated.
14209: a new profile 'INV_OVERRIDE_RSV_FOR_BACKFLUSH' . If this profile is not set to 'Yes'
14210: then the backflush transaction can not consume existing reservations.Else it can consume
14211: existing reservation and can drive inventory go negative. */
14212: IF (l_override_rsv_for_backflush <> 1 ) THEN
14213: inv_log_util.trace('Transaction quantity must be less than or equal to available quantity','INV_TXN_MANAGER_GRP', 9);
14214: FND_MESSAGE.set_name('INV','INV_INT_PROCCODE');
14215: l_error_code := FND_MESSAGE.get;
14216: FND_MESSAGE.set_name('INV','INV_QTY_LESS_OR_EQUAL');
14217: l_error_exp := FND_MESSAGE.get;
14269: );
14270:
14271: IF l_return_status = fnd_api.g_ret_sts_error THEN
14272: IF (l_debug = 1) THEN
14273: inv_log_util.trace('Expected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14274: END IF;
14275:
14276: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14277: FND_MESSAGE.set_token('token1','XACT_QTY1');
14309: END IF ;
14310:
14311: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
14312: IF (l_debug = 1) THEN
14313: inv_log_util.trace('UnExpected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14314: END IF;
14315:
14316: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14317: FND_MESSAGE.set_token('token1','XACT_QTY1');
14347: l_current_batch_failed := TRUE;--Bug#5075521
14348: l_current_err_batch_id := l_Line_rec_Type.transaction_batch_id;--Bug#5075521
14349: END IF;
14350: END IF; --200
14351: inv_log_util.trace('L_ITEM_QOH : ' || l_item_qoh,'INV_TXN_MANAGER_GRP', 9);
14352: inv_log_util.trace('L_ITEM_RQOH : ' || l_item_rqoh,'INV_TXN_MANAGER_GRP', 9);
14353: inv_log_util.trace('L_ITEM_PQOH : ' || l_item_pqoh,'INV_TXN_MANAGER_GRP', 9);
14354: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_GRP', 9);
14355: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_GRP', 9);
14348: l_current_err_batch_id := l_Line_rec_Type.transaction_batch_id;--Bug#5075521
14349: END IF;
14350: END IF; --200
14351: inv_log_util.trace('L_ITEM_QOH : ' || l_item_qoh,'INV_TXN_MANAGER_GRP', 9);
14352: inv_log_util.trace('L_ITEM_RQOH : ' || l_item_rqoh,'INV_TXN_MANAGER_GRP', 9);
14353: inv_log_util.trace('L_ITEM_PQOH : ' || l_item_pqoh,'INV_TXN_MANAGER_GRP', 9);
14354: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_GRP', 9);
14355: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_GRP', 9);
14356: inv_log_util.trace('L_ITEM_ATT : ' || l_item_att,'INV_TXN_MANAGER_GRP', 9);
14349: END IF;
14350: END IF; --200
14351: inv_log_util.trace('L_ITEM_QOH : ' || l_item_qoh,'INV_TXN_MANAGER_GRP', 9);
14352: inv_log_util.trace('L_ITEM_RQOH : ' || l_item_rqoh,'INV_TXN_MANAGER_GRP', 9);
14353: inv_log_util.trace('L_ITEM_PQOH : ' || l_item_pqoh,'INV_TXN_MANAGER_GRP', 9);
14354: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_GRP', 9);
14355: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_GRP', 9);
14356: inv_log_util.trace('L_ITEM_ATT : ' || l_item_att,'INV_TXN_MANAGER_GRP', 9);
14357: inv_log_util.trace('L_ITEM_ATR : ' || l_item_atr,'INV_TXN_MANAGER_GRP', 9);
14350: END IF; --200
14351: inv_log_util.trace('L_ITEM_QOH : ' || l_item_qoh,'INV_TXN_MANAGER_GRP', 9);
14352: inv_log_util.trace('L_ITEM_RQOH : ' || l_item_rqoh,'INV_TXN_MANAGER_GRP', 9);
14353: inv_log_util.trace('L_ITEM_PQOH : ' || l_item_pqoh,'INV_TXN_MANAGER_GRP', 9);
14354: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_GRP', 9);
14355: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_GRP', 9);
14356: inv_log_util.trace('L_ITEM_ATT : ' || l_item_att,'INV_TXN_MANAGER_GRP', 9);
14357: inv_log_util.trace('L_ITEM_ATR : ' || l_item_atr,'INV_TXN_MANAGER_GRP', 9);
14358: inv_log_util.trace('L_TRX_QTY : ' || l_trx_qty,'INV_TXN_MANAGER_GRP', 9);
14351: inv_log_util.trace('L_ITEM_QOH : ' || l_item_qoh,'INV_TXN_MANAGER_GRP', 9);
14352: inv_log_util.trace('L_ITEM_RQOH : ' || l_item_rqoh,'INV_TXN_MANAGER_GRP', 9);
14353: inv_log_util.trace('L_ITEM_PQOH : ' || l_item_pqoh,'INV_TXN_MANAGER_GRP', 9);
14354: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_GRP', 9);
14355: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_GRP', 9);
14356: inv_log_util.trace('L_ITEM_ATT : ' || l_item_att,'INV_TXN_MANAGER_GRP', 9);
14357: inv_log_util.trace('L_ITEM_ATR : ' || l_item_atr,'INV_TXN_MANAGER_GRP', 9);
14358: inv_log_util.trace('L_TRX_QTY : ' || l_trx_qty,'INV_TXN_MANAGER_GRP', 9);
14359:
14352: inv_log_util.trace('L_ITEM_RQOH : ' || l_item_rqoh,'INV_TXN_MANAGER_GRP', 9);
14353: inv_log_util.trace('L_ITEM_PQOH : ' || l_item_pqoh,'INV_TXN_MANAGER_GRP', 9);
14354: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_GRP', 9);
14355: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_GRP', 9);
14356: inv_log_util.trace('L_ITEM_ATT : ' || l_item_att,'INV_TXN_MANAGER_GRP', 9);
14357: inv_log_util.trace('L_ITEM_ATR : ' || l_item_atr,'INV_TXN_MANAGER_GRP', 9);
14358: inv_log_util.trace('L_TRX_QTY : ' || l_trx_qty,'INV_TXN_MANAGER_GRP', 9);
14359:
14360: IF ( NOT l_current_batch_failed) THEN --250
14353: inv_log_util.trace('L_ITEM_PQOH : ' || l_item_pqoh,'INV_TXN_MANAGER_GRP', 9);
14354: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_GRP', 9);
14355: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_GRP', 9);
14356: inv_log_util.trace('L_ITEM_ATT : ' || l_item_att,'INV_TXN_MANAGER_GRP', 9);
14357: inv_log_util.trace('L_ITEM_ATR : ' || l_item_atr,'INV_TXN_MANAGER_GRP', 9);
14358: inv_log_util.trace('L_TRX_QTY : ' || l_trx_qty,'INV_TXN_MANAGER_GRP', 9);
14359:
14360: IF ( NOT l_current_batch_failed) THEN --250
14361: IF (l_item_qoh <> l_item_att) THEN -- Higher Level Reservations
14354: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_GRP', 9);
14355: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_GRP', 9);
14356: inv_log_util.trace('L_ITEM_ATT : ' || l_item_att,'INV_TXN_MANAGER_GRP', 9);
14357: inv_log_util.trace('L_ITEM_ATR : ' || l_item_atr,'INV_TXN_MANAGER_GRP', 9);
14358: inv_log_util.trace('L_TRX_QTY : ' || l_trx_qty,'INV_TXN_MANAGER_GRP', 9);
14359:
14360: IF ( NOT l_current_batch_failed) THEN --250
14361: IF (l_item_qoh <> l_item_att) THEN -- Higher Level Reservations
14362: IF (l_item_att < l_trx_qty AND l_item_qr > 0) THEN
14364: a new profile 'INV_OVERRIDE_RSV_FOR_BACKFLUSH' . If this profile is not set to 'Yes'then the
14365: backflush transaction can not consume existing reservations.Else it can consume existing
14366: reservation and can drive inventory negative. */
14367: IF (l_override_rsv_for_backflush <> 1 ) THEN
14368: inv_log_util.trace('Total Org quantity cannot become negative when there are reservations present','INV_TXN_MANAGER_GRP', 9);
14369: FND_MESSAGE.set_name('INV','INV_INT_PROCCODE');
14370: l_error_code := FND_MESSAGE.get;
14371: FND_MESSAGE.set_name('INV','INV_ORG_QUANTITY');
14372: l_error_exp := FND_MESSAGE.get;
14406: END IF; --250
14407:
14408: ELSE --(neg_inv_rcpt = 1)
14409: IF (l_debug = 1) THEN
14410: inv_log_util.trace('Not Enough Qty: l_att,l_trx_qty:' || l_att||','||l_trx_qty,'INV_TXN_MANAGER_GRP', 9);
14411: END IF;
14412: FND_MESSAGE.set_name('INV','INV_NO_NEG_BALANCES');
14413: l_error_code := FND_MESSAGE.get;
14414: FND_MESSAGE.set_name('INV','INV_LESS_OR_EQUAL');
14588: l_current_err_batch_id := l_Line_rec_Type.transaction_batch_id;--Bug#5075521
14589: ELSE
14590: --qty tree update was successful
14591: IF (l_debug = 1) THEN
14592: 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);
14593: END IF;
14594: END IF;
14595: END IF;-- Pawan Added for IF (l_actid in (2,28))
14596: END IF; --300
14643:
14644: IF (NOT tmpinsert(l_header_id,p_validation_level)) THEN
14645: l_error_exp := FND_MESSAGE.get;
14646: IF (l_debug = 1) THEN
14647: inv_log_util.trace('Error in tmpinsert='|| l_error_exp, 'INV_TXN_MANAGER_GRP', 9);
14648: END IF;
14649: FND_MESSAGE.set_name('INV','INV_INT_TMPXFRCODE');
14650: l_error_code := FND_MESSAGE.get;
14651: x_msg_data := l_error_exp;
14690: DELETE FROM MTL_TRANSACTIONS_INTERFACE
14691: WHERE TRANSACTION_HEADER_ID = l_header_id
14692: AND PROCESS_FLAG <> 3;
14693: IF (l_debug = 1) THEN
14694: inv_log_util.trace('*** Del recs mti valid trx', 'INV_TXN_MANAGER_GRP',9);
14695: END IF;
14696: END IF;--tmpinsert
14697:
14698: return 0;--return success.
14700:
14701: EXCEPTION
14702: WHEN OTHERS THEN
14703: IF (l_debug = 1) THEN
14704: inv_log_util.trace('*** SQL error '||substr(sqlerrm, 1, 200), 'INV_TXN_MANAGER_GRP',9);
14705: END IF;
14706:
14707: FND_MESSAGE.set_name('INV','INV_INT_SQLCODE');
14708: l_error_code := FND_MESSAGE.get;
14831: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
14832: END IF;
14833:
14834: IF (l_debug = 1) THEN
14835: inv_log_util.trace('inside Validate_Additional_Attr' , 'INV_TXN_MANAGER_GRP', 9);
14836: END IF;
14837:
14838:
14839:
14866: );
14867:
14868: IF l_return_status <> 'S' THEN
14869: IF (l_debug = 1) THEN
14870: inv_log_util.trace('Error from get_origination_date', 'INV_TXN_MANAGER_GRP', 9);
14871: END IF;
14872: CLOSE c_get_lot_record;
14873: RAISE FND_API.G_EXC_ERROR;
14874: END IF;
14874: END IF;
14875: -- dbms_output.put_line('Existing Lot Child ');
14876: IF (l_orig_date IS NULL AND p_expiration_date IS NULL) THEN
14877: IF (l_debug = 1) THEN
14878: inv_log_util.trace('existing pending lot having no expiry date', 'INV_TXN_MANAGER_GRP', 9);
14879: END IF;
14880: l_new_child_lot := TRUE;
14881: END IF; --expiration date null
14882: ELSE
14880: l_new_child_lot := TRUE;
14881: END IF; --expiration date null
14882: ELSE
14883: IF (l_debug = 1) THEN
14884: inv_log_util.trace('new lot', 'INV_TXN_MANAGER_GRP', 9);
14885: END IF;
14886: l_new_child_lot := FALSE;
14887: END IF; --lot onhand condition
14888: END IF;
14920: /* Check Lot */
14921: IF (l_new_child_lot) THEN
14922:
14923: IF (l_debug = 1) THEN
14924: inv_log_util.trace('Validate_Additional_Attr: This is a New Lot : ' , 'INV_TXN_MANAGER_GRP', 9);
14925: END IF;
14926:
14927: /* defult missing values */
14928: l_lot_record.inventory_item_id := p_inventory_item_id ;
14957:
14958: -- dbms_output.put_line('l_copy_lot_attribute_flag ' || p_copy_lot_attribute_flag );
14959:
14960: IF (l_debug = 1) THEN
14961: inv_log_util.trace('Validate_Additional_Attr: p_copy_lot_attribute_flag ' || p_copy_lot_attribute_flag , 'INV_TXN_MANAGER_GRP', 9);
14962: END IF;
14963:
14964: IF ((p_parent_lot_number IS NOT NULL) AND
14965: (l_child_lot_flag = 'Y'))
14966: THEN
14967: IF p_copy_lot_attribute_flag = 'N'
14968: THEN
14969: IF (l_debug = 1) THEN
14970: inv_log_util.trace('Calling Inv_Lot_API_PKG.Set_Msi_Default_Attr (1) ' , 'INV_TXN_MANAGER_GRP', 9);
14971: END IF;
14972: -- dbms_output.put_line('Calling Inv_Lot_API_PKG.Set_Msi_Default_Attr (1 )');
14973: /* Default attributes for lot from item master */
14974: -- inv_lot_api_pub.Set_Msi_Default_Attr(p_lot_rec => l_lot_record);
15002: /* Check if Parent lot exists */
15003: IF NOT (l_new_parent_lot)
15004: THEN
15005: IF (l_debug = 1) THEN
15006: inv_log_util.trace('Validate_Additional_Attr: Parent lot EXISTS ' , 'INV_TXN_MANAGER_GRP', 9);
15007: END IF;
15008: if p_expiration_date is null
15009: then
15010: p_expiration_date := l_parent_lot_record.expiration_date;
15044: END IF;
15045: Else
15046: -- dbms_output.put_line('Parent lot does not EXISTS, default from item ' );
15047: IF (l_debug = 1) THEN
15048: inv_log_util.trace('Calling Inv_Lot_API_PKG.Set_Msi_Default_Attr (2) ' , 'INV_TXN_MANAGER_GRP', 9);
15049: END IF;
15050:
15051: /* new parent lot , default from item master */
15052:
15078: -- dbms_output.put_line('lot is new and Item is not child lot enabled ' );
15079: /* lot is new and Item is not child lot enabled */
15080:
15081: IF (l_debug = 1) THEN
15082: inv_log_util.trace('Calling Inv_Lot_API_PKG.Set_Msi_Default_Attr (3) ' , 'INV_TXN_MANAGER_GRP', 9);
15083: END IF;
15084:
15085: Inv_Lot_API_PKG.Set_Msi_Default_Attr (
15086: p_lot_rec => l_lot_record
15141:
15142: END IF;
15143:
15144: IF (l_debug = 1) THEN
15145: inv_log_util.trace('validate_child_lot pass', 'INV_TXN_MANAGER_GRP', 9);
15146: END IF;
15147:
15148:
15149: /******************* START Grade Code validation logic ********************/
15161: RAISE FND_API.G_EXC_ERROR;
15162: END IF;
15163:
15164: IF (l_debug = 1) THEN
15165: inv_log_util.trace('validate_grade_code pass', 'INV_TXN_MANAGER_GRP', 9);
15166: END IF;
15167:
15168: /******************* START Origination Type validation logic ********************/
15169: l_check := INV_LOT_ATTR_PUB.validate_origination_type( p_origination_type => p_origination_type
15176: l_error_exp := l_msg_data;
15177: RAISE FND_API.G_EXC_ERROR;
15178: END IF;
15179: IF (l_debug = 1) THEN
15180: inv_log_util.trace('validate_origination_type pass', 'INV_TXN_MANAGER_GRP', 9);
15181: END IF;
15182:
15183:
15184: -- dbms_output.put_line('Validate_Additional_Attr: Origination type validation - PASS...');
15197: l_error_exp := l_msg_data;
15198: RAISE FND_API.G_EXC_ERROR;
15199: END IF;
15200: IF (l_debug = 1) THEN
15201: inv_log_util.trace('validate_exp_action_code pass', 'INV_TXN_MANAGER_GRP', 9);
15202: END IF;
15203:
15204: -- dbms_output.put_line('Validate_Additional_Attr: Expiration Action Code validation - PASS...');
15205:
15215: l_error_exp := l_msg_data;
15216: RAISE FND_API.G_EXC_ERROR;
15217: END IF;
15218: IF (l_debug = 1) THEN
15219: inv_log_util.trace('validate_retest_date pass', 'INV_TXN_MANAGER_GRP', 9);
15220: END IF;
15221:
15222: /******************* START Expiration Action Date validation logic ********************/
15223: l_check := INV_LOT_ATTR_PUB.validate_exp_action_date( p_expiration_action_date => p_expiration_action_date
15232: RAISE FND_API.G_EXC_ERROR;
15233:
15234: END IF;
15235: IF (l_debug = 1) THEN
15236: inv_log_util.trace('validate_exp_action_date pass', 'INV_TXN_MANAGER_GRP', 9);
15237: END IF;
15238:
15239:
15240: /******************* START Maturity Date validation logic ********************/
15249: l_error_exp := l_msg_data;
15250: RAISE FND_API.G_EXC_ERROR;
15251: END IF;
15252: IF (l_debug = 1) THEN
15253: inv_log_util.trace('validate_maturity_date pass', 'INV_TXN_MANAGER_GRP', 9);
15254: END IF;
15255:
15256: /******************* START Hold Date validation logic ********************/
15257: l_check := INV_LOT_ATTR_PUB.validate_hold_date( p_hold_date => p_hold_date
15265: l_error_exp := l_msg_data;
15266: RAISE FND_API.G_EXC_ERROR;
15267: END IF;
15268: IF (l_debug = 1) THEN
15269: inv_log_util.trace('validate_hold_date pass', 'INV_TXN_MANAGER_GRP', 9);
15270: END IF;
15271:
15272: /******************* START Reason Code validation logic ********************/
15273: l_check := INV_LOT_ATTR_PUB.validate_reason_code( p_reason_code => null
15281: l_error_exp := l_msg_data;
15282: RAISE FND_API.G_EXC_ERROR;
15283: END IF;
15284: IF (l_debug = 1) THEN
15285: inv_log_util.trace('validate_reason_code pass', 'INV_TXN_MANAGER_GRP', 9);
15286: END IF;
15287:
15288: ELSE
15289: IF (l_debug = 1) THEN
15287:
15288: ELSE
15289: IF (l_debug = 1) THEN
15290: inv_log_util.trace('Validate_Additional_Attr: NO NEED FOR VALIDATION.. just default ',
15291: 'INV_TXN_MANAGER_GRP', 9);
15292: END IF;
15293:
15294: -- dbms_output.put_line('Validate_Additional_Attr: LOT EXISTS, NO NEED FOR VALIDATION.. just default from MLN : '||
15295: -- l_lot_record.lot_number);
15342: RETURN FALSE;
15343:
15344: WHEN NO_DATA_FOUND THEN
15345: IF (l_debug = 1) THEN
15346: inv_log_util.trace('Validate_Additional_Attr: error NO_DATA_FOUND' , 'INV_TXN_MANAGER_GRP', 9);
15347: END IF;
15348:
15349: x_return_status := fnd_api.g_ret_sts_error;
15350:
15373:
15374:
15375: WHEN OTHERS THEN
15376: IF (l_debug = 1) THEN
15377: inv_log_util.trace('Validate_Additional_Attr: error OTHERS exception' , 'INV_TXN_MANAGER_GRP', 9);
15378: END IF;
15379:
15380: x_return_status := fnd_api.g_ret_sts_unexp_error;
15381:
15686: END IF;
15687:
15688: END get_serial_diff_wrp;
15689:
15690: END INV_TXN_MANAGER_GRP;