DBA Data[Home] [Help]

APPS.GMI_LOTS_PUB dependencies on FND_MSG_PUB

Line 120: FND_MSG_PUB.Initialize;

116: END IF;
117: -- Initialize message list if p_int_msg_list is set TRUE.
118: IF FND_API.to_boolean(p_init_msg_list)
119: THEN
120: FND_MSG_PUB.Initialize;
121: END IF;
122:
123: -- Initialize API return status to sucess
124: x_return_status :=FND_API.G_RET_STS_SUCCESS;

Line 145: FND_MSG_PUB.Add;

141: IF l_user_id = 0
142: THEN
143: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_USER_NAME');
144: FND_MESSAGE.SET_TOKEN('USER_NAME',l_user_name);
145: FND_MSG_PUB.Add;
146: RAISE FND_API.G_EXC_ERROR;
147: END IF;
148:
149: -- Get required system constants

Line 158: FND_MSG_PUB.Add;

154: IF (IC$DEFAULT_LOT IS NULL)
155: THEN
156: FND_MESSAGE.SET_NAME('GMI','IC_API_UNABLE_TO_GET_CONSTANT');
157: FND_MESSAGE.SET_TOKEN('CONSTANT_NAME','IC$DEFAULT_LOT');
158: FND_MSG_PUB.Add;
159: RAISE FND_API.G_EXC_ERROR;
160: END IF;
161:
162:

Line 178: FND_MSG_PUB.Add;

174: (l_ic_item_mst_rec.delete_mark = 1)
175: THEN
176: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_ITEM_NO');
177: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_lot_rec.item_no);
178: FND_MSG_PUB.Add;
179: RAISE FND_API.G_EXC_ERROR;
180: ELSIF (l_ic_item_mst_rec.noninv_ind = 1) AND
181: (p_lot_rec.lot_no <> 'NEWITEM')
182: THEN

Line 185: FND_MSG_PUB.Add;

181: (p_lot_rec.lot_no <> 'NEWITEM')
182: THEN
183: FND_MESSAGE.SET_NAME('GMI','IC_API_NONINV_ITEM_NO');
184: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_lot_rec.item_no);
185: FND_MSG_PUB.Add;
186: RAISE FND_API.G_EXC_ERROR;
187: ELSIF (l_ic_item_mst_rec.inactive_ind = 1) AND
188: (p_lot_rec.lot_no <> 'NEWITEM')
189: THEN

Line 192: FND_MSG_PUB.Add;

188: (p_lot_rec.lot_no <> 'NEWITEM')
189: THEN
190: FND_MESSAGE.SET_NAME('GMI','IC_API_INACTIVE_ITEM_NO');
191: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_lot_rec.item_no);
192: FND_MSG_PUB.Add;
193: RAISE FND_API.G_EXC_ERROR;
194: END IF;
195:
196: -- Set up defaults for hold and maturity days

Line 317: FND_MSG_PUB.Add;

313: IF (l_lot_id <= 0)
314: THEN
315: FND_MESSAGE.SET_NAME('GMI','IC_API_UNABLE_TO_GET_SURROGATE');
316: FND_MESSAGE.SET_TOKEN('SKEY','lot_id');
317: FND_MSG_PUB.Add;
318: RAISE FND_API.G_EXC_ERROR;
319: END IF;
320:
321: -- End of default lot condition

Line 429: FND_MSG_PUB.Add;

