eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.GMD_RESULTS_GRP dependencies on FND_API

Line 291: x_return_status := FND_API.G_RET_STS_SUCCESS;

287:
288:
289: BEGIN
290: -- Initialize API return status to success
291: x_return_status := FND_API.G_RET_STS_SUCCESS;
292:
293: -- DESC FLEX Enhancement
294: --*********************************************************
295: --* set the context value *

Line 342: -- RAISE FND_API.G_EXC_ERROR;

338: -- Not anymore dude?
339:
340:
341: -- GMD_API_PUB.Log_Message('GMD_RETAIN_SAMPLE');
342: -- RAISE FND_API.G_EXC_ERROR;
343: -- END IF;
344:
345: -- Check that we have the Sampling Event
346: -- Now, even in case where there is no Spec for the sample

Line 351: RAISE FND_API.G_EXC_ERROR;

347: -- there still should be a sampling event as per new directions.
348: IF (p_sample.sampling_event_id IS NULL) THEN
349: -- I need sampling event to know which Spec is used.
350: GMD_API_PUB.Log_Message('GMD_SAMPLING_EVENT_MISSING');
351: RAISE FND_API.G_EXC_ERROR;
352: END IF;
353:
354: -- Now that we have sampling_event_id, fetch the sampling event record
355: -- l_sampling_event.sampling_event_id := p_sample.sampling_event_id;

Line 377: RAISE FND_API.G_EXC_ERROR;

373: AND lookup_code = l_sampling_event.disposition;
374:
375: GMD_API_PUB.Log_Message('GMD_SAMPLING_EVENT_DISPOSED',
376: 'DISPOSITION', l_meaning);
377: RAISE FND_API.G_EXC_ERROR;
378: END IF;
379:
380: -- All the required validations are over so let's start
381: -- doing some REAL work.

Line 391: RAISE FND_API.G_EXC_ERROR;

387: FETCH c_vrs_vw INTO l_spec_id;
388: IF c_vrs_vw%NOTFOUND THEN
389: -- Now this can not happen that we have spec_vr_id and there is no Spec
390: GMD_API_PUB.Log_Message('GMD_SPEC_NOT_FOUND');
391: RAISE FND_API.G_EXC_ERROR;
392: END IF;
393: CLOSE c_vrs_vw;
394: END IF;
395:

Line 571: --RAISE FND_API.G_EXC_ERROR;

567: --GMD_API_PUB.Log_Message('FM_SCALE_BAD_UOM_CONV',
568: -- 'FROM_UOM',p_sample.sample_uom,
569: -- 'TO_UOM' ,l_spec_test.test_uom,
570: -- 'ITEM_NO' ,l_item_no);
571: --RAISE FND_API.G_EXC_ERROR;
572: --END IF; -- (temp_qty < 0)
573: --END IF; -- l_spec_test.test_uom <> p_sample.sample_uom
574: -- end bug 3088216
575:

Line 726: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

722: se_recomposite_required ( p_sampling_event_id => l_sampling_event.sampling_event_id
723: , p_event_spec_disp_id => l_event_spec_disp.event_spec_disp_id
724: , x_return_status => l_return_status
725: );
726: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
727: RAISE FND_API.G_EXC_ERROR;
728: END IF;
729: END IF;
730:

Line 727: RAISE FND_API.G_EXC_ERROR;

723: , p_event_spec_disp_id => l_event_spec_disp.event_spec_disp_id
724: , x_return_status => l_return_status
725: );
726: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
727: RAISE FND_API.G_EXC_ERROR;
728: END IF;
729: END IF;
730:
731: IF NOT (l_event_spec_disp.disposition IN ('1P', '2I')) THEN

Line 765: WHEN FND_API.G_EXC_ERROR

761: e := 200;
762: GMD_API_PUB.Log_Message('GMD_API_ERROR',
763: 'PACKAGE','CREATE_RSLT_AND_SPEC_RSLT_ROWS',
764: 'ERROR', error_msg);
765: WHEN FND_API.G_EXC_ERROR
766: OR e_sampling_event_fetch_error
767: OR e_results_insert_error
768: OR e_spec_results_insert_error
769: OR e_event_spec_disp_insert_error

Line 773: x_return_status := FND_API.G_RET_STS_ERROR ;

769: OR e_event_spec_disp_insert_error
770: OR e_sample_spec_disp_insert_err
771: OR e_event_spec_disp_fetch_error
772: THEN
773: x_return_status := FND_API.G_RET_STS_ERROR ;
774: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
776: WHEN OTHERS THEN
777: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 774: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

