The following lines contain the word 'select', 'insert', 'update' or 'delete':
* DELETE_TEST_HEADERS *
* DELETE_TEST_VALUES *
* DELETE_CUSTOMER_TESTS *
* *
* Use This is the public layer for the QC TESTS API *
* *
* History *
* Written by H Verdding, OPM Development (EMEA) *
* *
* HVerddin B2711643: Added call to set user_context *
* *
* *
*****************************************************************
*/
/* Global variables */
G_PKG_NAME CONSTANT VARCHAR2(30):='GMD_QC_TESTS_PUB';
GMD_QC_TESTS_GRP.VALIDATE_BEFORE_INSERT(
p_gmd_qc_tests_rec => l_qc_tests_rec_in,
x_gmd_qc_tests_rec => l_qc_tests_rec,
x_return_status => l_return_status,
x_message_data => l_msg_data);
l_qc_tests_rec.last_updated_by := l_user_id;
IF NOT GMD_QC_TESTS_PVT.INSERT_ROW(
p_qc_tests_rec => l_qc_tests_rec) THEN
RAISE FND_API.G_EXC_ERROR;
GMD_QC_TESTS_GRP.PROCESS_AFTER_INSERT(
p_init_msg_list => p_init_msg_list,
p_gmd_qc_tests_rec => l_qc_tests_rec,
x_return_status => x_return_status,
x_message_data => x_msg_data
);
GMD_QC_TEST_VALUES_GRP.VALIDATE_BEFORE_INSERT(
p_qc_test_values_rec => l_qc_test_values_rec_in,
x_qc_test_values_rec => l_qc_test_values_rec,
x_return_status => l_return_status,
x_message_data => l_msg_data
);
l_qc_test_values_rec.last_updated_by := l_user_id;
IF NOT GMD_QC_TEST_VALUES_PVT.INSERT_ROW(
p_qc_test_values_rec => l_qc_test_values_rec) THEN
RAISE FND_API.G_EXC_ERROR;
GMD_QC_TEST_VALUES_GRP.VALIDATE_AFTER_INSERT_ALL(
p_gmd_qc_tests_rec => l_qc_tests_rec,
x_gmd_qc_tests_rec => l_qc_tests_rec_in,
x_return_status => l_return_status,
x_message_data => l_msg_data);
GMD_CUSTOMER_TESTS_GRP.VALIDATE_BEFORE_INSERT(
p_init_msg_list => p_init_msg_list,
p_customer_tests_rec => l_qc_cust_tests_rec,
x_return_status => l_return_status,
x_message_data => l_msg_data);
l_qc_cust_tests_rec.last_updated_by := l_user_id;
IF NOT GMD_CUSTOMER_TESTS_PVT.INSERT_ROW(
p_customer_tests_rec => l_qc_cust_tests_rec ) THEN
RAISE FND_API.G_EXC_ERROR;
PROCEDURE DELETE_TEST_HEADERS
( p_api_version IN NUMBER
, p_init_msg_list IN VARCHAR2
, p_commit IN VARCHAR2
, p_validation_level IN NUMBER
, p_qc_tests_rec IN GMD_QC_TESTS%ROWTYPE
, p_user_name IN VARCHAR2
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_TEST_HEADERS';
SAVEPOINT DELETE_TEST_HEADERS;
IF l_qc_tests_rec.delete_mark = 1 THEN
GMD_API_PUB.Log_Message('GMD_RECORD_DELETE_MARKED',
'l_table_name', 'GMD_QC_TESTS',
'l_column_name', 'TEST_ID',
'l_key_value', l_qc_tests_rec.test_id);
IF NOT GMD_QC_TESTS_PVT.mark_for_delete(
p_test_id => l_qc_tests_rec.test_id,
p_test_code => l_qc_tests_rec.test_code,
p_last_update_date => SYSDATE,
p_last_updated_by => l_user_id,
p_last_update_login => l_qc_tests_rec.last_update_login
) THEN
GMD_API_PUB.Log_Message('GMD_FAILED_TO_DELETE_ROW',
'l_table_name', 'GMD_QC_TESTS',
'l_column_name','TEST_ID',
'l_key_value', l_qc_tests_rec.test_id);
ROLLBACK TO DELETE_TEST_HEADERS;
ROLLBACK TO DELETE_TEST_HEADERS;
ROLLBACK TO DELETE_TEST_HEADERS;
END DELETE_TEST_HEADERS;
PROCEDURE DELETE_TEST_VALUES
( p_api_version IN NUMBER
, p_init_msg_list IN VARCHAR2
, p_commit IN VARCHAR2
, p_validation_level IN NUMBER
, p_qc_test_values_tbl IN GMD_QC_TESTS_PUB.qc_test_values_tbl
, x_deleted_rows OUT NOCOPY NUMBER
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_TEST_VALUES';
l_deleted_rows NUMBER(10);
SAVEPOINT DELETE_TEST_VALUES;
GMD_QC_TEST_VALUES_GRP.VALIDATE_BEFORE_DELETE(
p_test_value_id => l_qc_test_values_rec.test_value_id,
x_return_status => l_return_status,
x_message_data => l_msg_data);
IF NOT GMD_QC_TEST_VALUES_PVT.DELETE_ROW(
p_test_value_id => l_qc_test_values_rec.test_value_id) THEN
GMD_API_PUB.Log_Message('GMD_FAILED_TO_DELETE_ROW',
'l_table_name', 'GMD_QC_TEST_VALUES',
'l_column_name', 'TEST_VALUE_ID',
'l_key_value', l_qc_test_values_rec.test_value_id);
l_deleted_rows := l_deleted_rows + i;
GMD_QC_TEST_VALUES_GRP.VALIDATE_AFTER_DELETE_ALL(
p_gmd_qc_tests_rec => l_qc_tests_rec,
x_gmd_qc_tests_rec => l_qc_tests_rec_in,
x_return_status => l_return_status,
x_message_data => l_msg_data);
x_deleted_rows := l_deleted_rows;
ROLLBACK TO DELETE_TEST_VALUES;
ROLLBACK TO DELETE_TEST_VALUES;
ROLLBACK TO DELETE_TEST_VALUES;
END DELETE_TEST_VALUES;
PROCEDURE DELETE_CUSTOMER_TESTS
( p_api_version IN NUMBER
, p_init_msg_list IN VARCHAR2
, p_commit IN VARCHAR2
, p_validation_level IN NUMBER
, p_qc_cust_tests_tbl IN GMD_QC_TESTS_PUB.qc_cust_tests_tbl
, x_deleted_rows OUT NOCOPY NUMBER
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_CUSTOMER_TESTS';
l_deleted_rows NUMBER;
SAVEPOINT DELETE_CUSTOMER_TESTS;
GMD_CUSTOMER_TESTS_GRP.VALIDATE_BEFORE_DELETE(
p_init_msg_list => p_init_msg_list,
p_test_id => l_qc_cust_tests_rec.test_id,
p_cust_id => l_qc_cust_tests_rec.cust_id,
x_return_status => l_return_status,
x_message_data => l_msg_data);
IF NOT GMD_CUSTOMER_TESTS_PVT.DELETE_ROW(
p_test_id => l_qc_cust_tests_rec.test_id,
p_cust_id => l_qc_cust_tests_rec.cust_id) THEN
GMD_API_PUB.Log_Message('GMD_FAILED_TO_DELETE_ROW',
'l_table_name', 'GMD_CUSTOMER_TESTS',
'l_column_name','CUST_ID',
'l_key_value', l_qc_cust_tests_rec.cust_id);
l_deleted_rows := l_deleted_rows + i;
x_deleted_rows := l_deleted_rows;
ROLLBACK TO DELETE_CUSTOMER_TESTS;
ROLLBACK TO DELETE_CUSTOMER_TESTS;
ROLLBACK TO DELETE_CUSTOMER_TESTS;
END delete_customer_tests;