The following lines contain the word 'select', 'insert', 'update' or 'delete':
l_name ad_update_preferences.name%TYPE ;
p_pref_id ad_update_preferences.preference_id%TYPE ;
SELECT preference_id
INTO p_pref_id
FROM ad_update_preferences
WHERE name = l_name
AND owner= l_owner;
INSERT INTO ad_update_preferences(
preference_id,
owner,
name,
description,
default_value,
creation_date,
created_by,
last_update_date,
last_updated_by)
VALUES(
AD_UPDATE_PREFERENCES_S.NEXTVAL ,
l_owner,
l_name,
p_description,
p_default_value,
SYSDATE,
SYSADMIN_VALUE,
SYSDATE,
SYSADMIN_VALUE);
PROCEDURE UPDATE_DEF_PREFERENCE(
p_owner IN VARCHAR2,
p_name IN VARCHAR2,
p_description IN VARCHAR2,
p_default_value IN VARCHAR2,
p_pref_id OUT NOCOPY NUMBER )
IS
l_owner AD_UPDATE_PREFERENCES.owner%TYPE ;
l_name AD_UPDATE_PREFERENCES.name%TYPE ;
SELECT preference_id
INTO p_pref_id
FROM ad_update_preferences
WHERE name = l_name
AND owner= l_owner;
UPDATE ad_update_preferences
SET description = p_description,
default_value= p_default_value,
last_update_date = SYSDATE,
last_updated_by = SYSADMIN_VALUE
WHERE name = l_name
AND owner= l_owner;
END UPDATE_DEF_PREFERENCE;
l_pref_id ad_update_preferences.preference_id%TYPE ;
SELECT preference_id INTO l_pref_id
FROM ad_update_preferences
WHERE owner = upper(p_owner)
AND name = upper(p_name) ;
l_value ad_update_pref_values.value%TYPE ;
SELECT value INTO l_value
FROM ad_update_pref_values v,ad_update_preferences p
WHERE v.preference_id=p.preference_id
AND owner = upper(p_owner)
AND name = upper(p_name)
--Check for global or session preference
AND pref_level = decode(p_session_id,NULL,'G','S')
--Match the session id if session preference otherwise always true for global preference
AND NVL (pref_level_value,0) = NVL (p_session_id, NVL(pref_level_value, 0) );
SELECT value INTO l_value
FROM ad_update_pref_values v,ad_update_preferences p
WHERE v.preference_id=p.preference_id
AND owner = upper(p_owner)
AND name = upper(p_name)
AND pref_level = 'G';
l_value ad_update_pref_values.value%TYPE ;
SELECT value INTO l_value
FROM ad_update_pref_values v,ad_update_preferences p
WHERE v.preference_id=p.preference_id
AND owner = upper(p_owner)
AND name=upper(p_name )
AND pref_level = 'S'
AND pref_level_value=p_session_id;
PROCEDURE UPDATE_PREFERENCE_VALUE(
p_owner IN VARCHAR2,
p_name IN VARCHAR2,
p_value IN VARCHAR2)
IS
p_pref_id AD_UPDATE_PREFERENCES.preference_id%TYPE ;
l_owner AD_UPDATE_PREFERENCES.owner%TYPE ;
l_name AD_UPDATE_PREFERENCES.name%TYPE ;
l_value AD_UPDATE_PREF_VALUES.value%TYPE ;
SELECT value
INTO l_value
FROM AD_UPDATE_PREF_VALUES
WHERE preference_id = p_pref_id
AND pref_level = 'G';
UPDATE ad_update_pref_values
SET value = p_value,
last_update_date = SYSDATE,
last_updated_by = SYSADMIN_VALUE
WHERE preference_id=p_pref_id;
END UPDATE_PREFERENCE_VALUE;
p_pref_id ad_update_preferences.preference_id%TYPE ;
l_owner AD_UPDATE_PREFERENCES.owner%TYPE ;
l_name AD_UPDATE_PREFERENCES.name%TYPE ;
SELECT preference_id
INTO p_pref_id
FROM ad_update_pref_values
WHERE preference_id = p_pref_id
AND pref_level = 'G';
INSERT INTO ad_update_pref_values(
preference_id,
pref_level,
pref_level_value,
value,
creation_date,
created_by,
last_update_date,
last_updated_by)
VALUES(
p_pref_id,
'G',
GLOBAL_SESSION_VALUE,
p_value,
SYSDATE,
SYSADMIN_VALUE,
SYSDATE,
SYSADMIN_VALUE);
l_pref_id ad_update_pref_values.preference_id%TYPE ;
SELECT preference_id INTO l_pref_id
FROM ad_update_preferences WHERE
owner = upper(p_owner)
AND name = upper(p_name);
--Update the preference value for that particular session
UPDATE ad_update_pref_values
SET value = p_value,
last_update_date = SYSDATE,
last_updated_by =SYSADMIN_VALUE
WHERE
preference_id = l_pref_id
AND pref_level = 'S'
AND pref_level_value=p_session_id;
-- Create new value record if the value record is not updated
INSERT INTO ad_update_pref_values(
preference_id,
pref_level,
pref_level_value,
value,
creation_date,
created_by,
last_update_date,
last_updated_by)
VALUES (
l_pref_id,
'S',
p_session_id,
p_value,
SYSDATE ,
SYSADMIN_VALUE,
SYSDATE ,
SYSADMIN_VALUE);