[Home] [Help]
275: , x_msg_data OUT NOCOPY VARCHAR2);
276:
277: PROCEDURE loaderrmsg(mesg1 IN VARCHAR2, mesg2 IN VARCHAR2) IS
278: BEGIN
279: fnd_message.set_name('INV', mesg1);
280: l_error_code := fnd_message.get;
281:
282: fnd_message.set_name('INV', mesg2);
283: l_error_exp := fnd_message.get;
276:
277: PROCEDURE loaderrmsg(mesg1 IN VARCHAR2, mesg2 IN VARCHAR2) IS
278: BEGIN
279: fnd_message.set_name('INV', mesg1);
280: l_error_code := fnd_message.get;
281:
282: fnd_message.set_name('INV', mesg2);
283: l_error_exp := fnd_message.get;
284: END;
278: BEGIN
279: fnd_message.set_name('INV', mesg1);
280: l_error_code := fnd_message.get;
281:
282: fnd_message.set_name('INV', mesg2);
283: l_error_exp := fnd_message.get;
284: END;
285:
286:
279: fnd_message.set_name('INV', mesg1);
280: l_error_code := fnd_message.get;
281:
282: fnd_message.set_name('INV', mesg2);
283: l_error_exp := fnd_message.get;
284: END;
285:
286:
287:
988: END IF;
989: x_acctid := l_acctid;
990: RETURN TRUE;
991: else
992: l_error_exp := substr(FND_MESSAGE.get,1,240);
993: IF (l_debug = 1) THEN
994: inv_log_util.trace('Distribution acct id error '|| l_error_exp, 'INV_TXN_MANAGER_GRP','1');
995: END IF;
996: RETURN FALSE;
998: --x_acctid := fnd_flex_ext.concatenate_segments(nsegs,segarray, str.segment_separator);
999:
1000: EXCEPTION
1001: WHEN NO_DATA_FOUND THEN
1002: FND_MESSAGE.set_name('INV','INV-Database corrupt');
1003: FND_MESSAGE.set_token('ROUTINE','getacctid');
1004: RETURN FALSE;
1005: WHEN OTHERS THEN
1006: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
999:
1000: EXCEPTION
1001: WHEN NO_DATA_FOUND THEN
1002: FND_MESSAGE.set_name('INV','INV-Database corrupt');
1003: FND_MESSAGE.set_token('ROUTINE','getacctid');
1004: RETURN FALSE;
1005: WHEN OTHERS THEN
1006: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
1007: IF (l_debug = 1) THEN
1264: inv_log_util.trace('Transaction Source ID : ' || x_trxsrc, 'INV_TXN_MANAGER_GRP','1');
1265: END IF;
1266: RETURN TRUE;
1267: else
1268: l_error_exp := substr(FND_MESSAGE.get,1,240);
1269: IF (l_debug = 1) THEN
1270: inv_log_util.trace('Transaction Source ID error '|| l_error_exp, 'INV_TXN_MANAGER_GRP','1'
1271: );
1272: END IF;
1380: l_trxdate :=c_mti_row.transaction_date; --Bug#5176266.
1381:
1382: IF (l_itemid IS NULL) THEN
1383: IF (NOT getitemid(l_itemid, c_mti_row.organization_id, c_mti_row.rowid)) THEN
1384: l_error_exp := FND_MESSAGE.get;
1385:
1386: FND_MESSAGE.set_name('INV', 'INV_INT_ITMSEGCODE');
1387: l_error_code := FND_MESSAGE.get;
1388:
1382: IF (l_itemid IS NULL) THEN
1383: IF (NOT getitemid(l_itemid, c_mti_row.organization_id, c_mti_row.rowid)) THEN
1384: l_error_exp := FND_MESSAGE.get;
1385:
1386: FND_MESSAGE.set_name('INV', 'INV_INT_ITMSEGCODE');
1387: l_error_code := FND_MESSAGE.get;
1388:
1389: errupdate(c_mti_row.rowid,null);
1390: END IF;
1383: IF (NOT getitemid(l_itemid, c_mti_row.organization_id, c_mti_row.rowid)) THEN
1384: l_error_exp := FND_MESSAGE.get;
1385:
1386: FND_MESSAGE.set_name('INV', 'INV_INT_ITMSEGCODE');
1387: l_error_code := FND_MESSAGE.get;
1388:
1389: errupdate(c_mti_row.rowid,null);
1390: END IF;
1391: END IF;
1396: l_srctype = INV_Globals.G_SourceType_AccountAlias OR
1397: l_srctype = INV_Globals.G_SourceType_IntOrder)
1398: AND (l_trxsrc is NULL) ) THEN
1399: IF ( NOT getsrcid(l_trxsrc, l_srctype, c_mti_row.organization_id, c_mti_row.rowid)) THEN
1400: l_error_exp := FND_MESSAGE.get;
1401:
1402: FND_MESSAGE.set_name('INV', 'INV_INT_SRCSEGCODE');
1403: l_error_code := FND_MESSAGE.get;
1404:
1398: AND (l_trxsrc is NULL) ) THEN
1399: IF ( NOT getsrcid(l_trxsrc, l_srctype, c_mti_row.organization_id, c_mti_row.rowid)) THEN
1400: l_error_exp := FND_MESSAGE.get;
1401:
1402: FND_MESSAGE.set_name('INV', 'INV_INT_SRCSEGCODE');
1403: l_error_code := FND_MESSAGE.get;
1404:
1405: errupdate(c_mti_row.rowid,null);
1406: END IF;
1399: IF ( NOT getsrcid(l_trxsrc, l_srctype, c_mti_row.organization_id, c_mti_row.rowid)) THEN
1400: l_error_exp := FND_MESSAGE.get;
1401:
1402: FND_MESSAGE.set_name('INV', 'INV_INT_SRCSEGCODE');
1403: l_error_code := FND_MESSAGE.get;
1404:
1405: errupdate(c_mti_row.rowid,null);
1406: END IF;
1407: END IF;
1419: END IF;
1420:
1421: ELSE
1422: IF (NOT getacctid(l_acctid, c_mti_row.organization_id, c_mti_row.rowid)) THEN
1423: --l_error_exp := FND_MESSAGE.get; --Bug#4247753. Error Explaination is
1424: --already set in getacctid()
1425: FND_MESSAGE.set_name('INV', 'INV_INT_ACTCODE');
1426: l_error_code := FND_MESSAGE.get;
1427:
1421: ELSE
1422: IF (NOT getacctid(l_acctid, c_mti_row.organization_id, c_mti_row.rowid)) THEN
1423: --l_error_exp := FND_MESSAGE.get; --Bug#4247753. Error Explaination is
1424: --already set in getacctid()
1425: FND_MESSAGE.set_name('INV', 'INV_INT_ACTCODE');
1426: l_error_code := FND_MESSAGE.get;
1427:
1428: errupdate(c_mti_row.rowid,null);
1429: END IF;
1422: IF (NOT getacctid(l_acctid, c_mti_row.organization_id, c_mti_row.rowid)) THEN
1423: --l_error_exp := FND_MESSAGE.get; --Bug#4247753. Error Explaination is
1424: --already set in getacctid()
1425: FND_MESSAGE.set_name('INV', 'INV_INT_ACTCODE');
1426: l_error_code := FND_MESSAGE.get;
1427:
1428: errupdate(c_mti_row.rowid,null);
1429: END IF;
1430: END IF;
1432:
1433: --Bug#4247753 calling the functon, validate_acctid() for validating the Account combination ID
1434: IF ( l_acctid IS NOT NULL AND (NOT l_acctid_validated)) THEN
1435: IF ( NOT validate_acctid(l_acctid, c_mti_row.organization_id, l_trxdate)) THEN
1436: FND_MESSAGE.set_name('INV', 'INV_INT_ACTCODE');
1437: l_error_code := FND_MESSAGE.get;
1438: errupdate(c_mti_row.rowid,null);
1439: END IF;
1440: END IF;
1433: --Bug#4247753 calling the functon, validate_acctid() for validating the Account combination ID
1434: IF ( l_acctid IS NOT NULL AND (NOT l_acctid_validated)) THEN
1435: IF ( NOT validate_acctid(l_acctid, c_mti_row.organization_id, l_trxdate)) THEN
1436: FND_MESSAGE.set_name('INV', 'INV_INT_ACTCODE');
1437: l_error_code := FND_MESSAGE.get;
1438: errupdate(c_mti_row.rowid,null);
1439: END IF;
1440: END IF;
1441:
1446: l_srctype = INV_Globals.G_SourceType_AccountAlias OR
1447: l_srctype = INV_Globals.G_SourceType_IntOrder)
1448: AND (l_trxsrc is NULL) ) THEN
1449: IF ( NOT getsrcid(l_trxsrc, l_srctype, c_mti_row.organization_id, c_mti_row.rowid)) THEN
1450: l_error_exp := FND_MESSAGE.get;
1451:
1452: FND_MESSAGE.set_name('INV', 'INV_INT_SRCSEGCODE');
1453: l_error_code := FND_MESSAGE.get;
1454:
1448: AND (l_trxsrc is NULL) ) THEN
1449: IF ( NOT getsrcid(l_trxsrc, l_srctype, c_mti_row.organization_id, c_mti_row.rowid)) THEN
1450: l_error_exp := FND_MESSAGE.get;
1451:
1452: FND_MESSAGE.set_name('INV', 'INV_INT_SRCSEGCODE');
1453: l_error_code := FND_MESSAGE.get;
1454:
1455: errupdate(c_mti_row.rowid,null);
1456: END IF;
1449: IF ( NOT getsrcid(l_trxsrc, l_srctype, c_mti_row.organization_id, c_mti_row.rowid)) THEN
1450: l_error_exp := FND_MESSAGE.get;
1451:
1452: FND_MESSAGE.set_name('INV', 'INV_INT_SRCSEGCODE');
1453: l_error_code := FND_MESSAGE.get;
1454:
1455: errupdate(c_mti_row.rowid,null);
1456: END IF;
1457:
1741: , l_transaction_source_type_id;
1742: IF (get_transaction_details%NOTFOUND)
1743: THEN
1744: CLOSE get_transaction_details;
1745: FND_MESSAGE.SET_NAME('INV','TRX_TYPE_NOT_FOUND');
1746: FND_MESSAGE.SET_TOKEN('TRANSACTION_TYPE_ID', p_transaction_type_id);
1747: FND_MSG_PUB.ADD;
1748: RAISE FND_API.G_EXC_ERROR;
1749: END IF;
1742: IF (get_transaction_details%NOTFOUND)
1743: THEN
1744: CLOSE get_transaction_details;
1745: FND_MESSAGE.SET_NAME('INV','TRX_TYPE_NOT_FOUND');
1746: FND_MESSAGE.SET_TOKEN('TRANSACTION_TYPE_ID', p_transaction_type_id);
1747: FND_MSG_PUB.ADD;
1748: RAISE FND_API.G_EXC_ERROR;
1749: END IF;
1750: CLOSE get_transaction_details;
2721:
2722: IF (l_debug = 1) THEN
2723: inv_log_util.trace('Validating subs ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2724: END IF;
2725: FND_MESSAGE.set_name('INV', 'INV_ERR_DETVAL');
2726: FND_MESSAGE.set_token('token', numhold);
2727:
2728: ELSE
2729:
2722: IF (l_debug = 1) THEN
2723: inv_log_util.trace('Validating subs ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2724: END IF;
2725: FND_MESSAGE.set_name('INV', 'INV_ERR_DETVAL');
2726: FND_MESSAGE.set_token('token', numhold);
2727:
2728: ELSE
2729:
2730: loaderrmsg('INV_INT_SUBCODE','INV_INT_SUBTYPEXP');
2761: l_count := SQL%ROWCOUNT;
2762: IF (l_debug = 1) THEN
2763: inv_log_util.trace('Validating subs else ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2764: END IF;
2765: FND_MESSAGE.set_name('INV', 'INV_ERR_DETVAL');
2766: FND_MESSAGE.set_token('token', numhold);
2767:
2768: END IF;
2769:
2762: IF (l_debug = 1) THEN
2763: inv_log_util.trace('Validating subs else ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2764: END IF;
2765: FND_MESSAGE.set_name('INV', 'INV_ERR_DETVAL');
2766: FND_MESSAGE.set_token('token', numhold);
2767:
2768: END IF;
2769:
2770:
3327: /*------------------------------------------------------+
3328: | Validating Overcompletion transaction quantity
3329: +------------------------------------------------------*/
3330:
3331: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3332: FND_MESSAGE.set_token('ENTITY1','overcompletion_txn_qty');
3333: FND_MESSAGE.set_token('ENTITY2','zero');
3334:
3335: l_error_exp := FND_MESSAGE.get;
3328: | Validating Overcompletion transaction quantity
3329: +------------------------------------------------------*/
3330:
3331: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3332: FND_MESSAGE.set_token('ENTITY1','overcompletion_txn_qty');
3333: FND_MESSAGE.set_token('ENTITY2','zero');
3334:
3335: l_error_exp := FND_MESSAGE.get;
3336:
3329: +------------------------------------------------------*/
3330:
3331: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3332: FND_MESSAGE.set_token('ENTITY1','overcompletion_txn_qty');
3333: FND_MESSAGE.set_token('ENTITY2','zero');
3334:
3335: l_error_exp := FND_MESSAGE.get;
3336:
3337: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3331: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3332: FND_MESSAGE.set_token('ENTITY1','overcompletion_txn_qty');
3333: FND_MESSAGE.set_token('ENTITY2','zero');
3334:
3335: l_error_exp := FND_MESSAGE.get;
3336:
3337: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3338: l_error_code := FND_MESSAGE.get;
3339:
3333: FND_MESSAGE.set_token('ENTITY2','zero');
3334:
3335: l_error_exp := FND_MESSAGE.get;
3336:
3337: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3338: l_error_code := FND_MESSAGE.get;
3339:
3340:
3341: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
3334:
3335: l_error_exp := FND_MESSAGE.get;
3336:
3337: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3338: l_error_code := FND_MESSAGE.get;
3339:
3340:
3341: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
3342: SET LAST_UPDATE_DATE = SYSDATE,
3352: AND NVL(OVERCOMPLETION_TRANSACTION_QTY,1) <= 0;
3353:
3354: l_count := SQL%ROWCOUNT;
3355:
3356: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3357: FND_MESSAGE.set_token('ENTITY1','transaction quantity-cap');
3358: FND_MESSAGE.set_token('ENTITY2','overcompletion_txn_qty');
3359:
3360: l_error_exp := FND_MESSAGE.get;
3353:
3354: l_count := SQL%ROWCOUNT;
3355:
3356: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3357: FND_MESSAGE.set_token('ENTITY1','transaction quantity-cap');
3358: FND_MESSAGE.set_token('ENTITY2','overcompletion_txn_qty');
3359:
3360: l_error_exp := FND_MESSAGE.get;
3361:
3354: l_count := SQL%ROWCOUNT;
3355:
3356: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3357: FND_MESSAGE.set_token('ENTITY1','transaction quantity-cap');
3358: FND_MESSAGE.set_token('ENTITY2','overcompletion_txn_qty');
3359:
3360: l_error_exp := FND_MESSAGE.get;
3361:
3362: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3356: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3357: FND_MESSAGE.set_token('ENTITY1','transaction quantity-cap');
3358: FND_MESSAGE.set_token('ENTITY2','overcompletion_txn_qty');
3359:
3360: l_error_exp := FND_MESSAGE.get;
3361:
3362: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3363: l_error_code := FND_MESSAGE.get;
3364:
3358: FND_MESSAGE.set_token('ENTITY2','overcompletion_txn_qty');
3359:
3360: l_error_exp := FND_MESSAGE.get;
3361:
3362: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3363: l_error_code := FND_MESSAGE.get;
3364:
3365:
3366:
3359:
3360: l_error_exp := FND_MESSAGE.get;
3361:
3362: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3363: l_error_code := FND_MESSAGE.get;
3364:
3365:
3366:
3367: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
4238: END IF;--J-dev
4239:
4240: x_return_status := FND_API.G_RET_STS_SUCCESS;
4241:
4242: FND_MESSAGE.clear;
4243:
4244:
4245: EXCEPTION
4246: WHEN OTHERS THEN
4248: inv_log_util.trace('Error in validate_group : ' || l_error_exp, 'INV_TXN_MANAGER_GRP','1');
4249: inv_log_util.trace('Error:'||substr(sqlerrm,1,250),'INV_TXN_MANAGER_GRP',1);
4250: END IF;
4251: x_return_status := FND_API.G_RET_STS_ERROR;
4252: FND_MESSAGE.clear;
4253:
4254: END validate_group;
4255:
4256:
4466: return(FALSE);
4467: END IF;
4468:
4469: IF p_lotuniq = 1 THEN
4470: FND_MESSAGE.set_name('INV','INV_INT_LOTUNIQCODE');
4471: l_error_code := FND_MESSAGE.get;
4472:
4473: UPDATE MTL_TRANSACTION_LOTS_INTERFACE MTLI
4474: SET LAST_UPDATE_DATE = SYSDATE,
4467: END IF;
4468:
4469: IF p_lotuniq = 1 THEN
4470: FND_MESSAGE.set_name('INV','INV_INT_LOTUNIQCODE');
4471: l_error_code := FND_MESSAGE.get;
4472:
4473: UPDATE MTL_TRANSACTION_LOTS_INTERFACE MTLI
4474: SET LAST_UPDATE_DATE = SYSDATE,
4475: LAST_UPDATED_BY = l_userid,
4486: WHERE MLN.LOT_NUMBER = MTLI.LOT_NUMBER
4487: AND MLN.INVENTORY_ITEM_ID <> p_itemid);
4488:
4489: IF SQL%FOUND THEN
4490: FND_MESSAGE.set_name('INV','INV_INT_LOTUNIQEXP');
4491: l_error_exp := FND_MESSAGE.get;
4492:
4493: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
4494: SET LAST_UPDATE_DATE = SYSDATE,
4487: AND MLN.INVENTORY_ITEM_ID <> p_itemid);
4488:
4489: IF SQL%FOUND THEN
4490: FND_MESSAGE.set_name('INV','INV_INT_LOTUNIQEXP');
4491: l_error_exp := FND_MESSAGE.get;
4492:
4493: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
4494: SET LAST_UPDATE_DATE = SYSDATE,
4495: LAST_UPDATED_BY = l_userid,
4601: inv_log_util.trace('validate_quantities IN (lotcheck) - FAIL ' || l_msg_data, 'INV_TXN_MANAGER_GRP', 9);
4602: END IF;
4603: l_error_exp := '';
4604: l_error_code := '';
4605: FND_MESSAGE.clear;
4606: return(FALSE);
4607: END IF;
4608:
4609: IF (l_debug = 1) THEN
4682: inv_log_util.trace('VALIDATE_ADDITIONAL_ATTR IN (lotcheck) - FAIL ' || l_msg_data, 'INV_TXN_MANAGER_GRP', 9);
4683: END IF;
4684: l_error_exp := '';
4685: l_error_code := '';
4686: FND_MESSAGE.clear;
4687: return(FALSE);
4688: END IF;
4689:
4690: -- INVCONV end fabdi
4773:
4774: /*IF (NOT UomConvert(l_itemid,0,l_trxuom, '',
4775: l_priuom, '',l_lotqty,
4776: l_lotpriqty, 0)) THEN */
4777: l_error_exp := FND_MESSAGE.get;
4778:
4779: FND_MESSAGE.set_name('INV','INV_INT_UOMCONVCODE');
4780: l_error_code := FND_MESSAGE.get;
4781:
4775: l_priuom, '',l_lotqty,
4776: l_lotpriqty, 0)) THEN */
4777: l_error_exp := FND_MESSAGE.get;
4778:
4779: FND_MESSAGE.set_name('INV','INV_INT_UOMCONVCODE');
4780: l_error_code := FND_MESSAGE.get;
4781:
4782: UPDATE MTL_TRANSACTION_LOTS_INTERFACE MTLI
4783: SET LAST_UPDATE_DATE = SYSDATE,
4776: l_lotpriqty, 0)) THEN */
4777: l_error_exp := FND_MESSAGE.get;
4778:
4779: FND_MESSAGE.set_name('INV','INV_INT_UOMCONVCODE');
4780: l_error_code := FND_MESSAGE.get;
4781:
4782: UPDATE MTL_TRANSACTION_LOTS_INTERFACE MTLI
4783: SET LAST_UPDATE_DATE = SYSDATE,
4784: LAST_UPDATED_BY = l_userid,
4824: END IF;
4825:
4826: IF ((p_shlfcode = 4) AND (l_lotexpdate IS NULL)) THEN
4827:
4828: FND_MESSAGE.set_name('INV','INV_LOT_EXPREQD');
4829: l_error_exp := FND_MESSAGE.get;
4830: FND_MESSAGE.set_name('INV','INV_LOT_EXPREQD');
4831: l_error_code := FND_MESSAGE.get;
4832:
4825:
4826: IF ((p_shlfcode = 4) AND (l_lotexpdate IS NULL)) THEN
4827:
4828: FND_MESSAGE.set_name('INV','INV_LOT_EXPREQD');
4829: l_error_exp := FND_MESSAGE.get;
4830: FND_MESSAGE.set_name('INV','INV_LOT_EXPREQD');
4831: l_error_code := FND_MESSAGE.get;
4832:
4833: UPDATE MTL_TRANSACTION_LOTS_INTERFACE MTLI
4826: IF ((p_shlfcode = 4) AND (l_lotexpdate IS NULL)) THEN
4827:
4828: FND_MESSAGE.set_name('INV','INV_LOT_EXPREQD');
4829: l_error_exp := FND_MESSAGE.get;
4830: FND_MESSAGE.set_name('INV','INV_LOT_EXPREQD');
4831: l_error_code := FND_MESSAGE.get;
4832:
4833: UPDATE MTL_TRANSACTION_LOTS_INTERFACE MTLI
4834: SET LAST_UPDATE_DATE = SYSDATE,
4827:
4828: FND_MESSAGE.set_name('INV','INV_LOT_EXPREQD');
4829: l_error_exp := FND_MESSAGE.get;
4830: FND_MESSAGE.set_name('INV','INV_LOT_EXPREQD');
4831: l_error_code := FND_MESSAGE.get;
4832:
4833: UPDATE MTL_TRANSACTION_LOTS_INTERFACE MTLI
4834: SET LAST_UPDATE_DATE = SYSDATE,
4835: LAST_UPDATED_BY = l_userid,
4943: end if;
4944:
4945: IF (l_default_status_id is not null) THEN
4946:
4947: FND_MESSAGE.set_name('INV', 'INV_STATUS_COMINGLING');
4948: l_error_code := 'INV_STATUS_COMINGLING';
4949: l_error_exp := FND_MESSAGE.get;
4950:
4951: UPDATE MTL_TRANSACTION_LOTS_INTERFACE MTLI
4945: IF (l_default_status_id is not null) THEN
4946:
4947: FND_MESSAGE.set_name('INV', 'INV_STATUS_COMINGLING');
4948: l_error_code := 'INV_STATUS_COMINGLING';
4949: l_error_exp := FND_MESSAGE.get;
4950:
4951: UPDATE MTL_TRANSACTION_LOTS_INTERFACE MTLI
4952: SET LAST_UPDATE_DATE = SYSDATE,
4953: LAST_UPDATED_BY = l_userid,
4974: and nvl(moqd.status_id, -9999) <> nvl(mtli.status_id, -9999)
4975: );
4976:
4977: IF SQL%FOUND THEN
4978: FND_MESSAGE.set_name('INV','INV_STATUS_COMINGLING');
4979: l_error_exp := FND_MESSAGE.get;
4980:
4981: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
4982: SET LAST_UPDATE_DATE = SYSDATE,
4975: );
4976:
4977: IF SQL%FOUND THEN
4978: FND_MESSAGE.set_name('INV','INV_STATUS_COMINGLING');
4979: l_error_exp := FND_MESSAGE.get;
4980:
4981: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
4982: SET LAST_UPDATE_DATE = SYSDATE,
4983: LAST_UPDATED_BY = l_loginid,
5013: END IF ;
5014:
5015: EXCEPTION
5016: WHEN OTHERS THEN
5017: FND_MESSAGE.set_name('INV','INV_INT_UOMCONVCODE');
5018:
5019: --WHENEVER SQL ERROR CONTINUE;
5020: UPDATE MTL_TRANSACTIONS_INTERFACE
5021: SET LAST_UPDATE_DATE = SYSDATE,
5567: FROM MTL_PARAMETERS
5568: WHERE ORGANIZATION_ID = p_ltv_orgid ;
5569: EXCEPTION
5570: WHEN NO_DATA_FOUND THEN
5571: FND_MESSAGE.set_name('INV','INV_INT_ORGEXP');
5572: return(FALSE);
5573: END;
5574:
5575: IF l_ltv_project_ref_enabled = 0 THEN
5582: IF p_ltv_srctype = 5 THEN
5583: IF p_ltv_scheduled_flag = 1 THEN
5584:
5585: IF p_ltv_trx_src_id IS NULL THEN
5586: FND_MESSAGE.set_name('INV','INV_INT_SRCWIPEXP');
5587: return FALSE;
5588: END IF;
5589:
5590: IF p_ltv_flow_schedule = 0 THEN
5593: l_ltv_project_id,
5594: l_ltv_task_id;
5595:
5596: IF SQL%NOTFOUND THEN
5597: FND_MESSAGE.set_name('INV','INV_INT_SRCWIPEXP');
5598: CLOSE LTV1;
5599: return(FALSE);
5600: END IF;
5601: CLOSE LTV1;
5606: l_ltv_project_id,
5607: l_ltv_task_id;
5608:
5609: IF SQL%NOTFOUND THEN
5610: FND_MESSAGE.set_name('INV','INV_INT_SRCWIPEXP');
5611: CLOSE LTV2;
5612: return(FALSE);
5613: END IF;
5614: CLOSE LTV2;
5643: --Bug #6449667, Modified the code below so that relavant error message are displayed from project validation API.
5644: IF (l_debug=1) THEN
5645: inv_log_util.trace('Error in validate_loc_for_project : ' || l_ltv_error_mesg, 'INV_TXN_MANAGER_GRP','9');
5646: END IF;
5647: --FND_MESSAGE.set_name('INV','INV_INT_SRCWIPEXP');
5648: FND_MESSAGE.set_name('INV', 'INV_FND_GENERIC_MSG');
5649: FND_MESSAGE.set_token('MSG', l_ltv_error_mesg);
5650: return(FALSE);
5651: ELSE
5644: IF (l_debug=1) THEN
5645: inv_log_util.trace('Error in validate_loc_for_project : ' || l_ltv_error_mesg, 'INV_TXN_MANAGER_GRP','9');
5646: END IF;
5647: --FND_MESSAGE.set_name('INV','INV_INT_SRCWIPEXP');
5648: FND_MESSAGE.set_name('INV', 'INV_FND_GENERIC_MSG');
5649: FND_MESSAGE.set_token('MSG', l_ltv_error_mesg);
5650: return(FALSE);
5651: ELSE
5652: FND_MESSAGE.clear;
5645: inv_log_util.trace('Error in validate_loc_for_project : ' || l_ltv_error_mesg, 'INV_TXN_MANAGER_GRP','9');
5646: END IF;
5647: --FND_MESSAGE.set_name('INV','INV_INT_SRCWIPEXP');
5648: FND_MESSAGE.set_name('INV', 'INV_FND_GENERIC_MSG');
5649: FND_MESSAGE.set_token('MSG', l_ltv_error_mesg);
5650: return(FALSE);
5651: ELSE
5652: FND_MESSAGE.clear;
5653: return(TRUE);
5648: FND_MESSAGE.set_name('INV', 'INV_FND_GENERIC_MSG');
5649: FND_MESSAGE.set_token('MSG', l_ltv_error_mesg);
5650: return(FALSE);
5651: ELSE
5652: FND_MESSAGE.clear;
5653: return(TRUE);
5654: END IF;
5655:
5656:
5694: END IF;
5695:
5696: IF (l_unit_no_ok = 0) THEN
5697:
5698: FND_MESSAGE.set_name('INV','INV_INT_UNITNUMBER');
5699: FND_MESSAGE.set_token('ROUTINE','validate_unit_number');
5700: return FALSE;
5701: ELSE
5702: FND_MESSAGE.clear;
5695:
5696: IF (l_unit_no_ok = 0) THEN
5697:
5698: FND_MESSAGE.set_name('INV','INV_INT_UNITNUMBER');
5699: FND_MESSAGE.set_token('ROUTINE','validate_unit_number');
5700: return FALSE;
5701: ELSE
5702: FND_MESSAGE.clear;
5703: return TRUE;
5698: FND_MESSAGE.set_name('INV','INV_INT_UNITNUMBER');
5699: FND_MESSAGE.set_token('ROUTINE','validate_unit_number');
5700: return FALSE;
5701: ELSE
5702: FND_MESSAGE.clear;
5703: return TRUE;
5704: END IF;
5705:
5706: EXCEPTION
6996: l_srctype = INV_Globals.G_SourceType_AccountAlias OR
6997: l_srctype = INV_Globals.G_SourceType_IntOrder)
6998: AND (l_trxsrc is NULL) ) THEN
6999: IF ( NOT getsrcid(l_trxsrc, l_srctype, l_orgid, l_rowid)) THEN
7000: FND_MESSAGE.set_name('INV', 'INV_INT_SRCSEGCODE');
7001: l_error_code := FND_MESSAGE.get;
7002:
7003: errupdate(l_rowid,null);
7004: --exit;
6997: l_srctype = INV_Globals.G_SourceType_IntOrder)
6998: AND (l_trxsrc is NULL) ) THEN
6999: IF ( NOT getsrcid(l_trxsrc, l_srctype, l_orgid, l_rowid)) THEN
7000: FND_MESSAGE.set_name('INV', 'INV_INT_SRCSEGCODE');
7001: l_error_code := FND_MESSAGE.get;
7002:
7003: errupdate(l_rowid,null);
7004: --exit;
7005: RAISE fnd_api.g_exc_error;
7007: END IF;
7008:
7009: IF l_itemid IS NULL THEN
7010: IF (NOT getitemid(l_itemid, l_orgid, l_rowid)) THEN
7011: FND_MESSAGE.set_name('INV', 'INV_INT_ITMSEGCODE');
7012: l_error_code := FND_MESSAGE.get;
7013:
7014: errupdate(l_rowid,null);
7015: --exit;
7008:
7009: IF l_itemid IS NULL THEN
7010: IF (NOT getitemid(l_itemid, l_orgid, l_rowid)) THEN
7011: FND_MESSAGE.set_name('INV', 'INV_INT_ITMSEGCODE');
7012: l_error_code := FND_MESSAGE.get;
7013:
7014: errupdate(l_rowid,null);
7015: --exit;
7016: RAISE fnd_api.g_exc_error;
7110: IF (l_resloc = 1) THEN
7111: l_locctrl := 2;
7112: END IF;
7113: IF ( NOT getlocid(l_locid, l_orgid, l_subinv, l_rowid, l_locctrl)) THEN
7114: FND_MESSAGE.set_name('INV', 'INV_INT_LOCSEGCODE');
7115: l_error_exp := FND_MESSAGE.get; --bug6679112, error_code=>error_exp
7116: errupdate(l_rowid,null);
7117: --exit;
7118: RAISE fnd_api.g_exc_error;
7111: l_locctrl := 2;
7112: END IF;
7113: IF ( NOT getlocid(l_locid, l_orgid, l_subinv, l_rowid, l_locctrl)) THEN
7114: FND_MESSAGE.set_name('INV', 'INV_INT_LOCSEGCODE');
7115: l_error_exp := FND_MESSAGE.get; --bug6679112, error_code=>error_exp
7116: errupdate(l_rowid,null);
7117: --exit;
7118: RAISE fnd_api.g_exc_error;
7119: END IF;
7190: , arg_task_id => v_task_id
7191: );
7192:
7193: IF (v_result = FALSE) THEN
7194: l_error_exp := FND_MESSAGE.get;
7195: FND_MESSAGE.set_name('INV', 'INV_INT_XLOCCODE');
7196: l_error_code := FND_MESSAGE.get;
7197: END IF;
7198:
7191: );
7192:
7193: IF (v_result = FALSE) THEN
7194: l_error_exp := FND_MESSAGE.get;
7195: FND_MESSAGE.set_name('INV', 'INV_INT_XLOCCODE');
7196: l_error_code := FND_MESSAGE.get;
7197: END IF;
7198:
7199: END IF;
7192:
7193: IF (v_result = FALSE) THEN
7194: l_error_exp := FND_MESSAGE.get;
7195: FND_MESSAGE.set_name('INV', 'INV_INT_XLOCCODE');
7196: l_error_code := FND_MESSAGE.get;
7197: END IF;
7198:
7199: END IF;
7200:
7233: IF ( l_loci <> -1 AND (l_locctrl <>1 AND l_acttype <>24) ) THEN
7234: IF ( NOT validate_loc_for_project(l_locid, l_orgid, l_srctype,
7235: l_acttype, l_trxsrc, tev_flow_schedule, tev_scheduled_flag) ) THEN
7236:
7237: l_error_exp := FND_MESSAGE.get;
7238:
7239: FND_MESSAGE.set_name('INV', 'INV_INT_LOCSEGCODE');
7240: l_error_code := FND_MESSAGE.get;
7241:
7235: l_acttype, l_trxsrc, tev_flow_schedule, tev_scheduled_flag) ) THEN
7236:
7237: l_error_exp := FND_MESSAGE.get;
7238:
7239: FND_MESSAGE.set_name('INV', 'INV_INT_LOCSEGCODE');
7240: l_error_code := FND_MESSAGE.get;
7241:
7242: errupdate(l_rowid,null);
7243: l_count := l_count + 1;
7236:
7237: l_error_exp := FND_MESSAGE.get;
7238:
7239: FND_MESSAGE.set_name('INV', 'INV_INT_LOCSEGCODE');
7240: l_error_code := FND_MESSAGE.get;
7241:
7242: errupdate(l_rowid,null);
7243: l_count := l_count + 1;
7244: --exit;
7356: l_xorgid,
7357: l_req_line_id);
7358:
7359: IF (x_return_status <> 'S') THEN
7360: l_error_exp := FND_MESSAGE.get;
7361: FND_MESSAGE.set_name('INV', 'INV_INT_XLOCCODE');
7362: l_error_code := FND_MESSAGE.get;
7363:
7364: errupdate(l_rowid,null);
7357: l_req_line_id);
7358:
7359: IF (x_return_status <> 'S') THEN
7360: l_error_exp := FND_MESSAGE.get;
7361: FND_MESSAGE.set_name('INV', 'INV_INT_XLOCCODE');
7362: l_error_code := FND_MESSAGE.get;
7363:
7364: errupdate(l_rowid,null);
7365: l_count := l_count + 1;
7358:
7359: IF (x_return_status <> 'S') THEN
7360: l_error_exp := FND_MESSAGE.get;
7361: FND_MESSAGE.set_name('INV', 'INV_INT_XLOCCODE');
7362: l_error_code := FND_MESSAGE.get;
7363:
7364: errupdate(l_rowid,null);
7365: l_count := l_count + 1;
7366: --exit;
7377: END IF;
7378:
7379: IF (NOT getxlocid(l_xlocid, l_xorgid, l_xsubinv, l_rowid,
7380: l_xlocctrl)) THEN
7381: FND_MESSAGE.set_name('INV', 'INV_INT_XLOCCODE');
7382: l_error_code := FND_MESSAGE.get;
7383: --exit;
7384: RAISE fnd_api.g_exc_error;
7385: END IF;
7378:
7379: IF (NOT getxlocid(l_xlocid, l_xorgid, l_xsubinv, l_rowid,
7380: l_xlocctrl)) THEN
7381: FND_MESSAGE.set_name('INV', 'INV_INT_XLOCCODE');
7382: l_error_code := FND_MESSAGE.get;
7383: --exit;
7384: RAISE fnd_api.g_exc_error;
7385: END IF;
7386:
7449: , arg_project_id => v_project_id
7450: , arg_task_id => v_task_id
7451: );
7452: IF (v_result = FALSE) THEN
7453: l_error_exp := FND_MESSAGE.get;
7454: FND_MESSAGE.set_name('INV', 'INV_INT_XLOCCODE');
7455: l_error_code := FND_MESSAGE.get;
7456: END IF;
7457:
7450: , arg_task_id => v_task_id
7451: );
7452: IF (v_result = FALSE) THEN
7453: l_error_exp := FND_MESSAGE.get;
7454: FND_MESSAGE.set_name('INV', 'INV_INT_XLOCCODE');
7455: l_error_code := FND_MESSAGE.get;
7456: END IF;
7457:
7458: END IF;
7451: );
7452: IF (v_result = FALSE) THEN
7453: l_error_exp := FND_MESSAGE.get;
7454: FND_MESSAGE.set_name('INV', 'INV_INT_XLOCCODE');
7455: l_error_code := FND_MESSAGE.get;
7456: END IF;
7457:
7458: END IF;
7459: -- Bug 5011566 re-setting org as org context
7493:
7494: IF ( NOT validate_loc_for_project(l_xlocid, l_xorgid, l_srctype,
7495: l_acttype, l_trxsrc, tev_flow_schedule, tev_scheduled_flag) ) THEN
7496:
7497: l_error_exp := FND_MESSAGE.get;
7498:
7499: FND_MESSAGE.set_name('INV', 'INV_INT_LOCSEGCODE');
7500: l_error_code := FND_MESSAGE.get;
7501:
7495: l_acttype, l_trxsrc, tev_flow_schedule, tev_scheduled_flag) ) THEN
7496:
7497: l_error_exp := FND_MESSAGE.get;
7498:
7499: FND_MESSAGE.set_name('INV', 'INV_INT_LOCSEGCODE');
7500: l_error_code := FND_MESSAGE.get;
7501:
7502: errupdate(l_rowid,null);
7503: l_count := l_count + 1;
7496:
7497: l_error_exp := FND_MESSAGE.get;
7498:
7499: FND_MESSAGE.set_name('INV', 'INV_INT_LOCSEGCODE');
7500: l_error_code := FND_MESSAGE.get;
7501:
7502: errupdate(l_rowid,null);
7503: l_count := l_count + 1;
7504: --exit;
7535: WHEN OTHERS THEN
7536: /*IF (NOT UomConvert(l_itemid,0,l_trxuom, '',
7537: l_priuom, '', l_trxqty,
7538: l_priqty, 0)) THEN */
7539: l_error_exp := FND_MESSAGE.get;
7540:
7541: FND_MESSAGE.set_name('INV', 'INV_INT_UOMSEGCODE');
7542: l_error_code := FND_MESSAGE.get;
7543:
7537: l_priuom, '', l_trxqty,
7538: l_priqty, 0)) THEN */
7539: l_error_exp := FND_MESSAGE.get;
7540:
7541: FND_MESSAGE.set_name('INV', 'INV_INT_UOMSEGCODE');
7542: l_error_code := FND_MESSAGE.get;
7543:
7544: errupdate(l_rowid,null);
7545: l_count := l_count + 1;
7538: l_priqty, 0)) THEN */
7539: l_error_exp := FND_MESSAGE.get;
7540:
7541: FND_MESSAGE.set_name('INV', 'INV_INT_UOMSEGCODE');
7542: l_error_code := FND_MESSAGE.get;
7543:
7544: errupdate(l_rowid,null);
7545: l_count := l_count + 1;
7546: --exit;
7556: l_priqty,l_trxdate, l_scheduled_payback_date,l_error_code);
7557:
7558: IF(l_result = 1) THEN
7559:
7560: l_error_exp := FND_MESSAGE.get;
7561:
7562: errupdate(l_rowid,null);
7563: l_count := l_count + 1;
7564: --exit;
7582: l_prdid := get_open_period(l_orgid,l_trxdate,0);
7583:
7584:
7585: IF (l_prdid = -1 OR l_prdid = 0) THEN
7586: FND_MESSAGE.set_name('INV', 'INV_INT_PRDCODE');
7587: l_error_code := FND_MESSAGE.get;
7588: FND_MESSAGE.set_name('INV', 'INV_NO_OPEN_PERIOD');
7589: /*END IF;*/
7590:
7583:
7584:
7585: IF (l_prdid = -1 OR l_prdid = 0) THEN
7586: FND_MESSAGE.set_name('INV', 'INV_INT_PRDCODE');
7587: l_error_code := FND_MESSAGE.get;
7588: FND_MESSAGE.set_name('INV', 'INV_NO_OPEN_PERIOD');
7589: /*END IF;*/
7590:
7591: l_error_exp := FND_MESSAGE.get;
7584:
7585: IF (l_prdid = -1 OR l_prdid = 0) THEN
7586: FND_MESSAGE.set_name('INV', 'INV_INT_PRDCODE');
7587: l_error_code := FND_MESSAGE.get;
7588: FND_MESSAGE.set_name('INV', 'INV_NO_OPEN_PERIOD');
7589: /*END IF;*/
7590:
7591: l_error_exp := FND_MESSAGE.get;
7592:
7587: l_error_code := FND_MESSAGE.get;
7588: FND_MESSAGE.set_name('INV', 'INV_NO_OPEN_PERIOD');
7589: /*END IF;*/
7590:
7591: l_error_exp := FND_MESSAGE.get;
7592:
7593: errupdate(l_rowid,null);
7594: l_count := l_count + 1;
7595: --exit;
7637: IF (l_debug = 1) THEN
7638: inv_log_util.trace('l_validate_xfer_org is TRUE', 'INV_TXN_MANAGER_GRP', 9);
7639: END IF;
7640: IF ( get_open_period(l_xorgid,l_trxdate,0) IN (-1, 0)) THEN
7641: FND_MESSAGE.set_name('INV', 'INV_INT_PRDCODE');
7642: l_error_code := FND_MESSAGE.get;
7643: FND_MESSAGE.set_name('INV', 'INV_NO_OPEN_PERIOD_TOORG');
7644: l_error_exp := FND_MESSAGE.get;
7645: errupdate(l_rowid,null);
7638: inv_log_util.trace('l_validate_xfer_org is TRUE', 'INV_TXN_MANAGER_GRP', 9);
7639: END IF;
7640: IF ( get_open_period(l_xorgid,l_trxdate,0) IN (-1, 0)) THEN
7641: FND_MESSAGE.set_name('INV', 'INV_INT_PRDCODE');
7642: l_error_code := FND_MESSAGE.get;
7643: FND_MESSAGE.set_name('INV', 'INV_NO_OPEN_PERIOD_TOORG');
7644: l_error_exp := FND_MESSAGE.get;
7645: errupdate(l_rowid,null);
7646: l_count := l_count + 1;
7639: END IF;
7640: IF ( get_open_period(l_xorgid,l_trxdate,0) IN (-1, 0)) THEN
7641: FND_MESSAGE.set_name('INV', 'INV_INT_PRDCODE');
7642: l_error_code := FND_MESSAGE.get;
7643: FND_MESSAGE.set_name('INV', 'INV_NO_OPEN_PERIOD_TOORG');
7644: l_error_exp := FND_MESSAGE.get;
7645: errupdate(l_rowid,null);
7646: l_count := l_count + 1;
7647: RAISE fnd_api.g_exc_error;
7640: IF ( get_open_period(l_xorgid,l_trxdate,0) IN (-1, 0)) THEN
7641: FND_MESSAGE.set_name('INV', 'INV_INT_PRDCODE');
7642: l_error_code := FND_MESSAGE.get;
7643: FND_MESSAGE.set_name('INV', 'INV_NO_OPEN_PERIOD_TOORG');
7644: l_error_exp := FND_MESSAGE.get;
7645: errupdate(l_rowid,null);
7646: l_count := l_count + 1;
7647: RAISE fnd_api.g_exc_error;
7648: END IF;
7666: | Validate material account
7667: +-----------------------------------------------------------*/
7668:
7669: IF (l_validate_full) THEN --J-dev
7670: FND_MESSAGE.set_name('INV','INV_MATERIAL_ACCOUNT');
7671: l_account := FND_MESSAGE.get ;
7672:
7673: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7674: fnd_message.set_token('ACCOUNT',l_account);
7667: +-----------------------------------------------------------*/
7668:
7669: IF (l_validate_full) THEN --J-dev
7670: FND_MESSAGE.set_name('INV','INV_MATERIAL_ACCOUNT');
7671: l_account := FND_MESSAGE.get ;
7672:
7673: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7674: fnd_message.set_token('ACCOUNT',l_account);
7675: l_error_code := fnd_message.get;
7669: IF (l_validate_full) THEN --J-dev
7670: FND_MESSAGE.set_name('INV','INV_MATERIAL_ACCOUNT');
7671: l_account := FND_MESSAGE.get ;
7672:
7673: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7674: fnd_message.set_token('ACCOUNT',l_account);
7675: l_error_code := fnd_message.get;
7676:
7677: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7670: FND_MESSAGE.set_name('INV','INV_MATERIAL_ACCOUNT');
7671: l_account := FND_MESSAGE.get ;
7672:
7673: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7674: fnd_message.set_token('ACCOUNT',l_account);
7675: l_error_code := fnd_message.get;
7676:
7677: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7678: fnd_message.set_token('ACCOUNT',l_account);
7671: l_account := FND_MESSAGE.get ;
7672:
7673: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7674: fnd_message.set_token('ACCOUNT',l_account);
7675: l_error_code := fnd_message.get;
7676:
7677: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7678: fnd_message.set_token('ACCOUNT',l_account);
7679: l_error_exp := fnd_message.get;
7673: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7674: fnd_message.set_token('ACCOUNT',l_account);
7675: l_error_code := fnd_message.get;
7676:
7677: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7678: fnd_message.set_token('ACCOUNT',l_account);
7679: l_error_exp := fnd_message.get;
7680:
7681: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7674: fnd_message.set_token('ACCOUNT',l_account);
7675: l_error_code := fnd_message.get;
7676:
7677: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7678: fnd_message.set_token('ACCOUNT',l_account);
7679: l_error_exp := fnd_message.get;
7680:
7681: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7682: SET LAST_UPDATE_DATE = SYSDATE,
7675: l_error_code := fnd_message.get;
7676:
7677: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7678: fnd_message.set_token('ACCOUNT',l_account);
7679: l_error_exp := fnd_message.get;
7680:
7681: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7682: SET LAST_UPDATE_DATE = SYSDATE,
7683: LAST_UPDATED_BY = p_userid,
7714: | Validate material overhead account
7715: +-----------------------------------------------------------*/
7716:
7717: IF (l_validate_full) THEN --J-dev
7718: FND_MESSAGE.set_name('INV','INV_MAT_OVRHD_ACCOUNT');
7719: l_account := FND_MESSAGE.get ;
7720:
7721: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7722: fnd_message.set_token('ACCOUNT',l_account);
7715: +-----------------------------------------------------------*/
7716:
7717: IF (l_validate_full) THEN --J-dev
7718: FND_MESSAGE.set_name('INV','INV_MAT_OVRHD_ACCOUNT');
7719: l_account := FND_MESSAGE.get ;
7720:
7721: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7722: fnd_message.set_token('ACCOUNT',l_account);
7723: l_error_code := fnd_message.get;
7717: IF (l_validate_full) THEN --J-dev
7718: FND_MESSAGE.set_name('INV','INV_MAT_OVRHD_ACCOUNT');
7719: l_account := FND_MESSAGE.get ;
7720:
7721: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7722: fnd_message.set_token('ACCOUNT',l_account);
7723: l_error_code := fnd_message.get;
7724:
7725: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7718: FND_MESSAGE.set_name('INV','INV_MAT_OVRHD_ACCOUNT');
7719: l_account := FND_MESSAGE.get ;
7720:
7721: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7722: fnd_message.set_token('ACCOUNT',l_account);
7723: l_error_code := fnd_message.get;
7724:
7725: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7726: fnd_message.set_token('ACCOUNT',l_account);
7719: l_account := FND_MESSAGE.get ;
7720:
7721: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7722: fnd_message.set_token('ACCOUNT',l_account);
7723: l_error_code := fnd_message.get;
7724:
7725: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7726: fnd_message.set_token('ACCOUNT',l_account);
7727: l_error_exp := fnd_message.get;
7721: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7722: fnd_message.set_token('ACCOUNT',l_account);
7723: l_error_code := fnd_message.get;
7724:
7725: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7726: fnd_message.set_token('ACCOUNT',l_account);
7727: l_error_exp := fnd_message.get;
7728:
7729: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7722: fnd_message.set_token('ACCOUNT',l_account);
7723: l_error_code := fnd_message.get;
7724:
7725: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7726: fnd_message.set_token('ACCOUNT',l_account);
7727: l_error_exp := fnd_message.get;
7728:
7729: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7730: SET LAST_UPDATE_DATE = SYSDATE,
7723: l_error_code := fnd_message.get;
7724:
7725: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7726: fnd_message.set_token('ACCOUNT',l_account);
7727: l_error_exp := fnd_message.get;
7728:
7729: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7730: SET LAST_UPDATE_DATE = SYSDATE,
7731: LAST_UPDATED_BY = p_userid,
7761: | Validate resource account
7762: +-----------------------------------------------------------*/
7763:
7764: IF (l_validate_full) THEN --J-dev
7765: FND_MESSAGE.set_name('INV','INV_RESOURCE_ACCOUNT');
7766: l_account := FND_MESSAGE.get ;
7767:
7768: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7769: fnd_message.set_token('ACCOUNT',l_account);
7762: +-----------------------------------------------------------*/
7763:
7764: IF (l_validate_full) THEN --J-dev
7765: FND_MESSAGE.set_name('INV','INV_RESOURCE_ACCOUNT');
7766: l_account := FND_MESSAGE.get ;
7767:
7768: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7769: fnd_message.set_token('ACCOUNT',l_account);
7770: l_error_code := fnd_message.get;
7764: IF (l_validate_full) THEN --J-dev
7765: FND_MESSAGE.set_name('INV','INV_RESOURCE_ACCOUNT');
7766: l_account := FND_MESSAGE.get ;
7767:
7768: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7769: fnd_message.set_token('ACCOUNT',l_account);
7770: l_error_code := fnd_message.get;
7771:
7772: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7765: FND_MESSAGE.set_name('INV','INV_RESOURCE_ACCOUNT');
7766: l_account := FND_MESSAGE.get ;
7767:
7768: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7769: fnd_message.set_token('ACCOUNT',l_account);
7770: l_error_code := fnd_message.get;
7771:
7772: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7773: fnd_message.set_token('ACCOUNT',l_account);
7766: l_account := FND_MESSAGE.get ;
7767:
7768: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7769: fnd_message.set_token('ACCOUNT',l_account);
7770: l_error_code := fnd_message.get;
7771:
7772: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7773: fnd_message.set_token('ACCOUNT',l_account);
7774: l_error_exp := fnd_message.get;
7768: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7769: fnd_message.set_token('ACCOUNT',l_account);
7770: l_error_code := fnd_message.get;
7771:
7772: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7773: fnd_message.set_token('ACCOUNT',l_account);
7774: l_error_exp := fnd_message.get;
7775:
7776: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7769: fnd_message.set_token('ACCOUNT',l_account);
7770: l_error_code := fnd_message.get;
7771:
7772: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7773: fnd_message.set_token('ACCOUNT',l_account);
7774: l_error_exp := fnd_message.get;
7775:
7776: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7777: SET LAST_UPDATE_DATE = SYSDATE,
7770: l_error_code := fnd_message.get;
7771:
7772: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7773: fnd_message.set_token('ACCOUNT',l_account);
7774: l_error_exp := fnd_message.get;
7775:
7776: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7777: SET LAST_UPDATE_DATE = SYSDATE,
7778: LAST_UPDATED_BY = p_userid,
7808: | Validate outside processing account
7809: +-----------------------------------------------------------*/
7810:
7811: IF (l_validate_full) THEN --J-dev
7812: FND_MESSAGE.set_name('INV','INV_OUTSIDE_PROC_ACCOUNT');
7813: l_account := FND_MESSAGE.get ;
7814:
7815: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7816: fnd_message.set_token('ACCOUNT',l_account);
7809: +-----------------------------------------------------------*/
7810:
7811: IF (l_validate_full) THEN --J-dev
7812: FND_MESSAGE.set_name('INV','INV_OUTSIDE_PROC_ACCOUNT');
7813: l_account := FND_MESSAGE.get ;
7814:
7815: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7816: fnd_message.set_token('ACCOUNT',l_account);
7817: l_error_code := fnd_message.get;
7811: IF (l_validate_full) THEN --J-dev
7812: FND_MESSAGE.set_name('INV','INV_OUTSIDE_PROC_ACCOUNT');
7813: l_account := FND_MESSAGE.get ;
7814:
7815: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7816: fnd_message.set_token('ACCOUNT',l_account);
7817: l_error_code := fnd_message.get;
7818:
7819: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7812: FND_MESSAGE.set_name('INV','INV_OUTSIDE_PROC_ACCOUNT');
7813: l_account := FND_MESSAGE.get ;
7814:
7815: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7816: fnd_message.set_token('ACCOUNT',l_account);
7817: l_error_code := fnd_message.get;
7818:
7819: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7820: fnd_message.set_token('ACCOUNT',l_account);
7813: l_account := FND_MESSAGE.get ;
7814:
7815: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7816: fnd_message.set_token('ACCOUNT',l_account);
7817: l_error_code := fnd_message.get;
7818:
7819: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7820: fnd_message.set_token('ACCOUNT',l_account);
7821: l_error_exp := fnd_message.get;
7815: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7816: fnd_message.set_token('ACCOUNT',l_account);
7817: l_error_code := fnd_message.get;
7818:
7819: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7820: fnd_message.set_token('ACCOUNT',l_account);
7821: l_error_exp := fnd_message.get;
7822:
7823: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7816: fnd_message.set_token('ACCOUNT',l_account);
7817: l_error_code := fnd_message.get;
7818:
7819: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7820: fnd_message.set_token('ACCOUNT',l_account);
7821: l_error_exp := fnd_message.get;
7822:
7823: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7824: SET LAST_UPDATE_DATE = SYSDATE,
7817: l_error_code := fnd_message.get;
7818:
7819: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7820: fnd_message.set_token('ACCOUNT',l_account);
7821: l_error_exp := fnd_message.get;
7822:
7823: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7824: SET LAST_UPDATE_DATE = SYSDATE,
7825: LAST_UPDATED_BY = p_userid,
7855: | Validate overhead account
7856: +-----------------------------------------------------------*/
7857:
7858: IF (l_validate_full) THEN --J-dev
7859: FND_MESSAGE.set_name('INV','INV_OVERHEAD_ACCOUNT');
7860: l_account := FND_MESSAGE.get ;
7861:
7862: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7863: fnd_message.set_token('ACCOUNT',l_account);
7856: +-----------------------------------------------------------*/
7857:
7858: IF (l_validate_full) THEN --J-dev
7859: FND_MESSAGE.set_name('INV','INV_OVERHEAD_ACCOUNT');
7860: l_account := FND_MESSAGE.get ;
7861:
7862: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7863: fnd_message.set_token('ACCOUNT',l_account);
7864: l_error_code := fnd_message.get;
7858: IF (l_validate_full) THEN --J-dev
7859: FND_MESSAGE.set_name('INV','INV_OVERHEAD_ACCOUNT');
7860: l_account := FND_MESSAGE.get ;
7861:
7862: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7863: fnd_message.set_token('ACCOUNT',l_account);
7864: l_error_code := fnd_message.get;
7865:
7866: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7859: FND_MESSAGE.set_name('INV','INV_OVERHEAD_ACCOUNT');
7860: l_account := FND_MESSAGE.get ;
7861:
7862: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7863: fnd_message.set_token('ACCOUNT',l_account);
7864: l_error_code := fnd_message.get;
7865:
7866: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7867: fnd_message.set_token('ACCOUNT',l_account);
7860: l_account := FND_MESSAGE.get ;
7861:
7862: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7863: fnd_message.set_token('ACCOUNT',l_account);
7864: l_error_code := fnd_message.get;
7865:
7866: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7867: fnd_message.set_token('ACCOUNT',l_account);
7868: l_error_exp := fnd_message.get;
7862: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7863: fnd_message.set_token('ACCOUNT',l_account);
7864: l_error_code := fnd_message.get;
7865:
7866: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7867: fnd_message.set_token('ACCOUNT',l_account);
7868: l_error_exp := fnd_message.get;
7869:
7870: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7863: fnd_message.set_token('ACCOUNT',l_account);
7864: l_error_code := fnd_message.get;
7865:
7866: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7867: fnd_message.set_token('ACCOUNT',l_account);
7868: l_error_exp := fnd_message.get;
7869:
7870: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7871: SET LAST_UPDATE_DATE = SYSDATE,
7864: l_error_code := fnd_message.get;
7865:
7866: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7867: fnd_message.set_token('ACCOUNT',l_account);
7868: l_error_exp := fnd_message.get;
7869:
7870: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7871: SET LAST_UPDATE_DATE = SYSDATE,
7872: LAST_UPDATED_BY = p_userid,
8359: **************************************************************/
8360: IF( l_acttype not in (40,41)) THEN
8361: /** end of changes for lot transactions **/
8362: IF (NOT getacctid(l_acct, l_orgid, l_rowid)) THEN
8363: FND_MESSAGE.set_name('INV', 'INV_INT_ACTCODE');
8364: l_error_code := FND_MESSAGE.get;
8365:
8366: errupdate(l_rowid,null);
8367: --exit;
8360: IF( l_acttype not in (40,41)) THEN
8361: /** end of changes for lot transactions **/
8362: IF (NOT getacctid(l_acct, l_orgid, l_rowid)) THEN
8363: FND_MESSAGE.set_name('INV', 'INV_INT_ACTCODE');
8364: l_error_code := FND_MESSAGE.get;
8365:
8366: errupdate(l_rowid,null);
8367: --exit;
8368: RAISE fnd_api.g_exc_error;
8374:
8375: -- Bug#4247753. Calling the functon, validate_acctid() for validating the Account combination ID
8376: IF ( l_acct IS NOT NULL AND (NOT l_acctid_validated)) THEN
8377: IF ( NOT validate_acctid(l_acct, l_orgid, l_trxdate)) THEN
8378: FND_MESSAGE.set_name('INV', 'INV_INT_ACTCODE');
8379: l_error_code := FND_MESSAGE.get;
8380: errupdate(l_rowid,null);
8381: RAISE fnd_api.g_exc_error;
8382: END IF;
8375: -- Bug#4247753. Calling the functon, validate_acctid() for validating the Account combination ID
8376: IF ( l_acct IS NOT NULL AND (NOT l_acctid_validated)) THEN
8377: IF ( NOT validate_acctid(l_acct, l_orgid, l_trxdate)) THEN
8378: FND_MESSAGE.set_name('INV', 'INV_INT_ACTCODE');
8379: l_error_code := FND_MESSAGE.get;
8380: errupdate(l_rowid,null);
8381: RAISE fnd_api.g_exc_error;
8382: END IF;
8383: END IF;
8386: /* Validate the unit number for unit_effectivity */
8387:
8388: IF (NOT validate_unit_number(l_unit_number,l_orgid,l_itemid,l_srctype,l_acttype))
8389: THEN
8390: l_error_exp := FND_MESSAGE.get;
8391: l_error_exp := FND_MESSAGE.get;
8392:
8393: FND_MESSAGE.set_name('INV', 'INV_INT_UNITNUMBER');
8394: l_error_code := FND_MESSAGE.get;
8387:
8388: IF (NOT validate_unit_number(l_unit_number,l_orgid,l_itemid,l_srctype,l_acttype))
8389: THEN
8390: l_error_exp := FND_MESSAGE.get;
8391: l_error_exp := FND_MESSAGE.get;
8392:
8393: FND_MESSAGE.set_name('INV', 'INV_INT_UNITNUMBER');
8394: l_error_code := FND_MESSAGE.get;
8395:
8389: THEN
8390: l_error_exp := FND_MESSAGE.get;
8391: l_error_exp := FND_MESSAGE.get;
8392:
8393: FND_MESSAGE.set_name('INV', 'INV_INT_UNITNUMBER');
8394: l_error_code := FND_MESSAGE.get;
8395:
8396: errupdate(l_rowid,null);
8397: l_count := l_count + 1;
8390: l_error_exp := FND_MESSAGE.get;
8391: l_error_exp := FND_MESSAGE.get;
8392:
8393: FND_MESSAGE.set_name('INV', 'INV_INT_UNITNUMBER');
8394: l_error_code := FND_MESSAGE.get;
8395:
8396: errupdate(l_rowid,null);
8397: l_count := l_count + 1;
8398: --exit;
8414: WHEN OTHERS THEN
8415: /*IF (NOT UomConvert(l_itemid,0,l_trxuom,'',l_priuom,'',
8416: l_overcomp_txn_qty, l_overcomp_primary_qty,0))
8417: THEN */
8418: l_error_exp := FND_MESSAGE.get;
8419:
8420: FND_MESSAGE.set_name('INV', 'INV_INT_UOMCONVCODE');
8421: l_error_code := FND_MESSAGE.get;
8422:
8416: l_overcomp_txn_qty, l_overcomp_primary_qty,0))
8417: THEN */
8418: l_error_exp := FND_MESSAGE.get;
8419:
8420: FND_MESSAGE.set_name('INV', 'INV_INT_UOMCONVCODE');
8421: l_error_code := FND_MESSAGE.get;
8422:
8423: errupdate(l_rowid,null);
8424: l_count := l_count + 1;
8417: THEN */
8418: l_error_exp := FND_MESSAGE.get;
8419:
8420: FND_MESSAGE.set_name('INV', 'INV_INT_UOMCONVCODE');
8421: l_error_code := FND_MESSAGE.get;
8422:
8423: errupdate(l_rowid,null);
8424: l_count := l_count + 1;
8425: END;
8768: WHERE ROWID = l_rowid;
8769: END IF;
8770: ELSE
8771: l_error_exp := x_msg_data;
8772: FND_MESSAGE.set_name('BOM', 'CST_XFER_PRICE_ERROR');
8773: l_error_code := FND_MESSAGE.get;
8774: errupdate(l_rowid,null);
8775: l_count := l_count + 1;
8776: RAISE fnd_api.g_exc_error;
8769: END IF;
8770: ELSE
8771: l_error_exp := x_msg_data;
8772: FND_MESSAGE.set_name('BOM', 'CST_XFER_PRICE_ERROR');
8773: l_error_code := FND_MESSAGE.get;
8774: errupdate(l_rowid,null);
8775: l_count := l_count + 1;
8776: RAISE fnd_api.g_exc_error;
8777: END IF;
8899: --Verifying whether any of the specified serials are Group Marked
8900: --Particularly cross checking the serials against MO Txr suggession
8901: --If any of the serials marked then update the MTI record with error
8902:
8903: FND_MESSAGE.set_name('INV', 'INV_SERIAL_USED');
8904: l_error_code := FND_MESSAGE.get;
8905: l_error_exp := l_error_code;
8906:
8907: UPDATE MTL_TRANSACTIONS_INTERFACE
8900: --Particularly cross checking the serials against MO Txr suggession
8901: --If any of the serials marked then update the MTI record with error
8902:
8903: FND_MESSAGE.set_name('INV', 'INV_SERIAL_USED');
8904: l_error_code := FND_MESSAGE.get;
8905: l_error_exp := l_error_code;
8906:
8907: UPDATE MTL_TRANSACTIONS_INTERFACE
8908: SET LAST_UPDATE_DATE = SYSDATE,
8983: END IF;
8984:
8985: l_error_exp := '';
8986: l_error_code := '';
8987: FND_MESSAGE.clear;
8988: return;
8989: END validate_lines;
8990:
8991:
11444: x_lot_ser_attr_tbl := l_lot_ser_attr_tbl;
11445: EXCEPTION
11446: WHEN OTHERS
11447: THEN
11448: fnd_message.set_name ('WMS', 'WMS_GET_LOT_ATTR_ERROR');
11449: fnd_msg_pub.ADD;
11450:
11451: IF (l_debug = 1)
11452: THEN
12854: END IF;
12855:
12856: IF (l_serial_diff = -1)
12857: THEN
12858: fnd_message.set_name ('INV', 'INV_INVALID_SERIAL_RANGE');
12859: fnd_msg_pub.ADD;
12860: l_validation_status := 'N';
12861: RAISE fnd_api.g_exc_error;
12862: END IF;
12947: , 'tmpinsert2'
12948: );
12949: END IF;
12950:
12951: fnd_message.set_name ('WMS', 'WMS_GET_LOT_ATTR_ERROR');
12952: fnd_msg_pub.ADD;
12953: l_validation_status := 'N';
12954: RAISE fnd_api.g_exc_unexpected_error;
12955: END;
12984: , 'tmpinsert2'
12985: );
12986: END IF;
12987:
12988: fnd_message.set_name ('WMS'
12989: , 'WMS_VALIDATE_ATTR_ERROR');
12990: fnd_msg_pub.ADD;
12991: l_validation_status := 'N';
12992: RAISE fnd_api.g_exc_unexpected_error;
13412: , 'tmpinsert2'
13413: );
13414: END IF;
13415:
13416: fnd_message.set_name ('INV', 'INVALID_SERIAL_NUMBER');
13417: fnd_msg_pub.ADD;
13418: l_validation_status := 'N';
13419: RAISE fnd_api.g_exc_error;
13420: END IF;
13522: IF(l_debug = 1) THEN
13523: mydebug('breadcrumb 185', 'tmpinsert2');
13524: mydebug('Lot translate : Items have different Serial Attr Context', 'tmpinsert2');
13525: END IF;
13526: fnd_message.set_name ('INV', 'INV_SERIAL_CONTEXT_DIFF');
13527: fnd_msg_pub.ADD;
13528: RAISE fnd_api.g_exc_error;
13529: l_validation_status := 'N';
13530: END IF;
14585: IF l_return_status IN (fnd_api.g_ret_sts_error, fnd_api.g_ret_sts_unexp_error) THEN
14586: IF (l_debug = 1) THEN
14587: inv_log_util.trace('Error while creating tree : x_msg_data = ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14588: END IF;
14589: FND_MESSAGE.set_name('INV','INV_ERR_CREATETREE');
14590: FND_MESSAGE.set_token('ROUTINE','UE:AVAIL_TO_TRX');
14591: l_error_code := FND_MESSAGE.get;
14592: l_error_exp := l_msg_data;
14593: x_msg_data := l_msg_data;
14586: IF (l_debug = 1) THEN
14587: inv_log_util.trace('Error while creating tree : x_msg_data = ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14588: END IF;
14589: FND_MESSAGE.set_name('INV','INV_ERR_CREATETREE');
14590: FND_MESSAGE.set_token('ROUTINE','UE:AVAIL_TO_TRX');
14591: l_error_code := FND_MESSAGE.get;
14592: l_error_exp := l_msg_data;
14593: x_msg_data := l_msg_data;
14594: UPDATE MTL_TRANSACTIONS_INTERFACE
14587: inv_log_util.trace('Error while creating tree : x_msg_data = ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14588: END IF;
14589: FND_MESSAGE.set_name('INV','INV_ERR_CREATETREE');
14590: FND_MESSAGE.set_token('ROUTINE','UE:AVAIL_TO_TRX');
14591: l_error_code := FND_MESSAGE.get;
14592: l_error_exp := l_msg_data;
14593: x_msg_data := l_msg_data;
14594: UPDATE MTL_TRANSACTIONS_INTERFACE
14595: SET LAST_UPDATE_DATE = SYSDATE,
14652: IF (l_debug = 1) THEN
14653: inv_log_util.trace('Expected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14654: END IF;
14655:
14656: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14657: FND_MESSAGE.set_token('token1','XACT_QTY1');
14658: l_error_code := FND_MESSAGE.get;
14659: l_error_exp := l_msg_data;
14660: x_msg_data := l_msg_data;
14653: inv_log_util.trace('Expected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14654: END IF;
14655:
14656: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14657: FND_MESSAGE.set_token('token1','XACT_QTY1');
14658: l_error_code := FND_MESSAGE.get;
14659: l_error_exp := l_msg_data;
14660: x_msg_data := l_msg_data;
14661: UPDATE MTL_TRANSACTIONS_INTERFACE
14654: END IF;
14655:
14656: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14657: FND_MESSAGE.set_token('token1','XACT_QTY1');
14658: l_error_code := FND_MESSAGE.get;
14659: l_error_exp := l_msg_data;
14660: x_msg_data := l_msg_data;
14661: UPDATE MTL_TRANSACTIONS_INTERFACE
14662: SET LAST_UPDATE_DATE = SYSDATE,
14693: IF (l_debug = 1) THEN
14694: inv_log_util.trace('UnExpected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14695: END IF;
14696:
14697: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14698: FND_MESSAGE.set_token('token1','XACT_QTY1');
14699: l_error_code := FND_MESSAGE.get;
14700: l_error_exp := l_msg_data;
14701: x_msg_data := l_msg_data;
14694: inv_log_util.trace('UnExpected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14695: END IF;
14696:
14697: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14698: FND_MESSAGE.set_token('token1','XACT_QTY1');
14699: l_error_code := FND_MESSAGE.get;
14700: l_error_exp := l_msg_data;
14701: x_msg_data := l_msg_data;
14702: UPDATE MTL_TRANSACTIONS_INTERFACE
14695: END IF;
14696:
14697: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14698: FND_MESSAGE.set_token('token1','XACT_QTY1');
14699: l_error_code := FND_MESSAGE.get;
14700: l_error_exp := l_msg_data;
14701: x_msg_data := l_msg_data;
14702: UPDATE MTL_TRANSACTIONS_INTERFACE
14703: SET LAST_UPDATE_DATE = SYSDATE,
14795: then the backflush transaction can not consume existing reservations.Else it can consume
14796: existing reservation and can drive inventory go negative. */
14797: IF (l_override_rsv_for_backflush <> 1 ) THEN
14798: inv_log_util.trace('Transaction quantity must be less than or equal to available quantity','INV_TXN_MANAGER_GRP', 9);
14799: FND_MESSAGE.set_name('INV','INV_INT_PROCCODE');
14800: l_error_code := FND_MESSAGE.get;
14801: FND_MESSAGE.set_name('INV','INV_QTY_LESS_OR_EQUAL');
14802: l_error_exp := FND_MESSAGE.get;
14803: x_msg_data := l_error_exp;
14796: existing reservation and can drive inventory go negative. */
14797: IF (l_override_rsv_for_backflush <> 1 ) THEN
14798: inv_log_util.trace('Transaction quantity must be less than or equal to available quantity','INV_TXN_MANAGER_GRP', 9);
14799: FND_MESSAGE.set_name('INV','INV_INT_PROCCODE');
14800: l_error_code := FND_MESSAGE.get;
14801: FND_MESSAGE.set_name('INV','INV_QTY_LESS_OR_EQUAL');
14802: l_error_exp := FND_MESSAGE.get;
14803: x_msg_data := l_error_exp;
14804: UPDATE MTL_TRANSACTIONS_INTERFACE
14797: IF (l_override_rsv_for_backflush <> 1 ) THEN
14798: inv_log_util.trace('Transaction quantity must be less than or equal to available quantity','INV_TXN_MANAGER_GRP', 9);
14799: FND_MESSAGE.set_name('INV','INV_INT_PROCCODE');
14800: l_error_code := FND_MESSAGE.get;
14801: FND_MESSAGE.set_name('INV','INV_QTY_LESS_OR_EQUAL');
14802: l_error_exp := FND_MESSAGE.get;
14803: x_msg_data := l_error_exp;
14804: UPDATE MTL_TRANSACTIONS_INTERFACE
14805: SET LAST_UPDATE_DATE = SYSDATE,
14798: inv_log_util.trace('Transaction quantity must be less than or equal to available quantity','INV_TXN_MANAGER_GRP', 9);
14799: FND_MESSAGE.set_name('INV','INV_INT_PROCCODE');
14800: l_error_code := FND_MESSAGE.get;
14801: FND_MESSAGE.set_name('INV','INV_QTY_LESS_OR_EQUAL');
14802: l_error_exp := FND_MESSAGE.get;
14803: x_msg_data := l_error_exp;
14804: UPDATE MTL_TRANSACTIONS_INTERFACE
14805: SET LAST_UPDATE_DATE = SYSDATE,
14806: LAST_UPDATED_BY = l_userid,
14857: IF (l_debug = 1) THEN
14858: inv_log_util.trace('Expected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14859: END IF;
14860:
14861: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14862: FND_MESSAGE.set_token('token1','XACT_QTY1');
14863: l_error_code := FND_MESSAGE.get;
14864: l_error_exp := l_msg_data;
14865: x_msg_data := l_msg_data;
14858: inv_log_util.trace('Expected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14859: END IF;
14860:
14861: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14862: FND_MESSAGE.set_token('token1','XACT_QTY1');
14863: l_error_code := FND_MESSAGE.get;
14864: l_error_exp := l_msg_data;
14865: x_msg_data := l_msg_data;
14866: UPDATE MTL_TRANSACTIONS_INTERFACE
14859: END IF;
14860:
14861: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14862: FND_MESSAGE.set_token('token1','XACT_QTY1');
14863: l_error_code := FND_MESSAGE.get;
14864: l_error_exp := l_msg_data;
14865: x_msg_data := l_msg_data;
14866: UPDATE MTL_TRANSACTIONS_INTERFACE
14867: SET LAST_UPDATE_DATE = SYSDATE,
14897: IF (l_debug = 1) THEN
14898: inv_log_util.trace('UnExpected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14899: END IF;
14900:
14901: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14902: FND_MESSAGE.set_token('token1','XACT_QTY1');
14903: l_error_code := FND_MESSAGE.get;
14904: l_error_exp := l_msg_data;
14905: x_msg_data := l_msg_data;
14898: inv_log_util.trace('UnExpected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14899: END IF;
14900:
14901: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14902: FND_MESSAGE.set_token('token1','XACT_QTY1');
14903: l_error_code := FND_MESSAGE.get;
14904: l_error_exp := l_msg_data;
14905: x_msg_data := l_msg_data;
14906: UPDATE MTL_TRANSACTIONS_INTERFACE
14899: END IF;
14900:
14901: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14902: FND_MESSAGE.set_token('token1','XACT_QTY1');
14903: l_error_code := FND_MESSAGE.get;
14904: l_error_exp := l_msg_data;
14905: x_msg_data := l_msg_data;
14906: UPDATE MTL_TRANSACTIONS_INTERFACE
14907: SET LAST_UPDATE_DATE = SYSDATE,
14950: backflush transaction can not consume existing reservations.Else it can consume existing
14951: reservation and can drive inventory negative. */
14952: IF (l_override_rsv_for_backflush <> 1 ) THEN
14953: inv_log_util.trace('Total Org quantity cannot become negative when there are reservations present','INV_TXN_MANAGER_GRP', 9);
14954: FND_MESSAGE.set_name('INV','INV_INT_PROCCODE');
14955: l_error_code := FND_MESSAGE.get;
14956: FND_MESSAGE.set_name('INV','INV_ORG_QUANTITY');
14957: l_error_exp := FND_MESSAGE.get;
14958: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14951: reservation and can drive inventory negative. */
14952: IF (l_override_rsv_for_backflush <> 1 ) THEN
14953: inv_log_util.trace('Total Org quantity cannot become negative when there are reservations present','INV_TXN_MANAGER_GRP', 9);
14954: FND_MESSAGE.set_name('INV','INV_INT_PROCCODE');
14955: l_error_code := FND_MESSAGE.get;
14956: FND_MESSAGE.set_name('INV','INV_ORG_QUANTITY');
14957: l_error_exp := FND_MESSAGE.get;
14958: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14959: x_msg_data := l_error_exp;
14952: IF (l_override_rsv_for_backflush <> 1 ) THEN
14953: inv_log_util.trace('Total Org quantity cannot become negative when there are reservations present','INV_TXN_MANAGER_GRP', 9);
14954: FND_MESSAGE.set_name('INV','INV_INT_PROCCODE');
14955: l_error_code := FND_MESSAGE.get;
14956: FND_MESSAGE.set_name('INV','INV_ORG_QUANTITY');
14957: l_error_exp := FND_MESSAGE.get;
14958: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14959: x_msg_data := l_error_exp;
14960: UPDATE MTL_TRANSACTIONS_INTERFACE
14953: inv_log_util.trace('Total Org quantity cannot become negative when there are reservations present','INV_TXN_MANAGER_GRP', 9);
14954: FND_MESSAGE.set_name('INV','INV_INT_PROCCODE');
14955: l_error_code := FND_MESSAGE.get;
14956: FND_MESSAGE.set_name('INV','INV_ORG_QUANTITY');
14957: l_error_exp := FND_MESSAGE.get;
14958: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14959: x_msg_data := l_error_exp;
14960: UPDATE MTL_TRANSACTIONS_INTERFACE
14961: SET LAST_UPDATE_DATE = SYSDATE,
14954: FND_MESSAGE.set_name('INV','INV_INT_PROCCODE');
14955: l_error_code := FND_MESSAGE.get;
14956: FND_MESSAGE.set_name('INV','INV_ORG_QUANTITY');
14957: l_error_exp := FND_MESSAGE.get;
14958: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14959: x_msg_data := l_error_exp;
14960: UPDATE MTL_TRANSACTIONS_INTERFACE
14961: SET LAST_UPDATE_DATE = SYSDATE,
14962: LAST_UPDATED_BY = l_userid,
14993: ELSE --(neg_inv_rcpt = 1)
14994: IF (l_debug = 1) THEN
14995: inv_log_util.trace('Not Enough Qty: l_att,l_trx_qty:' || l_att||','||l_trx_qty,'INV_TXN_MANAGER_GRP', 9);
14996: END IF;
14997: FND_MESSAGE.set_name('INV','INV_NO_NEG_BALANCES');
14998: l_error_code := FND_MESSAGE.get;
14999: FND_MESSAGE.set_name('INV','INV_LESS_OR_EQUAL');
15000: FND_MESSAGE.set_token('ENTITY1','INV_QUANTITY',l_translate);
15001: FND_MESSAGE.set_token('ENTITY2','AVAIL_TO_TRANSACT',l_translate);
14994: IF (l_debug = 1) THEN
14995: inv_log_util.trace('Not Enough Qty: l_att,l_trx_qty:' || l_att||','||l_trx_qty,'INV_TXN_MANAGER_GRP', 9);
14996: END IF;
14997: FND_MESSAGE.set_name('INV','INV_NO_NEG_BALANCES');
14998: l_error_code := FND_MESSAGE.get;
14999: FND_MESSAGE.set_name('INV','INV_LESS_OR_EQUAL');
15000: FND_MESSAGE.set_token('ENTITY1','INV_QUANTITY',l_translate);
15001: FND_MESSAGE.set_token('ENTITY2','AVAIL_TO_TRANSACT',l_translate);
15002: l_error_exp := FND_MESSAGE.get;
14995: inv_log_util.trace('Not Enough Qty: l_att,l_trx_qty:' || l_att||','||l_trx_qty,'INV_TXN_MANAGER_GRP', 9);
14996: END IF;
14997: FND_MESSAGE.set_name('INV','INV_NO_NEG_BALANCES');
14998: l_error_code := FND_MESSAGE.get;
14999: FND_MESSAGE.set_name('INV','INV_LESS_OR_EQUAL');
15000: FND_MESSAGE.set_token('ENTITY1','INV_QUANTITY',l_translate);
15001: FND_MESSAGE.set_token('ENTITY2','AVAIL_TO_TRANSACT',l_translate);
15002: l_error_exp := FND_MESSAGE.get;
15003: x_msg_data := l_error_exp;
14996: END IF;
14997: FND_MESSAGE.set_name('INV','INV_NO_NEG_BALANCES');
14998: l_error_code := FND_MESSAGE.get;
14999: FND_MESSAGE.set_name('INV','INV_LESS_OR_EQUAL');
15000: FND_MESSAGE.set_token('ENTITY1','INV_QUANTITY',l_translate);
15001: FND_MESSAGE.set_token('ENTITY2','AVAIL_TO_TRANSACT',l_translate);
15002: l_error_exp := FND_MESSAGE.get;
15003: x_msg_data := l_error_exp;
15004: UPDATE MTL_TRANSACTIONS_INTERFACE
14997: FND_MESSAGE.set_name('INV','INV_NO_NEG_BALANCES');
14998: l_error_code := FND_MESSAGE.get;
14999: FND_MESSAGE.set_name('INV','INV_LESS_OR_EQUAL');
15000: FND_MESSAGE.set_token('ENTITY1','INV_QUANTITY',l_translate);
15001: FND_MESSAGE.set_token('ENTITY2','AVAIL_TO_TRANSACT',l_translate);
15002: l_error_exp := FND_MESSAGE.get;
15003: x_msg_data := l_error_exp;
15004: UPDATE MTL_TRANSACTIONS_INTERFACE
15005: SET LAST_UPDATE_DATE = SYSDATE,
14998: l_error_code := FND_MESSAGE.get;
14999: FND_MESSAGE.set_name('INV','INV_LESS_OR_EQUAL');
15000: FND_MESSAGE.set_token('ENTITY1','INV_QUANTITY',l_translate);
15001: FND_MESSAGE.set_token('ENTITY2','AVAIL_TO_TRANSACT',l_translate);
15002: l_error_exp := FND_MESSAGE.get;
15003: x_msg_data := l_error_exp;
15004: UPDATE MTL_TRANSACTIONS_INTERFACE
15005: SET LAST_UPDATE_DATE = SYSDATE,
15006: LAST_UPDATED_BY = l_userid,
15068: x_atr => l_atr);
15069:
15070:
15071: IF l_return_status <> fnd_api.g_ret_sts_success THEN
15072: FND_MESSAGE.set_name('INV', 'INV_ERR_CREATETREE');
15073: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.UPDATE_QUANTITIES');
15074: l_error_code:= fnd_message.get;
15075: l_error_exp :=l_msg_data;
15076: x_msg_data := l_msg_data;
15069:
15070:
15071: IF l_return_status <> fnd_api.g_ret_sts_success THEN
15072: FND_MESSAGE.set_name('INV', 'INV_ERR_CREATETREE');
15073: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.UPDATE_QUANTITIES');
15074: l_error_code:= fnd_message.get;
15075: l_error_exp :=l_msg_data;
15076: x_msg_data := l_msg_data;
15077: UPDATE MTL_TRANSACTIONS_INTERFACE
15070:
15071: IF l_return_status <> fnd_api.g_ret_sts_success THEN
15072: FND_MESSAGE.set_name('INV', 'INV_ERR_CREATETREE');
15073: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.UPDATE_QUANTITIES');
15074: l_error_code:= fnd_message.get;
15075: l_error_exp :=l_msg_data;
15076: x_msg_data := l_msg_data;
15077: UPDATE MTL_TRANSACTIONS_INTERFACE
15078: SET LAST_UPDATE_DATE = SYSDATE,
15137: x_att => l_att,
15138: x_atr => l_atr);
15139:
15140: IF l_return_status <> fnd_api.g_ret_sts_success THEN
15141: FND_MESSAGE.set_name('INV', 'INV_ERR_CREATETREE');
15142: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.UPDATE_QUANTITIES');
15143: l_error_code:= fnd_message.get;
15144: l_error_exp :=l_msg_data;
15145: x_msg_data := l_msg_data;
15138: x_atr => l_atr);
15139:
15140: IF l_return_status <> fnd_api.g_ret_sts_success THEN
15141: FND_MESSAGE.set_name('INV', 'INV_ERR_CREATETREE');
15142: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.UPDATE_QUANTITIES');
15143: l_error_code:= fnd_message.get;
15144: l_error_exp :=l_msg_data;
15145: x_msg_data := l_msg_data;
15146: UPDATE MTL_TRANSACTIONS_INTERFACE
15139:
15140: IF l_return_status <> fnd_api.g_ret_sts_success THEN
15141: FND_MESSAGE.set_name('INV', 'INV_ERR_CREATETREE');
15142: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.UPDATE_QUANTITIES');
15143: l_error_code:= fnd_message.get;
15144: l_error_exp :=l_msg_data;
15145: x_msg_data := l_msg_data;
15146: UPDATE MTL_TRANSACTIONS_INTERFACE
15147: SET LAST_UPDATE_DATE = SYSDATE,
15226: --return -1.
15227: --J-dev
15228:
15229: IF (NOT tmpinsert(l_header_id,p_validation_level)) THEN
15230: l_error_exp := FND_MESSAGE.get;
15231: IF (l_debug = 1) THEN
15232: inv_log_util.trace('Error in tmpinsert='|| l_error_exp, 'INV_TXN_MANAGER_GRP', 9);
15233: END IF;
15234: FND_MESSAGE.set_name('INV','INV_INT_TMPXFRCODE');
15230: l_error_exp := FND_MESSAGE.get;
15231: IF (l_debug = 1) THEN
15232: inv_log_util.trace('Error in tmpinsert='|| l_error_exp, 'INV_TXN_MANAGER_GRP', 9);
15233: END IF;
15234: FND_MESSAGE.set_name('INV','INV_INT_TMPXFRCODE');
15235: l_error_code := FND_MESSAGE.get;
15236: x_msg_data := l_error_exp;
15237: UPDATE MTL_TRANSACTIONS_INTERFACE
15238: SET LAST_UPDATE_DATE = SYSDATE,
15231: IF (l_debug = 1) THEN
15232: inv_log_util.trace('Error in tmpinsert='|| l_error_exp, 'INV_TXN_MANAGER_GRP', 9);
15233: END IF;
15234: FND_MESSAGE.set_name('INV','INV_INT_TMPXFRCODE');
15235: l_error_code := FND_MESSAGE.get;
15236: x_msg_data := l_error_exp;
15237: UPDATE MTL_TRANSACTIONS_INTERFACE
15238: SET LAST_UPDATE_DATE = SYSDATE,
15239: LAST_UPDATED_BY = l_userid,
15288: IF (l_debug = 1) THEN
15289: inv_log_util.trace('*** SQL error '||substr(sqlerrm, 1, 200), 'INV_TXN_MANAGER_GRP',9);
15290: END IF;
15291:
15292: FND_MESSAGE.set_name('INV','INV_INT_SQLCODE');
15293: l_error_code := FND_MESSAGE.get;
15294:
15295: UPDATE MTL_TRANSACTIONS_INTERFACE
15296: SET LAST_UPDATE_DATE = SYSDATE,
15289: inv_log_util.trace('*** SQL error '||substr(sqlerrm, 1, 200), 'INV_TXN_MANAGER_GRP',9);
15290: END IF;
15291:
15292: FND_MESSAGE.set_name('INV','INV_INT_SQLCODE');
15293: l_error_code := FND_MESSAGE.get;
15294:
15295: UPDATE MTL_TRANSACTIONS_INTERFACE
15296: SET LAST_UPDATE_DATE = SYSDATE,
15297: LAST_UPDATED_BY = l_userid,