The following lines contain the word 'select', 'insert', 'update' or 'delete':
/* INSERT INTO ams_act_logs
( activity_log_id
,last_update_date
,last_updated_by
,creation_date
,created_by
,last_update_login
,object_version_number
,act_log_used_by_id
,arc_act_log_used_by
,log_transaction_id
,log_message_text
,log_message_level
,log_message_type
,description
)
VALUES
(
ams_act_logs_s.nextval,
sysdate,
fnd_global.user_id,
sysdate,
fnd_global.user_id,
fnd_global.conc_login_id,
1, -- object_version_number
p_list_header_id,
'LIST',
ams_act_logs_transaction_id_s.nextval,
p_msg_data,
null,
null,
null);
SELECT w.original_word, w.replacement_word
FROM ams_list_word_fields w
WHERE w.field_table_name = my_field_table_name
AND w.field_column_name = my_field_column_name;
IS SELECT list_rule_id
FROM ams_list_rule_usages
WHERE list_header_id = my_list_header_id
ORDER BY priority;
SELECT field_table_name,
field_column_name,
substring_length,
word_replacement_code
FROM ams_list_rule_fields
WHERE list_rule_id = my_list_rule_id;
SELECT last_deduped_by_user_id
FROM ams_list_headers_all
WHERE list_header_id = my_list_header_id;
SELECT DISTINCT dedupe_key, COUNT (dedupe_key)
FROM ams_list_entries
WHERE list_header_id = my_list_header_id
-- AND marked_as_duplicate_flag IS NULL --commented by VB
-- 09/30/2000 because this is a not null column in database
GROUP BY dedupe_key;
l_sql_stmt1 := 'update ams_list_entries set dedupe_key = ';
l_sql_stmt1 := 'update ams_imp_source_lines set dedupe_key = ';
UPDATE ams_list_entries
SET dedupe_key = NULL
-- ,marked_as_duplicate_flag = NULL
-- because column is not null in database
WHERE list_header_id = p_list_header_id;
SELECT COUNT (rank)
INTO l_rank_count
FROM ams_list_select_actions
WHERE action_used_by_id = p_list_header_id
and arc_action_used_by = 'LIST';
UPDATE ams_list_entries
SET dedupe_key = NULL
WHERE list_header_id = p_list_header_id
AND marked_as_duplicate_flag IS NULL;
UPDATE ams_list_entries
SET marked_as_duplicate_flag = 'Y',
enabled_flag='N' --modified vb 11/7/2000
WHERE list_header_id = p_list_header_id
AND dedupe_key = l_dedupe_key
AND list_entry_id <> ( SELECT MIN (c.list_entry_id)
FROM ams_list_entries c
WHERE c.list_header_id = p_list_header_id
AND c.dedupe_key = l_dedupe_key);
UPDATE ams_list_entries
SET marked_as_duplicate_flag = 'Y',enabled_flag='N'--modified vb 11/7/2000
WHERE list_header_id = p_list_header_id
AND dedupe_key = l_dedupe_key
AND list_entry_id <> ( SELECT MIN (c.list_entry_id)
--selecting the master.
FROM ams_list_entries c,
ams_list_select_actions a
WHERE c.list_header_id =
p_list_header_id
AND c.dedupe_key = l_dedupe_key
AND c.list_select_action_id = a.list_select_action_id);
AND a.rank =(SELECT min(b.rank)
FROM ams_list_select_actions b
WHERE b.action_used_by_id = p_list_header_id
and b.arc_action_used_by = 'LIST')
GROUP BY a.rank); */
UPDATE ams_list_headers_all
SET last_deduped_by_user_id = FND_GLOBAL.User_Id
,last_dedupe_date = SYSDATE
WHERE list_header_id = p_list_header_id;
UPDATE ams_list_headers_all
SET no_of_rows_duplicates = (
SELECT COUNT (*)
FROM ams_list_entries
WHERE list_header_id = p_list_header_id
AND marked_as_duplicate_flag = 'Y')
WHERE list_header_id = p_list_header_id
returning no_of_rows_duplicates into l_no_of_duplicates;
l_select_sql VARCHAR2(4000);
SELECT field_table_name,
field_column_name,
substring_length
FROM ams_list_rule_fields
WHERE list_rule_id = p_list_rule_id;
l_select_sql :=
l_select_sql ||
'AMS_ListDedupe_PVT.filter_word (' ||
l_field_column_name ||
',' ||
NVL (TO_CHAR (l_substring_length), 'NULL') ||
',' ||
'''' ||
l_field_table_name ||
'''' ||
',' ||
'''' ||
l_field_column_name ||
'''' ||
')' ||
'||' ||
'''' ||
'.' ||
'''' ||
'||';
l_select_sql :=
l_select_sql ||
'UPPER (' ||
l_field_column_name ||
')||' ||
'''' ||
'.' ||
'''' ||
'||';
l_select_sql :=
l_select_sql ||
'UPPER(SUBSTR(' ||
l_field_column_name ||
',1,' ||
TO_CHAR (l_substring_length) ||
'))||' ||
'''' ||
'.' ||
'''' ||
'||';
l_select_sql := l_select_sql ||
'AMS_ListDedupe_PVT.filter_word (' || l_field_column_name || ', '
|| l_substring_length || ', '
|| l_field_table_name || ', '
|| '''' || l_field_column_name || '''),'
ELSE
END IF;
l_select_sql := 'SELECT ' || SUBSTR (l_select_sql, 1, LENGTH (l_select_sql) - 7) || ' ';
EXECUTE IMMEDIATE l_select_sql || l_from_sql || l_where_sql
INTO l_dedupe_key
USING p_sys_object_id
;
SELECT upper(replacement_word)
FROM hz_word_replacements
WHERE upper(original_word) = x_current_word
AND type = x_replacement_type;
SELECT ORIGINAL_WORD,
REPLACEMENT_WORD
FROM HZ_WORD_REPLACEMENTS
WHERE TYPE = 'KEY';