The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 'Y'
INTO l_status
FROM sys.dual
WHERE exists(SELECT '1'
FROM per_addresses pp
WHERE (p_address_id IS NULL
OR p_address_id <> pp.address_id)
AND p_person_id = pp.person_id
AND p_address_type = pp.address_type
AND (
p_date_from between pp.date_from and nvl(pp.date_to,g_last_date )
OR
nvl(p_date_to,g_last_date) between pp.date_from and nvl(pp.date_to,g_last_date)
OR
pp.date_from between p_date_from and nvl(p_date_to,g_last_date )
)
AND p_override = 'FALSE'
);
PROCEDURE update_pl_address (p_address_id IN NUMBER,
p_address_type VARCHAR2,
p_date_from DATE,
p_date_to DATE,
p_address_line1 IN VARCHAR2,
p_address_line2 IN VARCHAR2)
IS
--
CURSOR get_style(p_address_id number) is
SELECT style,person_id
FROM per_addresses
WHERE address_id=p_address_id;
hr_utility.trace('PL not installed.Leaving update_pl_address');
END update_pl_address;
PROCEDURE update_pl_address_style(p_address_id IN NUMBER,
p_style IN VARCHAR2,
p_address_type VARCHAR2,
p_date_from DATE,
p_date_to DATE,
p_address_line1 IN VARCHAR2,
p_address_line2 IN VARCHAR2)
IS
--
l_person_id per_addresses.person_id%TYPE;
hr_utility.trace('PL not installed.Leaving update_pl_address_style');
END update_pl_address_style;