425: FND_MESSAGE.SET_NAME('GMI','IC_API_LOT_CREATED');
426: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_lot_rec.item_no);
427: FND_MESSAGE.SET_TOKEN('LOT_NO', l_lot_rec.lot_no);
428: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', l_lot_rec.sublot_no);
429: FND_MSG_PUB.Add;
430: -- Standard Call to get message count and if count is 1,
431: -- get message info.
432:
433: FND_MSG_PUB.Count_AND_GET ( p_count => x_msg_count

Line 433: FND_MSG_PUB.Count_AND_GET ( p_count => x_msg_count

429: FND_MSG_PUB.Add;
430: -- Standard Call to get message count and if count is 1,
431: -- get message info.
432:
433: FND_MSG_PUB.Count_AND_GET ( p_count => x_msg_count
434: , p_data => x_msg_data
435: );
436:
437: EXCEPTION

Line 441: FND_MSG_PUB.Count_AND_GET ( p_count => x_msg_count

437: EXCEPTION
438: WHEN FND_API.G_EXC_ERROR THEN
439: ROLLBACK TO Create_Lot;
440: x_return_status := FND_API.G_RET_STS_ERROR;
441: FND_MSG_PUB.Count_AND_GET ( p_count => x_msg_count
442: , p_data => x_msg_data
443: );
444:
445: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 448: FND_MSG_PUB.Count_AND_GET ( p_count => x_msg_count

444:
445: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
446: ROLLBACK TO Create_Lot;
447: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
448: FND_MSG_PUB.Count_AND_GET ( p_count => x_msg_count
449: , p_data => x_msg_data
450: );
451:
452: WHEN OTHERS THEN

Line 455: -- IF FND_MSG_PUB.check_msg_level

451:
452: WHEN OTHERS THEN
453: ROLLBACK TO Create_Lot;
454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
455: -- IF FND_MSG_PUB.check_msg_level
456: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
457: -- THEN
458:
459: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME

Line 456: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

452: WHEN OTHERS THEN
453: ROLLBACK TO Create_Lot;
454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
455: -- IF FND_MSG_PUB.check_msg_level
456: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
457: -- THEN
458:
459: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
460: , l_api_name

Line 459: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME

455: -- IF FND_MSG_PUB.check_msg_level
456: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
457: -- THEN
458:
459: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
460: , l_api_name
461: );
462: -- END IF;
463: FND_MSG_PUB.Count_AND_GET ( p_count => x_msg_count

Line 463: FND_MSG_PUB.Count_AND_GET ( p_count => x_msg_count

459: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
460: , l_api_name
461: );
462: -- END IF;
463: FND_MSG_PUB.Count_AND_GET ( p_count => x_msg_count
464: , p_data => x_msg_data
465: );
466: END Create_Lot;
467:

Line 539: FND_MSG_PUB.Initialize;

535:
536: -- Initialize message list if p_int_msg_list is set TRUE.
537: IF FND_API.to_boolean(p_init_msg_list)
538: THEN
539: FND_MSG_PUB.Initialize;
540: END IF;
541: -- Initialize API return status to sucess
542: x_return_status := FND_API.G_RET_STS_SUCCESS;
543: --

Line 559: FND_MSG_PUB.Add;

555: IF (p_item_rec.lot_ctl <> 1)
556: THEN
557: FND_MESSAGE.SET_NAME('GMI','IC_API_ITEM_NOT_LOT_CTL');
558: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_item_no);
559: FND_MSG_PUB.Add;
560: RAISE FND_API.G_EXC_ERROR;
561: END IF;
562:
563: -- Check that lot number has been supplied and is not same value

Line 571: FND_MSG_PUB.Add;

567: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOT_NO');
568: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_item_no);
569: FND_MESSAGE.SET_TOKEN('LOT_NO', l_lot_no);
570: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', l_sublot_no);
571: FND_MSG_PUB.Add;
572: RAISE FND_API.G_EXC_ERROR;
573: END IF;
574:
575: --Check to see if item is Sublot Controlled

Line 583: FND_MSG_PUB.Add;

579: l_sublot_no IS NOT NULL)
580: THEN
581: FND_MESSAGE.SET_NAME('GMI','IC_API_SUBLOT_NOT_REQD');
582: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_item_no);
583: FND_MSG_PUB.Add;
584: RAISE FND_API.G_EXC_ERROR;
585: END IF;
586:
587: --Check that lot number and sublot number do not exist for item number

Line 597: FND_MSG_PUB.Add;

593: FND_MESSAGE.SET_NAME('GMI','IC_API_LOT_ALREADY_EXISTS');
594: FND_MESSAGE.SET_TOKEN('LOT_NO', l_lot_no);
595: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', l_sublot_no);
596: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_item_no);
597: FND_MSG_PUB.Add;
598: RAISE FND_API.G_EXC_ERROR;
599: END IF;
600:
601: --Check to see if item is Grade Controlled

Line 610: FND_MSG_PUB.Add;

606: FND_MESSAGE.SET_NAME('GMI','IC_API_LOT_QC_GRADE_NOT_REQD');
607: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_item_no);
608: FND_MESSAGE.SET_TOKEN('LOT_NO', l_lot_no);
609: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', l_sublot_no);
610: FND_MSG_PUB.Add;
611: RAISE FND_API.G_EXC_ERROR;
612: END IF;
613:
614: --Validate QC Grade

Line 623: FND_MSG_PUB.Add;

619: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOT_QC_GRADE');
620: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_item_no);
621: FND_MESSAGE.SET_TOKEN('LOT_NO', l_lot_no);
622: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', l_sublot_no);
623: FND_MSG_PUB.Add;
624: RAISE FND_API.G_EXC_ERROR;
625: END IF;
626:
627: --Validate Expaction Code

Line 637: FND_MSG_PUB.Add;

633: FND_MESSAGE.SET_NAME('GMI','IC_API_INV_LOT_EXPACTION_CODE');
634: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_item_no);
635: FND_MESSAGE.SET_TOKEN('LOT_NO', l_lot_no);
636: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', l_sublot_no);
637: FND_MSG_PUB.Add;
638: RAISE FND_API.G_EXC_ERROR;
639: END IF;
640:
641: --Validate Expire Date

Line 648: FND_MSG_PUB.Add;