770: OR e_sample_spec_disp_insert_err
771: OR e_event_spec_disp_fetch_error
772: THEN
773: x_return_status := FND_API.G_RET_STS_ERROR ;
774: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
776: WHEN OTHERS THEN
777: GMD_API_PUB.Log_Message('GMD_API_ERROR',
778: 'PACKAGE','CREATE_RSLT_AND_SPEC_RSLT_ROWS',

Line 775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

771: OR e_event_spec_disp_fetch_error
772: THEN
773: x_return_status := FND_API.G_RET_STS_ERROR ;
774: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
776: WHEN OTHERS THEN
777: GMD_API_PUB.Log_Message('GMD_API_ERROR',
778: 'PACKAGE','CREATE_RSLT_AND_SPEC_RSLT_ROWS',
779: 'ERROR', SUBSTR(SQLERRM,1,100));

Line 780: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

776: WHEN OTHERS THEN
777: GMD_API_PUB.Log_Message('GMD_API_ERROR',
778: 'PACKAGE','CREATE_RSLT_AND_SPEC_RSLT_ROWS',
779: 'ERROR', SUBSTR(SQLERRM,1,100));
780: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
781:
782: END create_rslt_and_spec_rslt_rows;
783:
784:

Line 814: x_return_status := FND_API.G_RET_STS_SUCCESS;

810: gmd_debug.put_line('Entering procedure DELETE_RSLT_AND_SPEC_RSLT_ROWS');
811: END IF;
812:
813: -- Initialize API return status to success
814: x_return_status := FND_API.G_RET_STS_SUCCESS;
815:
816: DELETE gmd_spec_results
817: WHERE result_id IN (SELECT result_id
818: FROM gmd_results

Line 839: WHEN FND_API.G_EXC_ERROR THEN

835: gmd_debug.put_line('Leaving procedure DELETE_RSLT_AND_SPEC_RSLT_ROWS');
836: END IF;
837:
838: EXCEPTION
839: WHEN FND_API.G_EXC_ERROR THEN
840: x_return_status := FND_API.G_RET_STS_ERROR ;
841: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
842: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
843: WHEN OTHERS THEN

Line 840: x_return_status := FND_API.G_RET_STS_ERROR ;

836: END IF;
837:
838: EXCEPTION
839: WHEN FND_API.G_EXC_ERROR THEN
840: x_return_status := FND_API.G_RET_STS_ERROR ;
841: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
842: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
843: WHEN OTHERS THEN
844: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 841: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

837:
838: EXCEPTION
839: WHEN FND_API.G_EXC_ERROR THEN
840: x_return_status := FND_API.G_RET_STS_ERROR ;
841: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
842: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
843: WHEN OTHERS THEN
844: GMD_API_PUB.Log_Message('GMD_API_ERROR',
845: 'PACKAGE','DELETE_RSLT_AND_SPEC_RSLT_ROWS',

Line 842: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

838: EXCEPTION
839: WHEN FND_API.G_EXC_ERROR THEN
840: x_return_status := FND_API.G_RET_STS_ERROR ;
841: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
842: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
843: WHEN OTHERS THEN
844: GMD_API_PUB.Log_Message('GMD_API_ERROR',
845: 'PACKAGE','DELETE_RSLT_AND_SPEC_RSLT_ROWS',
846: 'ERROR', SUBSTR(SQLERRM,1,100));

Line 847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

843: WHEN OTHERS THEN
844: GMD_API_PUB.Log_Message('GMD_API_ERROR',
845: 'PACKAGE','DELETE_RSLT_AND_SPEC_RSLT_ROWS',
846: 'ERROR', SUBSTR(SQLERRM,1,100));
847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
848:
849: END delete_rslt_and_spec_rslt_rows;
850:
851:

Line 975: x_return_status := FND_API.G_RET_STS_SUCCESS;

971: i PLS_INTEGER;
972:
973: BEGIN
974: -- Initialize API return status to success
975: x_return_status := FND_API.G_RET_STS_SUCCESS;
976:
977: i := 0;
978:
979: -- Go throug all the tests that are part of the Spec

Line 991: WHEN FND_API.G_EXC_ERROR

987:
988: -- All systems GO...
989:
990: EXCEPTION
991: WHEN FND_API.G_EXC_ERROR
992: THEN
993: x_return_status := FND_API.G_RET_STS_ERROR ;
994: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
995: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 993: x_return_status := FND_API.G_RET_STS_ERROR ;

989:
990: EXCEPTION
991: WHEN FND_API.G_EXC_ERROR
992: THEN
993: x_return_status := FND_API.G_RET_STS_ERROR ;
994: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
995: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
996: WHEN OTHERS THEN
997: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 994: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

990: EXCEPTION
991: WHEN FND_API.G_EXC_ERROR
992: THEN
993: x_return_status := FND_API.G_RET_STS_ERROR ;
994: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
995: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
996: WHEN OTHERS THEN
997: GMD_API_PUB.Log_Message('GMD_API_ERROR',
998: 'PACKAGE','COMPARE_RSLT_AND_SPEC',

Line 995: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

991: WHEN FND_API.G_EXC_ERROR
992: THEN
993: x_return_status := FND_API.G_RET_STS_ERROR ;
994: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
995: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
996: WHEN OTHERS THEN
997: GMD_API_PUB.Log_Message('GMD_API_ERROR',
998: 'PACKAGE','COMPARE_RSLT_AND_SPEC',
999: 'ERROR', SUBSTR(SQLERRM,1,100));

Line 1000: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

996: WHEN OTHERS THEN
997: GMD_API_PUB.Log_Message('GMD_API_ERROR',
998: 'PACKAGE','COMPARE_RSLT_AND_SPEC',
999: 'ERROR', SUBSTR(SQLERRM,1,100));
1000: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1001:
1002: END compare_rslt_and_spec;
1003:
1004:

Line 1079: x_return_status := FND_API.G_RET_STS_SUCCESS;

1075: i PLS_INTEGER;
1076:
1077: BEGIN
1078: -- Initialize API return status to success
1079: x_return_status := FND_API.G_RET_STS_SUCCESS;
1080:
1081: i := 0;
1082:
1083: -- Go throug all the tests that are part of the Spec

Line 1095: WHEN FND_API.G_EXC_ERROR

1091:
1092: -- All systems GO...
1093:
1094: EXCEPTION
1095: WHEN FND_API.G_EXC_ERROR
1096: THEN
1097: x_return_status := FND_API.G_RET_STS_ERROR ;
1098: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 1097: x_return_status := FND_API.G_RET_STS_ERROR ;

1093:
1094: EXCEPTION
1095: WHEN FND_API.G_EXC_ERROR
1096: THEN
1097: x_return_status := FND_API.G_RET_STS_ERROR ;
1098: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1100: WHEN OTHERS THEN
1101: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 1098: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1094: EXCEPTION
1095: WHEN FND_API.G_EXC_ERROR
1096: THEN
1097: x_return_status := FND_API.G_RET_STS_ERROR ;
1098: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1100: WHEN OTHERS THEN
1101: GMD_API_PUB.Log_Message('GMD_API_ERROR',
1102: 'PACKAGE','compare_cmpst_rslt_and_spec',

Line 1099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1095: WHEN FND_API.G_EXC_ERROR
1096: THEN
1097: x_return_status := FND_API.G_RET_STS_ERROR ;
1098: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1100: WHEN OTHERS THEN
1101: GMD_API_PUB.Log_Message('GMD_API_ERROR',
1102: 'PACKAGE','compare_cmpst_rslt_and_spec',
1103: 'ERROR', SUBSTR(SQLERRM,1,100));

Line 1104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1100: WHEN OTHERS THEN
1101: GMD_API_PUB.Log_Message('GMD_API_ERROR',
1102: 'PACKAGE','compare_cmpst_rslt_and_spec',
1103: 'ERROR', SUBSTR(SQLERRM,1,100));
1104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1105:
1106: END compare_cmpst_rslt_and_spec;
1107:
1108:

Line 1475: x_return_status := FND_API.G_RET_STS_SUCCESS;

1471: gmd_debug.put_line('Entering Procedure: ADD_TESTS_TO_SAMPLE');
1472: END IF;
1473:
1474: -- Initialize API return status to success
1475: x_return_status := FND_API.G_RET_STS_SUCCESS;
1476:
1477: l_user_id := FND_GLOBAL.user_id;
1478: l_date := SYSDATE;
1479:

Line 1519: RAISE FND_API.G_EXC_ERROR;

1515: WHERE lookup_type = 'GMD_QC_SAMPLE_DISP'
1516: AND lookup_code = l_sample_spec_disp; -- 3903309
1517:
1518: GMD_API_PUB.Log_Message('GMD_CANT_ADD_TEST');
1519: RAISE FND_API.G_EXC_ERROR;
1520: END IF;
1521:
1522: -- Fetch the Event Spec Record
1523: IF p_event_spec_disp_id IS NOT NULL THEN

Line 1574: RAISE FND_API.G_EXC_ERROR;

1570: gmd_debug.put_line('Expression Test is already in the result set. Abort.');
1571: END IF;
1572: CLOSE c_res_test;
1573: GMD_API_PUB.Log_Message('GMD_EXP_TEST_IS_THERE');
1574: RAISE FND_API.G_EXC_ERROR;
1575: END IF;
1576: CLOSE c_res_test; */
1577:
1578: -- If the test we are adding is Expression then make sure that all the

Line 1587: RAISE FND_API.G_EXC_ERROR;

1583: IF (l_debug = 'Y') THEN
1584: gmd_debug.put_line('Some of the reference tests are missing from the result set. Abort.');
1585: END IF;
1586: GMD_API_PUB.Log_Message('GMD_REF_TESTS_MISSING');
1587: RAISE FND_API.G_EXC_ERROR;
1588: END IF;
1589:
1590: END IF; -- l_test_type = 'E'
1591:

Line 1834: WHEN FND_API.G_EXC_ERROR OR

1830: END IF;
1831:
1832:
1833: EXCEPTION
1834: WHEN FND_API.G_EXC_ERROR OR
1835: e_results_insert_error OR
1836: e_spec_results_insert_error OR
1837: e_samples_fetch_error OR
1838: e_event_spec_fetch_error OR

Line 1841: x_return_status := FND_API.G_RET_STS_ERROR ;

1837: e_samples_fetch_error OR
1838: e_event_spec_fetch_error OR
1839: e_sampling_event_fetch_error
1840: THEN
1841: x_return_status := FND_API.G_RET_STS_ERROR ;
1842: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1843: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1844: WHEN OTHERS THEN
1845: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 1842: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1838: e_event_spec_fetch_error OR
1839: e_sampling_event_fetch_error
1840: THEN
1841: x_return_status := FND_API.G_RET_STS_ERROR ;
1842: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1843: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1844: WHEN OTHERS THEN
1845: GMD_API_PUB.Log_Message('GMD_API_ERROR',
1846: 'PACKAGE','ADD_TESTS_TO_SAMPLE',

Line 1843: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1839: e_sampling_event_fetch_error
1840: THEN
1841: x_return_status := FND_API.G_RET_STS_ERROR ;
1842: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1843: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1844: WHEN OTHERS THEN
1845: GMD_API_PUB.Log_Message('GMD_API_ERROR',
1846: 'PACKAGE','ADD_TESTS_TO_SAMPLE',
1847: 'ERROR', SUBSTR(SQLERRM,1,100));

Line 1848: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1844: WHEN OTHERS THEN
1845: GMD_API_PUB.Log_Message('GMD_API_ERROR',
1846: 'PACKAGE','ADD_TESTS_TO_SAMPLE',
1847: 'ERROR', SUBSTR(SQLERRM,1,100));
1848: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1849:
1850: END add_tests_to_sample;
1851:
1852:

Line 2015: x_return_status := FND_API.G_RET_STS_SUCCESS;

2011: IF (l_debug = 'Y') THEN
2012: gmd_debug.put_line('Entering Procedure ADD_TEST_TO_SAMPLES');
2013: END IF;
2014: -- Initialize API return status to success
2015: x_return_status := FND_API.G_RET_STS_SUCCESS;
2016:
2017: -- Since we are going to insert the same test to all
2018: -- the samples assign the test to table of test IDs
2019: l_test_ids(1) := p_test_id;

Line 2044: RAISE FND_API.G_EXC_ERROR;

2040: , x_return_status => l_return_status);
2041:
2042: IF l_return_status <> 'S' THEN
2043: -- Message must have been logged so just raise an exception.
2044: RAISE FND_API.G_EXC_ERROR;
2045: END IF;
2046:
2047: IF (l_debug = 'Y') THEN
2048: gmd_debug.put_line('Ttest ID: ' || l_test_ids(1) || ' is added to Sample ID: ' || l_sample.sample_id);

Line 2062: WHEN FND_API.G_EXC_ERROR THEN

2058: gmd_debug.put_line('Leaving Procedure ADD_TEST_TO_SAMPLES');
2059: END IF;
2060:
2061: EXCEPTION
2062: WHEN FND_API.G_EXC_ERROR THEN
2063: x_return_status := FND_API.G_RET_STS_ERROR ;
2064: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2066: WHEN OTHERS THEN

Line 2063: x_return_status := FND_API.G_RET_STS_ERROR ;

2059: END IF;
2060:
2061: EXCEPTION
2062: WHEN FND_API.G_EXC_ERROR THEN
2063: x_return_status := FND_API.G_RET_STS_ERROR ;
2064: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2066: WHEN OTHERS THEN
2067: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 2064: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2060:
2061: EXCEPTION
2062: WHEN FND_API.G_EXC_ERROR THEN
2063: x_return_status := FND_API.G_RET_STS_ERROR ;
2064: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2066: WHEN OTHERS THEN
2067: GMD_API_PUB.Log_Message('GMD_API_ERROR',
2068: 'PACKAGE','ADD_TEST_TO_SAMPLES',

Line 2065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

2061: EXCEPTION
2062: WHEN FND_API.G_EXC_ERROR THEN
2063: x_return_status := FND_API.G_RET_STS_ERROR ;
2064: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2066: WHEN OTHERS THEN
2067: GMD_API_PUB.Log_Message('GMD_API_ERROR',
2068: 'PACKAGE','ADD_TEST_TO_SAMPLES',
2069: 'ERROR', SUBSTR(SQLERRM,1,100));

Line 2070: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

2066: WHEN OTHERS THEN
2067: GMD_API_PUB.Log_Message('GMD_API_ERROR',
2068: 'PACKAGE','ADD_TEST_TO_SAMPLES',
2069: 'ERROR', SUBSTR(SQLERRM,1,100));
2070: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2071:
2072:
2073: END add_test_to_samples;
2074:

Line 2269: x_return_status := FND_API.G_RET_STS_SUCCESS;

2265: gmd_debug.put_line('Entering Procedure - MAKE_TARGET_SPEC_THE_BASE_SPEC');
2266: END IF;
2267:
2268: -- Initialize API return status to success
2269: x_return_status := FND_API.G_RET_STS_SUCCESS;
2270:
2271: -- Make sure we have the sample record
2272: -- l_sample.sample_id := p_sample_id;
2273: l_in_sample.sample_id := p_sample_id;

Line 2319: RAISE FND_API.G_EXC_ERROR;

2315: gmd_debug.put_line(' MAKE_TARGET_SPEC_THE_BASE_SPEC For Retain or Planned sample - no comparison ');
2316: END IF;
2317:
2318:
2319: RAISE FND_API.G_EXC_ERROR;
2320: END IF;
2321:
2322: -- Check that we have the Sampling Event
2323: -- Now, even in case where there is no Spec for the sample

Line 2331: RAISE FND_API.G_EXC_ERROR;

2327: IF (l_debug = 'Y') THEN
2328: gmd_debug.put_line(' MAKE_TARGET_SPEC_THE_BASE_SPEC GMD_SAMPLING_EVENT_MISSING ');
2329: END IF;
2330:
2331: RAISE FND_API.G_EXC_ERROR;
2332: END IF;
2333:
2334: -- All the required validations are over so let's start
2335: -- doing some REAL work.

Line 2583: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2579: IF x_rec.test_type in ('N', 'L', 'E') THEN
2580: GMD_RESULTS_GRP.check_experimental_error ( x_rec
2581: , l_return_status );
2582: IF (l_return_status <> 'S') THEN
2583: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2584: END IF;
2585: END IF;
2586:
2587: IF x_rec.additional_test_ind IS NULL AND

Line 2718: RAISE FND_API.G_EXC_ERROR;

2714: );
2715:
2716: IF l_return_status <> 'S' THEN
2717: -- Message must have been logged so just raise an exception.
2718: RAISE FND_API.G_EXC_ERROR;
2719: END IF;
2720:
2721: IF (l_debug = 'Y') THEN
2722: gmd_debug.put_line(' Test template record added to both GMD_RESULTD and GMD_SPEC_RESULTS.');

Line 2741: RAISE FND_API.G_EXC_ERROR;

2737: , x_message_data => l_message_data
2738: );
2739: IF l_return_status <> 'S' THEN
2740: FND_MESSAGE.SET_NAME('GMD', l_message_data);
2741: RAISE FND_API.G_EXC_ERROR;
2742: END IF;
2743:
2744: IF (l_debug = 'Y') THEN
2745: gmd_debug.put_line('Leaving Procedure - MAKE_TARGET_SPEC_THE_BASE_SPEC');

Line 2755: WHEN FND_API.G_EXC_ERROR

2751:
2752: -- All systems GO...
2753:
2754: EXCEPTION
2755: WHEN FND_API.G_EXC_ERROR
2756: OR e_spec_results_insert_error
2757: OR e_event_spec_disp_insert_error
2758: OR e_sample_spec_disp_insert_err
2759: THEN

Line 2764: x_return_status := FND_API.G_RET_STS_ERROR ;

2760: IF (l_debug = 'Y') THEN
2761: gmd_debug.put_line('Leaving Procedure - MAKE_TARGET_SPEC_THE_BASE_SPEC with return status of ERROR ');
2762: END IF;
2763:
2764: x_return_status := FND_API.G_RET_STS_ERROR ;
2765: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2766:
2767: IF (l_debug = 'Y') THEN
2768: gmd_debug.put_line('Leaving Procedure - MAKE_TARGET_SPEC_THE_BASE_SPEC with return status of unexpected ERROR ');

Line 2765: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2761: gmd_debug.put_line('Leaving Procedure - MAKE_TARGET_SPEC_THE_BASE_SPEC with return status of ERROR ');
2762: END IF;
2763:
2764: x_return_status := FND_API.G_RET_STS_ERROR ;
2765: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2766:
2767: IF (l_debug = 'Y') THEN
2768: gmd_debug.put_line('Leaving Procedure - MAKE_TARGET_SPEC_THE_BASE_SPEC with return status of unexpected ERROR ');
2769: END IF;

Line 2770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

2766:
2767: IF (l_debug = 'Y') THEN
2768: gmd_debug.put_line('Leaving Procedure - MAKE_TARGET_SPEC_THE_BASE_SPEC with return status of unexpected ERROR ');
2769: END IF;
2770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2771: WHEN OTHERS THEN
2772:
2773: IF (l_debug = 'Y') THEN
2774: gmd_debug.put_line('Leaving Procedure - MAKE_TARGET_SPEC_THE_BASE_SPEC with return status for OTHERS of unexpected ERROR ');

Line 2779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

2775: END IF;
2776: GMD_API_PUB.Log_Message('GMD_API_ERROR',
2777: 'PACKAGE','MAKE_TARGET_SPEC_THE_BASE_SPEC',
2778: 'ERROR', SUBSTR(SQLERRM,1,100));
2779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2780:
2781:
2782: END make_target_spec_the_base_spec;
2783:

Line 2845: x_return_status := FND_API.G_RET_STS_SUCCESS;

2841: gmd_debug.put_line('Entered Procedure - USE_TARGET_SPEC_FOR_CMPST_RSLT');
2842: END IF;
2843:
2844: -- Initialize API return status to success
2845: x_return_status := FND_API.G_RET_STS_SUCCESS;
2846:
2847: -- Get the Sampling Event ID
2848: OPEN c_get_se_id (p_composite_spec_disp_id);
2849: FETCH c_get_se_id INTO l_sampling_event_id;

Line 2853: RAISE FND_API.G_EXC_ERROR;

2849: FETCH c_get_se_id INTO l_sampling_event_id;
2850: IF c_get_se_id%NOTFOUND THEN
2851: CLOSE c_get_se_id;
2852: GMD_API_PUB.Log_Message('GMD_SAMPLING_EVENT_NOT_FOUND');
2853: RAISE FND_API.G_EXC_ERROR;
2854: END IF;
2855: CLOSE c_get_se_id;
2856:
2857: IF (l_debug = 'Y') THEN

Line 2867: RAISE FND_API.G_EXC_ERROR;

2863: x_sample_ids => l_sample_ids,
2864: x_return_status => l_return_status);
2865: IF l_return_status <> 'S' THEN
2866: -- Message must have been logged so just raise an exception.
2867: RAISE FND_API.G_EXC_ERROR;
2868: END IF;
2869:
2870: IF (l_debug = 'Y') THEN
2871: gmd_debug.put_line(' There are ' || l_sample_ids.COUNT || ' samples in this SE ID.' );

Line 2877: RAISE FND_API.G_EXC_ERROR;

2873:
2874: -- If the no of samples count is zero then error out
2875: IF (l_sample_ids.COUNT = 0) THEN
2876: GMD_API_PUB.Log_Message('GMD_NO_SAMPLE_TO_COMPOSITE');
2877: RAISE FND_API.G_EXC_ERROR;
2878: END IF;
2879:
2880: -- Now call "make_target_spec_the_base_spec" for each sample ID
2881: FOR i in 1..l_sample_ids.COUNT

Line 2893: RAISE FND_API.G_EXC_ERROR;

2889: p_target_spec_vr_id => p_target_spec_vr_id,
2890: x_return_status => l_return_status);
2891: IF l_return_status <> 'S' THEN
2892: -- Message must have been logged so just raise an exception.
2893: RAISE FND_API.G_EXC_ERROR;
2894: END IF;
2895: IF (l_debug = 'Y') THEN
2896: gmd_debug.put_line(' Target Spec Changed for Sample ID - ' || l_sample_ids(i));
2897: END IF;

Line 2909: WHEN FND_API.G_EXC_ERROR THEN

2905: -- All systems go...
2906:
2907:
2908: EXCEPTION
2909: WHEN FND_API.G_EXC_ERROR THEN
2910:
2911:
2912:
2913: x_return_status := FND_API.G_RET_STS_ERROR ;

Line 2913: x_return_status := FND_API.G_RET_STS_ERROR ;

2909: WHEN FND_API.G_EXC_ERROR THEN
2910:
2911:
2912:
2913: x_return_status := FND_API.G_RET_STS_ERROR ;
2914: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2915: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2916: WHEN OTHERS THEN
2917: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 2914: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2910:
2911:
2912:
2913: x_return_status := FND_API.G_RET_STS_ERROR ;
2914: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2915: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2916: WHEN OTHERS THEN
2917: GMD_API_PUB.Log_Message('GMD_API_ERROR',
2918: 'PACKAGE','USE_TARGET_SPEC_FOR_CMPST_RSLT',

Line 2915: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

2911:
2912:
2913: x_return_status := FND_API.G_RET_STS_ERROR ;
2914: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2915: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2916: WHEN OTHERS THEN
2917: GMD_API_PUB.Log_Message('GMD_API_ERROR',
2918: 'PACKAGE','USE_TARGET_SPEC_FOR_CMPST_RSLT',
2919: 'ERROR', SUBSTR(SQLERRM,1,100));

Line 2920: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

2916: WHEN OTHERS THEN
2917: GMD_API_PUB.Log_Message('GMD_API_ERROR',
2918: 'PACKAGE','USE_TARGET_SPEC_FOR_CMPST_RSLT',
2919: 'ERROR', SUBSTR(SQLERRM,1,100));
2920: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2921:
2922: END use_target_spec_for_cmpst_rslt;
2923:
2924:

Line 3064: x_return_status := FND_API.G_RET_STS_SUCCESS;

3060: gmd_debug.put_line(' Event Spec ID : ' || p_event_spec_disp_id);
3061: END IF;
3062:
3063: -- Initialize API return status to success
3064: x_return_status := FND_API.G_RET_STS_SUCCESS;
3065:
3066: -- begin Bug 2620851 29 Oct 2002
3067: i := 1;
3068:

Line 3338: WHEN FND_API.G_EXC_ERROR THEN

3334: END LOOP;
3335: END IF;
3336:
3337: EXCEPTION
3338: WHEN FND_API.G_EXC_ERROR THEN
3339: x_return_status := FND_API.G_RET_STS_ERROR ;
3340: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3342: WHEN OTHERS THEN

Line 3339: x_return_status := FND_API.G_RET_STS_ERROR ;

3335: END IF;
3336:
3337: EXCEPTION
3338: WHEN FND_API.G_EXC_ERROR THEN
3339: x_return_status := FND_API.G_RET_STS_ERROR ;
3340: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3342: WHEN OTHERS THEN
3343: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 3340: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

3336:
3337: EXCEPTION
3338: WHEN FND_API.G_EXC_ERROR THEN
3339: x_return_status := FND_API.G_RET_STS_ERROR ;
3340: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3342: WHEN OTHERS THEN
3343: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3344: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',

Line 3341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3337: EXCEPTION
3338: WHEN FND_API.G_EXC_ERROR THEN
3339: x_return_status := FND_API.G_RET_STS_ERROR ;
3340: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3342: WHEN OTHERS THEN
3343: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3344: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',
3345: 'ERROR', SUBSTR(SQLERRM,1,100));

Line 3346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3342: WHEN OTHERS THEN
3343: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3344: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',
3345: 'ERROR', SUBSTR(SQLERRM,1,100));
3346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3347:
3348: END get_rslt_and_spec_rslt;
3349:
3350:

Line 3402: x_return_status := FND_API.G_RET_STS_SUCCESS;

3398: gmd_debug.put_line('Entered Procedure - COMPOSITE_EXIST');
3399: END IF;
3400:
3401: -- Initialize API return status to success
3402: x_return_status := FND_API.G_RET_STS_SUCCESS;
3403:
3404: x_composite_exist := 'N';
3405: x_composite_valid := 'N';
3406:

Line 3409: RAISE FND_API.G_EXC_ERROR;

3405: x_composite_valid := 'N';
3406:
3407: IF (p_sampling_event_id IS NULL AND p_event_spec_disp_id IS NULL) THEN
3408: GMD_API_PUB.Log_Message('GMD_INVALID_PARAMETERS');
3409: RAISE FND_API.G_EXC_ERROR;
3410: END IF;
3411:
3412: IF (p_event_spec_disp_id IS NULL) THEN
3413: l_event_spec_disp_id := get_current_event_spec_disp_id(p_sampling_event_id);

Line 3416: RAISE FND_API.G_EXC_ERROR;

3412: IF (p_event_spec_disp_id IS NULL) THEN
3413: l_event_spec_disp_id := get_current_event_spec_disp_id(p_sampling_event_id);
3414: IF (l_event_spec_disp_id IS NULL) THEN
3415: GMD_API_PUB.Log_Message('GMD_EVENT_SPEC_NOT_FOUND');
3416: RAISE FND_API.G_EXC_ERROR;
3417: END IF;
3418: ELSE
3419: l_event_spec_disp_id := p_event_spec_disp_id;
3420: END IF;

Line 3450: RAISE FND_API.G_EXC_ERROR;

3446: FETCH c_composite_valid INTO l_recomposite_ind;
3447: IF c_composite_valid%NOTFOUND THEN
3448: CLOSE c_composite_valid;
3449: GMD_API_PUB.Log_Message('GMD_SAMPLING_EVENT_NOT_FOUND');
3450: RAISE FND_API.G_EXC_ERROR;
3451: END IF;
3452: CLOSE c_composite_valid;
3453:
3454: IF l_recomposite_ind = 'Y' THEN

Line 3473: WHEN FND_API.G_EXC_ERROR THEN

3469: END IF;
3470: RETURN;
3471:
3472: EXCEPTION
3473: WHEN FND_API.G_EXC_ERROR THEN
3474: x_return_status := FND_API.G_RET_STS_ERROR ;
3475: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3477: WHEN OTHERS THEN

Line 3474: x_return_status := FND_API.G_RET_STS_ERROR ;

3470: RETURN;
3471:
3472: EXCEPTION
3473: WHEN FND_API.G_EXC_ERROR THEN
3474: x_return_status := FND_API.G_RET_STS_ERROR ;
3475: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3477: WHEN OTHERS THEN
3478: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 3475: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

3471:
3472: EXCEPTION
3473: WHEN FND_API.G_EXC_ERROR THEN
3474: x_return_status := FND_API.G_RET_STS_ERROR ;
3475: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3477: WHEN OTHERS THEN
3478: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3479: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',

Line 3476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3472: EXCEPTION
3473: WHEN FND_API.G_EXC_ERROR THEN
3474: x_return_status := FND_API.G_RET_STS_ERROR ;
3475: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3477: WHEN OTHERS THEN
3478: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3479: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',
3480: 'ERROR', SUBSTR(SQLERRM,1,100));

