The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 'X' INTO l_exists
FROM GMD_CUSTOMER_TESTS
WHERE test_id = p_test_id
AND cust_id = p_cust_id;
PROCEDURE NAME: validate_before_insert
DESCRIPTION: This procedure validates customer values before insert.
CHANGE HISTORY: Created 09-JUL-02 MCHANDAK
===========================================================================*/
PROCEDURE VALIDATE_BEFORE_INSERT(
p_init_msg_list IN VARCHAR2 ,
p_customer_tests_rec IN GMD_CUSTOMER_TESTS%ROWTYPE,
x_return_status OUT NOCOPY VARCHAR2,
x_message_data OUT NOCOPY VARCHAR2) IS
l_progress VARCHAR2(3);
l_delete_mark NUMBER;
SELECT display_precision,test_type ,delete_mark
FROM GMD_QC_TESTS
WHERE test_id = p_test_id
AND delete_mark = 0;
SELECT 1
FROM hz_cust_accounts_all a,
hz_parties p,
hz_cust_acct_sites_all s,
gl_plcy_mst g
WHERE a.cust_account_id = s.cust_account_id
AND p.party_id = a.party_id
AND g.org_id = s.org_id
AND a.cust_account_id = p_cust_id;
l_test_type,l_delete_mark;
IF l_delete_mark = 1 THEN
GMD_API_PUB.log_message('GMD_TEST_DELETED',
'TEST',p_customer_tests_rec.test_id);
END VALIDATE_BEFORE_INSERT;
PROCEDURE VALIDATE_BEFORE_DELETE(
p_init_msg_list IN VARCHAR2 ,
p_test_id IN NUMBER,
p_cust_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_message_data OUT NOCOPY VARCHAR2) IS
l_progress VARCHAR2(3);
l_delete_mark NUMBER;
CURSOR c_check_deleted ( p_test_id NUMBER)
IS
SELECT delete_mark
FROM GMD_QC_TESTS
WHERE test_id = p_test_id;
OPEN c_check_deleted (p_test_id);
FETCH c_check_deleted into l_delete_mark;
CLOSE c_check_deleted;
IF l_delete_mark = 1 THEN
GMD_API_PUB.log_message('GMD_TEST_DELETED',
'TEST',p_test_id);
END VALIDATE_BEFORE_DELETE;