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 757: gmd_debug.put_line('Entering procedure DELETE_RSLT_AND_SPEC_RSLT_ROWS');

753: ) IS
754: BEGIN
755:
756: IF (l_debug = 'Y') THEN
757: gmd_debug.put_line('Entering procedure DELETE_RSLT_AND_SPEC_RSLT_ROWS');
758: END IF;
759:
760: -- Initialize API return status to success
761: x_return_status := FND_API.G_RET_STS_SUCCESS;

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

766: WHERE sample_id = p_sample_id)
767: ;
768:
769: IF (l_debug = 'Y') THEN
770: gmd_debug.put_line('Rows deleted from gmd_spec_results: '|| SQL%ROWCOUNT);
771: END IF;
772:
773: DELETE gmd_results
774: WHERE sample_id = p_sample_id

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

774: WHERE sample_id = p_sample_id
775: ;
776:
777: IF (l_debug = 'Y') THEN
778: gmd_debug.put_line('Rows deleted from gmd_results: '|| SQL%ROWCOUNT);
779: END IF;
780:
781: IF (l_debug = 'Y') THEN
782: gmd_debug.put_line('Leaving procedure DELETE_RSLT_AND_SPEC_RSLT_ROWS');

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

778: gmd_debug.put_line('Rows deleted from gmd_results: '|| SQL%ROWCOUNT);
779: END IF;
780:
781: IF (l_debug = 'Y') THEN
782: gmd_debug.put_line('Leaving procedure DELETE_RSLT_AND_SPEC_RSLT_ROWS');
783: END IF;
784:
785: EXCEPTION
786: WHEN FND_API.G_EXC_ERROR THEN

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

