The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT ORACLE_USERNAME
INTO l_schema_name
FROM FND_ORACLE_USERID
WHERE READ_ONLY_FLAG = 'U';
'SELECT B.TAG, A.LIST_SOURCE_TYPE
FROM AMS_LIST_HEADERS_ALL A, IEC_LOOKUPS B
WHERE A.LIST_HEADER_ID = :list_id
AND B.LOOKUP_TYPE = ''IEC_SOURCE_VIEW_MAP''
AND A.LIST_SOURCE_TYPE = B.LOOKUP_CODE'
INTO x_source_type_view, l_source_type_code
USING p_list_id;
SELECT LIST_SOURCE_TYPE
INTO l_source_type_code
FROM AMS_LIST_HEADERS_ALL
WHERE LIST_HEADER_ID = p_list_id;
'SELECT VIEW_NAME
FROM ALL_VIEWS
WHERE VIEW_NAME = UPPER(:source_type_view)
AND OWNER = :apps_schema'
INTO l_ignore
USING x_source_type_view, l_schema;
'SELECT SUBSET_NAME
FROM IEC_G_LIST_SUBSETS
WHERE LIST_SUBSET_ID = :subset_id'
INTO x_subset_name
USING p_subset_id;
'SELECT LIST_NAME
FROM AMS_LIST_HEADERS_VL
WHERE LIST_HEADER_ID = :list_id'
INTO x_list_name
USING p_list_id;
'SELECT SCHEDULE_NAME
FROM AMS_CAMPAIGN_SCHEDULES_VL
WHERE SCHEDULE_ID = :schedule_id'
INTO x_schedule_name
USING p_schedule_id;
'SELECT LIST_USED_BY_ID
FROM AMS_ACT_LISTS
WHERE LIST_HEADER_ID = :list_id
AND LIST_USED_BY = ''CSCH''
AND LIST_ACT_TYPE = ''TARGET'''
INTO x_schedule_id
USING p_list_id;
'SELECT LIST_HEADER_ID
FROM IEC_G_AO_LISTS_V
WHERE SCHEDULE_ID = :schedule_id
AND LANGUAGE = USERENV(''LANG'')'
INTO x_list_id
USING p_schedule_id;
l_insert_flag VARCHAR2(1);
l_insert_flag := 'N';
SELECT server_id
, nvl( lock_flag, 'N' )
INTO l_server_id
, l_lock_flag
FROM IEC_G_LIST_LOCK_STATES
WHERE CAMPAIGN_SCHEDULE_ID = P_SCHED_ID
FOR UPDATE;
INSERT INTO IEC_G_LIST_LOCK_STATES
( cpn_lock_state_id
, campaign_schedule_id
, server_id
, lock_flag
, object_version_number )
VALUES
( iec_g_list_lock_states_s.nextval
, p_sched_id
, p_server_id
, 'Y'
, 1);
l_insert_flag := 'Y';
SELECT a.rt_refresh_rate
INTO l_refresh_rate
FROM ieo_svr_types_b a
, ieo_svr_servers b
WHERE a.type_id = b.type_id
AND b.server_id = l_server_id;
SELECT 'Y'
INTO X_SUCCESS_FLAG
FROM ieo_svr_rt_info
WHERE last_update_date < ( sysdate - l_refresh_rate / 1440 )
AND server_id = l_server_id;
IF X_SUCCESS_FLAG = 'Y' AND l_insert_flag = 'N'
THEN
BEGIN
IF l_lock_flag = 'N' THEN
----------------------------------------------------------------
-- Attempt to update the lock entry if it isn't currently locked.
----------------------------------------------------------------
UPDATE IEC_G_LIST_LOCK_STATES
SET LOCK_FLAG = 'Y'
, SERVER_ID = P_SERVER_ID
WHERE CAMPAIGN_SCHEDULE_ID = P_SCHED_ID
AND LOCK_FLAG = 'N';
UPDATE IEC_G_LIST_LOCK_STATES
SET LOCK_FLAG = 'Y'
, SERVER_ID = P_SERVER_ID
WHERE CAMPAIGN_SCHEDULE_ID = P_SCHED_ID;
UPDATE IEC_G_LIST_LOCK_STATES
SET LOCK_FLAG = 'N'
, SERVER_ID = P_SERVER_ID
WHERE CAMPAIGN_SCHEDULE_ID = P_SCHED_ID
AND SERVER_ID = P_SERVER_ID;