[Home] [Help]
165: MSN.SERIAL_NUMBER = :B_SERIAL_NUMBER AND
166: MSN.INVENTORY_ITEM_ID = :B_ITEM_ID AND
167: MSN.CURRENT_ORGANIZATION_ID = :B_ORG_ID';
168:
169: lg_ret_sts_error CONSTANT VARCHAR2(30) := fnd_api.g_ret_sts_error;
170: lg_ret_sts_unexp_error CONSTANT VARCHAR2(30) := fnd_api.g_ret_sts_unexp_error;
171: lg_ret_sts_success CONSTANT VARCHAR2(30) := fnd_api.g_ret_sts_success;
172:
173: lg_exc_error EXCEPTION ; --fnd_api.g_exc_error;
166: MSN.INVENTORY_ITEM_ID = :B_ITEM_ID AND
167: MSN.CURRENT_ORGANIZATION_ID = :B_ORG_ID';
168:
169: lg_ret_sts_error CONSTANT VARCHAR2(30) := fnd_api.g_ret_sts_error;
170: lg_ret_sts_unexp_error CONSTANT VARCHAR2(30) := fnd_api.g_ret_sts_unexp_error;
171: lg_ret_sts_success CONSTANT VARCHAR2(30) := fnd_api.g_ret_sts_success;
172:
173: lg_exc_error EXCEPTION ; --fnd_api.g_exc_error;
174: lg_exc_unexpected_error EXCEPTION ; --fnd_api.g_exc_unexpected_error;
167: MSN.CURRENT_ORGANIZATION_ID = :B_ORG_ID';
168:
169: lg_ret_sts_error CONSTANT VARCHAR2(30) := fnd_api.g_ret_sts_error;
170: lg_ret_sts_unexp_error CONSTANT VARCHAR2(30) := fnd_api.g_ret_sts_unexp_error;
171: lg_ret_sts_success CONSTANT VARCHAR2(30) := fnd_api.g_ret_sts_success;
172:
173: lg_exc_error EXCEPTION ; --fnd_api.g_exc_error;
174: lg_exc_unexpected_error EXCEPTION ; --fnd_api.g_exc_unexpected_error;
175:
169: lg_ret_sts_error CONSTANT VARCHAR2(30) := fnd_api.g_ret_sts_error;
170: lg_ret_sts_unexp_error CONSTANT VARCHAR2(30) := fnd_api.g_ret_sts_unexp_error;
171: lg_ret_sts_success CONSTANT VARCHAR2(30) := fnd_api.g_ret_sts_success;
172:
173: lg_exc_error EXCEPTION ; --fnd_api.g_exc_error;
174: lg_exc_unexpected_error EXCEPTION ; --fnd_api.g_exc_unexpected_error;
175:
176:
177: TYPE seg_rec_type IS RECORD
170: lg_ret_sts_unexp_error CONSTANT VARCHAR2(30) := fnd_api.g_ret_sts_unexp_error;
171: lg_ret_sts_success CONSTANT VARCHAR2(30) := fnd_api.g_ret_sts_success;
172:
173: lg_exc_error EXCEPTION ; --fnd_api.g_exc_error;
174: lg_exc_unexpected_error EXCEPTION ; --fnd_api.g_exc_unexpected_error;
175:
176:
177: TYPE seg_rec_type IS RECORD
178: (colname varchar2(30),
784: END LOOP;
785: END if;
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;
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;
1467:
1468: -----------------------------------------------------------------------
1689: END IF;
1690:
1691: l_lot_indiv_trx_valid := INV_LOT_API_PUB.VALIDATE_LOT_INDIVISIBLE
1692: ( p_api_version => 1.0
1693: , p_init_msg_list => fnd_api.g_false
1694: , p_transaction_type_id => p_transaction_type_id
1695: , p_organization_id => p_organization_id
1696: , p_inventory_item_id => p_inventory_item_id
1697: , p_revision => p_revision
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:
1716: IF (l_debug = 1) THEN
1717: inv_log_util.trace('validate_quantities: passed check for lot indivisibility', 'INV_TXN_MANAGER_GRP', 9);
1726:
1727: RETURN TRUE;
1728:
1729: EXCEPTION
1730: WHEN FND_API.G_EXC_ERROR THEN
1731: FND_MSG_PUB.Get(
1732: p_msg_index => 1,
1733: p_data => l_msg,
1734: p_encoded => FND_API.G_FALSE,
1730: WHEN FND_API.G_EXC_ERROR THEN
1731: FND_MSG_PUB.Get(
1732: p_msg_index => 1,
1733: p_data => l_msg,
1734: p_encoded => FND_API.G_FALSE,
1735: p_msg_index_out => l_msg_index_out);
1736:
1737: l_error_exp := l_msg;
1738: l_error_code := l_msg;
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;
1806: x_msg_count OUT NOCOPY NUMBER,
1807: x_msg_data OUT NOCOPY VARCHAR2,
1808: p_userid NUMBER,
1809: p_loginid NUMBER,
1810: p_validation_level NUMBER:= fnd_api.g_valid_level_full)
1811: IS
1812:
1813: srctypeid NUMBER;
1814: tvu_flow_schedule VARCHAR2(50);
1947: AND PROCESS_FLAG = 1
1948: AND ROWNUM < 2;
1949: EXCEPTION
1950: WHEN NO_DATA_FOUND THEN
1951: x_return_status := FND_API.G_RET_STS_ERROR;
1952: x_msg_data := 'No Transaction found in MTI';
1953: return;
1954: END;
1955:
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
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);
3947: -- end of fix for eam
3948:
3949: END IF;--J-dev
3950:
3951: x_return_status := FND_API.G_RET_STS_SUCCESS;
3952:
3953: FND_MESSAGE.clear;
3954:
3955:
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:
3965: END validate_group;
3966:
4332: /* this api will validate all the added new lot attributes intoduced in INVCONV
4333: project */
4334: l_attr_check := VALIDATE_ADDITIONAL_ATTR(
4335: p_api_version => 1.0
4336: , p_init_msg_list => fnd_api.g_false
4337: , p_validation_level => fnd_api.g_valid_level_full
4338: , p_intid => p_intid
4339: , p_rowid => p_rowid
4340: , p_inventory_item_id => p_itemid
4333: project */
4334: l_attr_check := VALIDATE_ADDITIONAL_ATTR(
4335: p_api_version => 1.0
4336: , p_init_msg_list => fnd_api.g_false
4337: , p_validation_level => fnd_api.g_valid_level_full
4338: , p_intid => p_intid
4339: , p_rowid => p_rowid
4340: , p_inventory_item_id => p_itemid
4341: , p_organization_id => p_orgid
6007: * validate_lines() : Outer
6008: *
6009: ******************************************************************/
6010: PROCEDURE validate_lines(p_header_id NUMBER,
6011: p_commit VARCHAR2 := fnd_api.g_false ,
6012: p_validation_level NUMBER := fnd_api.g_valid_level_full ,
6013: x_return_status OUT NOCOPY VARCHAR2,
6014: x_msg_count OUT NOCOPY NUMBER,
6015: x_msg_data OUT NOCOPY VARCHAR2,
6008: *
6009: ******************************************************************/
6010: PROCEDURE validate_lines(p_header_id NUMBER,
6011: p_commit VARCHAR2 := fnd_api.g_false ,
6012: p_validation_level NUMBER := fnd_api.g_valid_level_full ,
6013: x_return_status OUT NOCOPY VARCHAR2,
6014: x_msg_count OUT NOCOPY NUMBER,
6015: x_msg_data OUT NOCOPY VARCHAR2,
6016: p_userid NUMBER,
6112:
6113: END;
6114: END LOOP;
6115:
6116: x_return_status := FND_API.G_RET_STS_SUCCESS;
6117:
6118: EXCEPTION
6119: WHEN OTHERS THEN
6120: IF (l_debug = 1) 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;
6127:
6128:
6132: * Validate one transaction record in MTL_TRANSACTIONS_INTERFACE
6133: *
6134: ******************************************************************/
6135: PROCEDURE validate_lines(p_line_Rec_Type inv_txn_manager_pub.line_rec_type,
6136: p_commit VARCHAR2 := fnd_api.g_false ,
6137: p_validation_level NUMBER := fnd_api.g_valid_level_full ,
6138: p_error_flag OUT NOCOPY VARCHAR2,
6139: p_userid NUMBER,
6140: p_loginid NUMBER,
6133: *
6134: ******************************************************************/
6135: PROCEDURE validate_lines(p_line_Rec_Type inv_txn_manager_pub.line_rec_type,
6136: p_commit VARCHAR2 := fnd_api.g_false ,
6137: p_validation_level NUMBER := fnd_api.g_valid_level_full ,
6138: p_error_flag OUT NOCOPY VARCHAR2,
6139: p_userid NUMBER,
6140: p_loginid NUMBER,
6141: p_applid NUMBER,
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
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);
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;
6388: END IF;
6389:
6390: IF (l_debug = 1) THEN
6391: inv_log_util.trace('After calling setorgclientinfo', 'INV_TXN_MANAGER_GRP',9);
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;
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);
6448: /*
6449:
6450: IF (SQL%FOUND) THEN
6451: l_count := l_count + 1;
6452: RAISE fnd_api.g_exc_error;
6453: END IF;
6454:
6455: */
6456:
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;
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);
6506:
6507: /*
6508: IF (SQL%ROWCOUNT > 0) THEN
6509: l_count := l_count + 1;
6510: RAISE fnd_api.g_exc_error;
6511: END IF;
6512: */
6513:
6514: --End Fix 2505534
6530: l_error_code := FND_MESSAGE.get;
6531:
6532: errupdate(l_rowid,null);
6533: --exit;
6534: RAISE fnd_api.g_exc_error;
6535: END IF;
6536: END IF;
6537:
6538: IF l_itemid IS NULL THEN
6541: l_error_code := FND_MESSAGE.get;
6542:
6543: errupdate(l_rowid,null);
6544: --exit;
6545: RAISE fnd_api.g_exc_error;
6546: END IF;
6547: END IF;
6548:
6549: /* CFM Scrap Transactions */
6564: loaderrmsg('INV_INT_ITMCODE','INV-No item record');
6565: errupdate(l_rowid,null);
6566: l_count := l_count + 1;
6567: --exit;
6568: RAISE fnd_api.g_exc_error;
6569: END;
6570:
6571: ELSE
6572: BEGIN
6602: loaderrmsg('INV_INT_ITMCODE','INV-No item record');
6603: errupdate(l_rowid,null);
6604: l_count := l_count + 1;
6605: --exit;
6606: RAISE fnd_api.g_exc_error;
6607: END;
6608: END IF;
6609:
6610:
6634: FND_MESSAGE.set_name('INV', 'INV_INT_LOCSEGCODE');
6635: l_error_exp := FND_MESSAGE.get; --bug6679112, error_code=>error_exp
6636: errupdate(l_rowid,null);
6637: --exit;
6638: RAISE fnd_api.g_exc_error;
6639: END IF;
6640:
6641: /* Start: Fix for Bug# 7323175: For a PROJECT_REFERENCE_ENABLED org, a physical locator will be
6642: created for a logical locator( locator with project and task info). If the physical locator is
6657: IF ( NOT getplocid(l_plocid, l_orgid, l_subinv, l_rowid, l_locctrl)) THEN
6658: FND_MESSAGE.set_name('INV', 'INV_INT_LOCSEGCODE');
6659: l_error_code := FND_MESSAGE.get;
6660: errupdate(l_rowid);
6661: RAISE fnd_api.g_exc_error;
6662: END IF;
6663: END IF;
6664:
6665: /* End: Fix for Bug# 7323175 */
6759:
6760: errupdate(l_rowid,null);
6761: l_count := l_count + 1;
6762: --exit;
6763: RAISE fnd_api.g_exc_error;
6764: END IF;
6765:
6766: END IF;
6767:
6780: loaderrmsg('INV_INT_XSUBCODE','INV_DEFAULT_SUB');
6781: errupdate(l_rowid,null);
6782: l_count := l_count + 1;
6783: --exit;
6784: RAISE fnd_api.g_exc_error;
6785: END;
6786: ELSE
6787: loaderrmsg('INV_INT_XSUBCODE','INV_INT_XSUBEXP');
6788: errupdate(l_rowid,null);
6787: loaderrmsg('INV_INT_XSUBCODE','INV_INT_XSUBEXP');
6788: errupdate(l_rowid,null);
6789: l_count := l_count + 1;
6790: --exit;
6791: RAISE fnd_api.g_exc_error;
6792: END IF;
6793: END IF;
6794:
6795:
6819: loaderrmsg('INV_INT_ITMCODE','INV-No item record');
6820: errupdate(l_rowid,null);
6821: l_count := l_count + 1;
6822: --exit;
6823: RAISE fnd_api.g_exc_error;
6824: END;
6825:
6826: --IF (l_xlocctrl IS NULL) THEN bug2460745
6827:
6857: loaderrmsg('INV_INT_XLOCCODE','INV_DEFAULT_LOC');
6858: errupdate(l_rowid,null);
6859: l_count := l_count + 1;
6860: --exit;
6861: RAISE fnd_api.g_exc_error;
6862: END;
6863:
6864: /* For srctype = 8 i.e internal order, the below code is added to append
6865: project and task from the requisition to a locator that is selected
6881:
6882: errupdate(l_rowid,null);
6883: l_count := l_count + 1;
6884: --exit;
6885: RAISE fnd_api.g_exc_error;
6886: END IF;
6887: END IF;
6888: ELSE
6889: -- Bug 5011566 setting transfer org as org context
6888: ELSE
6889: -- Bug 5011566 setting transfer org as org context
6890: IF (l_srctype in (8, 13)) and (l_acttype = 3) and (l_xorgid is not null) THEN
6891: IF (NOT setorgclientinfo(l_xorgid)) THEN
6892: RAISE fnd_api.g_exc_error;
6893: END IF;
6894: fnd_profile.put('MFG_ORGANIZATION_ID',l_xorgid);
6895: END IF;
6896:
6898: l_xlocctrl)) THEN
6899: FND_MESSAGE.set_name('INV', 'INV_INT_XLOCCODE');
6900: l_error_code := FND_MESSAGE.get;
6901: --exit;
6902: RAISE fnd_api.g_exc_error;
6903: END IF;
6904:
6905: /* Start: Fix for Bug# 7323175: For a PROJECT_REFERENCE_ENABLED org, a physical locator will be
6906: created for a logical locator( locator with project and task info). If the physical locator is
6919: IF l_project_ref_enabled = 1 THEN
6920: IF (NOT getxplocid(l_xplocid, l_xorgid, l_xsubinv, l_rowid, l_xlocctrl)) THEN
6921: FND_MESSAGE.set_name('INV', 'INV_INT_XLOCCODE');
6922: l_error_code := FND_MESSAGE.get;
6923: RAISE fnd_api.g_exc_error;
6924: END IF;
6925: END IF;
6926: /* End: Fix for Bug# 7323175 */
6927:
6928:
6929: -- Bug 5011566 re-setting org as org context
6930: IF (l_srctype in (8, 13)) and (l_acttype = 3) and (l_xorgid is not null) then
6931: IF (NOT setorgclientinfo(l_orgid)) THEN
6932: RAISE fnd_api.g_exc_error;
6933: END IF;
6934: fnd_profile.put('MFG_ORGANIZATION_ID',l_orgid);
6935: END IF;
6936:
7001:
7002: errupdate(l_rowid,null);
7003: l_count := l_count + 1;
7004: --exit;
7005: RAISE fnd_api.g_exc_error;
7006: END IF;
7007:
7008: END IF;
7009:
7028:
7029: errupdate(l_rowid,null);
7030: l_count := l_count + 1;
7031: --exit;
7032: RAISE fnd_api.g_exc_error;
7033: END;
7034:
7035: /* Borrow Payback */
7036: IF(l_acttype = 2) THEN
7046:
7047: errupdate(l_rowid,null);
7048: l_count := l_count + 1;
7049: --exit;
7050: RAISE fnd_api.g_exc_error;
7051: END IF;
7052: END IF;
7053: --prOR := 0;
7054: IF (l_srctype <> 14) THEN /* PCST */
7060:
7061: errupdate(l_rowid,null);
7062: l_count := l_count + 1;
7063: --exit;
7064: RAISE fnd_api.g_exc_error;
7065: END IF;
7066:
7067: l_prdid := get_open_period(l_orgid,l_trxdate,0);
7068:
7077:
7078: errupdate(l_rowid,null);
7079: l_count := l_count + 1;
7080: --exit;
7081: RAISE fnd_api.g_exc_error;
7082: END IF;
7083: /*Bug#5205455. Validation of the acc period for to_org */
7084: IF ( l_acttype IN ( 3, 21) OR
7085: (l_srctype = 8 AND l_acttype IN (1, 2)) ) THEN
7128: FND_MESSAGE.set_name('INV', 'INV_NO_OPEN_PERIOD_TOORG');
7129: l_error_exp := FND_MESSAGE.get;
7130: errupdate(l_rowid,null);
7131: l_count := l_count + 1;
7132: RAISE fnd_api.g_exc_error;
7133: END IF;
7134: END IF;
7135: END IF;
7136:
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
7402: inv_log_util.trace('LCM Enabled : ' ||l_lcm_enabled_org, 'INV_TXN_MANAGER_GRP', 9);
7499: IF ( l_error_exp IS NOT NULL) THEN
7500: errupdate(l_rowid,null);
7501: l_count := l_count + 1;
7502: --exit;
7503: RAISE fnd_api.g_exc_error;
7504: END IF;
7505: END IF;
7506: END IF;
7507:
7527: IF l_error_exp IS NOT NULL THEN
7528: errupdate(l_rowid,null);
7529: l_count := l_count + 1;
7530: --exit;
7531: RAISE fnd_api.g_exc_error;
7532: END IF;
7533: END IF;
7534:
7535: /* Do this snapshot moves for non-CFM WIP completions,returns,
7562: IF l_error_exp IS NOT NULL THEN
7563: errupdate(l_rowid,null);
7564: l_count := l_count + 1;
7565: --exit;
7566: RAISE fnd_api.g_exc_error;
7567: END IF;
7568: END IF;
7569: END IF;
7570: END IF; --J-dev
7621: END IF;
7622: loaderrmsg('INV_INT_LOTCODE','INV_INVLTPU_LOTTRX_QTY');
7623: errupdate(l_rowid,null);
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;
7659: END IF;
7660: loaderrmsg('INV_INT_SERMISCODE','INV_INVLTPU_LOTTRX_QTY');
7661: errupdate(l_rowid,null);
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;
7701: END IF;
7702: errupdate(l_rowid,null);
7703: l_count := l_count + 1;
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;
7738: -- INVCONV end fabdi
7739: THEN
7740: l_count := l_count + 1;
7741: --exit;
7742: RAISE fnd_api.g_exc_error;
7743: END IF;
7744: end if;--action
7745: EXCEPTION
7746: WHEN NO_DATA_FOUND THEN
7747: loaderrmsg('INV_INT_LOTCODE','INV_INT_LOTEXP');
7748: errupdate(l_rowid,null);
7749: l_count := l_count + 1;
7750: --exit;
7751: RAISE fnd_api.g_exc_error;
7752: END;
7753: ELSE
7754: loaderrmsg('INV_INT_LOTCODE','INV_INT_LOTEXP');
7755: errupdate(l_rowid,null);
7754: loaderrmsg('INV_INT_LOTCODE','INV_INT_LOTEXP');
7755: errupdate(l_rowid,null);
7756: l_count := l_count + 1;
7757: --exit;
7758: RAISE fnd_api.g_exc_error;
7759: END IF;--l_intid is null
7760: ELSE
7761: IF l_intid IS NOT NULL THEN
7762: DELETE FROM MTL_TRANSACTION_LOTS_INTERFACE
7777: loaderrmsg('INV_INT_SERMISCODE','INV_INT_SERMISEXP');
7778: errupdate(l_rowid,null);
7779: l_count := l_count + 1;
7780: --exit;
7781: RAISE fnd_api.g_exc_error;
7782: ELSE
7783: BEGIN
7784: SELECT 1
7785: into l_tnum
7790: WHEN NO_DATA_FOUND THEN
7791: loaderrmsg('INV_INT_SERMISCODE','INV_INT_SERMISEXP');
7792: errupdate(l_rowid,null);
7793: l_count := l_count + 1;
7794: RAISE fnd_api.g_exc_error;
7795: --exit;
7796: END;
7797: END IF;--l_intid is null
7798: ELSE
7867: l_error_code := FND_MESSAGE.get;
7868:
7869: errupdate(l_rowid,null);
7870: --exit;
7871: RAISE fnd_api.g_exc_error;
7872: END IF;
7873: END IF;
7874: END IF;
7875:
7880: IF ( NOT validate_acctid(l_acct, l_orgid, l_trxdate)) THEN
7881: FND_MESSAGE.set_name('INV', 'INV_INT_ACTCODE');
7882: l_error_code := FND_MESSAGE.get;
7883: errupdate(l_rowid,null);
7884: RAISE fnd_api.g_exc_error;
7885: END IF;
7886: END IF;
7887:
7888: --J-dev
7898:
7899: errupdate(l_rowid,null);
7900: l_count := l_count + 1;
7901: --exit;
7902: RAISE fnd_api.g_exc_error;
7903:
7904: END IF;
7905:
7906:
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
8248:
8249: --
8250: -- Bug 5136335
8272: FND_MESSAGE.set_name('BOM', 'CST_XFER_PRICE_ERROR');
8273: l_error_code := FND_MESSAGE.get;
8274: errupdate(l_rowid,null);
8275: l_count := l_count + 1;
8276: RAISE fnd_api.g_exc_error;
8277: END IF;
8278:
8279: ELSE
8280: IF (l_debug = 1) THEN
8380:
8381: /*---------------------------------------+
8382: | Commit work only if not a CFM WIP txn |
8383: +---------------------------------------*/
8384: IF (l_flow_schedule_children <> 1) AND FND_API.To_Boolean( p_commit ) THEN
8385: COMMIT WORK;
8386: END IF;
8387: -- END LOOP;
8388:
8408:
8409: /*---------------------------------------+
8410: | Commit work only if not a CFM WIP txn |
8411: +---------------------------------------*/
8412: IF (l_flow_schedule_children <> 1) AND FND_API.To_Boolean( p_commit ) THEN
8413: COMMIT WORK;
8414: END IF;
8415:
8416: l_error_exp := '';
8483: * tmpinsert()
8484: *
8485: ******************************************************************/
8486: FUNCTION tmpinsert(p_header_id IN NUMBER,
8487: p_validation_level IN NUMBER := fnd_api.g_valid_level_full )
8488: RETURN BOOLEAN
8489: IS
8490:
8491: l_lt_flow_schedule NUMBER;
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,
10923: , x_msg_data OUT NOCOPY VARCHAR2
10924: , x_validation_status OUT NOCOPY VARCHAR2
10925: , p_header_id IN NUMBER
10926: , p_validation_level IN NUMBER
10927: := fnd_api.g_valid_level_full
10928: )
10929: IS
10930: /*Select only lot split/merge and translate transactions */
10931: CURSOR mti_csr(l_header_id IN NUMBER)
11560: mydebug ('breadcrumb 10', 'tmpinsert2');
11561: END IF;
11562:
11563: l_validation_status := 'Y';
11564: x_return_status := fnd_api.g_ret_sts_success;
11565: l_sysdate := SYSDATE;
11566: l_user_id := fnd_global.user_id;
11567: l_login_id := fnd_global.login_id;
11568:
11921: , l_mti_csr.transfer_cost_group_id
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
12228: );
12229: END IF;
12230:
12231: x_validation_status := 'N';
12232: RAISE fnd_api.g_exc_unexpected_error;
12233: END;
12234:
12235: IF (l_debug = 1)
12236: THEN
12286: THEN
12287: fnd_message.set_name ('INV', 'INV_INVALID_SERIAL_RANGE');
12288: fnd_msg_pub.ADD;
12289: l_validation_status := 'N';
12290: RAISE fnd_api.g_exc_error;
12291: END IF;
12292:
12293: /***********************************************************************
12294: * Each MSNI can have a range of serials. Need to expand them and *
12379:
12380: fnd_message.set_name ('WMS', 'WMS_GET_LOT_ATTR_ERROR');
12381: fnd_msg_pub.ADD;
12382: l_validation_status := 'N';
12383: RAISE fnd_api.g_exc_unexpected_error;
12384: END;
12385:
12386: BEGIN
12387: IF (l_debug = 1)
12417: fnd_message.set_name ('WMS'
12418: , 'WMS_VALIDATE_ATTR_ERROR');
12419: fnd_msg_pub.ADD;
12420: l_validation_status := 'N';
12421: RAISE fnd_api.g_exc_unexpected_error;
12422: END;
12423:
12424: IF ( x_return_status <> fnd_api.g_ret_sts_success
12425: OR x_validation_status <> 'Y'
12420: l_validation_status := 'N';
12421: RAISE fnd_api.g_exc_unexpected_error;
12422: END;
12423:
12424: IF ( x_return_status <> fnd_api.g_ret_sts_success
12425: OR x_validation_status <> 'Y'
12426: )
12427: THEN
12428: IF (l_debug = 1)
12432: , 'tmpinsert2'
12433: );
12434: END IF;
12435: l_validation_status := 'N';
12436: RAISE fnd_api.g_exc_error;
12437: END IF;
12438:
12439: IF (l_debug = 1)
12440: THEN
12844:
12845: fnd_message.set_name ('INV', 'INVALID_SERIAL_NUMBER');
12846: fnd_msg_pub.ADD;
12847: l_validation_status := 'N';
12848: RAISE fnd_api.g_exc_error;
12849: END IF;
12850:
12851: END LOOP;
12852: END LOOP;
12866: );
12867: END IF;
12868:
12869: l_validation_status := 'N';
12870: RAISE fnd_api.g_exc_unexpected_error;
12871: WHEN OTHERS
12872: THEN
12873: IF (l_debug = 1)
12874: THEN
12876: ('exception raised while inserting into MSNT for lot split/merge'
12877: , SQLERRM
12878: );
12879: END IF;
12880: RAISE fnd_api.g_exc_unexpected_error;
12881: END;
12882: ELSE
12883: IF (l_debug = 1)
12884: THEN
12953: mydebug('Lot translate : Items have different Serial Attr Context', 'tmpinsert2');
12954: END IF;
12955: fnd_message.set_name ('INV', 'INV_SERIAL_CONTEXT_DIFF');
12956: fnd_msg_pub.ADD;
12957: RAISE fnd_api.g_exc_error;
12958: l_validation_status := 'N';
12959: END IF;
12960: END IF;
12961: ELSE /*Source MTIs*/
13306: );
13307: END IF;
13308:
13309: l_validation_status := 'N';
13310: RAISE fnd_api.g_exc_unexpected_error;
13311: WHEN OTHERS
13312: THEN
13313: IF (l_debug = 1)
13314: THEN
13319: );
13320: END IF;
13321:
13322: l_validation_status := 'N';
13323: RAISE fnd_api.g_exc_unexpected_error;
13324: END;
13325: END IF;
13326: END IF; --if serial_controlled
13327: END LOOP;--loop of MTLI
13335: mydebug (' exception happened in tmpinsert2 ' || SQLERRM, 'tmpinsert2');
13336: END IF;
13337:
13338: l_validation_status := 'N';
13339: RAISE fnd_api.g_exc_unexpected_error;
13340: END;
13341:
13342: /*All records processed successfully*/
13343: IF (l_debug = 1)
13345: mydebug (' insertions done .. !! ', 'tmpinsert2');
13346: END IF;
13347:
13348: x_validation_status := 'Y';
13349: x_return_status := fnd_api.g_ret_sts_success;
13350: EXCEPTION
13351: WHEN fnd_api.g_exc_error
13352: THEN
13353: IF (l_debug = 1)
13347:
13348: x_validation_status := 'Y';
13349: x_return_status := fnd_api.g_ret_sts_success;
13350: EXCEPTION
13351: WHEN fnd_api.g_exc_error
13352: THEN
13353: IF (l_debug = 1)
13354: THEN
13355: mydebug ('breadcrumb 290', 'tmpinsert2');
13355: mydebug ('breadcrumb 290', 'tmpinsert2');
13356: END IF;
13357:
13358: x_validation_status := l_validation_status;
13359: x_return_status := fnd_api.g_ret_sts_error;
13360: fnd_msg_pub.count_and_get (p_count => x_msg_count
13361: , p_data => x_msg_data);
13362: WHEN fnd_api.g_exc_unexpected_error
13363: THEN
13358: x_validation_status := l_validation_status;
13359: x_return_status := fnd_api.g_ret_sts_error;
13360: fnd_msg_pub.count_and_get (p_count => x_msg_count
13361: , p_data => x_msg_data);
13362: WHEN fnd_api.g_exc_unexpected_error
13363: THEN
13364: x_validation_status := l_validation_status;
13365: x_return_status := fnd_api.g_ret_sts_unexp_error;
13366: fnd_msg_pub.count_and_get (p_count => x_msg_count
13361: , p_data => x_msg_data);
13362: WHEN fnd_api.g_exc_unexpected_error
13363: THEN
13364: x_validation_status := l_validation_status;
13365: x_return_status := fnd_api.g_ret_sts_unexp_error;
13366: fnd_msg_pub.count_and_get (p_count => x_msg_count
13367: , p_data => x_msg_data);
13368: WHEN OTHERS
13369: THEN
13367: , p_data => x_msg_data);
13368: WHEN OTHERS
13369: THEN
13370: x_validation_status := l_validation_status;
13371: x_return_status := fnd_api.g_ret_sts_unexp_error;
13372:
13373: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
13374: THEN
13375: fnd_msg_pub.add_exc_msg (g_pkg_name, 'tmpinert2');
13423: -- Do not call the query_tree for gme yield transactions.
13424: -----------------------------------------------------------------------
13425: FUNCTION Validate_Transactions(
13426: p_api_version IN NUMBER ,
13427: p_init_msg_list IN VARCHAR2 := fnd_api.g_false ,
13428: p_validation_level IN NUMBER := fnd_api.g_valid_level_full ,
13429: p_header_id IN NUMBER,
13430: x_return_status OUT NOCOPY VARCHAR2 ,
13431: x_msg_count OUT NOCOPY NUMBER ,
13424: -----------------------------------------------------------------------
13425: FUNCTION Validate_Transactions(
13426: p_api_version IN NUMBER ,
13427: p_init_msg_list IN VARCHAR2 := fnd_api.g_false ,
13428: p_validation_level IN NUMBER := fnd_api.g_valid_level_full ,
13429: p_header_id IN NUMBER,
13430: x_return_status OUT NOCOPY VARCHAR2 ,
13431: x_msg_count OUT NOCOPY NUMBER ,
13432: x_msg_data OUT NOCOPY VARCHAR2 ,
13430: x_return_status OUT NOCOPY VARCHAR2 ,
13431: x_msg_count OUT NOCOPY NUMBER ,
13432: x_msg_data OUT NOCOPY VARCHAR2 ,
13433: x_trans_count OUT NOCOPY NUMBER ,
13434: p_free_tree IN VARCHAR2 := fnd_api.g_true)
13435:
13436: RETURN NUMBER
13437: IS
13438: l_header_id NUMBER;
13705: IF l_userid is NULL THEN
13706: l_userid := -1;
13707: END IF;
13708:
13709: x_return_status := FND_API.G_RET_STS_ERROR;
13710: x_msg_count := 0;
13711: x_msg_data := '';
13712: x_trans_count := 0;
13713:
13739: l_userid,
13740: l_loginid,
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;
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:
13750: batch_error := FALSE;
13751:
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;
13781: EXCEPTION
13782: /* Added for Bug 6679112 */
13943: l_actid = INV_GLOBALS.G_ACTION_ASSYRETURN AND l_dem_hdr_id IS NOT NULL ) then
13944:
13945: INV_QUANTITY_TREE_PVT.create_tree
13946: ( p_api_version_number => 1.0
13947: , p_init_msg_lst => fnd_api.g_false
13948: , x_return_status => l_return_status
13949: , x_msg_count => l_msg_count
13950: , x_msg_data => l_msg_data
13951: , p_organization_id => l_org_id
13969: ELSE
13970:
13971: INV_QUANTITY_TREE_PVT.create_tree
13972: ( p_api_version_number => 1.0
13973: , p_init_msg_lst => fnd_api.g_false
13974: , x_return_status => l_return_status
13975: , x_msg_count => l_msg_count
13976: , x_msg_data => l_msg_data
13977: , p_organization_id => l_org_id
14000: END IF;
14001:
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');
14047: IF ( NOT l_current_batch_failed) THEN --100
14048:
14049: INV_QUANTITY_TREE_PVT.query_tree
14050: ( p_api_version_number => 1.0
14051: , p_init_msg_lst => fnd_api.g_false
14052: , x_return_status => l_return_status
14053: , x_msg_count => l_msg_count
14054: , x_msg_data => l_msg_data
14055: , p_tree_id => l_tree_id
14066: , x_att => l_att
14067: , x_atr => l_atr
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:
14107: l_current_err_batch_id := l_Line_rec_Type.transaction_batch_id;--Bug#5075521
14108:
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:
14249:
14250: IF (NOT l_current_batch_failed ) THEN --200
14251: INV_QUANTITY_TREE_PVT.query_tree
14252: ( p_api_version_number => 1.0
14253: , p_init_msg_lst => fnd_api.g_false
14254: , x_return_status => l_return_status
14255: , x_msg_count => l_msg_count
14256: , x_msg_data => l_msg_data
14257: , p_tree_id => l_tree_id
14267: , x_att => l_item_att
14268: , x_atr => l_item_atr
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:
14307: l_current_batch_failed := TRUE;--Bug#5075521
14308: l_current_err_batch_id := l_Line_rec_Type.transaction_batch_id;--Bug#5075521
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:
14454: IF ( NOT l_current_batch_failed ) THEN --300
14455: IF (l_actid in (2,28)) then
14456: inv_quantity_tree_pub.update_quantities
14457: (p_api_version_number => 1.0,
14458: p_init_msg_lst => fnd_api.g_false,
14459: x_return_status => l_return_status,
14460: x_msg_count => l_msg_count,
14461: x_msg_data => l_msg_data,
14462: p_organization_id => l_org_id,
14482: x_att => l_att,
14483: x_atr => l_atr);
14484:
14485:
14486: IF l_return_status <> fnd_api.g_ret_sts_success THEN
14487: FND_MESSAGE.set_name('INV', 'INV_ERR_CREATETREE');
14488: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.UPDATE_QUANTITIES');
14489: l_error_code:= fnd_message.get;
14490: l_error_exp :=l_msg_data;
14524: sign is derived from transaction_quantity */
14525:
14526: inv_quantity_tree_pub.update_quantities
14527: (p_api_version_number => 1.0,
14528: p_init_msg_lst => fnd_api.g_false,
14529: x_return_status => l_return_status,
14530: x_msg_count => l_msg_count,
14531: x_msg_data => l_msg_data,
14532: p_organization_id => l_org_id,
14551: x_qs => l_qs,
14552: x_att => l_att,
14553: x_atr => l_atr);
14554:
14555: IF l_return_status <> fnd_api.g_ret_sts_success THEN
14556: FND_MESSAGE.set_name('INV', 'INV_ERR_CREATETREE');
14557: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.UPDATE_QUANTITIES');
14558: l_error_code:= fnd_message.get;
14559: l_error_exp :=l_msg_data;
14606:
14607: --free all trees created so far.
14608: /* INV_QUANTITY_TREE_PVT.free_All
14609: ( p_api_version_number => 1.0
14610: , p_init_msg_lst => fnd_api.g_false
14611: , x_return_status => l_return_status
14612: , x_msg_count => l_msg_count
14613: , x_msg_data => l_msg_data); */
14614:
14615: --Jalaj Srivastava Bug 4672291
14616: --Call free_tree only when l_tree_id is not null
14617: --Jalaj Srivastava Bug 5155661
14618: --free the tree only if p_free_tree is true
14619: IF (p_free_tree = fnd_api.G_TRUE)
14620: AND (l_tree_id IS NOT NULL) THEN
14621: INV_QUANTITY_TREE_PVT.free_tree
14622: ( p_api_version_number => 1.0
14623: , p_init_msg_lst => fnd_api.g_false
14619: IF (p_free_tree = fnd_api.G_TRUE)
14620: AND (l_tree_id IS NOT NULL) THEN
14621: INV_QUANTITY_TREE_PVT.free_tree
14622: ( p_api_version_number => 1.0
14623: , p_init_msg_lst => fnd_api.g_false
14624: , x_return_status => l_return_status
14625: , x_msg_count => l_msg_count
14626: , x_msg_data => l_msg_data
14627: , p_tree_id => l_tree_id );
14727:
14728:
14729: FUNCTION Validate_Additional_Attr(
14730: p_api_version IN NUMBER
14731: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
14732: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
14733: , p_intid IN NUMBER
14734: , p_rowid IN VARCHAR2
14735: , p_inventory_item_id IN NUMBER
14728:
14729: FUNCTION Validate_Additional_Attr(
14730: p_api_version IN NUMBER
14731: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
14732: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
14733: , p_intid IN NUMBER
14734: , p_rowid IN VARCHAR2
14735: , p_inventory_item_id IN NUMBER
14736: , p_organization_id IN NUMBER
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;
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
14977: , x_return_status => l_return_status
14978: , x_msg_count => l_msg_count
14979: , x_msg_data => l_msg_data);
14980:
14981: IF l_return_status <> fnd_api.g_ret_sts_success
14982: THEN
14983: l_error_code := l_msg_data;
14984: l_error_exp := l_msg_data;
14985: RAISE FND_API.G_EXC_ERROR;
14981: IF l_return_status <> fnd_api.g_ret_sts_success
14982: THEN
14983: l_error_code := l_msg_data;
14984: l_error_exp := l_msg_data;
14985: RAISE FND_API.G_EXC_ERROR;
14986: END IF;
14987:
14988: p_grade_code := l_lot_record.grade_code;
14989: p_retest_date := l_lot_record.retest_date;
15056: , x_msg_count => l_msg_count
15057: , x_msg_data => l_msg_data
15058: );
15059:
15060: IF l_return_status <> fnd_api.g_ret_sts_success THEN
15061: l_error_code := l_msg_data;
15062: l_error_exp := l_msg_data;
15063: RAISE FND_API.G_EXC_ERROR;
15064: END IF;
15059:
15060: IF l_return_status <> fnd_api.g_ret_sts_success THEN
15061: l_error_code := l_msg_data;
15062: l_error_exp := l_msg_data;
15063: RAISE FND_API.G_EXC_ERROR;
15064: END IF;
15065:
15066: p_grade_code := l_lot_record.grade_code;
15067: p_retest_date := l_lot_record.retest_date;
15088: , x_msg_count => l_msg_count
15089: , x_msg_data => l_msg_data
15090: );
15091:
15092: IF l_return_status <> fnd_api.g_ret_sts_success THEN
15093: l_error_code := l_msg_data;
15094: l_error_exp := l_msg_data;
15095: RAISE FND_API.G_EXC_ERROR;
15096: END IF;
15091:
15092: IF l_return_status <> fnd_api.g_ret_sts_success THEN
15093: l_error_code := l_msg_data;
15094: l_error_exp := l_msg_data;
15095: RAISE FND_API.G_EXC_ERROR;
15096: END IF;
15097:
15098: p_grade_code := l_lot_record.grade_code;
15099: p_retest_date := l_lot_record.retest_date;
15136: IF NOT(l_check)
15137: THEN
15138: l_error_code := l_msg_data;
15139: l_error_exp := l_msg_data;
15140: RAISE FND_API.G_EXC_ERROR;
15141:
15142: END IF;
15143:
15144: IF (l_debug = 1) THEN
15157: IF NOT(l_check)
15158: THEN
15159: l_error_code := l_msg_data;
15160: l_error_exp := l_msg_data;
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);
15173: IF NOT(l_check)
15174: THEN
15175: l_error_code := l_msg_data;
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;
15194: IF NOT(l_check)
15195: THEN
15196: l_error_code := l_msg_data;
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;
15212: IF NOT(l_check)
15213: THEN
15214: l_error_code := l_msg_data;
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;
15228: IF NOT(l_check)
15229: THEN
15230: l_error_code := l_msg_data;
15231: l_error_exp := l_msg_data;
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);
15246: IF NOT(l_check)
15247: THEN
15248: l_error_code := l_msg_data;
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;
15262: IF NOT(l_check)
15263: THEN
15264: l_error_code := l_msg_data;
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;
15278: IF NOT(l_check)
15279: THEN
15280: l_error_code := l_msg_data;
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;
15323:
15324: return true;
15325: /******************* END Perform Date validation logic ********************/
15326: EXCEPTION
15327: WHEN FND_API.G_EXC_ERROR THEN
15328: x_return_status := FND_API.G_RET_STS_ERROR;
15329: UPDATE MTL_TRANSACTION_LOTS_INTERFACE MTLI
15330: SET LAST_UPDATE_DATE = SYSDATE,
15331: LAST_UPDATED_BY = l_userid,
15324: return true;
15325: /******************* END Perform Date validation logic ********************/
15326: EXCEPTION
15327: WHEN FND_API.G_EXC_ERROR THEN
15328: x_return_status := FND_API.G_RET_STS_ERROR;
15329: UPDATE MTL_TRANSACTION_LOTS_INTERFACE MTLI
15330: SET LAST_UPDATE_DATE = SYSDATE,
15331: LAST_UPDATED_BY = l_userid,
15332: LAST_UPDATE_LOGIN = l_loginid,
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:
15351: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
15352: p_count => x_msg_count,
15353: p_data => x_msg_data);
15347: END IF;
15348:
15349: x_return_status := fnd_api.g_ret_sts_error;
15350:
15351: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
15352: p_count => x_msg_count,
15353: p_data => x_msg_data);
15354: if( x_msg_count > 1 ) then
15355: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
15351: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
15352: p_count => x_msg_count,
15353: p_data => x_msg_data);
15354: if( x_msg_count > 1 ) then
15355: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
15356: end if;
15357:
15358: l_error_code := x_msg_data;
15359: l_error_exp := x_msg_data;
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:
15382: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
15383: p_count => x_msg_count,
15384: p_data => x_msg_data);
15378: END IF;
15379:
15380: x_return_status := fnd_api.g_ret_sts_unexp_error;
15381:
15382: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
15383: p_count => x_msg_count,
15384: p_data => x_msg_data);
15385: if( x_msg_count > 1 ) then
15386: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
15382: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
15383: p_count => x_msg_count,
15384: p_data => x_msg_data);
15385: if( x_msg_count > 1 ) then
15386: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
15387: end if;
15388:
15389: l_error_code := x_msg_data;
15390: l_error_exp := x_msg_data;