Line 3481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3477: WHEN OTHERS THEN
3478: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3479: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',
3480: 'ERROR', SUBSTR(SQLERRM,1,100));
3481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3482:
3483:
3484: END composite_exist;
3485:

Line 3526: x_return_status := FND_API.G_RET_STS_SUCCESS;

3522: l_event_spec_disp_id NUMBER;
3523:
3524: BEGIN
3525: -- Initialize API return status to success
3526: x_return_status := FND_API.G_RET_STS_SUCCESS;
3527:
3528: IF (p_sampling_event_id IS NULL AND p_event_spec_disp_id IS NULL) THEN
3529: GMD_API_PUB.Log_Message('GMD_INVALID_PARAMETERS');
3530: RAISE FND_API.G_EXC_ERROR;

Line 3530: RAISE FND_API.G_EXC_ERROR;

3526: x_return_status := FND_API.G_RET_STS_SUCCESS;
3527:
3528: IF (p_sampling_event_id IS NULL AND p_event_spec_disp_id IS NULL) THEN
3529: GMD_API_PUB.Log_Message('GMD_INVALID_PARAMETERS');
3530: RAISE FND_API.G_EXC_ERROR;
3531: END IF;
3532:
3533: IF (p_event_spec_disp_id IS NULL) THEN
3534: l_event_spec_disp_id := get_current_event_spec_disp_id(p_sampling_event_id);

Line 3537: RAISE FND_API.G_EXC_ERROR;

3533: IF (p_event_spec_disp_id IS NULL) THEN
3534: l_event_spec_disp_id := get_current_event_spec_disp_id(p_sampling_event_id);
3535: IF (l_event_spec_disp_id IS NULL) THEN
3536: GMD_API_PUB.Log_Message('GMD_EVENT_SPEC_NOT_FOUND');
3537: RAISE FND_API.G_EXC_ERROR;
3538: END IF;
3539: ELSE
3540: l_event_spec_disp_id := p_event_spec_disp_id;
3541: END IF;

Line 3558: WHEN FND_API.G_EXC_ERROR THEN

3554:
3555: RETURN;
3556:
3557: EXCEPTION
3558: WHEN FND_API.G_EXC_ERROR THEN
3559: x_return_status := FND_API.G_RET_STS_ERROR ;
3560: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3562: WHEN OTHERS THEN

Line 3559: x_return_status := FND_API.G_RET_STS_ERROR ;

3555: RETURN;
3556:
3557: EXCEPTION
3558: WHEN FND_API.G_EXC_ERROR THEN
3559: x_return_status := FND_API.G_RET_STS_ERROR ;
3560: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3562: WHEN OTHERS THEN
3563: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 3560: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

3556:
3557: EXCEPTION
3558: WHEN FND_API.G_EXC_ERROR THEN
3559: x_return_status := FND_API.G_RET_STS_ERROR ;
3560: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3562: WHEN OTHERS THEN
3563: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3564: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',

Line 3561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3557: EXCEPTION
3558: WHEN FND_API.G_EXC_ERROR THEN
3559: x_return_status := FND_API.G_RET_STS_ERROR ;
3560: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3562: WHEN OTHERS THEN
3563: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3564: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',
3565: 'ERROR', SUBSTR(SQLERRM,1,100));

Line 3566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3562: WHEN OTHERS THEN
3563: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3564: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',
3565: 'ERROR', SUBSTR(SQLERRM,1,100));
3566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3567:
3568:
3569: END se_recomposite_required;
3570:

Line 3612: x_return_status := FND_API.G_RET_STS_SUCCESS;

3608: dummy PLS_INTEGER;
3609:
3610: BEGIN
3611: -- Initialize API return status to success
3612: x_return_status := FND_API.G_RET_STS_SUCCESS;
3613:
3614: IF (p_result_id IS NULL OR p_event_spec_disp_id IS NULL) THEN
3615: GMD_API_PUB.Log_Message('GMD_INVALID_PARAMETERS');
3616: RAISE FND_API.G_EXC_ERROR;

