62: +==========================================================================+ */
63:
64: PROCEDURE create_txn_update_balances
65: ( p_api_version IN NUMBER
66: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
67: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
68: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
69: , x_return_status OUT NOCOPY VARCHAR2
70: , x_msg_count OUT NOCOPY NUMBER
63:
64: PROCEDURE create_txn_update_balances
65: ( p_api_version IN NUMBER
66: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
67: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
68: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
69: , x_return_status OUT NOCOPY VARCHAR2
70: , x_msg_count OUT NOCOPY NUMBER
71: , x_msg_data OUT NOCOPY VARCHAR2
64: PROCEDURE create_txn_update_balances
65: ( p_api_version IN NUMBER
66: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
67: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
68: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
69: , x_return_status OUT NOCOPY VARCHAR2
70: , x_msg_count OUT NOCOPY NUMBER
71: , x_msg_data OUT NOCOPY VARCHAR2
72: , p_transfer_id IN NUMBER
89: AND line_id = Vline_id;
90:
91: BEGIN
92:
93: IF FND_API.to_boolean(p_init_msg_list) THEN
94: FND_MSG_PUB.Initialize;
95: END IF;
96:
97: -- Standard call to check for call compatibility.
94: FND_MSG_PUB.Initialize;
95: END IF;
96:
97: -- Standard call to check for call compatibility.
98: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
99: p_api_version ,
100: l_api_name ,
101: G_PKG_NAME ) THEN
102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
98: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
99: p_api_version ,
100: l_api_name ,
101: G_PKG_NAME ) THEN
102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
103: END IF;
104: x_return_status :=FND_API.G_RET_STS_SUCCESS;
105:
106: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
100: l_api_name ,
101: G_PKG_NAME ) THEN
102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
103: END IF;
104: x_return_status :=FND_API.G_RET_STS_SUCCESS;
105:
106: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
107: log_msg('Beginning of procedure create_txn_update_balances');
108: END IF;
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:
161: SELECT item_um,item_um2,
162: lot_ctl,lot_indivisible
171:
172: create_txn_update_bal_in_opm
173: (
174: p_api_version => p_api_version
175: , p_init_msg_list => FND_API.G_FALSE
176: , p_commit => FND_API.G_FALSE
177: , p_validation_level => p_validation_level
178: , x_return_status => x_return_status
179: , x_msg_count => x_msg_count
172: create_txn_update_bal_in_opm
173: (
174: p_api_version => p_api_version
175: , p_init_msg_list => FND_API.G_FALSE
176: , p_commit => FND_API.G_FALSE
177: , p_validation_level => p_validation_level
178: , x_return_status => x_return_status
179: , x_msg_count => x_msg_count
180: , x_msg_data => x_msg_data
186:
187: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
188: log_msg('After call to procedure create_txn_update_balances_in_opm. return status is '||x_return_status);
189: END IF;
190: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
191: RAISE FND_API.G_EXC_ERROR;
192: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
194: END IF;
187: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
188: log_msg('After call to procedure create_txn_update_balances_in_opm. return status is '||x_return_status);
189: END IF;
190: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
191: RAISE FND_API.G_EXC_ERROR;
192: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
194: END IF;
195:
188: log_msg('After call to procedure create_txn_update_balances_in_opm. return status is '||x_return_status);
189: END IF;
190: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
191: RAISE FND_API.G_EXC_ERROR;
192: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
194: END IF;
195:
196: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
189: END IF;
190: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
191: RAISE FND_API.G_EXC_ERROR;
192: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
194: END IF;
195:
196: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
197: log_msg('before calling create_txn_update_bal_in_odm');
199:
200: create_txn_update_bal_in_odm
201: (
202: p_api_version => p_api_version
203: , p_init_msg_list => FND_API.G_FALSE
204: , p_commit => FND_API.G_FALSE
205: , p_validation_level => p_validation_level
206: , x_return_status => x_return_status
207: , x_msg_count => x_msg_count
200: create_txn_update_bal_in_odm
201: (
202: p_api_version => p_api_version
203: , p_init_msg_list => FND_API.G_FALSE
204: , p_commit => FND_API.G_FALSE
205: , p_validation_level => p_validation_level
206: , x_return_status => x_return_status
207: , x_msg_count => x_msg_count
208: , x_msg_data => x_msg_data
215: );
216: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
217: log_msg('After call to procedure create_txn_update_balances_in_odm. return status is '||x_return_status||' transaction header id is '||to_char(x_transaction_header_id));
218: END IF;
219: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
220: RAISE FND_API.G_EXC_ERROR;
221: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
223: END IF;
216: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
217: log_msg('After call to procedure create_txn_update_balances_in_odm. return status is '||x_return_status||' transaction header id is '||to_char(x_transaction_header_id));
218: END IF;
219: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
220: RAISE FND_API.G_EXC_ERROR;
221: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
223: END IF;
224:
217: log_msg('After call to procedure create_txn_update_balances_in_odm. return status is '||x_return_status||' transaction header id is '||to_char(x_transaction_header_id));
218: END IF;
219: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
220: RAISE FND_API.G_EXC_ERROR;
221: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
223: END IF;
224:
225: FND_MSG_PUB.Count_AND_GET
218: END IF;
219: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
220: RAISE FND_API.G_EXC_ERROR;
221: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
223: END IF;
224:
225: FND_MSG_PUB.Count_AND_GET
226: (p_count => x_msg_count, p_data => x_msg_data);
227:
228:
229: EXCEPTION
230:
231: WHEN FND_API.G_EXC_ERROR THEN
232: x_return_status := FND_API.G_RET_STS_ERROR;
233: FND_MSG_PUB.Count_AND_GET
234: (p_count => x_msg_count, p_data => x_msg_data);
235:
228:
229: EXCEPTION
230:
231: WHEN FND_API.G_EXC_ERROR THEN
232: x_return_status := FND_API.G_RET_STS_ERROR;
233: FND_MSG_PUB.Count_AND_GET
234: (p_count => x_msg_count, p_data => x_msg_data);
235:
236: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
232: x_return_status := FND_API.G_RET_STS_ERROR;
233: FND_MSG_PUB.Count_AND_GET
234: (p_count => x_msg_count, p_data => x_msg_data);
235:
236: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
238: FND_MSG_PUB.Count_AND_GET
239: (p_count => x_msg_count, p_data => x_msg_data);
240:
233: FND_MSG_PUB.Count_AND_GET
234: (p_count => x_msg_count, p_data => x_msg_data);
235:
236: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
238: FND_MSG_PUB.Count_AND_GET
239: (p_count => x_msg_count, p_data => x_msg_data);
240:
241: WHEN OTHERS THEN
238: FND_MSG_PUB.Count_AND_GET
239: (p_count => x_msg_count, p_data => x_msg_data);
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));
273: +==========================================================================+ */
274:
275: PROCEDURE create_txn_update_bal_in_opm
276: ( p_api_version IN NUMBER
277: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
278: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
279: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
280: , x_return_status OUT NOCOPY VARCHAR2
281: , x_msg_count OUT NOCOPY NUMBER
274:
275: PROCEDURE create_txn_update_bal_in_opm
276: ( p_api_version IN NUMBER
277: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
278: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
279: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
280: , x_return_status OUT NOCOPY VARCHAR2
281: , x_msg_count OUT NOCOPY NUMBER
282: , x_msg_data OUT NOCOPY VARCHAR2
275: PROCEDURE create_txn_update_bal_in_opm
276: ( p_api_version IN NUMBER
277: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
278: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
279: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
280: , x_return_status OUT NOCOPY VARCHAR2
281: , x_msg_count OUT NOCOPY NUMBER
282: , x_msg_data OUT NOCOPY VARCHAR2
283: , p_hdr_row IN gmi_discrete_transfers%ROWTYPE
292: TYPE tran_rec_tbl IS TABLE OF GMI_TRANS_ENGINE_PUB.ictran_rec INDEX BY BINARY_INTEGER;
293: l_tran_rec_tbl tran_rec_tbl;
294: BEGIN
295:
296: IF FND_API.to_boolean(p_init_msg_list) THEN
297: FND_MSG_PUB.Initialize;
298: END IF;
299:
300: SAVEPOINT create_transaction_in_opm;
299:
300: SAVEPOINT create_transaction_in_opm;
301:
302: -- Standard call to check for call compatibility.
303: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
304: p_api_version ,
305: l_api_name ,
306: G_PKG_NAME ) THEN
307: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
303: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
304: p_api_version ,
305: l_api_name ,
306: G_PKG_NAME ) THEN
307: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
308: END IF;
309:
310: x_return_status :=FND_API.G_RET_STS_SUCCESS;
311:
306: G_PKG_NAME ) THEN
307: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
308: END IF;
309:
310: x_return_status :=FND_API.G_RET_STS_SUCCESS;
311:
312: --we need to construct the record for inserting transactions in OPM.
313: --{
314: IF (p_line_row.lot_level = 0) THEN --lots at line level
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
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));
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:
394: END IF;--}
395:
399: --lets call the GMI engine to post completed transaction
400: GMI_TRANS_ENGINE_PVT.create_completed_transaction
401: (
402: p_api_version => 1.0
403: , p_init_msg_list => FND_API.G_FALSE
404: , p_commit => FND_API.G_FALSE
405: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
406: , x_return_status => x_return_status
407: , x_msg_count => x_msg_count
400: GMI_TRANS_ENGINE_PVT.create_completed_transaction
401: (
402: p_api_version => 1.0
403: , p_init_msg_list => FND_API.G_FALSE
404: , p_commit => FND_API.G_FALSE
405: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
406: , x_return_status => x_return_status
407: , x_msg_count => x_msg_count
408: , x_msg_data => x_msg_data
401: (
402: p_api_version => 1.0
403: , p_init_msg_list => FND_API.G_FALSE
404: , p_commit => FND_API.G_FALSE
405: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
406: , x_return_status => x_return_status
407: , x_msg_count => x_msg_count
408: , x_msg_data => x_msg_data
409: , p_tran_rec => l_tran_rec_tbl(i)
412:
413: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
414: log_msg('After the call to GMI_TRANS_ENGINE_PVT.create_completed_transaction. return status is '||x_return_status);
415: END IF;
416: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
417: RAISE FND_API.G_EXC_ERROR;
418: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
420: END IF;
413: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
414: log_msg('After the call to GMI_TRANS_ENGINE_PVT.create_completed_transaction. return status is '||x_return_status);
415: END IF;
416: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
417: RAISE FND_API.G_EXC_ERROR;
418: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
420: END IF;
421:
414: log_msg('After the call to GMI_TRANS_ENGINE_PVT.create_completed_transaction. return status is '||x_return_status);
415: END IF;
416: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
417: RAISE FND_API.G_EXC_ERROR;
418: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
420: END IF;
421:
422: END LOOP;--}
415: END IF;
416: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
417: RAISE FND_API.G_EXC_ERROR;
418: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
420: END IF;
421:
422: END LOOP;--}
423:
430:
431:
432: EXCEPTION
433:
434: WHEN FND_API.G_EXC_ERROR THEN
435: ROLLBACK to create_transaction_in_opm;
436: x_return_status := FND_API.G_RET_STS_ERROR;
437: FND_MSG_PUB.Count_AND_GET
438: (p_count => x_msg_count, p_data => x_msg_data);
432: EXCEPTION
433:
434: WHEN FND_API.G_EXC_ERROR THEN
435: ROLLBACK to create_transaction_in_opm;
436: x_return_status := FND_API.G_RET_STS_ERROR;
437: FND_MSG_PUB.Count_AND_GET
438: (p_count => x_msg_count, p_data => x_msg_data);
439:
440: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
436: x_return_status := FND_API.G_RET_STS_ERROR;
437: FND_MSG_PUB.Count_AND_GET
438: (p_count => x_msg_count, p_data => x_msg_data);
439:
440: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
441: ROLLBACK to create_transaction_in_opm;
442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
443: FND_MSG_PUB.Count_AND_GET
444: (p_count => x_msg_count, p_data => x_msg_data);
438: (p_count => x_msg_count, p_data => x_msg_data);
439:
440: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
441: ROLLBACK to create_transaction_in_opm;
442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
443: FND_MSG_PUB.Count_AND_GET
444: (p_count => x_msg_count, p_data => x_msg_data);
445:
446: WHEN OTHERS THEN
444: (p_count => x_msg_count, p_data => x_msg_data);
445:
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));
476: +==========================================================================+ */
477:
478: PROCEDURE create_txn_update_bal_in_odm
479: ( p_api_version IN NUMBER
480: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
481: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
482: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
483: , x_return_status OUT NOCOPY VARCHAR2
484: , x_msg_count OUT NOCOPY NUMBER
477:
478: PROCEDURE create_txn_update_bal_in_odm
479: ( p_api_version IN NUMBER
480: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
481: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
482: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
483: , x_return_status OUT NOCOPY VARCHAR2
484: , x_msg_count OUT NOCOPY NUMBER
485: , x_msg_data OUT NOCOPY VARCHAR2
478: PROCEDURE create_txn_update_bal_in_odm
479: ( p_api_version IN NUMBER
480: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
481: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
482: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
483: , x_return_status OUT NOCOPY VARCHAR2
484: , x_msg_count OUT NOCOPY NUMBER
485: , x_msg_data OUT NOCOPY VARCHAR2
486: , p_hdr_row IN gmi_discrete_transfers%ROWTYPE
505: WHERE um_code = Vum_code;
506:
507: BEGIN
508:
509: IF FND_API.to_boolean(p_init_msg_list) THEN
510: FND_MSG_PUB.Initialize;
511: END IF;
512:
513: SAVEPOINT create_transaction_in_odm;
512:
513: SAVEPOINT create_transaction_in_odm;
514:
515: -- Standard call to check for call compatibility.
516: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
517: p_api_version ,
518: l_api_name ,
519: G_PKG_NAME ) THEN
520: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
516: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
517: p_api_version ,
518: l_api_name ,
519: G_PKG_NAME ) THEN
520: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
521: END IF;
522:
523: x_return_status :=FND_API.G_RET_STS_SUCCESS;
524:
519: G_PKG_NAME ) THEN
520: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
521: END IF;
522:
523: x_return_status :=FND_API.G_RET_STS_SUCCESS;
524:
525: --we need to construct the record for inserting transactions in ODM.
526: --then we need to insert into mtl_material_transactions_temp table.
527: --this is done for each line.
954:
955:
956: EXCEPTION
957:
958: WHEN FND_API.G_EXC_ERROR THEN
959: ROLLBACK to create_transaction_in_odm;
960: x_return_status := FND_API.G_RET_STS_ERROR;
961: FND_MSG_PUB.Count_AND_GET
962: (p_count => x_msg_count, p_data => x_msg_data);
956: EXCEPTION
957:
958: WHEN FND_API.G_EXC_ERROR THEN
959: ROLLBACK to create_transaction_in_odm;
960: x_return_status := FND_API.G_RET_STS_ERROR;
961: FND_MSG_PUB.Count_AND_GET
962: (p_count => x_msg_count, p_data => x_msg_data);
963:
964: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
960: x_return_status := FND_API.G_RET_STS_ERROR;
961: FND_MSG_PUB.Count_AND_GET
962: (p_count => x_msg_count, p_data => x_msg_data);
963:
964: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
965: ROLLBACK to create_transaction_in_odm;
966: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
967: FND_MSG_PUB.Count_AND_GET
968: (p_count => x_msg_count, p_data => x_msg_data);
962: (p_count => x_msg_count, p_data => x_msg_data);
963:
964: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
965: ROLLBACK to create_transaction_in_odm;
966: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
967: FND_MSG_PUB.Count_AND_GET
968: (p_count => x_msg_count, p_data => x_msg_data);
969:
970: WHEN OTHERS THEN
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
980: (p_count => x_msg_count, p_data => x_msg_data);
981:
982: END create_txn_update_bal_in_odm;