644: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_EXPIRE_DATE');
645: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_item_no);
646: FND_MESSAGE.SET_TOKEN('LOT_NO', l_lot_no);
647: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', l_sublot_no);
648: FND_MSG_PUB.Add;
649: RAISE FND_API.G_EXC_ERROR;
650: END IF;
651:
652: --Validate Retest Date

Line 659: FND_MSG_PUB.Add;

655: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_RETEST_DATE');
656: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_item_no);
657: FND_MESSAGE.SET_TOKEN('LOT_NO', l_lot_no);
658: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', l_sublot_no);
659: FND_MSG_PUB.Add;
660: RAISE FND_API.G_EXC_ERROR;
661: END IF;
662:
663: --Validate Expaction Date

Line 670: FND_MSG_PUB.Add;

666: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_EXPACTION_DATE');
667: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_item_no);
668: FND_MESSAGE.SET_TOKEN('LOT_NO', l_lot_no);
669: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', l_sublot_no);
670: FND_MSG_PUB.Add;
671: RAISE FND_API.G_EXC_ERROR;
672: END IF;
673:
674: --Validate Strength

Line 681: FND_MSG_PUB.Add;

677: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOT_STRENGTH');
678: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_item_no);
679: FND_MESSAGE.SET_TOKEN('LOT_NO', l_lot_no);
680: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', l_sublot_no);
681: FND_MSG_PUB.Add;
682: RAISE FND_API.G_EXC_ERROR;
683: END IF;
684:
685: --Validate Inactive Indicator

Line 692: FND_MSG_PUB.Add;

688: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOT_INACTIVE');
689: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_item_no);
690: FND_MESSAGE.SET_TOKEN('LOT_NO', l_lot_no);
691: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', l_sublot_no);
692: FND_MSG_PUB.Add;
693: RAISE FND_API.G_EXC_ERROR;
694: END IF;
695:
696: --Validate Origination Type

Line 705: FND_MSG_PUB.Add;

701: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOT_ORIG_TYPE');
702: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_item_no);
703: FND_MESSAGE.SET_TOKEN('LOT_NO', l_lot_no);
704: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', l_sublot_no);
705: FND_MSG_PUB.Add;
706: RAISE FND_API.G_EXC_ERROR;
707: END IF;
708:
709: --Validate Shipvendor Number

Line 719: FND_MSG_PUB.Add;

715: FND_MESSAGE.SET_NAME('GMI','IC_API_INV_LOT_SHIPVENDOR_NO');
716: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_item_no);
717: FND_MESSAGE.SET_TOKEN('LOT_NO', l_lot_no);
718: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', l_sublot_no);
719: FND_MSG_PUB.Add;
720: RAISE FND_API.G_EXC_ERROR;
721: END IF;
722:
723: --Validate Maturity date (CPG)

Line 728: FND_MSG_PUB.Add;

724: IF (p_lot_rec.ic_matr_date < p_lot_rec.lot_created)
725: THEN
726: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOT_MATR_DATE');
727: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_item_no);
728: FND_MSG_PUB.Add;
729: RAISE FND_API.G_EXC_ERROR;
730: END IF;
731:
732: --Validate Hold release date (CPG)

Line 737: FND_MSG_PUB.Add;

733: IF (p_lot_rec.ic_hold_date < p_lot_rec.lot_created)
734: THEN
735: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOT_HOLD_DATE');
736: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_item_no);
737: FND_MSG_PUB.Add;
738: RAISE FND_API.G_EXC_ERROR;
739: END IF;
740:
741: EXCEPTION

Line 745: FND_MSG_PUB.Count_AND_GET

741: EXCEPTION
742:
743: WHEN FND_API.G_EXC_ERROR THEN
744: x_return_status := FND_API.G_RET_STS_ERROR;
745: FND_MSG_PUB.Count_AND_GET
746: ( p_count => x_msg_count,
747: p_data => x_msg_data
748: );
749: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 751: FND_MSG_PUB.Count_AND_GET

747: p_data => x_msg_data
748: );
749: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
750: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
751: FND_MSG_PUB.Count_AND_GET
752: ( p_count => x_msg_count,
753: p_data => x_msg_data
754: );
755: WHEN OTHERS THEN

Line 757: FND_MSG_PUB.Add_Exc_Msg

753: p_data => x_msg_data
754: );
755: WHEN OTHERS THEN
756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
757: FND_MSG_PUB.Add_Exc_Msg
758: ( G_PKG_NAME ,
759: l_api_name
760: );
761: FND_MSG_PUB.Count_AND_GET

Line 761: FND_MSG_PUB.Count_AND_GET

757: FND_MSG_PUB.Add_Exc_Msg
758: ( G_PKG_NAME ,
759: l_api_name
760: );
761: FND_MSG_PUB.Count_AND_GET
762: ( p_count => x_msg_count,
763: p_data => x_msg_data
764: );
765: END Validate_Lot;