Line 3616: RAISE FND_API.G_EXC_ERROR;

3612: x_return_status := FND_API.G_RET_STS_SUCCESS;
3613:
3614: IF (p_result_id IS NULL OR p_event_spec_disp_id IS NULL) THEN
3615: GMD_API_PUB.Log_Message('GMD_INVALID_PARAMETERS');
3616: RAISE FND_API.G_EXC_ERROR;
3617: END IF;
3618:
3619: -- See if we have the composite for the result
3620: OPEN c_composite(p_event_spec_disp_id, p_result_id);

Line 3637: WHEN FND_API.G_EXC_ERROR THEN

3633:
3634: RETURN;
3635:
3636: EXCEPTION
3637: WHEN FND_API.G_EXC_ERROR THEN
3638: x_return_status := FND_API.G_RET_STS_ERROR ;
3639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3641: WHEN OTHERS THEN

Line 3638: x_return_status := FND_API.G_RET_STS_ERROR ;

3634: RETURN;
3635:
3636: EXCEPTION
3637: WHEN FND_API.G_EXC_ERROR THEN
3638: x_return_status := FND_API.G_RET_STS_ERROR ;
3639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3641: WHEN OTHERS THEN
3642: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 3639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

3635:
3636: EXCEPTION
3637: WHEN FND_API.G_EXC_ERROR THEN
3638: x_return_status := FND_API.G_RET_STS_ERROR ;
3639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3641: WHEN OTHERS THEN
3642: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3643: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',

Line 3640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3636: EXCEPTION
3637: WHEN FND_API.G_EXC_ERROR THEN
3638: x_return_status := FND_API.G_RET_STS_ERROR ;
3639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3641: WHEN OTHERS THEN
3642: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3643: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',
3644: 'ERROR', SUBSTR(SQLERRM,1,100));

Line 3645: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3641: WHEN OTHERS THEN
3642: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3643: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',
3644: 'ERROR', SUBSTR(SQLERRM,1,100));
3645: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3646:
3647:
3648: END result_recomposite_required;
3649:

Line 3706: x_return_status := FND_API.G_RET_STS_SUCCESS;

3702: gmd_debug.put_line('Entered Procedure - GET_SAMPLE_IDS_FOR_SE');
3703: END IF;
3704:
3705: -- Initialize API return status to success
3706: x_return_status := FND_API.G_RET_STS_SUCCESS;
3707:
3708: -- Now get all the samples that are part of Sampling Event
3709: i := 1;
3710: FOR sample_rec IN c_sample(p_sampling_event_id)

Line 3722: WHEN FND_API.G_EXC_ERROR THEN

3718: END IF;
3719: RETURN;
3720:
3721: EXCEPTION
3722: WHEN FND_API.G_EXC_ERROR THEN
3723: x_return_status := FND_API.G_RET_STS_ERROR ;
3724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3726: WHEN OTHERS THEN

Line 3723: x_return_status := FND_API.G_RET_STS_ERROR ;

3719: RETURN;
3720:
3721: EXCEPTION
3722: WHEN FND_API.G_EXC_ERROR THEN
3723: x_return_status := FND_API.G_RET_STS_ERROR ;
3724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3726: WHEN OTHERS THEN
3727: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 3724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

3720:
3721: EXCEPTION
3722: WHEN FND_API.G_EXC_ERROR THEN
3723: x_return_status := FND_API.G_RET_STS_ERROR ;
3724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3726: WHEN OTHERS THEN
3727: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3728: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',

Line 3725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3721: EXCEPTION
3722: WHEN FND_API.G_EXC_ERROR THEN
3723: x_return_status := FND_API.G_RET_STS_ERROR ;
3724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3726: WHEN OTHERS THEN
3727: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3728: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',
3729: 'ERROR', SUBSTR(SQLERRM,1,100));

Line 3730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3726: WHEN OTHERS THEN
3727: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3728: 'PACKAGE','GET_SAMPLE_IDS_FOR_SE',
3729: 'ERROR', SUBSTR(SQLERRM,1,100));
3730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3731:
3732: END get_sample_ids_for_se;
3733:
3734:

Line 3793: x_return_status := FND_API.G_RET_STS_SUCCESS;

3789: gmd_debug.put_line('Entering Procedure - POPULATE_RESULT_DATA_POINTS');
3790: END IF;
3791:
3792: -- Initialize API return status to success
3793: x_return_status := FND_API.G_RET_STS_SUCCESS;
3794: l_start_date := GMA_CORE_PKG.get_date_constant_d('SY$MIN_DATE');
3795: -- Bug #2626977 (JKB) Removed reference to date profile above.
3796:
3797: EXECUTE IMMEDIATE 'delete from gmd_result_data_points_gt';

Line 3846: WHEN FND_API.G_EXC_ERROR THEN

3842: END IF;
3843: -- All systems GO...
3844:
3845: EXCEPTION
3846: WHEN FND_API.G_EXC_ERROR THEN
3847: x_return_status := FND_API.G_RET_STS_ERROR ;
3848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3849: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3850: WHEN OTHERS THEN

Line 3847: x_return_status := FND_API.G_RET_STS_ERROR ;

3843: -- All systems GO...
3844:
3845: EXCEPTION
3846: WHEN FND_API.G_EXC_ERROR THEN
3847: x_return_status := FND_API.G_RET_STS_ERROR ;
3848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3849: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3850: WHEN OTHERS THEN
3851: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 3848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

3844:
3845: EXCEPTION
3846: WHEN FND_API.G_EXC_ERROR THEN
3847: x_return_status := FND_API.G_RET_STS_ERROR ;
3848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3849: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3850: WHEN OTHERS THEN
3851: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3852: 'PACKAGE','POPULATE_RESULT_DATA_POINTS',

Line 3849: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3845: EXCEPTION
3846: WHEN FND_API.G_EXC_ERROR THEN
3847: x_return_status := FND_API.G_RET_STS_ERROR ;
3848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3849: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3850: WHEN OTHERS THEN
3851: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3852: 'PACKAGE','POPULATE_RESULT_DATA_POINTS',
3853: 'ERROR', SUBSTR(SQLERRM,1,100));

Line 3854: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3850: WHEN OTHERS THEN
3851: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3852: 'PACKAGE','POPULATE_RESULT_DATA_POINTS',
3853: 'ERROR', SUBSTR(SQLERRM,1,100));
3854: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3855:
3856: END populate_result_data_points;
3857:
3858:

Line 3992: x_return_status := FND_API.G_RET_STS_SUCCESS;

3988: gmd_debug.put_line('Entered Procedure - CREATE_COMPOSITE_ROWS');
3989: END IF;
3990:
3991: -- Initialize API return status to success
3992: x_return_status := FND_API.G_RET_STS_SUCCESS;
3993:
3994: -- Get the user ID
3995: l_user_id := FND_GLOBAL.user_id;
3996: l_date := SYSDATE;

Line 4099: RAISE FND_API.G_EXC_ERROR;

4095: , x_mean_num => l_mean
4096: , x_return_status => l_return_status);
4097:
4098: IF (l_return_status <> 'S') THEN
4099: RAISE FND_API.G_EXC_ERROR;
4100: END IF;
4101: IF (l_test_type in ('N', 'L', 'E')) THEN
4102: l_mean := round(l_mean, l_display_precision);
4103: END IF;

Line 4115: RAISE FND_API.G_EXC_ERROR;

4111: , x_median_char => l_median_char
4112: , x_return_status => l_return_status);
4113:
4114: IF (l_return_status <> 'S') THEN
4115: RAISE FND_API.G_EXC_ERROR;
4116: END IF;
4117: IF (l_debug = 'Y') THEN
4118: gmd_debug.put_line(' l_median_num-'|| l_median_num ||' l_median_char-'|| l_median_char);
4119: END IF;

Line 4128: RAISE FND_API.G_EXC_ERROR;

4124: , x_mode_char => l_mode_char
4125: , x_return_status => l_return_status);
4126:
4127: IF (l_return_status <> 'S') THEN
4128: RAISE FND_API.G_EXC_ERROR;
4129: END IF;
4130: IF (l_test_type in ('N', 'L', 'E')) THEN
4131: l_mode_num := round(l_mode_num, l_display_precision);
4132: END IF;

Line 4144: RAISE FND_API.G_EXC_ERROR;

4140: , x_high_char => l_high_char
4141: , x_return_status => l_return_status);
4142:
4143: IF (l_return_status <> 'S') THEN
4144: RAISE FND_API.G_EXC_ERROR;
4145: END IF;
4146: IF (l_debug = 'Y') THEN
4147: gmd_debug.put_line(' l_high_num-'|| l_high_num ||' l_high_char-'|| l_high_char);
4148: END IF;

Line 4157: RAISE FND_API.G_EXC_ERROR;

4153: , x_low_char => l_low_char
4154: , x_return_status => l_return_status);
4155:
4156: IF (l_return_status <> 'S') THEN
4157: RAISE FND_API.G_EXC_ERROR;
4158: END IF;
4159: IF (l_debug = 'Y') THEN
4160: gmd_debug.put_line(' l_low_num - '|| l_low_num ||' l_low_char-'|| l_low_char);
4161: END IF;

Line 4169: RAISE FND_API.G_EXC_ERROR;

4165: , x_stddev => l_standard_deviation
4166: , x_return_status => l_return_status);
4167:
4168: IF (l_return_status <> 'S') THEN
4169: RAISE FND_API.G_EXC_ERROR;
4170: END IF;
4171:
4172: IF (l_test_type in ('N', 'L', 'E')) THEN
4173: l_standard_deviation := round(l_standard_deviation, l_display_precision);

Line 4282: WHEN FND_API.G_EXC_ERROR OR

4278:
4279: RETURN;
4280:
4281: EXCEPTION
4282: WHEN FND_API.G_EXC_ERROR OR
4283: e_comp_spec_disp_insert_error OR
4284: e_comp_result_insert_error OR
4285: e_comp_rslt_assoc_insert_error
4286: THEN

Line 4287: x_return_status := FND_API.G_RET_STS_ERROR ;

4283: e_comp_spec_disp_insert_error OR
4284: e_comp_result_insert_error OR
4285: e_comp_rslt_assoc_insert_error
4286: THEN
4287: x_return_status := FND_API.G_RET_STS_ERROR ;
4288: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4290: WHEN OTHERS THEN
4291: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 4288: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

4284: e_comp_result_insert_error OR
4285: e_comp_rslt_assoc_insert_error
4286: THEN
4287: x_return_status := FND_API.G_RET_STS_ERROR ;
4288: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4290: WHEN OTHERS THEN
4291: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4292: 'PACKAGE','CREATE_COMPOSITE_ROWS',

Line 4289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4285: e_comp_rslt_assoc_insert_error
4286: THEN
4287: x_return_status := FND_API.G_RET_STS_ERROR ;
4288: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4290: WHEN OTHERS THEN
4291: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4292: 'PACKAGE','CREATE_COMPOSITE_ROWS',
4293: 'ERROR', SUBSTR(SQLERRM,1,100));

Line 4294: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4290: WHEN OTHERS THEN
4291: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4292: 'PACKAGE','CREATE_COMPOSITE_ROWS',
4293: 'ERROR', SUBSTR(SQLERRM,1,100));
4294: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4295:
4296: END create_composite_rows;
4297:
4298:

Line 4347: x_return_status := FND_API.G_RET_STS_SUCCESS;

4343: gmd_debug.put_line('Entering Procedure - QC_MEAN');
4344: END IF;
4345:
4346: -- Initialize API return status to success
4347: x_return_status := FND_API.G_RET_STS_SUCCESS;
4348:
4349: -- Get the Test Type
4350: OPEN c_test_type(p_test_id);
4351: FETCH c_test_type INTO l_test_type;

Line 4366: WHEN FND_API.G_EXC_ERROR THEN

4362: END IF;
4363: RETURN;
4364:
4365: EXCEPTION
4366: WHEN FND_API.G_EXC_ERROR THEN
4367: x_return_status := FND_API.G_RET_STS_ERROR ;
4368: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4370: WHEN OTHERS THEN

Line 4367: x_return_status := FND_API.G_RET_STS_ERROR ;

4363: RETURN;
4364:
4365: EXCEPTION
4366: WHEN FND_API.G_EXC_ERROR THEN
4367: x_return_status := FND_API.G_RET_STS_ERROR ;
4368: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4370: WHEN OTHERS THEN
4371: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 4368: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

