[Home] [Help]
98: l_msg_data VARCHAR2(2000);
99: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
100: l_spec GMD_SPECIFICATIONS%ROWTYPE;
101: l_spec_out GMD_SPECIFICATIONS%ROWTYPE;
102: l_spec_tests GMD_SPEC_TESTS%ROWTYPE;
103: l_spec_tests_out GMD_SPEC_TESTS%ROWTYPE;
104: l_spec_tests_tbl GMD_SPEC_PUB.spec_tests_tbl;
105: l_spec_id NUMBER;
106: l_rowid ROWID;
99: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
100: l_spec GMD_SPECIFICATIONS%ROWTYPE;
101: l_spec_out GMD_SPECIFICATIONS%ROWTYPE;
102: l_spec_tests GMD_SPEC_TESTS%ROWTYPE;
103: l_spec_tests_out GMD_SPEC_TESTS%ROWTYPE;
104: l_spec_tests_tbl GMD_SPEC_PUB.spec_tests_tbl;
105: l_spec_id NUMBER;
106: l_rowid ROWID;
107: l_user_id NUMBER(15);
108: pp_spec_tests_tbl GMD_SPEC_PUB.spec_tests_tbl ;
109:
110: CURSOR Cur_get_dtl_base (p_basespec_id NUMBER) IS
111: --SELECT *
112: -- FROM gmd_spec_tests
113: --WHERE spec_id = p_basespec_id;
114: SELECT st.* -- 14364429 fp of 11i bug 8942264 added check to see if test has been deleted
115: FROM gmd_spec_tests st , gmd_qc_tests_b t
116: WHERE st.spec_id = p_basespec_id and
111: --SELECT *
112: -- FROM gmd_spec_tests
113: --WHERE spec_id = p_basespec_id;
114: SELECT st.* -- 14364429 fp of 11i bug 8942264 added check to see if test has been deleted
115: FROM gmd_spec_tests st , gmd_qc_tests_b t
116: WHERE st.spec_id = p_basespec_id and
117: t.test_id = st.test_id
118: AND t.delete_mark = 0;
119:
310: -- Message detailing cause of validation failure is already on
311: -- the stack. But ensure the precise record is identified
312: -- ==========================================================
313: GMD_API_PUB.Log_Message('GMD_API_RECORD_IDENTIFIER',
314: 'l_table_name', 'GMD_SPEC_TESTS',
315: 'l_column_name', 'TEST_ID',
316: 'l_key_value', l_spec_tests.test_id);
317: RAISE FND_API.G_EXC_ERROR;
318: END IF;
323: -- ===================================
324: l_spec_tests.created_by := l_user_id;
325: l_spec_tests.last_updated_by := l_user_id;
326:
327: IF NOT GMD_SPEC_TESTS_PVT.INSERT_ROW(p_spec_tests => l_spec_tests)
328: THEN
329: GMD_API_PUB.Log_Message('GMD_FAILED_TO_INSERT_ROW',
330: 'l_table_name', 'GMD_SPEC_TESTS',
331: 'l_column_name', 'TEST_ID',
326:
327: IF NOT GMD_SPEC_TESTS_PVT.INSERT_ROW(p_spec_tests => l_spec_tests)
328: THEN
329: GMD_API_PUB.Log_Message('GMD_FAILED_TO_INSERT_ROW',
330: 'l_table_name', 'GMD_SPEC_TESTS',
331: 'l_column_name', 'TEST_ID',
332: 'l_key_value', l_spec_tests.test_id);
333: RAISE FND_API.G_EXC_ERROR;
334: END IF;
607: l_msg_count NUMBER :=0;
608: l_msg_data VARCHAR2(2000);
609: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
610: l_spec_id NUMBER :=0;
611: l_spec_tests GMD_SPEC_TESTS%ROWTYPE;
612: l_spec_tests_out GMD_SPEC_TESTS%ROWTYPE;
613: l_deleted_rows NUMBER :=0;
614:
615: BEGIN
608: l_msg_data VARCHAR2(2000);
609: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
610: l_spec_id NUMBER :=0;
611: l_spec_tests GMD_SPEC_TESTS%ROWTYPE;
612: l_spec_tests_out GMD_SPEC_TESTS%ROWTYPE;
613: l_deleted_rows NUMBER :=0;
614:
615: BEGIN
616:
695:
696: -- Fetch to ensure spec_test exists
697: -- ================================
698: -- KYH 05/NOV/02 use separate params for fetch_row input and output
699: IF NOT GMD_SPEC_TESTS_PVT.fetch_row ( l_spec_tests,l_spec_tests_out)
700: THEN
701: GMD_API_PUB.Log_Message('GMD_FAILED_TO_FETCH_ROW',
702: 'l_table_name', 'GMD_SPEC_TESTS',
703: 'l_column_name', 'TEST_ID',
698: -- KYH 05/NOV/02 use separate params for fetch_row input and output
699: IF NOT GMD_SPEC_TESTS_PVT.fetch_row ( l_spec_tests,l_spec_tests_out)
700: THEN
701: GMD_API_PUB.Log_Message('GMD_FAILED_TO_FETCH_ROW',
702: 'l_table_name', 'GMD_SPEC_TESTS',
703: 'l_column_name', 'TEST_ID',
704: 'l_key_value', l_spec_tests.test_id);
705: RAISE FND_API.G_EXC_ERROR;
706: END IF;
707: l_spec_tests := l_spec_tests_out;
708:
709: -- Lock the spec_test ahead of deleting
710: -- ====================================
711: IF NOT GMD_SPEC_TESTS_PVT.Lock_Row(l_spec_tests.spec_id,l_spec_tests.test_id)
712: THEN
713: -- Report Failure to obtain locks
714: -- ==============================
715: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
712: THEN
713: -- Report Failure to obtain locks
714: -- ==============================
715: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
716: 'l_table_name', 'GMD_SPEC_TESTS',
717: 'l_column_name', 'TEST_ID',
718: 'l_key_value', l_spec_tests.test_id);
719: RAISE FND_API.G_EXC_ERROR;
720: END IF;
718: 'l_key_value', l_spec_tests.test_id);
719: RAISE FND_API.G_EXC_ERROR;
720: END IF;
721:
722: IF NOT GMD_SPEC_TESTS_PVT.Delete_Row ( p_spec_id => l_spec_tests.spec_id
723: , p_test_id => l_spec_tests.test_id
724: )
725: THEN
726: GMD_API_PUB.Log_Message('GMD_FAILED_TO_DELETE_ROW',
723: , p_test_id => l_spec_tests.test_id
724: )
725: THEN
726: GMD_API_PUB.Log_Message('GMD_FAILED_TO_DELETE_ROW',
727: 'l_table_name', 'GMD_SPEC_TESTS',
728: 'l_column_name', 'TEST_ID',
729: 'l_key_value', l_spec_tests.test_id);
730: RAISE FND_API.G_EXC_ERROR;
731: END IF;