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:
978: END IF;
979: x_acctid := l_acctid;
980: RETURN TRUE;
981: else
982: l_error_exp := substr(FND_MESSAGE.get,1,240);
983: IF (l_debug = 1) THEN
984: inv_log_util.trace('Distribution acct id error '|| l_error_exp, 'INV_TXN_MANAGER_GRP','1');
985: END IF;
986: RETURN FALSE;
988: --x_acctid := fnd_flex_ext.concatenate_segments(nsegs,segarray, str.segment_separator);
989:
990: EXCEPTION
991: WHEN NO_DATA_FOUND THEN
992: FND_MESSAGE.set_name('INV','INV-Database corrupt');
993: FND_MESSAGE.set_token('ROUTINE','getacctid');
994: RETURN FALSE;
995: WHEN OTHERS THEN
996: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
989:
990: EXCEPTION
991: WHEN NO_DATA_FOUND THEN
992: FND_MESSAGE.set_name('INV','INV-Database corrupt');
993: FND_MESSAGE.set_token('ROUTINE','getacctid');
994: RETURN FALSE;
995: WHEN OTHERS THEN
996: l_error_exp := substr(fnd_flex_key_api.message(),1,240);
997: IF (l_debug = 1) THEN
1254: inv_log_util.trace('Transaction Source ID : ' || x_trxsrc, 'INV_TXN_MANAGER_GRP','1');
1255: END IF;
1256: RETURN TRUE;
1257: else
1258: l_error_exp := substr(FND_MESSAGE.get,1,240);
1259: IF (l_debug = 1) THEN
1260: inv_log_util.trace('Transaction Source ID error '|| l_error_exp, 'INV_TXN_MANAGER_GRP','1'
1261: );
1262: END IF;
1370: l_trxdate :=c_mti_row.transaction_date; --Bug#5176266.
1371:
1372: IF (l_itemid IS NULL) THEN
1373: IF (NOT getitemid(l_itemid, c_mti_row.organization_id, c_mti_row.rowid)) THEN
1374: l_error_exp := FND_MESSAGE.get;
1375:
1376: FND_MESSAGE.set_name('INV', 'INV_INT_ITMSEGCODE');
1377: l_error_code := FND_MESSAGE.get;
1378:
1372: IF (l_itemid IS NULL) THEN
1373: IF (NOT getitemid(l_itemid, c_mti_row.organization_id, c_mti_row.rowid)) THEN
1374: l_error_exp := FND_MESSAGE.get;
1375:
1376: FND_MESSAGE.set_name('INV', 'INV_INT_ITMSEGCODE');
1377: l_error_code := FND_MESSAGE.get;
1378:
1379: errupdate(c_mti_row.rowid,null);
1380: END IF;
1373: IF (NOT getitemid(l_itemid, c_mti_row.organization_id, c_mti_row.rowid)) THEN
1374: l_error_exp := FND_MESSAGE.get;
1375:
1376: FND_MESSAGE.set_name('INV', 'INV_INT_ITMSEGCODE');
1377: l_error_code := FND_MESSAGE.get;
1378:
1379: errupdate(c_mti_row.rowid,null);
1380: END IF;
1381: END IF;
1386: l_srctype = INV_Globals.G_SourceType_AccountAlias OR
1387: l_srctype = INV_Globals.G_SourceType_IntOrder)
1388: AND (l_trxsrc is NULL) ) THEN
1389: IF ( NOT getsrcid(l_trxsrc, l_srctype, c_mti_row.organization_id, c_mti_row.rowid)) THEN
1390: l_error_exp := FND_MESSAGE.get;
1391:
1392: FND_MESSAGE.set_name('INV', 'INV_INT_SRCSEGCODE');
1393: l_error_code := FND_MESSAGE.get;
1394:
1388: AND (l_trxsrc is NULL) ) THEN
1389: IF ( NOT getsrcid(l_trxsrc, l_srctype, c_mti_row.organization_id, c_mti_row.rowid)) THEN
1390: l_error_exp := FND_MESSAGE.get;
1391:
1392: FND_MESSAGE.set_name('INV', 'INV_INT_SRCSEGCODE');
1393: l_error_code := FND_MESSAGE.get;
1394:
1395: errupdate(c_mti_row.rowid,null);
1396: END IF;
1389: IF ( NOT getsrcid(l_trxsrc, l_srctype, c_mti_row.organization_id, c_mti_row.rowid)) THEN
1390: l_error_exp := FND_MESSAGE.get;
1391:
1392: FND_MESSAGE.set_name('INV', 'INV_INT_SRCSEGCODE');
1393: l_error_code := FND_MESSAGE.get;
1394:
1395: errupdate(c_mti_row.rowid,null);
1396: END IF;
1397: END IF;
1409: END IF;
1410:
1411: ELSE
1412: IF (NOT getacctid(l_acctid, c_mti_row.organization_id, c_mti_row.rowid)) THEN
1413: --l_error_exp := FND_MESSAGE.get; --Bug#4247753. Error Explaination is
1414: --already set in getacctid()
1415: FND_MESSAGE.set_name('INV', 'INV_INT_ACTCODE');
1416: l_error_code := FND_MESSAGE.get;
1417:
1411: ELSE
1412: IF (NOT getacctid(l_acctid, c_mti_row.organization_id, c_mti_row.rowid)) THEN
1413: --l_error_exp := FND_MESSAGE.get; --Bug#4247753. Error Explaination is
1414: --already set in getacctid()
1415: FND_MESSAGE.set_name('INV', 'INV_INT_ACTCODE');
1416: l_error_code := FND_MESSAGE.get;
1417:
1418: errupdate(c_mti_row.rowid,null);
1419: END IF;
1412: IF (NOT getacctid(l_acctid, c_mti_row.organization_id, c_mti_row.rowid)) THEN
1413: --l_error_exp := FND_MESSAGE.get; --Bug#4247753. Error Explaination is
1414: --already set in getacctid()
1415: FND_MESSAGE.set_name('INV', 'INV_INT_ACTCODE');
1416: l_error_code := FND_MESSAGE.get;
1417:
1418: errupdate(c_mti_row.rowid,null);
1419: END IF;
1420: END IF;
1422:
1423: --Bug#4247753 calling the functon, validate_acctid() for validating the Account combination ID
1424: IF ( l_acctid IS NOT NULL AND (NOT l_acctid_validated)) THEN
1425: IF ( NOT validate_acctid(l_acctid, c_mti_row.organization_id, l_trxdate)) THEN
1426: FND_MESSAGE.set_name('INV', 'INV_INT_ACTCODE');
1427: l_error_code := FND_MESSAGE.get;
1428: errupdate(c_mti_row.rowid,null);
1429: END IF;
1430: END IF;
1423: --Bug#4247753 calling the functon, validate_acctid() for validating the Account combination ID
1424: IF ( l_acctid IS NOT NULL AND (NOT l_acctid_validated)) THEN
1425: IF ( NOT validate_acctid(l_acctid, c_mti_row.organization_id, l_trxdate)) THEN
1426: FND_MESSAGE.set_name('INV', 'INV_INT_ACTCODE');
1427: l_error_code := FND_MESSAGE.get;
1428: errupdate(c_mti_row.rowid,null);
1429: END IF;
1430: END IF;
1431:
1436: l_srctype = INV_Globals.G_SourceType_AccountAlias OR
1437: l_srctype = INV_Globals.G_SourceType_IntOrder)
1438: AND (l_trxsrc is NULL) ) THEN
1439: IF ( NOT getsrcid(l_trxsrc, l_srctype, c_mti_row.organization_id, c_mti_row.rowid)) THEN
1440: l_error_exp := FND_MESSAGE.get;
1441:
1442: FND_MESSAGE.set_name('INV', 'INV_INT_SRCSEGCODE');
1443: l_error_code := FND_MESSAGE.get;
1444:
1438: AND (l_trxsrc is NULL) ) THEN
1439: IF ( NOT getsrcid(l_trxsrc, l_srctype, c_mti_row.organization_id, c_mti_row.rowid)) THEN
1440: l_error_exp := FND_MESSAGE.get;
1441:
1442: FND_MESSAGE.set_name('INV', 'INV_INT_SRCSEGCODE');
1443: l_error_code := FND_MESSAGE.get;
1444:
1445: errupdate(c_mti_row.rowid,null);
1446: END IF;
1439: IF ( NOT getsrcid(l_trxsrc, l_srctype, c_mti_row.organization_id, c_mti_row.rowid)) THEN
1440: l_error_exp := FND_MESSAGE.get;
1441:
1442: FND_MESSAGE.set_name('INV', 'INV_INT_SRCSEGCODE');
1443: l_error_code := FND_MESSAGE.get;
1444:
1445: errupdate(c_mti_row.rowid,null);
1446: END IF;
1447:
2583:
2584: IF (l_debug = 1) THEN
2585: inv_log_util.trace('Validating subs ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2586: END IF;
2587: FND_MESSAGE.set_name('INV', 'INV_ERR_DETVAL');
2588: FND_MESSAGE.set_token('token', numhold);
2589:
2590: ELSE
2591:
2584: IF (l_debug = 1) THEN
2585: inv_log_util.trace('Validating subs ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2586: END IF;
2587: FND_MESSAGE.set_name('INV', 'INV_ERR_DETVAL');
2588: FND_MESSAGE.set_token('token', numhold);
2589:
2590: ELSE
2591:
2592: loaderrmsg('INV_INT_SUBCODE','INV_INT_SUBTYPEXP');
2614: l_count := SQL%ROWCOUNT;
2615: IF (l_debug = 1) THEN
2616: inv_log_util.trace('Validating subs else ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2617: END IF;
2618: FND_MESSAGE.set_name('INV', 'INV_ERR_DETVAL');
2619: FND_MESSAGE.set_token('token', numhold);
2620:
2621: END IF;
2622:
2615: IF (l_debug = 1) THEN
2616: inv_log_util.trace('Validating subs else ' || l_count || ' failed', 'INV_TXN_MANAGER_GRP', 9);
2617: END IF;
2618: FND_MESSAGE.set_name('INV', 'INV_ERR_DETVAL');
2619: FND_MESSAGE.set_token('token', numhold);
2620:
2621: END IF;
2622:
2623:
3140: /*------------------------------------------------------+
3141: | Validating Overcompletion transaction quantity
3142: +------------------------------------------------------*/
3143:
3144: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3145: FND_MESSAGE.set_token('ENTITY1','overcompletion_txn_qty');
3146: FND_MESSAGE.set_token('ENTITY2','zero');
3147:
3148: l_error_exp := FND_MESSAGE.get;
3141: | Validating Overcompletion transaction quantity
3142: +------------------------------------------------------*/
3143:
3144: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3145: FND_MESSAGE.set_token('ENTITY1','overcompletion_txn_qty');
3146: FND_MESSAGE.set_token('ENTITY2','zero');
3147:
3148: l_error_exp := FND_MESSAGE.get;
3149:
3142: +------------------------------------------------------*/
3143:
3144: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3145: FND_MESSAGE.set_token('ENTITY1','overcompletion_txn_qty');
3146: FND_MESSAGE.set_token('ENTITY2','zero');
3147:
3148: l_error_exp := FND_MESSAGE.get;
3149:
3150: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3144: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3145: FND_MESSAGE.set_token('ENTITY1','overcompletion_txn_qty');
3146: FND_MESSAGE.set_token('ENTITY2','zero');
3147:
3148: l_error_exp := FND_MESSAGE.get;
3149:
3150: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3151: l_error_code := FND_MESSAGE.get;
3152:
3146: FND_MESSAGE.set_token('ENTITY2','zero');
3147:
3148: l_error_exp := FND_MESSAGE.get;
3149:
3150: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3151: l_error_code := FND_MESSAGE.get;
3152:
3153:
3154: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
3147:
3148: l_error_exp := FND_MESSAGE.get;
3149:
3150: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3151: l_error_code := FND_MESSAGE.get;
3152:
3153:
3154: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
3155: SET LAST_UPDATE_DATE = SYSDATE,
3165: AND NVL(OVERCOMPLETION_TRANSACTION_QTY,1) <= 0;
3166:
3167: l_count := SQL%ROWCOUNT;
3168:
3169: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3170: FND_MESSAGE.set_token('ENTITY1','transaction quantity-cap');
3171: FND_MESSAGE.set_token('ENTITY2','overcompletion_txn_qty');
3172:
3173: l_error_exp := FND_MESSAGE.get;
3166:
3167: l_count := SQL%ROWCOUNT;
3168:
3169: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3170: FND_MESSAGE.set_token('ENTITY1','transaction quantity-cap');
3171: FND_MESSAGE.set_token('ENTITY2','overcompletion_txn_qty');
3172:
3173: l_error_exp := FND_MESSAGE.get;
3174:
3167: l_count := SQL%ROWCOUNT;
3168:
3169: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3170: FND_MESSAGE.set_token('ENTITY1','transaction quantity-cap');
3171: FND_MESSAGE.set_token('ENTITY2','overcompletion_txn_qty');
3172:
3173: l_error_exp := FND_MESSAGE.get;
3174:
3175: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3169: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3170: FND_MESSAGE.set_token('ENTITY1','transaction quantity-cap');
3171: FND_MESSAGE.set_token('ENTITY2','overcompletion_txn_qty');
3172:
3173: l_error_exp := FND_MESSAGE.get;
3174:
3175: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3176: l_error_code := FND_MESSAGE.get;
3177:
3171: FND_MESSAGE.set_token('ENTITY2','overcompletion_txn_qty');
3172:
3173: l_error_exp := FND_MESSAGE.get;
3174:
3175: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3176: l_error_code := FND_MESSAGE.get;
3177:
3178:
3179:
3172:
3173: l_error_exp := FND_MESSAGE.get;
3174:
3175: FND_MESSAGE.set_name('INV', 'INV_GREATER_THAN');
3176: l_error_code := FND_MESSAGE.get;
3177:
3178:
3179:
3180: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
3949: END IF;--J-dev
3950:
3951: x_return_status := FND_API.G_RET_STS_SUCCESS;
3952:
3953: FND_MESSAGE.clear;
3954:
3955:
3956: EXCEPTION
3957: WHEN OTHERS 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:
3967:
4172: return(FALSE);
4173: END IF;
4174:
4175: IF p_lotuniq = 1 THEN
4176: FND_MESSAGE.set_name('INV','INV_INT_LOTUNIQCODE');
4177: l_error_code := FND_MESSAGE.get;
4178:
4179: UPDATE MTL_TRANSACTION_LOTS_INTERFACE MTLI
4180: SET LAST_UPDATE_DATE = SYSDATE,
4173: END IF;
4174:
4175: IF p_lotuniq = 1 THEN
4176: FND_MESSAGE.set_name('INV','INV_INT_LOTUNIQCODE');
4177: l_error_code := FND_MESSAGE.get;
4178:
4179: UPDATE MTL_TRANSACTION_LOTS_INTERFACE MTLI
4180: SET LAST_UPDATE_DATE = SYSDATE,
4181: LAST_UPDATED_BY = l_userid,
4192: WHERE MLN.LOT_NUMBER = MTLI.LOT_NUMBER
4193: AND MLN.INVENTORY_ITEM_ID <> p_itemid);
4194:
4195: IF SQL%FOUND THEN
4196: FND_MESSAGE.set_name('INV','INV_INT_LOTUNIQEXP');
4197: l_error_exp := FND_MESSAGE.get;
4198:
4199: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
4200: SET LAST_UPDATE_DATE = SYSDATE,
4193: AND MLN.INVENTORY_ITEM_ID <> p_itemid);
4194:
4195: IF SQL%FOUND THEN
4196: FND_MESSAGE.set_name('INV','INV_INT_LOTUNIQEXP');
4197: l_error_exp := FND_MESSAGE.get;
4198:
4199: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
4200: SET LAST_UPDATE_DATE = SYSDATE,
4201: LAST_UPDATED_BY = l_userid,
4306: inv_log_util.trace('validate_quantities IN (lotcheck) - FAIL ' || l_msg_data, 'INV_TXN_MANAGER_GRP', 9);
4307: END IF;
4308: l_error_exp := '';
4309: l_error_code := '';
4310: FND_MESSAGE.clear;
4311: return(FALSE);
4312: END IF;
4313:
4314: IF (l_debug = 1) THEN
4387: inv_log_util.trace('VALIDATE_ADDITIONAL_ATTR IN (lotcheck) - FAIL ' || l_msg_data, 'INV_TXN_MANAGER_GRP', 9);
4388: END IF;
4389: l_error_exp := '';
4390: l_error_code := '';
4391: FND_MESSAGE.clear;
4392: return(FALSE);
4393: END IF;
4394:
4395: -- INVCONV end fabdi
4474:
4475: /*IF (NOT UomConvert(l_itemid,0,l_trxuom, '',
4476: l_priuom, '',l_lotqty,
4477: l_lotpriqty, 0)) THEN */
4478: l_error_exp := FND_MESSAGE.get;
4479:
4480: FND_MESSAGE.set_name('INV','INV_INT_UOMCONVCODE');
4481: l_error_code := FND_MESSAGE.get;
4482:
4476: l_priuom, '',l_lotqty,
4477: l_lotpriqty, 0)) THEN */
4478: l_error_exp := FND_MESSAGE.get;
4479:
4480: FND_MESSAGE.set_name('INV','INV_INT_UOMCONVCODE');
4481: l_error_code := FND_MESSAGE.get;
4482:
4483: UPDATE MTL_TRANSACTION_LOTS_INTERFACE MTLI
4484: SET LAST_UPDATE_DATE = SYSDATE,
4477: l_lotpriqty, 0)) THEN */
4478: l_error_exp := FND_MESSAGE.get;
4479:
4480: FND_MESSAGE.set_name('INV','INV_INT_UOMCONVCODE');
4481: l_error_code := FND_MESSAGE.get;
4482:
4483: UPDATE MTL_TRANSACTION_LOTS_INTERFACE MTLI
4484: SET LAST_UPDATE_DATE = SYSDATE,
4485: LAST_UPDATED_BY = l_userid,
4525: END IF;
4526:
4527: IF ((p_shlfcode = 4) AND (l_lotexpdate IS NULL)) THEN
4528:
4529: FND_MESSAGE.set_name('INV','INV_LOT_EXPREQD');
4530: l_error_exp := FND_MESSAGE.get;
4531: FND_MESSAGE.set_name('INV','INV_LOT_EXPREQD');
4532: l_error_code := FND_MESSAGE.get;
4533:
4526:
4527: IF ((p_shlfcode = 4) AND (l_lotexpdate IS NULL)) THEN
4528:
4529: FND_MESSAGE.set_name('INV','INV_LOT_EXPREQD');
4530: l_error_exp := FND_MESSAGE.get;
4531: FND_MESSAGE.set_name('INV','INV_LOT_EXPREQD');
4532: l_error_code := FND_MESSAGE.get;
4533:
4534: UPDATE MTL_TRANSACTION_LOTS_INTERFACE MTLI
4527: IF ((p_shlfcode = 4) AND (l_lotexpdate IS NULL)) THEN
4528:
4529: FND_MESSAGE.set_name('INV','INV_LOT_EXPREQD');
4530: l_error_exp := FND_MESSAGE.get;
4531: FND_MESSAGE.set_name('INV','INV_LOT_EXPREQD');
4532: l_error_code := FND_MESSAGE.get;
4533:
4534: UPDATE MTL_TRANSACTION_LOTS_INTERFACE MTLI
4535: SET LAST_UPDATE_DATE = SYSDATE,
4528:
4529: FND_MESSAGE.set_name('INV','INV_LOT_EXPREQD');
4530: l_error_exp := FND_MESSAGE.get;
4531: FND_MESSAGE.set_name('INV','INV_LOT_EXPREQD');
4532: l_error_code := FND_MESSAGE.get;
4533:
4534: UPDATE MTL_TRANSACTION_LOTS_INTERFACE MTLI
4535: SET LAST_UPDATE_DATE = SYSDATE,
4536: LAST_UPDATED_BY = l_userid,
4636: END IF ;
4637:
4638: EXCEPTION
4639: WHEN OTHERS THEN
4640: FND_MESSAGE.set_name('INV','INV_INT_UOMCONVCODE');
4641:
4642: --WHENEVER SQL ERROR CONTINUE;
4643: UPDATE MTL_TRANSACTIONS_INTERFACE
4644: SET LAST_UPDATE_DATE = SYSDATE,
5189: FROM MTL_PARAMETERS
5190: WHERE ORGANIZATION_ID = p_ltv_orgid ;
5191: EXCEPTION
5192: WHEN NO_DATA_FOUND THEN
5193: FND_MESSAGE.set_name('INV','INV_INT_ORGEXP');
5194: return(FALSE);
5195: END;
5196:
5197: IF l_ltv_project_ref_enabled = 0 THEN
5204: IF p_ltv_srctype = 5 THEN
5205: IF p_ltv_scheduled_flag = 1 THEN
5206:
5207: IF p_ltv_trx_src_id IS NULL THEN
5208: FND_MESSAGE.set_name('INV','INV_INT_SRCWIPEXP');
5209: return FALSE;
5210: END IF;
5211:
5212: IF p_ltv_flow_schedule = 0 THEN
5215: l_ltv_project_id,
5216: l_ltv_task_id;
5217:
5218: IF SQL%NOTFOUND THEN
5219: FND_MESSAGE.set_name('INV','INV_INT_SRCWIPEXP');
5220: CLOSE LTV1;
5221: return(FALSE);
5222: END IF;
5223: CLOSE LTV1;
5228: l_ltv_project_id,
5229: l_ltv_task_id;
5230:
5231: IF SQL%NOTFOUND THEN
5232: FND_MESSAGE.set_name('INV','INV_INT_SRCWIPEXP');
5233: CLOSE LTV2;
5234: return(FALSE);
5235: END IF;
5236: CLOSE LTV2;
5265: --Bug #6449667, Modified the code below so that relavant error message are displayed from project validation API.
5266: IF (l_debug=1) THEN
5267: inv_log_util.trace('Error in validate_loc_for_project : ' || l_ltv_error_mesg, 'INV_TXN_MANAGER_GRP','9');
5268: END IF;
5269: --FND_MESSAGE.set_name('INV','INV_INT_SRCWIPEXP');
5270: FND_MESSAGE.set_name('INV', 'INV_FND_GENERIC_MSG');
5271: FND_MESSAGE.set_token('MSG', l_ltv_error_mesg);
5272: return(FALSE);
5273: ELSE
5266: IF (l_debug=1) THEN
5267: inv_log_util.trace('Error in validate_loc_for_project : ' || l_ltv_error_mesg, 'INV_TXN_MANAGER_GRP','9');
5268: END IF;
5269: --FND_MESSAGE.set_name('INV','INV_INT_SRCWIPEXP');
5270: FND_MESSAGE.set_name('INV', 'INV_FND_GENERIC_MSG');
5271: FND_MESSAGE.set_token('MSG', l_ltv_error_mesg);
5272: return(FALSE);
5273: ELSE
5274: FND_MESSAGE.clear;
5267: inv_log_util.trace('Error in validate_loc_for_project : ' || l_ltv_error_mesg, 'INV_TXN_MANAGER_GRP','9');
5268: END IF;
5269: --FND_MESSAGE.set_name('INV','INV_INT_SRCWIPEXP');
5270: FND_MESSAGE.set_name('INV', 'INV_FND_GENERIC_MSG');
5271: FND_MESSAGE.set_token('MSG', l_ltv_error_mesg);
5272: return(FALSE);
5273: ELSE
5274: FND_MESSAGE.clear;
5275: return(TRUE);
5270: FND_MESSAGE.set_name('INV', 'INV_FND_GENERIC_MSG');
5271: FND_MESSAGE.set_token('MSG', l_ltv_error_mesg);
5272: return(FALSE);
5273: ELSE
5274: FND_MESSAGE.clear;
5275: return(TRUE);
5276: END IF;
5277:
5278:
5316: END IF;
5317:
5318: IF (l_unit_no_ok = 0) THEN
5319:
5320: FND_MESSAGE.set_name('INV','INV_INT_UNITNUMBER');
5321: FND_MESSAGE.set_token('ROUTINE','validate_unit_number');
5322: return FALSE;
5323: ELSE
5324: FND_MESSAGE.clear;
5317:
5318: IF (l_unit_no_ok = 0) THEN
5319:
5320: FND_MESSAGE.set_name('INV','INV_INT_UNITNUMBER');
5321: FND_MESSAGE.set_token('ROUTINE','validate_unit_number');
5322: return FALSE;
5323: ELSE
5324: FND_MESSAGE.clear;
5325: return TRUE;
5320: FND_MESSAGE.set_name('INV','INV_INT_UNITNUMBER');
5321: FND_MESSAGE.set_token('ROUTINE','validate_unit_number');
5322: return FALSE;
5323: ELSE
5324: FND_MESSAGE.clear;
5325: return TRUE;
5326: END IF;
5327:
5328: EXCEPTION
6525: l_srctype = INV_Globals.G_SourceType_AccountAlias OR
6526: l_srctype = INV_Globals.G_SourceType_IntOrder)
6527: AND (l_trxsrc is NULL) ) THEN
6528: IF ( NOT getsrcid(l_trxsrc, l_srctype, l_orgid, l_rowid)) THEN
6529: FND_MESSAGE.set_name('INV', 'INV_INT_SRCSEGCODE');
6530: l_error_code := FND_MESSAGE.get;
6531:
6532: errupdate(l_rowid,null);
6533: --exit;
6526: l_srctype = INV_Globals.G_SourceType_IntOrder)
6527: AND (l_trxsrc is NULL) ) THEN
6528: IF ( NOT getsrcid(l_trxsrc, l_srctype, l_orgid, l_rowid)) THEN
6529: FND_MESSAGE.set_name('INV', 'INV_INT_SRCSEGCODE');
6530: l_error_code := FND_MESSAGE.get;
6531:
6532: errupdate(l_rowid,null);
6533: --exit;
6534: RAISE fnd_api.g_exc_error;
6536: END IF;
6537:
6538: IF l_itemid IS NULL THEN
6539: IF (NOT getitemid(l_itemid, l_orgid, l_rowid)) THEN
6540: FND_MESSAGE.set_name('INV', 'INV_INT_ITMSEGCODE');
6541: l_error_code := FND_MESSAGE.get;
6542:
6543: errupdate(l_rowid,null);
6544: --exit;
6537:
6538: IF l_itemid IS NULL THEN
6539: IF (NOT getitemid(l_itemid, l_orgid, l_rowid)) THEN
6540: FND_MESSAGE.set_name('INV', 'INV_INT_ITMSEGCODE');
6541: l_error_code := FND_MESSAGE.get;
6542:
6543: errupdate(l_rowid,null);
6544: --exit;
6545: RAISE fnd_api.g_exc_error;
6630: IF (l_resloc = 1) THEN
6631: l_locctrl := 2;
6632: END IF;
6633: IF ( NOT getlocid(l_locid, l_orgid, l_subinv, l_rowid, l_locctrl)) THEN
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;
6631: l_locctrl := 2;
6632: END IF;
6633: IF ( NOT getlocid(l_locid, l_orgid, l_subinv, l_rowid, l_locctrl)) THEN
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;
6654: END;
6655:
6656: IF l_project_ref_enabled = 1 THEN
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;
6655:
6656: IF l_project_ref_enabled = 1 THEN
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;
6751: IF ( l_loci <> -1 AND (l_locctrl <>1 AND l_acttype <>24) ) THEN
6752: IF ( NOT validate_loc_for_project(l_locid, l_orgid, l_srctype,
6753: l_acttype, l_trxsrc, tev_flow_schedule, tev_scheduled_flag) ) THEN
6754:
6755: l_error_exp := FND_MESSAGE.get;
6756:
6757: FND_MESSAGE.set_name('INV', 'INV_INT_LOCSEGCODE');
6758: l_error_code := FND_MESSAGE.get;
6759:
6753: l_acttype, l_trxsrc, tev_flow_schedule, tev_scheduled_flag) ) THEN
6754:
6755: l_error_exp := FND_MESSAGE.get;
6756:
6757: FND_MESSAGE.set_name('INV', 'INV_INT_LOCSEGCODE');
6758: l_error_code := FND_MESSAGE.get;
6759:
6760: errupdate(l_rowid,null);
6761: l_count := l_count + 1;
6754:
6755: l_error_exp := FND_MESSAGE.get;
6756:
6757: FND_MESSAGE.set_name('INV', 'INV_INT_LOCSEGCODE');
6758: l_error_code := FND_MESSAGE.get;
6759:
6760: errupdate(l_rowid,null);
6761: l_count := l_count + 1;
6762: --exit;
6874: l_xorgid,
6875: l_req_line_id);
6876:
6877: IF (x_return_status <> 'S') THEN
6878: l_error_exp := FND_MESSAGE.get;
6879: FND_MESSAGE.set_name('INV', 'INV_INT_XLOCCODE');
6880: l_error_code := FND_MESSAGE.get;
6881:
6882: errupdate(l_rowid,null);
6875: l_req_line_id);
6876:
6877: IF (x_return_status <> 'S') THEN
6878: l_error_exp := FND_MESSAGE.get;
6879: FND_MESSAGE.set_name('INV', 'INV_INT_XLOCCODE');
6880: l_error_code := FND_MESSAGE.get;
6881:
6882: errupdate(l_rowid,null);
6883: l_count := l_count + 1;
6876:
6877: IF (x_return_status <> 'S') THEN
6878: l_error_exp := FND_MESSAGE.get;
6879: FND_MESSAGE.set_name('INV', 'INV_INT_XLOCCODE');
6880: l_error_code := FND_MESSAGE.get;
6881:
6882: errupdate(l_rowid,null);
6883: l_count := l_count + 1;
6884: --exit;
6895: END IF;
6896:
6897: IF (NOT getxlocid(l_xlocid, l_xorgid, l_xsubinv, l_rowid,
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;
6896:
6897: IF (NOT getxlocid(l_xlocid, l_xorgid, l_xsubinv, l_rowid,
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:
6917: END;
6918:
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;
6918:
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 */
6993: IF ( (l_xlocid IS NOT NULL) AND (l_xlocctrl <> 1) AND (l_acttype = 2 OR l_acttype = 3)) THEN
6994: IF ( NOT validate_loc_for_project(l_xlocid, l_xorgid, l_srctype,
6995: l_acttype, l_trxsrc, tev_flow_schedule, tev_scheduled_flag) ) THEN
6996:
6997: l_error_exp := FND_MESSAGE.get;
6998:
6999: FND_MESSAGE.set_name('INV', 'INV_INT_LOCSEGCODE');
7000: l_error_code := FND_MESSAGE.get;
7001:
6995: l_acttype, l_trxsrc, tev_flow_schedule, tev_scheduled_flag) ) THEN
6996:
6997: l_error_exp := FND_MESSAGE.get;
6998:
6999: FND_MESSAGE.set_name('INV', 'INV_INT_LOCSEGCODE');
7000: l_error_code := FND_MESSAGE.get;
7001:
7002: errupdate(l_rowid,null);
7003: l_count := l_count + 1;
6996:
6997: l_error_exp := FND_MESSAGE.get;
6998:
6999: FND_MESSAGE.set_name('INV', 'INV_INT_LOCSEGCODE');
7000: l_error_code := FND_MESSAGE.get;
7001:
7002: errupdate(l_rowid,null);
7003: l_count := l_count + 1;
7004: --exit;
7020: WHEN OTHERS THEN
7021: /*IF (NOT UomConvert(l_itemid,0,l_trxuom, '',
7022: l_priuom, '', l_trxqty,
7023: l_priqty, 0)) THEN */
7024: l_error_exp := FND_MESSAGE.get;
7025:
7026: FND_MESSAGE.set_name('INV', 'INV_INT_UOMSEGCODE');
7027: l_error_code := FND_MESSAGE.get;
7028:
7022: l_priuom, '', l_trxqty,
7023: l_priqty, 0)) THEN */
7024: l_error_exp := FND_MESSAGE.get;
7025:
7026: FND_MESSAGE.set_name('INV', 'INV_INT_UOMSEGCODE');
7027: l_error_code := FND_MESSAGE.get;
7028:
7029: errupdate(l_rowid,null);
7030: l_count := l_count + 1;
7023: l_priqty, 0)) THEN */
7024: l_error_exp := FND_MESSAGE.get;
7025:
7026: FND_MESSAGE.set_name('INV', 'INV_INT_UOMSEGCODE');
7027: l_error_code := FND_MESSAGE.get;
7028:
7029: errupdate(l_rowid,null);
7030: l_count := l_count + 1;
7031: --exit;
7041: l_priqty,l_trxdate, l_scheduled_payback_date,l_error_code);
7042:
7043: IF(l_result = 1) THEN
7044:
7045: l_error_exp := FND_MESSAGE.get;
7046:
7047: errupdate(l_rowid,null);
7048: l_count := l_count + 1;
7049: --exit;
7067: l_prdid := get_open_period(l_orgid,l_trxdate,0);
7068:
7069:
7070: IF (l_prdid = -1 OR l_prdid = 0) THEN
7071: FND_MESSAGE.set_name('INV', 'INV_INT_PRDCODE');
7072: l_error_code := FND_MESSAGE.get;
7073: FND_MESSAGE.set_name('INV', 'INV_NO_OPEN_PERIOD');
7074: /*END IF;*/
7075:
7068:
7069:
7070: IF (l_prdid = -1 OR l_prdid = 0) THEN
7071: FND_MESSAGE.set_name('INV', 'INV_INT_PRDCODE');
7072: l_error_code := FND_MESSAGE.get;
7073: FND_MESSAGE.set_name('INV', 'INV_NO_OPEN_PERIOD');
7074: /*END IF;*/
7075:
7076: l_error_exp := FND_MESSAGE.get;
7069:
7070: IF (l_prdid = -1 OR l_prdid = 0) THEN
7071: FND_MESSAGE.set_name('INV', 'INV_INT_PRDCODE');
7072: l_error_code := FND_MESSAGE.get;
7073: FND_MESSAGE.set_name('INV', 'INV_NO_OPEN_PERIOD');
7074: /*END IF;*/
7075:
7076: l_error_exp := FND_MESSAGE.get;
7077:
7072: l_error_code := FND_MESSAGE.get;
7073: FND_MESSAGE.set_name('INV', 'INV_NO_OPEN_PERIOD');
7074: /*END IF;*/
7075:
7076: l_error_exp := FND_MESSAGE.get;
7077:
7078: errupdate(l_rowid,null);
7079: l_count := l_count + 1;
7080: --exit;
7122: IF (l_debug = 1) THEN
7123: inv_log_util.trace('l_validate_xfer_org is TRUE', 'INV_TXN_MANAGER_GRP', 9);
7124: END IF;
7125: IF ( get_open_period(l_xorgid,l_trxdate,0) IN (-1, 0)) THEN
7126: FND_MESSAGE.set_name('INV', 'INV_INT_PRDCODE');
7127: l_error_code := FND_MESSAGE.get;
7128: FND_MESSAGE.set_name('INV', 'INV_NO_OPEN_PERIOD_TOORG');
7129: l_error_exp := FND_MESSAGE.get;
7130: errupdate(l_rowid,null);
7123: inv_log_util.trace('l_validate_xfer_org is TRUE', 'INV_TXN_MANAGER_GRP', 9);
7124: END IF;
7125: IF ( get_open_period(l_xorgid,l_trxdate,0) IN (-1, 0)) THEN
7126: FND_MESSAGE.set_name('INV', 'INV_INT_PRDCODE');
7127: l_error_code := FND_MESSAGE.get;
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;
7124: END IF;
7125: IF ( get_open_period(l_xorgid,l_trxdate,0) IN (-1, 0)) THEN
7126: FND_MESSAGE.set_name('INV', 'INV_INT_PRDCODE');
7127: l_error_code := FND_MESSAGE.get;
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;
7125: IF ( get_open_period(l_xorgid,l_trxdate,0) IN (-1, 0)) THEN
7126: FND_MESSAGE.set_name('INV', 'INV_INT_PRDCODE');
7127: l_error_code := FND_MESSAGE.get;
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;
7151: | Validate material account
7152: +-----------------------------------------------------------*/
7153:
7154: IF (l_validate_full) THEN --J-dev
7155: FND_MESSAGE.set_name('INV','INV_MATERIAL_ACCOUNT');
7156: l_account := FND_MESSAGE.get ;
7157:
7158: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7159: fnd_message.set_token('ACCOUNT',l_account);
7152: +-----------------------------------------------------------*/
7153:
7154: IF (l_validate_full) THEN --J-dev
7155: FND_MESSAGE.set_name('INV','INV_MATERIAL_ACCOUNT');
7156: l_account := FND_MESSAGE.get ;
7157:
7158: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7159: fnd_message.set_token('ACCOUNT',l_account);
7160: l_error_code := fnd_message.get;
7154: IF (l_validate_full) THEN --J-dev
7155: FND_MESSAGE.set_name('INV','INV_MATERIAL_ACCOUNT');
7156: l_account := FND_MESSAGE.get ;
7157:
7158: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7159: fnd_message.set_token('ACCOUNT',l_account);
7160: l_error_code := fnd_message.get;
7161:
7162: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7155: FND_MESSAGE.set_name('INV','INV_MATERIAL_ACCOUNT');
7156: l_account := FND_MESSAGE.get ;
7157:
7158: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7159: fnd_message.set_token('ACCOUNT',l_account);
7160: l_error_code := fnd_message.get;
7161:
7162: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7163: fnd_message.set_token('ACCOUNT',l_account);
7156: l_account := FND_MESSAGE.get ;
7157:
7158: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7159: fnd_message.set_token('ACCOUNT',l_account);
7160: l_error_code := fnd_message.get;
7161:
7162: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7163: fnd_message.set_token('ACCOUNT',l_account);
7164: l_error_exp := fnd_message.get;
7158: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7159: fnd_message.set_token('ACCOUNT',l_account);
7160: l_error_code := fnd_message.get;
7161:
7162: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7163: fnd_message.set_token('ACCOUNT',l_account);
7164: l_error_exp := fnd_message.get;
7165:
7166: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7159: fnd_message.set_token('ACCOUNT',l_account);
7160: l_error_code := fnd_message.get;
7161:
7162: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7163: fnd_message.set_token('ACCOUNT',l_account);
7164: l_error_exp := fnd_message.get;
7165:
7166: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7167: SET LAST_UPDATE_DATE = SYSDATE,
7160: l_error_code := fnd_message.get;
7161:
7162: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7163: fnd_message.set_token('ACCOUNT',l_account);
7164: l_error_exp := fnd_message.get;
7165:
7166: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7167: SET LAST_UPDATE_DATE = SYSDATE,
7168: LAST_UPDATED_BY = p_userid,
7199: | Validate material overhead account
7200: +-----------------------------------------------------------*/
7201:
7202: IF (l_validate_full) THEN --J-dev
7203: FND_MESSAGE.set_name('INV','INV_MAT_OVRHD_ACCOUNT');
7204: l_account := FND_MESSAGE.get ;
7205:
7206: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7207: fnd_message.set_token('ACCOUNT',l_account);
7200: +-----------------------------------------------------------*/
7201:
7202: IF (l_validate_full) THEN --J-dev
7203: FND_MESSAGE.set_name('INV','INV_MAT_OVRHD_ACCOUNT');
7204: l_account := FND_MESSAGE.get ;
7205:
7206: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7207: fnd_message.set_token('ACCOUNT',l_account);
7208: l_error_code := fnd_message.get;
7202: IF (l_validate_full) THEN --J-dev
7203: FND_MESSAGE.set_name('INV','INV_MAT_OVRHD_ACCOUNT');
7204: l_account := FND_MESSAGE.get ;
7205:
7206: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7207: fnd_message.set_token('ACCOUNT',l_account);
7208: l_error_code := fnd_message.get;
7209:
7210: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7203: FND_MESSAGE.set_name('INV','INV_MAT_OVRHD_ACCOUNT');
7204: l_account := FND_MESSAGE.get ;
7205:
7206: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7207: fnd_message.set_token('ACCOUNT',l_account);
7208: l_error_code := fnd_message.get;
7209:
7210: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7211: fnd_message.set_token('ACCOUNT',l_account);
7204: l_account := FND_MESSAGE.get ;
7205:
7206: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7207: fnd_message.set_token('ACCOUNT',l_account);
7208: l_error_code := fnd_message.get;
7209:
7210: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7211: fnd_message.set_token('ACCOUNT',l_account);
7212: l_error_exp := fnd_message.get;
7206: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7207: fnd_message.set_token('ACCOUNT',l_account);
7208: l_error_code := fnd_message.get;
7209:
7210: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7211: fnd_message.set_token('ACCOUNT',l_account);
7212: l_error_exp := fnd_message.get;
7213:
7214: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7207: fnd_message.set_token('ACCOUNT',l_account);
7208: l_error_code := fnd_message.get;
7209:
7210: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7211: fnd_message.set_token('ACCOUNT',l_account);
7212: l_error_exp := fnd_message.get;
7213:
7214: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7215: SET LAST_UPDATE_DATE = SYSDATE,
7208: l_error_code := fnd_message.get;
7209:
7210: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7211: fnd_message.set_token('ACCOUNT',l_account);
7212: l_error_exp := fnd_message.get;
7213:
7214: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7215: SET LAST_UPDATE_DATE = SYSDATE,
7216: LAST_UPDATED_BY = p_userid,
7246: | Validate resource account
7247: +-----------------------------------------------------------*/
7248:
7249: IF (l_validate_full) THEN --J-dev
7250: FND_MESSAGE.set_name('INV','INV_RESOURCE_ACCOUNT');
7251: l_account := FND_MESSAGE.get ;
7252:
7253: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7254: fnd_message.set_token('ACCOUNT',l_account);
7247: +-----------------------------------------------------------*/
7248:
7249: IF (l_validate_full) THEN --J-dev
7250: FND_MESSAGE.set_name('INV','INV_RESOURCE_ACCOUNT');
7251: l_account := FND_MESSAGE.get ;
7252:
7253: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7254: fnd_message.set_token('ACCOUNT',l_account);
7255: l_error_code := fnd_message.get;
7249: IF (l_validate_full) THEN --J-dev
7250: FND_MESSAGE.set_name('INV','INV_RESOURCE_ACCOUNT');
7251: l_account := FND_MESSAGE.get ;
7252:
7253: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7254: fnd_message.set_token('ACCOUNT',l_account);
7255: l_error_code := fnd_message.get;
7256:
7257: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7250: FND_MESSAGE.set_name('INV','INV_RESOURCE_ACCOUNT');
7251: l_account := FND_MESSAGE.get ;
7252:
7253: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7254: fnd_message.set_token('ACCOUNT',l_account);
7255: l_error_code := fnd_message.get;
7256:
7257: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7258: fnd_message.set_token('ACCOUNT',l_account);
7251: l_account := FND_MESSAGE.get ;
7252:
7253: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7254: fnd_message.set_token('ACCOUNT',l_account);
7255: l_error_code := fnd_message.get;
7256:
7257: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7258: fnd_message.set_token('ACCOUNT',l_account);
7259: l_error_exp := fnd_message.get;
7253: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7254: fnd_message.set_token('ACCOUNT',l_account);
7255: l_error_code := fnd_message.get;
7256:
7257: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7258: fnd_message.set_token('ACCOUNT',l_account);
7259: l_error_exp := fnd_message.get;
7260:
7261: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7254: fnd_message.set_token('ACCOUNT',l_account);
7255: l_error_code := fnd_message.get;
7256:
7257: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7258: fnd_message.set_token('ACCOUNT',l_account);
7259: l_error_exp := fnd_message.get;
7260:
7261: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7262: SET LAST_UPDATE_DATE = SYSDATE,
7255: l_error_code := fnd_message.get;
7256:
7257: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7258: fnd_message.set_token('ACCOUNT',l_account);
7259: l_error_exp := fnd_message.get;
7260:
7261: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7262: SET LAST_UPDATE_DATE = SYSDATE,
7263: LAST_UPDATED_BY = p_userid,
7293: | Validate outside processing account
7294: +-----------------------------------------------------------*/
7295:
7296: IF (l_validate_full) THEN --J-dev
7297: FND_MESSAGE.set_name('INV','INV_OUTSIDE_PROC_ACCOUNT');
7298: l_account := FND_MESSAGE.get ;
7299:
7300: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7301: fnd_message.set_token('ACCOUNT',l_account);
7294: +-----------------------------------------------------------*/
7295:
7296: IF (l_validate_full) THEN --J-dev
7297: FND_MESSAGE.set_name('INV','INV_OUTSIDE_PROC_ACCOUNT');
7298: l_account := FND_MESSAGE.get ;
7299:
7300: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7301: fnd_message.set_token('ACCOUNT',l_account);
7302: l_error_code := fnd_message.get;
7296: IF (l_validate_full) THEN --J-dev
7297: FND_MESSAGE.set_name('INV','INV_OUTSIDE_PROC_ACCOUNT');
7298: l_account := FND_MESSAGE.get ;
7299:
7300: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7301: fnd_message.set_token('ACCOUNT',l_account);
7302: l_error_code := fnd_message.get;
7303:
7304: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7297: FND_MESSAGE.set_name('INV','INV_OUTSIDE_PROC_ACCOUNT');
7298: l_account := FND_MESSAGE.get ;
7299:
7300: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7301: fnd_message.set_token('ACCOUNT',l_account);
7302: l_error_code := fnd_message.get;
7303:
7304: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7305: fnd_message.set_token('ACCOUNT',l_account);
7298: l_account := FND_MESSAGE.get ;
7299:
7300: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7301: fnd_message.set_token('ACCOUNT',l_account);
7302: l_error_code := fnd_message.get;
7303:
7304: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7305: fnd_message.set_token('ACCOUNT',l_account);
7306: l_error_exp := fnd_message.get;
7300: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7301: fnd_message.set_token('ACCOUNT',l_account);
7302: l_error_code := fnd_message.get;
7303:
7304: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7305: fnd_message.set_token('ACCOUNT',l_account);
7306: l_error_exp := fnd_message.get;
7307:
7308: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7301: fnd_message.set_token('ACCOUNT',l_account);
7302: l_error_code := fnd_message.get;
7303:
7304: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7305: fnd_message.set_token('ACCOUNT',l_account);
7306: l_error_exp := fnd_message.get;
7307:
7308: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7309: SET LAST_UPDATE_DATE = SYSDATE,
7302: l_error_code := fnd_message.get;
7303:
7304: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7305: fnd_message.set_token('ACCOUNT',l_account);
7306: l_error_exp := fnd_message.get;
7307:
7308: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7309: SET LAST_UPDATE_DATE = SYSDATE,
7310: LAST_UPDATED_BY = p_userid,
7340: | Validate overhead account
7341: +-----------------------------------------------------------*/
7342:
7343: IF (l_validate_full) THEN --J-dev
7344: FND_MESSAGE.set_name('INV','INV_OVERHEAD_ACCOUNT');
7345: l_account := FND_MESSAGE.get ;
7346:
7347: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7348: fnd_message.set_token('ACCOUNT',l_account);
7341: +-----------------------------------------------------------*/
7342:
7343: IF (l_validate_full) THEN --J-dev
7344: FND_MESSAGE.set_name('INV','INV_OVERHEAD_ACCOUNT');
7345: l_account := FND_MESSAGE.get ;
7346:
7347: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7348: fnd_message.set_token('ACCOUNT',l_account);
7349: l_error_code := fnd_message.get;
7343: IF (l_validate_full) THEN --J-dev
7344: FND_MESSAGE.set_name('INV','INV_OVERHEAD_ACCOUNT');
7345: l_account := FND_MESSAGE.get ;
7346:
7347: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7348: fnd_message.set_token('ACCOUNT',l_account);
7349: l_error_code := fnd_message.get;
7350:
7351: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7344: FND_MESSAGE.set_name('INV','INV_OVERHEAD_ACCOUNT');
7345: l_account := FND_MESSAGE.get ;
7346:
7347: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7348: fnd_message.set_token('ACCOUNT',l_account);
7349: l_error_code := fnd_message.get;
7350:
7351: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7352: fnd_message.set_token('ACCOUNT',l_account);
7345: l_account := FND_MESSAGE.get ;
7346:
7347: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7348: fnd_message.set_token('ACCOUNT',l_account);
7349: l_error_code := fnd_message.get;
7350:
7351: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7352: fnd_message.set_token('ACCOUNT',l_account);
7353: l_error_exp := fnd_message.get;
7347: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7348: fnd_message.set_token('ACCOUNT',l_account);
7349: l_error_code := fnd_message.get;
7350:
7351: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7352: fnd_message.set_token('ACCOUNT',l_account);
7353: l_error_exp := fnd_message.get;
7354:
7355: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7348: fnd_message.set_token('ACCOUNT',l_account);
7349: l_error_code := fnd_message.get;
7350:
7351: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7352: fnd_message.set_token('ACCOUNT',l_account);
7353: l_error_exp := fnd_message.get;
7354:
7355: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7356: SET LAST_UPDATE_DATE = SYSDATE,
7349: l_error_code := fnd_message.get;
7350:
7351: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7352: fnd_message.set_token('ACCOUNT',l_account);
7353: l_error_exp := fnd_message.get;
7354:
7355: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7356: SET LAST_UPDATE_DATE = SYSDATE,
7357: LAST_UPDATED_BY = p_userid,
7404:
7405: IF l_lcm_enabled_org = 'Y' then
7406:
7407: IF (l_validate_full) THEN --J-dev
7408: FND_MESSAGE.set_name('INV','INV_MATERIAL_EXP_ACCOUNT');
7409: l_account := FND_MESSAGE.get ;
7410:
7411: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7412: fnd_message.set_token('ACCOUNT',l_account);
7405: IF l_lcm_enabled_org = 'Y' then
7406:
7407: IF (l_validate_full) THEN --J-dev
7408: FND_MESSAGE.set_name('INV','INV_MATERIAL_EXP_ACCOUNT');
7409: l_account := FND_MESSAGE.get ;
7410:
7411: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7412: fnd_message.set_token('ACCOUNT',l_account);
7413: l_error_code := fnd_message.get;
7407: IF (l_validate_full) THEN --J-dev
7408: FND_MESSAGE.set_name('INV','INV_MATERIAL_EXP_ACCOUNT');
7409: l_account := FND_MESSAGE.get ;
7410:
7411: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7412: fnd_message.set_token('ACCOUNT',l_account);
7413: l_error_code := fnd_message.get;
7414:
7415: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7408: FND_MESSAGE.set_name('INV','INV_MATERIAL_EXP_ACCOUNT');
7409: l_account := FND_MESSAGE.get ;
7410:
7411: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7412: fnd_message.set_token('ACCOUNT',l_account);
7413: l_error_code := fnd_message.get;
7414:
7415: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7416: fnd_message.set_token('ACCOUNT',l_account);
7409: l_account := FND_MESSAGE.get ;
7410:
7411: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7412: fnd_message.set_token('ACCOUNT',l_account);
7413: l_error_code := fnd_message.get;
7414:
7415: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7416: fnd_message.set_token('ACCOUNT',l_account);
7417: l_error_exp := fnd_message.get;
7411: fnd_message.set_name('INV', 'INV_INT_ACCCODE');
7412: fnd_message.set_token('ACCOUNT',l_account);
7413: l_error_code := fnd_message.get;
7414:
7415: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7416: fnd_message.set_token('ACCOUNT',l_account);
7417: l_error_exp := fnd_message.get;
7418:
7419: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7412: fnd_message.set_token('ACCOUNT',l_account);
7413: l_error_code := fnd_message.get;
7414:
7415: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7416: fnd_message.set_token('ACCOUNT',l_account);
7417: l_error_exp := fnd_message.get;
7418:
7419: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7420: SET LAST_UPDATE_DATE = SYSDATE,
7413: l_error_code := fnd_message.get;
7414:
7415: fnd_message.set_name('INV', 'INV_INT_ACCEXP');
7416: fnd_message.set_token('ACCOUNT',l_account);
7417: l_error_exp := fnd_message.get;
7418:
7419: UPDATE MTL_TRANSACTIONS_INTERFACE MTI
7420: SET LAST_UPDATE_DATE = SYSDATE,
7421: LAST_UPDATED_BY = p_userid,
7862: **************************************************************/
7863: IF( l_acttype not in (40,41)) THEN
7864: /** end of changes for lot transactions **/
7865: IF (NOT getacctid(l_acct, l_orgid, l_rowid)) THEN
7866: FND_MESSAGE.set_name('INV', 'INV_INT_ACTCODE');
7867: l_error_code := FND_MESSAGE.get;
7868:
7869: errupdate(l_rowid,null);
7870: --exit;
7863: IF( l_acttype not in (40,41)) THEN
7864: /** end of changes for lot transactions **/
7865: IF (NOT getacctid(l_acct, l_orgid, l_rowid)) THEN
7866: FND_MESSAGE.set_name('INV', 'INV_INT_ACTCODE');
7867: l_error_code := FND_MESSAGE.get;
7868:
7869: errupdate(l_rowid,null);
7870: --exit;
7871: RAISE fnd_api.g_exc_error;
7877:
7878: -- Bug#4247753. Calling the functon, validate_acctid() for validating the Account combination ID
7879: IF ( l_acct IS NOT NULL AND (NOT l_acctid_validated)) THEN
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;
7878: -- Bug#4247753. Calling the functon, validate_acctid() for validating the Account combination ID
7879: IF ( l_acct IS NOT NULL AND (NOT l_acctid_validated)) THEN
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;
7889: /* Validate the unit number for unit_effectivity */
7890:
7891: IF (NOT validate_unit_number(l_unit_number,l_orgid,l_itemid,l_srctype,l_acttype))
7892: THEN
7893: l_error_exp := FND_MESSAGE.get;
7894: l_error_exp := FND_MESSAGE.get;
7895:
7896: FND_MESSAGE.set_name('INV', 'INV_INT_UNITNUMBER');
7897: l_error_code := FND_MESSAGE.get;
7890:
7891: IF (NOT validate_unit_number(l_unit_number,l_orgid,l_itemid,l_srctype,l_acttype))
7892: THEN
7893: l_error_exp := FND_MESSAGE.get;
7894: l_error_exp := FND_MESSAGE.get;
7895:
7896: FND_MESSAGE.set_name('INV', 'INV_INT_UNITNUMBER');
7897: l_error_code := FND_MESSAGE.get;
7898:
7892: THEN
7893: l_error_exp := FND_MESSAGE.get;
7894: l_error_exp := FND_MESSAGE.get;
7895:
7896: FND_MESSAGE.set_name('INV', 'INV_INT_UNITNUMBER');
7897: l_error_code := FND_MESSAGE.get;
7898:
7899: errupdate(l_rowid,null);
7900: l_count := l_count + 1;
7893: l_error_exp := FND_MESSAGE.get;
7894: l_error_exp := FND_MESSAGE.get;
7895:
7896: FND_MESSAGE.set_name('INV', 'INV_INT_UNITNUMBER');
7897: l_error_code := FND_MESSAGE.get;
7898:
7899: errupdate(l_rowid,null);
7900: l_count := l_count + 1;
7901: --exit;
7917: WHEN OTHERS THEN
7918: /*IF (NOT UomConvert(l_itemid,0,l_trxuom,'',l_priuom,'',
7919: l_overcomp_txn_qty, l_overcomp_primary_qty,0))
7920: THEN */
7921: l_error_exp := FND_MESSAGE.get;
7922:
7923: FND_MESSAGE.set_name('INV', 'INV_INT_UOMCONVCODE');
7924: l_error_code := FND_MESSAGE.get;
7925:
7919: l_overcomp_txn_qty, l_overcomp_primary_qty,0))
7920: THEN */
7921: l_error_exp := FND_MESSAGE.get;
7922:
7923: FND_MESSAGE.set_name('INV', 'INV_INT_UOMCONVCODE');
7924: l_error_code := FND_MESSAGE.get;
7925:
7926: errupdate(l_rowid,null);
7927: l_count := l_count + 1;
7920: THEN */
7921: l_error_exp := FND_MESSAGE.get;
7922:
7923: FND_MESSAGE.set_name('INV', 'INV_INT_UOMCONVCODE');
7924: l_error_code := FND_MESSAGE.get;
7925:
7926: errupdate(l_rowid,null);
7927: l_count := l_count + 1;
7928: END;
8268: WHERE ROWID = l_rowid;
8269: END IF;
8270: ELSE
8271: l_error_exp := x_msg_data;
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;
8269: END IF;
8270: ELSE
8271: l_error_exp := x_msg_data;
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;
8414: END IF;
8415:
8416: l_error_exp := '';
8417: l_error_code := '';
8418: FND_MESSAGE.clear;
8419: return;
8420: END validate_lines;
8421:
8422:
10873: x_lot_ser_attr_tbl := l_lot_ser_attr_tbl;
10874: EXCEPTION
10875: WHEN OTHERS
10876: THEN
10877: fnd_message.set_name ('WMS', 'WMS_GET_LOT_ATTR_ERROR');
10878: fnd_msg_pub.ADD;
10879:
10880: IF (l_debug = 1)
10881: THEN
12283: END IF;
12284:
12285: IF (l_serial_diff = -1)
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;
12376: , 'tmpinsert2'
12377: );
12378: END IF;
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;
12413: , 'tmpinsert2'
12414: );
12415: END IF;
12416:
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;
12841: , 'tmpinsert2'
12842: );
12843: END IF;
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;
12951: IF(l_debug = 1) THEN
12952: mydebug('breadcrumb 185', 'tmpinsert2');
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;
14004: IF l_return_status IN (fnd_api.g_ret_sts_error, fnd_api.g_ret_sts_unexp_error) THEN
14005: IF (l_debug = 1) THEN
14006: inv_log_util.trace('Error while creating tree : x_msg_data = ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14007: END IF;
14008: FND_MESSAGE.set_name('INV','INV_ERR_CREATETREE');
14009: FND_MESSAGE.set_token('ROUTINE','UE:AVAIL_TO_TRX');
14010: l_error_code := FND_MESSAGE.get;
14011: l_error_exp := l_msg_data;
14012: x_msg_data := l_msg_data;
14005: IF (l_debug = 1) THEN
14006: inv_log_util.trace('Error while creating tree : x_msg_data = ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14007: END IF;
14008: FND_MESSAGE.set_name('INV','INV_ERR_CREATETREE');
14009: FND_MESSAGE.set_token('ROUTINE','UE:AVAIL_TO_TRX');
14010: l_error_code := FND_MESSAGE.get;
14011: l_error_exp := l_msg_data;
14012: x_msg_data := l_msg_data;
14013: UPDATE MTL_TRANSACTIONS_INTERFACE
14006: inv_log_util.trace('Error while creating tree : x_msg_data = ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14007: END IF;
14008: FND_MESSAGE.set_name('INV','INV_ERR_CREATETREE');
14009: FND_MESSAGE.set_token('ROUTINE','UE:AVAIL_TO_TRX');
14010: l_error_code := FND_MESSAGE.get;
14011: l_error_exp := l_msg_data;
14012: x_msg_data := l_msg_data;
14013: UPDATE MTL_TRANSACTIONS_INTERFACE
14014: SET LAST_UPDATE_DATE = SYSDATE,
14071: IF (l_debug = 1) THEN
14072: inv_log_util.trace('Expected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14073: END IF;
14074:
14075: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14076: FND_MESSAGE.set_token('token1','XACT_QTY1');
14077: l_error_code := FND_MESSAGE.get;
14078: l_error_exp := l_msg_data;
14079: x_msg_data := l_msg_data;
14072: inv_log_util.trace('Expected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14073: END IF;
14074:
14075: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14076: FND_MESSAGE.set_token('token1','XACT_QTY1');
14077: l_error_code := FND_MESSAGE.get;
14078: l_error_exp := l_msg_data;
14079: x_msg_data := l_msg_data;
14080: UPDATE MTL_TRANSACTIONS_INTERFACE
14073: END IF;
14074:
14075: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14076: FND_MESSAGE.set_token('token1','XACT_QTY1');
14077: l_error_code := FND_MESSAGE.get;
14078: l_error_exp := l_msg_data;
14079: x_msg_data := l_msg_data;
14080: UPDATE MTL_TRANSACTIONS_INTERFACE
14081: SET LAST_UPDATE_DATE = SYSDATE,
14112: IF (l_debug = 1) THEN
14113: inv_log_util.trace('UnExpected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14114: END IF;
14115:
14116: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14117: FND_MESSAGE.set_token('token1','XACT_QTY1');
14118: l_error_code := FND_MESSAGE.get;
14119: l_error_exp := l_msg_data;
14120: x_msg_data := l_msg_data;
14113: inv_log_util.trace('UnExpected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14114: END IF;
14115:
14116: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14117: FND_MESSAGE.set_token('token1','XACT_QTY1');
14118: l_error_code := FND_MESSAGE.get;
14119: l_error_exp := l_msg_data;
14120: x_msg_data := l_msg_data;
14121: UPDATE MTL_TRANSACTIONS_INTERFACE
14114: END IF;
14115:
14116: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14117: FND_MESSAGE.set_token('token1','XACT_QTY1');
14118: l_error_code := FND_MESSAGE.get;
14119: l_error_exp := l_msg_data;
14120: x_msg_data := l_msg_data;
14121: UPDATE MTL_TRANSACTIONS_INTERFACE
14122: SET LAST_UPDATE_DATE = SYSDATE,
14210: then the backflush transaction can not consume existing reservations.Else it can consume
14211: existing reservation and can drive inventory go negative. */
14212: IF (l_override_rsv_for_backflush <> 1 ) THEN
14213: inv_log_util.trace('Transaction quantity must be less than or equal to available quantity','INV_TXN_MANAGER_GRP', 9);
14214: FND_MESSAGE.set_name('INV','INV_INT_PROCCODE');
14215: l_error_code := FND_MESSAGE.get;
14216: FND_MESSAGE.set_name('INV','INV_QTY_LESS_OR_EQUAL');
14217: l_error_exp := FND_MESSAGE.get;
14218: x_msg_data := l_error_exp;
14211: existing reservation and can drive inventory go negative. */
14212: IF (l_override_rsv_for_backflush <> 1 ) THEN
14213: inv_log_util.trace('Transaction quantity must be less than or equal to available quantity','INV_TXN_MANAGER_GRP', 9);
14214: FND_MESSAGE.set_name('INV','INV_INT_PROCCODE');
14215: l_error_code := FND_MESSAGE.get;
14216: FND_MESSAGE.set_name('INV','INV_QTY_LESS_OR_EQUAL');
14217: l_error_exp := FND_MESSAGE.get;
14218: x_msg_data := l_error_exp;
14219: UPDATE MTL_TRANSACTIONS_INTERFACE
14212: IF (l_override_rsv_for_backflush <> 1 ) THEN
14213: inv_log_util.trace('Transaction quantity must be less than or equal to available quantity','INV_TXN_MANAGER_GRP', 9);
14214: FND_MESSAGE.set_name('INV','INV_INT_PROCCODE');
14215: l_error_code := FND_MESSAGE.get;
14216: FND_MESSAGE.set_name('INV','INV_QTY_LESS_OR_EQUAL');
14217: l_error_exp := FND_MESSAGE.get;
14218: x_msg_data := l_error_exp;
14219: UPDATE MTL_TRANSACTIONS_INTERFACE
14220: SET LAST_UPDATE_DATE = SYSDATE,
14213: inv_log_util.trace('Transaction quantity must be less than or equal to available quantity','INV_TXN_MANAGER_GRP', 9);
14214: FND_MESSAGE.set_name('INV','INV_INT_PROCCODE');
14215: l_error_code := FND_MESSAGE.get;
14216: FND_MESSAGE.set_name('INV','INV_QTY_LESS_OR_EQUAL');
14217: l_error_exp := FND_MESSAGE.get;
14218: x_msg_data := l_error_exp;
14219: UPDATE MTL_TRANSACTIONS_INTERFACE
14220: SET LAST_UPDATE_DATE = SYSDATE,
14221: LAST_UPDATED_BY = l_userid,
14272: IF (l_debug = 1) THEN
14273: inv_log_util.trace('Expected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14274: END IF;
14275:
14276: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14277: FND_MESSAGE.set_token('token1','XACT_QTY1');
14278: l_error_code := FND_MESSAGE.get;
14279: l_error_exp := l_msg_data;
14280: x_msg_data := l_msg_data;
14273: inv_log_util.trace('Expected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14274: END IF;
14275:
14276: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14277: FND_MESSAGE.set_token('token1','XACT_QTY1');
14278: l_error_code := FND_MESSAGE.get;
14279: l_error_exp := l_msg_data;
14280: x_msg_data := l_msg_data;
14281: UPDATE MTL_TRANSACTIONS_INTERFACE
14274: END IF;
14275:
14276: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14277: FND_MESSAGE.set_token('token1','XACT_QTY1');
14278: l_error_code := FND_MESSAGE.get;
14279: l_error_exp := l_msg_data;
14280: x_msg_data := l_msg_data;
14281: UPDATE MTL_TRANSACTIONS_INTERFACE
14282: SET LAST_UPDATE_DATE = SYSDATE,
14312: IF (l_debug = 1) THEN
14313: inv_log_util.trace('UnExpected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14314: END IF;
14315:
14316: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14317: FND_MESSAGE.set_token('token1','XACT_QTY1');
14318: l_error_code := FND_MESSAGE.get;
14319: l_error_exp := l_msg_data;
14320: x_msg_data := l_msg_data;
14313: inv_log_util.trace('UnExpected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_GRP', 9);
14314: END IF;
14315:
14316: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14317: FND_MESSAGE.set_token('token1','XACT_QTY1');
14318: l_error_code := FND_MESSAGE.get;
14319: l_error_exp := l_msg_data;
14320: x_msg_data := l_msg_data;
14321: UPDATE MTL_TRANSACTIONS_INTERFACE
14314: END IF;
14315:
14316: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14317: FND_MESSAGE.set_token('token1','XACT_QTY1');
14318: l_error_code := FND_MESSAGE.get;
14319: l_error_exp := l_msg_data;
14320: x_msg_data := l_msg_data;
14321: UPDATE MTL_TRANSACTIONS_INTERFACE
14322: SET LAST_UPDATE_DATE = SYSDATE,
14365: backflush transaction can not consume existing reservations.Else it can consume existing
14366: reservation and can drive inventory negative. */
14367: IF (l_override_rsv_for_backflush <> 1 ) THEN
14368: inv_log_util.trace('Total Org quantity cannot become negative when there are reservations present','INV_TXN_MANAGER_GRP', 9);
14369: FND_MESSAGE.set_name('INV','INV_INT_PROCCODE');
14370: l_error_code := FND_MESSAGE.get;
14371: FND_MESSAGE.set_name('INV','INV_ORG_QUANTITY');
14372: l_error_exp := FND_MESSAGE.get;
14373: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14366: reservation and can drive inventory negative. */
14367: IF (l_override_rsv_for_backflush <> 1 ) THEN
14368: inv_log_util.trace('Total Org quantity cannot become negative when there are reservations present','INV_TXN_MANAGER_GRP', 9);
14369: FND_MESSAGE.set_name('INV','INV_INT_PROCCODE');
14370: l_error_code := FND_MESSAGE.get;
14371: FND_MESSAGE.set_name('INV','INV_ORG_QUANTITY');
14372: l_error_exp := FND_MESSAGE.get;
14373: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14374: x_msg_data := l_error_exp;
14367: IF (l_override_rsv_for_backflush <> 1 ) THEN
14368: inv_log_util.trace('Total Org quantity cannot become negative when there are reservations present','INV_TXN_MANAGER_GRP', 9);
14369: FND_MESSAGE.set_name('INV','INV_INT_PROCCODE');
14370: l_error_code := FND_MESSAGE.get;
14371: FND_MESSAGE.set_name('INV','INV_ORG_QUANTITY');
14372: l_error_exp := FND_MESSAGE.get;
14373: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14374: x_msg_data := l_error_exp;
14375: UPDATE MTL_TRANSACTIONS_INTERFACE
14368: inv_log_util.trace('Total Org quantity cannot become negative when there are reservations present','INV_TXN_MANAGER_GRP', 9);
14369: FND_MESSAGE.set_name('INV','INV_INT_PROCCODE');
14370: l_error_code := FND_MESSAGE.get;
14371: FND_MESSAGE.set_name('INV','INV_ORG_QUANTITY');
14372: l_error_exp := FND_MESSAGE.get;
14373: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14374: x_msg_data := l_error_exp;
14375: UPDATE MTL_TRANSACTIONS_INTERFACE
14376: SET LAST_UPDATE_DATE = SYSDATE,
14369: FND_MESSAGE.set_name('INV','INV_INT_PROCCODE');
14370: l_error_code := FND_MESSAGE.get;
14371: FND_MESSAGE.set_name('INV','INV_ORG_QUANTITY');
14372: l_error_exp := FND_MESSAGE.get;
14373: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
14374: x_msg_data := l_error_exp;
14375: UPDATE MTL_TRANSACTIONS_INTERFACE
14376: SET LAST_UPDATE_DATE = SYSDATE,
14377: LAST_UPDATED_BY = l_userid,
14408: ELSE --(neg_inv_rcpt = 1)
14409: IF (l_debug = 1) THEN
14410: inv_log_util.trace('Not Enough Qty: l_att,l_trx_qty:' || l_att||','||l_trx_qty,'INV_TXN_MANAGER_GRP', 9);
14411: END IF;
14412: FND_MESSAGE.set_name('INV','INV_NO_NEG_BALANCES');
14413: l_error_code := FND_MESSAGE.get;
14414: FND_MESSAGE.set_name('INV','INV_LESS_OR_EQUAL');
14415: FND_MESSAGE.set_token('ENTITY1','INV_QUANTITY',l_translate);
14416: FND_MESSAGE.set_token('ENTITY2','AVAIL_TO_TRANSACT',l_translate);
14409: IF (l_debug = 1) THEN
14410: inv_log_util.trace('Not Enough Qty: l_att,l_trx_qty:' || l_att||','||l_trx_qty,'INV_TXN_MANAGER_GRP', 9);
14411: END IF;
14412: FND_MESSAGE.set_name('INV','INV_NO_NEG_BALANCES');
14413: l_error_code := FND_MESSAGE.get;
14414: FND_MESSAGE.set_name('INV','INV_LESS_OR_EQUAL');
14415: FND_MESSAGE.set_token('ENTITY1','INV_QUANTITY',l_translate);
14416: FND_MESSAGE.set_token('ENTITY2','AVAIL_TO_TRANSACT',l_translate);
14417: l_error_exp := FND_MESSAGE.get;
14410: inv_log_util.trace('Not Enough Qty: l_att,l_trx_qty:' || l_att||','||l_trx_qty,'INV_TXN_MANAGER_GRP', 9);
14411: END IF;
14412: FND_MESSAGE.set_name('INV','INV_NO_NEG_BALANCES');
14413: l_error_code := FND_MESSAGE.get;
14414: FND_MESSAGE.set_name('INV','INV_LESS_OR_EQUAL');
14415: FND_MESSAGE.set_token('ENTITY1','INV_QUANTITY',l_translate);
14416: FND_MESSAGE.set_token('ENTITY2','AVAIL_TO_TRANSACT',l_translate);
14417: l_error_exp := FND_MESSAGE.get;
14418: x_msg_data := l_error_exp;
14411: END IF;
14412: FND_MESSAGE.set_name('INV','INV_NO_NEG_BALANCES');
14413: l_error_code := FND_MESSAGE.get;
14414: FND_MESSAGE.set_name('INV','INV_LESS_OR_EQUAL');
14415: FND_MESSAGE.set_token('ENTITY1','INV_QUANTITY',l_translate);
14416: FND_MESSAGE.set_token('ENTITY2','AVAIL_TO_TRANSACT',l_translate);
14417: l_error_exp := FND_MESSAGE.get;
14418: x_msg_data := l_error_exp;
14419: UPDATE MTL_TRANSACTIONS_INTERFACE
14412: FND_MESSAGE.set_name('INV','INV_NO_NEG_BALANCES');
14413: l_error_code := FND_MESSAGE.get;
14414: FND_MESSAGE.set_name('INV','INV_LESS_OR_EQUAL');
14415: FND_MESSAGE.set_token('ENTITY1','INV_QUANTITY',l_translate);
14416: FND_MESSAGE.set_token('ENTITY2','AVAIL_TO_TRANSACT',l_translate);
14417: l_error_exp := FND_MESSAGE.get;
14418: x_msg_data := l_error_exp;
14419: UPDATE MTL_TRANSACTIONS_INTERFACE
14420: SET LAST_UPDATE_DATE = SYSDATE,
14413: l_error_code := FND_MESSAGE.get;
14414: FND_MESSAGE.set_name('INV','INV_LESS_OR_EQUAL');
14415: FND_MESSAGE.set_token('ENTITY1','INV_QUANTITY',l_translate);
14416: FND_MESSAGE.set_token('ENTITY2','AVAIL_TO_TRANSACT',l_translate);
14417: l_error_exp := FND_MESSAGE.get;
14418: x_msg_data := l_error_exp;
14419: UPDATE MTL_TRANSACTIONS_INTERFACE
14420: SET LAST_UPDATE_DATE = SYSDATE,
14421: LAST_UPDATED_BY = l_userid,
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;
14491: x_msg_data := l_msg_data;
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;
14491: x_msg_data := l_msg_data;
14492: UPDATE MTL_TRANSACTIONS_INTERFACE
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;
14491: x_msg_data := l_msg_data;
14492: UPDATE MTL_TRANSACTIONS_INTERFACE
14493: SET LAST_UPDATE_DATE = SYSDATE,
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;
14560: x_msg_data := l_msg_data;
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;
14560: x_msg_data := l_msg_data;
14561: UPDATE MTL_TRANSACTIONS_INTERFACE
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;
14560: x_msg_data := l_msg_data;
14561: UPDATE MTL_TRANSACTIONS_INTERFACE
14562: SET LAST_UPDATE_DATE = SYSDATE,
14641: --return -1.
14642: --J-dev
14643:
14644: IF (NOT tmpinsert(l_header_id,p_validation_level)) THEN
14645: l_error_exp := FND_MESSAGE.get;
14646: IF (l_debug = 1) THEN
14647: inv_log_util.trace('Error in tmpinsert='|| l_error_exp, 'INV_TXN_MANAGER_GRP', 9);
14648: END IF;
14649: FND_MESSAGE.set_name('INV','INV_INT_TMPXFRCODE');
14645: l_error_exp := FND_MESSAGE.get;
14646: IF (l_debug = 1) THEN
14647: inv_log_util.trace('Error in tmpinsert='|| l_error_exp, 'INV_TXN_MANAGER_GRP', 9);
14648: END IF;
14649: FND_MESSAGE.set_name('INV','INV_INT_TMPXFRCODE');
14650: l_error_code := FND_MESSAGE.get;
14651: x_msg_data := l_error_exp;
14652: UPDATE MTL_TRANSACTIONS_INTERFACE
14653: SET LAST_UPDATE_DATE = SYSDATE,
14646: IF (l_debug = 1) THEN
14647: inv_log_util.trace('Error in tmpinsert='|| l_error_exp, 'INV_TXN_MANAGER_GRP', 9);
14648: END IF;
14649: FND_MESSAGE.set_name('INV','INV_INT_TMPXFRCODE');
14650: l_error_code := FND_MESSAGE.get;
14651: x_msg_data := l_error_exp;
14652: UPDATE MTL_TRANSACTIONS_INTERFACE
14653: SET LAST_UPDATE_DATE = SYSDATE,
14654: LAST_UPDATED_BY = l_userid,
14703: IF (l_debug = 1) THEN
14704: inv_log_util.trace('*** SQL error '||substr(sqlerrm, 1, 200), 'INV_TXN_MANAGER_GRP',9);
14705: END IF;
14706:
14707: FND_MESSAGE.set_name('INV','INV_INT_SQLCODE');
14708: l_error_code := FND_MESSAGE.get;
14709:
14710: UPDATE MTL_TRANSACTIONS_INTERFACE
14711: SET LAST_UPDATE_DATE = SYSDATE,
14704: inv_log_util.trace('*** SQL error '||substr(sqlerrm, 1, 200), 'INV_TXN_MANAGER_GRP',9);
14705: END IF;
14706:
14707: FND_MESSAGE.set_name('INV','INV_INT_SQLCODE');
14708: l_error_code := FND_MESSAGE.get;
14709:
14710: UPDATE MTL_TRANSACTIONS_INTERFACE
14711: SET LAST_UPDATE_DATE = SYSDATE,
14712: LAST_UPDATED_BY = l_userid,