DBA Data[Home] [Help]

APPS.GMI_LOTS_PUB dependencies on FND_API

Line 79: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE

75: --| Expire Date and Expaction Dates correctly. |
76: --+==========================================================================+
77: PROCEDURE Create_Lot
78: ( p_api_version IN NUMBER
79: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
80: , p_commit IN VARCHAR2 := FND_API.G_FALSE
81: , p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
82: , p_lot_rec IN lot_rec_typ
83: , x_return_status OUT NOCOPY VARCHAR2

Line 80: , p_commit IN VARCHAR2 := FND_API.G_FALSE

76: --+==========================================================================+
77: PROCEDURE Create_Lot
78: ( p_api_version IN NUMBER
79: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
80: , p_commit IN VARCHAR2 := FND_API.G_FALSE
81: , p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
82: , p_lot_rec IN lot_rec_typ
83: , x_return_status OUT NOCOPY VARCHAR2
84: , x_msg_count OUT NOCOPY NUMBER

Line 81: , p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL

77: PROCEDURE Create_Lot
78: ( p_api_version IN NUMBER
79: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
80: , p_commit IN VARCHAR2 := FND_API.G_FALSE
81: , p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
82: , p_lot_rec IN lot_rec_typ
83: , x_return_status OUT NOCOPY VARCHAR2
84: , x_msg_count OUT NOCOPY NUMBER
85: , x_msg_data OUT NOCOPY VARCHAR2

Line 109: IF NOT FND_API.Compatible_API_CALL ( l_api_version

105:
106: -- Standard Start OF API savepoint
107: SAVEPOINT Create_Lot;
108: -- Standard call to check for call compatibility.
109: IF NOT FND_API.Compatible_API_CALL ( l_api_version
110: , p_api_version
111: , l_api_name
112: , G_PKG_NAME
113: )

Line 115: Raise FND_API.G_EXC_UNEXPECTED_ERROR;

111: , l_api_name
112: , G_PKG_NAME
113: )
114: THEN
115: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
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

Line 118: IF FND_API.to_boolean(p_init_msg_list)

114: THEN
115: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
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:

Line 124: x_return_status :=FND_API.G_RET_STS_SUCCESS;

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;
125:
126: -- Ensure Upper-case columns are converted
127: -- H.Verdding B959447 - Part1
128: l_lot_rec := p_lot_rec;

Line 146: RAISE FND_API.G_EXC_ERROR;

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
150:

Line 159: RAISE FND_API.G_EXC_ERROR;

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:
163: -- Get item details

Line 172: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

168: );
169:
170: IF (l_ic_item_mst_rec.item_id < 0)
171: THEN
172: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
173: ELSIF (l_ic_item_mst_rec.item_id = 0) OR
174: (l_ic_item_mst_rec.delete_mark = 1)
175: THEN
176: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_ITEM_NO');

Line 179: RAISE FND_API.G_EXC_ERROR;

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

Line 186: RAISE FND_API.G_EXC_ERROR;

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

Line 193: RAISE FND_API.G_EXC_ERROR;

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
197: IF l_ic_item_cpg_rec.ic_hold_days IS NULL

Line 290: , p_init_msg_list => FND_API.G_FALSE

286:
287: -- Perform Validation
288:
289: GMI_LOTS_PUB.Validate_Lot ( p_api_version => 2.0
290: , p_init_msg_list => FND_API.G_FALSE
291: , p_validation_level =>FND_API.G_VALID_LEVEL_FULL
292: , p_lot_rec => l_lot_rec
293: , p_item_rec => l_ic_item_mst_rec
294: , x_return_status => l_return_status

Line 291: , p_validation_level =>FND_API.G_VALID_LEVEL_FULL

287: -- Perform Validation
288:
289: GMI_LOTS_PUB.Validate_Lot ( p_api_version => 2.0
290: , p_init_msg_list => FND_API.G_FALSE
291: , p_validation_level =>FND_API.G_VALID_LEVEL_FULL
292: , p_lot_rec => l_lot_rec
293: , p_item_rec => l_ic_item_mst_rec
294: , x_return_status => l_return_status
295: , x_msg_count => l_msg_count

Line 301: IF (l_return_status = FND_API.G_RET_STS_ERROR)

297: );
298:
299: -- If errors were found then raise exception
300: x_return_status := l_return_status;
301: IF (l_return_status = FND_API.G_RET_STS_ERROR)
302: THEN
303: RAISE FND_API.G_EXC_ERROR;
304: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
305: THEN

Line 303: RAISE FND_API.G_EXC_ERROR;

299: -- If errors were found then raise exception
300: x_return_status := l_return_status;
301: IF (l_return_status = FND_API.G_RET_STS_ERROR)
302: THEN
303: RAISE FND_API.G_EXC_ERROR;
304: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
305: THEN
306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
307: END IF;

Line 304: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)

300: x_return_status := l_return_status;
301: IF (l_return_status = FND_API.G_RET_STS_ERROR)
302: THEN
303: RAISE FND_API.G_EXC_ERROR;
304: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
305: THEN
306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
307: END IF;
308:

Line 306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

302: THEN
303: RAISE FND_API.G_EXC_ERROR;
304: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
305: THEN
306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
307: END IF;
308:
309: -- If no errors were found then proceed with the lot create
310:

Line 318: RAISE FND_API.G_EXC_ERROR;

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

Line 395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

391:
392:
393: IF NOT GMI_LOTS_PVT.insert_ic_lots_mst(l_ic_lots_mst_rec)
394: THEN
395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
396: END IF;
397:
398: -- Set up PL/SQL record and insert lot into ic_lots_cpg
399:

Line 413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

409: 'LOGIN_ID'));
410:
411: IF NOT GMI_LOTS_PVT.insert_ic_lots_cpg(l_ic_lots_cpg_rec)
412: THEN
413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
414: END IF;
415:
416: -- END of API Body
417:

