[Home] [Help]
239:
240:
241: BEGIN
242: -- Initialize API return status to success
243: x_return_status := FND_API.G_RET_STS_SUCCESS;
244:
245: -- DESC FLEX Enhancement
246: --*********************************************************
247: --* set the context value *
290: -- Not anymore dude?
291:
292:
293: -- GMD_API_PUB.Log_Message('GMD_RETAIN_SAMPLE');
294: -- RAISE FND_API.G_EXC_ERROR;
295: -- END IF;
296:
297: -- Check that we have the Sampling Event
298: -- Now, even in case where there is no Spec for the sample
299: -- there still should be a sampling event as per new directions.
300: IF (p_sample.sampling_event_id IS NULL) THEN
301: -- I need sampling event to know which Spec is used.
302: GMD_API_PUB.Log_Message('GMD_SAMPLING_EVENT_MISSING');
303: RAISE FND_API.G_EXC_ERROR;
304: END IF;
305:
306: -- Now that we have sampling_event_id, fetch the sampling event record
307: -- l_sampling_event.sampling_event_id := p_sample.sampling_event_id;
325: AND lookup_code = l_sampling_event.disposition;
326:
327: GMD_API_PUB.Log_Message('GMD_SAMPLING_EVENT_DISPOSED',
328: 'DISPOSITION', l_meaning);
329: RAISE FND_API.G_EXC_ERROR;
330: END IF;
331:
332: -- All the required validations are over so let's start
333: -- doing some REAL work.
339: FETCH c_vrs_vw INTO l_spec_id;
340: IF c_vrs_vw%NOTFOUND THEN
341: -- Now this can not happen that we have spec_vr_id and there is no Spec
342: GMD_API_PUB.Log_Message('GMD_SPEC_NOT_FOUND');
343: RAISE FND_API.G_EXC_ERROR;
344: END IF;
345: CLOSE c_vrs_vw;
346: END IF;
347:
519: --GMD_API_PUB.Log_Message('FM_SCALE_BAD_UOM_CONV',
520: -- 'FROM_UOM',p_sample.sample_uom,
521: -- 'TO_UOM' ,l_spec_test.test_uom,
522: -- 'ITEM_NO' ,l_item_no);
523: --RAISE FND_API.G_EXC_ERROR;
524: --END IF; -- (temp_qty < 0)
525: --END IF; -- l_spec_test.test_uom <> p_sample.sample_uom
526: -- end bug 3088216
527:
669: se_recomposite_required ( p_sampling_event_id => l_sampling_event.sampling_event_id
670: , p_event_spec_disp_id => l_event_spec_disp.event_spec_disp_id
671: , x_return_status => l_return_status
672: );
673: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
674: RAISE FND_API.G_EXC_ERROR;
675: END IF;
676: END IF;
677:
670: , p_event_spec_disp_id => l_event_spec_disp.event_spec_disp_id
671: , x_return_status => l_return_status
672: );
673: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
674: RAISE FND_API.G_EXC_ERROR;
675: END IF;
676: END IF;
677:
678: IF NOT (l_event_spec_disp.disposition IN ('1P', '2I')) THEN
708: e := 200;
709: GMD_API_PUB.Log_Message('GMD_API_ERROR',
710: 'PACKAGE','CREATE_RSLT_AND_SPEC_RSLT_ROWS',
711: 'ERROR', error_msg);
712: WHEN FND_API.G_EXC_ERROR
713: OR e_sampling_event_fetch_error
714: OR e_results_insert_error
715: OR e_spec_results_insert_error
716: OR e_event_spec_disp_insert_error
716: OR e_event_spec_disp_insert_error
717: OR e_sample_spec_disp_insert_err
718: OR e_event_spec_disp_fetch_error
719: THEN
720: x_return_status := FND_API.G_RET_STS_ERROR ;
721: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
722: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
723: WHEN OTHERS THEN
724: GMD_API_PUB.Log_Message('GMD_API_ERROR',
717: OR e_sample_spec_disp_insert_err
718: OR e_event_spec_disp_fetch_error
719: THEN
720: x_return_status := FND_API.G_RET_STS_ERROR ;
721: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
722: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
723: WHEN OTHERS THEN
724: GMD_API_PUB.Log_Message('GMD_API_ERROR',
725: 'PACKAGE','CREATE_RSLT_AND_SPEC_RSLT_ROWS',
718: OR e_event_spec_disp_fetch_error
719: THEN
720: x_return_status := FND_API.G_RET_STS_ERROR ;
721: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
722: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
723: WHEN OTHERS THEN
724: GMD_API_PUB.Log_Message('GMD_API_ERROR',
725: 'PACKAGE','CREATE_RSLT_AND_SPEC_RSLT_ROWS',
726: 'ERROR', SUBSTR(SQLERRM,1,100));
723: WHEN OTHERS THEN
724: GMD_API_PUB.Log_Message('GMD_API_ERROR',
725: 'PACKAGE','CREATE_RSLT_AND_SPEC_RSLT_ROWS',
726: 'ERROR', SUBSTR(SQLERRM,1,100));
727: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
728:
729: END create_rslt_and_spec_rslt_rows;
730:
731:
757: gmd_debug.put_line('Entering procedure DELETE_RSLT_AND_SPEC_RSLT_ROWS');
758: END IF;
759:
760: -- Initialize API return status to success
761: x_return_status := FND_API.G_RET_STS_SUCCESS;
762:
763: DELETE gmd_spec_results
764: WHERE result_id IN (SELECT result_id
765: FROM gmd_results
782: gmd_debug.put_line('Leaving procedure DELETE_RSLT_AND_SPEC_RSLT_ROWS');
783: END IF;
784:
785: EXCEPTION
786: WHEN FND_API.G_EXC_ERROR THEN
787: x_return_status := FND_API.G_RET_STS_ERROR ;
788: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
790: WHEN OTHERS THEN
783: END IF;
784:
785: EXCEPTION
786: WHEN FND_API.G_EXC_ERROR THEN
787: x_return_status := FND_API.G_RET_STS_ERROR ;
788: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
790: WHEN OTHERS THEN
791: GMD_API_PUB.Log_Message('GMD_API_ERROR',
784:
785: EXCEPTION
786: WHEN FND_API.G_EXC_ERROR THEN
787: x_return_status := FND_API.G_RET_STS_ERROR ;
788: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
790: WHEN OTHERS THEN
791: GMD_API_PUB.Log_Message('GMD_API_ERROR',
792: 'PACKAGE','DELETE_RSLT_AND_SPEC_RSLT_ROWS',
785: EXCEPTION
786: WHEN FND_API.G_EXC_ERROR THEN
787: x_return_status := FND_API.G_RET_STS_ERROR ;
788: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
790: WHEN OTHERS THEN
791: GMD_API_PUB.Log_Message('GMD_API_ERROR',
792: 'PACKAGE','DELETE_RSLT_AND_SPEC_RSLT_ROWS',
793: 'ERROR', SUBSTR(SQLERRM,1,100));
790: WHEN OTHERS THEN
791: GMD_API_PUB.Log_Message('GMD_API_ERROR',
792: 'PACKAGE','DELETE_RSLT_AND_SPEC_RSLT_ROWS',
793: 'ERROR', SUBSTR(SQLERRM,1,100));
794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
795:
796: END delete_rslt_and_spec_rslt_rows;
797:
798:
918: i PLS_INTEGER;
919:
920: BEGIN
921: -- Initialize API return status to success
922: x_return_status := FND_API.G_RET_STS_SUCCESS;
923:
924: i := 0;
925:
926: -- Go throug all the tests that are part of the Spec
934:
935: -- All systems GO...
936:
937: EXCEPTION
938: WHEN FND_API.G_EXC_ERROR
939: THEN
940: x_return_status := FND_API.G_RET_STS_ERROR ;
941: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
936:
937: EXCEPTION
938: WHEN FND_API.G_EXC_ERROR
939: THEN
940: x_return_status := FND_API.G_RET_STS_ERROR ;
941: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
943: WHEN OTHERS THEN
944: GMD_API_PUB.Log_Message('GMD_API_ERROR',
937: EXCEPTION
938: WHEN FND_API.G_EXC_ERROR
939: THEN
940: x_return_status := FND_API.G_RET_STS_ERROR ;
941: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
943: WHEN OTHERS THEN
944: GMD_API_PUB.Log_Message('GMD_API_ERROR',
945: 'PACKAGE','COMPARE_RSLT_AND_SPEC',
938: WHEN FND_API.G_EXC_ERROR
939: THEN
940: x_return_status := FND_API.G_RET_STS_ERROR ;
941: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
943: WHEN OTHERS THEN
944: GMD_API_PUB.Log_Message('GMD_API_ERROR',
945: 'PACKAGE','COMPARE_RSLT_AND_SPEC',
946: 'ERROR', SUBSTR(SQLERRM,1,100));
943: WHEN OTHERS THEN
944: GMD_API_PUB.Log_Message('GMD_API_ERROR',
945: 'PACKAGE','COMPARE_RSLT_AND_SPEC',
946: 'ERROR', SUBSTR(SQLERRM,1,100));
947: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
948:
949: END compare_rslt_and_spec;
950:
951:
1022: i PLS_INTEGER;
1023:
1024: BEGIN
1025: -- Initialize API return status to success
1026: x_return_status := FND_API.G_RET_STS_SUCCESS;
1027:
1028: i := 0;
1029:
1030: -- Go throug all the tests that are part of the Spec
1038:
1039: -- All systems GO...
1040:
1041: EXCEPTION
1042: WHEN FND_API.G_EXC_ERROR
1043: THEN
1044: x_return_status := FND_API.G_RET_STS_ERROR ;
1045: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1046: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1040:
1041: EXCEPTION
1042: WHEN FND_API.G_EXC_ERROR
1043: THEN
1044: x_return_status := FND_API.G_RET_STS_ERROR ;
1045: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1046: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1047: WHEN OTHERS THEN
1048: GMD_API_PUB.Log_Message('GMD_API_ERROR',
1041: EXCEPTION
1042: WHEN FND_API.G_EXC_ERROR
1043: THEN
1044: x_return_status := FND_API.G_RET_STS_ERROR ;
1045: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1046: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1047: WHEN OTHERS THEN
1048: GMD_API_PUB.Log_Message('GMD_API_ERROR',
1049: 'PACKAGE','compare_cmpst_rslt_and_spec',
1042: WHEN FND_API.G_EXC_ERROR
1043: THEN
1044: x_return_status := FND_API.G_RET_STS_ERROR ;
1045: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1046: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1047: WHEN OTHERS THEN
1048: GMD_API_PUB.Log_Message('GMD_API_ERROR',
1049: 'PACKAGE','compare_cmpst_rslt_and_spec',
1050: 'ERROR', SUBSTR(SQLERRM,1,100));
1047: WHEN OTHERS THEN
1048: GMD_API_PUB.Log_Message('GMD_API_ERROR',
1049: 'PACKAGE','compare_cmpst_rslt_and_spec',
1050: 'ERROR', SUBSTR(SQLERRM,1,100));
1051: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1052:
1053: END compare_cmpst_rslt_and_spec;
1054:
1055:
1395: gmd_debug.put_line('Entering Procedure: ADD_TESTS_TO_SAMPLE');
1396: END IF;
1397:
1398: -- Initialize API return status to success
1399: x_return_status := FND_API.G_RET_STS_SUCCESS;
1400:
1401: l_user_id := FND_GLOBAL.user_id;
1402: l_date := SYSDATE;
1403:
1439: WHERE lookup_type = 'GMD_QC_SAMPLE_DISP'
1440: AND lookup_code = l_sample_spec_disp; -- 3903309
1441:
1442: GMD_API_PUB.Log_Message('GMD_CANT_ADD_TEST');
1443: RAISE FND_API.G_EXC_ERROR;
1444: END IF;
1445:
1446: -- Fetch the Event Spec Record
1447: IF p_event_spec_disp_id IS NOT NULL THEN
1494: gmd_debug.put_line('Expression Test is already in the result set. Abort.');
1495: END IF;
1496: CLOSE c_res_test;
1497: GMD_API_PUB.Log_Message('GMD_EXP_TEST_IS_THERE');
1498: RAISE FND_API.G_EXC_ERROR;
1499: END IF;
1500: CLOSE c_res_test; */
1501:
1502: -- If the test we are adding is Expression then make sure that all the
1507: IF (l_debug = 'Y') THEN
1508: gmd_debug.put_line('Some of the reference tests are missing from the result set. Abort.');
1509: END IF;
1510: GMD_API_PUB.Log_Message('GMD_REF_TESTS_MISSING');
1511: RAISE FND_API.G_EXC_ERROR;
1512: END IF;
1513:
1514: END IF; -- l_test_type = 'E'
1515:
1748: END IF;
1749:
1750:
1751: EXCEPTION
1752: WHEN FND_API.G_EXC_ERROR OR
1753: e_results_insert_error OR
1754: e_spec_results_insert_error OR
1755: e_samples_fetch_error OR
1756: e_event_spec_fetch_error OR
1755: e_samples_fetch_error OR
1756: e_event_spec_fetch_error OR
1757: e_sampling_event_fetch_error
1758: THEN
1759: x_return_status := FND_API.G_RET_STS_ERROR ;
1760: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1761: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1762: WHEN OTHERS THEN
1763: GMD_API_PUB.Log_Message('GMD_API_ERROR',
1756: e_event_spec_fetch_error OR
1757: e_sampling_event_fetch_error
1758: THEN
1759: x_return_status := FND_API.G_RET_STS_ERROR ;
1760: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1761: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1762: WHEN OTHERS THEN
1763: GMD_API_PUB.Log_Message('GMD_API_ERROR',
1764: 'PACKAGE','ADD_TESTS_TO_SAMPLE',
1757: e_sampling_event_fetch_error
1758: THEN
1759: x_return_status := FND_API.G_RET_STS_ERROR ;
1760: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1761: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1762: WHEN OTHERS THEN
1763: GMD_API_PUB.Log_Message('GMD_API_ERROR',
1764: 'PACKAGE','ADD_TESTS_TO_SAMPLE',
1765: 'ERROR', SUBSTR(SQLERRM,1,100));
1762: WHEN OTHERS THEN
1763: GMD_API_PUB.Log_Message('GMD_API_ERROR',
1764: 'PACKAGE','ADD_TESTS_TO_SAMPLE',
1765: 'ERROR', SUBSTR(SQLERRM,1,100));
1766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1767:
1768: END add_tests_to_sample;
1769:
1770:
1929: IF (l_debug = 'Y') THEN
1930: gmd_debug.put_line('Entering Procedure ADD_TEST_TO_SAMPLES');
1931: END IF;
1932: -- Initialize API return status to success
1933: x_return_status := FND_API.G_RET_STS_SUCCESS;
1934:
1935: -- Since we are going to insert the same test to all
1936: -- the samples assign the test to table of test IDs
1937: l_test_ids(1) := p_test_id;
1958: , x_return_status => l_return_status);
1959:
1960: IF l_return_status <> 'S' THEN
1961: -- Message must have been logged so just raise an exception.
1962: RAISE FND_API.G_EXC_ERROR;
1963: END IF;
1964:
1965: IF (l_debug = 'Y') THEN
1966: gmd_debug.put_line('Ttest ID: ' || l_test_ids(1) || ' is added to Sample ID: ' || l_sample.sample_id);
1976: gmd_debug.put_line('Leaving Procedure ADD_TEST_TO_SAMPLES');
1977: END IF;
1978:
1979: EXCEPTION
1980: WHEN FND_API.G_EXC_ERROR THEN
1981: x_return_status := FND_API.G_RET_STS_ERROR ;
1982: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1983: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1984: WHEN OTHERS THEN
1977: END IF;
1978:
1979: EXCEPTION
1980: WHEN FND_API.G_EXC_ERROR THEN
1981: x_return_status := FND_API.G_RET_STS_ERROR ;
1982: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1983: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1984: WHEN OTHERS THEN
1985: GMD_API_PUB.Log_Message('GMD_API_ERROR',
1978:
1979: EXCEPTION
1980: WHEN FND_API.G_EXC_ERROR THEN
1981: x_return_status := FND_API.G_RET_STS_ERROR ;
1982: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1983: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1984: WHEN OTHERS THEN
1985: GMD_API_PUB.Log_Message('GMD_API_ERROR',
1986: 'PACKAGE','ADD_TEST_TO_SAMPLES',
1979: EXCEPTION
1980: WHEN FND_API.G_EXC_ERROR THEN
1981: x_return_status := FND_API.G_RET_STS_ERROR ;
1982: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1983: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1984: WHEN OTHERS THEN
1985: GMD_API_PUB.Log_Message('GMD_API_ERROR',
1986: 'PACKAGE','ADD_TEST_TO_SAMPLES',
1987: 'ERROR', SUBSTR(SQLERRM,1,100));
1984: WHEN OTHERS THEN
1985: GMD_API_PUB.Log_Message('GMD_API_ERROR',
1986: 'PACKAGE','ADD_TEST_TO_SAMPLES',
1987: 'ERROR', SUBSTR(SQLERRM,1,100));
1988: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1989:
1990:
1991: END add_test_to_samples;
1992:
2178: gmd_debug.put_line('Entering Procedure - MAKE_TARGET_SPEC_THE_BASE_SPEC');
2179: END IF;
2180:
2181: -- Initialize API return status to success
2182: x_return_status := FND_API.G_RET_STS_SUCCESS;
2183:
2184: -- Make sure we have the sample record
2185: -- l_sample.sample_id := p_sample_id;
2186: l_in_sample.sample_id := p_sample_id;
2218: IF (l_sample.sample_disposition = '0RT')
2219: AND (l_sample.sample_disposition = '0PL') THEN
2220: -- For retain sample no comparison, please!
2221: GMD_API_PUB.Log_Message('GMD_RETAIN_SAMPLE');
2222: RAISE FND_API.G_EXC_ERROR;
2223: END IF;
2224:
2225: -- Check that we have the Sampling Event
2226: -- Now, even in case where there is no Spec for the sample
2226: -- Now, even in case where there is no Spec for the sample
2227: -- there still should be a sampling event as per new directions.
2228: IF (l_sample.sampling_event_id IS NULL) THEN
2229: GMD_API_PUB.Log_Message('GMD_SAMPLING_EVENT_MISSING');
2230: RAISE FND_API.G_EXC_ERROR;
2231: END IF;
2232:
2233: -- All the required validations are over so let's start
2234: -- doing some REAL work.
2445: IF x_rec.test_type in ('N', 'L', 'E') THEN
2446: GMD_RESULTS_GRP.check_experimental_error ( x_rec
2447: , l_return_status );
2448: IF (l_return_status <> 'S') THEN
2449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2450: END IF;
2451: END IF;
2452:
2453: IF x_rec.additional_test_ind IS NULL AND
2563: );
2564:
2565: IF l_return_status <> 'S' THEN
2566: -- Message must have been logged so just raise an exception.
2567: RAISE FND_API.G_EXC_ERROR;
2568: END IF;
2569:
2570: IF (l_debug = 'Y') THEN
2571: gmd_debug.put_line(' Test template record added to both GMD_RESULTD and GMD_SPEC_RESULTS.');
2586: , x_message_data => l_message_data
2587: );
2588: IF l_return_status <> 'S' THEN
2589: FND_MESSAGE.SET_NAME('GMD', l_message_data);
2590: RAISE FND_API.G_EXC_ERROR;
2591: END IF;
2592:
2593: IF (l_debug = 'Y') THEN
2594: gmd_debug.put_line('Leaving Procedure - MAKE_TARGET_SPEC_THE_BASE_SPEC');
2598:
2599: -- All systems GO...
2600:
2601: EXCEPTION
2602: WHEN FND_API.G_EXC_ERROR
2603: OR e_spec_results_insert_error
2604: OR e_event_spec_disp_insert_error
2605: OR e_sample_spec_disp_insert_err
2606: THEN
2603: OR e_spec_results_insert_error
2604: OR e_event_spec_disp_insert_error
2605: OR e_sample_spec_disp_insert_err
2606: THEN
2607: x_return_status := FND_API.G_RET_STS_ERROR ;
2608: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2610: WHEN OTHERS THEN
2611: GMD_API_PUB.Log_Message('GMD_API_ERROR',
2604: OR e_event_spec_disp_insert_error
2605: OR e_sample_spec_disp_insert_err
2606: THEN
2607: x_return_status := FND_API.G_RET_STS_ERROR ;
2608: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2610: WHEN OTHERS THEN
2611: GMD_API_PUB.Log_Message('GMD_API_ERROR',
2612: 'PACKAGE','MAKE_TARGET_SPEC_THE_BASE_SPEC',
2605: OR e_sample_spec_disp_insert_err
2606: THEN
2607: x_return_status := FND_API.G_RET_STS_ERROR ;
2608: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2610: WHEN OTHERS THEN
2611: GMD_API_PUB.Log_Message('GMD_API_ERROR',
2612: 'PACKAGE','MAKE_TARGET_SPEC_THE_BASE_SPEC',
2613: 'ERROR', SUBSTR(SQLERRM,1,100));
2610: WHEN OTHERS THEN
2611: GMD_API_PUB.Log_Message('GMD_API_ERROR',
2612: 'PACKAGE','MAKE_TARGET_SPEC_THE_BASE_SPEC',
2613: 'ERROR', SUBSTR(SQLERRM,1,100));
2614: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2615:
2616:
2617: END make_target_spec_the_base_spec;
2618:
2676: gmd_debug.put_line('Entered Procedure - USE_TARGET_SPEC_FOR_CMPST_RSLT');
2677: END IF;
2678:
2679: -- Initialize API return status to success
2680: x_return_status := FND_API.G_RET_STS_SUCCESS;
2681:
2682: -- Get the Sampling Event ID
2683: OPEN c_get_se_id (p_composite_spec_disp_id);
2684: FETCH c_get_se_id INTO l_sampling_event_id;
2684: FETCH c_get_se_id INTO l_sampling_event_id;
2685: IF c_get_se_id%NOTFOUND THEN
2686: CLOSE c_get_se_id;
2687: GMD_API_PUB.Log_Message('GMD_SAMPLING_EVENT_NOT_FOUND');
2688: RAISE FND_API.G_EXC_ERROR;
2689: END IF;
2690: CLOSE c_get_se_id;
2691:
2692: IF (l_debug = 'Y') THEN
2698: x_sample_ids => l_sample_ids,
2699: x_return_status => l_return_status);
2700: IF l_return_status <> 'S' THEN
2701: -- Message must have been logged so just raise an exception.
2702: RAISE FND_API.G_EXC_ERROR;
2703: END IF;
2704:
2705: IF (l_debug = 'Y') THEN
2706: gmd_debug.put_line(' There are ' || l_sample_ids.COUNT || ' samples in this SE ID.' );
2708:
2709: -- If the no of samples count is zero then error out
2710: IF (l_sample_ids.COUNT = 0) THEN
2711: GMD_API_PUB.Log_Message('GMD_NO_SAMPLE_TO_COMPOSITE');
2712: RAISE FND_API.G_EXC_ERROR;
2713: END IF;
2714:
2715: -- Now call "make_target_spec_the_base_spec" for each sample ID
2716: FOR i in 1..l_sample_ids.COUNT
2724: p_target_spec_vr_id => p_target_spec_vr_id,
2725: x_return_status => l_return_status);
2726: IF l_return_status <> 'S' THEN
2727: -- Message must have been logged so just raise an exception.
2728: RAISE FND_API.G_EXC_ERROR;
2729: END IF;
2730: IF (l_debug = 'Y') THEN
2731: gmd_debug.put_line(' Target Spec Changed for Sample ID - ' || l_sample_ids(i));
2732: END IF;
2740: -- All systems go...
2741:
2742:
2743: EXCEPTION
2744: WHEN FND_API.G_EXC_ERROR THEN
2745: x_return_status := FND_API.G_RET_STS_ERROR ;
2746: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2748: WHEN OTHERS THEN
2741:
2742:
2743: EXCEPTION
2744: WHEN FND_API.G_EXC_ERROR THEN
2745: x_return_status := FND_API.G_RET_STS_ERROR ;
2746: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2748: WHEN OTHERS THEN
2749: GMD_API_PUB.Log_Message('GMD_API_ERROR',
2742:
2743: EXCEPTION
2744: WHEN FND_API.G_EXC_ERROR THEN
2745: x_return_status := FND_API.G_RET_STS_ERROR ;
2746: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2748: WHEN OTHERS THEN
2749: GMD_API_PUB.Log_Message('GMD_API_ERROR',
2750: 'PACKAGE','USE_TARGET_SPEC_FOR_CMPST_RSLT',
2743: EXCEPTION
2744: WHEN FND_API.G_EXC_ERROR THEN
2745: x_return_status := FND_API.G_RET_STS_ERROR ;
2746: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2748: WHEN OTHERS THEN
2749: GMD_API_PUB.Log_Message('GMD_API_ERROR',
2750: 'PACKAGE','USE_TARGET_SPEC_FOR_CMPST_RSLT',
2751: 'ERROR', SUBSTR(SQLERRM,1,100));
2748: WHEN OTHERS THEN
2749: GMD_API_PUB.Log_Message('GMD_API_ERROR',
2750: 'PACKAGE','USE_TARGET_SPEC_FOR_CMPST_RSLT',
2751: 'ERROR', SUBSTR(SQLERRM,1,100));
2752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2753:
2754: END use_target_spec_for_cmpst_rslt;
2755:
2756:
2892: gmd_debug.put_line(' Event Spec ID : ' || p_event_spec_disp_id);
2893: END IF;
2894:
2895: -- Initialize API return status to success
2896: x_return_status := FND_API.G_RET_STS_SUCCESS;
2897:
2898: -- begin Bug 2620851 29 Oct 2002
2899: i := 1;
2900:
3165: END LOOP;
3166: END IF;
3167:
3168: EXCEPTION
3169: WHEN FND_API.G_EXC_ERROR THEN
3170: x_return_status := FND_API.G_RET_STS_ERROR ;
3171: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3173: WHEN OTHERS THEN
3166: END IF;
3167:
3168: EXCEPTION
3169: WHEN FND_API.G_EXC_ERROR THEN
3170: x_return_status := FND_API.G_RET_STS_ERROR ;
3171: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3173: WHEN OTHERS THEN
3174: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3167:
3168: EXCEPTION
3169: WHEN FND_API.G_EXC_ERROR THEN
3170: x_return_status := FND_API.G_RET_STS_ERROR ;
3171: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3173: WHEN OTHERS THEN
3174: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3175: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',
3168: EXCEPTION
3169: WHEN FND_API.G_EXC_ERROR THEN
3170: x_return_status := FND_API.G_RET_STS_ERROR ;
3171: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3173: WHEN OTHERS THEN
3174: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3175: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',
3176: 'ERROR', SUBSTR(SQLERRM,1,100));
3173: WHEN OTHERS THEN
3174: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3175: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',
3176: 'ERROR', SUBSTR(SQLERRM,1,100));
3177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3178:
3179: END get_rslt_and_spec_rslt;
3180:
3181:
3229: gmd_debug.put_line('Entered Procedure - COMPOSITE_EXIST');
3230: END IF;
3231:
3232: -- Initialize API return status to success
3233: x_return_status := FND_API.G_RET_STS_SUCCESS;
3234:
3235: x_composite_exist := 'N';
3236: x_composite_valid := 'N';
3237:
3236: x_composite_valid := 'N';
3237:
3238: IF (p_sampling_event_id IS NULL AND p_event_spec_disp_id IS NULL) THEN
3239: GMD_API_PUB.Log_Message('GMD_INVALID_PARAMETERS');
3240: RAISE FND_API.G_EXC_ERROR;
3241: END IF;
3242:
3243: IF (p_event_spec_disp_id IS NULL) THEN
3244: l_event_spec_disp_id := get_current_event_spec_disp_id(p_sampling_event_id);
3243: IF (p_event_spec_disp_id IS NULL) THEN
3244: l_event_spec_disp_id := get_current_event_spec_disp_id(p_sampling_event_id);
3245: IF (l_event_spec_disp_id IS NULL) THEN
3246: GMD_API_PUB.Log_Message('GMD_EVENT_SPEC_NOT_FOUND');
3247: RAISE FND_API.G_EXC_ERROR;
3248: END IF;
3249: ELSE
3250: l_event_spec_disp_id := p_event_spec_disp_id;
3251: END IF;
3277: FETCH c_composite_valid INTO l_recomposite_ind;
3278: IF c_composite_valid%NOTFOUND THEN
3279: CLOSE c_composite_valid;
3280: GMD_API_PUB.Log_Message('GMD_SAMPLING_EVENT_NOT_FOUND');
3281: RAISE FND_API.G_EXC_ERROR;
3282: END IF;
3283: CLOSE c_composite_valid;
3284:
3285: IF l_recomposite_ind = 'Y' THEN
3300: END IF;
3301: RETURN;
3302:
3303: EXCEPTION
3304: WHEN FND_API.G_EXC_ERROR THEN
3305: x_return_status := FND_API.G_RET_STS_ERROR ;
3306: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3307: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3308: WHEN OTHERS THEN
3301: RETURN;
3302:
3303: EXCEPTION
3304: WHEN FND_API.G_EXC_ERROR THEN
3305: x_return_status := FND_API.G_RET_STS_ERROR ;
3306: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3307: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3308: WHEN OTHERS THEN
3309: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3302:
3303: EXCEPTION
3304: WHEN FND_API.G_EXC_ERROR THEN
3305: x_return_status := FND_API.G_RET_STS_ERROR ;
3306: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3307: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3308: WHEN OTHERS THEN
3309: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3310: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',
3303: EXCEPTION
3304: WHEN FND_API.G_EXC_ERROR THEN
3305: x_return_status := FND_API.G_RET_STS_ERROR ;
3306: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3307: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3308: WHEN OTHERS THEN
3309: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3310: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',
3311: 'ERROR', SUBSTR(SQLERRM,1,100));
3308: WHEN OTHERS THEN
3309: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3310: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',
3311: 'ERROR', SUBSTR(SQLERRM,1,100));
3312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3313:
3314:
3315: END composite_exist;
3316:
3353: l_event_spec_disp_id NUMBER;
3354:
3355: BEGIN
3356: -- Initialize API return status to success
3357: x_return_status := FND_API.G_RET_STS_SUCCESS;
3358:
3359: IF (p_sampling_event_id IS NULL AND p_event_spec_disp_id IS NULL) THEN
3360: GMD_API_PUB.Log_Message('GMD_INVALID_PARAMETERS');
3361: RAISE FND_API.G_EXC_ERROR;
3357: x_return_status := FND_API.G_RET_STS_SUCCESS;
3358:
3359: IF (p_sampling_event_id IS NULL AND p_event_spec_disp_id IS NULL) THEN
3360: GMD_API_PUB.Log_Message('GMD_INVALID_PARAMETERS');
3361: RAISE FND_API.G_EXC_ERROR;
3362: END IF;
3363:
3364: IF (p_event_spec_disp_id IS NULL) THEN
3365: l_event_spec_disp_id := get_current_event_spec_disp_id(p_sampling_event_id);
3364: IF (p_event_spec_disp_id IS NULL) THEN
3365: l_event_spec_disp_id := get_current_event_spec_disp_id(p_sampling_event_id);
3366: IF (l_event_spec_disp_id IS NULL) THEN
3367: GMD_API_PUB.Log_Message('GMD_EVENT_SPEC_NOT_FOUND');
3368: RAISE FND_API.G_EXC_ERROR;
3369: END IF;
3370: ELSE
3371: l_event_spec_disp_id := p_event_spec_disp_id;
3372: END IF;
3385:
3386: RETURN;
3387:
3388: EXCEPTION
3389: WHEN FND_API.G_EXC_ERROR THEN
3390: x_return_status := FND_API.G_RET_STS_ERROR ;
3391: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3393: WHEN OTHERS THEN
3386: RETURN;
3387:
3388: EXCEPTION
3389: WHEN FND_API.G_EXC_ERROR THEN
3390: x_return_status := FND_API.G_RET_STS_ERROR ;
3391: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3393: WHEN OTHERS THEN
3394: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3387:
3388: EXCEPTION
3389: WHEN FND_API.G_EXC_ERROR THEN
3390: x_return_status := FND_API.G_RET_STS_ERROR ;
3391: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3393: WHEN OTHERS THEN
3394: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3395: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',
3388: EXCEPTION
3389: WHEN FND_API.G_EXC_ERROR THEN
3390: x_return_status := FND_API.G_RET_STS_ERROR ;
3391: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3393: WHEN OTHERS THEN
3394: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3395: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',
3396: 'ERROR', SUBSTR(SQLERRM,1,100));
3393: WHEN OTHERS THEN
3394: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3395: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',
3396: 'ERROR', SUBSTR(SQLERRM,1,100));
3397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3398:
3399:
3400: END se_recomposite_required;
3401:
3439: dummy PLS_INTEGER;
3440:
3441: BEGIN
3442: -- Initialize API return status to success
3443: x_return_status := FND_API.G_RET_STS_SUCCESS;
3444:
3445: IF (p_result_id IS NULL OR p_event_spec_disp_id IS NULL) THEN
3446: GMD_API_PUB.Log_Message('GMD_INVALID_PARAMETERS');
3447: RAISE FND_API.G_EXC_ERROR;
3443: x_return_status := FND_API.G_RET_STS_SUCCESS;
3444:
3445: IF (p_result_id IS NULL OR p_event_spec_disp_id IS NULL) THEN
3446: GMD_API_PUB.Log_Message('GMD_INVALID_PARAMETERS');
3447: RAISE FND_API.G_EXC_ERROR;
3448: END IF;
3449:
3450: -- See if we have the composite for the result
3451: OPEN c_composite(p_event_spec_disp_id, p_result_id);
3464:
3465: RETURN;
3466:
3467: EXCEPTION
3468: WHEN FND_API.G_EXC_ERROR THEN
3469: x_return_status := FND_API.G_RET_STS_ERROR ;
3470: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3472: WHEN OTHERS THEN
3465: RETURN;
3466:
3467: EXCEPTION
3468: WHEN FND_API.G_EXC_ERROR THEN
3469: x_return_status := FND_API.G_RET_STS_ERROR ;
3470: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3472: WHEN OTHERS THEN
3473: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3466:
3467: EXCEPTION
3468: WHEN FND_API.G_EXC_ERROR THEN
3469: x_return_status := FND_API.G_RET_STS_ERROR ;
3470: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3472: WHEN OTHERS THEN
3473: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3474: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',
3467: EXCEPTION
3468: WHEN FND_API.G_EXC_ERROR THEN
3469: x_return_status := FND_API.G_RET_STS_ERROR ;
3470: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3472: WHEN OTHERS THEN
3473: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3474: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',
3475: 'ERROR', SUBSTR(SQLERRM,1,100));
3472: WHEN OTHERS THEN
3473: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3474: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',
3475: 'ERROR', SUBSTR(SQLERRM,1,100));
3476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3477:
3478:
3479: END result_recomposite_required;
3480:
3533: gmd_debug.put_line('Entered Procedure - GET_SAMPLE_IDS_FOR_SE');
3534: END IF;
3535:
3536: -- Initialize API return status to success
3537: x_return_status := FND_API.G_RET_STS_SUCCESS;
3538:
3539: -- Now get all the samples that are part of Sampling Event
3540: i := 1;
3541: FOR sample_rec IN c_sample(p_sampling_event_id)
3549: END IF;
3550: RETURN;
3551:
3552: EXCEPTION
3553: WHEN FND_API.G_EXC_ERROR THEN
3554: x_return_status := FND_API.G_RET_STS_ERROR ;
3555: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3557: WHEN OTHERS THEN
3550: RETURN;
3551:
3552: EXCEPTION
3553: WHEN FND_API.G_EXC_ERROR THEN
3554: x_return_status := FND_API.G_RET_STS_ERROR ;
3555: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3557: WHEN OTHERS THEN
3558: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3551:
3552: EXCEPTION
3553: WHEN FND_API.G_EXC_ERROR THEN
3554: x_return_status := FND_API.G_RET_STS_ERROR ;
3555: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3557: WHEN OTHERS THEN
3558: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3559: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',
3552: EXCEPTION
3553: WHEN FND_API.G_EXC_ERROR THEN
3554: x_return_status := FND_API.G_RET_STS_ERROR ;
3555: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3557: WHEN OTHERS THEN
3558: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3559: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',
3560: 'ERROR', SUBSTR(SQLERRM,1,100));
3557: WHEN OTHERS THEN
3558: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3559: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',
3560: 'ERROR', SUBSTR(SQLERRM,1,100));
3561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3562:
3563: END get_sample_ids_for_se;
3564:
3565:
3620: gmd_debug.put_line('Entering Procedure - POPULATE_RESULT_DATA_POINTS');
3621: END IF;
3622:
3623: -- Initialize API return status to success
3624: x_return_status := FND_API.G_RET_STS_SUCCESS;
3625: l_start_date := GMA_CORE_PKG.get_date_constant_d('SY$MIN_DATE');
3626: -- Bug #2626977 (JKB) Removed reference to date profile above.
3627:
3628: EXECUTE IMMEDIATE 'delete from gmd_result_data_points_gt';
3673: END IF;
3674: -- All systems GO...
3675:
3676: EXCEPTION
3677: WHEN FND_API.G_EXC_ERROR THEN
3678: x_return_status := FND_API.G_RET_STS_ERROR ;
3679: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3681: WHEN OTHERS THEN
3674: -- All systems GO...
3675:
3676: EXCEPTION
3677: WHEN FND_API.G_EXC_ERROR THEN
3678: x_return_status := FND_API.G_RET_STS_ERROR ;
3679: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3681: WHEN OTHERS THEN
3682: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3675:
3676: EXCEPTION
3677: WHEN FND_API.G_EXC_ERROR THEN
3678: x_return_status := FND_API.G_RET_STS_ERROR ;
3679: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3681: WHEN OTHERS THEN
3682: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3683: 'PACKAGE','POPULATE_RESULT_DATA_POINTS',
3676: EXCEPTION
3677: WHEN FND_API.G_EXC_ERROR THEN
3678: x_return_status := FND_API.G_RET_STS_ERROR ;
3679: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3681: WHEN OTHERS THEN
3682: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3683: 'PACKAGE','POPULATE_RESULT_DATA_POINTS',
3684: 'ERROR', SUBSTR(SQLERRM,1,100));
3681: WHEN OTHERS THEN
3682: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3683: 'PACKAGE','POPULATE_RESULT_DATA_POINTS',
3684: 'ERROR', SUBSTR(SQLERRM,1,100));
3685: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3686:
3687: END populate_result_data_points;
3688:
3689:
3819: gmd_debug.put_line('Entered Procedure - CREATE_COMPOSITE_ROWS');
3820: END IF;
3821:
3822: -- Initialize API return status to success
3823: x_return_status := FND_API.G_RET_STS_SUCCESS;
3824:
3825: -- Get the user ID
3826: l_user_id := FND_GLOBAL.user_id;
3827: l_date := SYSDATE;
3926: , x_mean_num => l_mean
3927: , x_return_status => l_return_status);
3928:
3929: IF (l_return_status <> 'S') THEN
3930: RAISE FND_API.G_EXC_ERROR;
3931: END IF;
3932: IF (l_test_type in ('N', 'L', 'E')) THEN
3933: l_mean := round(l_mean, l_display_precision);
3934: END IF;
3942: , x_median_char => l_median_char
3943: , x_return_status => l_return_status);
3944:
3945: IF (l_return_status <> 'S') THEN
3946: RAISE FND_API.G_EXC_ERROR;
3947: END IF;
3948: IF (l_debug = 'Y') THEN
3949: gmd_debug.put_line(' l_median_num-'|| l_median_num ||' l_median_char-'|| l_median_char);
3950: END IF;
3955: , x_mode_char => l_mode_char
3956: , x_return_status => l_return_status);
3957:
3958: IF (l_return_status <> 'S') THEN
3959: RAISE FND_API.G_EXC_ERROR;
3960: END IF;
3961: IF (l_test_type in ('N', 'L', 'E')) THEN
3962: l_mode_num := round(l_mode_num, l_display_precision);
3963: END IF;
3971: , x_high_char => l_high_char
3972: , x_return_status => l_return_status);
3973:
3974: IF (l_return_status <> 'S') THEN
3975: RAISE FND_API.G_EXC_ERROR;
3976: END IF;
3977: IF (l_debug = 'Y') THEN
3978: gmd_debug.put_line(' l_high_num-'|| l_high_num ||' l_high_char-'|| l_high_char);
3979: END IF;
3984: , x_low_char => l_low_char
3985: , x_return_status => l_return_status);
3986:
3987: IF (l_return_status <> 'S') THEN
3988: RAISE FND_API.G_EXC_ERROR;
3989: END IF;
3990: IF (l_debug = 'Y') THEN
3991: gmd_debug.put_line(' l_low_num - '|| l_low_num ||' l_low_char-'|| l_low_char);
3992: END IF;
3996: , x_stddev => l_standard_deviation
3997: , x_return_status => l_return_status);
3998:
3999: IF (l_return_status <> 'S') THEN
4000: RAISE FND_API.G_EXC_ERROR;
4001: END IF;
4002:
4003: IF (l_test_type in ('N', 'L', 'E')) THEN
4004: l_standard_deviation := round(l_standard_deviation, l_display_precision);
4109:
4110: RETURN;
4111:
4112: EXCEPTION
4113: WHEN FND_API.G_EXC_ERROR OR
4114: e_comp_spec_disp_insert_error OR
4115: e_comp_result_insert_error OR
4116: e_comp_rslt_assoc_insert_error
4117: THEN
4114: e_comp_spec_disp_insert_error OR
4115: e_comp_result_insert_error OR
4116: e_comp_rslt_assoc_insert_error
4117: THEN
4118: x_return_status := FND_API.G_RET_STS_ERROR ;
4119: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4120: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4121: WHEN OTHERS THEN
4122: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4115: e_comp_result_insert_error OR
4116: e_comp_rslt_assoc_insert_error
4117: THEN
4118: x_return_status := FND_API.G_RET_STS_ERROR ;
4119: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4120: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4121: WHEN OTHERS THEN
4122: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4123: 'PACKAGE','CREATE_COMPOSITE_ROWS',
4116: e_comp_rslt_assoc_insert_error
4117: THEN
4118: x_return_status := FND_API.G_RET_STS_ERROR ;
4119: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4120: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4121: WHEN OTHERS THEN
4122: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4123: 'PACKAGE','CREATE_COMPOSITE_ROWS',
4124: 'ERROR', SUBSTR(SQLERRM,1,100));
4121: WHEN OTHERS THEN
4122: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4123: 'PACKAGE','CREATE_COMPOSITE_ROWS',
4124: 'ERROR', SUBSTR(SQLERRM,1,100));
4125: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4126:
4127: END create_composite_rows;
4128:
4129:
4174: gmd_debug.put_line('Entering Procedure - QC_MEAN');
4175: END IF;
4176:
4177: -- Initialize API return status to success
4178: x_return_status := FND_API.G_RET_STS_SUCCESS;
4179:
4180: -- Get the Test Type
4181: OPEN c_test_type(p_test_id);
4182: FETCH c_test_type INTO l_test_type;
4193: END IF;
4194: RETURN;
4195:
4196: EXCEPTION
4197: WHEN FND_API.G_EXC_ERROR THEN
4198: x_return_status := FND_API.G_RET_STS_ERROR ;
4199: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4201: WHEN OTHERS THEN
4194: RETURN;
4195:
4196: EXCEPTION
4197: WHEN FND_API.G_EXC_ERROR THEN
4198: x_return_status := FND_API.G_RET_STS_ERROR ;
4199: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4201: WHEN OTHERS THEN
4202: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4195:
4196: EXCEPTION
4197: WHEN FND_API.G_EXC_ERROR THEN
4198: x_return_status := FND_API.G_RET_STS_ERROR ;
4199: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4201: WHEN OTHERS THEN
4202: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4203: 'PACKAGE','QC_MEAN',
4196: EXCEPTION
4197: WHEN FND_API.G_EXC_ERROR THEN
4198: x_return_status := FND_API.G_RET_STS_ERROR ;
4199: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4201: WHEN OTHERS THEN
4202: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4203: 'PACKAGE','QC_MEAN',
4204: 'ERROR', SUBSTR(SQLERRM,1,100));
4201: WHEN OTHERS THEN
4202: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4203: 'PACKAGE','QC_MEAN',
4204: 'ERROR', SUBSTR(SQLERRM,1,100));
4205: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4206:
4207: END qc_mean;
4208:
4209:
4318: gmd_debug.put_line('Entering Procedure - QC_MEDIAN');
4319: END IF;
4320:
4321: -- Initialize API return status to success
4322: x_return_status := FND_API.G_RET_STS_SUCCESS;
4323:
4324: -- Get the Test Type
4325: OPEN c_test_type(p_test_id);
4326: FETCH c_test_type INTO l_test_type;
4374: WHEN e_even_number_data_set THEN
4375: x_median_num := NULL;
4376: x_median_char := NULL;
4377: RETURN;
4378: WHEN FND_API.G_EXC_ERROR THEN
4379: x_return_status := FND_API.G_RET_STS_ERROR ;
4380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4382: WHEN OTHERS THEN
4375: x_median_num := NULL;
4376: x_median_char := NULL;
4377: RETURN;
4378: WHEN FND_API.G_EXC_ERROR THEN
4379: x_return_status := FND_API.G_RET_STS_ERROR ;
4380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4382: WHEN OTHERS THEN
4383: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4376: x_median_char := NULL;
4377: RETURN;
4378: WHEN FND_API.G_EXC_ERROR THEN
4379: x_return_status := FND_API.G_RET_STS_ERROR ;
4380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4382: WHEN OTHERS THEN
4383: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4384: 'PACKAGE','qc_median',
4377: RETURN;
4378: WHEN FND_API.G_EXC_ERROR THEN
4379: x_return_status := FND_API.G_RET_STS_ERROR ;
4380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4382: WHEN OTHERS THEN
4383: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4384: 'PACKAGE','qc_median',
4385: 'ERROR', SUBSTR(SQLERRM,1,100));
4382: WHEN OTHERS THEN
4383: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4384: 'PACKAGE','qc_median',
4385: 'ERROR', SUBSTR(SQLERRM,1,100));
4386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4387:
4388: END qc_median;
4389:
4390:
4471: gmd_debug.put_line('Entering Procedure - QC_MODE');
4472: END IF;
4473:
4474: -- Initialize API return status to success
4475: x_return_status := FND_API.G_RET_STS_SUCCESS;
4476:
4477: OPEN c_test (p_test_id);
4478: FETCH c_test INTO l_test_type;
4479: CLOSE c_test;
4529: -- so just return
4530: x_mode_num := NULL;
4531: x_mode_char := NULL;
4532: RETURN;
4533: WHEN FND_API.G_EXC_ERROR THEN
4534: x_return_status := FND_API.G_RET_STS_ERROR ;
4535: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4536: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4537: WHEN OTHERS THEN
4530: x_mode_num := NULL;
4531: x_mode_char := NULL;
4532: RETURN;
4533: WHEN FND_API.G_EXC_ERROR THEN
4534: x_return_status := FND_API.G_RET_STS_ERROR ;
4535: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4536: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4537: WHEN OTHERS THEN
4538: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4531: x_mode_char := NULL;
4532: RETURN;
4533: WHEN FND_API.G_EXC_ERROR THEN
4534: x_return_status := FND_API.G_RET_STS_ERROR ;
4535: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4536: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4537: WHEN OTHERS THEN
4538: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4539: 'PACKAGE','QC_MODE',
4532: RETURN;
4533: WHEN FND_API.G_EXC_ERROR THEN
4534: x_return_status := FND_API.G_RET_STS_ERROR ;
4535: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4536: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4537: WHEN OTHERS THEN
4538: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4539: 'PACKAGE','QC_MODE',
4540: 'ERROR', SUBSTR(SQLERRM,1,100));
4537: WHEN OTHERS THEN
4538: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4539: 'PACKAGE','QC_MODE',
4540: 'ERROR', SUBSTR(SQLERRM,1,100));
4541: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4542:
4543: END qc_mode;
4544:
4545:
4594: gmd_debug.put_line('Entering Procedure - QC_HIGH');
4595: END IF;
4596:
4597: -- Initialize API return status to success
4598: x_return_status := FND_API.G_RET_STS_SUCCESS;
4599:
4600: OPEN c_test (p_test_id);
4601: FETCH c_test INTO l_test_type;
4602: CLOSE c_test;
4623:
4624: RETURN;
4625:
4626: EXCEPTION
4627: WHEN FND_API.G_EXC_ERROR THEN
4628: x_return_status := FND_API.G_RET_STS_ERROR ;
4629: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4631: WHEN OTHERS THEN
4624: RETURN;
4625:
4626: EXCEPTION
4627: WHEN FND_API.G_EXC_ERROR THEN
4628: x_return_status := FND_API.G_RET_STS_ERROR ;
4629: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4631: WHEN OTHERS THEN
4632: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4625:
4626: EXCEPTION
4627: WHEN FND_API.G_EXC_ERROR THEN
4628: x_return_status := FND_API.G_RET_STS_ERROR ;
4629: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4631: WHEN OTHERS THEN
4632: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4633: 'PACKAGE','QC_HIGH',
4626: EXCEPTION
4627: WHEN FND_API.G_EXC_ERROR THEN
4628: x_return_status := FND_API.G_RET_STS_ERROR ;
4629: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4631: WHEN OTHERS THEN
4632: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4633: 'PACKAGE','QC_HIGH',
4634: 'ERROR', SUBSTR(SQLERRM,1,100));
4631: WHEN OTHERS THEN
4632: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4633: 'PACKAGE','QC_HIGH',
4634: 'ERROR', SUBSTR(SQLERRM,1,100));
4635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4636:
4637: END qc_high;
4638:
4639:
4689: gmd_debug.put_line('Entering Procedure - QC_LOW');
4690: END IF;
4691:
4692: -- Initialize API return status to success
4693: x_return_status := FND_API.G_RET_STS_SUCCESS;
4694:
4695: OPEN c_test (p_test_id);
4696: FETCH c_test INTO l_test_type;
4697: CLOSE c_test;
4718:
4719: RETURN;
4720:
4721: EXCEPTION
4722: WHEN FND_API.G_EXC_ERROR THEN
4723: x_return_status := FND_API.G_RET_STS_ERROR ;
4724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4726: WHEN OTHERS THEN
4719: RETURN;
4720:
4721: EXCEPTION
4722: WHEN FND_API.G_EXC_ERROR THEN
4723: x_return_status := FND_API.G_RET_STS_ERROR ;
4724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4726: WHEN OTHERS THEN
4727: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4720:
4721: EXCEPTION
4722: WHEN FND_API.G_EXC_ERROR THEN
4723: x_return_status := FND_API.G_RET_STS_ERROR ;
4724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4726: WHEN OTHERS THEN
4727: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4728: 'PACKAGE','QC_LOW',
4721: EXCEPTION
4722: WHEN FND_API.G_EXC_ERROR THEN
4723: x_return_status := FND_API.G_RET_STS_ERROR ;
4724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4726: WHEN OTHERS THEN
4727: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4728: 'PACKAGE','QC_LOW',
4729: 'ERROR', SUBSTR(SQLERRM,1,100));
4726: WHEN OTHERS THEN
4727: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4728: 'PACKAGE','QC_LOW',
4729: 'ERROR', SUBSTR(SQLERRM,1,100));
4730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4731:
4732: END qc_low;
4733:
4734:
4779: gmd_debug.put_line('Entering Procedure - QC_STANDARD_DEVIATION');
4780: END IF;
4781:
4782: -- Initialize API return status to success
4783: x_return_status := FND_API.G_RET_STS_SUCCESS;
4784:
4785: -- Get the Test Type
4786: OPEN c_test_type(p_test_id);
4787: FETCH c_test_type INTO l_test_type;
4799:
4800: RETURN;
4801:
4802: EXCEPTION
4803: WHEN FND_API.G_EXC_ERROR THEN
4804: x_return_status := FND_API.G_RET_STS_ERROR ;
4805: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4807: WHEN OTHERS THEN
4800: RETURN;
4801:
4802: EXCEPTION
4803: WHEN FND_API.G_EXC_ERROR THEN
4804: x_return_status := FND_API.G_RET_STS_ERROR ;
4805: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4807: WHEN OTHERS THEN
4808: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4801:
4802: EXCEPTION
4803: WHEN FND_API.G_EXC_ERROR THEN
4804: x_return_status := FND_API.G_RET_STS_ERROR ;
4805: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4807: WHEN OTHERS THEN
4808: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4809: 'PACKAGE','qc_standard_deviation',
4802: EXCEPTION
4803: WHEN FND_API.G_EXC_ERROR THEN
4804: x_return_status := FND_API.G_RET_STS_ERROR ;
4805: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4807: WHEN OTHERS THEN
4808: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4809: 'PACKAGE','qc_standard_deviation',
4810: 'ERROR', SUBSTR(SQLERRM,1,100));
4807: WHEN OTHERS THEN
4808: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4809: 'PACKAGE','qc_standard_deviation',
4810: 'ERROR', SUBSTR(SQLERRM,1,100));
4811: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4812:
4813: END qc_standard_deviation;
4814:
4815: --+========================================================================+
4898:
4899:
4900: BEGIN
4901: -- Initialize API return status to success
4902: x_return_status := FND_API.G_RET_STS_SUCCESS;
4903:
4904: --Since we have a specification
4905: --retrieve rows in GMD_COM_RESULTS for all the tests
4906: l_comres_tab.DELETE;
5056:
5057:
5058: EXCEPTION
5059: WHEN OTHERS THEN
5060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5061:
5062: END get_composite_rslt;
5063:
5064:
5095: ;
5096:
5097: BEGIN
5098: -- Initialize API return status to success
5099: x_return_status := FND_API.G_RET_STS_SUCCESS;
5100:
5101: IF (l_debug = 'Y') THEN
5102: gmd_debug.put_line('Entering procedure: CHANGE_LOT_STATUS');
5103: END IF;
5107: FETCH Cur_quality_config INTO l_reason_id ;
5108: IF Cur_quality_config%NOTFOUND THEN -- #1
5109: CLOSE Cur_quality_config;
5110: GMD_API_PUB.Log_Message('GMD_QM_INV_REASON_CODE');
5111: RAISE FND_API.G_EXC_ERROR;
5112: END IF; -- #1
5113: CLOSE Cur_quality_config;
5114:
5115: IF (l_debug = 'Y') THEN
5135: , x_message_data => l_message_data );
5136:
5137: IF x_return_status <> 'S' THEN -- #4
5138: GMD_API_PUB.Log_Message(l_message_data);
5139: RAISE FND_API.G_EXC_ERROR;
5140: END IF; -- #4
5141: END IF; -- #3
5142:
5143: IF (l_debug = 'Y') THEN
5145: END IF;
5146:
5147:
5148: EXCEPTION
5149: WHEN FND_API.G_EXC_ERROR THEN
5150: x_return_status := FND_API.G_RET_STS_ERROR ;
5151: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5153: WHEN OTHERS THEN
5146:
5147:
5148: EXCEPTION
5149: WHEN FND_API.G_EXC_ERROR THEN
5150: x_return_status := FND_API.G_RET_STS_ERROR ;
5151: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5153: WHEN OTHERS THEN
5154: GMD_API_PUB.Log_Message('GMD_API_ERROR',
5147:
5148: EXCEPTION
5149: WHEN FND_API.G_EXC_ERROR THEN
5150: x_return_status := FND_API.G_RET_STS_ERROR ;
5151: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5153: WHEN OTHERS THEN
5154: GMD_API_PUB.Log_Message('GMD_API_ERROR',
5155: 'PACKAGE','CHANGE_LOT_STATUS','ERROR', SUBSTR(SQLERRM,1,100));
5148: EXCEPTION
5149: WHEN FND_API.G_EXC_ERROR THEN
5150: x_return_status := FND_API.G_RET_STS_ERROR ;
5151: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5153: WHEN OTHERS THEN
5154: GMD_API_PUB.Log_Message('GMD_API_ERROR',
5155: 'PACKAGE','CHANGE_LOT_STATUS','ERROR', SUBSTR(SQLERRM,1,100));
5156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5153: WHEN OTHERS THEN
5154: GMD_API_PUB.Log_Message('GMD_API_ERROR',
5155: 'PACKAGE','CHANGE_LOT_STATUS','ERROR', SUBSTR(SQLERRM,1,100));
5156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5157: END change_lot_status;
5158:
5159:
5160:
5236:
5237: BEGIN
5238:
5239: -- Initialize API return status to success
5240: x_return_status := FND_API.G_RET_STS_SUCCESS;
5241:
5242: IF (l_debug = 'Y') THEN
5243: gmd_debug.put_line('Entering procedure CHECK_EXPERIMENTAL_ERROR');
5244: END IF;
5307: ' Action Code ' || p_result_rec.result_action_code);
5308: END IF;
5309:
5310: EXCEPTION
5311: WHEN FND_API.G_EXC_ERROR THEN
5312: x_return_status := FND_API.G_RET_STS_ERROR ;
5313: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5315: WHEN OTHERS THEN
5308: END IF;
5309:
5310: EXCEPTION
5311: WHEN FND_API.G_EXC_ERROR THEN
5312: x_return_status := FND_API.G_RET_STS_ERROR ;
5313: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5315: WHEN OTHERS THEN
5316: GMD_API_PUB.Log_Message('GMD_API_ERROR',
5309:
5310: EXCEPTION
5311: WHEN FND_API.G_EXC_ERROR THEN
5312: x_return_status := FND_API.G_RET_STS_ERROR ;
5313: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5315: WHEN OTHERS THEN
5316: GMD_API_PUB.Log_Message('GMD_API_ERROR',
5317: 'PACKAGE','CHECK_EXPERIMENTAL_ERROR','ERROR', SUBSTR(SQLERRM,1,100));
5310: EXCEPTION
5311: WHEN FND_API.G_EXC_ERROR THEN
5312: x_return_status := FND_API.G_RET_STS_ERROR ;
5313: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5315: WHEN OTHERS THEN
5316: GMD_API_PUB.Log_Message('GMD_API_ERROR',
5317: 'PACKAGE','CHECK_EXPERIMENTAL_ERROR','ERROR', SUBSTR(SQLERRM,1,100));
5318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5315: WHEN OTHERS THEN
5316: GMD_API_PUB.Log_Message('GMD_API_ERROR',
5317: 'PACKAGE','CHECK_EXPERIMENTAL_ERROR','ERROR', SUBSTR(SQLERRM,1,100));
5318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5319: END check_experimental_error;
5320:
5321:
5322: --Start of comments
5446:
5447: BEGIN
5448:
5449: -- Initialize API return status to success
5450: x_return_status := FND_API.G_RET_STS_SUCCESS;
5451:
5452: IF (l_debug = 'Y') THEN
5453: gmd_debug.put_line('Entering procedure VALIDATE_RESULT');
5454: END IF;
5481: --#. Apply decimal precision.
5482: --#. =========================================================
5483: IF NOT (is_value_numeric (p_result_rec.result)) THEN
5484: GMD_API_PUB.Log_Message('GMD', 'QC_NOTNUMERIC');
5485: RAISE FND_API.G_EXC_ERROR;
5486: END IF;
5487:
5488: L_num_result := ROUND(to_number(p_result_rec.result) ,
5489: p_result_rec.display_precision);
5511: IF p_result_rec.test_type = 'E' THEN
5512: -- if expression give warning, not error
5513: x_return_status := 'E'; -- expected error
5514: ELSE
5515: RAISE FND_API.G_EXC_ERROR;
5516: END IF;
5517: END IF; -- end if within test min/max
5518:
5519: IF (l_debug = 'Y') THEN
5566:
5567: GMD_RESULTS_GRP.check_experimental_error ( p_result_rec
5568: , x_return_status );
5569: IF (x_return_status <> 'S') THEN
5570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5571: END IF;
5572: END IF; -- only send numeric types for exp error checking
5573:
5574:
5612: IF (NOT isvalid_resource(p_result_rec.lab_organization_id,
5613: p_result_rec.planned_resource,
5614: p_result_rec.planned_resource_instance)) THEN
5615: GMD_API_PUB.Log_Message('GMD_INVALID_PARAMETERS');
5616: RAISE FND_API.G_EXC_ERROR;
5617: END IF;
5618:
5619: IF (NOT isvalid_resource(p_result_rec.lab_organization_id,
5620: p_result_rec.actual_resource,
5619: IF (NOT isvalid_resource(p_result_rec.lab_organization_id,
5620: p_result_rec.actual_resource,
5621: p_result_rec.actual_resource_instance)) THEN
5622: GMD_API_PUB.Log_Message('GMD_INVALID_PARAMETERS');
5623: RAISE FND_API.G_EXC_ERROR;
5624: END IF;
5625:
5626: IF (l_debug = 'Y') THEN
5627: gmd_debug.put_line('End of validate_result. In-Spec ' || p_result_rec.in_spec
5630: ||' Out of Spec ' || p_result_rec.out_of_spec);
5631: END IF;
5632:
5633: EXCEPTION
5634: WHEN FND_API.G_EXC_ERROR THEN
5635: x_return_status := FND_API.G_RET_STS_ERROR ;
5636: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5637: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5638: WHEN OTHERS THEN
5631: END IF;
5632:
5633: EXCEPTION
5634: WHEN FND_API.G_EXC_ERROR THEN
5635: x_return_status := FND_API.G_RET_STS_ERROR ;
5636: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5637: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5638: WHEN OTHERS THEN
5639: GMD_API_PUB.Log_Message('GMD_API_ERROR',
5632:
5633: EXCEPTION
5634: WHEN FND_API.G_EXC_ERROR THEN
5635: x_return_status := FND_API.G_RET_STS_ERROR ;
5636: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5637: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5638: WHEN OTHERS THEN
5639: GMD_API_PUB.Log_Message('GMD_API_ERROR',
5640: 'PACKAGE','VALIDATE_RESULT','ERROR', SUBSTR(SQLERRM,1,100));
5633: EXCEPTION
5634: WHEN FND_API.G_EXC_ERROR THEN
5635: x_return_status := FND_API.G_RET_STS_ERROR ;
5636: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5637: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5638: WHEN OTHERS THEN
5639: GMD_API_PUB.Log_Message('GMD_API_ERROR',
5640: 'PACKAGE','VALIDATE_RESULT','ERROR', SUBSTR(SQLERRM,1,100));
5641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5637: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5638: WHEN OTHERS THEN
5639: GMD_API_PUB.Log_Message('GMD_API_ERROR',
5640: 'PACKAGE','VALIDATE_RESULT','ERROR', SUBSTR(SQLERRM,1,100));
5641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5642: END validate_result;
5643:
5644:
5645:
5668: IS
5669:
5670: BEGIN
5671: -- Initialize API return status to success
5672: x_return_status := FND_API.G_RET_STS_SUCCESS;
5673:
5674: IF (l_debug = 'Y') THEN
5675: gmd_debug.put_line('Entering procedure VALIDATE_EVALUATION_IND');
5676: gmd_debug.put_line (' Evaluation Ind = ' || p_evaluation_ind);
5684: p_evaluation_ind IS NOT NULL AND
5685: p_evaluation_ind NOT IN ('4C', '5O', '1Z'))
5686: THEN
5687: GMD_API_PUB.Log_message ('GMD', 'GMD_QM_EVAL_BLANK_RESULT');
5688: RAISE FND_API.G_EXC_ERROR;
5689: END IF;
5690:
5691: IF nvl(p_in_spec_ind, 'N') = 'Y' THEN
5692: -- Result is IN-SPEC
5691: IF nvl(p_in_spec_ind, 'N') = 'Y' THEN
5692: -- Result is IN-SPEC
5693: IF (p_evaluation_ind = '3E') THEN
5694: GMD_API_PUB.Log_Message('GMD', 'GMD_QM_EVAL_NO_EXP_ERROR');
5695: RAISE FND_API.G_EXC_ERROR;
5696: END IF;
5697: ELSE
5698: -- else not in spec
5699: -- Bug 3763419 - added GUARANTEED BY MANUFACTURER
5698: -- else not in spec
5699: -- Bug 3763419 - added GUARANTEED BY MANUFACTURER
5700: IF (p_evaluation_ind NOT IN ('1V', '2R', '4C', '5O', '1Z')) THEN
5701: GMD_API_PUB.Log_Message('GMD', 'GMD_QM_EVAL_OUT_OF_SPEC');
5702: RAISE FND_API.G_EXC_ERROR;
5703: END IF;
5704: END IF;
5705:
5706: EXCEPTION
5703: END IF;
5704: END IF;
5705:
5706: EXCEPTION
5707: WHEN FND_API.G_EXC_ERROR THEN
5708: x_return_status := FND_API.G_RET_STS_ERROR ;
5709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5711: WHEN OTHERS THEN
5704: END IF;
5705:
5706: EXCEPTION
5707: WHEN FND_API.G_EXC_ERROR THEN
5708: x_return_status := FND_API.G_RET_STS_ERROR ;
5709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5711: WHEN OTHERS THEN
5712: GMD_API_PUB.Log_Message('GMD_API_ERROR',
5705:
5706: EXCEPTION
5707: WHEN FND_API.G_EXC_ERROR THEN
5708: x_return_status := FND_API.G_RET_STS_ERROR ;
5709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5711: WHEN OTHERS THEN
5712: GMD_API_PUB.Log_Message('GMD_API_ERROR',
5713: 'PACKAGE','VALIDATE_EVALUATION_IND','ERROR', SUBSTR(SQLERRM,1,100));
5706: EXCEPTION
5707: WHEN FND_API.G_EXC_ERROR THEN
5708: x_return_status := FND_API.G_RET_STS_ERROR ;
5709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5711: WHEN OTHERS THEN
5712: GMD_API_PUB.Log_Message('GMD_API_ERROR',
5713: 'PACKAGE','VALIDATE_EVALUATION_IND','ERROR', SUBSTR(SQLERRM,1,100));
5714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5711: WHEN OTHERS THEN
5712: GMD_API_PUB.Log_Message('GMD_API_ERROR',
5713: 'PACKAGE','VALIDATE_EVALUATION_IND','ERROR', SUBSTR(SQLERRM,1,100));
5714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5715: END validate_evaluation_ind;
5716:
5717:
5718:
5871:
5872: BEGIN
5873:
5874: -- Initialize API return status to success
5875: x_return_status := FND_API.G_RET_STS_SUCCESS;
5876:
5877: IF (l_debug = 'Y') THEN
5878: gmd_debug.put_line('Entering procedure CALC_EXPRESSION');
5879: gmd_debug.put_line(' Sample ID = ' || p_sample_id );
5889: , x_return_status => l_return_status);
5890:
5891: IF (l_return_status <> 'S') THEN
5892: -- Error message is already logged
5893: RAISE FND_API.G_EXC_ERROR;
5894: END IF;
5895:
5896: -- Index variable
5897: i := 0;
5914: ;
5915:
5916: IF l_return_status <> 'S' THEN
5917: -- Error message must be already logged
5918: RAISE FND_API.G_EXC_ERROR;
5919: END IF;
5920: select count(*) INTO l_ref_count from gmd_qc_test_values_b where test_id=l_exp_test.test_id; --Bug#5097709
5921: -- Now we have all the ref. tests for the current expression in l_exptab so
5922: -- fill-in result_values in l_exptab from _GT table
5952: pexp_test => l_boolean,
5953: x_value => l_value,
5954: x_return_status => x_return_status);
5955: IF x_return_status <> 'S' THEN
5956: RAISE FND_API.G_EXC_ERROR;
5957: END IF;
5958:
5959: -- We have got the expression calculated so format this to
5960: -- the display and report precision values
6039: x_rec.min_num := l_min_value_num;
6040: x_rec.max_num := l_max_value_num;
6041:
6042: GMD_RESULTS_GRP.validate_result(x_rec,l_return_status);
6043: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6044: RAISE FND_API.G_EXC_ERROR;
6045: END IF;
6046: --Updating the gmd_spec_results table, with proper values
6047: --which returned during the above call.
6040: x_rec.max_num := l_max_value_num;
6041:
6042: GMD_RESULTS_GRP.validate_result(x_rec,l_return_status);
6043: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6044: RAISE FND_API.G_EXC_ERROR;
6045: END IF;
6046: --Updating the gmd_spec_results table, with proper values
6047: --which returned during the above call.
6048: UPDATE gmd_spec_results
6062:
6063: END LOOP;
6064:
6065: EXCEPTION
6066: WHEN FND_API.G_EXC_ERROR THEN
6067: x_return_status := FND_API.G_RET_STS_ERROR ;
6068: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6069: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6070: WHEN OTHERS THEN
6063: END LOOP;
6064:
6065: EXCEPTION
6066: WHEN FND_API.G_EXC_ERROR THEN
6067: x_return_status := FND_API.G_RET_STS_ERROR ;
6068: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6069: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6070: WHEN OTHERS THEN
6071: GMD_API_PUB.Log_Message('GMD_API_ERROR',
6064:
6065: EXCEPTION
6066: WHEN FND_API.G_EXC_ERROR THEN
6067: x_return_status := FND_API.G_RET_STS_ERROR ;
6068: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6069: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6070: WHEN OTHERS THEN
6071: GMD_API_PUB.Log_Message('GMD_API_ERROR',
6072: 'PACKAGE','CALC_EXPRESSION','ERROR', SUBSTR(SQLERRM,1,100));
6065: EXCEPTION
6066: WHEN FND_API.G_EXC_ERROR THEN
6067: x_return_status := FND_API.G_RET_STS_ERROR ;
6068: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6069: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6070: WHEN OTHERS THEN
6071: GMD_API_PUB.Log_Message('GMD_API_ERROR',
6072: 'PACKAGE','CALC_EXPRESSION','ERROR', SUBSTR(SQLERRM,1,100));
6073: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6069: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6070: WHEN OTHERS THEN
6071: GMD_API_PUB.Log_Message('GMD_API_ERROR',
6072: 'PACKAGE','CALC_EXPRESSION','ERROR', SUBSTR(SQLERRM,1,100));
6073: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6074: END calc_expression;
6075:
6076:
6077:
6136: gmd_debug.put_line('Entering procedure CHANGE_SAMPLE_DISPOSITION');
6137: END IF;
6138:
6139: -- Initialize API return status to success
6140: x_return_status := FND_API.G_RET_STS_SUCCESS;
6141:
6142: -- Get the sample record
6143: l_sample_in.sample_id := p_sample_id;
6144: IF NOT (GMD_SAMPLES_PVT.fetch_row(
6377: gmd_debug.put_line ('Leaving Procedure: CHANGE_SAMPLE_DISPOSITION ' );
6378: END IF;
6379:
6380: EXCEPTION
6381: WHEN FND_API.G_EXC_ERROR
6382: OR e_sample_fetch_error
6383: OR e_sampling_event_fetch_error
6384: OR e_sample_spec_disp_fetch_error
6385: OR e_event_spec_disp_fetch_error
6383: OR e_sampling_event_fetch_error
6384: OR e_sample_spec_disp_fetch_error
6385: OR e_event_spec_disp_fetch_error
6386: THEN
6387: x_return_status := FND_API.G_RET_STS_ERROR ;
6388: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6390: WHEN OTHERS THEN
6391: GMD_API_PUB.Log_Message('GMD_API_ERROR',
6384: OR e_sample_spec_disp_fetch_error
6385: OR e_event_spec_disp_fetch_error
6386: THEN
6387: x_return_status := FND_API.G_RET_STS_ERROR ;
6388: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6390: WHEN OTHERS THEN
6391: GMD_API_PUB.Log_Message('GMD_API_ERROR',
6392: 'PACKAGE','change_sample_disposition','ERROR', SUBSTR(SQLERRM,1,100));
6385: OR e_event_spec_disp_fetch_error
6386: THEN
6387: x_return_status := FND_API.G_RET_STS_ERROR ;
6388: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6390: WHEN OTHERS THEN
6391: GMD_API_PUB.Log_Message('GMD_API_ERROR',
6392: 'PACKAGE','change_sample_disposition','ERROR', SUBSTR(SQLERRM,1,100));
6393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6390: WHEN OTHERS THEN
6391: GMD_API_PUB.Log_Message('GMD_API_ERROR',
6392: 'PACKAGE','change_sample_disposition','ERROR', SUBSTR(SQLERRM,1,100));
6393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6394:
6395: END change_sample_disposition;
6396:
6397:
6487: l_config_opt VARCHAR2(1);
6488:
6489: BEGIN
6490: -- Initialize API return status to success
6491: x_return_status := FND_API.G_RET_STS_SUCCESS;
6492:
6493: IF (l_debug = 'Y') THEN
6494: gmd_debug.put_line('Entering procedure: CHANGE_DISP_FOR_AUTO_LOT.');
6495: END IF;
6498: FETCH c_sample_dtl INTO l_sample_rec;
6499: IF c_sample_dtl%NOTFOUND THEN
6500: CLOSE c_sample_dtl;
6501: GMD_API_PUB.Log_Message('GMD_INVALID_PARAMETERS');
6502: RAISE FND_API.G_EXC_ERROR;
6503: END IF;
6504: CLOSE c_sample_dtl;
6505:
6506: -- ========================================================
6768: p_update_disp_rec => l_update_disp_rec
6769: , p_to_disposition => l_change_disp_to
6770: , x_return_status => x_return_status
6771: , x_message_data => l_message_data);
6772: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6773: GMD_API_PUB.Log_Message(l_message_data);
6774: RAISE FND_API.G_EXC_ERROR;
6775: END IF;
6776:
6770: , x_return_status => x_return_status
6771: , x_message_data => l_message_data);
6772: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6773: GMD_API_PUB.Log_Message(l_message_data);
6774: RAISE FND_API.G_EXC_ERROR;
6775: END IF;
6776:
6777: -- The above procedure has changed the Sample Spec Disposition.
6778: -- It might also change the Sampling Event Disposition if this is the
6793: , p_organization_id => l_sample_rec.organization_id
6794: , p_lot_status => l_lot_status_id
6795: , x_return_status => x_return_status
6796: );
6797: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6798: RAISE FND_API.G_EXC_ERROR;
6799: END IF;
6800: END IF; --l_disposition IN...
6801: END IF; -- control_lot_attrib_ind = Y ...
6794: , p_lot_status => l_lot_status_id
6795: , x_return_status => x_return_status
6796: );
6797: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6798: RAISE FND_API.G_EXC_ERROR;
6799: END IF;
6800: END IF; --l_disposition IN...
6801: END IF; -- control_lot_attrib_ind = Y ...
6802:
6806: gmd_debug.put_line('Leaving Procedure: CHANGE_DISP_FOR_AUTO_LOT.');
6807: END IF;
6808:
6809: EXCEPTION
6810: WHEN FND_API.G_EXC_ERROR THEN
6811: x_return_status := FND_API.G_RET_STS_ERROR ;
6812: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6814: WHEN OTHERS THEN
6807: END IF;
6808:
6809: EXCEPTION
6810: WHEN FND_API.G_EXC_ERROR THEN
6811: x_return_status := FND_API.G_RET_STS_ERROR ;
6812: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6814: WHEN OTHERS THEN
6815: GMD_API_PUB.Log_Message('GMD_API_ERROR',
6808:
6809: EXCEPTION
6810: WHEN FND_API.G_EXC_ERROR THEN
6811: x_return_status := FND_API.G_RET_STS_ERROR ;
6812: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6814: WHEN OTHERS THEN
6815: GMD_API_PUB.Log_Message('GMD_API_ERROR',
6816: 'PACKAGE','CHANGE_DISP_FOR_AUTO_LOT','ERROR', SUBSTR(SQLERRM,1,100));
6809: EXCEPTION
6810: WHEN FND_API.G_EXC_ERROR THEN
6811: x_return_status := FND_API.G_RET_STS_ERROR ;
6812: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6814: WHEN OTHERS THEN
6815: GMD_API_PUB.Log_Message('GMD_API_ERROR',
6816: 'PACKAGE','CHANGE_DISP_FOR_AUTO_LOT','ERROR', SUBSTR(SQLERRM,1,100));
6817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6814: WHEN OTHERS THEN
6815: GMD_API_PUB.Log_Message('GMD_API_ERROR',
6816: 'PACKAGE','CHANGE_DISP_FOR_AUTO_LOT','ERROR', SUBSTR(SQLERRM,1,100));
6817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6818:
6819: END change_disp_for_auto_lot;
6820:
6821:
6931: gmd_debug.put_line('Entering procedure CHANGE_SAMPLE_DISPOSITION');
6932: END IF;
6933:
6934: -- Initialize API return status to success
6935: x_return_status := FND_API.G_RET_STS_SUCCESS;
6936:
6937: -- Now that we have sampling_event_id, fetch the sampling event record
6938: l_in_sampling_event.sampling_event_id := p_sampling_event_id;
6939: IF NOT (GMD_SAMPLING_EVENTS_PVT.fetch_row(
6951: l_event_spec_disp_id := get_current_event_spec_disp_id
6952: (l_sampling_event.sampling_event_id);
6953: IF (l_event_spec_disp_id IS NULL) THEN
6954: GMD_API_PUB.Log_Message('GMD_EVENT_SPEC_NOT_FOUND');
6955: RAISE FND_API.G_EXC_ERROR;
6956: END IF;
6957:
6958: l_composite_exist := 'N';
6959: l_composite_valid := 'N';
6964: , x_composite_exist => l_composite_exist
6965: , x_composite_valid => l_composite_valid
6966: , x_return_status => l_return_status);
6967:
6968: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6969: RAISE FND_API.G_EXC_ERROR;
6970: END IF;
6971:
6972: IF ((l_composite_exist = 'N') OR
6965: , x_composite_valid => l_composite_valid
6966: , x_return_status => l_return_status);
6967:
6968: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6969: RAISE FND_API.G_EXC_ERROR;
6970: END IF;
6971:
6972: IF ((l_composite_exist = 'N') OR
6973: (l_composite_exist = 'Y' AND l_composite_valid = 'N')) THEN
6974: -- Get all the sample IDs for this Sampling Event
6975: GMD_RESULTS_GRP.get_sample_ids_for_se(l_sampling_event.sampling_event_id,
6976: l_sample_ids,
6977: l_return_status);
6978: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6979: RAISE FND_API.G_EXC_ERROR;
6980: END IF;
6981:
6982: -- Populate Session Temp Table with Data Points
6975: GMD_RESULTS_GRP.get_sample_ids_for_se(l_sampling_event.sampling_event_id,
6976: l_sample_ids,
6977: l_return_status);
6978: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6979: RAISE FND_API.G_EXC_ERROR;
6980: END IF;
6981:
6982: -- Populate Session Temp Table with Data Points
6983: GMD_RESULTS_GRP.populate_result_data_points
6983: GMD_RESULTS_GRP.populate_result_data_points
6984: (p_sample_ids => l_sample_ids,
6985: p_event_spec_disp_id => l_event_spec_disp_id,
6986: x_return_status => l_return_status);
6987: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6988: RAISE FND_API.G_EXC_ERROR;
6989: END IF;
6990:
6991: -- Create new Composite Rows
6984: (p_sample_ids => l_sample_ids,
6985: p_event_spec_disp_id => l_event_spec_disp_id,
6986: x_return_status => l_return_status);
6987: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6988: RAISE FND_API.G_EXC_ERROR;
6989: END IF;
6990:
6991: -- Create new Composite Rows
6992: GMD_RESULTS_GRP.create_composite_rows
6991: -- Create new Composite Rows
6992: GMD_RESULTS_GRP.create_composite_rows
6993: (p_event_spec_disp_id => l_event_spec_disp_id,
6994: x_return_Status => l_return_status);
6995: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6996: RAISE FND_API.G_EXC_ERROR;
6997: END IF;
6998:
6999: -- At this time the composite results are created with IN/OUT-OF-SPEC flag set.
6992: GMD_RESULTS_GRP.create_composite_rows
6993: (p_event_spec_disp_id => l_event_spec_disp_id,
6994: x_return_Status => l_return_status);
6995: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6996: RAISE FND_API.G_EXC_ERROR;
6997: END IF;
6998:
6999: -- At this time the composite results are created with IN/OUT-OF-SPEC flag set.
7000:
7116: p_update_disp_rec => l_update_disp_rec
7117: , p_to_disposition => l_change_disp_to
7118: , x_return_status => l_return_status
7119: , x_message_data => l_message_data);
7120: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7121: GMD_API_PUB.Log_Message(l_message_data);
7122: RAISE FND_API.G_EXC_ERROR;
7123: END IF;
7124:
7118: , x_return_status => l_return_status
7119: , x_message_data => l_message_data);
7120: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7121: GMD_API_PUB.Log_Message(l_message_data);
7122: RAISE FND_API.G_EXC_ERROR;
7123: END IF;
7124:
7125: -- Disposition has been changed so now change the Lot Status in Inventory
7126: IF (l_spec_dtl.control_lot_attrib_ind = 'Y') THEN --RLNAGARA Bug5416103
7138: FETCH Cur_quality_config INTO l_reason_id ;
7139: IF Cur_quality_config%NOTFOUND THEN
7140: CLOSE Cur_quality_config;
7141: GMD_API_PUB.Log_Message('GMD_QM_INV_REASON_CODE');
7142: RAISE FND_API.G_EXC_ERROR;
7143: END IF;
7144: CLOSE Cur_quality_config;
7145:
7146: --rconv
7158: , x_return_status => x_return_status
7159: , x_message_data => l_message_data );
7160:
7161:
7162: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7163: GMD_API_PUB.Log_Message(l_message_data);
7164: RAISE FND_API.G_EXC_ERROR;
7165: END IF;
7166:
7160:
7161:
7162: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7163: GMD_API_PUB.Log_Message(l_message_data);
7164: RAISE FND_API.G_EXC_ERROR;
7165: END IF;
7166:
7167: END IF; -- l_lot_status IS NOT NULL
7168:
7170:
7171: END IF; -- Need to create composite
7172:
7173: -- Check of p_commit.
7174: IF FND_API.to_boolean(p_commit)
7175: THEN
7176: COMMIT WORK;
7177: END IF;
7178:
7180:
7181:
7182:
7183: EXCEPTION
7184: WHEN FND_API.G_EXC_ERROR OR
7185: e_sampling_event_fetch_error
7186: THEN
7187: x_return_status := FND_API.G_RET_STS_ERROR ;
7188: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7183: EXCEPTION
7184: WHEN FND_API.G_EXC_ERROR OR
7185: e_sampling_event_fetch_error
7186: THEN
7187: x_return_status := FND_API.G_RET_STS_ERROR ;
7188: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7190: WHEN OTHERS THEN
7191: GMD_API_PUB.Log_Message('GMD_API_ERROR',
7184: WHEN FND_API.G_EXC_ERROR OR
7185: e_sampling_event_fetch_error
7186: THEN
7187: x_return_status := FND_API.G_RET_STS_ERROR ;
7188: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7190: WHEN OTHERS THEN
7191: GMD_API_PUB.Log_Message('GMD_API_ERROR',
7192: 'PACKAGE','change_sample_disposition','ERROR', SUBSTR(SQLERRM,1,100));
7185: e_sampling_event_fetch_error
7186: THEN
7187: x_return_status := FND_API.G_RET_STS_ERROR ;
7188: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7190: WHEN OTHERS THEN
7191: GMD_API_PUB.Log_Message('GMD_API_ERROR',
7192: 'PACKAGE','change_sample_disposition','ERROR', SUBSTR(SQLERRM,1,100));
7193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7190: WHEN OTHERS THEN
7191: GMD_API_PUB.Log_Message('GMD_API_ERROR',
7192: 'PACKAGE','change_sample_disposition','ERROR', SUBSTR(SQLERRM,1,100));
7193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7194: END composite_and_change_lot;
7195:
7196: PROCEDURE update_exptest_value_null
7197: (p_exp_ref_test_id IN gmd_qc_tests_b.test_id%TYPE
7244:
7245: gmd_debug.put_line('Entering procedure update_exptest_value_null');
7246:
7247: --Initialize API return status to success
7248: x_return_status := FND_API.G_RET_STS_SUCCESS;
7249:
7250: FOR test in get_exp_tests(p_exp_ref_test_id)
7251: LOOP
7252: OPEN exp_tests_need_calc(p_sample_id, test.test_id,p_event_spec_disp_id);
7259:
7260: EXCEPTION
7261: WHEN OTHERS THEN
7262: GMD_API_PUB.Log_Message('GMD_API_ERROR','PACKAGE','update_exptest_value_null','ERROR', SUBSTR(SQLERRM,1,100));
7263: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7264:
7265: END update_exptest_value_null;
7266:
7267: END gmd_results_grp;