1148:
1149: BEGIN
1150:
1151: IF (l_debug = 'Y') THEN
1152: gmd_debug.put_line('Entering procedure RSLT_IS_IN_SPEC');
1153: END IF;
1154:
1155: IF (l_debug = 'Y') THEN
1156: gmd_debug.put_line('Spec ID: ' || p_spec_id || ' Test ID: ' || p_test_id ||

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

1152: gmd_debug.put_line('Entering procedure RSLT_IS_IN_SPEC');
1153: END IF;
1154:
1155: IF (l_debug = 'Y') THEN
1156: gmd_debug.put_line('Spec ID: ' || p_spec_id || ' Test ID: ' || p_test_id ||
1157: ' Num Result: ' || p_rslt_value_num || ' Char Result: ' || p_rslt_value_char);
1158: END IF;
1159:
1160: -- Initialize return status as Out-Of-Spec

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

1191: END IF;
1192: CLOSE c_spec_test_val; */
1193:
1194: IF (l_debug = 'Y') THEN
1195: gmd_debug.put_line('Test Type: ' || l_values.test_type ||
1196: ' Min: ' || l_values.min_value_num ||
1197: ' Max: ' || l_values.max_value_num ||
1198: ' Target: ' || l_values.target_value_char);
1199: END IF;

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

1209: l_rslt_value_num := p_rslt_value_num;
1210: -- If Text Range and if the seq is not supplied then find one using Char value
1211: IF (l_values.test_type = 'T' AND l_rslt_value_num IS NULL) THEN
1212: IF (l_debug = 'Y') THEN
1213: gmd_debug.put_line('For test type T, the NUM value is missing.');
1214: END IF;
1215: OPEN c_text_to_num(p_test_id, p_rslt_value_char);
1216: FETCH c_text_to_num INTO l_rslt_value_num;
1217: IF (c_text_to_num%NOTFOUND) THEN

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

1218: CLOSE c_text_to_num;
1219: RETURN NULL;
1220: END IF;
1221: IF (l_debug = 'Y') THEN
1222: gmd_debug.put_line('For test type T, retrieved the NUM value: ' || l_rslt_value_num);
1223: END IF;
1224: CLOSE c_text_to_num;
1225: END IF; -- end if test type is T and no seq number is given
1226:

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

1230: -- The result is In-Spec
1231: x_in_spec := 'Y';
1232:
1233: IF (l_debug = 'Y') THEN
1234: gmd_debug.put_line('For N, E, and T it is IN-SPEC');
1235: END IF;
1236: END IF;
1237:
1238: ELSIF (l_values.test_type = 'L') THEN

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

1241: IF (nvl(l_values.min_value_num, p_rslt_value_num) <= p_rslt_value_num AND
1242: p_rslt_value_num <= nvl(l_values.max_value_num, p_rslt_value_num)) THEN
1243:
1244: IF (l_debug = 'Y') THEN
1245: gmd_debug.put_line('For L it is IN-SPEC AT FIRST. Lets check individual ranges.');
1246: END IF;
1247: -- num range with display can have holes in the subranges
1248: -- check that the result does not fall into one of those holes
1249: OPEN c_subranges(p_test_id, p_rslt_value_num) ;

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

1249: OPEN c_subranges(p_test_id, p_rslt_value_num) ;
1250: FETCH c_subranges INTO dummy;
1251: IF c_subranges%FOUND THEN
1252: IF (l_debug = 'Y') THEN
1253: gmd_debug.put_line('For L it is also in one of the subranges so it is IN-SPEC.');
1254: END IF;
1255: x_in_spec := 'Y';
1256: END IF;
1257: CLOSE c_subranges;

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

1261:
1262: -- List of Values
1263: IF (p_rslt_value_char = l_values.target_value_char) THEN
1264: IF (l_debug = 'Y') THEN
1265: gmd_debug.put_line('For V it is equal to Target and so it is IN-SPEC');
1266: END IF;
1267: x_in_spec := 'Y';
1268: END IF;
1269:

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

1391:
1392: BEGIN
1393:
1394: IF (l_debug = 'Y') THEN
1395: gmd_debug.put_line('Entering Procedure: ADD_TESTS_TO_SAMPLE');
1396: END IF;
1397:
1398: -- Initialize API return status to success
1399: x_return_status := FND_API.G_RET_STS_SUCCESS;

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

1461:
1462: l_seq := 0;
1463:
1464: IF (l_debug = 'Y') THEN
1465: gmd_debug.put_line('Total Number of tests to be added: '|| p_test_ids.COUNT);
1466: END IF;
1467:
1468: -- Go through all the tests
1469: FOR i in 1..p_test_ids.COUNT

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

1480: WHERE test_id = p_test_ids(i)
1481: ;
1482:
1483: IF (l_debug = 'Y') THEN
1484: gmd_debug.put_line('Working on Test ID: ' || p_test_ids(i) || ' Type: ' || l_test_type);
1485: END IF;
1486: IF (l_test_type = 'E') THEN
1487:
1488: /* -- If the test we are adding is Expression then make sure that it is not

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

1490: OPEN c_res_test(l_sample.sample_id, p_test_ids(i));
1491: FETCH c_res_test INTO dummy;
1492: IF c_res_test%FOUND THEN
1493: IF (l_debug = 'Y') THEN
1494: gmd_debug.put_line('Expression Test is already in the result set. Abort.');
1495: END IF;
1496: CLOSE c_res_test;
1497: GMD_API_PUB.Log_Message('GMD_EXP_TEST_IS_THERE');
1498: RAISE FND_API.G_EXC_ERROR;

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

1504: IF NOT all_ref_tests_exist_in_sample(p_sample_id => l_sample.sample_id,
1505: p_test_id => p_test_ids(i))
1506: THEN
1507: IF (l_debug = 'Y') THEN
1508: gmd_debug.put_line('Some of the reference tests are missing from the result set. Abort.');
1509: END IF;
1510: GMD_API_PUB.Log_Message('GMD_REF_TESTS_MISSING');
1511: RAISE FND_API.G_EXC_ERROR;
1512: END IF;

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

1527: -- Since there is no Spec, all the tests are additional
1528: l_additional_test_ind := 'Y';
1529: END IF;
1530: IF (l_debug = 'Y') THEN
1531: gmd_debug.put_line('The additional test indicator is (Y/NULL): ' || l_additional_test_ind);
1532: END IF;
1533:
1534:
1535: -- Now Construct GMD_RESULTS record

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

1554: l_test_qty_uom -- 5353784
1555: ;
1556: CLOSE c_test_method;
1557: IF (l_debug = 'Y') THEN
1558: gmd_debug.put_line('Replicate from Test Method: ' || l_replicate);
1559: END IF;
1560:
1561: -- 3. If this is not an additional test then get the replicate override
1562: -- from the Spec

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

1570: AND st.test_id = p_test_ids(i)
1571: AND st.test_method_id = tm.test_method_id
1572: ;
1573: IF (l_debug = 'Y') THEN
1574: gmd_debug.put_line('Since the test is in Spec the Replicate from Spec: ' || l_replicate);
1575: gmd_debug.put_line('Viability Duration in seconds: ' || l_viability_duration);
1576: END IF;
1577: END IF;
1578:

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

1571: AND st.test_method_id = tm.test_method_id
1572: ;
1573: IF (l_debug = 'Y') THEN
1574: gmd_debug.put_line('Since the test is in Spec the Replicate from Spec: ' || l_replicate);
1575: gmd_debug.put_line('Viability Duration in seconds: ' || l_viability_duration);
1576: END IF;
1577: END IF;
1578:
1579: -- 3.5 If this is an expression, make sure the replicate = 1

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

1636: -- insert them l_replicate times.
1637: FOR i IN 1..l_replicate
1638: LOOP
1639: IF (l_debug = 'Y') THEN
1640: gmd_debug.put_line('Inserting test for replicate: ' || l_results.TEST_REPLICATE_CNT);
1641: END IF;
1642: -- We are ready for insert in GMD_RESULTS, so then lets do it.
1643: IF NOT(GMD_RESULTS_PVT.Insert_Row(
1644: p_results => l_results,

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

1654: out_var_idx := out_var_idx + 1;
1655:
1656: x_results_tab(out_var_idx) := l_results;
1657: IF (l_debug = 'Y') THEN
1658: gmd_debug.put_line('Result record inserted, Result ID: ' || l_results.RESULT_ID);
1659: END IF;
1660:
1661: -- Assign the result_id to Spec Result record
1662: l_spec_results.RESULT_ID := l_results.RESULT_ID;

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

1670:
1671: x_spec_results_tab(out_var_idx) := l_spec_results;
1672:
1673: IF (l_debug = 'Y') THEN
1674: gmd_debug.put_line('Spec Result record inserted');
1675: END IF;
1676:
1677: -- Now increment the l_next_test_replicate_cnt
1678: l_results.TEST_REPLICATE_CNT := l_results.TEST_REPLICATE_CNT + 1;

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

1683:
1684: END LOOP; -- All the tests
1685:
1686: IF (l_debug = 'Y') THEN
1687: gmd_debug.put_line('All the tests are added. Setting *In Progress* flags');
1688: END IF;
1689:
1690: -- M.Grosser 04-May-2006: BUG 5167171 - Forward Port of BUG 5097450
1691: -- Modified code to prevent the setting of sample disposition

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

1738: WHERE sampling_event_id = l_sample.sampling_event_id
1739: ;
1740:
1741: IF (l_debug = 'Y') THEN
1742: gmd_debug.put_line('Setting *In Progress* flags completed.');
1743: END IF;
1744: END IF;
1745:
1746: IF (l_debug = 'Y') THEN

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

1743: END IF;
1744: END IF;
1745:
1746: IF (l_debug = 'Y') THEN
1747: gmd_debug.put_line('Leaving procedure: ADD_TESTS_TO_SAMPLE');
1748: END IF;
1749:
1750:
1751: EXCEPTION

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

1926:
1927: BEGIN
1928:
1929: IF (l_debug = 'Y') THEN
1930: gmd_debug.put_line('Entering Procedure ADD_TEST_TO_SAMPLES');
1931: END IF;
1932: -- Initialize API return status to success
1933: x_return_status := FND_API.G_RET_STS_SUCCESS;
1934:

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

1942:
1943: l_sample.sample_id := p_sample_ids(i);
1944:
1945: IF (l_debug = 'Y') THEN
1946: gmd_debug.put_line('Going to add test ID: ' || l_test_ids(1) || ' in Sample ID: ' || l_sample.sample_id);
1947: END IF;
1948:
1949: -- Now we have all the parameters ready for routine add_tests_to_sample
1950: add_tests_to_sample(

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

1962: RAISE FND_API.G_EXC_ERROR;
1963: END IF;
1964:
1965: IF (l_debug = 'Y') THEN
1966: gmd_debug.put_line('Ttest ID: ' || l_test_ids(1) || ' is added to Sample ID: ' || l_sample.sample_id);
1967: END IF;
1968:
1969: -- If success then assign the OUT variables received
1970: x_results_tab(i) := l_results_tab(1);

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

1972:
1973: END LOOP;
1974:
1975: IF (l_debug = 'Y') THEN
1976: gmd_debug.put_line('Leaving Procedure ADD_TEST_TO_SAMPLES');
1977: END IF;
1978:
1979: EXCEPTION
1980: WHEN FND_API.G_EXC_ERROR THEN

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

2174:
2175: BEGIN
2176:
2177: IF (l_debug = 'Y') THEN
2178: gmd_debug.put_line('Entering Procedure - MAKE_TARGET_SPEC_THE_BASE_SPEC');
2179: END IF;
2180:
2181: -- Initialize API return status to success
2182: x_return_status := FND_API.G_RET_STS_SUCCESS;

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

2199: OPEN get_organization_code(l_sample.organization_id);
2200: FETCH get_organization_code into l_organization_code;
2201: CLOSE get_organization_code;
2202:
2203: gmd_debug.put_line(' Changing base spec for Sample ID - ' || l_sample.sample_id ||
2204: ' Sample No - ' || l_organization_code
2205: || '-' || l_sample.sample_no ||
2206: ' to Target Spec - ' || p_target_spec_id ||
2207: ' Target Spec VR - ' || p_target_spec_vr_id);

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

2253: and spec_used_for_lot_attrib_ind = 'Y'
2254: ;
2255:
2256: IF (l_debug = 'Y') THEN
2257: gmd_debug.put_line(' Updated all previous gmd_event_spec_disp to NOT-Current.');
2258: END IF;
2259:
2260: -- Create a new record in GMD_EVENT_SPEC_DISP for the Target Spec
2261:

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

2286: END IF;
2287: l_event_spec_disp.EVENT_SPEC_DISP_ID := l_out_event_spec_disp.EVENT_SPEC_DISP_ID;
2288:
2289: IF (l_debug = 'Y') THEN
2290: gmd_debug.put_line(' A new record is created in GMD_EVENT_SPEC_DISP. ID - ' || l_event_spec_disp.event_spec_disp_id);
2291: END IF;
2292:
2293: END IF;
2294: CLOSE c_event_spec;

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

2314: RAISE e_sample_spec_disp_insert_err;
2315: END IF;
2316:
2317: IF (l_debug = 'Y') THEN
2318: gmd_debug.put_line(' A new record is created in GMD_SAMPLE_SPEC_DISP.');
2319: gmd_debug.put_line(' Now duplicate all current GMD_SPEC_RESULTS under new Spec.');
2320: END IF;
2321:
2322: -- Create a set of records in GMD_SPEC_RESULTS for the target Spec

Line 2319: gmd_debug.put_line(' Now duplicate all current GMD_SPEC_RESULTS under new Spec.');

2315: END IF;
2316:
2317: IF (l_debug = 'Y') THEN
2318: gmd_debug.put_line(' A new record is created in GMD_SAMPLE_SPEC_DISP.');
2319: gmd_debug.put_line(' Now duplicate all current GMD_SPEC_RESULTS under new Spec.');
2320: END IF;
2321:
2322: -- Create a set of records in GMD_SPEC_RESULTS for the target Spec
2323: -- In this run we are just creating records for all the results

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

2376: x_rec.method := LocalTypeRec.test_method_code;
2377: CLOSE c_get_type;
2378:
2379: IF (l_debug = 'Y') THEN
2380: gmd_debug.put_line('Retrieved Test and Method info:');
2381: gmd_debug.put_line(' Test: ' || LocalTypeRec.test_code || ' Method: ' || LocalTypeRec.test_method_code);
2382: END IF;
2383:
2384: l_spec_id := p_target_spec_id;

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

2377: CLOSE c_get_type;
2378:
2379: IF (l_debug = 'Y') THEN
2380: gmd_debug.put_line('Retrieved Test and Method info:');
2381: gmd_debug.put_line(' Test: ' || LocalTypeRec.test_code || ' Method: ' || LocalTypeRec.test_method_code);
2382: END IF;
2383:
2384: l_spec_id := p_target_spec_id;
2385: x_rec.spec_id := l_spec_id;

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

2406: CLOSE c_get_spec_test_char;
2407: END IF;
2408:
2409: IF (l_debug = 'Y') THEN
2410: gmd_debug.put_line('Got the Test and Spec info');
2411: END IF;
2412:
2413: OPEN c_spec_test_all(l_spec_id, l_test_id);
2414: FETCH c_spec_test_all INTO l_spec_test_all;

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

2495: RAISE e_spec_results_insert_error;
2496: END IF;
2497:
2498: IF (l_debug = 'Y') THEN
2499: gmd_debug.put_line(' A duplicate record is created in GMD_SPEC_RESULTS for Result ID - ' || l_res.result_id);
2500: END IF;
2501:
2502: END LOOP; -- For all the existing results
2503:

Line 2508: 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');

2504: -- Now create rows in GMD_RESULTS and GMD_SPEC_RESULTS for
2505: -- the tests that are missing and are part of the Target Spec
2506:
2507: IF (l_debug = 'Y') THEN
2508: 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');
2509: END IF;
2510:
2511: -- Go throug all the tests that are part of the Spec
2512: FOR l_spec_test IN c_spec_tests(p_target_spec_id)

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

2527: -- in order for Target Spec to be used.
2528: l_missing_cnt := l_spec_test.test_replicate - l_curr_replicate_cnt;
2529:
2530: IF (l_debug = 'Y') THEN
2531: gmd_debug.put_line(' Test ID - ' || l_spec_test.test_id ||
2532: ' Replicate in Spec - ' || l_spec_test.test_replicate ||
2533: ' Already times performed - ' || l_curr_replicate_cnt ||
2534: ' To be performed for times - ' || l_missing_cnt);
2535: END IF;

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

2548:
2549: END LOOP; -- Test Replicate Loop
2550:
2551: IF (l_debug = 'Y') THEN
2552: gmd_debug.put_line(' Since it needs to be performed, Test IDs table created and calling add_tests_to_sample.');
2553: END IF;
2554:
2555: -- We have all the parameter for inserting tests to a sample
2556: add_tests_to_sample

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

2567: RAISE FND_API.G_EXC_ERROR;
2568: END IF;
2569:
2570: IF (l_debug = 'Y') THEN
2571: gmd_debug.put_line(' Test template record added to both GMD_RESULTD and GMD_SPEC_RESULTS.');
2572: END IF;
2573:
2574: -- We ignore other out parameters
2575:

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

2590: RAISE FND_API.G_EXC_ERROR;
2591: END IF;
2592:
2593: IF (l_debug = 'Y') THEN
2594: gmd_debug.put_line('Leaving Procedure - MAKE_TARGET_SPEC_THE_BASE_SPEC');
2595: END IF;
2596:
2597: RETURN;
2598:

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

2672:
2673: BEGIN
2674:
2675: IF (l_debug = 'Y') THEN
2676: gmd_debug.put_line('Entered Procedure - USE_TARGET_SPEC_FOR_CMPST_RSLT');
2677: END IF;
2678:
2679: -- Initialize API return status to success
2680: x_return_status := FND_API.G_RET_STS_SUCCESS;

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

2689: END IF;
2690: CLOSE c_get_se_id;
2691:
2692: IF (l_debug = 'Y') THEN
2693: gmd_debug.put_line(' Working on SE ID - ' || l_sampling_event_id);
2694: END IF;
2695:
2696: -- Now get all the samples that are part of this Sampling Event
2697: get_sample_ids_for_se (p_sampling_event_id => l_sampling_event_id,

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

2702: RAISE FND_API.G_EXC_ERROR;
2703: END IF;
2704:
2705: IF (l_debug = 'Y') THEN
2706: gmd_debug.put_line(' There are ' || l_sample_ids.COUNT || ' samples in this SE ID.' );
2707: END IF;
2708:
2709: -- If the no of samples count is zero then error out
2710: IF (l_sample_ids.COUNT = 0) THEN

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

2715: -- Now call "make_target_spec_the_base_spec" for each sample ID
2716: FOR i in 1..l_sample_ids.COUNT
2717: LOOP
2718: IF (l_debug = 'Y') THEN
2719: gmd_debug.put_line(' Calling make_target_spec_the_base_spec for Sample ID - ' || l_sample_ids(i));
2720: END IF;
2721: -- For each sample make the target spec as base spec.
2722: make_target_spec_the_base_spec(p_sample_id => l_sample_ids(i),
2723: p_target_spec_id => p_target_spec_id,

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

2727: -- Message must have been logged so just raise an exception.
2728: RAISE FND_API.G_EXC_ERROR;
2729: END IF;
2730: IF (l_debug = 'Y') THEN
2731: gmd_debug.put_line(' Target Spec Changed for Sample ID - ' || l_sample_ids(i));
2732: END IF;
2733: END LOOP;
2734:
2735: IF (l_debug = 'Y') THEN

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

2732: END IF;
2733: END LOOP;
2734:
2735: IF (l_debug = 'Y') THEN
2736: gmd_debug.put_line('Leaving Procedure - USE_TARGET_SPEC_FOR_CMPST_RSLT');
2737: END IF;
2738:
2739: RETURN;
2740: -- All systems go...

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

2883:
2884: BEGIN
2885:
2886: IF (l_debug = 'Y') THEN
2887: gmd_debug.put_line('Entered Procedure - GET_RSLT_AND_SPEC_RSLT');
2888: gmd_debug.put_line('Input Parameters:');
2889: gmd_debug.put_line(' Sample ID : ' || p_sample_id);
2890: gmd_debug.put_line(' Source Spec ID: ' || p_source_spec_id);
2891: gmd_debug.put_line(' Target Spec ID: ' || p_target_spec_id);

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

2884: BEGIN
2885:
2886: IF (l_debug = 'Y') THEN
2887: gmd_debug.put_line('Entered Procedure - GET_RSLT_AND_SPEC_RSLT');
2888: gmd_debug.put_line('Input Parameters:');
2889: gmd_debug.put_line(' Sample ID : ' || p_sample_id);
2890: gmd_debug.put_line(' Source Spec ID: ' || p_source_spec_id);
2891: gmd_debug.put_line(' Target Spec ID: ' || p_target_spec_id);
2892: gmd_debug.put_line(' Event Spec ID : ' || p_event_spec_disp_id);

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

2885:
2886: IF (l_debug = 'Y') THEN
2887: gmd_debug.put_line('Entered Procedure - GET_RSLT_AND_SPEC_RSLT');
2888: gmd_debug.put_line('Input Parameters:');
2889: gmd_debug.put_line(' Sample ID : ' || p_sample_id);
2890: gmd_debug.put_line(' Source Spec ID: ' || p_source_spec_id);
2891: gmd_debug.put_line(' Target Spec ID: ' || p_target_spec_id);
2892: gmd_debug.put_line(' Event Spec ID : ' || p_event_spec_disp_id);
2893: END IF;

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

2886: IF (l_debug = 'Y') THEN
2887: gmd_debug.put_line('Entered Procedure - GET_RSLT_AND_SPEC_RSLT');
2888: gmd_debug.put_line('Input Parameters:');
2889: gmd_debug.put_line(' Sample ID : ' || p_sample_id);
2890: gmd_debug.put_line(' Source Spec ID: ' || p_source_spec_id);
2891: gmd_debug.put_line(' Target Spec ID: ' || p_target_spec_id);
2892: gmd_debug.put_line(' Event Spec ID : ' || p_event_spec_disp_id);
2893: END IF;
2894:

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

2887: gmd_debug.put_line('Entered Procedure - GET_RSLT_AND_SPEC_RSLT');
2888: gmd_debug.put_line('Input Parameters:');
2889: gmd_debug.put_line(' Sample ID : ' || p_sample_id);
2890: gmd_debug.put_line(' Source Spec ID: ' || p_source_spec_id);
2891: gmd_debug.put_line(' Target Spec ID: ' || p_target_spec_id);
2892: gmd_debug.put_line(' Event Spec ID : ' || p_event_spec_disp_id);
2893: END IF;
2894:
2895: -- Initialize API return status to success

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

2888: gmd_debug.put_line('Input Parameters:');
2889: gmd_debug.put_line(' Sample ID : ' || p_sample_id);
2890: gmd_debug.put_line(' Source Spec ID: ' || p_source_spec_id);
2891: gmd_debug.put_line(' Target Spec ID: ' || p_target_spec_id);
2892: gmd_debug.put_line(' Event Spec ID : ' || p_event_spec_disp_id);
2893: END IF;
2894:
2895: -- Initialize API return status to success
2896: x_return_status := FND_API.G_RET_STS_SUCCESS;

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

2901: -- IF there is no specification associated with sample then get the information from GMD_RESULTS directly.
2902: IF (p_source_spec_id IS NULL) THEN
2903:
2904: IF (l_debug = 'Y') THEN
2905: gmd_debug.put_line('Source Spec ID is NULL. So fetch data from GMD_RESULTS.');
2906: END IF;
2907:
2908: FOR c_result_rec IN C_get_results(p_sample_id) LOOP
2909: l_results_rec_tbl(i).test_id := c_result_rec.test_id;

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

2926: l_results_rec_tbl(i).max_num := l_qc_test.max_value_num;
2927: i := i + 1;
2928:
2929: IF (l_debug = 'Y') THEN
2930: gmd_debug.put_line('Fetched Result row with RESULT ID: '|| c_result_rec.result_id );
2931: gmd_debug.put_line(' Test Code: '|| l_qc_test.test_code ||
2932: ' Replicate: ' || c_result_rec.test_replicate_cnt );
2933: END IF;
2934:

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

2927: i := i + 1;
2928:
2929: IF (l_debug = 'Y') THEN
2930: gmd_debug.put_line('Fetched Result row with RESULT ID: '|| c_result_rec.result_id );
2931: gmd_debug.put_line(' Test Code: '|| l_qc_test.test_code ||
2932: ' Replicate: ' || c_result_rec.test_replicate_cnt );
2933: END IF;
2934:
2935: END LOOP;

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

2938:
2939: ELSE
2940:
2941: IF (l_debug = 'Y') THEN
2942: gmd_debug.put_line('We have the source spec, fetch data using POPULATE_RESULT_DATA_POINTS');
2943: END IF;
2944:
2945: --Since we have a specification
2946: --retrieve rows in GMD_RESULTS and GMD_SPEC_RESULTS for all the tests

Line 2961: gmd_debug.put_line(' ');

2957: FOR LocalResRec IN c_res LOOP
2958: i := i + 1;
2959:
2960: IF (l_debug = 'Y') THEN
2961: gmd_debug.put_line(' ');
2962: gmd_debug.put_line('Operating on row: ' || i || ' from POPULATE_RESULT_DATA_POINTS');
2963: END IF;
2964:
2965:

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

2958: i := i + 1;
2959:
2960: IF (l_debug = 'Y') THEN
2961: gmd_debug.put_line(' ');
2962: gmd_debug.put_line('Operating on row: ' || i || ' from POPULATE_RESULT_DATA_POINTS');
2963: END IF;
2964:
2965:
2966: IF LocalResRec.data_num IS NOT NULL THEN

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

2983: l_results_rec_tbl(i).method := LocalTypeRec.test_method_code;
2984: CLOSE c_get_type;
2985:
2986: IF (l_debug = 'Y') THEN
2987: gmd_debug.put_line('Retrieved Test and Method info:');
2988: gmd_debug.put_line(' Test: ' || LocalTypeRec.test_code || ' Method: ' || LocalTypeRec.test_method_code);
2989: END IF;
2990:
2991: -- Get the values for the Current Spec

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

2984: CLOSE c_get_type;
2985:
2986: IF (l_debug = 'Y') THEN
2987: gmd_debug.put_line('Retrieved Test and Method info:');
2988: gmd_debug.put_line(' Test: ' || LocalTypeRec.test_code || ' Method: ' || LocalTypeRec.test_method_code);
2989: END IF;
2990:
2991: -- Get the values for the Current Spec
2992: l_spec_id := p_source_spec_id;

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

3003: l_results_rec_tbl(i).display_precision:=LocalNumRec.display_precision;
3004: --END BUG#2871126
3005:
3006: IF (l_debug = 'Y') THEN
3007: gmd_debug.put_line('Retrieved Spec info:');
3008: END IF;
3009: END IF;
3010:
3011: CLOSE c_get_spec_test_num;

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

3027:
3028: l_results_rec_tbl(i).display_precision := X_display_precision;
3029:
3030: IF (l_debug = 'Y') THEN
3031: gmd_debug.put_line('The test is additional so get the display precision (' ||
3032: X_display_precision || ' ) from Test');
3033: END IF;
3034:
3035: END IF;

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

3036: --END BUG#2871126
3037:
3038:
3039: IF (l_debug = 'Y') THEN
3040: gmd_debug.put_line('Now get the values for the Target Spec.');
3041: END IF;
3042:
3043: --Get the values for the Comparison Spec
3044: l_spec_id := p_target_spec_id;

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

3085: CLOSE c_get_spec_test_char;
3086: END IF;
3087:
3088: IF (l_debug = 'Y') THEN
3089: gmd_debug.put_line('Got the Test and Spec info');
3090: END IF;
3091:
3092: l_results_rec_tbl(i).in_spec := GMD_RESULTS_GRP.rslt_is_in_spec(p_source_spec_id,
3093: l_results_rec_tbl(i).test_id,

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

3093: l_results_rec_tbl(i).test_id,
3094: l_results_rec_tbl(i).result_num,
3095: l_results_rec_tbl(i).result_char);
3096: IF (l_debug = 'Y') THEN
3097: gmd_debug.put_line('in spec res '||l_results_rec_tbl(i).in_spec);
3098: END IF;
3099: l_results_rec_tbl(i).spec_in_spec := GMD_RESULTS_GRP.rslt_is_in_spec( p_target_spec_id,
3100: l_results_rec_tbl(i).test_id,
3101: l_results_rec_tbl(i).result_num,

Line 3104: gmd_debug.put_line('spec in spec res '||l_results_rec_tbl(i).spec_in_spec);

3100: l_results_rec_tbl(i).test_id,
3101: l_results_rec_tbl(i).result_num,
3102: l_results_rec_tbl(i).result_char);
3103: IF (l_debug = 'Y') THEN
3104: gmd_debug.put_line('spec in spec res '||l_results_rec_tbl(i).spec_in_spec);
3105: END IF;
3106: x_results_rec_tbl(i) := l_results_rec_tbl(i);
3107:
3108: END LOOP; -- Results test Loop

Line 3132: gmd_debug.put_line('spec in spec res '||l_results_rec_tbl(i).spec_in_spec);

3128: l_test_id,
3129: l_results_rec_tbl(i).result_num,
3130: l_results_rec_tbl(i).result_char);
3131: IF (l_debug = 'Y') THEN
3132: gmd_debug.put_line('spec in spec res '||l_results_rec_tbl(i).spec_in_spec);
3133: END IF;
3134:
3135: IF LocalTypeRec.test_type IN ('N', 'L', 'V', 'T', 'E', 'U') THEN
3136: -- Get the values for the Comparison Spec

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

3225:
3226: BEGIN
3227:
3228: IF (l_debug = 'Y') THEN
3229: gmd_debug.put_line('Entered Procedure - COMPOSITE_EXIST');
3230: END IF;
3231:
3232: -- Initialize API return status to success
3233: x_return_status := FND_API.G_RET_STS_SUCCESS;

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

3250: l_event_spec_disp_id := p_event_spec_disp_id;
3251: END IF;
3252:
3253: IF (l_debug = 'Y') THEN
3254: gmd_debug.put_line('SE ID: ' || p_sampling_event_id || ' ESD ID: ' || l_event_spec_disp_id);
3255: END IF;
3256:
3257: -- See if we have the composite for the event_spec
3258: OPEN c_composite(l_event_spec_disp_id);

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

3259: FETCH c_composite INTO dummy;
3260: IF c_composite%FOUND THEN
3261: x_composite_exist := 'Y';
3262: IF (l_debug = 'Y') THEN
3263: gmd_debug.put_line('Composite Exist.');
3264: END IF;
3265: ELSE
3266: NULL;
3267: IF (l_debug = 'Y') THEN

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

3264: END IF;
3265: ELSE
3266: NULL;
3267: IF (l_debug = 'Y') THEN
3268: gmd_debug.put_line('Composite DOES NOT Exist.');
3269: END IF;
3270: END IF;
3271:
3272: CLOSE c_composite;

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

3284:
3285: IF l_recomposite_ind = 'Y' THEN
3286: x_composite_valid := 'N';
3287: IF (l_debug = 'Y') THEN
3288: gmd_debug.put_line('Composite IS NOT Valid.');
3289: END IF;
3290: ELSE
3291: x_composite_valid := 'Y';
3292: IF (l_debug = 'Y') THEN

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

3289: END IF;
3290: ELSE
3291: x_composite_valid := 'Y';
3292: IF (l_debug = 'Y') THEN
3293: gmd_debug.put_line('Composite IS Valid.');
3294: END IF;
3295: END IF;
3296: END IF;
3297:

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

3295: END IF;
3296: END IF;
3297:
3298: IF (l_debug = 'Y') THEN
3299: gmd_debug.put_line('Leaving Procedure - COMPOSITE_EXIST');
3300: END IF;
3301: RETURN;
3302:
3303: EXCEPTION

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

3529:
3530: BEGIN
3531:
3532: IF (l_debug = 'Y') THEN
3533: gmd_debug.put_line('Entered Procedure - GET_SAMPLE_IDS_FOR_SE');
3534: END IF;
3535:
3536: -- Initialize API return status to success
3537: x_return_status := FND_API.G_RET_STS_SUCCESS;

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

3543: x_sample_ids(i) := sample_rec.sample_id;
3544: i := i + 1;
3545: END LOOP;
3546: IF (l_debug = 'Y') THEN
3547: gmd_debug.put_line(' Sampling Event ID - ' || p_sampling_event_id || ' has - ' || x_sample_ids.COUNT || ' samples.');
3548: gmd_debug.put_line('Leaving Procedure - GET_SAMPLE_IDS_FOR_SE');
3549: END IF;
3550: RETURN;
3551:

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

3544: i := i + 1;
3545: END LOOP;
3546: IF (l_debug = 'Y') THEN
3547: gmd_debug.put_line(' Sampling Event ID - ' || p_sampling_event_id || ' has - ' || x_sample_ids.COUNT || ' samples.');
3548: gmd_debug.put_line('Leaving Procedure - GET_SAMPLE_IDS_FOR_SE');
3549: END IF;
3550: RETURN;
3551:
3552: EXCEPTION

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

3616:
3617: BEGIN
3618:
3619: IF (l_debug = 'Y') THEN
3620: gmd_debug.put_line('Entering Procedure - POPULATE_RESULT_DATA_POINTS');
3621: END IF;
3622:
3623: -- Initialize API return status to success
3624: x_return_status := FND_API.G_RET_STS_SUCCESS;

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

3660: -- GO through all the sample_ids and populate _GTMP table
3661: FOR i in 1..p_sample_ids.COUNT
3662: LOOP
3663: IF (l_debug = 'Y') THEN
3664: gmd_debug.put_line(' Finding results for Sample ID - ' || p_sample_ids(i));
3665: END IF;
3666: EXECUTE IMMEDIATE l_sql_stmt USING l_start_date, p_sample_ids(i), p_event_spec_disp_id;
3667: END LOOP;
3668:

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

3668:
3669: dump_data_points;
3670:
3671: IF (l_debug = 'Y') THEN
3672: gmd_debug.put_line('Leaving Procedure - POPULATE_RESULT_DATA_POINTS');
3673: END IF;
3674: -- All systems GO...
3675:
3676: EXCEPTION

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

3693: FROM gmd_result_data_points_gt
3694: ORDER BY TEST_ID;
3695: BEGIN
3696: IF (l_debug = 'Y') THEN
3697: gmd_debug.put_line('Data in session table - gmd_result_data_points_gt');
3698: gmd_debug.put_line('Result ID Test ID Data Num Data Char Exclude Ind');
3699: END IF;
3700:
3701: FOR c_rec IN c1

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

3694: ORDER BY TEST_ID;
3695: BEGIN
3696: IF (l_debug = 'Y') THEN
3697: gmd_debug.put_line('Data in session table - gmd_result_data_points_gt');
3698: gmd_debug.put_line('Result ID Test ID Data Num Data Char Exclude Ind');
3699: END IF;
3700:
3701: FOR c_rec IN c1
3702: LOOP

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

3700:
3701: FOR c_rec IN c1
3702: LOOP
3703: IF (l_debug = 'Y') THEN
3704: gmd_debug.put_line(lpad(c_rec.result_id, 9, ' ')||' '||
3705: lpad(c_rec.test_id, 10, ' ')||' '||
3706: lpad(nvl(c_rec.data_num, 0), 15, ' ')||' '||
3707: lpad(nvl(c_rec.data_char, 'NULL'), 13, ' ')||' '||
3708: lpad(c_rec.exclude_ind, 14, ' '));

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

3815:
3816: BEGIN
3817:
3818: IF (l_debug = 'Y') THEN
3819: gmd_debug.put_line('Entered Procedure - CREATE_COMPOSITE_ROWS');
3820: END IF;
3821:
3822: -- Initialize API return status to success
3823: x_return_status := FND_API.G_RET_STS_SUCCESS;

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

3835: END IF;
3836: CLOSE c_spec_id;
3837:
3838: IF (l_debug = 'Y') THEN
3839: gmd_debug.put_line(' ESD ID-' || p_event_spec_disp_id || ' Spec ID -' || l_spec_id);
3840: END IF;
3841:
3842: -- Update all previous composite for this p_event_spec_disp_id as Not-Latest
3843: UPDATE gmd_composite_spec_disp

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

3846: AND latest_ind = 'Y'
3847: ;
3848:
3849: IF (l_debug = 'Y') THEN
3850: gmd_debug.put_line(' Changed latest_ind for old rows in gmd_composite_spec_disp');
3851: END IF;
3852:
3853: -- Now, create a row in GMD_COMPOSITE_SPEC_DISP with latest_ind = 'Y'
3854:

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

3873: END IF;
3874: l_composite_spec_disp.COMPOSITE_SPEC_DISP_ID := l_out_composite_spec_disp.COMPOSITE_SPEC_DISP_ID;
3875:
3876: IF (l_debug = 'Y') THEN
3877: gmd_debug.put_line(' Record inserted in GMD_COMPOSITE_SPEC_DISP, CSD ID-' || l_composite_spec_disp.composite_spec_disp_id);
3878: END IF;
3879:
3880: -- Go through all the unique tests for this event spec disp id that
3881: -- we are compositing.

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

3879:
3880: -- Go through all the unique tests for this event spec disp id that
3881: -- we are compositing.
3882: IF (l_debug = 'Y') THEN
3883: gmd_debug.put_line(' Start calcualting composites for each test');
3884: END IF;
3885: FOR test_rec IN c_test_data
3886: LOOP
3887: l_t_display_precision := -1;

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

3916: l_range := NULL;
3917: l_standard_deviation := NULL;
3918:
3919: IF (l_debug = 'Y') THEN
3920: gmd_debug.put_line(' Processing Test ID-' || test_rec.test_id);
3921: END IF;
3922: -- Calculate composite values
3923:
3924: -- 1. Mean

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

3932: IF (l_test_type in ('N', 'L', 'E')) THEN
3933: l_mean := round(l_mean, l_display_precision);
3934: END IF;
3935: IF (l_debug = 'Y') THEN
3936: gmd_debug.put_line(' l_mean-'|| l_mean);
3937: END IF;
3938:
3939: -- 2. Median
3940: qc_median( p_test_id => test_rec.test_id

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

3945: IF (l_return_status <> 'S') THEN
3946: RAISE FND_API.G_EXC_ERROR;
3947: END IF;
3948: IF (l_debug = 'Y') THEN
3949: gmd_debug.put_line(' l_median_num-'|| l_median_num ||' l_median_char-'|| l_median_char);
3950: END IF;
3951:
3952: -- 3. Mode
3953: qc_mode( p_test_id => test_rec.test_id

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

3961: IF (l_test_type in ('N', 'L', 'E')) THEN
3962: l_mode_num := round(l_mode_num, l_display_precision);
3963: END IF;
3964: IF (l_debug = 'Y') THEN
3965: gmd_debug.put_line(' l_mode_num-'|| l_mode_num ||' l_mode_char-'|| l_mode_char);
3966: END IF;
3967:
3968: -- 4. High
3969: qc_high( p_test_id => test_rec.test_id

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

3974: IF (l_return_status <> 'S') THEN
3975: RAISE FND_API.G_EXC_ERROR;
3976: END IF;
3977: IF (l_debug = 'Y') THEN
3978: gmd_debug.put_line(' l_high_num-'|| l_high_num ||' l_high_char-'|| l_high_char);
3979: END IF;
3980:
3981: -- 5. Low
3982: qc_low( p_test_id => test_rec.test_id

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

3987: IF (l_return_status <> 'S') THEN
3988: RAISE FND_API.G_EXC_ERROR;
3989: END IF;
3990: IF (l_debug = 'Y') THEN
3991: gmd_debug.put_line(' l_low_num - '|| l_low_num ||' l_low_char-'|| l_low_char);
3992: END IF;
3993:
3994: -- 6. Standard Deviation
3995: qc_standard_deviation( p_test_id => test_rec.test_id

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

4003: IF (l_test_type in ('N', 'L', 'E')) THEN
4004: l_standard_deviation := round(l_standard_deviation, l_display_precision);
4005: END IF;
4006: IF (l_debug = 'Y') THEN
4007: gmd_debug.put_line(' l_standard_deviation - '|| l_standard_deviation);
4008: END IF;
4009:
4010: -- Now, we have all the composite values for the test so create
4011: -- a new record in GMD_COMPOSITE_RESULTS

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

4053: END IF;
4054: l_composite_result.COMPOSITE_RESULT_ID := l_out_composite_result.COMPOSITE_RESULT_ID;
4055:
4056: IF (l_debug = 'Y') THEN
4057: gmd_debug.put_line(' Record created in GMD_COMPOSITE_RESULTS. CR ID - ' || l_composite_result.composite_result_id);
4058: END IF;
4059:
4060: sample_cnt := 0;
4061:

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

4087: sample_cnt := sample_cnt + 1;
4088: END IF;
4089:
4090: IF (l_debug = 'Y') THEN
4091: gmd_debug.put_line(' Created record in GMD_COMPOSITE_RESULT_ASSOC for associated Result ID -' || result_rec.result_id);
4092: END IF;
4093:
4094: END LOOP; -- All atomic results for the test
4095:

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

4103:
4104: END LOOP; -- All the tests which are composited across multiple samples
4105:
4106: IF (l_debug = 'Y') THEN
4107: gmd_debug.put_line('Leaving Procedure - CREATE_COMPOSITE_ROWS');
4108: END IF;
4109:
4110: RETURN;
4111:

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

4170:
4171: BEGIN
4172:
4173: IF (l_debug = 'Y') THEN
4174: gmd_debug.put_line('Entering Procedure - QC_MEAN');
4175: END IF;
4176:
4177: -- Initialize API return status to success
4178: x_return_status := FND_API.G_RET_STS_SUCCESS;

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

4188: CLOSE c_mean;
4189: END IF;
4190:
4191: IF (l_debug = 'Y') THEN
4192: gmd_debug.put_line('Leaving Procedure - QC_MEAN');
4193: END IF;
4194: RETURN;
4195:
4196: EXCEPTION

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

4314:
4315: BEGIN
4316:
4317: IF (l_debug = 'Y') THEN
4318: gmd_debug.put_line('Entering Procedure - QC_MEDIAN');
4319: END IF;
4320:
4321: -- Initialize API return status to success
4322: x_return_status := FND_API.G_RET_STS_SUCCESS;

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

4339: -- to determine Median.
4340: IF (l_test_type = 'T' AND MOD(l_count, 2) = 0 )THEN
4341: -- Even number of data points, can't find Median, Chief!
4342: IF (l_debug = 'Y') THEN
4343: gmd_debug.put_line('Even data points. Go back.');
4344: END IF;
4345: RAISE e_even_number_data_set;
4346: END IF;
4347:

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

4349: OPEN c_median(p_test_id);
4350: FETCH c_median INTO x_median_num;
4351: CLOSE c_median;
4352: IF (l_debug = 'Y') THEN
4353: gmd_debug.put_line('Got the median: '|| x_median_num);
4354: END IF;
4355: END IF;
4356:
4357: IF (l_test_type = 'T') THEN

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

4359: OPEN c_num_to_text(p_test_id, x_median_num);
4360: FETCH c_num_to_text INTO x_median_char;
4361: CLOSE c_num_to_text;
4362: IF (l_debug = 'Y') THEN
4363: gmd_debug.put_line('converted the num to char: '|| x_median_char);
4364: END IF;
4365: END IF;
4366:
4367: IF (l_debug = 'Y') THEN

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

4364: END IF;
4365: END IF;
4366:
4367: IF (l_debug = 'Y') THEN
4368: gmd_debug.put_line('Leaving Procedure - QC_MEDIAN');
4369: END IF;
4370:
4371: RETURN;
4372:

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

4467:
4468: BEGIN
4469:
4470: IF (l_debug = 'Y') THEN
4471: gmd_debug.put_line('Entering Procedure - QC_MODE');
4472: END IF;
4473:
4474: -- Initialize API return status to success
4475: x_return_status := FND_API.G_RET_STS_SUCCESS;

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

4512: FETCH c_num_to_text INTO x_mode_char;
4513: CLOSE c_num_to_text;
4514:
4515: IF (l_debug = 'Y') THEN
4516: gmd_debug.put_line('converted the num to char: '|| x_mode_char);
4517: END IF;
4518: END IF;
4519:
4520: IF (l_debug = 'Y') THEN

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

4517: END IF;
4518: END IF;
4519:
4520: IF (l_debug = 'Y') THEN
4521: gmd_debug.put_line('Leaving Procedure - QC_MODE');
4522: END IF;
4523:
4524: RETURN;
4525:

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

4590:
4591: BEGIN
4592:
4593: IF (l_debug = 'Y') THEN
4594: gmd_debug.put_line('Entering Procedure - QC_HIGH');
4595: END IF;
4596:
4597: -- Initialize API return status to success
4598: x_return_status := FND_API.G_RET_STS_SUCCESS;

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

4617: ;
4618: END IF;
4619:
4620: IF (l_debug = 'Y') THEN
4621: gmd_debug.put_line('Leaving Procedure - QC_HIGH');
4622: END IF;
4623:
4624: RETURN;
4625:

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

4685:
4686: BEGIN
4687:
4688: IF (l_debug = 'Y') THEN
4689: gmd_debug.put_line('Entering Procedure - QC_LOW');
4690: END IF;
4691:
4692: -- Initialize API return status to success
4693: x_return_status := FND_API.G_RET_STS_SUCCESS;

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

4712: ;
4713: END IF;
4714:
4715: IF (l_debug = 'Y') THEN
4716: gmd_debug.put_line('Leaving Procedure - QC_LOW');
4717: END IF;
4718:
4719: RETURN;
4720:

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

4775:
4776: BEGIN
4777:
4778: IF (l_debug = 'Y') THEN
4779: gmd_debug.put_line('Entering Procedure - QC_STANDARD_DEVIATION');
4780: END IF;
4781:
4782: -- Initialize API return status to success
4783: x_return_status := FND_API.G_RET_STS_SUCCESS;

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

4793: CLOSE c_stddev;
4794: END IF;
4795:
4796: IF (l_debug = 'Y') THEN
4797: gmd_debug.put_line('Leaving Procedure - QC_STANDARD_DEVIATION');
4798: END IF;
4799:
4800: RETURN;
4801:

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

4992: END IF;
4993: l_comres_tab(i).in_spec := GMD_RESULTS_GRP.rslt_is_in_spec
4994: ( p_source_spec_id, l_test_id, l_comres_tab(i).result_num, l_comres_tab(i).result_char);
4995: IF (l_debug = 'Y') THEN
4996: gmd_debug.put_line('in speca '||l_comres_tab(i).in_spec);
4997: END IF;
4998: l_comres_tab(i).spec_in_spec := GMD_RESULTS_GRP.rslt_is_in_spec
4999: ( p_target_spec_id, l_test_id, l_comres_tab(i).result_num, l_comres_tab(i).result_char);
5000: IF (l_debug = 'Y') THEN

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

4997: END IF;
4998: l_comres_tab(i).spec_in_spec := GMD_RESULTS_GRP.rslt_is_in_spec
4999: ( p_target_spec_id, l_test_id, l_comres_tab(i).result_num, l_comres_tab(i).result_char);
5000: IF (l_debug = 'Y') THEN
5001: gmd_debug.put_line('in spec '||l_comres_tab(i).spec_in_spec);
5002: END IF;
5003: x_comresults_tab(i) := l_comres_tab(i);
5004:
5005:

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

5047:
5048: l_comres_tab(i).spec_in_spec := GMD_RESULTS_GRP.rslt_is_in_spec
5049: ( p_target_spec_id, l_test_id, l_comres_tab(i).result_num, l_comres_tab(i).result_char);
5050: IF (l_debug = 'Y') THEN
5051: gmd_debug.put_line('in spec1 '||l_comres_tab(i).spec_in_spec);
5052: END IF;
5053: x_comresults_tab(i) := l_comres_tab(i);
5054:
5055: END LOOP;

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

5098: -- Initialize API return status to success
5099: x_return_status := FND_API.G_RET_STS_SUCCESS;
5100:
5101: IF (l_debug = 'Y') THEN
5102: gmd_debug.put_line('Entering procedure: CHANGE_LOT_STATUS');
5103: END IF;
5104:
5105: -- Get the reason code from quality configuration/parameters
5106: OPEN Cur_quality_config(p_organization_id);

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

5112: END IF; -- #1
5113: CLOSE Cur_quality_config;
5114:
5115: IF (l_debug = 'Y') THEN
5116: gmd_debug.put_line(' Lot status ' || p_lot_status || ' Reason ID ' || TO_CHAR(l_reason_id));
5117: END IF;
5118:
5119:
5120: IF p_lot_status IS NOT NULL THEN -- #3

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

5140: END IF; -- #4
5141: END IF; -- #3
5142:
5143: IF (l_debug = 'Y') THEN
5144: gmd_debug.put_line(' Leaving Procedure: CHANGE_LOT_STATUS');
5145: END IF;
5146:
5147:
5148: EXCEPTION

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

5239: -- Initialize API return status to success
5240: x_return_status := FND_API.G_RET_STS_SUCCESS;
5241:
5242: IF (l_debug = 'Y') THEN
5243: gmd_debug.put_line('Entering procedure CHECK_EXPERIMENTAL_ERROR');
5244: END IF;
5245:
5246: p_result_rec.in_fuzzy_zone := 'FALSE';
5247:

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

5265: L_lower_bound_max := p_result_rec.spec_max_num - L_below_max;
5266: L_upper_bound_max := p_result_rec.spec_max_num + L_above_max;
5267:
5268: IF (l_debug = 'Y') THEN
5269: gmd_debug.put_line('Exp Error Type ' || p_result_rec.exp_error_type ||
5270: ' Result ' || L_result ||' Test Range ' || L_test_range);
5271: gmd_debug.put_line
5272: (' Lower Bound Min ' || L_lower_bound_min ||
5273: ' Upper Bound Min ' || L_upper_bound_min ||

Line 5271: gmd_debug.put_line

5267:
5268: IF (l_debug = 'Y') THEN
5269: gmd_debug.put_line('Exp Error Type ' || p_result_rec.exp_error_type ||
5270: ' Result ' || L_result ||' Test Range ' || L_test_range);
5271: gmd_debug.put_line
5272: (' Lower Bound Min ' || L_lower_bound_min ||
5273: ' Upper Bound Min ' || L_upper_bound_min ||
5274: ' Lower Bound Max ' || L_lower_bound_max ||
5275: ' Upper Bound Max ' || L_upper_bound_max );

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

5302: END IF; -- end if there is a value in error type,
5303: -- experimental error is optional.
5304:
5305: IF (l_debug = 'Y') THEN
5306: gmd_debug.put_line('In Fuzzy Zone ' || p_result_rec.in_fuzzy_zone ||
5307: ' Action Code ' || p_result_rec.result_action_code);
5308: END IF;
5309:
5310: EXCEPTION

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

5449: -- Initialize API return status to success
5450: x_return_status := FND_API.G_RET_STS_SUCCESS;
5451:
5452: IF (l_debug = 'Y') THEN
5453: gmd_debug.put_line('Entering procedure VALIDATE_RESULT');
5454: END IF;
5455:
5456: IF p_result_rec.result IS NULL THEN
5457: --#. ===========================

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

5516: END IF;
5517: END IF; -- end if within test min/max
5518:
5519: IF (l_debug = 'Y') THEN
5520: gmd_debug.put_line('Result is within test range. Rounded value = ' || L_num_result);
5521: END IF;
5522:
5523: IF p_result_rec.test_type = 'L' THEN
5524: p_result_rec.display_label := GMD_QC_TEST_VALUES_GRP.get_test_value_desc

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

5558: END IF;
5559: END IF; -- end if not an additional test/spec or no spec
5560:
5561: IF (l_debug = 'Y') THEN
5562: gmd_debug.put_line('After call to rslt_is_is_spec, before call to check_exp_error');
5563: END IF;
5564:
5565: IF p_result_rec.test_type in ('N', 'L', 'E') THEN
5566:

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

5623: RAISE FND_API.G_EXC_ERROR;
5624: END IF;
5625:
5626: IF (l_debug = 'Y') THEN
5627: gmd_debug.put_line('End of validate_result. In-Spec ' || p_result_rec.in_spec
5628: ||' Evaluation ' || p_result_rec.evaluation_ind
5629: ||' Fuzzy ' || p_result_rec.in_fuzzy_zone
5630: ||' Out of Spec ' || p_result_rec.out_of_spec);
5631: END IF;

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

5671: -- Initialize API return status to success
5672: x_return_status := FND_API.G_RET_STS_SUCCESS;
5673:
5674: IF (l_debug = 'Y') THEN
5675: gmd_debug.put_line('Entering procedure VALIDATE_EVALUATION_IND');
5676: gmd_debug.put_line (' Evaluation Ind = ' || p_evaluation_ind);
5677: END IF;
5678:
5679: --== If no result, eval can be set only to NULL, CANCEL, VOID or

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

5672: x_return_status := FND_API.G_RET_STS_SUCCESS;
5673:
5674: IF (l_debug = 'Y') THEN
5675: gmd_debug.put_line('Entering procedure VALIDATE_EVALUATION_IND');
5676: gmd_debug.put_line (' Evaluation Ind = ' || p_evaluation_ind);
5677: END IF;
5678:
5679: --== If no result, eval can be set only to NULL, CANCEL, VOID or
5680: -- Bug 3763419 - added GUARANTEED BY MANUFACTURER

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

5874: -- Initialize API return status to success
5875: x_return_status := FND_API.G_RET_STS_SUCCESS;
5876:
5877: IF (l_debug = 'Y') THEN
5878: gmd_debug.put_line('Entering procedure CALC_EXPRESSION');
5879: gmd_debug.put_line(' Sample ID = ' || p_sample_id );
5880: END IF;
5881:
5882:

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

5875: x_return_status := FND_API.G_RET_STS_SUCCESS;
5876:
5877: IF (l_debug = 'Y') THEN
5878: gmd_debug.put_line('Entering procedure CALC_EXPRESSION');
5879: gmd_debug.put_line(' Sample ID = ' || p_sample_id );
5880: END IF;
5881:
5882:
5883: l_samples(1) := p_sample_id;

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

6132:
6133: BEGIN
6134:
6135: IF (l_debug = 'Y') THEN
6136: gmd_debug.put_line('Entering procedure CHANGE_SAMPLE_DISPOSITION');
6137: END IF;
6138:
6139: -- Initialize API return status to success
6140: x_return_status := FND_API.G_RET_STS_SUCCESS;

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

6207: AND r.delete_mark = 0
6208: ;
6209:
6210: IF (l_debug = 'Y') THEN
6211: gmd_debug.put_line (' COUNT of tests that have result with valid evaluation: ' || l_count);
6212: END IF;
6213:
6214:
6215: IF l_count = 0 THEN

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

6314: ;
6315: END IF; -- end if all tests from spec are complete, then check ad hoc
6316:
6317: IF (l_debug = 'Y') THEN
6318: gmd_debug.put_line (' COUNT of Incomplete Tests in Sample WITH Spec: '
6319: || l_incomplete_count_from_spec);
6320: gmd_debug.put_line (' COUNT of Incomplete Tests in Sample WITHOUT Spec: '
6321: || l_incomplete_count_additional);
6322:

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

6316:
6317: IF (l_debug = 'Y') THEN
6318: gmd_debug.put_line (' COUNT of Incomplete Tests in Sample WITH Spec: '
6319: || l_incomplete_count_from_spec);
6320: gmd_debug.put_line (' COUNT of Incomplete Tests in Sample WITHOUT Spec: '
6321: || l_incomplete_count_additional);
6322:
6323: END IF;
6324:

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

6334:
6335: END IF; -- Sample Disposition is Determined
6336:
6337: IF (l_debug = 'Y') THEN
6338: gmd_debug.put_line (' Old disposition: ' || l_sample_spec_disp.disposition);
6339: gmd_debug.put_line (' New disposition: ' || l_change_disp_to);
6340: END IF;
6341:
6342: -- See if the sample disposition is changing from what it was.

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

6335: END IF; -- Sample Disposition is Determined
6336:
6337: IF (l_debug = 'Y') THEN
6338: gmd_debug.put_line (' Old disposition: ' || l_sample_spec_disp.disposition);
6339: gmd_debug.put_line (' New disposition: ' || l_change_disp_to);
6340: END IF;
6341:
6342: -- See if the sample disposition is changing from what it was.
6343: IF (l_sample_spec_disp.disposition <> l_change_disp_to) THEN

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

6362:
6363:
6364:
6365: IF (l_debug = 'Y') THEN
6366: gmd_debug.put_line (' Call GMD_SAMPLES_GRP.update_sample_comp_disp '|| l_sample_spec_disp.disposition);
6367: END IF;
6368:
6369: GMD_SAMPLES_GRP.update_sample_comp_disp(
6370: p_update_disp_rec => l_update_disp_rec

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

6373: , x_message_data => x_message_data);
6374: END IF;
6375:
6376: IF (l_debug = 'Y') THEN
6377: gmd_debug.put_line ('Leaving Procedure: CHANGE_SAMPLE_DISPOSITION ' );
6378: END IF;
6379:
6380: EXCEPTION
6381: WHEN FND_API.G_EXC_ERROR

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

6490: -- Initialize API return status to success
6491: x_return_status := FND_API.G_RET_STS_SUCCESS;
6492:
6493: IF (l_debug = 'Y') THEN
6494: gmd_debug.put_line('Entering procedure: CHANGE_DISP_FOR_AUTO_LOT.');
6495: END IF;
6496:
6497: OPEN c_sample_dtl(p_sample_id);
6498: FETCH c_sample_dtl INTO l_sample_rec;

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

6527: CLOSE get_config_opt;
6528: l_include_optional := NVL(l_config_opt,'N'); --Bug#6490789, Bug#6439776
6529:
6530: IF (l_debug = 'Y') THEN
6531: gmd_debug.put_line('Profile GMD: Include Optional Tests in Sample Disposition :' || l_include_optional);
6532: END IF;
6533:
6534: -- If all tests are accept, cancel or void --> Set to Accept.
6535: -- If all tests are accept, accept w/var,

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

6610:
6611: -- B2820787 END
6612:
6613: IF (l_debug = 'Y') THEN
6614: gmd_debug.put_line(' Count of tests which do NOT have accept evaluation w/ SPEC :' || l_count);
6615: gmd_debug.put_line(' Count of tests which do NOT have accept evaluation wo/ SPEC :' || l_count);
6616: gmd_debug.put_line(' Count of tests which do NOT have accept evaluation Total :' || l_count);
6617: END IF;
6618:

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

6611: -- B2820787 END
6612:
6613: IF (l_debug = 'Y') THEN
6614: gmd_debug.put_line(' Count of tests which do NOT have accept evaluation w/ SPEC :' || l_count);
6615: gmd_debug.put_line(' Count of tests which do NOT have accept evaluation wo/ SPEC :' || l_count);
6616: gmd_debug.put_line(' Count of tests which do NOT have accept evaluation Total :' || l_count);
6617: END IF;
6618:
6619: IF l_count = 0 THEN -- #2

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

6612:
6613: IF (l_debug = 'Y') THEN
6614: gmd_debug.put_line(' Count of tests which do NOT have accept evaluation w/ SPEC :' || l_count);
6615: gmd_debug.put_line(' Count of tests which do NOT have accept evaluation wo/ SPEC :' || l_count);
6616: gmd_debug.put_line(' Count of tests which do NOT have accept evaluation Total :' || l_count);
6617: END IF;
6618:
6619: IF l_count = 0 THEN -- #2
6620: -- This means that all results are 'Accept' so change

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

6700:
6701: -- B2820787 END
6702:
6703: IF (l_debug = 'Y') THEN
6704: gmd_debug.put_line(' Count of tests which do NOT have accept or accept w/ var evaluation w/ SPEC :' || l_count_with_spec);
6705: gmd_debug.put_line(' Count of tests which do NOT have accept or accept w/ var evaluation wo/ SPEC :' || l_count_wo_spec);
6706: gmd_debug.put_line(' Count of tests which do NOT have accept or accept w/ var evaluation Total :' || l_count);
6707: END IF;
6708:

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

6701: -- B2820787 END
6702:
6703: IF (l_debug = 'Y') THEN
6704: gmd_debug.put_line(' Count of tests which do NOT have accept or accept w/ var evaluation w/ SPEC :' || l_count_with_spec);
6705: gmd_debug.put_line(' Count of tests which do NOT have accept or accept w/ var evaluation wo/ SPEC :' || l_count_wo_spec);
6706: gmd_debug.put_line(' Count of tests which do NOT have accept or accept w/ var evaluation Total :' || l_count);
6707: END IF;
6708:
6709: IF l_count = 0 THEN -- #2.1

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

6702:
6703: IF (l_debug = 'Y') THEN
6704: gmd_debug.put_line(' Count of tests which do NOT have accept or accept w/ var evaluation w/ SPEC :' || l_count_with_spec);
6705: gmd_debug.put_line(' Count of tests which do NOT have accept or accept w/ var evaluation wo/ SPEC :' || l_count_wo_spec);
6706: gmd_debug.put_line(' Count of tests which do NOT have accept or accept w/ var evaluation Total :' || l_count);
6707: END IF;
6708:
6709: IF l_count = 0 THEN -- #2.1
6710: -- This means that all results are either 'Accept' or

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

6728:
6729: END IF; -- end if all tests are accept, cancel, void or MFP #2
6730:
6731: IF (l_debug = 'Y') THEN
6732: gmd_debug.put_line(' Lot status will be changed to: ' || to_char(l_lot_status_id));
6733: END IF;
6734:
6735: x_change_disp_to := l_change_disp_to;
6736:

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

6760: l_update_disp_rec.curr_disposition := l_sample_rec.disposition;
6761:
6762:
6763: IF (l_debug = 'Y') THEN
6764: gmd_debug.put_line (' Call GMD_SAMPLES_GRP.update_sample_comp_disp '|| l_change_disp_to);
6765: END IF;
6766:
6767: GMD_SAMPLES_GRP.update_sample_comp_disp(
6768: p_update_disp_rec => l_update_disp_rec

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

6802:
6803: --END IF; -- end if #1 if control_lot_attrib is on
6804:
6805: IF (l_debug = 'Y') THEN
6806: gmd_debug.put_line('Leaving Procedure: CHANGE_DISP_FOR_AUTO_LOT.');
6807: END IF;
6808:
6809: EXCEPTION
6810: WHEN FND_API.G_EXC_ERROR THEN

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

6927:
6928: BEGIN
6929:
6930: IF (l_debug = 'Y') THEN
6931: gmd_debug.put_line('Entering procedure CHANGE_SAMPLE_DISPOSITION');
6932: END IF;
6933:
6934: -- Initialize API return status to success
6935: x_return_status := FND_API.G_RET_STS_SUCCESS;

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

7023: CLOSE get_config_opt;
7024: l_include_optional := NVL(l_config_opt,'N'); --Bug#6490789,Bug#6439776
7025:
7026: IF (l_debug = 'Y') THEN
7027: gmd_debug.put_line('Profile GMD: Include Optional Tests in Sample Disposition :' || l_include_optional);
7028: END IF;
7029:
7030: -- B2820787 START
7031: -- REPLACED FOLLOWING WITH

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

7108: l_update_disp_rec.sampling_event_id := l_sampling_event.sampling_event_id;
7109: l_update_disp_rec.curr_disposition := l_spec_dtl.disposition;
7110:
7111: IF (l_debug = 'Y') THEN
7112: gmd_debug.put_line (' Call GMD_SAMPLES_GRP.update_sample_comp_disp '|| l_change_disp_to);
7113: END IF;
7114:
7115: GMD_SAMPLES_GRP.update_sample_comp_disp(
7116: p_update_disp_rec => l_update_disp_rec

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

7241: l_result_id NUMBER(15);
7242:
7243: BEGIN
7244:
7245: gmd_debug.put_line('Entering procedure update_exptest_value_null');
7246:
7247: --Initialize API return status to success
7248: x_return_status := FND_API.G_RET_STS_SUCCESS;
7249: