The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT module_type, module_status
INTO x_module_type, x_module_status
FROM cn_modules
WHERE module_id = x_module_id ;
update_row(x_module_id => x_module_id,
x_module_status => x_module_status,
x_org_id => l_org_id);
PROCEDURE INSERT_ROW (
X_ROWID IN OUT nocopy VARCHAR2,
X_MODULE_ID IN NUMBER,
X_MODULE_TYPE IN VARCHAR2,
X_REPOSITORY_ID IN NUMBER,
X_DESCRIPTION IN VARCHAR2,
X_PARENT_MODULE_ID IN NUMBER,
X_SOURCE_REPOSITORY_ID IN NUMBER,
X_MODULE_STATUS IN VARCHAR2,
X_EVENT_ID IN NUMBER,
X_LAST_MODIFICATION IN DATE,
X_LAST_SYNCHRONIZATION IN DATE,
X_OUTPUT_FILENAME IN VARCHAR2,
X_COLLECT_FLAG IN VARCHAR2,
X_NAME 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_ORG_ID IN NUMBER) IS -- Modified For R12 MOAC
CURSOR C IS SELECT ROWID FROM CN_MODULES_ALL_B
WHERE MODULE_ID = x_module_id;
INSERT INTO CN_MODULES_ALL_B(
MODULE_ID,
MODULE_TYPE,
REPOSITORY_ID,
DESCRIPTION,
PARENT_MODULE_ID,
SOURCE_REPOSITORY_ID,
MODULE_STATUS,
EVENT_ID,
LAST_MODIFICATION,
LAST_SYNCHRONIZATION,
OUTPUT_FILENAME,
COLLECT_FLAG,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
ORG_ID -- Modified For R12 MOAC
) VALUES (
X_MODULE_ID,
X_MODULE_TYPE,
X_REPOSITORY_ID,
X_DESCRIPTION,
X_PARENT_MODULE_ID,
X_SOURCE_REPOSITORY_ID,
X_MODULE_STATUS,
X_EVENT_ID,
X_LAST_MODIFICATION,
X_LAST_SYNCHRONIZATION,
X_OUTPUT_FILENAME,
X_COLLECT_FLAG,
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN,
X_ORG_ID -- Modified For R12 MOAC
);
INSERT INTO CN_MODULES_ALL_TL (
MODULE_ID,
NAME,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
CREATION_DATE,
CREATED_BY,
LANGUAGE,
SOURCE_LANG,
ORG_ID
) SELECT
X_MODULE_ID,
X_NAME,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN,
X_CREATION_DATE,
X_CREATED_BY,
L.LANGUAGE_CODE,
userenv('LANG'),
X_ORG_ID
FROM FND_LANGUAGES L
WHERE L.INSTALLED_FLAG IN ('I', 'B')
AND NOT EXISTS
(SELECT NULL
FROM CN_MODULES_ALL_TL T
WHERE T.MODULE_ID = X_MODULE_ID
AND T.LANGUAGE = L.language_code
AND T.ORG_ID = X_ORG_ID
);
END INSERT_ROW;
CURSOR c IS SELECT
MODULE_TYPE,
REPOSITORY_ID,
DESCRIPTION,
PARENT_MODULE_ID,
SOURCE_REPOSITORY_ID,
MODULE_STATUS,
EVENT_ID,
LAST_MODIFICATION,
LAST_SYNCHRONIZATION,
OUTPUT_FILENAME,
COLLECT_FLAG
FROM CN_MODULES_ALL_B
WHERE MODULE_ID = x_module_id AND
ORG_ID = X_ORG_ID
FOR UPDATE OF MODULE_ID NOWAIT;
CURSOR c1 IS SELECT
NAME,
decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
FROM CN_MODULES_ALL_TL
WHERE MODULE_ID = x_module_id AND
ORG_ID = X_ORG_ID
AND userenv('LANG') IN (LANGUAGE, SOURCE_LANG)
FOR UPDATE OF MODULE_ID NOWAIT;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
PROCEDURE UPDATE_ROW (
X_MODULE_ID IN NUMBER,
X_MODULE_TYPE IN VARCHAR2,
X_REPOSITORY_ID IN NUMBER,
X_DESCRIPTION IN VARCHAR2,
X_PARENT_MODULE_ID IN NUMBER,
X_SOURCE_REPOSITORY_ID IN NUMBER,
X_MODULE_STATUS IN VARCHAR2,
X_EVENT_ID IN NUMBER,
X_LAST_MODIFICATION IN DATE,
X_LAST_SYNCHRONIZATION IN DATE,
X_OUTPUT_FILENAME IN VARCHAR2,
X_COLLECT_FLAG IN VARCHAR2,
X_NAME IN VARCHAR2,
X_LAST_UPDATE_DATE IN DATE,
X_LAST_UPDATED_BY IN NUMBER,
X_LAST_UPDATE_LOGIN IN NUMBER,
X_ORG_ID IN NUMBER
) IS
CURSOR cur_b IS
SELECT *
FROM cn_modules_all_b
WHERE module_id = x_module_id AND
org_id = X_ORG_ID;
SELECT NAME, last_update_date, last_updated_by,last_update_login
FROM cn_modules_all_tl
WHERE module_id = x_module_id AND
userenv('LANG') IN (LANGUAGE, SOURCE_LANG) AND
org_id = X_ORG_ID;
SELECT Decode(X_MODULE_ID, FND_API.G_MISS_NUM, rec_b.module_id,
Ltrim(Rtrim(X_MODULE_ID)))
INTO rec_b.module_id FROM sys.dual;
SELECT Decode(X_MODULE_TYPE, FND_API.G_MISS_CHAR, rec_b.MODULE_TYPE,
Ltrim(Rtrim(X_MODULE_TYPE)))
INTO rec_b.MODULE_TYPE FROM sys.dual;
SELECT Decode(X_REPOSITORY_ID, FND_API.G_MISS_NUM, rec_b.REPOSITORY_ID,
Ltrim(Rtrim(X_REPOSITORY_ID)))
INTO rec_b.REPOSITORY_ID FROM sys.dual;
SELECT Decode(X_DESCRIPTION, FND_API.G_MISS_CHAR, rec_b.DESCRIPTION,
Ltrim(Rtrim(X_DESCRIPTION)))
INTO rec_b.DESCRIPTION FROM sys.dual;
SELECT Decode(X_PARENT_MODULE_ID, FND_API.G_MISS_NUM, rec_b.PARENT_MODULE_ID,
Ltrim(Rtrim(X_PARENT_MODULE_ID)))
INTO rec_b.PARENT_MODULE_ID FROM sys.dual;
SELECT Decode(X_SOURCE_REPOSITORY_ID, FND_API.G_MISS_NUM, rec_b.SOURCE_REPOSITORY_ID,Ltrim(Rtrim(X_SOURCE_REPOSITORY_ID)))
INTO rec_b.SOURCE_REPOSITORY_ID FROM sys.dual;
SELECT Decode(X_MODULE_STATUS, FND_API.G_MISS_CHAR, rec_b.MODULE_STATUS,
Ltrim(Rtrim(X_MODULE_STATUS)))
INTO rec_b.MODULE_STATUS FROM sys.dual;
SELECT Decode(X_EVENT_ID, FND_API.G_MISS_NUM, rec_b.EVENT_ID,
Ltrim(Rtrim(X_EVENT_ID)))
INTO rec_b.EVENT_ID FROM sys.dual;
SELECT Decode(X_LAST_MODIFICATION, FND_API.G_MISS_DATE, rec_b.LAST_MODIFICATION,
Ltrim(Rtrim(X_LAST_MODIFICATION)))
INTO rec_b.LAST_MODIFICATION FROM sys.dual;
SELECT Decode(X_LAST_SYNCHRONIZATION, FND_API.G_MISS_DATE, rec_b.LAST_SYNCHRONIZATION,
Ltrim(Rtrim(X_LAST_SYNCHRONIZATION)))
INTO rec_b.LAST_SYNCHRONIZATION FROM sys.dual;
SELECT Decode(X_OUTPUT_FILENAME, FND_API.G_MISS_CHAR, rec_b.OUTPUT_FILENAME,
Ltrim(Rtrim(X_OUTPUT_FILENAME)))
INTO rec_b.OUTPUT_FILENAME FROM sys.dual;
SELECT Decode(X_COLLECT_FLAG, FND_API.G_MISS_CHAR, rec_b.COLLECT_FLAG,
Ltrim(Rtrim(X_COLLECT_FLAG)))
INTO rec_b.COLLECT_FLAG FROM sys.dual;
SELECT Decode(X_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, rec_b.LAST_UPDATE_DATE,
Ltrim(Rtrim(X_LAST_UPDATE_DATE)))
INTO rec_b.LAST_UPDATE_DATE FROM sys.dual;
SELECT Decode(X_LAST_UPDATED_BY, FND_API.G_MISS_NUM, rec_b.LAST_UPDATED_BY,
Ltrim(Rtrim(X_LAST_UPDATED_BY)))
INTO rec_b.last_updated_by FROM sys.dual;
SELECT Decode(X_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, rec_b.LAST_UPDATE_LOGIN,
Ltrim(Rtrim(X_LAST_UPDATE_LOGIN)))
INTO rec_b.last_update_login FROM sys.dual;
UPDATE CN_MODULES_ALL_B SET
MODULE_TYPE = rec_b.MODULE_TYPE,
REPOSITORY_ID = rec_b.REPOSITORY_ID,
DESCRIPTION = rec_b.DESCRIPTION,
PARENT_MODULE_ID = rec_b.PARENT_MODULE_ID,
SOURCE_REPOSITORY_ID = rec_b.SOURCE_REPOSITORY_ID,
MODULE_STATUS = rec_b.MODULE_STATUS,
EVENT_ID = rec_b.EVENT_ID,
LAST_MODIFICATION = rec_b.LAST_MODIFICATION,
LAST_SYNCHRONIZATION = rec_b.LAST_SYNCHRONIZATION,
OUTPUT_FILENAME = rec_b.OUTPUT_FILENAME,
COLLECT_FLAG = rec_b.COLLECT_FLAG,
LAST_UPDATE_DATE = rec_b.LAST_UPDATE_DATE,
LAST_UPDATED_BY = rec_b.LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = rec_b.LAST_UPDATE_LOGIN
WHERE MODULE_ID = rec_b.module_id
AND
org_id = X_ORG_ID;
SELECT Decode(X_NAME, FND_API.G_MISS_CHAR, rec_tl.NAME,
Ltrim(Rtrim(X_NAME)))
INTO rec_tl.NAME FROM sys.dual;
SELECT Decode(X_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, rec_tl.LAST_UPDATE_DATE,
Ltrim(Rtrim(X_LAST_UPDATE_DATE)))
INTO rec_tl.LAST_UPDATE_DATE FROM sys.dual;
SELECT Decode(X_LAST_UPDATED_BY, FND_API.G_MISS_NUM, rec_tl.LAST_UPDATED_BY,
Ltrim(Rtrim(X_LAST_UPDATED_BY)))
INTO rec_tl.last_updated_by FROM sys.dual;
SELECT Decode(X_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, rec_tl.LAST_UPDATE_LOGIN,
Ltrim(Rtrim(X_LAST_UPDATE_LOGIN)))
INTO rec_tl.last_update_login FROM sys.dual;
UPDATE CN_MODULES_ALL_TL SET
NAME = rec_tl.NAME,
LAST_UPDATE_DATE = rec_tl.LAST_UPDATE_DATE,
LAST_UPDATED_BY = rec_tl.LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = rec_tl.LAST_UPDATE_LOGIN,
SOURCE_LANG = userenv('LANG')
WHERE MODULE_ID = x_module_id AND
userenv('LANG') IN (LANGUAGE, SOURCE_LANG) AND
org_id = X_ORG_ID;
END UPDATE_ROW;
PROCEDURE DELETE_ROW (
X_MODULE_ID IN NUMBER,
X_ORG_ID IN NUMBER
) IS
BEGIN
DELETE FROM CN_MODULES_ALL_TL
WHERE MODULE_ID = x_module_id AND
ORG_ID = X_ORG_ID;
DELETE FROM CN_MODULES_ALL_B
WHERE MODULE_ID = x_module_id AND
ORG_ID = X_ORG_ID;
END DELETE_ROW;
DELETE FROM CN_MODULES_ALL_TL T
WHERE NOT EXISTS
(SELECT NULL
FROM CN_MODULES_ALL_B B
WHERE B.MODULE_ID = T.module_id
AND B.org_id = T.org_id);
UPDATE CN_MODULES_ALL_TL T SET (
NAME
) = (SELECT
B.NAME
FROM CN_MODULES_ALL_TL B
WHERE B.MODULE_ID = T.MODULE_ID
AND B.LANGUAGE = T.source_lang
AND B.org_id = T.org_id)
WHERE (
T.MODULE_ID,
T.LANGUAGE
) IN (SELECT
SUBT.MODULE_ID,
SUBT.LANGUAGE
FROM CN_MODULES_ALL_TL SUBB, CN_MODULES_ALL_TL SUBT
WHERE SUBB.MODULE_ID = SUBT.MODULE_ID
AND SUBB.LANGUAGE = SUBT.source_lang
AND SUBB.ORG_ID = SUBT.ORG_ID
AND (SUBB.NAME <> SUBT.NAME
OR (SUBB.NAME IS NULL AND SUBT.NAME IS NOT NULL)
OR (SUBB.NAME IS NOT NULL AND SUBT.NAME IS NULL)
));
INSERT INTO CN_MODULES_ALL_TL (
ORG_ID,
MODULE_ID,
NAME,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
CREATION_DATE,
CREATED_BY,
LANGUAGE,
SOURCE_LANG
) SELECT
B.ORG_ID,
B.MODULE_ID,
B.NAME,
B.LAST_UPDATE_DATE,
B.LAST_UPDATED_BY,
B.LAST_UPDATE_LOGIN,
B.CREATION_DATE,
B.CREATED_BY,
L.LANGUAGE_CODE,
B.SOURCE_LANG
FROM CN_MODULES_ALL_TL B, FND_LANGUAGES L
WHERE L.INSTALLED_FLAG IN ('I', 'B')
AND B.LANGUAGE = userenv('LANG')
AND NOT EXISTS
(SELECT NULL
FROM CN_MODULES_ALL_TL T
WHERE T.MODULE_ID = B.MODULE_ID
AND T.LANGUAGE = L.language_code
AND T.ORG_ID = B.ORG_ID);
UPDATE CN_MODULES_ALL_B SET
DESCRIPTION = X_DESCRIPTION,
MODULE_TYPE = X_MODULE_TYPE,
MODULE_STATUS = X_MODULE_STATUS,
EVENT_ID = X_EVENT_ID,
REPOSITORY_ID = X_REPOSITORY_ID,
PARENT_MODULE_ID = X_PARENT_MODULE_ID,
SOURCE_REPOSITORY_ID = X_SOURCE_REPOSITORY_ID,
LAST_MODIFICATION = X_LAST_MODIFICATION,
LAST_SYNCHRONIZATION = X_LAST_SYNCHRONIZATION,
OUTPUT_FILENAME = X_OUTPUT_FILENAME,
COLLECT_FLAG = X_COLLECT_FLAG,
LAST_UPDATE_DATE = sysdate,
LAST_UPDATED_BY = user_id,
LAST_UPDATE_LOGIN = 0
WHERE MODULE_ID = x_module_id
AND org_id = x_org_id;
INSERT INTO cn_modules_all_b
(MODULE_ID,
DESCRIPTION,
MODULE_TYPE,
MODULE_STATUS,
EVENT_ID,
REPOSITORY_ID,
PARENT_MODULE_ID,
SOURCE_REPOSITORY_ID,
LAST_MODIFICATION,
LAST_SYNCHRONIZATION,
OUTPUT_FILENAME,
COLLECT_FLAG,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_login,
org_id
) VALUES
(X_MODULE_ID,
X_DESCRIPTION,
X_MODULE_TYPE,
X_MODULE_STATUS,
X_EVENT_ID,
X_REPOSITORY_ID,
X_PARENT_MODULE_ID,
X_SOURCE_REPOSITORY_ID,
X_LAST_MODIFICATION,
X_LAST_SYNCHRONIZATION,
X_OUTPUT_FILENAME,
X_COLLECT_FLAG,
sysdate,
user_id,
sysdate,
user_id,
0,
x_org_id
);
UPDATE CN_MODULES_ALL_TL SET
NAME = X_NAME,
LAST_UPDATE_DATE = sysdate,
LAST_UPDATED_BY = user_id,
LAST_UPDATE_LOGIN = 0,
SOURCE_LANG = userenv('LANG')
WHERE MODULE_ID = x_module_id
AND userenv('LANG') IN (LANGUAGE, SOURCE_LANG)
AND org_id = x_org_id;
INSERT INTO CN_MODULES_ALL_TL
(MODULE_ID,
NAME,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
CREATION_DATE,
CREATED_BY,
LANGUAGE,
SOURCE_LANG
) SELECT
X_MODULE_ID,
X_NAME,
sysdate,
user_id,
0,
sysdate,
user_id,
L.LANGUAGE_CODE,
userenv('LANG')
FROM FND_LANGUAGES L
WHERE L.INSTALLED_FLAG IN ('I', 'B')
AND NOT EXISTS
(SELECT NULL
FROM CN_MODULES_ALL_TL T
WHERE T.MODULE_ID = X_MODULE_ID
AND T.LANGUAGE = L.LANGUAGE_CODE);
UPDATE cn_modules_all_tl SET
NAME = x_name,
last_update_date = sysdate,
last_updated_by = user_id,
last_update_login = 0,
source_lang = userenv('LANG')
WHERE module_id = x_module_id
AND userenv('LANG') IN (LANGUAGE, SOURCE_LANG);