DBA Data[Home] [Help]

APPS.FLM_KANBAN_PUB dependencies on FND_MSG_PUB

Line 226: FND_MSG_PUB.Initialize;

222: IS
223: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
224:
225: BEGIN
226: FND_MSG_PUB.Initialize;
227:
228: mydebug('Inserting into MTL_PULL_SEQ_SUPPLIERS table.');
229:
230: INSERT INTO MTL_PULL_SEQ_SUPPLIERS

Line 264: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

260:
261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
262:
263: WHEN OTHERS THEN
264: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
265: THEN
266: FND_MSG_PUB.Add_Exc_Msg
267: ( G_PKG_NAME
268: , 'insert_supplier_row'

Line 266: FND_MSG_PUB.Add_Exc_Msg

262:
263: WHEN OTHERS THEN
264: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
265: THEN
266: FND_MSG_PUB.Add_Exc_Msg
267: ( G_PKG_NAME
268: , 'insert_supplier_row'
269: );
270: END IF;

Line 281: FND_MSG_PUB.Initialize;

277: IS
278: l_supplier_rec MTL_PULL_SEQ_SUPPLIERS%ROWTYPE := p_supplier_rec;
279: l_return_status VARCHAR2(1);
280: BEGIN
281: FND_MSG_PUB.Initialize;
282:
283: mydebug('In procedure insert_supplier_row.');
284:
285: insert_supplier_row(

Line 319: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

315: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
316:
317: WHEN OTHERS THEN
318:
319: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
320: THEN
321: FND_MSG_PUB.Add_Exc_Msg
322: ( G_PKG_NAME
323: , 'insert_supplier_row'

Line 321: FND_MSG_PUB.Add_Exc_Msg

317: WHEN OTHERS THEN
318:
319: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
320: THEN
321: FND_MSG_PUB.Add_Exc_Msg
322: ( G_PKG_NAME
323: , 'insert_supplier_row'
324: );
325: END IF;

Line 346: FND_MSG_PUB.Initialize;

342: p_last_update_login NUMBER)
343: IS
344: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
345: BEGIN
346: FND_MSG_PUB.Initialize;
347:
348: mydebug('Updating MTL_PULL_SEQ_SUPPLIERS table.');
349: -- Fix bug 12419603. Should allow user to update supplier site, only supplier should NOT be updated
350: -- because supplier_id is the primary key of the MTL_PULL_SEQ_SUPPLIERS table

Line 378: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

374: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
375:
376: WHEN OTHERS THEN
377:
378: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
379: THEN
380: FND_MSG_PUB.Add_Exc_Msg
381: ( G_PKG_NAME
382: , 'update_supplier_row'

Line 380: FND_MSG_PUB.Add_Exc_Msg

376: WHEN OTHERS THEN
377:
378: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
379: THEN
380: FND_MSG_PUB.Add_Exc_Msg
381: ( G_PKG_NAME
382: , 'update_supplier_row'
383: );
384: END IF;

Line 395: FND_MSG_PUB.Initialize;

391: IS
392: l_supplier_rec MTL_PULL_SEQ_SUPPLIERS%ROWTYPE := p_supplier_rec;
393: l_return_status VARCHAR2(1);
394: BEGIN
395: FND_MSG_PUB.Initialize;
396:
397: mydebug('In procedure update_supplier_row.');
398:
399: update_supplier_row(x_return_status => l_return_status,

Line 430: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

426: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
427:
428: WHEN OTHERS THEN
429:
430: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
431: THEN
432: FND_MSG_PUB.Add_Exc_Msg
433: ( G_PKG_NAME
434: , 'update_supplier_row'

Line 432: FND_MSG_PUB.Add_Exc_Msg

428: WHEN OTHERS THEN
429:
430: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
431: THEN
432: FND_MSG_PUB.Add_Exc_Msg
433: ( G_PKG_NAME
434: , 'update_supplier_row'
435: );
436: END IF;

Line 450: FND_MSG_PUB.Initialize;

446: p_supplier_id NUMBER)
447: IS
448: l_return_status varchar2(1) := FND_API.G_RET_STS_ERROR;
449: BEGIN
450: FND_MSG_PUB.Initialize;
451:
452: mydebug('In procedure delete_supplier_row.');
453:
454: DELETE FROM MTL_PULL_SEQ_SUPPLIERS

Line 471: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

467:
468: WHEN OTHERS THEN
469:
470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
471: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
472: THEN
473: FND_MSG_PUB.Add_Exc_Msg
474: ( G_PKG_NAME
475: , 'delete_supplier_row'

Line 473: FND_MSG_PUB.Add_Exc_Msg

469:
470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
471: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
472: THEN
473: FND_MSG_PUB.Add_Exc_Msg
474: ( G_PKG_NAME
475: , 'delete_supplier_row'
476: );
477: END IF;

Line 3040: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

3036: p_kanban_card_id := r_kanban_card_rec.kanban_card_id;
3037: x_ret_status := l_ret_status;
3038: EXCEPTION
3039: WHEN OTHERS THEN
3040: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3041: THEN
3042: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME
3043: ,'process_cards'
3044: );

Line 3042: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME

3038: EXCEPTION
3039: WHEN OTHERS THEN
3040: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3041: THEN
3042: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME
3043: ,'process_cards'
3044: );
3045: END IF;
3046: x_ret_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 3321: FND_MSG_PUB.initialize;

3317: BEGIN
3318:
3319: mydebug('In process_pull_sequence procedure to validate and process pull sequences.');
3320:
3321: FND_MSG_PUB.initialize;
3322:
3323: mydebug('Assigning parameter values to record type.');
3324: -- Assign parameter valuses to record type
3325: r_pull_seq_rec.pull_sequence_id := p_pull_sequence_id;

Line 3550: l_error_msg := FND_MSG_PUB.Get(FND_MSG_PUB.G_LAST, FND_API.G_FALSE);

3546:
3547: IF l_ret_status = FND_API.G_RET_STS_ERROR THEN
3548: l_error_msg := 'Error in INV_PullSequence_PKG.Insert_Row';
3549: ELSIF l_ret_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3550: l_error_msg := FND_MSG_PUB.Get(FND_MSG_PUB.G_LAST, FND_API.G_FALSE);
3551: END IF;
3552:
3553: elsif p_transaction_type = FLM_KANBAN_MASSLOAD.KANBAN_CHANGE then
3554: -- update pull sequence

Line 3636: l_error_msg := FND_MSG_PUB.Get(FND_MSG_PUB.G_LAST, FND_API.G_FALSE);

3632:
3633: ELSIF l_ret_status = FND_API.G_RET_STS_ERROR THEN
3634: l_error_msg := 'Error in INV_PullSequence_PKG.Update_Row';
3635: ELSE
3636: l_error_msg := FND_MSG_PUB.Get(FND_MSG_PUB.G_LAST, FND_API.G_FALSE);
3637: END IF;
3638:
3639: elsif p_transaction_type = FLM_KANBAN_MASSLOAD.KANBAN_DELETE then
3640: -- delete pull sequence

Line 3651: l_error_msg := FND_MSG_PUB.Get(FND_MSG_PUB.G_LAST, FND_API.G_FALSE);

3647:
3648: IF l_ret_status = FND_API.G_RET_STS_ERROR THEN
3649: l_error_msg := fnd_message.get;
3650: ELSIF l_ret_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3651: l_error_msg := FND_MSG_PUB.Get(FND_MSG_PUB.G_LAST, FND_API.G_FALSE);
3652: END IF;
3653:
3654: end if;
3655:

Line 3672: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

3668: WHEN OTHERS THEN
3669:
3670: x_ret_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3671: x_error_msg := 'Unexpected error in process_pull_sequence procedure:'||SQLERRM;
3672: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3673: THEN
3674: FND_MSG_PUB.Add_Exc_Msg
3675: ( G_PKG_NAME
3676: , 'process_pull_sequence'

Line 3674: FND_MSG_PUB.Add_Exc_Msg

3670: x_ret_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3671: x_error_msg := 'Unexpected error in process_pull_sequence procedure:'||SQLERRM;
3672: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3673: THEN
3674: FND_MSG_PUB.Add_Exc_Msg
3675: ( G_PKG_NAME
3676: , 'process_pull_sequence'
3677: );
3678: END IF;

Line 4134: FND_MSG_PUB.initialize;

4130: BEGIN
4131:
4132: mydebug('In process_suppliers procedure.');
4133:
4134: FND_MSG_PUB.initialize;
4135:
4136: --WHO columns
4137: l_last_update_date := g_last_update_date;
4138: l_last_updated_by := g_user_id;

Line 4222: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

4218: WHEN OTHERS THEN
4219:
4220: x_ret_status := FND_API.G_RET_STS_UNEXP_ERROR;
4221: x_error_msg := 'Unexpected error in process_suppliers procedure:'||SQLERRM;
4222: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4223: THEN
4224: FND_MSG_PUB.Add_Exc_Msg
4225: ( G_PKG_NAME
4226: , 'process_suppliers'

Line 4224: FND_MSG_PUB.Add_Exc_Msg

4220: x_ret_status := FND_API.G_RET_STS_UNEXP_ERROR;
4221: x_error_msg := 'Unexpected error in process_suppliers procedure:'||SQLERRM;
4222: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4223: THEN
4224: FND_MSG_PUB.Add_Exc_Msg
4225: ( G_PKG_NAME
4226: , 'process_suppliers'
4227: );
4228: END IF;