59: SAVEPOINT Insert_Item_Tech_Data_PUB; /* Changed in Bug No.7489645*/
60:
61: -- Initialize message list if p_init_msg_list is set to TRUE.
62: IF FND_API.to_Boolean( p_init_msg_list ) THEN
63: FND_MSG_PUB.initialize;
64: END IF;
65:
66: -- Standard call to check for call compatibility.
67: IF NOT FND_API.Compatible_API_Call ( l_api_version
86: );
87:
88: IF l_return_status IN (FND_API.G_RET_STS_ERROR, FND_API.G_RET_STS_UNEXP_ERROR) THEN
89: FND_MESSAGE.SET_NAME('GMD','GMD_API_NO_ROWS_INS');
90: FND_MSG_PUB.ADD;
91: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
92: END IF;
93:
94: -- Insert Item Technical Data header
171: WHEN FND_API.G_EXC_ERROR THEN
172:
173: ROLLBACK TO Insert_Item_Tech_Data_PUB;
174: x_return_status := FND_API.G_RET_STS_ERROR ;
175: fnd_msg_pub.count_and_get (
176: p_count => x_msg_count
177: ,p_encoded => FND_API.g_false
178: ,p_data => x_msg_data);
179:
182:
183: ROLLBACK TO Insert_Item_Tech_Data_PUB;
184:
185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
186: fnd_msg_pub.count_and_get (
187: p_count => x_msg_count
188: ,p_encoded => FND_API.g_false
189: ,p_data => x_msg_data);
190:
192:
193: ROLLBACK TO Insert_Item_Tech_Data_PUB;
194:
195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
196: fnd_msg_pub.count_and_get (
197: p_count => x_msg_count
198: ,p_encoded => FND_API.g_false
199: ,p_data => x_msg_data);
200:
259:
260: -- Initialize message list if p_init_msg_list is set to TRUE.
261: IF FND_API.to_Boolean( p_init_msg_list )
262: THEN
263: FND_MSG_PUB.initialize;
264: END IF;
265:
266:
267: -- Standard call to check for call compatibility.
289:
290:
291: IF l_return_status IN (FND_API.G_RET_STS_ERROR, FND_API.G_RET_STS_UNEXP_ERROR) THEN
292: FND_MESSAGE.SET_NAME('GMD','GMF_API_NO_ROWS_UPD');
293: FND_MSG_PUB.ADD;
294: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
295: END IF;*/
296:
297: OPEN get_Orgn_id;
353: WHEN FND_API.G_EXC_ERROR THEN
354:
355: ROLLBACK TO Update_Item_Tech_Data;
356: x_return_status := FND_API.G_RET_STS_ERROR ;
357: fnd_msg_pub.count_and_get (
358: p_count => x_msg_count
359: ,p_encoded => FND_API.g_false
360: ,p_data => x_msg_data);
361:
363: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
364:
365: ROLLBACK TO Update_Item_Tech_Data;
366: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
367: fnd_msg_pub.count_and_get (
368: p_count => x_msg_count
369: ,p_encoded => FND_API.g_false
370: ,p_data => x_msg_data);
371:
373: WHEN OTHERS THEN
374:
375: ROLLBACK TO Update_Item_Tech_Data;
376: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
377: fnd_msg_pub.count_and_get (
378: p_count => x_msg_count
379: ,p_encoded => FND_API.g_false
380: ,p_data => x_msg_data);
381:
413:
414: -- Initialize message list if p_init_msg_list is set to TRUE.
415: IF FND_API.to_Boolean( p_init_msg_list )
416: THEN
417: FND_MSG_PUB.initialize;
418: END IF;
419:
420: -- Standard call to check for call compatibility.
421: IF NOT FND_API.Compatible_API_Call (l_api_version ,
448: WHEN FND_API.G_EXC_ERROR THEN
449:
450: ROLLBACK TO Delete_Item_Tech_Data;
451: x_return_status := FND_API.G_RET_STS_ERROR ;
452: fnd_msg_pub.count_and_get (
453: p_count => x_msg_count
454: ,p_encoded => FND_API.g_false
455: ,p_data => x_msg_data);
456:
458: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
459:
460: ROLLBACK TO Delete_Item_Tech_Data;
461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
462: fnd_msg_pub.count_and_get (
463: p_count => x_msg_count
464: ,p_encoded => FND_API.g_false
465: ,p_data => x_msg_data);
466:
467: WHEN OTHERS THEN
468:
469: ROLLBACK TO Delete_Item_Tech_Data;
470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
471: fnd_msg_pub.count_and_get (
472: p_count => x_msg_count
473: ,p_encoded => FND_API.g_false
474: ,p_data => x_msg_data);
475:
603: /*-- Check that formula and batch id are both not present
604: IF (p_header_rec.FORMULA_ID IS NOT NULL AND p_header_rec.BATCH_ID IS NOT NULL) THEN
605: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
606: FND_MESSAGE.SET_TOKEN ('MISSING', 'FORMULA_ID');
607: FND_MSG_PUB.ADD;
608: x_return_status := FND_API.G_RET_STS_ERROR ;
609: RAISE FND_API.G_EXC_ERROR;
610: END IF;*/
611:
626: OPEN check_batch(p_header_rec.batch_id);
627: FETCH check_batch INTO l_count;
628: IF check_batch%NOTFOUND THEN
629: FND_MESSAGE.SET_NAME ('GMD', 'GMD_BATCH_NOT_FOUND');
630: FND_MSG_PUB.ADD;
631: x_return_status := FND_API.G_RET_STS_ERROR ;
632: CLOSE check_batch;
633: RAISE FND_API.G_EXC_ERROR;
634: END IF;
639:
640: WHEN ITEM_MISSING THEN
641: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
642: FND_MESSAGE.SET_TOKEN ('MISSING', 'INVENTORY_ITEM_ID');
643: FND_MSG_PUB.ADD;
644: x_return_status := FND_API.G_RET_STS_ERROR ;
645:
646: WHEN ORGANIZATION_MISSING THEN
647: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
645:
646: WHEN ORGANIZATION_MISSING THEN
647: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
648: FND_MESSAGE.SET_TOKEN ('MISSING', 'ORGANIZATION_ID');
649: FND_MSG_PUB.ADD;
650: x_return_status := FND_API.G_RET_STS_ERROR ;
651:
652: WHEN LOT_MISSING THEN
653: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
651:
652: WHEN LOT_MISSING THEN
653: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
654: FND_MESSAGE.SET_TOKEN ('MISSING', 'LOT_NO');
655: FND_MSG_PUB.ADD;
656: x_return_status := FND_API.G_RET_STS_ERROR ;
657:
658: WHEN LOT_ORGN_MISSING THEN
659: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
657:
658: WHEN LOT_ORGN_MISSING THEN
659: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
660: FND_MESSAGE.SET_TOKEN ('MISSING', 'LOT_ORGANIZATION_ID');
661: FND_MSG_PUB.ADD;
662: x_return_status := FND_API.G_RET_STS_ERROR ;
663:
664: WHEN INVALID_ITEM_NO THEN
665: FND_MESSAGE.SET_NAME ('GMI', 'IC_INVALID_ITEM_NO');
662: x_return_status := FND_API.G_RET_STS_ERROR ;
663:
664: WHEN INVALID_ITEM_NO THEN
665: FND_MESSAGE.SET_NAME ('GMI', 'IC_INVALID_ITEM_NO');
666: FND_MSG_PUB.ADD;
667: x_return_status := FND_API.G_RET_STS_ERROR ;
668:
669: WHEN INVALID_LAB_ORGN THEN
670: FND_MESSAGE.SET_NAME ('GMD', 'LM_BAD_LAB_TYPE');
667: x_return_status := FND_API.G_RET_STS_ERROR ;
668:
669: WHEN INVALID_LAB_ORGN THEN
670: FND_MESSAGE.SET_NAME ('GMD', 'LM_BAD_LAB_TYPE');
671: FND_MSG_PUB.ADD;
672: x_return_status := FND_API.G_RET_STS_ERROR ;
673:
674: WHEN INVALID_LOT THEN
675: FND_MESSAGE.SET_NAME ('GMI', 'IC_INVALID_LOT/SUBLOT');
672: x_return_status := FND_API.G_RET_STS_ERROR ;
673:
674: WHEN INVALID_LOT THEN
675: FND_MESSAGE.SET_NAME ('GMI', 'IC_INVALID_LOT/SUBLOT');
676: FND_MSG_PUB.ADD;
677: x_return_status := FND_API.G_RET_STS_ERROR ;
678:
679: WHEN INVALID_FORMULA THEN
680: FND_MESSAGE.SET_NAME ('GMD', 'LM_NOT_PROD');
677: x_return_status := FND_API.G_RET_STS_ERROR ;
678:
679: WHEN INVALID_FORMULA THEN
680: FND_MESSAGE.SET_NAME ('GMD', 'LM_NOT_PROD');
681: FND_MSG_PUB.ADD;
682: x_return_status := FND_API.G_RET_STS_ERROR ;
683:
684: END VALIDATE_INPUT_PARAMS;
685:
716: BEGIN
717:
718: -- Initialize message list if p_init_msg_list is set to TRUE.
719: IF FND_API.to_Boolean( p_init_msg_list ) THEN
720: FND_MSG_PUB.initialize;
721: END IF;
722:
723: -- Standard call to check for call compatibility.
724: IF NOT FND_API.Compatible_API_Call (l_api_version ,
746: EXCEPTION
747:
748: WHEN FND_API.G_EXC_ERROR THEN
749: x_return_status := FND_API.G_RET_STS_ERROR ;
750: fnd_msg_pub.count_and_get (
751: p_count => x_msg_count
752: ,p_encoded => FND_API.g_false
753: ,p_data => x_msg_data);
754:
754:
755:
756: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
757: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
758: fnd_msg_pub.count_and_get (
759: p_count => x_msg_count
760: ,p_encoded => FND_API.g_false
761: ,p_data => x_msg_data);
762:
762:
763:
764: WHEN OTHERS THEN
765: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
766: fnd_msg_pub.count_and_get (
767: p_count => x_msg_count
768: ,p_encoded => FND_API.g_false
769: ,p_data => x_msg_data);
770: