92: l_inv_test_inp_rec GMD_QUALITY_GRP.INV_INP_REC_TYPE;
93:
94: BEGIN
95: -- Initialize API return status to success
96: x_return_status := FND_API.G_RET_STS_SUCCESS;
97:
98: -- Intialize the local variable rec
99: l_inv_test_inp_rec := P_inv_test_inp_rec;
100:
190: x_inv_test_out_rec.composite_ind := x_results.composite_ind;
191: END IF;
192:
193: EXCEPTION
194: WHEN FND_API.G_EXC_ERROR THEN
195: x_return_status := FND_API.G_RET_STS_ERROR ;
196: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
198: WHEN OTHERS THEN
191: END IF;
192:
193: EXCEPTION
194: WHEN FND_API.G_EXC_ERROR THEN
195: x_return_status := FND_API.G_RET_STS_ERROR ;
196: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
198: WHEN OTHERS THEN
199: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
192:
193: EXCEPTION
194: WHEN FND_API.G_EXC_ERROR THEN
195: x_return_status := FND_API.G_RET_STS_ERROR ;
196: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
198: WHEN OTHERS THEN
199: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
200: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
193: EXCEPTION
194: WHEN FND_API.G_EXC_ERROR THEN
195: x_return_status := FND_API.G_RET_STS_ERROR ;
196: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
198: WHEN OTHERS THEN
199: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
200: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
201: END get_inv_test_value;
195: x_return_status := FND_API.G_RET_STS_ERROR ;
196: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
198: WHEN OTHERS THEN
199: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
200: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
201: END get_inv_test_value;
202:
203: /* ************************************************************************ */
322: No_test_results_exp EXCEPTION;
323:
324: BEGIN
325: -- Initialize API return status to success
326: x_return_status := FND_API.G_RET_STS_SUCCESS;
327:
328: -- Get the list of approved sampling events
329: GMD_QUALITY_GRP.get_appr_sampling_events
330: ( p_inv_rslt_inp_rec => p_inv_rslt_inp_rec
506: END IF; -- when l_row_num > 0
507:
508: EXCEPTION
509: WHEN OTHERS THEN
510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
511: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
512: END get_inv_result_test_value;
513:
514:
595: No_Appr_Sample_evt_exp EXCEPTION;
596:
597: BEGIN
598: -- Initialize API return status to success
599: x_return_status := FND_API.G_RET_STS_SUCCESS;
600: IF (l_debug = 'Y') THEN
601: gmd_debug.put_line('Begining get_appr_sampling_evnt proc, '
602: ||' inventory_item_id = '||p_inv_rslt_inp_rec.inventory_item_id
603: ||' organization_id = '||p_inv_rslt_inp_rec.organization_id
639: EXCEPTION
640: WHEN No_Appr_Sample_evt_exp THEN
641: FND_MESSAGE.SET_NAME('GMD','GMD_SAMPLING_EVENT_NOT_FOUND');
642: FND_MSG_PUB.ADD;
643: WHEN FND_API.G_EXC_ERROR THEN
644: x_return_status := FND_API.G_RET_STS_ERROR ;
645: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
646: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
647: WHEN OTHERS THEN
640: WHEN No_Appr_Sample_evt_exp THEN
641: FND_MESSAGE.SET_NAME('GMD','GMD_SAMPLING_EVENT_NOT_FOUND');
642: FND_MSG_PUB.ADD;
643: WHEN FND_API.G_EXC_ERROR THEN
644: x_return_status := FND_API.G_RET_STS_ERROR ;
645: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
646: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
647: WHEN OTHERS THEN
648: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
641: FND_MESSAGE.SET_NAME('GMD','GMD_SAMPLING_EVENT_NOT_FOUND');
642: FND_MSG_PUB.ADD;
643: WHEN FND_API.G_EXC_ERROR THEN
644: x_return_status := FND_API.G_RET_STS_ERROR ;
645: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
646: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
647: WHEN OTHERS THEN
648: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
649: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
642: FND_MSG_PUB.ADD;
643: WHEN FND_API.G_EXC_ERROR THEN
644: x_return_status := FND_API.G_RET_STS_ERROR ;
645: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
646: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
647: WHEN OTHERS THEN
648: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
649: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
650: END get_appr_sampling_events;
644: x_return_status := FND_API.G_RET_STS_ERROR ;
645: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
646: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
647: WHEN OTHERS THEN
648: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
649: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
650: END get_appr_sampling_events;
651:
652:
711: WHERE spec_vr_id = vSpec_vr_id;
712:
713: BEGIN
714: -- Initialize API return status to success
715: x_return_status := FND_API.G_RET_STS_SUCCESS;
716:
717: l_inventory_spec_rec.inventory_item_id := p_inv_spec_inp_rec.inventory_item_id;
718: l_inventory_spec_rec.grade_code := p_inv_spec_inp_rec.grade_code;
719: l_inventory_spec_rec.organization_id := p_inv_spec_inp_rec.organization_id;
808: FND_MSG_PUB.ADD;
809: END IF; -- If the inventory spec match exists
810:
811: EXCEPTION
812: WHEN FND_API.G_EXC_ERROR THEN
813: x_return_status := FND_API.G_RET_STS_ERROR ;
814: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
816: WHEN OTHERS THEN
809: END IF; -- If the inventory spec match exists
810:
811: EXCEPTION
812: WHEN FND_API.G_EXC_ERROR THEN
813: x_return_status := FND_API.G_RET_STS_ERROR ;
814: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
816: WHEN OTHERS THEN
817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
810:
811: EXCEPTION
812: WHEN FND_API.G_EXC_ERROR THEN
813: x_return_status := FND_API.G_RET_STS_ERROR ;
814: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
816: WHEN OTHERS THEN
817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
818: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
811: EXCEPTION
812: WHEN FND_API.G_EXC_ERROR THEN
813: x_return_status := FND_API.G_RET_STS_ERROR ;
814: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
816: WHEN OTHERS THEN
817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
818: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
819: END get_inv_spec_test_value;
813: x_return_status := FND_API.G_RET_STS_ERROR ;
814: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
816: WHEN OTHERS THEN
817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
818: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
819: END get_inv_spec_test_value;
820:
821: /* ************************************************************************ */
856: IS
857: l_api_name VARCHAR2(100) := 'GET_LEVEL';
858: BEGIN
859: -- Initialize API return status to success
860: x_return_status := FND_API.G_RET_STS_SUCCESS;
861:
862: IF (p_called_from = 'RESULT') THEN
863: -- When there is an exact match on Organization , inventory_item_id, lot_number, subinventory
864: -- and locator_id
990: END IF;
991: END IF; -- check if grade_code is null
992: END IF;
993: EXCEPTION
994: WHEN FND_API.G_EXC_ERROR THEN
995: x_return_status := FND_API.G_RET_STS_ERROR ;
996: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
997: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
998: WHEN OTHERS THEN
991: END IF; -- check if grade_code is null
992: END IF;
993: EXCEPTION
994: WHEN FND_API.G_EXC_ERROR THEN
995: x_return_status := FND_API.G_RET_STS_ERROR ;
996: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
997: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
998: WHEN OTHERS THEN
999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
992: END IF;
993: EXCEPTION
994: WHEN FND_API.G_EXC_ERROR THEN
995: x_return_status := FND_API.G_RET_STS_ERROR ;
996: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
997: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
998: WHEN OTHERS THEN
999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1000: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
993: EXCEPTION
994: WHEN FND_API.G_EXC_ERROR THEN
995: x_return_status := FND_API.G_RET_STS_ERROR ;
996: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
997: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
998: WHEN OTHERS THEN
999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1000: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
1001: END get_level;
995: x_return_status := FND_API.G_RET_STS_ERROR ;
996: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
997: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
998: WHEN OTHERS THEN
999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1000: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
1001: END get_level;
1002:
1003: END GMD_QUALITY_GRP;