4364:
4365: EXCEPTION
4366: WHEN FND_API.G_EXC_ERROR THEN
4367: x_return_status := FND_API.G_RET_STS_ERROR ;
4368: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4370: WHEN OTHERS THEN
4371: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4372: 'PACKAGE','QC_MEAN',

Line 4369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4365: EXCEPTION
4366: WHEN FND_API.G_EXC_ERROR THEN
4367: x_return_status := FND_API.G_RET_STS_ERROR ;
4368: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4370: WHEN OTHERS THEN
4371: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4372: 'PACKAGE','QC_MEAN',
4373: 'ERROR', SUBSTR(SQLERRM,1,100));

Line 4374: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4370: WHEN OTHERS THEN
4371: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4372: 'PACKAGE','QC_MEAN',
4373: 'ERROR', SUBSTR(SQLERRM,1,100));
4374: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4375:
4376: END qc_mean;
4377:
4378:

Line 4491: x_return_status := FND_API.G_RET_STS_SUCCESS;

4487: gmd_debug.put_line('Entering Procedure - QC_MEDIAN');
4488: END IF;
4489:
4490: -- Initialize API return status to success
4491: x_return_status := FND_API.G_RET_STS_SUCCESS;
4492:
4493: -- Get the Test Type
4494: OPEN c_test_type(p_test_id);
4495: FETCH c_test_type INTO l_test_type;

Line 4547: WHEN FND_API.G_EXC_ERROR THEN

4543: WHEN e_even_number_data_set THEN
4544: x_median_num := NULL;
4545: x_median_char := NULL;
4546: RETURN;
4547: WHEN FND_API.G_EXC_ERROR THEN
4548: x_return_status := FND_API.G_RET_STS_ERROR ;
4549: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4550: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4551: WHEN OTHERS THEN

Line 4548: x_return_status := FND_API.G_RET_STS_ERROR ;

4544: x_median_num := NULL;
4545: x_median_char := NULL;
4546: RETURN;
4547: WHEN FND_API.G_EXC_ERROR THEN
4548: x_return_status := FND_API.G_RET_STS_ERROR ;
4549: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4550: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4551: WHEN OTHERS THEN
4552: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 4549: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

4545: x_median_char := NULL;
4546: RETURN;
4547: WHEN FND_API.G_EXC_ERROR THEN
4548: x_return_status := FND_API.G_RET_STS_ERROR ;
4549: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4550: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4551: WHEN OTHERS THEN
4552: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4553: 'PACKAGE','qc_median',

Line 4550: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4546: RETURN;
4547: WHEN FND_API.G_EXC_ERROR THEN
4548: x_return_status := FND_API.G_RET_STS_ERROR ;
4549: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4550: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4551: WHEN OTHERS THEN
4552: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4553: 'PACKAGE','qc_median',
4554: 'ERROR', SUBSTR(SQLERRM,1,100));

Line 4555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4551: WHEN OTHERS THEN
4552: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4553: 'PACKAGE','qc_median',
4554: 'ERROR', SUBSTR(SQLERRM,1,100));
4555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4556:
4557: END qc_median;
4558:
4559:

Line 4644: x_return_status := FND_API.G_RET_STS_SUCCESS;

4640: gmd_debug.put_line('Entering Procedure - QC_MODE');
4641: END IF;
4642:
4643: -- Initialize API return status to success
4644: x_return_status := FND_API.G_RET_STS_SUCCESS;
4645:
4646: OPEN c_test (p_test_id);
4647: FETCH c_test INTO l_test_type;
4648: CLOSE c_test;

Line 4702: WHEN FND_API.G_EXC_ERROR THEN

4698: -- so just return
4699: x_mode_num := NULL;
4700: x_mode_char := NULL;
4701: RETURN;
4702: WHEN FND_API.G_EXC_ERROR THEN
4703: x_return_status := FND_API.G_RET_STS_ERROR ;
4704: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4705: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4706: WHEN OTHERS THEN

Line 4703: x_return_status := FND_API.G_RET_STS_ERROR ;

4699: x_mode_num := NULL;
4700: x_mode_char := NULL;
4701: RETURN;
4702: WHEN FND_API.G_EXC_ERROR THEN
4703: x_return_status := FND_API.G_RET_STS_ERROR ;
4704: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4705: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4706: WHEN OTHERS THEN
4707: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 4704: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

4700: x_mode_char := NULL;
4701: RETURN;
4702: WHEN FND_API.G_EXC_ERROR THEN
4703: x_return_status := FND_API.G_RET_STS_ERROR ;
4704: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4705: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4706: WHEN OTHERS THEN
4707: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4708: 'PACKAGE','QC_MODE',

Line 4705: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4701: RETURN;
4702: WHEN FND_API.G_EXC_ERROR THEN
4703: x_return_status := FND_API.G_RET_STS_ERROR ;
4704: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4705: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4706: WHEN OTHERS THEN
4707: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4708: 'PACKAGE','QC_MODE',
4709: 'ERROR', SUBSTR(SQLERRM,1,100));

Line 4710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4706: WHEN OTHERS THEN
4707: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4708: 'PACKAGE','QC_MODE',
4709: 'ERROR', SUBSTR(SQLERRM,1,100));
4710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4711:
4712: END qc_mode;
4713:
4714:

Line 4767: x_return_status := FND_API.G_RET_STS_SUCCESS;

4763: gmd_debug.put_line('Entering Procedure - QC_HIGH');
4764: END IF;
4765:
4766: -- Initialize API return status to success
4767: x_return_status := FND_API.G_RET_STS_SUCCESS;
4768:
4769: OPEN c_test (p_test_id);
4770: FETCH c_test INTO l_test_type;
4771: CLOSE c_test;

Line 4796: WHEN FND_API.G_EXC_ERROR THEN

4792:
4793: RETURN;
4794:
4795: EXCEPTION
4796: WHEN FND_API.G_EXC_ERROR THEN
4797: x_return_status := FND_API.G_RET_STS_ERROR ;
4798: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4800: WHEN OTHERS THEN

Line 4797: x_return_status := FND_API.G_RET_STS_ERROR ;

4793: RETURN;
4794:
4795: EXCEPTION
4796: WHEN FND_API.G_EXC_ERROR THEN
4797: x_return_status := FND_API.G_RET_STS_ERROR ;
4798: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4800: WHEN OTHERS THEN
4801: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 4798: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

4794:
4795: EXCEPTION
4796: WHEN FND_API.G_EXC_ERROR THEN
4797: x_return_status := FND_API.G_RET_STS_ERROR ;
4798: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4800: WHEN OTHERS THEN
4801: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4802: 'PACKAGE','QC_HIGH',

Line 4799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4795: EXCEPTION
4796: WHEN FND_API.G_EXC_ERROR THEN
4797: x_return_status := FND_API.G_RET_STS_ERROR ;
4798: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4800: WHEN OTHERS THEN
4801: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4802: 'PACKAGE','QC_HIGH',
4803: 'ERROR', SUBSTR(SQLERRM,1,100));

Line 4804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4800: WHEN OTHERS THEN
4801: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4802: 'PACKAGE','QC_HIGH',
4803: 'ERROR', SUBSTR(SQLERRM,1,100));
4804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4805:
4806: END qc_high;
4807:
4808:

Line 4862: x_return_status := FND_API.G_RET_STS_SUCCESS;

4858: gmd_debug.put_line('Entering Procedure - QC_LOW');
4859: END IF;
4860:
4861: -- Initialize API return status to success
4862: x_return_status := FND_API.G_RET_STS_SUCCESS;
4863:
4864: OPEN c_test (p_test_id);
4865: FETCH c_test INTO l_test_type;
4866: CLOSE c_test;

Line 4891: WHEN FND_API.G_EXC_ERROR THEN

4887:
4888: RETURN;
4889:
4890: EXCEPTION
4891: WHEN FND_API.G_EXC_ERROR THEN
4892: x_return_status := FND_API.G_RET_STS_ERROR ;
4893: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4894: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4895: WHEN OTHERS THEN

Line 4892: x_return_status := FND_API.G_RET_STS_ERROR ;

4888: RETURN;
4889:
4890: EXCEPTION
4891: WHEN FND_API.G_EXC_ERROR THEN
4892: x_return_status := FND_API.G_RET_STS_ERROR ;
4893: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4894: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4895: WHEN OTHERS THEN
4896: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 4893: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

4889:
4890: EXCEPTION
4891: WHEN FND_API.G_EXC_ERROR THEN
4892: x_return_status := FND_API.G_RET_STS_ERROR ;
4893: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4894: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4895: WHEN OTHERS THEN
4896: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4897: 'PACKAGE','QC_LOW',

Line 4894: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4890: EXCEPTION
4891: WHEN FND_API.G_EXC_ERROR THEN
4892: x_return_status := FND_API.G_RET_STS_ERROR ;
4893: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4894: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4895: WHEN OTHERS THEN
4896: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4897: 'PACKAGE','QC_LOW',
4898: 'ERROR', SUBSTR(SQLERRM,1,100));

Line 4899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4895: WHEN OTHERS THEN
4896: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4897: 'PACKAGE','QC_LOW',
4898: 'ERROR', SUBSTR(SQLERRM,1,100));
4899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4900:
4901: END qc_low;
4902:
4903:

Line 4952: x_return_status := FND_API.G_RET_STS_SUCCESS;

4948: gmd_debug.put_line('Entering Procedure - QC_STANDARD_DEVIATION');
4949: END IF;
4950:
4951: -- Initialize API return status to success
4952: x_return_status := FND_API.G_RET_STS_SUCCESS;
4953:
4954: -- Get the Test Type
4955: OPEN c_test_type(p_test_id);
4956: FETCH c_test_type INTO l_test_type;

Line 4972: WHEN FND_API.G_EXC_ERROR THEN

4968:
4969: RETURN;
4970:
4971: EXCEPTION
4972: WHEN FND_API.G_EXC_ERROR THEN
4973: x_return_status := FND_API.G_RET_STS_ERROR ;
4974: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4975: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4976: WHEN OTHERS THEN

Line 4973: x_return_status := FND_API.G_RET_STS_ERROR ;

4969: RETURN;
4970:
4971: EXCEPTION
4972: WHEN FND_API.G_EXC_ERROR THEN
4973: x_return_status := FND_API.G_RET_STS_ERROR ;
4974: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4975: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4976: WHEN OTHERS THEN
4977: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 4974: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

4970:
4971: EXCEPTION
4972: WHEN FND_API.G_EXC_ERROR THEN
4973: x_return_status := FND_API.G_RET_STS_ERROR ;
4974: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4975: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4976: WHEN OTHERS THEN
4977: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4978: 'PACKAGE','qc_standard_deviation',

Line 4975: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4971: EXCEPTION
4972: WHEN FND_API.G_EXC_ERROR THEN
4973: x_return_status := FND_API.G_RET_STS_ERROR ;
4974: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4975: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4976: WHEN OTHERS THEN
4977: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4978: 'PACKAGE','qc_standard_deviation',
4979: 'ERROR', SUBSTR(SQLERRM,1,100));

Line 4980: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4976: WHEN OTHERS THEN
4977: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4978: 'PACKAGE','qc_standard_deviation',
4979: 'ERROR', SUBSTR(SQLERRM,1,100));
4980: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4981:
4982: END qc_standard_deviation;
4983:
4984: --+========================================================================+

Line 5071: x_return_status := FND_API.G_RET_STS_SUCCESS;

5067:
5068:
5069: BEGIN
5070: -- Initialize API return status to success
5071: x_return_status := FND_API.G_RET_STS_SUCCESS;
5072:
5073: --Since we have a specification
5074: --retrieve rows in GMD_COM_RESULTS for all the tests
5075: l_comres_tab.DELETE;

Line 5229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

5225:
5226:
5227: EXCEPTION
5228: WHEN OTHERS THEN
5229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5230:
5231: END get_composite_rslt;
5232:
5233:

Line 5268: x_return_status := FND_API.G_RET_STS_SUCCESS;

5264: ;
5265:
5266: BEGIN
5267: -- Initialize API return status to success
5268: x_return_status := FND_API.G_RET_STS_SUCCESS;
5269:
5270: IF (l_debug = 'Y') THEN
5271: gmd_debug.put_line('Entering procedure: CHANGE_LOT_STATUS');
5272: END IF;

Line 5280: RAISE FND_API.G_EXC_ERROR;

5276: FETCH Cur_quality_config INTO l_reason_id ;
5277: IF Cur_quality_config%NOTFOUND THEN -- #1
5278: CLOSE Cur_quality_config;
5279: GMD_API_PUB.Log_Message('GMD_QM_INV_REASON_CODE');
5280: RAISE FND_API.G_EXC_ERROR;
5281: END IF; -- #1
5282: CLOSE Cur_quality_config;
5283:
5284: IF (l_debug = 'Y') THEN

