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 GMD_DEBUG

Line 16: --gmd_debug.put_line('fnd_log.level_procedure '||FND_LOG.LEVEL_PROCEDURE);

12: FUNCTION set_debug_flag RETURN VARCHAR2 IS
13: l_debug VARCHAR2(1):= 'N';
14: BEGIN
15:
16: --gmd_debug.put_line('fnd_log.level_procedure '||FND_LOG.LEVEL_PROCEDURE);
17: --gmd_debug.put_line('fnd_log.g_current_runtime_level '||FND_LOG.G_CURRENT_RUNTIME_LEVEL);
18:
19: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
20: l_debug := 'Y';

Line 17: --gmd_debug.put_line('fnd_log.g_current_runtime_level '||FND_LOG.G_CURRENT_RUNTIME_LEVEL);

13: l_debug VARCHAR2(1):= 'N';
14: BEGIN
15:
16: --gmd_debug.put_line('fnd_log.level_procedure '||FND_LOG.LEVEL_PROCEDURE);
17: --gmd_debug.put_line('fnd_log.g_current_runtime_level '||FND_LOG.G_CURRENT_RUNTIME_LEVEL);
18:
19: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
20: l_debug := 'Y';
21: END IF;

Line 810: gmd_debug.put_line('Entering procedure DELETE_RSLT_AND_SPEC_RSLT_ROWS');

806: ) IS
807: BEGIN
808:
809: IF (l_debug = 'Y') THEN
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;

Line 823: gmd_debug.put_line('Rows deleted from gmd_spec_results: '|| SQL%ROWCOUNT);

819: WHERE sample_id = p_sample_id)
820: ;
821:
822: IF (l_debug = 'Y') THEN
823: gmd_debug.put_line('Rows deleted from gmd_spec_results: '|| SQL%ROWCOUNT);
824: END IF;
825:
826: DELETE gmd_results
827: WHERE sample_id = p_sample_id

Line 831: gmd_debug.put_line('Rows deleted from gmd_results: '|| SQL%ROWCOUNT);

827: WHERE sample_id = p_sample_id
828: ;
829:
830: IF (l_debug = 'Y') THEN
831: gmd_debug.put_line('Rows deleted from gmd_results: '|| SQL%ROWCOUNT);
832: END IF;
833:
834: IF (l_debug = 'Y') THEN
835: gmd_debug.put_line('Leaving procedure DELETE_RSLT_AND_SPEC_RSLT_ROWS');

Line 835: gmd_debug.put_line('Leaving procedure DELETE_RSLT_AND_SPEC_RSLT_ROWS');

831: gmd_debug.put_line('Rows deleted from gmd_results: '|| SQL%ROWCOUNT);
832: END IF;
833:
834: IF (l_debug = 'Y') 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

Line 1205: gmd_debug.put_line('Entering procedure RSLT_IS_IN_SPEC');

