[Home] [Help]
58: , ptarget_max IN VARCHAR2 DEFAULT NULL
59: , preport_precision IN VARCHAR2 DEFAULT NULL
60: , pstore_precision IN VARCHAR2 DEFAULT NULL
61: , ptest_priority IN VARCHAR2 DEFAULT NULL
62: , p_spec_test_rec IN OUT NOCOPY gmd_spec_tests_b%ROWTYPE
63: , x_return_status OUT NOCOPY VARCHAR2
64: );
65:
66: PROCEDURE default_spectest_from_spectest (
75: , ptarget_max IN VARCHAR2 DEFAULT NULL
76: , preport_precision IN VARCHAR2 DEFAULT NULL
77: , pstore_precision IN VARCHAR2 DEFAULT NULL
78: , ptest_priority IN VARCHAR2 DEFAULT NULL
79: , p_spec_test_rec IN OUT NOCOPY gmd_spec_tests_b%ROWTYPE
80: , x_return_status OUT NOCOPY VARCHAR2
81: );
82:
83: PROCEDURE add_spec_test_rec (
83: PROCEDURE add_spec_test_rec (
84: p_spec_id IN NUMBER
85: , p_test_name IN VARCHAR2
86: , p_spec_name IN VARCHAR2
87: , p_spec_test_rec IN OUT NOCOPY gmd_spec_tests_b%ROWTYPE
88: , x_return_status OUT NOCOPY VARCHAR2
89: );
90:
91: PROCEDURE del_spec_test_rec (
95: , x_return_status OUT NOCOPY VARCHAR2
96: );
97:
98: PROCEDURE init_test_values_rec (
99: p_spec_tests_rec IN gmd_spec_tests_b%ROWTYPE
100: , x_test_values_rec IN OUT NOCOPY gmd_qm_conc_replace_pkg.test_values
101: );
102:
103: PROCEDURE insert_spec_test_rec (
100: , x_test_values_rec IN OUT NOCOPY gmd_qm_conc_replace_pkg.test_values
101: );
102:
103: PROCEDURE insert_spec_test_rec (
104: p_spec_test_rec IN gmd_spec_tests_b%ROWTYPE
105: , x_return_status OUT NOCOPY VARCHAR2
106: );
107:
108: PROCEDURE insert_new_spec_rec (
334: l_rowcount NUMBER;
335: l_error_text VARCHAR2 (2000);
336: l_dummy_cnt NUMBER;
337: -- Define different table types
338: l_spec_test_rec gmd_spec_tests_b%ROWTYPE;
339: l_gmd_test_rec gmd_qc_tests_b%ROWTYPE;
340: l_gmd_spec_rec gmd_specifications_b%ROWTYPE;
341: l_optional_ind gmd_spec_tests_b.optional_ind%TYPE;
342: l_print_spec_ind gmd_spec_tests_b.print_spec_ind%TYPE;
337: -- Define different table types
338: l_spec_test_rec gmd_spec_tests_b%ROWTYPE;
339: l_gmd_test_rec gmd_qc_tests_b%ROWTYPE;
340: l_gmd_spec_rec gmd_specifications_b%ROWTYPE;
341: l_optional_ind gmd_spec_tests_b.optional_ind%TYPE;
342: l_print_spec_ind gmd_spec_tests_b.print_spec_ind%TYPE;
343: l_print_result_ind gmd_spec_tests_b.print_result_ind%TYPE;
344: l_target_value_num gmd_spec_tests_b.target_value_num%TYPE;
345: l_target_value_char gmd_spec_tests_b.target_value_char%TYPE;
338: l_spec_test_rec gmd_spec_tests_b%ROWTYPE;
339: l_gmd_test_rec gmd_qc_tests_b%ROWTYPE;
340: l_gmd_spec_rec gmd_specifications_b%ROWTYPE;
341: l_optional_ind gmd_spec_tests_b.optional_ind%TYPE;
342: l_print_spec_ind gmd_spec_tests_b.print_spec_ind%TYPE;
343: l_print_result_ind gmd_spec_tests_b.print_result_ind%TYPE;
344: l_target_value_num gmd_spec_tests_b.target_value_num%TYPE;
345: l_target_value_char gmd_spec_tests_b.target_value_char%TYPE;
346: l_min_value_num gmd_spec_tests_b.min_value_num%TYPE;
339: l_gmd_test_rec gmd_qc_tests_b%ROWTYPE;
340: l_gmd_spec_rec gmd_specifications_b%ROWTYPE;
341: l_optional_ind gmd_spec_tests_b.optional_ind%TYPE;
342: l_print_spec_ind gmd_spec_tests_b.print_spec_ind%TYPE;
343: l_print_result_ind gmd_spec_tests_b.print_result_ind%TYPE;
344: l_target_value_num gmd_spec_tests_b.target_value_num%TYPE;
345: l_target_value_char gmd_spec_tests_b.target_value_char%TYPE;
346: l_min_value_num gmd_spec_tests_b.min_value_num%TYPE;
347: l_min_value_char gmd_spec_tests_b.min_value_char%TYPE;
340: l_gmd_spec_rec gmd_specifications_b%ROWTYPE;
341: l_optional_ind gmd_spec_tests_b.optional_ind%TYPE;
342: l_print_spec_ind gmd_spec_tests_b.print_spec_ind%TYPE;
343: l_print_result_ind gmd_spec_tests_b.print_result_ind%TYPE;
344: l_target_value_num gmd_spec_tests_b.target_value_num%TYPE;
345: l_target_value_char gmd_spec_tests_b.target_value_char%TYPE;
346: l_min_value_num gmd_spec_tests_b.min_value_num%TYPE;
347: l_min_value_char gmd_spec_tests_b.min_value_char%TYPE;
348: l_max_value_num gmd_spec_tests_b.max_value_num%TYPE;
341: l_optional_ind gmd_spec_tests_b.optional_ind%TYPE;
342: l_print_spec_ind gmd_spec_tests_b.print_spec_ind%TYPE;
343: l_print_result_ind gmd_spec_tests_b.print_result_ind%TYPE;
344: l_target_value_num gmd_spec_tests_b.target_value_num%TYPE;
345: l_target_value_char gmd_spec_tests_b.target_value_char%TYPE;
346: l_min_value_num gmd_spec_tests_b.min_value_num%TYPE;
347: l_min_value_char gmd_spec_tests_b.min_value_char%TYPE;
348: l_max_value_num gmd_spec_tests_b.max_value_num%TYPE;
349: l_max_value_char gmd_spec_tests_b.max_value_char%TYPE;
342: l_print_spec_ind gmd_spec_tests_b.print_spec_ind%TYPE;
343: l_print_result_ind gmd_spec_tests_b.print_result_ind%TYPE;
344: l_target_value_num gmd_spec_tests_b.target_value_num%TYPE;
345: l_target_value_char gmd_spec_tests_b.target_value_char%TYPE;
346: l_min_value_num gmd_spec_tests_b.min_value_num%TYPE;
347: l_min_value_char gmd_spec_tests_b.min_value_char%TYPE;
348: l_max_value_num gmd_spec_tests_b.max_value_num%TYPE;
349: l_max_value_char gmd_spec_tests_b.max_value_char%TYPE;
350: l_report_precision gmd_spec_tests_b.report_precision%TYPE;
343: l_print_result_ind gmd_spec_tests_b.print_result_ind%TYPE;
344: l_target_value_num gmd_spec_tests_b.target_value_num%TYPE;
345: l_target_value_char gmd_spec_tests_b.target_value_char%TYPE;
346: l_min_value_num gmd_spec_tests_b.min_value_num%TYPE;
347: l_min_value_char gmd_spec_tests_b.min_value_char%TYPE;
348: l_max_value_num gmd_spec_tests_b.max_value_num%TYPE;
349: l_max_value_char gmd_spec_tests_b.max_value_char%TYPE;
350: l_report_precision gmd_spec_tests_b.report_precision%TYPE;
351: l_store_precision gmd_spec_tests_b.display_precision%TYPE;
344: l_target_value_num gmd_spec_tests_b.target_value_num%TYPE;
345: l_target_value_char gmd_spec_tests_b.target_value_char%TYPE;
346: l_min_value_num gmd_spec_tests_b.min_value_num%TYPE;
347: l_min_value_char gmd_spec_tests_b.min_value_char%TYPE;
348: l_max_value_num gmd_spec_tests_b.max_value_num%TYPE;
349: l_max_value_char gmd_spec_tests_b.max_value_char%TYPE;
350: l_report_precision gmd_spec_tests_b.report_precision%TYPE;
351: l_store_precision gmd_spec_tests_b.display_precision%TYPE;
352: l_test_priority gmd_spec_tests_b.test_priority%TYPE;
345: l_target_value_char gmd_spec_tests_b.target_value_char%TYPE;
346: l_min_value_num gmd_spec_tests_b.min_value_num%TYPE;
347: l_min_value_char gmd_spec_tests_b.min_value_char%TYPE;
348: l_max_value_num gmd_spec_tests_b.max_value_num%TYPE;
349: l_max_value_char gmd_spec_tests_b.max_value_char%TYPE;
350: l_report_precision gmd_spec_tests_b.report_precision%TYPE;
351: l_store_precision gmd_spec_tests_b.display_precision%TYPE;
352: l_test_priority gmd_spec_tests_b.test_priority%TYPE;
353: l_target_min VARCHAR2 (80);
346: l_min_value_num gmd_spec_tests_b.min_value_num%TYPE;
347: l_min_value_char gmd_spec_tests_b.min_value_char%TYPE;
348: l_max_value_num gmd_spec_tests_b.max_value_num%TYPE;
349: l_max_value_char gmd_spec_tests_b.max_value_char%TYPE;
350: l_report_precision gmd_spec_tests_b.report_precision%TYPE;
351: l_store_precision gmd_spec_tests_b.display_precision%TYPE;
352: l_test_priority gmd_spec_tests_b.test_priority%TYPE;
353: l_target_min VARCHAR2 (80);
354: l_target_max VARCHAR2 (80);
347: l_min_value_char gmd_spec_tests_b.min_value_char%TYPE;
348: l_max_value_num gmd_spec_tests_b.max_value_num%TYPE;
349: l_max_value_char gmd_spec_tests_b.max_value_char%TYPE;
350: l_report_precision gmd_spec_tests_b.report_precision%TYPE;
351: l_store_precision gmd_spec_tests_b.display_precision%TYPE;
352: l_test_priority gmd_spec_tests_b.test_priority%TYPE;
353: l_target_min VARCHAR2 (80);
354: l_target_max VARCHAR2 (80);
355: l_old_status gmd_specifications_b.spec_status%TYPE;
348: l_max_value_num gmd_spec_tests_b.max_value_num%TYPE;
349: l_max_value_char gmd_spec_tests_b.max_value_char%TYPE;
350: l_report_precision gmd_spec_tests_b.report_precision%TYPE;
351: l_store_precision gmd_spec_tests_b.display_precision%TYPE;
352: l_test_priority gmd_spec_tests_b.test_priority%TYPE;
353: l_target_min VARCHAR2 (80);
354: l_target_max VARCHAR2 (80);
355: l_old_status gmd_specifications_b.spec_status%TYPE;
356: l_new_status gmd_specifications_b.spec_status%TYPE;
423: WHERE spec_id = p_spec_id;
424:
425: CURSOR check_spec_test (p_spec_id IN NUMBER, p_test_id IN NUMBER) IS
426: SELECT 1
427: FROM gmd_spec_tests_b
428: WHERE spec_id = p_spec_id
429: AND test_id = p_test_id;
430:
431: CURSOR check_spec_test2 (p_spec_id IN NUMBER, p_test_name IN VARCHAR2) IS
429: AND test_id = p_test_id;
430:
431: CURSOR check_spec_test2 (p_spec_id IN NUMBER, p_test_name IN VARCHAR2) IS
432: SELECT 1
433: FROM gmd_spec_tests_b sptst
434: , gmd_qc_tests_b tst
435: WHERE sptst.spec_id = p_spec_id
436: AND sptst.test_id = tst.test_id
437: AND tst.test_code = p_test_name;
437: AND tst.test_code = p_test_name;
438:
439: CURSOR get_spec_test_by_spec (p_spec_id IN NUMBER) IS
440: SELECT *
441: FROM gmd_spec_tests_b
442: WHERE spec_id = p_spec_id;
443:
444: -- Bug# 5882074 cursor definition to check for organization
445: CURSOR cur_check_item_org(p_org_id IN NUMBER, p_spec_id IN NUMBER) IS
606: l_select := 'select spts.* '; --Bug#5973270. Included spts.
607:
608:
609: IF l_query_test_name IS NOT NULL THEN
610: l_from := ' from gmd_spec_tests_b spts ' || ' , gmd_qc_tests qcts ';
611: l_where :=
612: ' Where spts.test_id = qcts.test_id '
613: || ' and spts.spec_id = ' || get_object_rec.object_id
614: || ' and qcts.test_code = ' || '''' || l_query_test_name || '''';
612: ' Where spts.test_id = qcts.test_id '
613: || ' and spts.spec_id = ' || get_object_rec.object_id
614: || ' and qcts.test_code = ' || '''' || l_query_test_name || '''';
615: ELSE
616: l_from := ' from gmd_spec_tests_b spts ';
617: l_where := ' Where spts.spec_id = ' || get_object_rec.object_id;
618: END IF;
619:
620: IF preplace_type in ('REPOWNER','REPOWNERORG') THEN -- Bug#6152381 added this for spec owner and owner org changes
904: default_log (' No New spec is creted ');
905: END IF;
906:
907: IF (l_new_spec = 'N') THEN
908: DEBUG (' update gmd_spec_tests_b, spec_id ' || l_spec_test_rec.spec_id);
909: DEBUG (' update gmd_spec_tests_b, test_id ' || l_spec_test_rec.test_id);
910:
911: UPDATE gmd_spec_tests_b -- 8281768 added WHO columns
912: SET optional_ind = l_test_values_rec.optional_ind
905: END IF;
906:
907: IF (l_new_spec = 'N') THEN
908: DEBUG (' update gmd_spec_tests_b, spec_id ' || l_spec_test_rec.spec_id);
909: DEBUG (' update gmd_spec_tests_b, test_id ' || l_spec_test_rec.test_id);
910:
911: UPDATE gmd_spec_tests_b -- 8281768 added WHO columns
912: SET optional_ind = l_test_values_rec.optional_ind
913: , print_spec_ind = l_test_values_rec.print_spec_ind
907: IF (l_new_spec = 'N') THEN
908: DEBUG (' update gmd_spec_tests_b, spec_id ' || l_spec_test_rec.spec_id);
909: DEBUG (' update gmd_spec_tests_b, test_id ' || l_spec_test_rec.test_id);
910:
911: UPDATE gmd_spec_tests_b -- 8281768 added WHO columns
912: SET optional_ind = l_test_values_rec.optional_ind
913: , print_spec_ind = l_test_values_rec.print_spec_ind
914: , print_result_ind = l_test_values_rec.print_result_ind
915: , target_value_num = l_test_values_rec.target_value_num
1386: END IF;
1387:
1388: -- Bug# 5882074 assign back the sequence from the old test.
1389: SELECT seq INTO l_seq
1390: FROM gmd_spec_tests_b
1391: WHERE spec_id = get_object_rec.object_id
1392: AND test_id = TO_NUMBER (pold_name);
1393:
1394: l_spec_test_rec.seq := l_seq;
1617: , ptarget_max IN VARCHAR2 DEFAULT NULL
1618: , preport_precision IN VARCHAR2 DEFAULT NULL
1619: , pstore_precision IN VARCHAR2 DEFAULT NULL
1620: , ptest_priority IN VARCHAR2 DEFAULT NULL
1621: , p_spec_test_rec IN OUT NOCOPY gmd_spec_tests_b%ROWTYPE
1622: , x_return_status OUT NOCOPY VARCHAR2
1623: ) IS
1624: l_gmd_test_rec gmd_qc_tests_b%ROWTYPE;
1625: l_spec_test_rec gmd_spec_tests_b%ROWTYPE;
1621: , p_spec_test_rec IN OUT NOCOPY gmd_spec_tests_b%ROWTYPE
1622: , x_return_status OUT NOCOPY VARCHAR2
1623: ) IS
1624: l_gmd_test_rec gmd_qc_tests_b%ROWTYPE;
1625: l_spec_test_rec gmd_spec_tests_b%ROWTYPE;
1626: l_test_values_rec gmd_qm_conc_replace_pkg.test_values;
1627: l_seq NUMBER;
1628:
1629: CURSOR get_gmd_test (p_test_name IN VARCHAR2) IS
1800:
1801: l_seq := 0;
1802: SELECT MAX (seq) + 10
1803: INTO l_seq
1804: FROM gmd_spec_tests_b
1805: WHERE spec_id = p_spec_id;
1806:
1807: l_spec_test_rec.min_value_char := l_test_values_rec.min_value_char;
1808: l_spec_test_rec.max_value_char := l_test_values_rec.max_value_char;
1908: , ptarget_max IN VARCHAR2 DEFAULT NULL
1909: , preport_precision IN VARCHAR2 DEFAULT NULL
1910: , pstore_precision IN VARCHAR2 DEFAULT NULL
1911: , ptest_priority IN VARCHAR2 DEFAULT NULL
1912: , p_spec_test_rec IN OUT NOCOPY gmd_spec_tests_b%ROWTYPE
1913: , x_return_status OUT NOCOPY VARCHAR2
1914: ) IS
1915: l_from_spec_test_rec gmd_spec_tests_b%ROWTYPE;
1916: l_to_spec_test_rec gmd_spec_tests_b%ROWTYPE;
1911: , ptest_priority IN VARCHAR2 DEFAULT NULL
1912: , p_spec_test_rec IN OUT NOCOPY gmd_spec_tests_b%ROWTYPE
1913: , x_return_status OUT NOCOPY VARCHAR2
1914: ) IS
1915: l_from_spec_test_rec gmd_spec_tests_b%ROWTYPE;
1916: l_to_spec_test_rec gmd_spec_tests_b%ROWTYPE;
1917: l_gmd_test_rec gmd_qc_tests_b%ROWTYPE;
1918: l_test_values_rec gmd_qm_conc_replace_pkg.test_values;
1919: l_row_id VARCHAR2 (200);
1912: , p_spec_test_rec IN OUT NOCOPY gmd_spec_tests_b%ROWTYPE
1913: , x_return_status OUT NOCOPY VARCHAR2
1914: ) IS
1915: l_from_spec_test_rec gmd_spec_tests_b%ROWTYPE;
1916: l_to_spec_test_rec gmd_spec_tests_b%ROWTYPE;
1917: l_gmd_test_rec gmd_qc_tests_b%ROWTYPE;
1918: l_test_values_rec gmd_qm_conc_replace_pkg.test_values;
1919: l_row_id VARCHAR2 (200);
1920:
1919: l_row_id VARCHAR2 (200);
1920:
1921: CURSOR get_spec_test_rec (p_spec_id IN NUMBER, p_test_id IN NUMBER) IS
1922: SELECT *
1923: FROM gmd_spec_tests_b
1924: WHERE spec_id = p_spec_id
1925: AND test_id = p_test_id;
1926:
1927: CURSOR get_test_rec (p_test_name IN VARCHAR2) IS
2010: , ptest_priority IN VARCHAR2 DEFAULT NULL
2011: , x_return_status OUT NOCOPY VARCHAR2
2012: , x_test_values_rec IN OUT NOCOPY gmd_qm_conc_replace_pkg.test_values
2013: ) IS
2014: l_optional_ind gmd_spec_tests_b.optional_ind%TYPE;
2015: l_print_spec_ind gmd_spec_tests_b.print_spec_ind%TYPE;
2016: l_print_result_ind gmd_spec_tests_b.print_result_ind%TYPE;
2017: l_target_value_num gmd_spec_tests_b.target_value_num%TYPE;
2018: l_target_value_char gmd_spec_tests_b.target_value_char%TYPE;
2011: , x_return_status OUT NOCOPY VARCHAR2
2012: , x_test_values_rec IN OUT NOCOPY gmd_qm_conc_replace_pkg.test_values
2013: ) IS
2014: l_optional_ind gmd_spec_tests_b.optional_ind%TYPE;
2015: l_print_spec_ind gmd_spec_tests_b.print_spec_ind%TYPE;
2016: l_print_result_ind gmd_spec_tests_b.print_result_ind%TYPE;
2017: l_target_value_num gmd_spec_tests_b.target_value_num%TYPE;
2018: l_target_value_char gmd_spec_tests_b.target_value_char%TYPE;
2019: l_min_value_num gmd_spec_tests_b.min_value_num%TYPE;
2012: , x_test_values_rec IN OUT NOCOPY gmd_qm_conc_replace_pkg.test_values
2013: ) IS
2014: l_optional_ind gmd_spec_tests_b.optional_ind%TYPE;
2015: l_print_spec_ind gmd_spec_tests_b.print_spec_ind%TYPE;
2016: l_print_result_ind gmd_spec_tests_b.print_result_ind%TYPE;
2017: l_target_value_num gmd_spec_tests_b.target_value_num%TYPE;
2018: l_target_value_char gmd_spec_tests_b.target_value_char%TYPE;
2019: l_min_value_num gmd_spec_tests_b.min_value_num%TYPE;
2020: l_min_value_char gmd_spec_tests_b.min_value_char%TYPE;
2013: ) IS
2014: l_optional_ind gmd_spec_tests_b.optional_ind%TYPE;
2015: l_print_spec_ind gmd_spec_tests_b.print_spec_ind%TYPE;
2016: l_print_result_ind gmd_spec_tests_b.print_result_ind%TYPE;
2017: l_target_value_num gmd_spec_tests_b.target_value_num%TYPE;
2018: l_target_value_char gmd_spec_tests_b.target_value_char%TYPE;
2019: l_min_value_num gmd_spec_tests_b.min_value_num%TYPE;
2020: l_min_value_char gmd_spec_tests_b.min_value_char%TYPE;
2021: l_max_value_num gmd_spec_tests_b.max_value_num%TYPE;
2014: l_optional_ind gmd_spec_tests_b.optional_ind%TYPE;
2015: l_print_spec_ind gmd_spec_tests_b.print_spec_ind%TYPE;
2016: l_print_result_ind gmd_spec_tests_b.print_result_ind%TYPE;
2017: l_target_value_num gmd_spec_tests_b.target_value_num%TYPE;
2018: l_target_value_char gmd_spec_tests_b.target_value_char%TYPE;
2019: l_min_value_num gmd_spec_tests_b.min_value_num%TYPE;
2020: l_min_value_char gmd_spec_tests_b.min_value_char%TYPE;
2021: l_max_value_num gmd_spec_tests_b.max_value_num%TYPE;
2022: l_max_value_char gmd_spec_tests_b.max_value_char%TYPE;
2015: l_print_spec_ind gmd_spec_tests_b.print_spec_ind%TYPE;
2016: l_print_result_ind gmd_spec_tests_b.print_result_ind%TYPE;
2017: l_target_value_num gmd_spec_tests_b.target_value_num%TYPE;
2018: l_target_value_char gmd_spec_tests_b.target_value_char%TYPE;
2019: l_min_value_num gmd_spec_tests_b.min_value_num%TYPE;
2020: l_min_value_char gmd_spec_tests_b.min_value_char%TYPE;
2021: l_max_value_num gmd_spec_tests_b.max_value_num%TYPE;
2022: l_max_value_char gmd_spec_tests_b.max_value_char%TYPE;
2023: l_report_precision gmd_spec_tests_b.report_precision%TYPE;
2016: l_print_result_ind gmd_spec_tests_b.print_result_ind%TYPE;
2017: l_target_value_num gmd_spec_tests_b.target_value_num%TYPE;
2018: l_target_value_char gmd_spec_tests_b.target_value_char%TYPE;
2019: l_min_value_num gmd_spec_tests_b.min_value_num%TYPE;
2020: l_min_value_char gmd_spec_tests_b.min_value_char%TYPE;
2021: l_max_value_num gmd_spec_tests_b.max_value_num%TYPE;
2022: l_max_value_char gmd_spec_tests_b.max_value_char%TYPE;
2023: l_report_precision gmd_spec_tests_b.report_precision%TYPE;
2024: l_store_precision gmd_spec_tests_b.display_precision%TYPE;
2017: l_target_value_num gmd_spec_tests_b.target_value_num%TYPE;
2018: l_target_value_char gmd_spec_tests_b.target_value_char%TYPE;
2019: l_min_value_num gmd_spec_tests_b.min_value_num%TYPE;
2020: l_min_value_char gmd_spec_tests_b.min_value_char%TYPE;
2021: l_max_value_num gmd_spec_tests_b.max_value_num%TYPE;
2022: l_max_value_char gmd_spec_tests_b.max_value_char%TYPE;
2023: l_report_precision gmd_spec_tests_b.report_precision%TYPE;
2024: l_store_precision gmd_spec_tests_b.display_precision%TYPE;
2025: l_test_priority gmd_spec_tests_b.test_priority%TYPE;
2018: l_target_value_char gmd_spec_tests_b.target_value_char%TYPE;
2019: l_min_value_num gmd_spec_tests_b.min_value_num%TYPE;
2020: l_min_value_char gmd_spec_tests_b.min_value_char%TYPE;
2021: l_max_value_num gmd_spec_tests_b.max_value_num%TYPE;
2022: l_max_value_char gmd_spec_tests_b.max_value_char%TYPE;
2023: l_report_precision gmd_spec_tests_b.report_precision%TYPE;
2024: l_store_precision gmd_spec_tests_b.display_precision%TYPE;
2025: l_test_priority gmd_spec_tests_b.test_priority%TYPE;
2026: l_gmd_test_rec gmd_qc_tests_b%ROWTYPE;
2019: l_min_value_num gmd_spec_tests_b.min_value_num%TYPE;
2020: l_min_value_char gmd_spec_tests_b.min_value_char%TYPE;
2021: l_max_value_num gmd_spec_tests_b.max_value_num%TYPE;
2022: l_max_value_char gmd_spec_tests_b.max_value_char%TYPE;
2023: l_report_precision gmd_spec_tests_b.report_precision%TYPE;
2024: l_store_precision gmd_spec_tests_b.display_precision%TYPE;
2025: l_test_priority gmd_spec_tests_b.test_priority%TYPE;
2026: l_gmd_test_rec gmd_qc_tests_b%ROWTYPE;
2027: l_test_values_rec gmd_qm_conc_replace_pkg.test_values;
2020: l_min_value_char gmd_spec_tests_b.min_value_char%TYPE;
2021: l_max_value_num gmd_spec_tests_b.max_value_num%TYPE;
2022: l_max_value_char gmd_spec_tests_b.max_value_char%TYPE;
2023: l_report_precision gmd_spec_tests_b.report_precision%TYPE;
2024: l_store_precision gmd_spec_tests_b.display_precision%TYPE;
2025: l_test_priority gmd_spec_tests_b.test_priority%TYPE;
2026: l_gmd_test_rec gmd_qc_tests_b%ROWTYPE;
2027: l_test_values_rec gmd_qm_conc_replace_pkg.test_values;
2028:
2021: l_max_value_num gmd_spec_tests_b.max_value_num%TYPE;
2022: l_max_value_char gmd_spec_tests_b.max_value_char%TYPE;
2023: l_report_precision gmd_spec_tests_b.report_precision%TYPE;
2024: l_store_precision gmd_spec_tests_b.display_precision%TYPE;
2025: l_test_priority gmd_spec_tests_b.test_priority%TYPE;
2026: l_gmd_test_rec gmd_qc_tests_b%ROWTYPE;
2027: l_test_values_rec gmd_qm_conc_replace_pkg.test_values;
2028:
2029: l_precision VARCHAR2(50); --RLNAGARA Bug 6972284
2473: PROCEDURE add_spec_test_rec (
2474: p_spec_id IN NUMBER
2475: , p_test_name IN VARCHAR2
2476: , p_spec_name IN VARCHAR2
2477: , p_spec_test_rec IN OUT NOCOPY gmd_spec_tests_b%ROWTYPE
2478: , x_return_status OUT NOCOPY VARCHAR2
2479: ) IS
2480: l_spec_test_rec gmd_spec_tests_b%ROWTYPE;
2481: l_gmd_test_rec gmd_qc_tests_b%ROWTYPE;
2476: , p_spec_name IN VARCHAR2
2477: , p_spec_test_rec IN OUT NOCOPY gmd_spec_tests_b%ROWTYPE
2478: , x_return_status OUT NOCOPY VARCHAR2
2479: ) IS
2480: l_spec_test_rec gmd_spec_tests_b%ROWTYPE;
2481: l_gmd_test_rec gmd_qc_tests_b%ROWTYPE;
2482: l_exist NUMBER;
2483: l_seq NUMBER;
2484: l_return_status VARCHAR2 (1);
2490: WHERE test_code = p_test_name;
2491:
2492: CURSOR check_spec_test (p_spec_id IN NUMBER, p_test_name IN VARCHAR2) IS
2493: SELECT 1
2494: FROM gmd_spec_tests_b sptst
2495: , gmd_qc_tests_b tst
2496: WHERE sptst.spec_id = p_spec_id
2497: AND sptst.test_id = tst.test_id
2498: AND tst.test_code = p_test_name;
2500: CURSOR find_nonexp_spec_test (p_spec_id IN NUMBER) IS
2501: SELECT t.test_code
2502: , t.test_id
2503: , t.expression
2504: FROM gmd_spec_tests_b s
2505: , gmd_qc_tests_b t
2506: WHERE s.spec_id = p_spec_id
2507: AND s.test_id = t.test_id
2508: AND t.test_type <> 'E';
2613: WHERE test_id = TO_NUMBER (p_test_name);
2614:
2615: CURSOR check_spec_test (p_spec_id IN NUMBER, p_test_id IN NUMBER) IS
2616: SELECT 1
2617: FROM gmd_spec_tests_b
2618: WHERE spec_id = p_spec_id
2619: AND test_id = p_test_id;
2620:
2621: CURSOR find_exp_spec_test (p_spec_id IN NUMBER) IS
2621: CURSOR find_exp_spec_test (p_spec_id IN NUMBER) IS
2622: SELECT t.test_code
2623: , t.test_id
2624: , t.expression
2625: FROM gmd_spec_tests_b s
2626: , gmd_qc_tests_b t
2627: WHERE s.spec_id = p_spec_id
2628: AND s.test_id = t.test_id
2629: AND t.test_type = 'E';
2674: || ' '
2675: || 'Test Name: '
2676: || l_gmd_test_rec.test_code);
2677:
2678: DELETE gmd_spec_tests_b
2679: WHERE spec_id = p_spec_id
2680: AND test_id = l_gmd_test_rec.test_id;
2681: ELSE
2682: -- DELTEST but spec_test does NOT exist, throw out an error msg
2698: default_log ('Delete spec test error ' || SQLERRM);
2699: END del_spec_test_rec;
2700:
2701: PROCEDURE init_test_values_rec (
2702: p_spec_tests_rec IN gmd_spec_tests_b%ROWTYPE
2703: , x_test_values_rec IN OUT NOCOPY gmd_qm_conc_replace_pkg.test_values
2704: ) IS
2705: BEGIN
2706: x_test_values_rec.optional_ind := p_spec_tests_rec.optional_ind;
2717: x_test_values_rec.test_priority := p_spec_tests_rec.test_priority;
2718: END init_test_values_rec;
2719:
2720: PROCEDURE insert_spec_test_rec (
2721: p_spec_test_rec IN gmd_spec_tests_b%ROWTYPE
2722: , x_return_status OUT NOCOPY VARCHAR2
2723: ) IS
2724: l_spec_test_rec gmd_spec_tests_b%ROWTYPE;
2725: l_row_id VARCHAR2 (200);
2720: PROCEDURE insert_spec_test_rec (
2721: p_spec_test_rec IN gmd_spec_tests_b%ROWTYPE
2722: , x_return_status OUT NOCOPY VARCHAR2
2723: ) IS
2724: l_spec_test_rec gmd_spec_tests_b%ROWTYPE;
2725: l_row_id VARCHAR2 (200);
2726: BEGIN
2727: l_spec_test_rec := p_spec_test_rec;
2728: DEBUG ('Inserting spec test rec ');