DBA Data[Home] [Help]

APPS.GML_OPM_ROI_GRP dependencies on FND_MSG_PUB

Line 236: FND_MSG_PUB.Add;

232: --If do not allow negative inv then give error
233: --Bug# 3664014
234: IF V_allow_neg_inv = 0 THEN
235: FND_MESSAGE.SET_NAME('GMI','IC_INVQTYNEG');
236: FND_MSG_PUB.Add;
237: x_return_status := fnd_api.g_ret_sts_error;
238: RETURN ;
239: --If set to 2 then give warning.
240: ELSIF V_allow_neg_inv = 2 THEN

Line 242: FND_MSG_PUB.Add;

238: RETURN ;
239: --If set to 2 then give warning.
240: ELSIF V_allow_neg_inv = 2 THEN
241: FND_MESSAGE.SET_NAME('GMI','IC_WARNINVQTYNEG');
242: FND_MSG_PUB.Add;
243: x_return_status := 'W';
244: RETURN ;
245: END IF;
246: END IF;

Line 264: FND_MSG_PUB.Add;

260: Close Cr_qoh_loct_null;
261: -- bug# 3664014
262: IF V_allow_neg_inv = 0 THEN
263: FND_MESSAGE.SET_NAME('GMI','IC_INVQTYNEG');
264: FND_MSG_PUB.Add;
265: x_return_status := fnd_api.g_ret_sts_error;
266: RETURN ;
267: --If set to 2 then give warning.
268: ELSIF V_allow_neg_inv = 2 THEN

Line 270: FND_MSG_PUB.Add;

266: RETURN ;
267: --If set to 2 then give warning.
268: ELSIF V_allow_neg_inv = 2 THEN
269: FND_MESSAGE.SET_NAME('GMI','IC_WARNINVQTYNEG');
270: FND_MSG_PUB.Add;
271: x_return_status := 'W';
272: RETURN ;
273: END IF;
274: END IF;

Line 407: p_error_message => FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,p_encoded => 'F'),

403: p_group_id => x_opm_record.group_id,
404: p_header_interface_id => x_opm_record.header_interface_id,
405: p_column_name => 'PRIMARY_QUANTITY',
406: p_table_name => 'RCV_TRANSACTIONS_INTERFACE',
407: p_error_message => FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,p_encoded => 'F'),
408: p_mesg_owner => NULL,
409: p_Error_Message_name => NULL );
410: END IF;
411:

Line 474: l_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,p_encoded => 'F');

