The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insert_row (
x_rowid IN OUT NOCOPY VARCHAR2,
x_list_source_type_id IN NUMBER,
x_object_version_number IN NUMBER,
x_list_source_name IN VARCHAR2,
x_list_source_type IN VARCHAR2,
x_source_type_code IN VARCHAR2,
x_source_object_name IN VARCHAR2,
x_master_source_type_flag IN VARCHAR2,
x_source_object_pk_field IN VARCHAR2,
x_enabled_flag IN VARCHAR2,
x_description IN VARCHAR2,
X_JAVA_CLASS_NAME IN VARCHAR2,
x_view_application_id in number,
x_ARC_ACT_SRC_USED_BY in varchar2,
x_SOURCE_CATEGORY in varchar2,
x_import_type in varchar2,
x_creation_date IN DATE,
x_created_by IN NUMBER,
x_last_update_date IN DATE,
x_last_updated_by IN NUMBER,
x_last_update_login IN NUMBER,
x_BASED_ON_TCA_FLAG IN varchar2
) IS
l_import_type VARCHAR2(30);
CURSOR c IS SELECT rowid FROM ams_list_src_types
WHERE list_source_type_id = x_list_source_type_id;
CURSOR c_import_type(code IN VARCHAR2) IS SELECT lookup_code FROM ams_lookups
WHERE lookup_type = 'AMS_IMPORT_TYPE' and enabled_flag='Y'
AND lookup_code = code;
INSERT INTO ams_list_src_types (
list_source_type_id,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login,
object_version_number,
list_source_name,
list_source_type,
source_type_code,
source_object_name,
master_source_type_flag,
source_object_pk_field,
enabled_flag,
description,
java_class_name,
view_application_id ,
ARC_ACT_SRC_USED_BY ,
SOURCE_CATEGORY ,
IMPORT_TYPE,
BASED_ON_TCA_FLAG
)
values (
x_list_source_type_id,
x_last_update_date,
x_last_updated_by,
x_creation_date,
x_created_by,
x_last_update_login,
x_object_version_number,
x_list_source_name,
x_list_source_type,
x_source_type_code,
x_source_object_name,
x_master_source_type_flag,
x_source_object_pk_field,
x_enabled_flag,
x_description,
x_java_class_name,
x_view_application_id ,
x_ARC_ACT_SRC_USED_BY ,
x_SOURCE_CATEGORY ,
x_IMPORT_TYPE,
x_BASED_ON_TCA_FLAG
);
insert into AMS_LIST_SRC_TYPES_TL (
LANGUAGE,
SOURCE_LANG,
LIST_SOURCE_NAME,
DESCRIPTION,
LIST_SOURCE_TYPE_ID,
LAST_UPDATE_DATE,
LAST_UPDATE_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN
) select
l.language_code,
userenv('LANG'),
x_list_source_name,
x_description,
x_list_source_type_id,
--Modified for bug 5237401. bmuthukr
/*
sysdate,
FND_GLOBAL.user_id,
sysdate,
FND_GLOBAL.user_id,
*/
x_last_update_date,
x_last_updated_by,
x_creation_date,
x_created_by,
--
FND_GLOBAL.conc_login_id
from FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and not exists
(select NULL
from AMS_LIST_SRC_TYPES_TL T
where T.LIST_SOURCE_TYPE_ID = x_list_source_type_id
and T.LANGUAGE = L.LANGUAGE_CODE);
END insert_row;
CURSOR C1 IS SELECT
object_version_number,
list_source_name,
list_source_type,
source_type_code,
source_object_name,
master_source_type_flag,
source_object_pk_field,
enabled_flag,
description,
java_class_name,
view_application_id ,
ARC_ACT_SRC_USED_BY ,
SOURCE_CATEGORY ,
IMPORT_TYPE,
BASED_ON_TCA_FLAG
FROM ams_list_src_types
WHERE list_source_type_id = x_list_source_type_id
FOR UPDATE OF list_source_type_id NOWAIT;
PROCEDURE update_row (
x_list_source_type_id IN NUMBER,
x_object_version_number IN NUMBER,
x_list_source_name IN VARCHAR2,
x_list_source_type IN VARCHAR2,
x_source_type_code IN VARCHAR2,
x_source_object_name IN VARCHAR2,
x_master_source_type_flag IN VARCHAR2,
x_source_object_pk_field IN VARCHAR2,
x_enabled_flag IN VARCHAR2,
x_description IN VARCHAR2,
X_JAVA_CLASS_NAME IN VARCHAR2,
x_view_application_id in number,
x_ARC_ACT_SRC_USED_BY in varchar2,
x_SOURCE_CATEGORY in varchar2,
x_IMPORT_TYPE in varchar2,
x_last_update_date IN DATE,
x_last_updated_by IN NUMBER,
x_last_update_login IN NUMBER,
x_BASED_ON_TCA_FLAG IN varchar2
) IS
l_import_type VARCHAR2(30);
CURSOR c_import_type(code IN VARCHAR2) IS SELECT lookup_code FROM ams_lookups
WHERE lookup_type = 'AMS_IMPORT_TYPE' and enabled_flag='Y'
AND lookup_code = code;
UPDATE ams_list_src_types SET
object_version_number = x_object_version_number,
list_source_name = x_list_source_name,
list_source_type = x_list_source_type,
source_type_code = x_source_type_code,
source_object_name = x_source_object_name,
master_source_type_flag = x_master_source_type_flag,
source_object_pk_field = x_source_object_pk_field,
enabled_flag = x_enabled_flag,
description = x_description,
JAVA_CLASS_NAME = x_java_class_name,
view_application_id = x_VIEW_APPLICATION_ID,
ARC_ACT_SRC_USED_BY = x_ARC_ACT_SRC_USED_BY,
SOURCE_CATEGORY = x_SOURCE_CATEGORY,
IMPORT_TYPE = x_IMPORT_TYPE,
last_update_date = x_last_update_date,
last_updated_by = x_last_updated_by,
last_update_login = x_last_update_login,
BASED_ON_TCA_FLAG = X_BASED_ON_TCA_FLAG
WHERE list_source_type_id = x_list_source_type_id;
update AMS_LIST_SRC_TYPES_TL set
LIST_SOURCE_NAME = x_list_source_name,
DESCRIPTION = x_description,
LAST_UPDATE_DATE = sysdate,
--for bug 5237401
-- LAST_UPDATE_BY = FND_GLOBAL.user_id,
last_update_by = x_last_updated_by,
LAST_UPDATE_LOGIN = FND_GLOBAL.conc_login_id,
SOURCE_LANG = userenv('LANG')
WHERE list_source_type_id = x_list_source_type_id
and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
END update_row;
PROCEDURE delete_row (
x_list_source_type_id IN NUMBER
) IS
BEGIN
DELETE FROM ams_list_src_types
WHERE list_source_type_id = x_list_source_type_id;
END delete_row;
l_last_updated_by number;
SELECT object_version_number, last_updated_by
FROM ams_list_src_types
WHERE list_source_type_id = x_list_source_type_id;
SELECT 'x'
FROM ams_list_src_types
WHERE list_source_type_id = x_list_source_type_id;
SELECT ams_list_src_types_s.NEXTVAL
FROM DUAL;
ams_list_src_types_pkg.Insert_Row (
X_ROWID => l_row_id,
X_LIST_SOURCE_TYPE_ID => l_list_source_type_id,
X_OBJECT_VERSION_NUMBER => l_obj_verno,
X_LIST_SOURCE_NAME => x_list_source_name,
X_LIST_SOURCE_TYPE => x_list_source_type,
X_SOURCE_TYPE_CODE => x_source_type_code,
X_SOURCE_OBJECT_NAME => x_source_object_name,
X_MASTER_SOURCE_TYPE_FLAG => x_master_source_type_flag,
X_SOURCE_OBJECT_PK_FIELD => x_source_object_pk_field,
X_ENABLED_FLAG => x_enabled_flag,
X_DESCRIPTION => x_description,
X_JAVA_CLASS_NAME => x_java_class_name,
x_view_application_id => x_VIEW_APPLICATION_ID,
x_ARC_ACT_SRC_USED_BY => x_ARC_ACT_SRC_USED_BY,
x_SOURCE_CATEGORY => x_SOURCE_CATEGORY,
x_IMPORT_TYPE => x_IMPORT_TYPE,
X_CREATION_DATE => SYSDATE,
X_CREATED_BY => l_user_id,
X_LAST_UPDATE_DATE => SYSDATE,
X_LAST_UPDATED_BY => l_user_id,
X_LAST_UPDATE_LOGIN => 0,
x_BASED_ON_TCA_FLAG => x_BASED_ON_TCA_FLAG
);
FETCH c_obj_verno INTO l_obj_verno,l_last_updated_by;
if (l_last_updated_by in (1,2,0) OR
NVL(x_custom_mode,'PRESERVE')='FORCE') THEN
ams_list_src_types_pkg.Update_Row (
X_LIST_SOURCE_TYPE_ID => x_list_source_type_id,
X_OBJECT_VERSION_NUMBER => l_obj_verno,
X_LIST_SOURCE_NAME => x_list_source_name,
X_LIST_SOURCE_TYPE => x_list_source_type,
X_SOURCE_TYPE_CODE => x_source_type_code,
X_SOURCE_OBJECT_NAME => x_source_object_name,
X_MASTER_SOURCE_TYPE_FLAG => x_master_source_type_flag,
X_SOURCE_OBJECT_PK_FIELD => x_source_object_pk_field,
X_ENABLED_FLAG => x_enabled_flag,
X_DESCRIPTION => x_description,
X_JAVA_CLASS_NAME =>X_JAVA_CLASS_NAME,
x_view_application_id =>x_VIEW_APPLICATION_ID,
x_ARC_ACT_SRC_USED_BY =>x_ARC_ACT_SRC_USED_BY,
x_SOURCE_CATEGORY =>x_SOURCE_CATEGORY,
x_IMPORT_TYPE => x_IMPORT_TYPE,
X_LAST_UPDATE_DATE => SYSDATE,
X_LAST_UPDATED_BY => l_user_id,
X_LAST_UPDATE_LOGIN => 0,
x_BASED_ON_TCA_FLAG => x_BASED_ON_TCA_FLAG
);
delete from AMS_LIST_SRC_TYPES_TL T
where not exists
(select NULL
from AMS_LIST_SRC_TYPES B
where B.LIST_SOURCE_TYPE_ID = T.LIST_SOURCE_TYPE_ID
);
update AMS_LIST_SRC_TYPES_TL T set (
LIST_SOURCE_NAME,
DESCRIPTION
) = (select
B.LIST_SOURCE_NAME,
B.DESCRIPTION
from AMS_LIST_SRC_TYPES_TL B
where B.LIST_SOURCE_TYPE_ID = T.LIST_SOURCE_TYPE_ID
and B.LANGUAGE = T.SOURCE_LANG)
where (
T.LIST_SOURCE_TYPE_ID,
T.LANGUAGE
) in (select
SUBT.LIST_SOURCE_TYPE_ID,
SUBT.LANGUAGE
from AMS_LIST_SRC_TYPES_TL SUBB, AMS_LIST_SRC_TYPES_TL SUBT
where SUBB.LIST_SOURCE_TYPE_ID = SUBT.LIST_SOURCE_TYPE_ID
and SUBB.LANGUAGE = SUBT.SOURCE_LANG
and (SUBB.LIST_SOURCE_NAME <> SUBT.LIST_SOURCE_NAME
or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
));
insert into AMS_LIST_SRC_TYPES_TL (
LIST_SOURCE_TYPE_ID,
LAST_UPDATE_DATE,
LAST_UPDATE_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LIST_SOURCE_NAME,
DESCRIPTION,
LANGUAGE,
SOURCE_LANG
) select /*+ ORDERED */
B.LIST_SOURCE_TYPE_ID,
B.LAST_UPDATE_DATE,
B.LAST_UPDATE_BY,
B.CREATION_DATE,
B.CREATED_BY,
B.LAST_UPDATE_LOGIN,
B.LIST_SOURCE_NAME,
B.DESCRIPTION,
L.LANGUAGE_CODE,
B.SOURCE_LANG
from AMS_LIST_SRC_TYPES_TL B, FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and B.LANGUAGE = userenv('LANG')
and not exists
(select NULL
from AMS_LIST_SRC_TYPES_TL T
where T.LIST_SOURCE_TYPE_ID = B.LIST_SOURCE_TYPE_ID
and T.LANGUAGE = L.LANGUAGE_CODE);
cursor c_last_updated_by is
select last_update_by
FROM ams_list_src_types_tl
where list_source_type_id = x_list_source_type_id
and USERENV('LANG') = LANGUAGE;
l_last_updated_by number;
open c_last_updated_by;
fetch c_last_updated_by into l_last_updated_by;
close c_last_updated_by;
if (l_last_updated_by in (1,2,0) OR
NVL(x_custom_mode,'PRESERVE')='FORCE') THEN
update AMS_LIST_SRC_TYPES_TL set
list_source_name = nvl(x_list_source_name, list_source_name),
description = nvl(x_description, description),
source_lang = userenv('LANG'),
last_update_date = sysdate,
last_update_by = decode(x_owner, 'SEED', 1, 'ORACLE', 2, 'SYSADMIN', 0, -1),
last_update_login = 0
where list_source_type_id = x_list_source_type_id
and userenv('LANG') in (language, source_lang);