The following lines contain the word 'select', 'insert', 'update' or 'delete':
select value
INTO l_utl_file_dir
FROM v$parameter
WHERE name = 'utl_file_dir';
SELECT ENG_CHANGE_ROUTES_S.NEXTVAL into X_NEW_ROUTE_ID
FROM DUAL;
UPDATE ENG_CHANGE_ROUTES
SET TEMPLATE_FLAG = 'H'
WHERE ROUTE_ID = P_ROUTE_ID ;
cursor c is select
TEMPLATE_FLAG,
OWNER_ID,
FIXED_FLAG,
OBJECT_NAME,
OBJECT_ID1,
OBJECT_ID2,
OBJECT_ID3,
OBJECT_ID4,
OBJECT_ID5,
APPLIED_TEMPLATE_ID,
WF_ITEM_TYPE,
WF_ITEM_KEY,
WF_PROCESS_NAME,
STATUS_CODE,
ROUTE_START_DATE,
ROUTE_END_DATE,
CHANGE_REVISION,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
REQUEST_ID,
PROGRAM_ID,
PROGRAM_APPLICATION_ID,
PROGRAM_UPDATE_DATE,
ORIGINAL_SYSTEM_REFERENCE,
CLASSIFICATION_CODE,
ROUTE_TYPE_CODE
from ENG_CHANGE_ROUTES
where ROUTE_ID = P_FROM_ROUTE_ID ;
cursor c1 is select
ROUTE_NAME,
ROUTE_DESCRIPTION,
decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
from ENG_CHANGE_ROUTES_TL
where ROUTE_ID = P_FROM_ROUTE_ID
and userenv('LANG') in (LANGUAGE, SOURCE_LANG) ;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
INSERT_ROW (
X_ROWID => l_rowid,
X_ROUTE_ID => X_TO_ROUTE_ID ,
X_ROUTE_NAME => tlrecinfo.ROUTE_NAME,
X_ROUTE_DESCRIPTION => tlrecinfo.ROUTE_DESCRIPTION,
X_TEMPLATE_FLAG => 'N' , -- recinfo.TEMPLATE_FLAG,
X_OWNER_ID => recinfo.OWNER_ID,
X_FIXED_FLAG => recinfo.FIXED_FLAG,
X_OBJECT_NAME => recinfo.OBJECT_NAME,
X_OBJECT_ID1 => recinfo.OBJECT_ID1,
X_OBJECT_ID2 => recinfo.OBJECT_ID2,
X_OBJECT_ID3 => recinfo.OBJECT_ID3,
X_OBJECT_ID4 => recinfo.OBJECT_ID4,
X_OBJECT_ID5 => recinfo.OBJECT_ID5,
X_APPLIED_TEMPLATE_ID => recinfo.APPLIED_TEMPLATE_ID,
X_WF_ITEM_TYPE => recinfo.WF_ITEM_TYPE,
X_WF_ITEM_KEY => recinfo.WF_ITEM_KEY,
X_WF_PROCESS_NAME => recinfo.WF_PROCESS_NAME,
X_STATUS_CODE => 'NOT_STARTED' , -- recinfo.STATUS_CODE,
X_ROUTE_START_DATE => NULL , -- recinfo.ROUTE_START_DATE,
X_ROUTE_END_DATE => NULL , -- recinfo.ROUTE_END_DATE,
X_CHANGE_REVISION => recinfo.CHANGE_REVISION,
X_CREATION_DATE => SYSDATE,
X_CREATED_BY => l_fnd_user_id,
X_LAST_UPDATE_DATE => SYSDATE,
X_LAST_UPDATED_BY => l_fnd_user_id,
X_LAST_UPDATE_LOGIN => l_fnd_login_id,
X_ATTRIBUTE_CATEGORY => recinfo.ATTRIBUTE_CATEGORY,
X_ATTRIBUTE1 => recinfo.ATTRIBUTE1,
X_ATTRIBUTE2 => recinfo.ATTRIBUTE2,
X_ATTRIBUTE3 => recinfo.ATTRIBUTE3,
X_ATTRIBUTE4 => recinfo.ATTRIBUTE4,
X_ATTRIBUTE5 => recinfo.ATTRIBUTE5,
X_ATTRIBUTE6 => recinfo.ATTRIBUTE6,
X_ATTRIBUTE7 => recinfo.ATTRIBUTE7,
X_ATTRIBUTE8 => recinfo.ATTRIBUTE8,
X_ATTRIBUTE9 => recinfo.ATTRIBUTE9,
X_ATTRIBUTE10 => recinfo.ATTRIBUTE10,
X_ATTRIBUTE11 => recinfo.ATTRIBUTE11,
X_ATTRIBUTE12 => recinfo.ATTRIBUTE12,
X_ATTRIBUTE13 => recinfo.ATTRIBUTE13,
X_ATTRIBUTE14 => recinfo.ATTRIBUTE14,
X_ATTRIBUTE15 => recinfo.ATTRIBUTE15,
X_REQUEST_ID => recinfo.REQUEST_ID,
X_PROGRAM_ID => recinfo.PROGRAM_ID,
X_PROGRAM_APPLICATION_ID => recinfo.PROGRAM_APPLICATION_ID,
X_PROGRAM_UPDATE_DATE => recinfo.PROGRAM_UPDATE_DATE,
X_ORIGINAL_SYSTEM_REFERENCE => recinfo.ORIGINAL_SYSTEM_REFERENCE,
X_CLASSIFICATION_CODE => recinfo.CLASSIFICATION_CODE,
X_ROUTE_TYPE_CODE => recinfo.ROUTE_TYPE_CODE
);
* PROCEDURE INSERT_ROW;
* PROCEDURE UPDATE_ROW;
* PROCEDURE DELETE_ROW;
PROCEDURE INSERT_ROW (
X_ROWID IN OUT NOCOPY VARCHAR2,
X_ROUTE_ID IN NUMBER,
X_ROUTE_NAME IN VARCHAR2,
X_ROUTE_DESCRIPTION IN VARCHAR2,
X_TEMPLATE_FLAG IN VARCHAR2,
X_OWNER_ID IN NUMBER,
X_FIXED_FLAG IN VARCHAR2,
X_OBJECT_NAME IN VARCHAR2,
X_OBJECT_ID1 IN NUMBER,
X_OBJECT_ID2 IN NUMBER,
X_OBJECT_ID3 IN NUMBER,
X_OBJECT_ID4 IN NUMBER,
X_OBJECT_ID5 IN NUMBER,
X_APPLIED_TEMPLATE_ID IN NUMBER,
X_WF_ITEM_TYPE IN VARCHAR2,
X_WF_ITEM_KEY IN VARCHAR2,
X_WF_PROCESS_NAME IN VARCHAR2,
X_STATUS_CODE IN VARCHAR2,
X_ROUTE_START_DATE IN DATE,
X_ROUTE_END_DATE IN DATE,
X_CHANGE_REVISION 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_ATTRIBUTE_CATEGORY IN VARCHAR2,
X_ATTRIBUTE1 IN VARCHAR2,
X_ATTRIBUTE2 IN VARCHAR2,
X_ATTRIBUTE3 IN VARCHAR2,
X_ATTRIBUTE4 IN VARCHAR2,
X_ATTRIBUTE5 IN VARCHAR2,
X_ATTRIBUTE6 IN VARCHAR2,
X_ATTRIBUTE7 IN VARCHAR2,
X_ATTRIBUTE8 IN VARCHAR2,
X_ATTRIBUTE9 IN VARCHAR2,
X_ATTRIBUTE10 IN VARCHAR2,
X_ATTRIBUTE11 IN VARCHAR2,
X_ATTRIBUTE12 IN VARCHAR2,
X_ATTRIBUTE13 IN VARCHAR2,
X_ATTRIBUTE14 IN VARCHAR2,
X_ATTRIBUTE15 IN VARCHAR2,
X_REQUEST_ID IN NUMBER,
X_PROGRAM_ID IN NUMBER,
X_PROGRAM_APPLICATION_ID IN NUMBER,
X_PROGRAM_UPDATE_DATE IN DATE,
X_ORIGINAL_SYSTEM_REFERENCE IN VARCHAR2,
X_CLASSIFICATION_CODE IN VARCHAR2,
X_ROUTE_TYPE_CODE IN VARCHAR2
)
IS
CURSOR C IS
SELECT ROWID FROM ENG_CHANGE_ROUTES
WHERE ROUTE_ID = X_ROUTE_ID
;
insert into ENG_CHANGE_ROUTES (
ROUTE_ID,
TEMPLATE_FLAG,
OWNER_ID,
FIXED_FLAG,
OBJECT_NAME,
OBJECT_ID1,
OBJECT_ID2,
OBJECT_ID3,
OBJECT_ID4,
OBJECT_ID5,
APPLIED_TEMPLATE_ID,
WF_ITEM_TYPE,
WF_ITEM_KEY,
WF_PROCESS_NAME,
STATUS_CODE,
ROUTE_START_DATE,
ROUTE_END_DATE,
CHANGE_REVISION,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
REQUEST_ID,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
PROGRAM_ID,
PROGRAM_APPLICATION_ID,
PROGRAM_UPDATE_DATE,
ORIGINAL_SYSTEM_REFERENCE,
CLASSIFICATION_CODE,
ROUTE_TYPE_CODE
) values (
X_ROUTE_ID,
X_TEMPLATE_FLAG,
X_OWNER_ID,
X_FIXED_FLAG,
X_OBJECT_NAME,
X_OBJECT_ID1,
X_OBJECT_ID2,
X_OBJECT_ID3,
X_OBJECT_ID4,
X_OBJECT_ID5,
X_APPLIED_TEMPLATE_ID,
X_WF_ITEM_TYPE,
X_WF_ITEM_KEY,
X_WF_PROCESS_NAME,
X_STATUS_CODE,
X_ROUTE_START_DATE,
X_ROUTE_END_DATE,
X_CHANGE_REVISION,
X_ATTRIBUTE_CATEGORY,
X_ATTRIBUTE1,
X_ATTRIBUTE2,
X_ATTRIBUTE3,
X_ATTRIBUTE4,
X_ATTRIBUTE5,
X_ATTRIBUTE6,
X_ATTRIBUTE7,
X_ATTRIBUTE8,
X_ATTRIBUTE9,
X_ATTRIBUTE10,
X_ATTRIBUTE11,
X_ATTRIBUTE12,
X_ATTRIBUTE13,
X_ATTRIBUTE14,
X_ATTRIBUTE15,
X_REQUEST_ID,
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN,
X_PROGRAM_ID,
X_PROGRAM_APPLICATION_ID,
X_PROGRAM_UPDATE_DATE,
X_ORIGINAL_SYSTEM_REFERENCE,
X_CLASSIFICATION_CODE,
X_ROUTE_TYPE_CODE
);
insert into ENG_CHANGE_ROUTES_TL (
LAST_UPDATE_LOGIN,
ROUTE_NAME,
ROUTE_DESCRIPTION,
ROUTE_ID,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LANGUAGE,
SOURCE_LANG
) select
X_LAST_UPDATE_LOGIN,
X_ROUTE_NAME,
X_ROUTE_DESCRIPTION,
X_ROUTE_ID,
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
L.LANGUAGE_CODE,
userenv('LANG')
from FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and not exists
(select NULL
from ENG_CHANGE_ROUTES_TL T
where T.ROUTE_ID = X_ROUTE_ID
and T.LANGUAGE = L.LANGUAGE_CODE);
END INSERT_ROW;
X_PROGRAM_UPDATE_DATE IN DATE,
X_ORIGINAL_SYSTEM_REFERENCE IN VARCHAR2,
X_CLASSIFICATION_CODE IN VARCHAR2,
X_ROUTE_TYPE_CODE IN VARCHAR2
)
IS
cursor c is select
TEMPLATE_FLAG,
OWNER_ID,
FIXED_FLAG,
OBJECT_NAME,
OBJECT_ID1,
OBJECT_ID2,
OBJECT_ID3,
OBJECT_ID4,
OBJECT_ID5,
APPLIED_TEMPLATE_ID,
WF_ITEM_TYPE,
WF_ITEM_KEY,
WF_PROCESS_NAME,
STATUS_CODE,
ROUTE_START_DATE,
ROUTE_END_DATE,
CHANGE_REVISION,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
REQUEST_ID,
PROGRAM_ID,
PROGRAM_APPLICATION_ID,
PROGRAM_UPDATE_DATE,
ORIGINAL_SYSTEM_REFERENCE,
CLASSIFICATION_CODE,
ROUTE_TYPE_CODE
from ENG_CHANGE_ROUTES
where ROUTE_ID = X_ROUTE_ID
for update of ROUTE_ID nowait;
cursor c1 is select
ROUTE_NAME,
ROUTE_DESCRIPTION,
decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
from ENG_CHANGE_ROUTES_TL
where ROUTE_ID = X_ROUTE_ID
and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
for update of ROUTE_ID nowait;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
PROCEDURE UPDATE_ROW (
X_ROUTE_ID IN NUMBER,
X_ROUTE_NAME IN VARCHAR2,
X_ROUTE_DESCRIPTION IN VARCHAR2,
X_TEMPLATE_FLAG IN VARCHAR2,
X_OWNER_ID IN NUMBER,
X_FIXED_FLAG IN VARCHAR2,
X_OBJECT_NAME IN VARCHAR2,
X_OBJECT_ID1 IN NUMBER,
X_OBJECT_ID2 IN NUMBER,
X_OBJECT_ID3 IN NUMBER,
X_OBJECT_ID4 IN NUMBER,
X_OBJECT_ID5 IN NUMBER,
X_APPLIED_TEMPLATE_ID IN NUMBER,
X_WF_ITEM_TYPE IN VARCHAR2,
X_WF_ITEM_KEY IN VARCHAR2,
X_WF_PROCESS_NAME IN VARCHAR2,
X_STATUS_CODE IN VARCHAR2,
X_ROUTE_START_DATE IN DATE,
X_ROUTE_END_DATE IN DATE,
X_CHANGE_REVISION IN VARCHAR2,
X_LAST_UPDATE_DATE IN DATE,
X_LAST_UPDATED_BY IN NUMBER,
X_LAST_UPDATE_LOGIN IN NUMBER,
X_ATTRIBUTE_CATEGORY IN VARCHAR2,
X_ATTRIBUTE1 IN VARCHAR2,
X_ATTRIBUTE2 IN VARCHAR2,
X_ATTRIBUTE3 IN VARCHAR2,
X_ATTRIBUTE4 IN VARCHAR2,
X_ATTRIBUTE5 IN VARCHAR2,
X_ATTRIBUTE6 IN VARCHAR2,
X_ATTRIBUTE7 IN VARCHAR2,
X_ATTRIBUTE8 IN VARCHAR2,
X_ATTRIBUTE9 IN VARCHAR2,
X_ATTRIBUTE10 IN VARCHAR2,
X_ATTRIBUTE11 IN VARCHAR2,
X_ATTRIBUTE12 IN VARCHAR2,
X_ATTRIBUTE13 IN VARCHAR2,
X_ATTRIBUTE14 IN VARCHAR2,
X_ATTRIBUTE15 IN VARCHAR2,
X_REQUEST_ID IN NUMBER,
X_PROGRAM_ID IN NUMBER,
X_PROGRAM_APPLICATION_ID IN NUMBER,
X_PROGRAM_UPDATE_DATE IN DATE,
X_ORIGINAL_SYSTEM_REFERENCE IN VARCHAR2,
X_CLASSIFICATION_CODE IN VARCHAR2,
X_ROUTE_TYPE_CODE IN VARCHAR2
)
IS
BEGIN
update ENG_CHANGE_ROUTES set
TEMPLATE_FLAG = X_TEMPLATE_FLAG,
OWNER_ID = X_OWNER_ID,
FIXED_FLAG = X_FIXED_FLAG,
OBJECT_NAME = X_OBJECT_NAME,
OBJECT_ID1 = X_OBJECT_ID1,
OBJECT_ID2 = X_OBJECT_ID2,
OBJECT_ID3 = X_OBJECT_ID3,
OBJECT_ID4 = X_OBJECT_ID4,
OBJECT_ID5 = X_OBJECT_ID5,
APPLIED_TEMPLATE_ID = X_APPLIED_TEMPLATE_ID,
WF_ITEM_TYPE = X_WF_ITEM_TYPE,
WF_ITEM_KEY = X_WF_ITEM_KEY,
WF_PROCESS_NAME = X_WF_PROCESS_NAME,
STATUS_CODE = X_STATUS_CODE,
ROUTE_START_DATE = X_ROUTE_START_DATE,
ROUTE_END_DATE = X_ROUTE_END_DATE,
CHANGE_REVISION = X_CHANGE_REVISION,
ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
ATTRIBUTE1 = X_ATTRIBUTE1,
ATTRIBUTE2 = X_ATTRIBUTE2,
ATTRIBUTE3 = X_ATTRIBUTE3,
ATTRIBUTE4 = X_ATTRIBUTE4,
ATTRIBUTE5 = X_ATTRIBUTE5,
ATTRIBUTE6 = X_ATTRIBUTE6,
ATTRIBUTE7 = X_ATTRIBUTE7,
ATTRIBUTE8 = X_ATTRIBUTE8,
ATTRIBUTE9 = X_ATTRIBUTE9,
ATTRIBUTE10 = X_ATTRIBUTE10,
ATTRIBUTE11 = X_ATTRIBUTE11,
ATTRIBUTE12 = X_ATTRIBUTE12,
ATTRIBUTE13 = X_ATTRIBUTE13,
ATTRIBUTE14 = X_ATTRIBUTE14,
ATTRIBUTE15 = X_ATTRIBUTE15,
REQUEST_ID = X_REQUEST_ID,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
PROGRAM_ID = X_PROGRAM_ID,
PROGRAM_APPLICATION_ID = X_PROGRAM_APPLICATION_ID,
PROGRAM_UPDATE_DATE = X_PROGRAM_UPDATE_DATE,
ORIGINAL_SYSTEM_REFERENCE = X_ORIGINAL_SYSTEM_REFERENCE,
CLASSIFICATION_CODE = X_CLASSIFICATION_CODE,
ROUTE_TYPE_CODE = X_ROUTE_TYPE_CODE
where ROUTE_ID = X_ROUTE_ID;
update ENG_CHANGE_ROUTES_TL set
ROUTE_NAME = X_ROUTE_NAME,
ROUTE_DESCRIPTION = X_ROUTE_DESCRIPTION,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
SOURCE_LANG = userenv('LANG')
where ROUTE_ID = X_ROUTE_ID
and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
END UPDATE_ROW;
PROCEDURE DELETE_ROW (
X_ROUTE_ID IN NUMBER
)
IS
BEGIN
delete from ENG_CHANGE_ROUTES_TL
where ROUTE_ID = X_ROUTE_ID;
delete from ENG_CHANGE_ROUTES
where ROUTE_ID = X_ROUTE_ID;
END DELETE_ROW;
delete from ENG_CHANGE_ROUTES_TL T
where not exists
(select NULL
from ENG_CHANGE_ROUTES B
where B.ROUTE_ID = T.ROUTE_ID
);
update ENG_CHANGE_ROUTES_TL T set (
ROUTE_NAME,
ROUTE_DESCRIPTION
) = (select
B.ROUTE_NAME,
B.ROUTE_DESCRIPTION
from ENG_CHANGE_ROUTES_TL B
where B.ROUTE_ID = T.ROUTE_ID
and B.LANGUAGE = T.SOURCE_LANG)
where (
T.ROUTE_ID,
T.LANGUAGE
) in (select
SUBT.ROUTE_ID,
SUBT.LANGUAGE
from ENG_CHANGE_ROUTES_TL SUBB, ENG_CHANGE_ROUTES_TL SUBT
where SUBB.ROUTE_ID = SUBT.ROUTE_ID
and SUBB.LANGUAGE = SUBT.SOURCE_LANG
and (SUBB.ROUTE_NAME <> SUBT.ROUTE_NAME
or SUBB.ROUTE_DESCRIPTION <> SUBT.ROUTE_DESCRIPTION
or (SUBB.ROUTE_DESCRIPTION is null and SUBT.ROUTE_DESCRIPTION is not null)
or (SUBB.ROUTE_DESCRIPTION is not null and SUBT.ROUTE_DESCRIPTION is null)
));
insert into ENG_CHANGE_ROUTES_TL (
LAST_UPDATE_LOGIN,
ROUTE_NAME,
ROUTE_DESCRIPTION,
ROUTE_ID,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LANGUAGE,
SOURCE_LANG
) select
B.LAST_UPDATE_LOGIN,
B.ROUTE_NAME,
B.ROUTE_DESCRIPTION,
B.ROUTE_ID,
B.CREATION_DATE,
B.CREATED_BY,
B.LAST_UPDATE_DATE,
B.LAST_UPDATED_BY,
L.LANGUAGE_CODE,
B.SOURCE_LANG
from ENG_CHANGE_ROUTES_TL B, FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and B.LANGUAGE = userenv('LANG')
and not exists
(select NULL
from ENG_CHANGE_ROUTES_TL T
where T.ROUTE_ID = B.ROUTE_ID
and T.LANGUAGE = L.LANGUAGE_CODE);