470: x_opm_record.error_record.error_status := 'F';
471: x_opm_record.error_record.error_message := 'GML_SEC_QTY_VAL_FAILED' ;
472:
473: IF l_msg_data IS NULL THEN
474: l_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,p_encoded => 'F');
475: END IF ;
476:
477: insert_errors(p_rti_id => x_opm_record.rti_id,
478: p_group_id => x_opm_record.group_id,

Line 564: FND_MSG_PUB.Add;

560: END IF;
561:
562: IF p_lot_attribute_rec.lot_no = G_DEFAULT_LOT THEN
563: FND_MESSAGE.SET_NAME('GMI','IC_INVALID_LOT');
564: FND_MSG_PUB.Add;
565: x_return_status := fnd_api.g_ret_sts_error;
566: RETURN ;
567: END IF;
568:

Line 577: FND_MSG_PUB.Add;

573:
574:
575: IF p_lot_attribute_rec.sublot_no IS NOT NULL AND l_sublot_ctl = 0 THEN
576: FND_MESSAGE.SET_NAME('GMI','IC_INVALID_LOT/SUBLOT');
577: FND_MSG_PUB.Add;
578: x_return_status := fnd_api.g_ret_sts_error;
579: RETURN ;
580: END IF;
581:

Line 594: FND_MSG_PUB.Add;

590:
591: EXCEPTION WHEN OTHERS THEN
592: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_REASON_CODE');
593: FND_MESSAGE.SET_TOKEN('REASON_CODE',p_lot_attribute_rec.reason_code);
594: FND_MSG_PUB.Add;
595: x_return_status := fnd_api.g_ret_sts_error;
596: RETURN ;
597: END ;
598: END IF;

Line 609: FND_MSG_PUB.Add;

605: FETCH Cur_lot_ctrl_lot INTO p_lot_attribute_rec.lot_id,l_inactive_ind,l_delete_mark;
606: IF Cur_lot_ctrl_lot%NOTFOUND THEN
607: CLOSE Cur_lot_ctrl_lot;
608: FND_MESSAGE.SET_NAME('GMI','IC_INVALID_LOT');
609: FND_MSG_PUB.Add;
610: x_return_status := fnd_api.g_ret_sts_error;
611: RETURN ;
612: END IF;
613: CLOSE Cur_lot_ctrl_lot ;

Line 620: FND_MSG_PUB.Add;

616: FETCH Cur_sublot_ctrl_lot INTO p_lot_attribute_rec.lot_id,l_inactive_ind,l_delete_mark;
617: IF Cur_sublot_ctrl_lot%NOTFOUND THEN
618: CLOSE Cur_sublot_ctrl_lot;
619: FND_MESSAGE.SET_NAME('GMI','IC_INVALID_LOT');
620: FND_MSG_PUB.Add;
621: x_return_status := fnd_api.g_ret_sts_error;
622: RETURN ;
623: END IF;
624: CLOSE Cur_sublot_ctrl_lot ;

Line 631: FND_MSG_PUB.Add;

627: l_progress := '040' ;
628:
629: IF l_inactive_ind = 1 THEN
630: FND_MESSAGE.SET_NAME('GML','PO_INACTIVE_LOT');
631: FND_MSG_PUB.Add;
632: x_return_status := fnd_api.g_ret_sts_error;
633: RETURN ;
634: ELSIF l_delete_mark = 1 THEN
635: FND_MESSAGE.SET_NAME('GML', 'PO_LOT_DELETED');

Line 636: FND_MSG_PUB.Add;

632: x_return_status := fnd_api.g_ret_sts_error;
633: RETURN ;
634: ELSIF l_delete_mark = 1 THEN
635: FND_MESSAGE.SET_NAME('GML', 'PO_LOT_DELETED');
636: FND_MSG_PUB.Add;
637: x_return_status := fnd_api.g_ret_sts_error;
638: RETURN ;
639: END IF;
640:

Line 652: FND_MSG_PUB.Add;

648: l_progress := '050' ;
649:
650: IF l_shelf_life_code = 4 and p_lot_attribute_rec.expiration_date IS NULL THEN
651: FND_MESSAGE.SET_NAME('GMI','IC_INVALID_EXPIRE_DATE');
652: FND_MSG_PUB.Add;
653: x_return_status := fnd_api.g_ret_sts_error;
654: RETURN ;
655: ELSIF l_shelf_life_code = 2 THEN
656:

Line 821: FND_MSG_PUB.Add;

817:
818: IF g_moved_diff_stat = 0 THEN
819: IF (l_inv_lot_status IS NOT NULL) AND (l_inv_lot_status <> l_default_lot_status) THEN
820: FND_MESSAGE.SET_NAME('GML', 'GML_CANT_RECV_DIFF_STATUS');
821: FND_MSG_PUB.Add;
822: x_return_status := fnd_api.g_ret_sts_error;
823: RETURN ;
824: END IF;
825: ELSIF g_moved_diff_stat = 2 THEN

Line 926: FND_MSG_PUB.Add;

922:
923: ELSIF l_inv_lot_status IS NOT NULL AND l_inv_lot_status <> l_default_lot_status
924: AND l_inv_loct_onhand <> 0 THEN
925: FND_MESSAGE.SET_NAME('GML', 'GML_CANT_RECV_DIFF_STATUS');
926: FND_MSG_PUB.Add;
927: x_return_status := fnd_api.g_ret_sts_error;
928: RETURN ;
929: END IF; -- IF l_inv_lot_status IS NOT NULL
930: END IF; -- IF g_moved_diff_stat = 0 THEN

Line 1181: FND_MSG_PUB.Add;

1177: END IF;
1178:
1179: IF g_opm_restrict_rma_lots IN ('RESTRICTED') THEN
1180: FND_MESSAGE.SET_NAME('GML','GML_DIFF_RMA_LOT');
1181: FND_MSG_PUB.Add;
1182: x_return_status := fnd_api.g_ret_sts_error;
1183: RAISE FND_API.G_EXC_ERROR;
1184: ELSE -- warning.put into interface table.
1185: insert_errors( p_rti_id => p_rti_id,

Line 1275: FND_MSG_PUB.Add;

1271: ELSE
1272: /*Give error message that the quantity entered Is greater than the qty entered in the RMA for this lot */
1273: FND_MESSAGE.SET_NAME('GML', 'GML_DIFF_RMA_QTY');
1274: FND_MESSAGE.SET_TOKEN('S1',x_allowed_quantity);
1275: FND_MSG_PUB.Add;
1276: x_return_status := fnd_api.g_ret_sts_error;
1277: END IF;
1278: END IF; -- IF x_allowed = 'N' THEN
1279: END IF; -- IF g_opm_restrict_rma_lots IN ('RESTRICTED_WITH_WARNING','RESTRICTED')

Line 1416: FND_MSG_PUB.initialize;

1412: END IF;
1413:
1414: -- Initialize message list if p_init_msg_list is set to TRUE.
1415: IF FND_API.to_Boolean( p_init_msg_lst ) THEN
1416: FND_MSG_PUB.initialize;
1417: END IF;
1418:
1419: l_progress := '020' ;
1420:

Line 1524: FND_MSG_PUB.Add;

1520: AND ((sublot_num IS NULL AND l_sublot_no IS NULL) OR (Ltrim(Rtrim(sublot_num)) = l_sublot_no )) ;
1521:
1522: IF l_same_lot_count > 1 THEN
1523: FND_MESSAGE.SET_NAME('GML', 'GML_LOT_SUBLOT_USED');
1524: FND_MSG_PUB.Add;
1525: x_return_status := fnd_api.g_ret_sts_error;
1526: RAISE FND_API.G_EXC_ERROR;
1527: END IF;
1528:

Line 1984: FND_MSG_PUB.Add;

1980: END IF;
1981: FND_MESSAGE.SET_NAME('GML','GML_RECV_INVALID_LOT');
1982: FND_MESSAGE.SET_TOKEN('LOT_NO',l_lot_no);
1983: FND_MESSAGE.SET_TOKEN('SUBLOT_NO',l_sublot_no);
1984: FND_MSG_PUB.Add;
1985: x_return_status := fnd_api.g_ret_sts_error;
1986: RAISE FND_API.G_EXC_ERROR;
1987: END ;
1988:

Line 2006: FND_MSG_PUB.Add;

2002: print_debug(' Qty more than received for trx_type,parent_trx_type,grand_parent_trx_type=>'||l_transaction_type||'-'||p_parent_txn_type||'-'||p_grand_parent_txn_type, 1);
2003: END IF;
2004: FND_MESSAGE.SET_NAME('GML', 'PO_RETURN_MORE_RECEIVE');
2005: FND_MESSAGE.SET_TOKEN('AVAILABLE_QTY',l_net_received_lot_qty);
2006: FND_MSG_PUB.Add;
2007: x_return_status := fnd_api.g_ret_sts_error;
2008: RAISE FND_API.G_EXC_ERROR;
2009: END IF;
2010:

Line 2030: FND_MSG_PUB.Add;

2026:
2027: IF (nvl(l_old_recv_qty,0) - nvl(l_old_rtrn_qty,0) + nvl(l_cr_avaliable_qty,0)) < l_lot_primary_quantity THEN
2028: FND_MESSAGE.SET_NAME('GML', 'PO_RETURN_MORE_RECEIVE');
2029: FND_MESSAGE.SET_TOKEN('AVAILABLE_QTY',nvl(l_old_recv_qty,0) - nvl(l_old_rtrn_qty,0) + nvl(l_cr_avaliable_qty,0));
2030: FND_MSG_PUB.Add;
2031: x_return_status := fnd_api.g_ret_sts_error;
2032: RAISE FND_API.G_EXC_ERROR;
2033: END IF;
2034:

Line 2069: p_error_message => FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,p_encoded => 'F'),

2065: p_group_id => NULL,
2066: p_header_interface_id => NULL,
2067: p_column_name => 'TRANSACTION_QUANTITY',
2068: p_table_name => 'MTL_TRANSACTION_LOTS_INTERFACE',
2069: p_error_message => FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,p_encoded => 'F'),
2070: p_mesg_owner => NULL,
2071: p_error_message_name => NULL );
2072:
2073: -- reset warning to success otherwise ROI c routine will fail the transaction