Line 5308: RAISE FND_API.G_EXC_ERROR;

5304: , x_message_data => l_message_data );
5305:
5306: IF x_return_status <> 'S' THEN -- #4
5307: GMD_API_PUB.Log_Message(l_message_data);
5308: RAISE FND_API.G_EXC_ERROR;
5309: END IF; -- #4
5310: END IF; -- #3
5311:
5312: IF (l_debug = 'Y') THEN

Line 5318: WHEN FND_API.G_EXC_ERROR THEN

5314: END IF;
5315:
5316:
5317: EXCEPTION
5318: WHEN FND_API.G_EXC_ERROR THEN
5319: x_return_status := FND_API.G_RET_STS_ERROR ;
5320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5321: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5322: WHEN OTHERS THEN

Line 5319: x_return_status := FND_API.G_RET_STS_ERROR ;

5315:
5316:
5317: EXCEPTION
5318: WHEN FND_API.G_EXC_ERROR THEN
5319: x_return_status := FND_API.G_RET_STS_ERROR ;
5320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5321: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5322: WHEN OTHERS THEN
5323: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 5320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

5316:
5317: EXCEPTION
5318: WHEN FND_API.G_EXC_ERROR THEN
5319: x_return_status := FND_API.G_RET_STS_ERROR ;
5320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5321: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5322: WHEN OTHERS THEN
5323: GMD_API_PUB.Log_Message('GMD_API_ERROR',
5324: 'PACKAGE','CHANGE_LOT_STATUS','ERROR', SUBSTR(SQLERRM,1,100));

Line 5321: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

5317: EXCEPTION
5318: WHEN FND_API.G_EXC_ERROR THEN
5319: x_return_status := FND_API.G_RET_STS_ERROR ;
5320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5321: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5322: WHEN OTHERS THEN
5323: GMD_API_PUB.Log_Message('GMD_API_ERROR',
5324: 'PACKAGE','CHANGE_LOT_STATUS','ERROR', SUBSTR(SQLERRM,1,100));
5325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 5325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

5321: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5322: WHEN OTHERS THEN
5323: GMD_API_PUB.Log_Message('GMD_API_ERROR',
5324: 'PACKAGE','CHANGE_LOT_STATUS','ERROR', SUBSTR(SQLERRM,1,100));
5325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5326: END change_lot_status;
5327:
5328:
5329:

Line 5409: x_return_status := FND_API.G_RET_STS_SUCCESS;

5405:
5406: BEGIN
5407:
5408: -- Initialize API return status to success
5409: x_return_status := FND_API.G_RET_STS_SUCCESS;
5410:
5411: IF (l_debug = 'Y') THEN
5412: gmd_debug.put_line('Entering procedure CHECK_EXPERIMENTAL_ERROR');
5413: END IF;

Line 5480: WHEN FND_API.G_EXC_ERROR THEN

5476: ' Action Code ' || p_result_rec.result_action_code);
5477: END IF;
5478:
5479: EXCEPTION
5480: WHEN FND_API.G_EXC_ERROR THEN
5481: x_return_status := FND_API.G_RET_STS_ERROR ;
5482: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5483: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5484: WHEN OTHERS THEN

Line 5481: x_return_status := FND_API.G_RET_STS_ERROR ;

5477: END IF;
5478:
5479: EXCEPTION
5480: WHEN FND_API.G_EXC_ERROR THEN
5481: x_return_status := FND_API.G_RET_STS_ERROR ;
5482: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5483: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5484: WHEN OTHERS THEN
5485: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 5482: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

5478:
5479: EXCEPTION
5480: WHEN FND_API.G_EXC_ERROR THEN
5481: x_return_status := FND_API.G_RET_STS_ERROR ;
5482: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5483: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5484: WHEN OTHERS THEN
5485: GMD_API_PUB.Log_Message('GMD_API_ERROR',
5486: 'PACKAGE','CHECK_EXPERIMENTAL_ERROR','ERROR', SUBSTR(SQLERRM,1,100));

Line 5483: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

5479: EXCEPTION
5480: WHEN FND_API.G_EXC_ERROR THEN
5481: x_return_status := FND_API.G_RET_STS_ERROR ;
5482: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5483: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5484: WHEN OTHERS THEN
5485: GMD_API_PUB.Log_Message('GMD_API_ERROR',
5486: 'PACKAGE','CHECK_EXPERIMENTAL_ERROR','ERROR', SUBSTR(SQLERRM,1,100));
5487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 5487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

5483: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5484: WHEN OTHERS THEN
5485: GMD_API_PUB.Log_Message('GMD_API_ERROR',
5486: 'PACKAGE','CHECK_EXPERIMENTAL_ERROR','ERROR', SUBSTR(SQLERRM,1,100));
5487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5488: END check_experimental_error;
5489:
5490:
5491: --Start of comments

Line 5621: x_return_status := FND_API.G_RET_STS_SUCCESS;

5617:
5618: BEGIN
5619:
5620: -- Initialize API return status to success
5621: x_return_status := FND_API.G_RET_STS_SUCCESS;
5622:
5623: IF (l_debug = 'Y') THEN
5624: gmd_debug.put_line('Entering procedure VALIDATE_RESULT');
5625: END IF;

Line 5656: RAISE FND_API.G_EXC_ERROR;

5652: --#. Apply decimal precision.
5653: --#. =========================================================
5654: IF NOT (is_value_numeric (p_result_rec.result)) THEN
5655: GMD_API_PUB.Log_Message('GMD', 'QC_NOTNUMERIC');
5656: RAISE FND_API.G_EXC_ERROR;
5657: END IF;
5658:
5659: L_num_result := ROUND(to_number(p_result_rec.result) ,
5660: p_result_rec.display_precision);

Line 5686: RAISE FND_API.G_EXC_ERROR;

5682: --IF p_result_rec.test_type = 'E' THEN --Bug#6774613 QZENG
5683: -- if expression give warning, not error
5684: x_return_status := 'E'; -- expected error
5685: --ELSE
5686: RAISE FND_API.G_EXC_ERROR;
5687: --END IF;
5688: END IF; -- end if within test min/max
5689:
5690: IF (l_debug = 'Y') THEN

Line 5745: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

5741:
5742: GMD_RESULTS_GRP.check_experimental_error ( p_result_rec
5743: , x_return_status );
5744: IF (x_return_status <> 'S') THEN
5745: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5746: END IF;
5747: END IF; -- only send numeric types for exp error checking
5748:
5749:

Line 5791: RAISE FND_API.G_EXC_ERROR;

5787: IF (NOT isvalid_resource(p_result_rec.lab_organization_id,
5788: p_result_rec.planned_resource,
5789: p_result_rec.planned_resource_instance)) THEN
5790: GMD_API_PUB.Log_Message('GMD_INVALID_PARAMETERS');
5791: RAISE FND_API.G_EXC_ERROR;
5792: END IF;
5793:
5794: IF (NOT isvalid_resource(p_result_rec.lab_organization_id,
5795: p_result_rec.actual_resource,

Line 5798: RAISE FND_API.G_EXC_ERROR;

5794: IF (NOT isvalid_resource(p_result_rec.lab_organization_id,
5795: p_result_rec.actual_resource,
5796: p_result_rec.actual_resource_instance)) THEN
5797: GMD_API_PUB.Log_Message('GMD_INVALID_PARAMETERS');
5798: RAISE FND_API.G_EXC_ERROR;
5799: END IF;
5800:
5801: IF (l_debug = 'Y') THEN
5802: gmd_debug.put_line('End of validate_result. In-Spec ' || p_result_rec.in_spec

Line 5809: WHEN FND_API.G_EXC_ERROR THEN

5805: ||' Out of Spec ' || p_result_rec.out_of_spec);
5806: END IF;
5807:
5808: EXCEPTION
5809: WHEN FND_API.G_EXC_ERROR THEN
5810: x_return_status := FND_API.G_RET_STS_ERROR ;
5811: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5812: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5813: WHEN OTHERS THEN

Line 5810: x_return_status := FND_API.G_RET_STS_ERROR ;

5806: END IF;
5807:
5808: EXCEPTION
5809: WHEN FND_API.G_EXC_ERROR THEN
5810: x_return_status := FND_API.G_RET_STS_ERROR ;
5811: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5812: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5813: WHEN OTHERS THEN
5814: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 5811: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

5807:
5808: EXCEPTION
5809: WHEN FND_API.G_EXC_ERROR THEN
5810: x_return_status := FND_API.G_RET_STS_ERROR ;
5811: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5812: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5813: WHEN OTHERS THEN
5814: GMD_API_PUB.Log_Message('GMD_API_ERROR',
5815: 'PACKAGE','VALIDATE_RESULT','ERROR', SUBSTR(SQLERRM,1,100));

Line 5812: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

5808: EXCEPTION
5809: WHEN FND_API.G_EXC_ERROR THEN
5810: x_return_status := FND_API.G_RET_STS_ERROR ;
5811: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5812: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5813: WHEN OTHERS THEN
5814: GMD_API_PUB.Log_Message('GMD_API_ERROR',
5815: 'PACKAGE','VALIDATE_RESULT','ERROR', SUBSTR(SQLERRM,1,100));
5816: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 5816: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

5812: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5813: WHEN OTHERS THEN
5814: GMD_API_PUB.Log_Message('GMD_API_ERROR',
5815: 'PACKAGE','VALIDATE_RESULT','ERROR', SUBSTR(SQLERRM,1,100));
5816: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5817: END validate_result;
5818:
5819:
5820:

Line 5847: x_return_status := FND_API.G_RET_STS_SUCCESS;

5843: IS
5844:
5845: BEGIN
5846: -- Initialize API return status to success
5847: x_return_status := FND_API.G_RET_STS_SUCCESS;
5848:
5849: IF (l_debug = 'Y') THEN
5850: gmd_debug.put_line('Entering procedure VALIDATE_EVALUATION_IND');
5851: gmd_debug.put_line (' Evaluation Ind = ' || p_evaluation_ind);

Line 5863: RAISE FND_API.G_EXC_ERROR;

5859: p_evaluation_ind IS NOT NULL AND
5860: p_evaluation_ind NOT IN ('4C', '5O', '1Z'))
5861: THEN
5862: GMD_API_PUB.Log_message ('GMD', 'GMD_QM_EVAL_BLANK_RESULT');
5863: RAISE FND_API.G_EXC_ERROR;
5864: END IF;
5865:
5866: IF nvl(p_in_spec_ind, 'N') = 'Y' THEN
5867: -- Result is IN-SPEC

Line 5870: RAISE FND_API.G_EXC_ERROR;

5866: IF nvl(p_in_spec_ind, 'N') = 'Y' THEN
5867: -- Result is IN-SPEC
5868: IF (p_evaluation_ind = '3E') THEN
5869: GMD_API_PUB.Log_Message('GMD', 'GMD_QM_EVAL_NO_EXP_ERROR');
5870: RAISE FND_API.G_EXC_ERROR;
5871: END IF;
5872: ELSE
5873: -- else not in spec
5874: -- Bug 3763419 - added GUARANTEED BY MANUFACTURER

Line 5877: RAISE FND_API.G_EXC_ERROR;

5873: -- else not in spec
5874: -- Bug 3763419 - added GUARANTEED BY MANUFACTURER
5875: IF (p_evaluation_ind NOT IN ('1V', '2R', '4C', '5O', '1Z')) THEN
5876: GMD_API_PUB.Log_Message('GMD', 'GMD_QM_EVAL_OUT_OF_SPEC');
5877: RAISE FND_API.G_EXC_ERROR;
5878: END IF;
5879: END IF;
5880:
5881: EXCEPTION

Line 5882: WHEN FND_API.G_EXC_ERROR THEN

5878: END IF;
5879: END IF;
5880:
5881: EXCEPTION
5882: WHEN FND_API.G_EXC_ERROR THEN
5883: x_return_status := FND_API.G_RET_STS_ERROR ;
5884: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5886: WHEN OTHERS THEN

Line 5883: x_return_status := FND_API.G_RET_STS_ERROR ;

5879: END IF;
5880:
5881: EXCEPTION
5882: WHEN FND_API.G_EXC_ERROR THEN
5883: x_return_status := FND_API.G_RET_STS_ERROR ;
5884: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5886: WHEN OTHERS THEN
5887: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 5884: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

5880:
5881: EXCEPTION
5882: WHEN FND_API.G_EXC_ERROR THEN
5883: x_return_status := FND_API.G_RET_STS_ERROR ;
5884: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5886: WHEN OTHERS THEN
5887: GMD_API_PUB.Log_Message('GMD_API_ERROR',
5888: 'PACKAGE','VALIDATE_EVALUATION_IND','ERROR', SUBSTR(SQLERRM,1,100));

Line 5885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

5881: EXCEPTION
5882: WHEN FND_API.G_EXC_ERROR THEN
5883: x_return_status := FND_API.G_RET_STS_ERROR ;
5884: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5886: WHEN OTHERS THEN
5887: GMD_API_PUB.Log_Message('GMD_API_ERROR',
5888: 'PACKAGE','VALIDATE_EVALUATION_IND','ERROR', SUBSTR(SQLERRM,1,100));
5889: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 5889: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

5885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5886: WHEN OTHERS THEN
5887: GMD_API_PUB.Log_Message('GMD_API_ERROR',
5888: 'PACKAGE','VALIDATE_EVALUATION_IND','ERROR', SUBSTR(SQLERRM,1,100));
5889: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5890: END validate_evaluation_ind;
5891:
5892:
5893:

Line 6078: x_return_status := FND_API.G_RET_STS_SUCCESS;

6074:
6075: BEGIN
6076:
6077: -- Initialize API return status to success
6078: x_return_status := FND_API.G_RET_STS_SUCCESS;
6079:
6080: IF (l_debug = 'Y') THEN
6081: gmd_debug.put_line('Entering procedure CALC_EXPRESSION');
6082: gmd_debug.put_line(' Sample ID = ' || p_sample_id );

Line 6096: RAISE FND_API.G_EXC_ERROR;

6092: , x_return_status => l_return_status);
6093:
6094: IF (l_return_status <> 'S') THEN
6095: -- Error message is already logged
6096: RAISE FND_API.G_EXC_ERROR;
6097: END IF; */
6098:
6099:
6100: -- Index variable

