The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE delete_match( p_customer_id in number,
p_site_use_id in number,
p_alt_name in varchar2
) IS
BEGIN
IF p_alt_name is NOT NULL then
IF p_site_use_id is null then
DELETE ar_customer_alt_names
WHERE customer_id = p_customer_id
and alt_name = p_alt_name;
DELETE ar_customer_alt_names
WHERE customer_id = p_customer_id
AND site_use_id = p_site_use_id
AND alt_name = p_alt_name;
DELETE ar_customer_alt_names
WHERE customer_id = p_customer_id;
DELETE ar_customer_alt_names
WHERE customer_id = p_customer_id
AND site_use_id = p_site_use_id;
arp_standard.debug('EXCEPTION: arp_cust_alt_match_pkg.delete_match');
END delete_match;
PROCEDURE insert_match( p_alt_name in VARCHAR2,
p_customer_id in NUMBER,
p_site_use_id in NUMBER,
p_term_id in NUMBER
) IS
l_alt_name_id NUMBER;
SELECT 1
FROM ar_customer_alt_names
WHERE customer_id = p_customer_id
AND alt_name = p_alt_name
AND decode(site_use_id,'',-1,site_use_id) = decode(p_site_use_id,'',-1,p_site_use_id);
SELECT ar_customer_alt_names_s.nextval
INTO l_alt_name_id
FROM dual;
INSERT INTO ar_customer_alt_names (
alt_name_id,
alt_name,
customer_id,
site_use_id,
term_id,
created_by,
creation_date,
last_update_date,
last_update_login,
last_updated_by
) values (
l_alt_name_id,
p_alt_name,
p_customer_id,
p_site_use_id,
p_term_id,
l_user_id,
sysdate,
sysdate,
l_user_id,
l_user_id );
arp_standard.debug('EXCEPTION: arp_cust_alt_match_pkg.insert_match');
END insert_match;
PROCEDURE update_pay_term_id( p_customer_id in number,
p_site_use_id in number,
p_term_id in number
) IS
l_alt_name_id NUMBER;
SELECT alt_name_id
FROM ar_customer_alt_names
WHERE customer_id = p_customer_id
AND decode(site_use_id,'',-1,site_use_id) = decode(p_site_use_id,'',-1,p_site_use_id)
FOR UPDATE;
UPDATE ar_customer_alt_names
SET term_id = p_term_id,
last_update_date = sysdate,
last_update_login = l_user_id,
last_updated_by = l_user_id
WHERE alt_name_id = l_alt_name_id;
arp_standard.debug('update_pay_term_id: ' || 'EXCEPTION: arp_cust_alt_match_pkg.update_pay_term');
END update_pay_term_id;
SELECT 1
INTO p_status
FROM ar_customer_alt_names
WHERE customer_id = p_customer_id
FOR UPDATE OF alt_name_id NOWAIT;
SELECT 1
INTO p_status
FROM ar_customer_alt_names
WHERE customer_id = p_customer_id
AND site_use_id = p_site_use_id
FOR UPDATE OF alt_name_id NOWAIT;