Line 2237: FND_MSG_PUB.Add;

2233:
2234: FND_MESSAGE.SET_NAME('GML','GML_RECV_INVALID_LOT');
2235: FND_MESSAGE.SET_TOKEN('LOT_NO',l_lot_no);
2236: FND_MESSAGE.SET_TOKEN('SUBLOT_NO',l_sublot_no);
2237: FND_MSG_PUB.Add;
2238: x_return_status := fnd_api.g_ret_sts_error;
2239: RAISE FND_API.G_EXC_ERROR;
2240:
2241: END IF ;

Line 2455: FND_MSG_PUB.Add;

2451: END IF;
2452: FND_MESSAGE.SET_NAME('GML','GML_RECV_INVALID_LOT');
2453: FND_MESSAGE.SET_TOKEN('LOT_NO',l_lot_no);
2454: FND_MESSAGE.SET_TOKEN('SUBLOT_NO',l_sublot_no);
2455: FND_MSG_PUB.Add;
2456: x_return_status := fnd_api.g_ret_sts_error;
2457: RAISE FND_API.G_EXC_ERROR;
2458: END ;
2459: l_progress := '210' ;

Line 2473: FND_MSG_PUB.Add;

2469: -- new lots not allowed for correction to deliver transaction.
2470: FND_MESSAGE.SET_NAME('GML','GML_RECV_INVALID_LOT');
2471: FND_MESSAGE.SET_TOKEN('LOT_NO',l_lot_no);
2472: FND_MESSAGE.SET_TOKEN('SUBLOT_NO',l_sublot_no);
2473: FND_MSG_PUB.Add;
2474: x_return_status := fnd_api.g_ret_sts_error;
2475: RAISE FND_API.G_EXC_ERROR;
2476: END IF;
2477:

