[Home] [Help]
347: -- End of comments
348:
349: PROCEDURE check_for_null_and_fks_in_stst
350: (
351: p_spec_tests IN gmd_spec_tests%ROWTYPE
352: , x_spec_tests OUT NOCOPY gmd_spec_tests%ROWTYPE
353: , x_return_status OUT NOCOPY VARCHAR2
354: ) IS
355:
348:
349: PROCEDURE check_for_null_and_fks_in_stst
350: (
351: p_spec_tests IN gmd_spec_tests%ROWTYPE
352: , x_spec_tests OUT NOCOPY gmd_spec_tests%ROWTYPE
353: , x_return_status OUT NOCOPY VARCHAR2
354: ) IS
355:
356:
378: l_test_code GMD_QC_TESTS_B.TEST_CODE%TYPE;
379: l_test_min_value_num NUMBER;
380: l_test_max_value_num NUMBER;
381: l_test_method_id NUMBER;
382: l_test_priority GMD_SPEC_TESTS_B.TEST_PRIORITY%TYPE;
383: l_test_method_replicate NUMBER;
384:
385: BEGIN
386:
966: RETURN BOOLEAN IS
967:
968: CURSOR c_class_combo (p_spec_name VARCHAR2, p_spec_vers NUMBER, p_to_uom VARCHAR2) IS
969: SELECT 1
970: FROM gmd_spec_tests_b st, mtl_units_of_measure um
971: WHERE st.spec_id = p_spec_id
972: AND st.test_id <> p_test_id
973: AND st.to_qty_uom = um.uom_code
974: AND um.uom_class =
1018: --+========================================================================+
1019: -- End of comments
1020: PROCEDURE validate_spec_test
1021: (
1022: p_spec_test IN gmd_spec_tests%ROWTYPE
1023: , p_called_from IN VARCHAR2
1024: , p_operation IN VARCHAR2
1025: , x_spec_test OUT NOCOPY gmd_spec_tests%ROWTYPE
1026: , x_return_status OUT NOCOPY VARCHAR2
1021: (
1022: p_spec_test IN gmd_spec_tests%ROWTYPE
1023: , p_called_from IN VARCHAR2
1024: , p_operation IN VARCHAR2
1025: , x_spec_test OUT NOCOPY gmd_spec_tests%ROWTYPE
1026: , x_return_status OUT NOCOPY VARCHAR2
1027: ) IS
1028:
1029: CURSOR c_spec (p_spec_name VARCHAR2, p_spec_vers NUMBER) IS
1382: x_return_status OUT NOCOPY VARCHAR2) IS
1383:
1384: CURSOR cr_expression_tests IS
1385: SELECT a.test_id,a.seq
1386: FROM GMD_SPEC_TESTS_B a , GMD_QC_TESTS_B b
1387: WHERE
1388: a.spec_id = p_spec_id
1389: AND a.test_id = b.test_id
1390: AND b.test_type = 'E' ;
1403: END IF;
1404:
1405: -- atleast one test should be present in the spec.
1406: SELECT NVL(COUNT(1),0) INTO l_test_count
1407: FROM GMD_SPEC_TESTS_B
1408: WHERE spec_id = p_spec_id ;
1409:
1410: IF l_test_count = 0 THEN
1411: FND_MESSAGE.SET_NAME('GMD','GMD_SPEC_NO_TEST');
1561: x_message_data OUT NOCOPY VARCHAR2) IS
1562:
1563: l_progress VARCHAR2(3);
1564: l_temp VARCHAR2(1);
1565: l_spec_tests GMD_SPEC_TESTS%ROWTYPE;
1566: l_spec_tests_out GMD_SPEC_TESTS%ROWTYPE;
1567: l_spec_delete_mark BINARY_INTEGER;
1568:
1569: BEGIN
1562:
1563: l_progress VARCHAR2(3);
1564: l_temp VARCHAR2(1);
1565: l_spec_tests GMD_SPEC_TESTS%ROWTYPE;
1566: l_spec_tests_out GMD_SPEC_TESTS%ROWTYPE;
1567: l_spec_delete_mark BINARY_INTEGER;
1568:
1569: BEGIN
1570: l_progress := '010';
1589: END IF;
1590:
1591: -- Fetch the row
1592: -- =============
1593: IF NOT GMD_Spec_Tests_PVT.Fetch_Row(l_spec_tests,l_spec_tests_out)
1594: THEN
1595: fnd_message.set_name('GMD','GMD_FAILED_TO_FETCH_ROW');
1596: fnd_message.set_token('L_TABLE_NAME','GMD_SPEC_TESTS');
1597: fnd_message.set_token('L_COLUMN_NAME','TEST_ID');
1592: -- =============
1593: IF NOT GMD_Spec_Tests_PVT.Fetch_Row(l_spec_tests,l_spec_tests_out)
1594: THEN
1595: fnd_message.set_name('GMD','GMD_FAILED_TO_FETCH_ROW');
1596: fnd_message.set_token('L_TABLE_NAME','GMD_SPEC_TESTS');
1597: fnd_message.set_token('L_COLUMN_NAME','TEST_ID');
1598: fnd_message.set_token('L_KEY_VALUE',l_spec_tests.test_id);
1599: fnd_msg_pub.ADD;
1600: RAISE FND_API.G_EXC_ERROR;
1669: BEGIN
1670:
1671: IF p_exclude_test_id IS NULL THEN
1672: SELECT 1 INTO dummy
1673: FROM GMD_SPEC_TESTS_B
1674: WHERE spec_id = p_spec_id
1675: AND seq = p_seq ;
1676: ELSE
1677: SELECT 1 INTO dummy
1674: WHERE spec_id = p_spec_id
1675: AND seq = p_seq ;
1676: ELSE
1677: SELECT 1 INTO dummy
1678: FROM GMD_SPEC_TESTS_B
1679: WHERE spec_id = p_spec_id
1680: AND seq = p_seq
1681: AND test_id <> p_exclude_test_id ;
1682: END IF;
1716:
1717: BEGIN
1718:
1719: SELECT 1 INTO dummy
1720: FROM GMD_SPEC_TESTS_B
1721: WHERE spec_id = p_spec_id
1722: AND test_id = p_test_id;
1723:
1724: RETURN TRUE;
1759: WHERE test_id = p_exp_test_id;
1760:
1761: CURSOR c_spec_test (p_spec_id NUMBER, p_exp_test_seq NUMBER, p_ref_test_id NUMBER) IS
1762: SELECT 1
1763: FROM GMD_SPEC_TESTS_B
1764: WHERE spec_id = p_spec_id
1765: AND test_id = p_ref_test_id
1766: AND seq < p_exp_test_seq;
1767:
2442: X_hdr_rec Cur_get_hdr%ROWTYPE;
2443:
2444: CURSOR Cur_get_dtl IS
2445: SELECT *
2446: FROM gmd_spec_tests
2447: WHERE spec_id = p_spec_id;
2448: TYPE detail_tab IS TABLE OF Cur_get_dtl%ROWTYPE INDEX BY BINARY_INTEGER;
2449: X_dtl_tbl detail_tab;
2450:
2556:
2557: l_progress := '030';
2558:
2559: FOR i IN 1..X_dtl_tbl.count LOOP
2560: GMD_SPEC_TESTS_PVT.INSERT_ROW(
2561: X_ROWID => l_rowid,
2562: X_SPEC_ID => x_spec_id,
2563: X_FROM_BASE_IND => x_dtl_tbl(i).FROM_BASE_IND,
2564: X_EXCLUDE_IND => x_dtl_tbl(i).EXCLUDE_IND,