Line 6130: RAISE FND_API.G_EXC_ERROR;

6126: gmd_debug.put_line('calling procedure populate_result_data_points_r l_return_status <> S ');
6127:
6128: END IF;
6129:
6130: RAISE FND_API.G_EXC_ERROR;
6131: END IF;
6132:
6133: -- Initialize IN Variable
6134: l_exp_is_null := FALSE;

Line 6149: RAISE FND_API.G_EXC_ERROR;

6145: ;
6146:
6147: IF l_return_status <> 'S' THEN
6148: -- Error message must be already logged
6149: RAISE FND_API.G_EXC_ERROR;
6150: END IF;
6151: select count(*) INTO l_ref_count from gmd_qc_test_values_b where test_id=l_exp_test.test_id; --Bug#5097709
6152: -- Now we have all the ref. tests for the current expression in l_exptab so
6153: -- fill-in result_values in l_exptab from _GT table

Line 6187: RAISE FND_API.G_EXC_ERROR;

6183: pexp_test => l_boolean,
6184: x_value => l_value,
6185: x_return_status => x_return_status);
6186: IF x_return_status <> 'S' THEN
6187: RAISE FND_API.G_EXC_ERROR;
6188: END IF;
6189:
6190: -- We have got the expression calculated so format this to
6191: -- the display and report precision values

Line 6280: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

6276: x_rec.min_num := l_min_value_num;
6277: x_rec.max_num := l_max_value_num;
6278:
6279: GMD_RESULTS_GRP.validate_result(x_rec,l_return_status);
6280: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6281: RAISE FND_API.G_EXC_ERROR;
6282: END IF;
6283: --Updating the gmd_spec_results table, with proper values
6284: --which returned during the above call.

Line 6281: RAISE FND_API.G_EXC_ERROR;

6277: x_rec.max_num := l_max_value_num;
6278:
6279: GMD_RESULTS_GRP.validate_result(x_rec,l_return_status);
6280: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6281: RAISE FND_API.G_EXC_ERROR;
6282: END IF;
6283: --Updating the gmd_spec_results table, with proper values
6284: --which returned during the above call.
6285: UPDATE gmd_spec_results

Line 6312: WHEN FND_API.G_EXC_ERROR THEN

6308: WHERE result_id = l_test_results(m).result_id;
6309: END LOOP;
6310: --QZENG Bug 6774613 End
6311: EXCEPTION
6312: WHEN FND_API.G_EXC_ERROR THEN
6313: x_return_status := FND_API.G_RET_STS_ERROR ;
6314: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6316: WHEN OTHERS THEN

Line 6313: x_return_status := FND_API.G_RET_STS_ERROR ;

6309: END LOOP;
6310: --QZENG Bug 6774613 End
6311: EXCEPTION
6312: WHEN FND_API.G_EXC_ERROR THEN
6313: x_return_status := FND_API.G_RET_STS_ERROR ;
6314: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6316: WHEN OTHERS THEN
6317: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 6314: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

6310: --QZENG Bug 6774613 End
6311: EXCEPTION
6312: WHEN FND_API.G_EXC_ERROR THEN
6313: x_return_status := FND_API.G_RET_STS_ERROR ;
6314: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6316: WHEN OTHERS THEN
6317: GMD_API_PUB.Log_Message('GMD_API_ERROR',
6318: 'PACKAGE','CALC_EXPRESSION','ERROR', SUBSTR(SQLERRM,1,100));

Line 6315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

6311: EXCEPTION
6312: WHEN FND_API.G_EXC_ERROR THEN
6313: x_return_status := FND_API.G_RET_STS_ERROR ;
6314: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6316: WHEN OTHERS THEN
6317: GMD_API_PUB.Log_Message('GMD_API_ERROR',
6318: 'PACKAGE','CALC_EXPRESSION','ERROR', SUBSTR(SQLERRM,1,100));
6319: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 6319: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

6315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6316: WHEN OTHERS THEN
6317: GMD_API_PUB.Log_Message('GMD_API_ERROR',
6318: 'PACKAGE','CALC_EXPRESSION','ERROR', SUBSTR(SQLERRM,1,100));
6319: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6320: END calc_expression;
6321:
6322:
6323:

Line 6402: x_return_status := FND_API.G_RET_STS_SUCCESS;

6398: gmd_debug.put_line('Entering procedure CHANGE_SAMPLE_DISPOSITION');
6399: END IF;
6400:
6401: -- Initialize API return status to success
6402: x_return_status := FND_API.G_RET_STS_SUCCESS;
6403:
6404: -- Get the sample record
6405: l_sample_in.sample_id := p_sample_id;
6406: IF NOT (GMD_SAMPLES_PVT.fetch_row(

Line 6702: WHEN FND_API.G_EXC_ERROR

6698: gmd_debug.put_line ('Leaving Procedure: CHANGE_SAMPLE_DISPOSITION ' );
6699: END IF;
6700:
6701: EXCEPTION
6702: WHEN FND_API.G_EXC_ERROR
6703: OR e_sample_fetch_error
6704: OR e_sampling_event_fetch_error
6705: OR e_sample_spec_disp_fetch_error
6706: OR e_event_spec_disp_fetch_error

Line 6708: x_return_status := FND_API.G_RET_STS_ERROR ;

6704: OR e_sampling_event_fetch_error
6705: OR e_sample_spec_disp_fetch_error
6706: OR e_event_spec_disp_fetch_error
6707: THEN
6708: x_return_status := FND_API.G_RET_STS_ERROR ;
6709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6711: WHEN OTHERS THEN
6712: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 6709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

6705: OR e_sample_spec_disp_fetch_error
6706: OR e_event_spec_disp_fetch_error
6707: THEN
6708: x_return_status := FND_API.G_RET_STS_ERROR ;
6709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6711: WHEN OTHERS THEN
6712: GMD_API_PUB.Log_Message('GMD_API_ERROR',
6713: 'PACKAGE','change_sample_disposition','ERROR', SUBSTR(SQLERRM,1,100));

Line 6710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

6706: OR e_event_spec_disp_fetch_error
6707: THEN
6708: x_return_status := FND_API.G_RET_STS_ERROR ;
6709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6711: WHEN OTHERS THEN
6712: GMD_API_PUB.Log_Message('GMD_API_ERROR',
6713: 'PACKAGE','change_sample_disposition','ERROR', SUBSTR(SQLERRM,1,100));
6714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 6714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

6710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6711: WHEN OTHERS THEN
6712: GMD_API_PUB.Log_Message('GMD_API_ERROR',
6713: 'PACKAGE','change_sample_disposition','ERROR', SUBSTR(SQLERRM,1,100));
6714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6715:
6716: END change_sample_disposition;
6717:
6718:

Line 6836: x_return_status := FND_API.G_RET_STS_SUCCESS;

6832:
6833:
6834: BEGIN
6835: -- Initialize API return status to success
6836: x_return_status := FND_API.G_RET_STS_SUCCESS;
6837:
6838: IF (l_debug = 'Y') THEN
6839: gmd_debug.put_line('Entering procedure: CHANGE_DISP_FOR_AUTO_LOT.');
6840: END IF;

Line 6847: RAISE FND_API.G_EXC_ERROR;

6843: FETCH c_sample_dtl INTO l_sample_rec;
6844: IF c_sample_dtl%NOTFOUND THEN
6845: CLOSE c_sample_dtl;
6846: GMD_API_PUB.Log_Message('GMD_INVALID_PARAMETERS');
6847: RAISE FND_API.G_EXC_ERROR;
6848: END IF;
6849: CLOSE c_sample_dtl;
6850:
6851: -- ========================================================

Line 7145: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

7141: p_update_disp_rec => l_update_disp_rec
7142: , p_to_disposition => l_change_disp_to
7143: , x_return_status => x_return_status
7144: , x_message_data => l_message_data);
7145: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7146: GMD_API_PUB.Log_Message(l_message_data);
7147: RAISE FND_API.G_EXC_ERROR;
7148: END IF;
7149:

Line 7147: RAISE FND_API.G_EXC_ERROR;

7143: , x_return_status => x_return_status
7144: , x_message_data => l_message_data);
7145: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7146: GMD_API_PUB.Log_Message(l_message_data);
7147: RAISE FND_API.G_EXC_ERROR;
7148: END IF;
7149:
7150: -- The above procedure has changed the Sample Spec Disposition.
7151: -- It might also change the Sampling Event Disposition if this is the

Line 7170: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

7166: , p_organization_id => l_sample_rec.organization_id
7167: , p_lot_status => l_lot_status_id
7168: , x_return_status => x_return_status
7169: );
7170: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7171: RAISE FND_API.G_EXC_ERROR;
7172: END IF;
7173: END IF; --l_disposition IN...
7174: END IF; -- control_lot_attrib_ind = Y ...

Line 7171: RAISE FND_API.G_EXC_ERROR;

7167: , p_lot_status => l_lot_status_id
7168: , x_return_status => x_return_status
7169: );
7170: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7171: RAISE FND_API.G_EXC_ERROR;
7172: END IF;
7173: END IF; --l_disposition IN...
7174: END IF; -- control_lot_attrib_ind = Y ...
7175:

Line 7187: WHEN FND_API.G_EXC_ERROR THEN

7183: gmd_debug.put_line('Leaving Procedure: CHANGE_DISP_FOR_AUTO_LOT.');
7184: END IF;
7185:
7186: EXCEPTION
7187: WHEN FND_API.G_EXC_ERROR THEN
7188: x_return_status := FND_API.G_RET_STS_ERROR ;
7189: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7190: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7191: WHEN OTHERS THEN

Line 7188: x_return_status := FND_API.G_RET_STS_ERROR ;

7184: END IF;
7185:
7186: EXCEPTION
7187: WHEN FND_API.G_EXC_ERROR THEN
7188: x_return_status := FND_API.G_RET_STS_ERROR ;
7189: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7190: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7191: WHEN OTHERS THEN
7192: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 7189: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

7185:
7186: EXCEPTION
7187: WHEN FND_API.G_EXC_ERROR THEN
7188: x_return_status := FND_API.G_RET_STS_ERROR ;
7189: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7190: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7191: WHEN OTHERS THEN
7192: GMD_API_PUB.Log_Message('GMD_API_ERROR',
7193: 'PACKAGE','CHANGE_DISP_FOR_AUTO_LOT','ERROR', SUBSTR(SQLERRM,1,100));

Line 7190: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

7186: EXCEPTION
7187: WHEN FND_API.G_EXC_ERROR THEN
7188: x_return_status := FND_API.G_RET_STS_ERROR ;
7189: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7190: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7191: WHEN OTHERS THEN
7192: GMD_API_PUB.Log_Message('GMD_API_ERROR',
7193: 'PACKAGE','CHANGE_DISP_FOR_AUTO_LOT','ERROR', SUBSTR(SQLERRM,1,100));
7194: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 7194: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