Line 419: IF FND_API.to_boolean(p_commit)

415:
416: -- END of API Body
417:
418: -- Standard Check of p_commit.
419: IF FND_API.to_boolean(p_commit)
420: THEN
421: COMMIT WORK;
422: END IF;
423:

Line 438: WHEN FND_API.G_EXC_ERROR THEN

434: , p_data => x_msg_data
435: );
436:
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

Line 440: x_return_status := FND_API.G_RET_STS_ERROR;

436:
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:

Line 445: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

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
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

Line 447: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

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

Line 454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

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

Line 503: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE

499: --| |
500: --+==========================================================================+
501: PROCEDURE Validate_Lot
502: ( p_api_version IN NUMBER
503: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
504: , p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
505: , p_lot_rec IN lot_rec_typ
506: , p_item_rec IN ic_item_mst%ROWTYPE
507: , x_return_status OUT NOCOPY VARCHAR2

Line 504: , p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL

500: --+==========================================================================+
501: PROCEDURE Validate_Lot
502: ( p_api_version IN NUMBER
503: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
504: , p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
505: , p_lot_rec IN lot_rec_typ
506: , p_item_rec IN ic_item_mst%ROWTYPE
507: , x_return_status OUT NOCOPY VARCHAR2
508: , x_msg_count OUT NOCOPY NUMBER

Line 527: IF NOT FND_API.Compatible_API_CALL ( l_api_version

523:
524: BEGIN
525:
526: -- Standard call to check for call compatibility.
527: IF NOT FND_API.Compatible_API_CALL ( l_api_version
528: , p_api_version
529: , l_api_name
530: , G_PKG_NAME
531: )

Line 533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

529: , l_api_name
530: , G_PKG_NAME
531: )
532: THEN
533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
534: END IF;
535:
536: -- Initialize message list if p_int_msg_list is set TRUE.
537: IF FND_API.to_boolean(p_init_msg_list)

Line 537: IF FND_API.to_boolean(p_init_msg_list)

533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
534: END IF;
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

Line 542: x_return_status := FND_API.G_RET_STS_SUCCESS;

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: --
544:
545: -- Ensure Upper-case columns are converted
546:

Line 560: RAISE FND_API.G_EXC_ERROR;

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
564: -- as IC$DEFAULT_LOT

Line 572: RAISE FND_API.G_EXC_ERROR;

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
576:

Line 584: RAISE FND_API.G_EXC_ERROR;

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
588: IF GMI_VALID_GRP.Validate_lot_no ( l_item_no

Line 598: RAISE FND_API.G_EXC_ERROR;

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
602: IF (p_item_rec.grade_ctl <> 1 AND

Line 611: RAISE FND_API.G_EXC_ERROR;

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
615: IF NOT GMI_VALID_GRP.Validate_qc_grade ( p_lot_rec.qc_grade

Line 624: RAISE FND_API.G_EXC_ERROR;

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
628: IF (NOT GMI_VALID_GRP.Validate_expaction_code( p_lot_rec.expaction_code

Line 638: RAISE FND_API.G_EXC_ERROR;

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
642: IF (TRUNC(p_lot_rec.expire_date, 'DD') < TRUNC(p_lot_rec.lot_created, 'DD'))

Line 649: RAISE FND_API.G_EXC_ERROR;

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
653: IF (TRUNC(p_lot_rec.retest_date, 'DD') < TRUNC(p_lot_rec.lot_created, 'DD'))

Line 660: RAISE FND_API.G_EXC_ERROR;

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
664: IF (TRUNC(p_lot_rec.expaction_date,'DD') < TRUNC(p_lot_rec.lot_created,'DD'))

Line 671: RAISE FND_API.G_EXC_ERROR;

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
675: IF NOT GMI_VALID_GRP.Validate_strength(p_lot_rec.strength)

Line 682: RAISE FND_API.G_EXC_ERROR;

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
686: IF NOT GMI_VALID_GRP.Validate_inactive_ind(p_lot_rec.inactive_ind)

Line 693: RAISE FND_API.G_EXC_ERROR;

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
697: --HAM IF NOT GMI_VALID_GRP.Validate_origination_type(p_lot_rec.origination_type)

Line 706: RAISE FND_API.G_EXC_ERROR;

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
710: IF (p_lot_rec.shipvendor_no = ' ' OR p_lot_rec.shipvendor_no IS NULL)

Line 720: RAISE FND_API.G_EXC_ERROR;

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)
724: IF (p_lot_rec.ic_matr_date < p_lot_rec.lot_created)

Line 729: RAISE FND_API.G_EXC_ERROR;

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)
733: IF (p_lot_rec.ic_hold_date < p_lot_rec.lot_created)

Line 738: RAISE FND_API.G_EXC_ERROR;

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
742:

Line 743: WHEN FND_API.G_EXC_ERROR THEN

739: END IF;
740:
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

Line 744: x_return_status := FND_API.G_RET_STS_ERROR;

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

Line 749: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

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
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

Line 750: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

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

Line 756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

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