[Home] [Help]
122:
123: -- Check for Approved Base Spec (Bug 3401368)
124: CURSOR c_spec (p_spec_id NUMBER) IS
125: SELECT 1
126: FROM gmd_specifications_b
127: WHERE spec_id = p_spec_id
128: AND spec_status = 700 ;
129:
130:
862: RETURN BOOLEAN IS
863:
864: CURSOR c_spec (p_spec_name VARCHAR2, p_spec_vers NUMBER) IS
865: SELECT 1
866: FROM gmd_specifications_b
867: WHERE spec_name = p_spec_name
868: AND spec_vers = p_spec_vers;
869:
870: dummy PLS_INTEGER;
1027: ) IS
1028:
1029: CURSOR c_spec (p_spec_name VARCHAR2, p_spec_vers NUMBER) IS
1030: SELECT 1
1031: FROM gmd_specifications_b
1032: WHERE spec_name = p_spec_name
1033: AND spec_vers = p_spec_vers;
1034:
1035: CURSOR c_test_value (p_test_id NUMBER, p_value_char VARCHAR2) IS
1039: AND value_char = p_value_char ;
1040:
1041: CURSOR c_spec_type (p_spec_id NUMBER) IS
1042: SELECT spec_type
1043: FROM gmd_specifications_b
1044: WHERE spec_id = p_spec_id ;
1045:
1046: -- Local Variables
1047: l_dummy NUMBER;
1602:
1603: l_spec_tests := l_spec_tests_out ;
1604:
1605: SELECT delete_mark into l_spec_delete_mark
1606: FROM GMD_SPECIFICATIONS_B
1607: WHERE spec_id = p_spec_id ;
1608:
1609: IF l_spec_delete_mark <> 0
1610: THEN
2386: END IF;
2387:
2388: OPEN Status_cur FOR
2389: Select b.version_enabled
2390: From gmd_specifications_b a, gmd_qc_status b
2391: Where a.spec_id = p_entity_id
2392: And a.spec_status = b.status_code
2393: and b.entity_type = 'S';
2394: FETCH Status_cur INTO l_version_enabled;
2456:
2457:
2458: CURSOR Cur_spec_vers IS
2459: SELECT MAX(spec_vers) + 1
2460: FROM gmd_specifications_b
2461: WHERE spec_name = X_hdr_rec.spec_name;
2462:
2463: l_progress VARCHAR2(3);
2464:
2764: END IF;
2765:
2766: -- Now construct the SQL Stmt.
2767: -- B2943737 SQL Bind Variable Project.
2768: IF (upper(p_table_name) = 'GMD_SPECIFICATIONS_B' ) THEN
2769: l_sql_stmt := 'UPDATE GMD_SPECIFICATIONS_B' ||
2770: ' SET spec_status = :l_status' ||
2771: ' WHERE spec_id = :p_id';
2772: -- added by mahesh to support stability study
2765:
2766: -- Now construct the SQL Stmt.
2767: -- B2943737 SQL Bind Variable Project.
2768: IF (upper(p_table_name) = 'GMD_SPECIFICATIONS_B' ) THEN
2769: l_sql_stmt := 'UPDATE GMD_SPECIFICATIONS_B' ||
2770: ' SET spec_status = :l_status' ||
2771: ' WHERE spec_id = :p_id';
2772: -- added by mahesh to support stability study
2773: ELSIF (upper(p_table_name) = 'GMD_STABILITY_STUDIES_B' ) THEN