Line 2615: p_error_message => FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,p_encoded => 'F'),

2611: p_group_id => NULL,
2612: p_header_interface_id => NULL,
2613: p_column_name => NULL,
2614: p_table_name => 'MTL_TRANSACTION_LOTS_INTERFACE',
2615: p_error_message => FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,p_encoded => 'F'),
2616: p_mesg_owner => NULL,
2617: p_Error_Message_name => NULL );
2618:
2619: IF l_inv_debug = 1 THEN

Line 2620: print_debug(' Main exception in validate_opm_lot'||l_progress||'-'||substr(FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,p_encoded => 'F'),1,100), 1);

2616: p_mesg_owner => NULL,
2617: p_Error_Message_name => NULL );
2618:
2619: IF l_inv_debug = 1 THEN
2620: print_debug(' Main exception in validate_opm_lot'||l_progress||'-'||substr(FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,p_encoded => 'F'),1,100), 1);
2621: END IF;
2622: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2623:
2624: WHEN OTHERS THEN

Line 2622: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);

2618:
2619: IF l_inv_debug = 1 THEN
2620: print_debug(' Main exception in validate_opm_lot'||l_progress||'-'||substr(FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,p_encoded => 'F'),1,100), 1);
2621: END IF;
2622: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2623:
2624: WHEN OTHERS THEN
2625: x_return_status := fnd_api.g_ret_sts_unexp_error;
2626: insert_errors( p_rti_id => l_rti_id,

Line 2638: fnd_msg_pub.count_and_get( p_count => x_msg_count, p_data => x_msg_data);

2634: p_Error_Message_name => NULL);
2635: IF l_inv_debug = 1 THEN
2636: print_debug('Unhandled exception in validate_opm_lot'||l_progress||'-'||substr(sqlerrm,1,100), 1);
2637: END IF;
2638: fnd_msg_pub.count_and_get( p_count => x_msg_count, p_data => x_msg_data);
2639: END validate_opm_lot;
2640:
2641: END GML_OPM_ROI_GRP ;