7190: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7191: WHEN OTHERS THEN
7192: GMD_API_PUB.Log_Message('GMD_API_ERROR',
7193: 'PACKAGE','CHANGE_DISP_FOR_AUTO_LOT','ERROR', SUBSTR(SQLERRM,1,100));
7194: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7195:
7196: END change_disp_for_auto_lot;
7197:
7198:

Line 7312: x_return_status := FND_API.G_RET_STS_SUCCESS;

7308: gmd_debug.put_line('Entering procedure CHANGE_SAMPLE_DISPOSITION');
7309: END IF;
7310:
7311: -- Initialize API return status to success
7312: x_return_status := FND_API.G_RET_STS_SUCCESS;
7313:
7314: -- Now that we have sampling_event_id, fetch the sampling event record
7315: l_in_sampling_event.sampling_event_id := p_sampling_event_id;
7316: IF NOT (GMD_SAMPLING_EVENTS_PVT.fetch_row(

Line 7332: RAISE FND_API.G_EXC_ERROR;

7328: l_event_spec_disp_id := get_current_event_spec_disp_id
7329: (l_sampling_event.sampling_event_id);
7330: IF (l_event_spec_disp_id IS NULL) THEN
7331: GMD_API_PUB.Log_Message('GMD_EVENT_SPEC_NOT_FOUND');
7332: RAISE FND_API.G_EXC_ERROR;
7333: END IF;
7334:
7335: l_composite_exist := 'N';
7336: l_composite_valid := 'N';

Line 7345: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

7341: , x_composite_exist => l_composite_exist
7342: , x_composite_valid => l_composite_valid
7343: , x_return_status => l_return_status);
7344:
7345: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7346: RAISE FND_API.G_EXC_ERROR;
7347: END IF;
7348:
7349: IF ((l_composite_exist = 'N') OR

Line 7346: RAISE FND_API.G_EXC_ERROR;

7342: , x_composite_valid => l_composite_valid
7343: , x_return_status => l_return_status);
7344:
7345: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7346: RAISE FND_API.G_EXC_ERROR;
7347: END IF;
7348:
7349: IF ((l_composite_exist = 'N') OR
7350: (l_composite_exist = 'Y' AND l_composite_valid = 'N')) THEN

Line 7355: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

7351: -- Get all the sample IDs for this Sampling Event
7352: GMD_RESULTS_GRP.get_sample_ids_for_se(l_sampling_event.sampling_event_id,
7353: l_sample_ids,
7354: l_return_status);
7355: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7356: RAISE FND_API.G_EXC_ERROR;
7357: END IF;
7358:
7359: -- Populate Session Temp Table with Data Points

Line 7356: RAISE FND_API.G_EXC_ERROR;

7352: GMD_RESULTS_GRP.get_sample_ids_for_se(l_sampling_event.sampling_event_id,
7353: l_sample_ids,
7354: l_return_status);
7355: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7356: RAISE FND_API.G_EXC_ERROR;
7357: END IF;
7358:
7359: -- Populate Session Temp Table with Data Points
7360: GMD_RESULTS_GRP.populate_result_data_points

Line 7364: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

7360: GMD_RESULTS_GRP.populate_result_data_points
7361: (p_sample_ids => l_sample_ids,
7362: p_event_spec_disp_id => l_event_spec_disp_id,
7363: x_return_status => l_return_status);
7364: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7365: RAISE FND_API.G_EXC_ERROR;
7366: END IF;
7367:
7368: -- Create new Composite Rows

Line 7365: RAISE FND_API.G_EXC_ERROR;

7361: (p_sample_ids => l_sample_ids,
7362: p_event_spec_disp_id => l_event_spec_disp_id,
7363: x_return_status => l_return_status);
7364: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7365: RAISE FND_API.G_EXC_ERROR;
7366: END IF;
7367:
7368: -- Create new Composite Rows
7369: GMD_RESULTS_GRP.create_composite_rows

Line 7372: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

7368: -- Create new Composite Rows
7369: GMD_RESULTS_GRP.create_composite_rows
7370: (p_event_spec_disp_id => l_event_spec_disp_id,
7371: x_return_Status => l_return_status);
7372: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7373: RAISE FND_API.G_EXC_ERROR;
7374: END IF;
7375:
7376: -- At this time the composite results are created with IN/OUT-OF-SPEC flag set.

Line 7373: RAISE FND_API.G_EXC_ERROR;

7369: GMD_RESULTS_GRP.create_composite_rows
7370: (p_event_spec_disp_id => l_event_spec_disp_id,
7371: x_return_Status => l_return_status);
7372: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7373: RAISE FND_API.G_EXC_ERROR;
7374: END IF;
7375:
7376: -- At this time the composite results are created with IN/OUT-OF-SPEC flag set.
7377:

Line 7497: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

7493: p_update_disp_rec => l_update_disp_rec
7494: , p_to_disposition => l_change_disp_to
7495: , x_return_status => l_return_status
7496: , x_message_data => l_message_data);
7497: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7498: GMD_API_PUB.Log_Message(l_message_data);
7499: RAISE FND_API.G_EXC_ERROR;
7500: END IF;
7501:

Line 7499: RAISE FND_API.G_EXC_ERROR;

7495: , x_return_status => l_return_status
7496: , x_message_data => l_message_data);
7497: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7498: GMD_API_PUB.Log_Message(l_message_data);
7499: RAISE FND_API.G_EXC_ERROR;
7500: END IF;
7501:
7502: -- Disposition has been changed so now change the Lot Status in Inventory
7503: IF (l_spec_dtl.control_lot_attrib_ind = 'Y') THEN --RLNAGARA Bug5416103

Line 7519: RAISE FND_API.G_EXC_ERROR;

7515: FETCH Cur_quality_config INTO l_reason_id ;
7516: IF Cur_quality_config%NOTFOUND THEN
7517: CLOSE Cur_quality_config;
7518: GMD_API_PUB.Log_Message('GMD_QM_INV_REASON_CODE');
7519: RAISE FND_API.G_EXC_ERROR;
7520: END IF;
7521: CLOSE Cur_quality_config;
7522:
7523: --rconv

Line 7539: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

7535: , x_return_status => x_return_status
7536: , x_message_data => l_message_data );
7537:
7538:
7539: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7540: GMD_API_PUB.Log_Message(l_message_data);
7541: RAISE FND_API.G_EXC_ERROR;
7542: END IF;
7543:

Line 7541: RAISE FND_API.G_EXC_ERROR;

7537:
7538:
7539: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7540: GMD_API_PUB.Log_Message(l_message_data);
7541: RAISE FND_API.G_EXC_ERROR;
7542: END IF;
7543:
7544: END IF; -- l_lot_status IS NOT NULL
7545:

Line 7551: IF FND_API.to_boolean(p_commit)

7547:
7548: END IF; -- Need to create composite
7549:
7550: -- Check of p_commit.
7551: IF FND_API.to_boolean(p_commit)
7552: THEN
7553: COMMIT WORK;
7554: END IF;
7555:

Line 7561: WHEN FND_API.G_EXC_ERROR OR

7557:
7558:
7559:
7560: EXCEPTION
7561: WHEN FND_API.G_EXC_ERROR OR
7562: e_sampling_event_fetch_error
7563: THEN
7564: x_return_status := FND_API.G_RET_STS_ERROR ;
7565: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 7564: x_return_status := FND_API.G_RET_STS_ERROR ;

7560: EXCEPTION
7561: WHEN FND_API.G_EXC_ERROR OR
7562: e_sampling_event_fetch_error
7563: THEN
7564: x_return_status := FND_API.G_RET_STS_ERROR ;
7565: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7567: WHEN OTHERS THEN
7568: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 7565: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

7561: WHEN FND_API.G_EXC_ERROR OR
7562: e_sampling_event_fetch_error
7563: THEN
7564: x_return_status := FND_API.G_RET_STS_ERROR ;
7565: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7567: WHEN OTHERS THEN
7568: GMD_API_PUB.Log_Message('GMD_API_ERROR',
7569: 'PACKAGE','change_sample_disposition','ERROR', SUBSTR(SQLERRM,1,100));

Line 7566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

7562: e_sampling_event_fetch_error
7563: THEN
7564: x_return_status := FND_API.G_RET_STS_ERROR ;
7565: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7567: WHEN OTHERS THEN
7568: GMD_API_PUB.Log_Message('GMD_API_ERROR',
7569: 'PACKAGE','change_sample_disposition','ERROR', SUBSTR(SQLERRM,1,100));
7570: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 7570: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

7566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7567: WHEN OTHERS THEN
7568: GMD_API_PUB.Log_Message('GMD_API_ERROR',
7569: 'PACKAGE','change_sample_disposition','ERROR', SUBSTR(SQLERRM,1,100));
7570: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7571: END composite_and_change_lot;
7572:
7573: PROCEDURE update_exptest_value_null
7574: (p_exp_ref_test_id IN gmd_qc_tests_b.test_id%TYPE

Line 7625: x_return_status := FND_API.G_RET_STS_SUCCESS;

7621:
7622: gmd_debug.put_line('Entering procedure update_exptest_value_null');
7623:
7624: --Initialize API return status to success
7625: x_return_status := FND_API.G_RET_STS_SUCCESS;
7626:
7627: FOR test in get_exp_tests(p_exp_ref_test_id)
7628: LOOP
7629: OPEN exp_tests_need_calc(p_sample_id, test.test_id,p_event_spec_disp_id);

Line 7640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

7636:
7637: EXCEPTION
7638: WHEN OTHERS THEN
7639: GMD_API_PUB.Log_Message('GMD_API_ERROR','PACKAGE','update_exptest_value_null','ERROR', SUBSTR(SQLERRM,1,100));
7640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7641:
7642: END update_exptest_value_null;
7643:
7644: PROCEDURE populate_result_data_points_r -- 14021970 new procedure

Line 7664: x_return_status := FND_API.G_RET_STS_SUCCESS;

7660: gmd_debug.put_line('Entering Procedure - POPULATE_RESULT_DATA_POINTS_R');
7661: END IF;
7662:
7663: -- Initialize API return status to success
7664: x_return_status := FND_API.G_RET_STS_SUCCESS;
7665: l_start_date := GMA_CORE_PKG.get_date_constant_d('SY$MIN_DATE');
7666: -- Bug #2626977 (JKB) Removed reference to date profile above.
7667:
7668: EXECUTE IMMEDIATE 'delete from gmd_result_data_points_gt';

Line 7714: WHEN FND_API.G_EXC_ERROR THEN

7710: END IF;
7711: -- All systems GO...
7712:
7713: EXCEPTION
7714: WHEN FND_API.G_EXC_ERROR THEN
7715: x_return_status := FND_API.G_RET_STS_ERROR ;
7716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7718: WHEN OTHERS THEN

Line 7715: x_return_status := FND_API.G_RET_STS_ERROR ;

7711: -- All systems GO...
7712:
7713: EXCEPTION
7714: WHEN FND_API.G_EXC_ERROR THEN
7715: x_return_status := FND_API.G_RET_STS_ERROR ;
7716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7718: WHEN OTHERS THEN
7719: GMD_API_PUB.Log_Message('GMD_API_ERROR',

Line 7716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

7712:
7713: EXCEPTION
7714: WHEN FND_API.G_EXC_ERROR THEN
7715: x_return_status := FND_API.G_RET_STS_ERROR ;
7716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7718: WHEN OTHERS THEN
7719: GMD_API_PUB.Log_Message('GMD_API_ERROR',
7720: 'PACKAGE','POPULATE_RESULT_DATA_POINTS',

Line 7717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

7713: EXCEPTION
7714: WHEN FND_API.G_EXC_ERROR THEN
7715: x_return_status := FND_API.G_RET_STS_ERROR ;
7716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7718: WHEN OTHERS THEN
7719: GMD_API_PUB.Log_Message('GMD_API_ERROR',
7720: 'PACKAGE','POPULATE_RESULT_DATA_POINTS',
7721: 'ERROR', SUBSTR(SQLERRM,1,100));

Line 7722: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

7718: WHEN OTHERS THEN
7719: GMD_API_PUB.Log_Message('GMD_API_ERROR',
7720: 'PACKAGE','POPULATE_RESULT_DATA_POINTS',
7721: 'ERROR', SUBSTR(SQLERRM,1,100));
7722: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7723:
7724: END populate_result_data_points_r;
7725:
7726: END gmd_results_grp;