151: IF (inv_validate.transaction_type (l_odm_txn_type_rec) = inv_validate.F) THEN
152: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
153: log_msg('Failed call to inv_validate.transaction_type in procedure create_txn_update_balances');
154: END IF;
155: FND_MESSAGE.SET_NAME('INV','INV_INVALID_ATTRIBUTE');
156: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('INV','TRANSACTION'),FALSE);
157: FND_MSG_PUB.Add;
158: RAISE FND_API.G_EXC_ERROR;
159: END IF;
152: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
153: log_msg('Failed call to inv_validate.transaction_type in procedure create_txn_update_balances');
154: END IF;
155: FND_MESSAGE.SET_NAME('INV','INV_INVALID_ATTRIBUTE');
156: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('INV','TRANSACTION'),FALSE);
157: FND_MSG_PUB.Add;
158: RAISE FND_API.G_EXC_ERROR;
159: END IF;
160:
240:
241: WHEN OTHERS THEN
242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
243: IF (SQLCODE IS NOT NULL) THEN
244: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
245: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
246: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM(SQLCODE));
247: FND_MSG_PUB.Add;
248: END IF;
241: WHEN OTHERS THEN
242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
243: IF (SQLCODE IS NOT NULL) THEN
244: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
245: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
246: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM(SQLCODE));
247: FND_MSG_PUB.Add;
248: END IF;
249: FND_MSG_PUB.Count_AND_GET
242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
243: IF (SQLCODE IS NOT NULL) THEN
244: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
245: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
246: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM(SQLCODE));
247: FND_MSG_PUB.Add;
248: END IF;
249: FND_MSG_PUB.Count_AND_GET
250: (p_count => x_msg_count, p_data => x_msg_data);
378:
379: IF ( (p_txn_vars_rec.opm_lot_indivisible = 1)
380: AND (l_ic_loct_inv_row.loct_onhand <> abs(l_tran_rec_tbl(i).trans_qty))
381: ) THEN
382: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_INDIVISIBLE_LOT');
383: FND_MESSAGE.SET_TOKEN('LINE_NO',to_char(l_tran_rec_tbl(i).doc_line));
384: FND_MSG_PUB.Add;
385: RAISE FND_API.G_EXC_ERROR;
386: END IF;
379: IF ( (p_txn_vars_rec.opm_lot_indivisible = 1)
380: AND (l_ic_loct_inv_row.loct_onhand <> abs(l_tran_rec_tbl(i).trans_qty))
381: ) THEN
382: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_INDIVISIBLE_LOT');
383: FND_MESSAGE.SET_TOKEN('LINE_NO',to_char(l_tran_rec_tbl(i).doc_line));
384: FND_MSG_PUB.Add;
385: RAISE FND_API.G_EXC_ERROR;
386: END IF;
387: ELSE
384: FND_MSG_PUB.Add;
385: RAISE FND_API.G_EXC_ERROR;
386: END IF;
387: ELSE
388: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_CANNOT_GET_ONHAND');
389: FND_MESSAGE.SET_TOKEN('LINE_NO',to_char(l_tran_rec_tbl(i).doc_line));
390: FND_MSG_PUB.Add;
391: RAISE FND_API.G_EXC_ERROR;
392: END IF;--}
385: RAISE FND_API.G_EXC_ERROR;
386: END IF;
387: ELSE
388: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_CANNOT_GET_ONHAND');
389: FND_MESSAGE.SET_TOKEN('LINE_NO',to_char(l_tran_rec_tbl(i).doc_line));
390: FND_MSG_PUB.Add;
391: RAISE FND_API.G_EXC_ERROR;
392: END IF;--}
393:
446: WHEN OTHERS THEN
447: ROLLBACK to create_transaction_in_opm;
448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
449: IF (SQLCODE IS NOT NULL) THEN
450: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
451: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
452: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM(SQLCODE));
453: FND_MSG_PUB.Add;
454: END IF;
447: ROLLBACK to create_transaction_in_opm;
448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
449: IF (SQLCODE IS NOT NULL) THEN
450: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
451: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
452: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM(SQLCODE));
453: FND_MSG_PUB.Add;
454: END IF;
455: FND_MSG_PUB.Count_AND_GET
448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
449: IF (SQLCODE IS NOT NULL) THEN
450: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
451: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
452: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM(SQLCODE));
453: FND_MSG_PUB.Add;
454: END IF;
455: FND_MSG_PUB.Count_AND_GET
456: (p_count => x_msg_count, p_data => x_msg_data);
573: l_mmtt_row.transaction_action_id := p_odm_txn_type_rec.transaction_action_id;
574: l_mmtt_row.transaction_source_type_id := p_odm_txn_type_rec.transaction_source_type_id;
575:
576: IF (p_hdr_row.transfer_type = 0) THEN
577: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_FROM_SOURCE_NAME');
578: l_mmtt_row.Transaction_source_name := fnd_message.get;
579: ELSIF (p_hdr_row.transfer_type = 1) THEN
580: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_TO_SOURCE_NAME');
581: l_mmtt_row.transaction_source_name := fnd_message.get;
574: l_mmtt_row.transaction_source_type_id := p_odm_txn_type_rec.transaction_source_type_id;
575:
576: IF (p_hdr_row.transfer_type = 0) THEN
577: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_FROM_SOURCE_NAME');
578: l_mmtt_row.Transaction_source_name := fnd_message.get;
579: ELSIF (p_hdr_row.transfer_type = 1) THEN
580: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_TO_SOURCE_NAME');
581: l_mmtt_row.transaction_source_name := fnd_message.get;
582: END IF;
576: IF (p_hdr_row.transfer_type = 0) THEN
577: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_FROM_SOURCE_NAME');
578: l_mmtt_row.Transaction_source_name := fnd_message.get;
579: ELSIF (p_hdr_row.transfer_type = 1) THEN
580: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_TO_SOURCE_NAME');
581: l_mmtt_row.transaction_source_name := fnd_message.get;
582: END IF;
583:
584: l_mmtt_row.transaction_line_number := p_line_row.line_no;
577: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_FROM_SOURCE_NAME');
578: l_mmtt_row.Transaction_source_name := fnd_message.get;
579: ELSIF (p_hdr_row.transfer_type = 1) THEN
580: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_TO_SOURCE_NAME');
581: l_mmtt_row.transaction_source_name := fnd_message.get;
582: END IF;
583:
584: l_mmtt_row.transaction_line_number := p_line_row.line_no;
585: l_mmtt_row.transaction_date := p_hdr_row.trans_date;
969:
970: WHEN OTHERS THEN
971: ROLLBACK to create_transaction_in_odm;
972: IF (SQLCODE IS NOT NULL) THEN
973: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
974: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
975: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM(SQLCODE));
976: FND_MSG_PUB.Add;
977: END IF;
970: WHEN OTHERS THEN
971: ROLLBACK to create_transaction_in_odm;
972: IF (SQLCODE IS NOT NULL) THEN
973: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
974: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
975: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM(SQLCODE));
976: FND_MSG_PUB.Add;
977: END IF;
978: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
971: ROLLBACK to create_transaction_in_odm;
972: IF (SQLCODE IS NOT NULL) THEN
973: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
974: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
975: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM(SQLCODE));
976: FND_MSG_PUB.Add;
977: END IF;
978: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
979: FND_MSG_PUB.Count_AND_GET
984:
985: PROCEDURE log_msg(p_msg_text IN VARCHAR2) IS
986: BEGIN
987:
988: FND_MESSAGE.SET_NAME('GMI','GMI_DEBUG_API');
989: FND_MESSAGE.SET_TOKEN('MSG',p_msg_text);
990: FND_MSG_PUB.Add;
991:
992: END log_msg ;
985: PROCEDURE log_msg(p_msg_text IN VARCHAR2) IS
986: BEGIN
987:
988: FND_MESSAGE.SET_NAME('GMI','GMI_DEBUG_API');
989: FND_MESSAGE.SET_TOKEN('MSG',p_msg_text);
990: FND_MSG_PUB.Add;
991:
992: END log_msg ;
993: