DBA Data[Home] [Help]

APPS.GMIVTDX dependencies on FND_MSG_PUB

Line 40: G_tmp BOOLEAN := FND_MSG_PUB.Check_Msg_Level(0) ; -- temp call to initialize the

36: PROCEDURE log_msg(p_msg_text IN VARCHAR2);
37:
38: /* Global variables */
39: G_PKG_NAME CONSTANT VARCHAR2(30):='GMIVDX';
40: G_tmp BOOLEAN := FND_MSG_PUB.Check_Msg_Level(0) ; -- temp call to initialize the
41: -- msg level threshhold gobal
42: -- variable.
43: G_debug_level NUMBER(2) := FND_MSG_PUB.G_Msg_Level_Threshold; -- Use this variable everywhere
44: -- to decide to log a debug msg.

Line 43: G_debug_level NUMBER(2) := FND_MSG_PUB.G_Msg_Level_Threshold; -- Use this variable everywhere

39: G_PKG_NAME CONSTANT VARCHAR2(30):='GMIVDX';
40: G_tmp BOOLEAN := FND_MSG_PUB.Check_Msg_Level(0) ; -- temp call to initialize the
41: -- msg level threshhold gobal
42: -- variable.
43: G_debug_level NUMBER(2) := FND_MSG_PUB.G_Msg_Level_Threshold; -- Use this variable everywhere
44: -- to decide to log a debug msg.
45: /* +==========================================================================+
46: | PROCEDURE NAME |
47: | create_txn_update_balances |

Line 94: FND_MSG_PUB.Initialize;

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.
98: IF NOT FND_API.Compatible_API_Call ( l_api_version ,

Line 106: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level 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;
109:
110: SELECT *

Line 115: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

111: INTO l_hdr_row
112: FROM gmi_discrete_transfers
113: WHERE transfer_id = p_transfer_id;
114:
115: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
116: log_msg('After selecting header row from database. transfer id is '||to_char(l_hdr_row.transfer_id));
117: END IF;
118:
119: SELECT *

Line 125: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

121: FROM gmi_discrete_transfer_lines
122: WHERE transfer_id = p_transfer_id
123: AND line_id = p_line_id;
124:
125: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
126: log_msg('After selecting line row from database. line id is '||to_char(l_line_row.line_id));
127: END IF;
128:
129: --if lots are defined at lot level

Line 137: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

133: l_lot_row_tbl(l_lot_count) := Cur_get_lot_records_rec;
134: END LOOP;
135: END IF;
136:
137: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
138: log_msg('After selecting lot rows from database. no of lots is '||to_char(l_lot_row_tbl.count));
139: END IF;
140:
141: IF (l_hdr_row.transfer_type = 0 ) THEN

Line 152: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

148: l_txn_vars_rec.odm_qty_line_type := -1;
149: END IF;
150:
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);

Line 157: FND_MSG_PUB.Add;

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:
161: SELECT item_um,item_um2,

Line 168: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

164: l_txn_vars_rec.lot_control, l_txn_vars_rec.opm_lot_indivisible
165: FROM ic_item_mst_b
166: WHERE item_id = l_line_row.opm_item_id;
167:
168: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
169: log_msg('before calling create_txn_update_bal_in_opm');
170: END IF;
171:
172: create_txn_update_bal_in_opm

Line 187: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

183: , p_lot_row_tbl => l_lot_row_tbl
184: , p_txn_vars_rec => l_txn_vars_rec
185: );
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;

Line 196: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

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');
198: END IF;
199:
200: create_txn_update_bal_in_odm

Line 216: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

212: , p_txn_vars_rec => l_txn_vars_rec
213: , p_odm_txn_type_rec => l_odm_txn_type_rec
214: , x_transaction_header_id => x_transaction_header_id
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;

Line 225: FND_MSG_PUB.Count_AND_GET

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

Line 233: FND_MSG_PUB.Count_AND_GET

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
237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 238: 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
242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 247: FND_MSG_PUB.Add;

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);
251:

Line 249: FND_MSG_PUB.Count_AND_GET

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);
251:
252: END create_txn_update_balances;
253:

Line 297: FND_MSG_PUB.Initialize;

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;
301:

Line 373: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

369: l_ic_loct_inv_row.location := l_tran_rec_tbl(i).location;
370: l_ic_loct_inv_row.item_id := l_tran_rec_tbl(i).item_id;
371: l_ic_loct_inv_row.lot_id := l_tran_rec_tbl(i).lot_id;
372:
373: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
374: log_msg('validation for quantity being transferrred from OPM such that OPM inventory is not driven negative before posting the transaction.');
375: END IF;
376: --{
377: IF GMIVDBL.ic_loct_inv_select(l_ic_loct_inv_row, l_ic_loct_inv_row) THEN

Line 384: FND_MSG_PUB.Add;

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
388: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_CANNOT_GET_ONHAND');

Line 390: FND_MSG_PUB.Add;

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:
394: END IF;--}

Line 396: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

392: END IF;--}
393:
394: END IF;--}
395:
396: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
397: log_msg('Before calling GMI_TRANS_ENGINE_PVT.create_completed_transaction for lot id '||to_char(l_tran_rec_tbl(i).lot_id));
398: END IF;
399: --lets call the GMI engine to post completed transaction
400: GMI_TRANS_ENGINE_PVT.create_completed_transaction

Line 413: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

409: , p_tran_rec => l_tran_rec_tbl(i)
410: , x_tran_row => l_tran_row
411: );
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;

Line 424: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

420: END IF;
421:
422: END LOOP;--}
423:
424: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
425: log_msg('Posted '||to_char(l_tran_rec_tbl.count)||' completed transactions to OPM');
426: END IF;
427:
428: FND_MSG_PUB.Count_AND_GET

Line 428: FND_MSG_PUB.Count_AND_GET

424: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
425: log_msg('Posted '||to_char(l_tran_rec_tbl.count)||' completed transactions to OPM');
426: END IF;
427:
428: FND_MSG_PUB.Count_AND_GET
429: (p_count => x_msg_count, p_data => x_msg_data);
430:
431:
432: EXCEPTION

Line 437: FND_MSG_PUB.Count_AND_GET

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
441: ROLLBACK to create_transaction_in_opm;

Line 443: FND_MSG_PUB.Count_AND_GET

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
447: ROLLBACK to create_transaction_in_opm;

Line 453: FND_MSG_PUB.Add;

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);
457:

Line 455: FND_MSG_PUB.Count_AND_GET

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);
457:
458: END create_txn_update_bal_in_opm;
459:

Line 510: FND_MSG_PUB.Initialize;

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;
514:

Line 684: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

680: l_mmtt_row.last_update_date,
681: l_mmtt_row.last_updated_by,
682: l_mmtt_row.last_update_login
683: );
684: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
685: log_msg('Inserted 1 record in mtl_material_transactions_temp');
686: END IF;
687:
688: --lets see if we have records to be inserted in mtl_transaction_lots_temp

Line 946: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN

942: and mln.lot_number = l_mtlt_row_tbl(i).lot_number;
943:
944: END LOOP;
945:
946: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
947: log_msg('Inserted '||to_char(l_mtlt_row_tbl.count)||' lot records for the line in mtl_transactions_lots_temp');
948: END IF;
949:
950: END IF;--}

Line 952: FND_MSG_PUB.Count_AND_GET

948: END IF;
949:
950: END IF;--}
951:
952: FND_MSG_PUB.Count_AND_GET
953: (p_count => x_msg_count, p_data => x_msg_data);
954:
955:
956: EXCEPTION

Line 961: FND_MSG_PUB.Count_AND_GET

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
965: ROLLBACK to create_transaction_in_odm;

Line 967: FND_MSG_PUB.Count_AND_GET

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
971: ROLLBACK to create_transaction_in_odm;

Line 976: FND_MSG_PUB.Add;

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
980: (p_count => x_msg_count, p_data => x_msg_data);

Line 979: FND_MSG_PUB.Count_AND_GET

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;
983:

Line 990: FND_MSG_PUB.Add;

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:
994: END GMIVTDX;