1201:
1202: BEGIN
1203:
1204: IF (l_debug = 'Y') THEN
1205: gmd_debug.put_line('Entering procedure RSLT_IS_IN_SPEC');
1206: END IF;
1207:
1208: IF (l_debug = 'Y') THEN
1209: gmd_debug.put_line('Spec ID: ' || p_spec_id || ' Test ID: ' || p_test_id ||

Line 1209: gmd_debug.put_line('Spec ID: ' || p_spec_id || ' Test ID: ' || p_test_id ||

1205: gmd_debug.put_line('Entering procedure RSLT_IS_IN_SPEC');
1206: END IF;
1207:
1208: IF (l_debug = 'Y') THEN
1209: gmd_debug.put_line('Spec ID: ' || p_spec_id || ' Test ID: ' || p_test_id ||
1210: ' Num Result: ' || p_rslt_value_num || ' Char Result: ' || p_rslt_value_char);
1211: END IF;
1212:
1213: -- Initialize return status as Out-Of-Spec

Line 1248: gmd_debug.put_line('Test Type: ' || l_values.test_type ||

1244: END IF;
1245: CLOSE c_spec_test_val; */
1246:
1247: IF (l_debug = 'Y') THEN
1248: gmd_debug.put_line('Test Type: ' || l_values.test_type ||
1249: ' Min: ' || l_values.min_value_num ||
1250: ' Max: ' || l_values.max_value_num ||
1251: ' Target: ' || l_values.target_value_char);
1252: END IF;

Line 1268: gmd_debug.put_line('For test type T, the NUM value is missing.');

1264: l_rslt_value_num := p_rslt_value_num;
1265: -- If Text Range and if the seq is not supplied then find one using Char value
1266: IF (l_values.test_type = 'T' AND l_rslt_value_num IS NULL) THEN
1267: IF (l_debug = 'Y') THEN
1268: gmd_debug.put_line('For test type T, the NUM value is missing.');
1269: END IF;
1270: OPEN c_text_to_num(p_test_id, p_rslt_value_char);
1271: FETCH c_text_to_num INTO l_rslt_value_num;
1272: IF (c_text_to_num%NOTFOUND) THEN

Line 1274: gmd_debug.put_line('For test type T, the NUM value is NOT retrieved - early exit RETURN NULL ' );

1270: OPEN c_text_to_num(p_test_id, p_rslt_value_char);
1271: FETCH c_text_to_num INTO l_rslt_value_num;
1272: IF (c_text_to_num%NOTFOUND) THEN
1273: IF (l_debug = 'Y') THEN
1274: gmd_debug.put_line('For test type T, the NUM value is NOT retrieved - early exit RETURN NULL ' );
1275: END IF;
1276:
1277: CLOSE c_text_to_num;
1278: RETURN NULL;

Line 1282: gmd_debug.put_line('For test type T, retrieved the NUM value: ' || l_rslt_value_num);

1278: RETURN NULL;
1279: END IF;
1280:
1281: IF (l_debug = 'Y') THEN
1282: gmd_debug.put_line('For test type T, retrieved the NUM value: ' || l_rslt_value_num);
1283: END IF;
1284: CLOSE c_text_to_num;
1285:
1286: END IF; -- end if test type is T and no seq number is given

Line 1295: gmd_debug.put_line('For N, E, and T it is IN-SPEC');

1291: -- The result is In-Spec
1292: x_in_spec := 'Y';
1293:
1294: IF (l_debug = 'Y') THEN
1295: gmd_debug.put_line('For N, E, and T it is IN-SPEC');
1296: END IF;
1297: END IF;
1298:
1299:

Line 1308: gmd_debug.put_line('For L it is IN-SPEC AT FIRST. Lets check individual ranges.');

1304: IF (nvl(l_values.min_value_num, p_rslt_value_num) <= p_rslt_value_num AND
1305: p_rslt_value_num <= nvl(l_values.max_value_num, p_rslt_value_num)) THEN
1306:
1307: IF (l_debug = 'Y') THEN
1308: gmd_debug.put_line('For L it is IN-SPEC AT FIRST. Lets check individual ranges.');
1309: END IF;
1310: -- num range with display can have holes in the subranges
1311: -- check that the result does not fall into one of those holes
1312: OPEN c_subranges(p_test_id, p_rslt_value_num) ;

Line 1316: gmd_debug.put_line('For L it is also in one of the subranges so it is IN-SPEC.');

1312: OPEN c_subranges(p_test_id, p_rslt_value_num) ;
1313: FETCH c_subranges INTO dummy;
1314: IF c_subranges%FOUND THEN
1315: IF (l_debug = 'Y') THEN
1316: gmd_debug.put_line('For L it is also in one of the subranges so it is IN-SPEC.');
1317: END IF;
1318: x_in_spec := 'Y';
1319: END IF;
1320: CLOSE c_subranges;

Line 1328: gmd_debug.put_line('For V it is equal to Target and so it is IN-SPEC');

1324:
1325: -- List of Values
1326: IF (p_rslt_value_char = l_values.target_value_char) THEN
1327: IF (l_debug = 'Y') THEN
1328: gmd_debug.put_line('For V it is equal to Target and so it is IN-SPEC');
1329: END IF;
1330: x_in_spec := 'Y';
1331: END IF;
1332:

Line 1339: gmd_debug.put_line('Exiting Procedure RSLT_IS_IN_SPEC - value of x_in_sepc is ' || x_in_spec );

1335: END IF; -- end if test is nonvalidate or not
1336:
1337: -- did not get here
1338: IF (l_debug = 'Y') THEN
1339: gmd_debug.put_line('Exiting Procedure RSLT_IS_IN_SPEC - value of x_in_sepc is ' || x_in_spec );
1340: END IF;
1341:
1342: RETURN x_in_spec;
1343:

Line 1347: gmd_debug.put_line('Exiting Procedure RSLT_IS_IN_SPEC with exception and returning NULL ');

1343:
1344: EXCEPTION
1345: WHEN OTHERS THEN
1346: IF (l_debug = 'Y') THEN
1347: gmd_debug.put_line('Exiting Procedure RSLT_IS_IN_SPEC with exception and returning NULL ');
1348: END IF;
1349:
1350: RETURN NULL;
1351:

Line 1471: gmd_debug.put_line('Entering Procedure: ADD_TESTS_TO_SAMPLE');

1467:
1468: BEGIN
1469:
1470: IF (l_debug = 'Y') THEN
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;

Line 1541: gmd_debug.put_line('Total Number of tests to be added: '|| p_test_ids.COUNT);

1537:
1538: l_seq := 0;
1539:
1540: IF (l_debug = 'Y') THEN
1541: gmd_debug.put_line('Total Number of tests to be added: '|| p_test_ids.COUNT);
1542: END IF;
1543:
1544: -- Go through all the tests
1545: FOR i in 1..p_test_ids.COUNT

Line 1560: gmd_debug.put_line('Working on Test ID: ' || p_test_ids(i) || ' Type: ' || l_test_type);

1556: WHERE test_id = p_test_ids(i)
1557: ;
1558:
1559: IF (l_debug = 'Y') THEN
1560: gmd_debug.put_line('Working on Test ID: ' || p_test_ids(i) || ' Type: ' || l_test_type);
1561: END IF;
1562: IF (l_test_type = 'E') THEN
1563:
1564: /* -- If the test we are adding is Expression then make sure that it is not

Line 1570: gmd_debug.put_line('Expression Test is already in the result set. Abort.');

1566: OPEN c_res_test(l_sample.sample_id, p_test_ids(i));
1567: FETCH c_res_test INTO dummy;
1568: IF c_res_test%FOUND THEN
1569: IF (l_debug = 'Y') THEN
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;

Line 1584: gmd_debug.put_line('Some of the reference tests are missing from the result set. Abort.');

1580: IF NOT all_ref_tests_exist_in_sample(p_sample_id => l_sample.sample_id,
1581: p_test_id => p_test_ids(i))
1582: THEN
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;

Line 1607: gmd_debug.put_line('The additional test indicator is (Y/NULL): ' || l_additional_test_ind);

1603: -- Since there is no Spec, all the tests are additional
1604: l_additional_test_ind := 'Y';
1605: END IF;
1606: IF (l_debug = 'Y') THEN
1607: gmd_debug.put_line('The additional test indicator is (Y/NULL): ' || l_additional_test_ind);
1608: END IF;
1609:
1610:
1611: -- Now Construct GMD_RESULTS record

Line 1635: gmd_debug.put_line('Replicate from Test Method: ' || l_replicate);

1631: l_test_duration -- Bug 13476354
1632: ;
1633: CLOSE c_test_method;
1634: IF (l_debug = 'Y') THEN
1635: gmd_debug.put_line('Replicate from Test Method: ' || l_replicate);
1636: END IF;
1637:
1638: -- 3. If this is not an additional test then get the replicate override
1639: -- from the Spec

Line 1651: gmd_debug.put_line('Since the test is in Spec the Replicate from Spec: ' || l_replicate);

1647: AND st.test_id = p_test_ids(i)
1648: AND st.test_method_id = tm.test_method_id
1649: ;
1650: IF (l_debug = 'Y') THEN
1651: gmd_debug.put_line('Since the test is in Spec the Replicate from Spec: ' || l_replicate);
1652: gmd_debug.put_line('Viability Duration in seconds: ' || l_viability_duration);
1653: END IF;
1654: END IF;
1655:

Line 1652: gmd_debug.put_line('Viability Duration in seconds: ' || l_viability_duration);

1648: AND st.test_method_id = tm.test_method_id
1649: ;
1650: IF (l_debug = 'Y') THEN
1651: gmd_debug.put_line('Since the test is in Spec the Replicate from Spec: ' || l_replicate);
1652: gmd_debug.put_line('Viability Duration in seconds: ' || l_viability_duration);
1653: END IF;
1654: END IF;
1655:
1656: -- 3.5 If this is an expression, make sure the replicate = 1

Line 1722: gmd_debug.put_line('Inserting test for replicate: ' || l_results.TEST_REPLICATE_CNT);

1718: -- insert them l_replicate times.
1719: FOR i IN 1..l_replicate
1720: LOOP
1721: IF (l_debug = 'Y') THEN
1722: gmd_debug.put_line('Inserting test for replicate: ' || l_results.TEST_REPLICATE_CNT);
1723: END IF;
1724: -- We are ready for insert in GMD_RESULTS, so then lets do it.
1725: IF NOT(GMD_RESULTS_PVT.Insert_Row(
1726: p_results => l_results,

Line 1740: gmd_debug.put_line('Result record inserted, Result ID: ' || l_results.RESULT_ID);

1736: out_var_idx := out_var_idx + 1;
1737:
1738: x_results_tab(out_var_idx) := l_results;
1739: IF (l_debug = 'Y') THEN
1740: gmd_debug.put_line('Result record inserted, Result ID: ' || l_results.RESULT_ID);
1741: END IF;
1742:
1743: -- Assign the result_id to Spec Result record
1744: l_spec_results.RESULT_ID := l_results.RESULT_ID;

Line 1756: gmd_debug.put_line('Spec Result record inserted');

1752:
1753: x_spec_results_tab(out_var_idx) := l_spec_results;
1754:
1755: IF (l_debug = 'Y') THEN
1756: gmd_debug.put_line('Spec Result record inserted');
1757: END IF;
1758:
1759: -- Now increment the l_next_test_replicate_cnt
1760: l_results.TEST_REPLICATE_CNT := l_results.TEST_REPLICATE_CNT + 1;

Line 1769: gmd_debug.put_line('All the tests are added. Setting In Progress flags');

1765:
1766: END LOOP; -- All the tests
1767:
1768: IF (l_debug = 'Y') THEN
1769: gmd_debug.put_line('All the tests are added. Setting *In Progress* flags');
1770: END IF;
1771:
1772: -- M.Grosser 04-May-2006: BUG 5167171 - Forward Port of BUG 5097450
1773: -- Modified code to prevent the setting of sample disposition

Line 1824: gmd_debug.put_line('Setting In Progress flags completed.');

1820: WHERE sampling_event_id = l_sample.sampling_event_id
1821: ;
1822:
1823: IF (l_debug = 'Y') THEN
1824: gmd_debug.put_line('Setting *In Progress* flags completed.');
1825: END IF;
1826: END IF;
1827:
1828: IF (l_debug = 'Y') THEN

Line 1829: gmd_debug.put_line('Leaving procedure: ADD_TESTS_TO_SAMPLE');

1825: END IF;
1826: END IF;
1827:
1828: IF (l_debug = 'Y') THEN
1829: gmd_debug.put_line('Leaving procedure: ADD_TESTS_TO_SAMPLE');
1830: END IF;
1831:
1832:
1833: EXCEPTION

Line 2012: gmd_debug.put_line('Entering Procedure ADD_TEST_TO_SAMPLES');

2008:
2009: BEGIN
2010:
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:

Line 2028: gmd_debug.put_line('Going to add test ID: ' || l_test_ids(1) || ' in Sample ID: ' || l_sample.sample_id);

2024:
2025: l_sample.sample_id := p_sample_ids(i);
2026:
2027: IF (l_debug = 'Y') THEN
2028: gmd_debug.put_line('Going to add test ID: ' || l_test_ids(1) || ' in Sample ID: ' || l_sample.sample_id);
2029: END IF;
2030:
2031: -- Now we have all the parameters ready for routine add_tests_to_sample
2032: add_tests_to_sample(

Line 2048: gmd_debug.put_line('Ttest ID: ' || l_test_ids(1) || ' is added to Sample ID: ' || l_sample.sample_id);

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);
2049: END IF;
2050:
2051: -- If success then assign the OUT variables received
2052: x_results_tab(i) := l_results_tab(1);

Line 2058: gmd_debug.put_line('Leaving Procedure ADD_TEST_TO_SAMPLES');

2054:
2055: END LOOP;
2056:
2057: IF (l_debug = 'Y') 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

Line 2265: gmd_debug.put_line('Entering Procedure - MAKE_TARGET_SPEC_THE_BASE_SPEC');

2261:
2262: BEGIN
2263:
2264: IF (l_debug = 'Y') THEN
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;

Line 2282: gmd_debug.put_line(' MAKE_TARGET_SPEC_THE_BASE_SPEC RAISE e_sample_fetch_error ');

2278: THEN
2279: -- Fetch Error.
2280:
2281: IF (l_debug = 'Y') THEN
2282: gmd_debug.put_line(' MAKE_TARGET_SPEC_THE_BASE_SPEC RAISE e_sample_fetch_error ');
2283: END IF;
2284:
2285: RAISE e_sample_fetch_error;
2286: END IF;

Line 2295: gmd_debug.put_line(' Changing base spec for Sample ID - ' || l_sample.sample_id ||

2291: OPEN get_organization_code(l_sample.organization_id);
2292: FETCH get_organization_code into l_organization_code;
2293: CLOSE get_organization_code;
2294:
2295: gmd_debug.put_line(' Changing base spec for Sample ID - ' || l_sample.sample_id ||
2296: ' Sample No - ' || l_organization_code
2297: || '-' || l_sample.sample_no ||
2298: ' to Target Spec - ' || p_target_spec_id ||
2299: ' Target Spec VR - ' || p_target_spec_vr_id);

Line 2315: gmd_debug.put_line(' MAKE_TARGET_SPEC_THE_BASE_SPEC For Retain or Planned sample - no comparison ');

2311: AND (l_sample.sample_disposition = '0PL') THEN
2312: -- For retain sample no comparison, please!
2313: GMD_API_PUB.Log_Message('GMD_RETAIN_SAMPLE');
2314: IF (l_debug = 'Y') THEN
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;

Line 2328: gmd_debug.put_line(' MAKE_TARGET_SPEC_THE_BASE_SPEC GMD_SAMPLING_EVENT_MISSING ');

2324: -- there still should be a sampling event as per new directions.
2325: IF (l_sample.sampling_event_id IS NULL) THEN
2326: GMD_API_PUB.Log_Message('GMD_SAMPLING_EVENT_MISSING');
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;

Line 2358: gmd_debug.put_line(' Updated all previous gmd_event_spec_disp to NOT-Current.');

2354: and spec_used_for_lot_attrib_ind = 'Y'
2355: ;
2356:
2357: IF (l_debug = 'Y') THEN
2358: gmd_debug.put_line(' Updated all previous gmd_event_spec_disp to NOT-Current.');
2359: END IF;
2360:
2361: -- Create a new record in GMD_EVENT_SPEC_DISP for the Target Spec
2362:

Line 2391: gmd_debug.put_line(' A new record is created in GMD_EVENT_SPEC_DISP. ID - ' || l_event_spec_disp.event_spec_disp_id);

2387: END IF;
2388: l_event_spec_disp.EVENT_SPEC_DISP_ID := l_out_event_spec_disp.EVENT_SPEC_DISP_ID;
2389:
2390: IF (l_debug = 'Y') THEN
2391: gmd_debug.put_line(' A new record is created in GMD_EVENT_SPEC_DISP. ID - ' || l_event_spec_disp.event_spec_disp_id);
2392: END IF;
2393:
2394: END IF;
2395: CLOSE c_event_spec;

Line 2416: gmd_debug.put_line(' MAKE_TARGET_SPEC_THE_BASE_SPEC RAISE e_sample_spec_disp_insert_err ');

2412: )
2413: THEN
2414: -- Insert Error
2415: IF (l_debug = 'Y') THEN
2416: gmd_debug.put_line(' MAKE_TARGET_SPEC_THE_BASE_SPEC RAISE e_sample_spec_disp_insert_err ');
2417: END IF;
2418:
2419: RAISE e_sample_spec_disp_insert_err;
2420: END IF;

Line 2423: gmd_debug.put_line(' A new record is created in GMD_SAMPLE_SPEC_DISP.');

2419: RAISE e_sample_spec_disp_insert_err;
2420: END IF;
2421:
2422: IF (l_debug = 'Y') THEN
2423: gmd_debug.put_line(' A new record is created in GMD_SAMPLE_SPEC_DISP.');
2424: gmd_debug.put_line(' Now duplicate all current GMD_SPEC_RESULTS under new Spec.'); -- up to here
2425: END IF;
2426:
2427: -- Create a set of records in GMD_SPEC_RESULTS for the target Spec

Line 2424: gmd_debug.put_line(' Now duplicate all current GMD_SPEC_RESULTS under new Spec.'); -- up to here

2420: END IF;
2421:
2422: IF (l_debug = 'Y') THEN
2423: gmd_debug.put_line(' A new record is created in GMD_SAMPLE_SPEC_DISP.');
2424: gmd_debug.put_line(' Now duplicate all current GMD_SPEC_RESULTS under new Spec.'); -- up to here
2425: END IF;
2426:
2427: -- Create a set of records in GMD_SPEC_RESULTS for the target Spec
2428: -- In this run we are just creating records for all the results

Line 2485: gmd_debug.put_line('Retrieved Test and Method info:');

2481: x_rec.method := LocalTypeRec.test_method_code;
2482: CLOSE c_get_type;
2483:
2484: IF (l_debug = 'Y') THEN
2485: gmd_debug.put_line('Retrieved Test and Method info:');
2486: gmd_debug.put_line(' Test: ' || LocalTypeRec.test_code || ' Method: ' || LocalTypeRec.test_method_code);
2487: END IF;
2488:
2489:

Line 2486: gmd_debug.put_line(' Test: ' || LocalTypeRec.test_code || ' Method: ' || LocalTypeRec.test_method_code);

2482: CLOSE c_get_type;
2483:
2484: IF (l_debug = 'Y') THEN
2485: gmd_debug.put_line('Retrieved Test and Method info:');
2486: gmd_debug.put_line(' Test: ' || LocalTypeRec.test_code || ' Method: ' || LocalTypeRec.test_method_code);
2487: END IF;
2488:
2489:
2490:

Line 2517: gmd_debug.put_line('Got the Test and Spec info');

2513: CLOSE c_get_spec_test_char;
2514: END IF;
2515:
2516: IF (l_debug = 'Y') THEN
2517: gmd_debug.put_line('Got the Test and Spec info');
2518: END IF;
2519:
2520:
2521:

Line 2544: gmd_debug.put_line('calling rslt_is_in_spec ');

2540:
2541: -- Since the test is part of the Spec we can derive if it is IN-SPEC
2542:
2543: IF (l_debug = 'Y') THEN
2544: gmd_debug.put_line('calling rslt_is_in_spec ');
2545: END IF;
2546:
2547: l_spec_result.IN_SPEC_IND := rslt_is_in_spec
2548: (p_spec_id => p_target_spec_id,

Line 2558: gmd_debug.put_line('called rslt_is_in_spec - ');

2554: x_rec.in_spec := l_spec_result.IN_SPEC_IND;
2555:
2556:
2557: IF (l_debug = 'Y') THEN
2558: gmd_debug.put_line('called rslt_is_in_spec - ');
2559: END IF;
2560:
2561:
2562:

Line 2631: gmd_debug.put_line(' gmd_results_grp.make_target_spec_the_base_spec Insert Error from GMD_SPEC_RESULTS_PVT.Insert_Row RAISE e_spec_results_insert_error ');

2627: THEN
2628: -- Insert Error
2629:
2630: IF (l_debug = 'Y') THEN
2631: gmd_debug.put_line(' gmd_results_grp.make_target_spec_the_base_spec Insert Error from GMD_SPEC_RESULTS_PVT.Insert_Row RAISE e_spec_results_insert_error ');
2632: END IF;
2633:
2634: RAISE e_spec_results_insert_error;
2635: END IF;

Line 2638: gmd_debug.put_line(' A duplicate record is created in GMD_SPEC_RESULTS for Result ID - ' || l_res.result_id);

2634: RAISE e_spec_results_insert_error;
2635: END IF;
2636:
2637: IF (l_debug = 'Y') THEN
2638: gmd_debug.put_line(' A duplicate record is created in GMD_SPEC_RESULTS for Result ID - ' || l_res.result_id);
2639: END IF;
2640:
2641: END LOOP; -- For all the existing results
2642:

Line 2647: gmd_debug.put_line(' Now create rows in GMD_RESULTS and GMD_SPEC_RESULTS for the tests that are missing and are part of the Target Spec');

2643: -- Now create rows in GMD_RESULTS and GMD_SPEC_RESULTS for
2644: -- the tests that are missing and are part of the Target Spec
2645:
2646: IF (l_debug = 'Y') THEN
2647: gmd_debug.put_line(' Now create rows in GMD_RESULTS and GMD_SPEC_RESULTS for the tests that are missing and are part of the Target Spec');
2648: END IF;
2649:
2650: -- Go throug all the tests that are part of the Spec
2651: FOR l_spec_test IN c_spec_tests(p_target_spec_id)

Line 2660: gmd_debug.put_line('before SELECT nvl(max(test_replicate_cnt), 0) ');

2656: -- Find out how many times the test from the target spec is carried
2657: -- out in the exisitng result set.
2658:
2659: IF (l_debug = 'Y') THEN
2660: gmd_debug.put_line('before SELECT nvl(max(test_replicate_cnt), 0) ');
2661: END IF;
2662:
2663:
2664: SELECT nvl(max(test_replicate_cnt), 0)

Line 2673: gmd_debug.put_line('after SELECT nvl(max(test_replicate_cnt), 0) ');

2669: ;
2670:
2671:
2672: IF (l_debug = 'Y') THEN
2673: gmd_debug.put_line('after SELECT nvl(max(test_replicate_cnt), 0) ');
2674: END IF;
2675:
2676:
2677: -- Find out how many times still we need to do the test

Line 2682: gmd_debug.put_line(' Test ID - ' || l_spec_test.test_id ||

2678: -- in order for Target Spec to be used.
2679: l_missing_cnt := l_spec_test.test_replicate - l_curr_replicate_cnt;
2680:
2681: IF (l_debug = 'Y') THEN
2682: gmd_debug.put_line(' Test ID - ' || l_spec_test.test_id ||
2683: ' Replicate in Spec - ' || l_spec_test.test_replicate ||
2684: ' Already times performed - ' || l_curr_replicate_cnt ||
2685: ' To be performed for times - ' || l_missing_cnt);
2686: END IF;

Line 2703: gmd_debug.put_line(' Since it needs to be performed, Test IDs table created and calling add_tests_to_sample.');

2699:
2700: END LOOP; -- Test Replicate Loop
2701:
2702: IF (l_debug = 'Y') THEN
2703: gmd_debug.put_line(' Since it needs to be performed, Test IDs table created and calling add_tests_to_sample.');
2704: END IF;
2705:
2706: -- We have all the parameter for inserting tests to a sample
2707: add_tests_to_sample

Line 2722: gmd_debug.put_line(' Test template record added to both GMD_RESULTD and GMD_SPEC_RESULTS.');

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.');
2723: END IF;
2724:
2725: -- We ignore other out parameters
2726:

Line 2745: gmd_debug.put_line('Leaving Procedure - MAKE_TARGET_SPEC_THE_BASE_SPEC');

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');
2746: END IF;
2747:
2748:
2749:

Line 2761: gmd_debug.put_line('Leaving Procedure - MAKE_TARGET_SPEC_THE_BASE_SPEC with return status of ERROR ');

2757: OR e_event_spec_disp_insert_error
2758: OR e_sample_spec_disp_insert_err
2759: THEN
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

Line 2768: gmd_debug.put_line('Leaving Procedure - MAKE_TARGET_SPEC_THE_BASE_SPEC with return status of unexpected ERROR ');

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;
2770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2771: WHEN OTHERS THEN
2772:

Line 2774: gmd_debug.put_line('Leaving Procedure - MAKE_TARGET_SPEC_THE_BASE_SPEC with return status for OTHERS of unexpected ERROR ');

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 ');
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));

Line 2841: gmd_debug.put_line('Entered Procedure - USE_TARGET_SPEC_FOR_CMPST_RSLT');

2837:
2838: BEGIN
2839:
2840: IF (l_debug = 'Y') THEN
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;

Line 2858: gmd_debug.put_line(' Working on SE ID - ' || l_sampling_event_id);

2854: END IF;
2855: CLOSE c_get_se_id;
2856:
2857: IF (l_debug = 'Y') THEN
2858: gmd_debug.put_line(' Working on SE ID - ' || l_sampling_event_id);
2859: END IF;
2860:
2861: -- Now get all the samples that are part of this Sampling Event
2862: get_sample_ids_for_se (p_sampling_event_id => l_sampling_event_id,

Line 2871: gmd_debug.put_line(' There are ' || l_sample_ids.COUNT || ' samples in this SE ID.' );

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.' );
2872: END IF;
2873:
2874: -- If the no of samples count is zero then error out
2875: IF (l_sample_ids.COUNT = 0) THEN

Line 2884: gmd_debug.put_line(' Calling make_target_spec_the_base_spec for Sample ID - ' || l_sample_ids(i));

2880: -- Now call "make_target_spec_the_base_spec" for each sample ID
2881: FOR i in 1..l_sample_ids.COUNT
2882: LOOP
2883: IF (l_debug = 'Y') THEN
2884: gmd_debug.put_line(' Calling make_target_spec_the_base_spec for Sample ID - ' || l_sample_ids(i));
2885: END IF;
2886: -- For each sample make the target spec as base spec.
2887: make_target_spec_the_base_spec(p_sample_id => l_sample_ids(i),
2888: p_target_spec_id => p_target_spec_id,

Line 2896: gmd_debug.put_line(' Target Spec Changed for Sample ID - ' || l_sample_ids(i));

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;
2898: END LOOP;
2899:
2900: IF (l_debug = 'Y') THEN

Line 2901: gmd_debug.put_line('Leaving Procedure - USE_TARGET_SPEC_FOR_CMPST_RSLT');

2897: END IF;
2898: END LOOP;
2899:
2900: IF (l_debug = 'Y') THEN
2901: gmd_debug.put_line('Leaving Procedure - USE_TARGET_SPEC_FOR_CMPST_RSLT');
2902: END IF;
2903:
2904: RETURN;
2905: -- All systems go...

Line 3055: gmd_debug.put_line('Entered Procedure - GET_RSLT_AND_SPEC_RSLT');

3051:
3052: BEGIN
3053:
3054: IF (l_debug = 'Y') THEN
3055: gmd_debug.put_line('Entered Procedure - GET_RSLT_AND_SPEC_RSLT');
3056: gmd_debug.put_line('Input Parameters:');
3057: gmd_debug.put_line(' Sample ID : ' || p_sample_id);
3058: gmd_debug.put_line(' Source Spec ID: ' || p_source_spec_id);
3059: gmd_debug.put_line(' Target Spec ID: ' || p_target_spec_id);

Line 3056: gmd_debug.put_line('Input Parameters:');

3052: BEGIN
3053:
3054: IF (l_debug = 'Y') THEN
3055: gmd_debug.put_line('Entered Procedure - GET_RSLT_AND_SPEC_RSLT');
3056: gmd_debug.put_line('Input Parameters:');
3057: gmd_debug.put_line(' Sample ID : ' || p_sample_id);
3058: gmd_debug.put_line(' Source Spec ID: ' || p_source_spec_id);
3059: gmd_debug.put_line(' Target Spec ID: ' || p_target_spec_id);
3060: gmd_debug.put_line(' Event Spec ID : ' || p_event_spec_disp_id);

Line 3057: gmd_debug.put_line(' Sample ID : ' || p_sample_id);

3053:
3054: IF (l_debug = 'Y') THEN
3055: gmd_debug.put_line('Entered Procedure - GET_RSLT_AND_SPEC_RSLT');
3056: gmd_debug.put_line('Input Parameters:');
3057: gmd_debug.put_line(' Sample ID : ' || p_sample_id);
3058: gmd_debug.put_line(' Source Spec ID: ' || p_source_spec_id);
3059: gmd_debug.put_line(' Target Spec ID: ' || p_target_spec_id);
3060: gmd_debug.put_line(' Event Spec ID : ' || p_event_spec_disp_id);
3061: END IF;

Line 3058: gmd_debug.put_line(' Source Spec ID: ' || p_source_spec_id);

3054: IF (l_debug = 'Y') THEN
3055: gmd_debug.put_line('Entered Procedure - GET_RSLT_AND_SPEC_RSLT');
3056: gmd_debug.put_line('Input Parameters:');
3057: gmd_debug.put_line(' Sample ID : ' || p_sample_id);
3058: gmd_debug.put_line(' Source Spec ID: ' || p_source_spec_id);
3059: gmd_debug.put_line(' Target Spec ID: ' || p_target_spec_id);
3060: gmd_debug.put_line(' Event Spec ID : ' || p_event_spec_disp_id);
3061: END IF;
3062:

Line 3059: gmd_debug.put_line(' Target Spec ID: ' || p_target_spec_id);

3055: gmd_debug.put_line('Entered Procedure - GET_RSLT_AND_SPEC_RSLT');
3056: gmd_debug.put_line('Input Parameters:');
3057: gmd_debug.put_line(' Sample ID : ' || p_sample_id);
3058: gmd_debug.put_line(' Source Spec ID: ' || p_source_spec_id);
3059: gmd_debug.put_line(' Target Spec ID: ' || p_target_spec_id);
3060: gmd_debug.put_line(' Event Spec ID : ' || p_event_spec_disp_id);
3061: END IF;
3062:
3063: -- Initialize API return status to success

Line 3060: gmd_debug.put_line(' Event Spec ID : ' || p_event_spec_disp_id);

3056: gmd_debug.put_line('Input Parameters:');
3057: gmd_debug.put_line(' Sample ID : ' || p_sample_id);
3058: gmd_debug.put_line(' Source Spec ID: ' || p_source_spec_id);
3059: gmd_debug.put_line(' Target Spec ID: ' || p_target_spec_id);
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;

Line 3073: gmd_debug.put_line('Source Spec ID is NULL. So fetch data from GMD_RESULTS.');

3069: -- IF there is no specification associated with sample then get the information from GMD_RESULTS directly.
3070: IF (p_source_spec_id IS NULL) THEN
3071:
3072: IF (l_debug = 'Y') THEN
3073: gmd_debug.put_line('Source Spec ID is NULL. So fetch data from GMD_RESULTS.');
3074: END IF;
3075:
3076: FOR c_result_rec IN C_get_results(p_sample_id) LOOP
3077: l_results_rec_tbl(i).test_id := c_result_rec.test_id;

Line 3098: gmd_debug.put_line('Fetched Result row with RESULT ID: '|| c_result_rec.result_id );

3094: l_results_rec_tbl(i).max_num := l_qc_test.max_value_num;
3095: i := i + 1;
3096:
3097: IF (l_debug = 'Y') THEN
3098: gmd_debug.put_line('Fetched Result row with RESULT ID: '|| c_result_rec.result_id );
3099: gmd_debug.put_line(' Test Code: '|| l_qc_test.test_code ||
3100: ' Replicate: ' || c_result_rec.test_replicate_cnt );
3101: END IF;
3102:

Line 3099: gmd_debug.put_line(' Test Code: '|| l_qc_test.test_code ||

3095: i := i + 1;
3096:
3097: IF (l_debug = 'Y') THEN
3098: gmd_debug.put_line('Fetched Result row with RESULT ID: '|| c_result_rec.result_id );
3099: gmd_debug.put_line(' Test Code: '|| l_qc_test.test_code ||
3100: ' Replicate: ' || c_result_rec.test_replicate_cnt );
3101: END IF;
3102:
3103: END LOOP;

Line 3110: gmd_debug.put_line('We have the source spec, fetch data using POPULATE_RESULT_DATA_POINTS');

3106:
3107: ELSE
3108:
3109: IF (l_debug = 'Y') THEN
3110: gmd_debug.put_line('We have the source spec, fetch data using POPULATE_RESULT_DATA_POINTS');
3111: END IF;
3112:
3113: --Since we have a specification
3114: --retrieve rows in GMD_RESULTS and GMD_SPEC_RESULTS for all the tests

Line 3129: gmd_debug.put_line(' ');

3125: FOR LocalResRec IN c_res LOOP
3126: i := i + 1;
3127:
3128: IF (l_debug = 'Y') THEN
3129: gmd_debug.put_line(' ');
3130: gmd_debug.put_line('Operating on row: ' || i || ' from POPULATE_RESULT_DATA_POINTS');
3131: END IF;
3132:
3133:

Line 3130: gmd_debug.put_line('Operating on row: ' || i || ' from POPULATE_RESULT_DATA_POINTS');

3126: i := i + 1;
3127:
3128: IF (l_debug = 'Y') THEN
3129: gmd_debug.put_line(' ');
3130: gmd_debug.put_line('Operating on row: ' || i || ' from POPULATE_RESULT_DATA_POINTS');
3131: END IF;
3132:
3133:
3134: IF LocalResRec.data_num IS NOT NULL THEN

Line 3155: gmd_debug.put_line('Retrieved Test and Method info:');

3151: l_results_rec_tbl(i).method := LocalTypeRec.test_method_code;
3152: CLOSE c_get_type;
3153:
3154: IF (l_debug = 'Y') THEN
3155: gmd_debug.put_line('Retrieved Test and Method info:');
3156: gmd_debug.put_line(' Test: ' || LocalTypeRec.test_code || ' Method: ' || LocalTypeRec.test_method_code);
3157: END IF;
3158:
3159: -- Get the values for the Current Spec

Line 3156: gmd_debug.put_line(' Test: ' || LocalTypeRec.test_code || ' Method: ' || LocalTypeRec.test_method_code);

3152: CLOSE c_get_type;
3153:
3154: IF (l_debug = 'Y') THEN
3155: gmd_debug.put_line('Retrieved Test and Method info:');
3156: gmd_debug.put_line(' Test: ' || LocalTypeRec.test_code || ' Method: ' || LocalTypeRec.test_method_code);
3157: END IF;
3158:
3159: -- Get the values for the Current Spec
3160: l_spec_id := p_source_spec_id;

Line 3175: gmd_debug.put_line('Retrieved Spec info:');

3171: l_results_rec_tbl(i).display_precision:=LocalNumRec.display_precision;
3172: --END BUG#2871126
3173:
3174: IF (l_debug = 'Y') THEN
3175: gmd_debug.put_line('Retrieved Spec info:');
3176: END IF;
3177: END IF;
3178:
3179: CLOSE c_get_spec_test_num;

Line 3199: gmd_debug.put_line('The test is additional so get the display precision (' ||

3195:
3196: l_results_rec_tbl(i).display_precision := X_display_precision;
3197:
3198: IF (l_debug = 'Y') THEN
3199: gmd_debug.put_line('The test is additional so get the display precision (' ||
3200: X_display_precision || ' ) from Test');
3201: END IF;
3202:
3203: END IF;

Line 3208: gmd_debug.put_line('Now get the values for the Target Spec.');

3204: --END BUG#2871126
3205:
3206:
3207: IF (l_debug = 'Y') THEN
3208: gmd_debug.put_line('Now get the values for the Target Spec.');
3209: END IF;
3210:
3211: --Get the values for the Comparison Spec
3212: l_spec_id := p_target_spec_id;

Line 3257: gmd_debug.put_line('Got the Test and Spec info');

3253: CLOSE c_get_spec_test_char;
3254: END IF;
3255:
3256: IF (l_debug = 'Y') THEN
3257: gmd_debug.put_line('Got the Test and Spec info');
3258: END IF;
3259:
3260: l_results_rec_tbl(i).in_spec := GMD_RESULTS_GRP.rslt_is_in_spec(p_source_spec_id,
3261: l_results_rec_tbl(i).test_id,

Line 3265: gmd_debug.put_line('in spec res '||l_results_rec_tbl(i).in_spec);

3261: l_results_rec_tbl(i).test_id,
3262: l_results_rec_tbl(i).result_num,
3263: l_results_rec_tbl(i).result_char);
3264: IF (l_debug = 'Y') THEN
3265: gmd_debug.put_line('in spec res '||l_results_rec_tbl(i).in_spec);
3266: END IF;
3267: l_results_rec_tbl(i).spec_in_spec := GMD_RESULTS_GRP.rslt_is_in_spec( p_target_spec_id,
3268: l_results_rec_tbl(i).test_id,
3269: l_results_rec_tbl(i).result_num,

Line 3273: gmd_debug.put_line('A Spec In Spec Res '||l_results_rec_tbl(i).spec_in_spec);

3269: l_results_rec_tbl(i).result_num,
3270: l_results_rec_tbl(i).result_char);
3271:
3272: IF (l_debug = 'Y') THEN
3273: gmd_debug.put_line('A Spec In Spec Res '||l_results_rec_tbl(i).spec_in_spec);
3274: END IF;
3275: x_results_rec_tbl(i) := l_results_rec_tbl(i);
3276:
3277: END LOOP; -- Results test Loop

Line 3301: gmd_debug.put_line('B Spec In Spec Res '||l_results_rec_tbl(i).spec_in_spec);

3297: l_test_id,
3298: l_results_rec_tbl(i).result_num,
3299: l_results_rec_tbl(i).result_char);
3300: IF (l_debug = 'Y') THEN
3301: gmd_debug.put_line('B Spec In Spec Res '||l_results_rec_tbl(i).spec_in_spec);
3302: END IF;
3303:
3304: IF LocalTypeRec.test_type IN ('N', 'L', 'V', 'T', 'E', 'U') THEN
3305: -- Get the values for the Comparison Spec

Line 3398: gmd_debug.put_line('Entered Procedure - COMPOSITE_EXIST');

3394:
3395: BEGIN
3396:
3397: IF (l_debug = 'Y') THEN
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;

Line 3423: gmd_debug.put_line('SE ID: ' || p_sampling_event_id || ' ESD ID: ' || l_event_spec_disp_id);

3419: l_event_spec_disp_id := p_event_spec_disp_id;
3420: END IF;
3421:
3422: IF (l_debug = 'Y') THEN
3423: gmd_debug.put_line('SE ID: ' || p_sampling_event_id || ' ESD ID: ' || l_event_spec_disp_id);
3424: END IF;
3425:
3426: -- See if we have the composite for the event_spec
3427: OPEN c_composite(l_event_spec_disp_id);

Line 3432: gmd_debug.put_line('Composite Exist.');

3428: FETCH c_composite INTO dummy;
3429: IF c_composite%FOUND THEN
3430: x_composite_exist := 'Y';
3431: IF (l_debug = 'Y') THEN
3432: gmd_debug.put_line('Composite Exist.');
3433: END IF;
3434: ELSE
3435: NULL;
3436: IF (l_debug = 'Y') THEN

Line 3437: gmd_debug.put_line('Composite DOES NOT Exist.');

3433: END IF;
3434: ELSE
3435: NULL;
3436: IF (l_debug = 'Y') THEN
3437: gmd_debug.put_line('Composite DOES NOT Exist.');
3438: END IF;
3439: END IF;
3440:
3441: CLOSE c_composite;

Line 3457: gmd_debug.put_line('Composite IS NOT Valid.');

3453:
3454: IF l_recomposite_ind = 'Y' THEN
3455: x_composite_valid := 'N';
3456: IF (l_debug = 'Y') THEN
3457: gmd_debug.put_line('Composite IS NOT Valid.');
3458: END IF;
3459: ELSE
3460: x_composite_valid := 'Y';
3461: IF (l_debug = 'Y') THEN

Line 3462: gmd_debug.put_line('Composite IS Valid.');

3458: END IF;
3459: ELSE
3460: x_composite_valid := 'Y';
3461: IF (l_debug = 'Y') THEN
3462: gmd_debug.put_line('Composite IS Valid.');
3463: END IF;
3464: END IF;
3465: END IF;
3466:

Line 3468: gmd_debug.put_line('Leaving Procedure - COMPOSITE_EXIST');

3464: END IF;
3465: END IF;
3466:
3467: IF (l_debug = 'Y') THEN
3468: gmd_debug.put_line('Leaving Procedure - COMPOSITE_EXIST');
3469: END IF;
3470: RETURN;
3471:
3472: EXCEPTION

Line 3702: gmd_debug.put_line('Entered Procedure - GET_SAMPLE_IDS_FOR_SE');

3698:
3699: BEGIN
3700:
3701: IF (l_debug = 'Y') THEN
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;

Line 3716: gmd_debug.put_line(' Sampling Event ID - ' || p_sampling_event_id || ' has - ' || x_sample_ids.COUNT || ' samples.');

3712: x_sample_ids(i) := sample_rec.sample_id;
3713: i := i + 1;
3714: END LOOP;
3715: IF (l_debug = 'Y') THEN
3716: gmd_debug.put_line(' Sampling Event ID - ' || p_sampling_event_id || ' has - ' || x_sample_ids.COUNT || ' samples.');
3717: gmd_debug.put_line('Leaving Procedure - GET_SAMPLE_IDS_FOR_SE');
3718: END IF;
3719: RETURN;
3720:

Line 3717: gmd_debug.put_line('Leaving Procedure - GET_SAMPLE_IDS_FOR_SE');

3713: i := i + 1;
3714: END LOOP;
3715: IF (l_debug = 'Y') THEN
3716: gmd_debug.put_line(' Sampling Event ID - ' || p_sampling_event_id || ' has - ' || x_sample_ids.COUNT || ' samples.');
3717: gmd_debug.put_line('Leaving Procedure - GET_SAMPLE_IDS_FOR_SE');
3718: END IF;
3719: RETURN;
3720:
3721: EXCEPTION

Line 3789: gmd_debug.put_line('Entering Procedure - POPULATE_RESULT_DATA_POINTS');

3785:
3786: BEGIN
3787:
3788: IF (l_debug = 'Y') THEN
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;

Line 3833: gmd_debug.put_line(' Finding results for Sample ID - ' || p_sample_ids(i));

3829: -- GO through all the sample_ids and populate _GTMP table
3830: FOR i in 1..p_sample_ids.COUNT
3831: LOOP
3832: IF (l_debug = 'Y') THEN
3833: gmd_debug.put_line(' Finding results for Sample ID - ' || p_sample_ids(i));
3834: END IF;
3835: EXECUTE IMMEDIATE l_sql_stmt USING l_start_date, p_sample_ids(i), p_event_spec_disp_id;
3836: END LOOP;
3837:

Line 3841: gmd_debug.put_line('Leaving Procedure - POPULATE_RESULT_DATA_POINTS');

3837:
3838: dump_data_points;
3839:
3840: IF (l_debug = 'Y') THEN
3841: gmd_debug.put_line('Leaving Procedure - POPULATE_RESULT_DATA_POINTS');
3842: END IF;
3843: -- All systems GO...
3844:
3845: EXCEPTION

Line 3866: gmd_debug.put_line('Data in session table - gmd_result_data_points_gt');

3862: FROM gmd_result_data_points_gt
3863: ORDER BY TEST_ID;
3864: BEGIN
3865: IF (l_debug = 'Y') THEN
3866: gmd_debug.put_line('Data in session table - gmd_result_data_points_gt');
3867: gmd_debug.put_line('Result ID Test ID Data Num Data Char Exclude Ind');
3868: END IF;
3869:
3870: FOR c_rec IN c1

Line 3867: gmd_debug.put_line('Result ID Test ID Data Num Data Char Exclude Ind');

3863: ORDER BY TEST_ID;
3864: BEGIN
3865: IF (l_debug = 'Y') THEN
3866: gmd_debug.put_line('Data in session table - gmd_result_data_points_gt');
3867: gmd_debug.put_line('Result ID Test ID Data Num Data Char Exclude Ind');
3868: END IF;
3869:
3870: FOR c_rec IN c1
3871: LOOP

Line 3873: gmd_debug.put_line(lpad(c_rec.result_id, 9, ' ')||' '||

3869:
3870: FOR c_rec IN c1
3871: LOOP
3872: IF (l_debug = 'Y') THEN
3873: gmd_debug.put_line(lpad(c_rec.result_id, 9, ' ')||' '||
3874: lpad(c_rec.test_id, 10, ' ')||' '||
3875: lpad(nvl(c_rec.data_num, 0), 15, ' ')||' '||
3876: lpad(nvl(c_rec.data_char, 'NULL'), 13, ' ')||' '||
3877: lpad(c_rec.exclude_ind, 14, ' '));

Line 3988: gmd_debug.put_line('Entered Procedure - CREATE_COMPOSITE_ROWS');

3984:
3985: BEGIN
3986:
3987: IF (l_debug = 'Y') THEN
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;

Line 4008: gmd_debug.put_line(' ESD ID-' || p_event_spec_disp_id || ' Spec ID -' || l_spec_id);

4004: END IF;
4005: CLOSE c_spec_id;
4006:
4007: IF (l_debug = 'Y') THEN
4008: gmd_debug.put_line(' ESD ID-' || p_event_spec_disp_id || ' Spec ID -' || l_spec_id);
4009: END IF;
4010:
4011: -- Update all previous composite for this p_event_spec_disp_id as Not-Latest
4012: UPDATE gmd_composite_spec_disp

Line 4019: gmd_debug.put_line(' Changed latest_ind for old rows in gmd_composite_spec_disp');

4015: AND latest_ind = 'Y'
4016: ;
4017:
4018: IF (l_debug = 'Y') THEN
4019: gmd_debug.put_line(' Changed latest_ind for old rows in gmd_composite_spec_disp');
4020: END IF;
4021:
4022: -- Now, create a row in GMD_COMPOSITE_SPEC_DISP with latest_ind = 'Y'
4023:

Line 4046: gmd_debug.put_line(' Record inserted in GMD_COMPOSITE_SPEC_DISP, CSD ID-' || l_composite_spec_disp.composite_spec_disp_id);

4042: END IF;
4043: l_composite_spec_disp.COMPOSITE_SPEC_DISP_ID := l_out_composite_spec_disp.COMPOSITE_SPEC_DISP_ID;
4044:
4045: IF (l_debug = 'Y') THEN
4046: gmd_debug.put_line(' Record inserted in GMD_COMPOSITE_SPEC_DISP, CSD ID-' || l_composite_spec_disp.composite_spec_disp_id);
4047: END IF;
4048:
4049: -- Go through all the unique tests for this event spec disp id that
4050: -- we are compositing.

Line 4052: gmd_debug.put_line(' Start calcualting composites for each test');

4048:
4049: -- Go through all the unique tests for this event spec disp id that
4050: -- we are compositing.
4051: IF (l_debug = 'Y') THEN
4052: gmd_debug.put_line(' Start calcualting composites for each test');
4053: END IF;
4054: FOR test_rec IN c_test_data
4055: LOOP
4056: l_t_display_precision := -1;

Line 4089: gmd_debug.put_line(' Processing Test ID-' || test_rec.test_id);

4085: l_range := NULL;
4086: l_standard_deviation := NULL;
4087:
4088: IF (l_debug = 'Y') THEN
4089: gmd_debug.put_line(' Processing Test ID-' || test_rec.test_id);
4090: END IF;
4091: -- Calculate composite values
4092:
4093: -- 1. Mean

Line 4105: gmd_debug.put_line(' l_mean-'|| l_mean);

4101: IF (l_test_type in ('N', 'L', 'E')) THEN
4102: l_mean := round(l_mean, l_display_precision);
4103: END IF;
4104: IF (l_debug = 'Y') THEN
4105: gmd_debug.put_line(' l_mean-'|| l_mean);
4106: END IF;
4107:
4108: -- 2. Median
4109: qc_median( p_test_id => test_rec.test_id

Line 4118: gmd_debug.put_line(' l_median_num-'|| l_median_num ||' l_median_char-'|| l_median_char);

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;
4120:
4121: -- 3. Mode
4122: qc_mode( p_test_id => test_rec.test_id

Line 4134: gmd_debug.put_line(' l_mode_num-'|| l_mode_num ||' l_mode_char-'|| l_mode_char);

4130: IF (l_test_type in ('N', 'L', 'E')) THEN
4131: l_mode_num := round(l_mode_num, l_display_precision);
4132: END IF;
4133: IF (l_debug = 'Y') THEN
4134: gmd_debug.put_line(' l_mode_num-'|| l_mode_num ||' l_mode_char-'|| l_mode_char);
4135: END IF;
4136:
4137: -- 4. High
4138: qc_high( p_test_id => test_rec.test_id

Line 4147: gmd_debug.put_line(' l_high_num-'|| l_high_num ||' l_high_char-'|| l_high_char);

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;
4149:
4150: -- 5. Low
4151: qc_low( p_test_id => test_rec.test_id

Line 4160: gmd_debug.put_line(' l_low_num - '|| l_low_num ||' l_low_char-'|| l_low_char);

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;
4162:
4163: -- 6. Standard Deviation
4164: qc_standard_deviation( p_test_id => test_rec.test_id

Line 4176: gmd_debug.put_line(' l_standard_deviation - '|| l_standard_deviation);

4172: IF (l_test_type in ('N', 'L', 'E')) THEN
4173: l_standard_deviation := round(l_standard_deviation, l_display_precision);
4174: END IF;
4175: IF (l_debug = 'Y') THEN
4176: gmd_debug.put_line(' l_standard_deviation - '|| l_standard_deviation);
4177: END IF;
4178:
4179: -- Now, we have all the composite values for the test so create
4180: -- a new record in GMD_COMPOSITE_RESULTS

Line 4226: gmd_debug.put_line(' Record created in GMD_COMPOSITE_RESULTS. CR ID - ' || l_composite_result.composite_result_id);

4222: END IF;
4223: l_composite_result.COMPOSITE_RESULT_ID := l_out_composite_result.COMPOSITE_RESULT_ID;
4224:
4225: IF (l_debug = 'Y') THEN
4226: gmd_debug.put_line(' Record created in GMD_COMPOSITE_RESULTS. CR ID - ' || l_composite_result.composite_result_id);
4227: END IF;
4228:
4229: sample_cnt := 0;
4230:

Line 4260: gmd_debug.put_line(' Created record in GMD_COMPOSITE_RESULT_ASSOC for associated Result ID -' || result_rec.result_id);

4256: sample_cnt := sample_cnt + 1;
4257: END IF;
4258:
4259: IF (l_debug = 'Y') THEN
4260: gmd_debug.put_line(' Created record in GMD_COMPOSITE_RESULT_ASSOC for associated Result ID -' || result_rec.result_id);
4261: END IF;
4262:
4263: END LOOP; -- All atomic results for the test
4264:

Line 4276: gmd_debug.put_line('Leaving Procedure - CREATE_COMPOSITE_ROWS');

4272:
4273: END LOOP; -- All the tests which are composited across multiple samples
4274:
4275: IF (l_debug = 'Y') THEN
4276: gmd_debug.put_line('Leaving Procedure - CREATE_COMPOSITE_ROWS');
4277: END IF;
4278:
4279: RETURN;
4280:

Line 4343: gmd_debug.put_line('Entering Procedure - QC_MEAN');

4339:
4340: BEGIN
4341:
4342: IF (l_debug = 'Y') THEN
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;

Line 4361: gmd_debug.put_line('Leaving Procedure - QC_MEAN');

4357: CLOSE c_mean;
4358: END IF;
4359:
4360: IF (l_debug = 'Y') THEN
4361: gmd_debug.put_line('Leaving Procedure - QC_MEAN');
4362: END IF;
4363: RETURN;
4364:
4365: EXCEPTION

Line 4487: gmd_debug.put_line('Entering Procedure - QC_MEDIAN');

4483:
4484: BEGIN
4485:
4486: IF (l_debug = 'Y') THEN
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;

Line 4512: gmd_debug.put_line('Even data points. Go back.');

4508: -- to determine Median.
4509: IF (l_test_type = 'T' AND MOD(l_count, 2) = 0 )THEN
4510: -- Even number of data points, can't find Median, Chief!
4511: IF (l_debug = 'Y') THEN
4512: gmd_debug.put_line('Even data points. Go back.');
4513: END IF;
4514: RAISE e_even_number_data_set;
4515: END IF;
4516:

Line 4522: gmd_debug.put_line('Got the median: '|| x_median_num);

4518: OPEN c_median(p_test_id);
4519: FETCH c_median INTO x_median_num;
4520: CLOSE c_median;
4521: IF (l_debug = 'Y') THEN
4522: gmd_debug.put_line('Got the median: '|| x_median_num);
4523: END IF;
4524: END IF;
4525:
4526: IF (l_test_type = 'T') THEN

Line 4532: gmd_debug.put_line('converted the num to char: '|| x_median_char);

4528: OPEN c_num_to_text(p_test_id, x_median_num);
4529: FETCH c_num_to_text INTO x_median_char;
4530: CLOSE c_num_to_text;
4531: IF (l_debug = 'Y') THEN
4532: gmd_debug.put_line('converted the num to char: '|| x_median_char);
4533: END IF;
4534: END IF;
4535:
4536: IF (l_debug = 'Y') THEN

Line 4537: gmd_debug.put_line('Leaving Procedure - QC_MEDIAN');

4533: END IF;
4534: END IF;
4535:
4536: IF (l_debug = 'Y') THEN
4537: gmd_debug.put_line('Leaving Procedure - QC_MEDIAN');
4538: END IF;
4539:
4540: RETURN;
4541:

Line 4640: gmd_debug.put_line('Entering Procedure - QC_MODE');

4636:
4637: BEGIN
4638:
4639: IF (l_debug = 'Y') THEN
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;

Line 4685: gmd_debug.put_line('converted the num to char: '|| x_mode_char);

4681: FETCH c_num_to_text INTO x_mode_char;
4682: CLOSE c_num_to_text;
4683:
4684: IF (l_debug = 'Y') THEN
4685: gmd_debug.put_line('converted the num to char: '|| x_mode_char);
4686: END IF;
4687: END IF;
4688:
4689: IF (l_debug = 'Y') THEN

Line 4690: gmd_debug.put_line('Leaving Procedure - QC_MODE');

4686: END IF;
4687: END IF;
4688:
4689: IF (l_debug = 'Y') THEN
4690: gmd_debug.put_line('Leaving Procedure - QC_MODE');
4691: END IF;
4692:
4693: RETURN;
4694:

Line 4763: gmd_debug.put_line('Entering Procedure - QC_HIGH');

4759:
4760: BEGIN
4761:
4762: IF (l_debug = 'Y') THEN
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;

Line 4790: gmd_debug.put_line('Leaving Procedure - QC_HIGH');

4786: ;
4787: END IF;
4788:
4789: IF (l_debug = 'Y') THEN
4790: gmd_debug.put_line('Leaving Procedure - QC_HIGH');
4791: END IF;
4792:
4793: RETURN;
4794:

Line 4858: gmd_debug.put_line('Entering Procedure - QC_LOW');

4854:
4855: BEGIN
4856:
4857: IF (l_debug = 'Y') THEN
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;

Line 4885: gmd_debug.put_line('Leaving Procedure - QC_LOW');

4881: ;
4882: END IF;
4883:
4884: IF (l_debug = 'Y') THEN
4885: gmd_debug.put_line('Leaving Procedure - QC_LOW');
4886: END IF;
4887:
4888: RETURN;
4889:

Line 4948: gmd_debug.put_line('Entering Procedure - QC_STANDARD_DEVIATION');

4944:
4945: BEGIN
4946:
4947: IF (l_debug = 'Y') THEN
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;

Line 4966: gmd_debug.put_line('Leaving Procedure - QC_STANDARD_DEVIATION');

4962: CLOSE c_stddev;
4963: END IF;
4964:
4965: IF (l_debug = 'Y') THEN
4966: gmd_debug.put_line('Leaving Procedure - QC_STANDARD_DEVIATION');
4967: END IF;
4968:
4969: RETURN;
4970:

Line 5165: gmd_debug.put_line('in speca '||l_comres_tab(i).in_spec);

5161: END IF;
5162: l_comres_tab(i).in_spec := GMD_RESULTS_GRP.rslt_is_in_spec
5163: ( p_source_spec_id, l_test_id, l_comres_tab(i).result_num, l_comres_tab(i).result_char);
5164: IF (l_debug = 'Y') THEN
5165: gmd_debug.put_line('in speca '||l_comres_tab(i).in_spec);
5166: END IF;
5167: l_comres_tab(i).spec_in_spec := GMD_RESULTS_GRP.rslt_is_in_spec
5168: ( p_target_spec_id, l_test_id, l_comres_tab(i).result_num, l_comres_tab(i).result_char);
5169: IF (l_debug = 'Y') THEN

Line 5170: gmd_debug.put_line('in spec '||l_comres_tab(i).spec_in_spec);

5166: END IF;
5167: l_comres_tab(i).spec_in_spec := GMD_RESULTS_GRP.rslt_is_in_spec
5168: ( p_target_spec_id, l_test_id, l_comres_tab(i).result_num, l_comres_tab(i).result_char);
5169: IF (l_debug = 'Y') THEN
5170: gmd_debug.put_line('in spec '||l_comres_tab(i).spec_in_spec);
5171: END IF;
5172: x_comresults_tab(i) := l_comres_tab(i);
5173:
5174:

Line 5220: gmd_debug.put_line('in spec1 '||l_comres_tab(i).spec_in_spec);

5216:
5217: l_comres_tab(i).spec_in_spec := GMD_RESULTS_GRP.rslt_is_in_spec
5218: ( p_target_spec_id, l_test_id, l_comres_tab(i).result_num, l_comres_tab(i).result_char);
5219: IF (l_debug = 'Y') THEN
5220: gmd_debug.put_line('in spec1 '||l_comres_tab(i).spec_in_spec);
5221: END IF;
5222: x_comresults_tab(i) := l_comres_tab(i);
5223:
5224: END LOOP;

Line 5271: gmd_debug.put_line('Entering procedure: CHANGE_LOT_STATUS');

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;
5273:
5274: -- Get the reason code from quality configuration/parameters
5275: OPEN Cur_quality_config(p_organization_id);

Line 5285: gmd_debug.put_line(' Lot status ' || p_lot_status || ' Reason ID ' || TO_CHAR(l_reason_id));

5281: END IF; -- #1
5282: CLOSE Cur_quality_config;
5283:
5284: IF (l_debug = 'Y') THEN
5285: gmd_debug.put_line(' Lot status ' || p_lot_status || ' Reason ID ' || TO_CHAR(l_reason_id));
5286: END IF;
5287:
5288:
5289: IF p_lot_status IS NOT NULL THEN -- #3

Line 5313: gmd_debug.put_line(' Leaving Procedure: CHANGE_LOT_STATUS');

5309: END IF; -- #4
5310: END IF; -- #3
5311:
5312: IF (l_debug = 'Y') THEN
5313: gmd_debug.put_line(' Leaving Procedure: CHANGE_LOT_STATUS');
5314: END IF;
5315:
5316:
5317: EXCEPTION

Line 5412: gmd_debug.put_line('Entering procedure CHECK_EXPERIMENTAL_ERROR');

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;
5414:
5415: p_result_rec.in_fuzzy_zone := 'FALSE';
5416:

Line 5438: gmd_debug.put_line('Exp Error Type ' || p_result_rec.exp_error_type ||

5434: L_lower_bound_max := p_result_rec.spec_max_num - L_below_max;
5435: L_upper_bound_max := p_result_rec.spec_max_num + L_above_max;
5436:
5437: IF (l_debug = 'Y') THEN
5438: gmd_debug.put_line('Exp Error Type ' || p_result_rec.exp_error_type ||
5439: ' Result ' || L_result ||' Test Range ' || L_test_range);
5440: gmd_debug.put_line
5441: (' Lower Bound Min ' || L_lower_bound_min ||
5442: ' Upper Bound Min ' || L_upper_bound_min ||

Line 5440: gmd_debug.put_line

5436:
5437: IF (l_debug = 'Y') THEN
5438: gmd_debug.put_line('Exp Error Type ' || p_result_rec.exp_error_type ||
5439: ' Result ' || L_result ||' Test Range ' || L_test_range);
5440: gmd_debug.put_line
5441: (' Lower Bound Min ' || L_lower_bound_min ||
5442: ' Upper Bound Min ' || L_upper_bound_min ||
5443: ' Lower Bound Max ' || L_lower_bound_max ||
5444: ' Upper Bound Max ' || L_upper_bound_max );

Line 5475: gmd_debug.put_line('In Fuzzy Zone ' || p_result_rec.in_fuzzy_zone ||

5471: END IF; -- end if there is a value in error type,
5472: -- experimental error is optional.
5473:
5474: IF (l_debug = 'Y') THEN
5475: gmd_debug.put_line('In Fuzzy Zone ' || p_result_rec.in_fuzzy_zone ||
5476: ' Action Code ' || p_result_rec.result_action_code);
5477: END IF;
5478:
5479: EXCEPTION

Line 5624: gmd_debug.put_line('Entering procedure VALIDATE_RESULT');

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;
5626:
5627: IF p_result_rec.result IS NULL THEN
5628: --#. ===========================

Line 5691: gmd_debug.put_line('Result is within test range. Rounded value = ' || L_num_result);

5687: --END IF;
5688: END IF; -- end if within test min/max
5689:
5690: IF (l_debug = 'Y') THEN
5691: gmd_debug.put_line('Result is within test range. Rounded value = ' || L_num_result);
5692: END IF;
5693:
5694: IF p_result_rec.test_type = 'L' THEN
5695: p_result_rec.display_label := GMD_QC_TEST_VALUES_GRP.get_test_value_desc

Line 5737: gmd_debug.put_line('After call to rslt_is_is_spec, before call to check_exp_error');

5733: p_result_rec.in_spec := 'Y';
5734: END IF; -- end if not an additional test/spec or no spec
5735:
5736: IF (l_debug = 'Y') THEN
5737: gmd_debug.put_line('After call to rslt_is_is_spec, before call to check_exp_error');
5738: END IF;
5739:
5740: IF p_result_rec.test_type in ('N', 'L', 'E') THEN
5741:

Line 5802: gmd_debug.put_line('End of validate_result. In-Spec ' || p_result_rec.in_spec

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
5803: ||' Evaluation ' || p_result_rec.evaluation_ind
5804: ||' Fuzzy ' || p_result_rec.in_fuzzy_zone
5805: ||' Out of Spec ' || p_result_rec.out_of_spec);
5806: END IF;

Line 5850: gmd_debug.put_line('Entering procedure VALIDATE_EVALUATION_IND');

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);
5852: END IF;
5853:
5854: --== If no result, eval can be set only to NULL, CANCEL, VOID or

Line 5851: gmd_debug.put_line (' Evaluation Ind = ' || p_evaluation_ind);

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);
5852: END IF;
5853:
5854: --== If no result, eval can be set only to NULL, CANCEL, VOID or
5855: -- Bug 3763419 - added GUARANTEED BY MANUFACTURER

Line 6081: gmd_debug.put_line('Entering procedure CALC_EXPRESSION');

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 );
6083: END IF;
6084:
6085:

Line 6082: gmd_debug.put_line(' Sample ID = ' || p_sample_id );

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 );
6083: END IF;
6084:
6085:
6086: l_samples(1) := p_sample_id;

Line 6105: gmd_debug.put_line('about to loop thru FOR l_exp_test IN c_exp_test ');

6101: i := 0;
6102: l_test_results := TEST_RESULTS(); --QZENG Bug 6774613 Added to init the table record.
6103:
6104: IF (l_debug = 'Y') THEN
6105: gmd_debug.put_line('about to loop thru FOR l_exp_test IN c_exp_test ');
6106:
6107: END IF;
6108:
6109: -- Go through All the Expressions that are in the Sample

Line 6114: gmd_debug.put_line('calling procedure populate_result_data_points_r i = ' || i );

6110: FOR l_exp_test IN c_exp_test
6111: LOOP
6112: -- bring populate_result_data_points inside pass replicate cnt to populate_result_data_points_r so this is now inside of loop -- 14021970
6113: IF (l_debug = 'Y') THEN
6114: gmd_debug.put_line('calling procedure populate_result_data_points_r i = ' || i );
6115:
6116: END IF;
6117: populate_result_data_points_r (
6118: p_sample_ids => l_samples

Line 6126: gmd_debug.put_line('calling procedure populate_result_data_points_r l_return_status <> S ');

6122:
6123: IF (l_return_status <> 'S') THEN
6124: -- Error message is already logged
6125: IF (l_debug = 'Y') THEN
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;

Line 6398: gmd_debug.put_line('Entering procedure CHANGE_SAMPLE_DISPOSITION');

6394:
6395: BEGIN
6396:
6397: IF (l_debug = 'Y') THEN
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;

Line 6473: gmd_debug.put_line (' COUNT of tests that have result with valid evaluation: ' || l_count);

6469: AND r.delete_mark = 0
6470: ;
6471:
6472: IF (l_debug = 'Y') THEN
6473: gmd_debug.put_line (' COUNT of tests that have result with valid evaluation: ' || l_count);
6474: END IF;
6475:
6476:
6477: IF l_count = 0 THEN

Line 6639: gmd_debug.put_line (' COUNT of Incomplete Tests in Sample WITH Spec: '

6635: ;
6636: END IF; -- end if all tests from spec are complete, then check ad hoc
6637:
6638: IF (l_debug = 'Y') THEN
6639: gmd_debug.put_line (' COUNT of Incomplete Tests in Sample WITH Spec: '
6640: || l_incomplete_count_from_spec);
6641: gmd_debug.put_line (' COUNT of Incomplete Tests in Sample WITHOUT Spec: '
6642: || l_incomplete_count_additional);
6643:

Line 6641: gmd_debug.put_line (' COUNT of Incomplete Tests in Sample WITHOUT Spec: '

6637:
6638: IF (l_debug = 'Y') THEN
6639: gmd_debug.put_line (' COUNT of Incomplete Tests in Sample WITH Spec: '
6640: || l_incomplete_count_from_spec);
6641: gmd_debug.put_line (' COUNT of Incomplete Tests in Sample WITHOUT Spec: '
6642: || l_incomplete_count_additional);
6643:
6644: END IF;
6645:

Line 6659: gmd_debug.put_line (' Old disposition: ' || l_sample_spec_disp.disposition);

6655:
6656: END IF; -- Sample Disposition is Determined
6657:
6658: IF (l_debug = 'Y') THEN
6659: gmd_debug.put_line (' Old disposition: ' || l_sample_spec_disp.disposition);
6660: gmd_debug.put_line (' New disposition: ' || l_change_disp_to);
6661: END IF;
6662:
6663: -- See if the sample disposition is changing from what it was.

Line 6660: gmd_debug.put_line (' New disposition: ' || l_change_disp_to);

6656: END IF; -- Sample Disposition is Determined
6657:
6658: IF (l_debug = 'Y') THEN
6659: gmd_debug.put_line (' Old disposition: ' || l_sample_spec_disp.disposition);
6660: gmd_debug.put_line (' New disposition: ' || l_change_disp_to);
6661: END IF;
6662:
6663: -- See if the sample disposition is changing from what it was.
6664: IF (l_sample_spec_disp.disposition <> l_change_disp_to) THEN

Line 6687: gmd_debug.put_line (' Call GMD_SAMPLES_GRP.update_sample_comp_disp '|| l_sample_spec_disp.disposition);

6683:
6684:
6685:
6686: IF (l_debug = 'Y') THEN
6687: gmd_debug.put_line (' Call GMD_SAMPLES_GRP.update_sample_comp_disp '|| l_sample_spec_disp.disposition);
6688: END IF;
6689:
6690: GMD_SAMPLES_GRP.update_sample_comp_disp(
6691: p_update_disp_rec => l_update_disp_rec

Line 6698: gmd_debug.put_line ('Leaving Procedure: CHANGE_SAMPLE_DISPOSITION ' );

6694: , x_message_data => x_message_data);
6695: END IF;
6696:
6697: IF (l_debug = 'Y') THEN
6698: gmd_debug.put_line ('Leaving Procedure: CHANGE_SAMPLE_DISPOSITION ' );
6699: END IF;
6700:
6701: EXCEPTION
6702: WHEN FND_API.G_EXC_ERROR

Line 6839: gmd_debug.put_line('Entering procedure: CHANGE_DISP_FOR_AUTO_LOT.');

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;
6841:
6842: OPEN c_sample_dtl(p_sample_id);
6843: FETCH c_sample_dtl INTO l_sample_rec;

Line 6876: gmd_debug.put_line('Profile GMD: Include Optional Tests in Sample Disposition :' || l_include_optional);

6872: CLOSE get_config_opt;
6873: l_include_optional := NVL(l_config_opt,'N'); --Bug#6490789, Bug#6439776
6874:
6875: IF (l_debug = 'Y') THEN
6876: gmd_debug.put_line('Profile GMD: Include Optional Tests in Sample Disposition :' || l_include_optional);
6877: END IF;
6878:
6879: -- If all tests are accept, cancel or void --> Set to Accept.
6880: -- If all tests are accept, accept w/var,

Line 6959: gmd_debug.put_line(' Count of tests which do NOT have accept evaluation w/ SPEC :' || l_count);

6955:
6956: -- B2820787 END
6957:
6958: IF (l_debug = 'Y') THEN
6959: gmd_debug.put_line(' Count of tests which do NOT have accept evaluation w/ SPEC :' || l_count);
6960: gmd_debug.put_line(' Count of tests which do NOT have accept evaluation wo/ SPEC :' || l_count);
6961: gmd_debug.put_line(' Count of tests which do NOT have accept evaluation Total :' || l_count);
6962: END IF;
6963:

Line 6960: gmd_debug.put_line(' Count of tests which do NOT have accept evaluation wo/ SPEC :' || l_count);

6956: -- B2820787 END
6957:
6958: IF (l_debug = 'Y') THEN
6959: gmd_debug.put_line(' Count of tests which do NOT have accept evaluation w/ SPEC :' || l_count);
6960: gmd_debug.put_line(' Count of tests which do NOT have accept evaluation wo/ SPEC :' || l_count);
6961: gmd_debug.put_line(' Count of tests which do NOT have accept evaluation Total :' || l_count);
6962: END IF;
6963:
6964: -- 9668224 start In case where ct has all optional tests ONLY and when the parameter Consider Optional Test Results is un-checked

Line 6961: gmd_debug.put_line(' Count of tests which do NOT have accept evaluation Total :' || l_count);

6957:
6958: IF (l_debug = 'Y') THEN
6959: gmd_debug.put_line(' Count of tests which do NOT have accept evaluation w/ SPEC :' || l_count);
6960: gmd_debug.put_line(' Count of tests which do NOT have accept evaluation wo/ SPEC :' || l_count);
6961: gmd_debug.put_line(' Count of tests which do NOT have accept evaluation Total :' || l_count);
6962: END IF;
6963:
6964: -- 9668224 start In case where ct has all optional tests ONLY and when the parameter Consider Optional Test Results is un-checked
6965: -- disposition should stay at 'Complete'

Line 6985: gmd_debug.put_line(' Total Count of tests: ' || l_count_tests);

6981: END LOOP;
6982: CLOSE count_optional_tests;
6983:
6984: IF (l_debug = 'Y') THEN
6985: gmd_debug.put_line(' Total Count of tests: ' || l_count_tests);
6986: gmd_debug.put_line(' Count of tests which are optional : ' || L_OPTIONAL_count);
6987: END IF;
6988:
6989: IF l_count_tests <> L_OPTIONAL_count then -- This means that all test are NOT optional and parameter Consider Optional Test Results is un-checked ; only change disp to Accept. 9668224 end

Line 6986: gmd_debug.put_line(' Count of tests which are optional : ' || L_OPTIONAL_count);

6982: CLOSE count_optional_tests;
6983:
6984: IF (l_debug = 'Y') THEN
6985: gmd_debug.put_line(' Total Count of tests: ' || l_count_tests);
6986: gmd_debug.put_line(' Count of tests which are optional : ' || L_OPTIONAL_count);
6987: END IF;
6988:
6989: IF l_count_tests <> L_OPTIONAL_count then -- This means that all test are NOT optional and parameter Consider Optional Test Results is un-checked ; only change disp to Accept. 9668224 end
6990:

Line 7077: gmd_debug.put_line(' Count of tests which do NOT have accept or accept w/ var evaluation w/ SPEC :' || l_count_with_spec);

7073:
7074: -- B2820787 END
7075:
7076: IF (l_debug = 'Y') THEN
7077: gmd_debug.put_line(' Count of tests which do NOT have accept or accept w/ var evaluation w/ SPEC :' || l_count_with_spec);
7078: gmd_debug.put_line(' Count of tests which do NOT have accept or accept w/ var evaluation wo/ SPEC :' || l_count_wo_spec);
7079: gmd_debug.put_line(' Count of tests which do NOT have accept or accept w/ var evaluation Total :' || l_count);
7080: END IF;
7081:

Line 7078: gmd_debug.put_line(' Count of tests which do NOT have accept or accept w/ var evaluation wo/ SPEC :' || l_count_wo_spec);

7074: -- B2820787 END
7075:
7076: IF (l_debug = 'Y') THEN
7077: gmd_debug.put_line(' Count of tests which do NOT have accept or accept w/ var evaluation w/ SPEC :' || l_count_with_spec);
7078: gmd_debug.put_line(' Count of tests which do NOT have accept or accept w/ var evaluation wo/ SPEC :' || l_count_wo_spec);
7079: gmd_debug.put_line(' Count of tests which do NOT have accept or accept w/ var evaluation Total :' || l_count);
7080: END IF;
7081:
7082: IF l_count = 0 THEN -- #2.1

Line 7079: gmd_debug.put_line(' Count of tests which do NOT have accept or accept w/ var evaluation Total :' || l_count);

7075:
7076: IF (l_debug = 'Y') THEN
7077: gmd_debug.put_line(' Count of tests which do NOT have accept or accept w/ var evaluation w/ SPEC :' || l_count_with_spec);
7078: gmd_debug.put_line(' Count of tests which do NOT have accept or accept w/ var evaluation wo/ SPEC :' || l_count_wo_spec);
7079: gmd_debug.put_line(' Count of tests which do NOT have accept or accept w/ var evaluation Total :' || l_count);
7080: END IF;
7081:
7082: IF l_count = 0 THEN -- #2.1
7083: -- This means that all results are either 'Accept' or

Line 7105: gmd_debug.put_line(' Lot status will be changed to: ' || to_char(l_lot_status_id));

7101:
7102: END IF; -- end if all tests are accept, cancel, void or MFP #2
7103:
7104: IF (l_debug = 'Y') THEN
7105: gmd_debug.put_line(' Lot status will be changed to: ' || to_char(l_lot_status_id));
7106: END IF;
7107:
7108: x_change_disp_to := l_change_disp_to;
7109:

Line 7137: gmd_debug.put_line (' Call GMD_SAMPLES_GRP.update_sample_comp_disp '|| l_change_disp_to);

7133: l_update_disp_rec.curr_disposition := l_sample_rec.disposition;
7134:
7135:
7136: IF (l_debug = 'Y') THEN
7137: gmd_debug.put_line (' Call GMD_SAMPLES_GRP.update_sample_comp_disp '|| l_change_disp_to);
7138: END IF;
7139:
7140: GMD_SAMPLES_GRP.update_sample_comp_disp(
7141: p_update_disp_rec => l_update_disp_rec

Line 7183: gmd_debug.put_line('Leaving Procedure: CHANGE_DISP_FOR_AUTO_LOT.');

7179:
7180:
7181:
7182: IF (l_debug = 'Y') 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

Line 7308: gmd_debug.put_line('Entering procedure CHANGE_SAMPLE_DISPOSITION');

7304:
7305: BEGIN
7306:
7307: IF (l_debug = 'Y') THEN
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;

Line 7404: gmd_debug.put_line('Profile GMD: Include Optional Tests in Sample Disposition :' || l_include_optional);

7400: CLOSE get_config_opt;
7401: l_include_optional := NVL(l_config_opt,'N'); --Bug#6490789,Bug#6439776
7402:
7403: IF (l_debug = 'Y') THEN
7404: gmd_debug.put_line('Profile GMD: Include Optional Tests in Sample Disposition :' || l_include_optional);
7405: END IF;
7406:
7407: -- B2820787 START
7408: -- REPLACED FOLLOWING WITH

Line 7489: gmd_debug.put_line (' Call GMD_SAMPLES_GRP.update_sample_comp_disp '|| l_change_disp_to);

7485: l_update_disp_rec.sampling_event_id := l_sampling_event.sampling_event_id;
7486: l_update_disp_rec.curr_disposition := l_spec_dtl.disposition;
7487:
7488: IF (l_debug = 'Y') THEN
7489: gmd_debug.put_line (' Call GMD_SAMPLES_GRP.update_sample_comp_disp '|| l_change_disp_to);
7490: END IF;
7491:
7492: GMD_SAMPLES_GRP.update_sample_comp_disp(
7493: p_update_disp_rec => l_update_disp_rec

Line 7622: gmd_debug.put_line('Entering procedure update_exptest_value_null');

7618: l_result_id NUMBER(15);
7619:
7620: BEGIN
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:

Line 7660: gmd_debug.put_line('Entering Procedure - POPULATE_RESULT_DATA_POINTS_R');

7656:
7657: BEGIN
7658:
7659: IF (l_debug = 'Y') THEN
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;

Line 7700: gmd_debug.put_line(' Finding results for Sample ID = ' || p_sample_ids(i));

7696: -- GO through all the sample_ids and populate _GTMP table
7697: FOR i in 1..p_sample_ids.COUNT
7698: LOOP
7699: IF (l_debug = 'Y') THEN
7700: gmd_debug.put_line(' Finding results for Sample ID = ' || p_sample_ids(i));
7701: gmd_debug.put_line(' p_test_replicate_cnt = ' || p_test_replicate_cnt);
7702: END IF;
7703: EXECUTE IMMEDIATE l_sql_stmt USING p_sample_ids(i), p_test_replicate_cnt, p_event_spec_disp_id;
7704: END LOOP;

Line 7701: gmd_debug.put_line(' p_test_replicate_cnt = ' || p_test_replicate_cnt);

7697: FOR i in 1..p_sample_ids.COUNT
7698: LOOP
7699: IF (l_debug = 'Y') THEN
7700: gmd_debug.put_line(' Finding results for Sample ID = ' || p_sample_ids(i));
7701: gmd_debug.put_line(' p_test_replicate_cnt = ' || p_test_replicate_cnt);
7702: END IF;
7703: EXECUTE IMMEDIATE l_sql_stmt USING p_sample_ids(i), p_test_replicate_cnt, p_event_spec_disp_id;
7704: END LOOP;
7705:

Line 7709: gmd_debug.put_line('Leaving Procedure - POPULATE_RESULT_DATA_POINTS_R');

7705:
7706: dump_data_points;
7707:
7708: IF (l_debug = 'Y') THEN
7709: gmd_debug.put_line('Leaving Procedure - POPULATE_RESULT_DATA_POINTS_R');
7710: END IF;
7711: -- All systems GO...
7712:
7713: EXCEPTION