The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Add_Same_Val_Update_Msg
( p_token_an IN VARCHAR2,
p_token_p IN VARCHAR2 )
IS
BEGIN
IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_success) THEN
fnd_message.set_name('CS', 'CS_API_ALL_SAME_VAL_UPDATE');
END Add_Same_Val_Update_Msg;
SELECT contact_id INTO x_contact_id
FROM ra_contacts
WHERE last_name = p_contact_lastname
AND first_name = p_contact_firstname;
SELECT contact_id INTO x_contact_id
FROM ra_contacts
WHERE last_name = p_contact_lastname;
SELECT party_id INTO x_customer_id
FROM hz_parties
WHERE party_number = p_customer_number;
SELECT party_id INTO x_customer_id
FROM hz_parties
WHERE party_name = p_customer_name;
SELECT party_name INTO x_customer_name
FROM hz_parties
WHERE party_id = p_customer_id;
SELECT person_id INTO x_employee_id
FROM per_people_x
WHERE employee_number = p_employee_number;
SELECT person_id INTO x_employee_id
FROM per_people_x
WHERE full_name = p_employee_name;
SELECT lookup_code INTO x_lookup_code
FROM cs_lookups
WHERE lookup_type = p_lookup_type
AND meaning = p_meaning;
SELECT organization_id INTO x_org_id
FROM hr_operating_units
WHERE name = p_org_name;
SELECT To_number(Decode(substrb(userenv('CLIENT_INFO'),1,1), ' ',
NULL, substrb(userenv('CLIENT_INFO'),1,10)))
INTO p_org_id
FROM dual;
SELECT multi_org_flag INTO l_multiorg_enabled
FROM fnd_product_groups;
SELECT a.customer_id INTO x_bill_to_customer_id
FROM ra_site_uses_all su, ra_addresses_all a
WHERE Nvl(su.org_id,-99) = Decode(su.org_id,NULL,-99,p_org_id)
AND su.site_use_id = p_bill_to_site_id
AND su.site_use_code = 'BILL_TO'
AND su.address_id = a.address_id
-- Verify that the bill-to site customer is the same as the customer
AND ( a.customer_id = p_customer_id
-- or one of its related customers
OR a.customer_id IN
( SELECT ra.related_customer_id
FROM ra_customer_relationships_all ra
WHERE ra.customer_id = p_customer_id
AND ra.status = 'A'
AND Nvl(ra.org_id,-99) = Decode(ra.org_id,NULL,-99,p_org_id) ) );
SELECT 'x' INTO l_dummy
FROM cs_comments
WHERE comment_id = p_comment_id;
SELECT 'x' INTO l_dummy
FROM hz_parties
WHERE party_id = p_customer_id
AND status = 'A';
SELECT 'x' INTO l_dummy
FROM ra_contacts
WHERE contact_id = p_customer_contact_id
AND status = 'A'
AND customer_id IN
( SELECT p_customer_id
FROM dual
UNION
SELECT related_customer_id
FROM ra_customer_relationships_all
WHERE customer_id = p_customer_id
AND status = 'A'
AND Nvl(org_id,-99) = Decode(org_id,NULL,-99,p_org_id) );
SELECT To_number(Decode(substrb(userenv('CLIENT_INFO'),1,1), ' ', NULL,
substrb(userenv('CLIENT_INFO'),1,10)))
INTO l_orig_org_id
FROM dual;
SELECT 'X' INTO l_dummy
FROM per_workforce_x hr
WHERE hr.person_id = p_employee_id
AND NVL(hr.termination_date,SYSDATE) >= SYSDATE ;
SELECT 'x' INTO l_dummy
FROM hr_employees_current_v
WHERE employee_id = p_employee_id;
SELECT 'x' INTO l_dummy
FROM cs_lookups
WHERE lookup_code = p_lookup_code
AND lookup_type = p_lookup_type
AND enabled_flag = 'Y'
AND Trunc(Sysdate) BETWEEN Trunc(Nvl(start_date_active, Sysdate))
AND Trunc(Nvl(end_date_active, Sysdate));
SELECT 'x' INTO l_dummy
FROM hr_operating_units
WHERE organization_id = p_org_id;
SELECT 'x' INTO l_dummy
FROM per_people_x p, per_assignments_x a
WHERE a.person_id = p_person_id
AND a.person_id = p.person_id
AND a.assignment_type = 'E'
AND a.primary_flag = 'Y'
AND p.employee_number IS NOT NULL;
SELECT a.customer_id
FROM ra_addresses_all a, ra_site_uses_all su
WHERE su.site_use_id = p_ship_to_site_use_id
AND su.site_use_code = 'SHIP_TO'
AND su.status = 'A'
AND Nvl(su.org_id,-99) = Decode(su.org_id,NULL,-99,p_org_id)
AND a.address_id = su.address_id
AND Nvl(a.org_id,-99) = Decode(a.org_id,NULL,-99,p_org_id)
AND a.customer_id IN
( SELECT p_customer_id
FROM dual
UNION
SELECT related_customer_id
FROM ra_customer_relationships_all
WHERE customer_id = p_customer_id
AND status = 'A'
AND Nvl(org_id,-99) = Decode(org_id,NULL,-99,p_org_id) );
SELECT 'x' INTO l_dummy
FROM cs_interactions
WHERE interaction_id = p_source_object_id
AND Nvl(org_id, -99) = Decode(org_id, NULL, -99, p_org_id);
SELECT 'x' INTO l_dummy
FROM cs_incidents_all
WHERE incident_id = p_source_object_id
AND Nvl(org_id, -99) = Decode(org_id, NULL, -99, p_org_id);
SELECT 'x' INTO l_dummy
FROM fnd_user
WHERE user_id = p_user_id;
SELECT 'x' INTO l_dummy
FROM fnd_user
WHERE user_id = p_user_id
AND Trunc(Sysdate) BETWEEN Trunc(Nvl(start_date, Sysdate))
AND Trunc(Nvl(end_date, Sysdate));
SELECT 'x' INTO l_dummy
FROM fnd_logins
WHERE login_id = p_login_id
AND user_id = p_user_id;