The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE INSERT_ROW (
X_MESSAGE_ID NUMBER,
X_MESSAGE_NAME VARCHAR2,
X_MESSAGE_TYPE VARCHAR2,
X_MESSAGE_LENGTH NUMBER,
X_UPDATABLE VARCHAR2,
X_MESSAGE_TEXT VARCHAR2,
X_DESCRIPTION VARCHAR2,
X_OWNER VARCHAR2
)
IS
BEGIN
--Insert into base table
INSERT INTO CSM_NEW_MESSAGES
(MESSAGE_ID,
MESSAGE_NAME,
MESSAGE_TYPE,
MESSAGE_LENGTH,
UPDATABLE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
VALUES(X_MESSAGE_ID,
X_MESSAGE_NAME,
X_MESSAGE_TYPE,
X_MESSAGE_LENGTH,
X_UPDATABLE,
SYSDATE,
DECODE(X_OWNER,'SEED',1,0),
SYSDATE,
DECODE(X_OWNER,'SEED',1,0)
);
INSERT INTO CSM_NEW_MESSAGES_TL
(MESSAGE_ID,
MESSAGE_NAME,
MESSAGE_TEXT,
DESCRIPTION,
LANGUAGE,
SOURCE_LANGUAGE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
SELECT X_MESSAGE_ID,
X_MESSAGE_NAME,
X_MESSAGE_TEXT,
X_DESCRIPTION,
L.LANGUAGE_CODE,
userenv('LANG'),
SYSDATE,
DECODE(X_OWNER,'SEED',1,0),
SYSDATE,
DECODE(X_OWNER,'SEED',1,0)
FROM FND_LANGUAGES L
WHERE L.INSTALLED_FLAG in ('I', 'B')
AND NOT EXISTS
(SELECT NULL
FROM CSM_NEW_MESSAGES_TL T
WHERE T.MESSAGE_NAME = X_MESSAGE_NAME);
END INSERT_ROW;
DELETE FROM CSM_NEW_MESSAGES_TL TL
WHERE NOT EXISTS (SELECT 1 FROM CSM_NEW_MESSAGES B
WHERE B.MESSAGE_ID=TL.MESSAGE_ID);
INSERT INTO CSM_NEW_MESSAGES_TL
(MESSAGE_ID,
MESSAGE_NAME,
MESSAGE_TEXT,
DESCRIPTION,
LANGUAGE,
SOURCE_LANGUAGE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
SELECT B.MESSAGE_ID,
B.MESSAGE_NAME,
B.MESSAGE_TEXT,
B.DESCRIPTION,
L.LANGUAGE_CODE,
B.SOURCE_LANGUAGE,
B.CREATION_DATE,
B.CREATED_BY,
B.LAST_UPDATE_DATE,
B.LAST_UPDATED_BY
FROM CSM_NEW_MESSAGES_TL B,
FND_LANGUAGES L
WHERE B.LANGUAGE = userenv('LANG')
AND L.INSTALLED_FLAG in ('I', 'B')
AND NOT EXISTS
(SELECT NULL
FROM CSM_NEW_MESSAGES_TL T
WHERE T.MESSAGE_NAME = B.MESSAGE_NAME
AND T.LANGUAGE = L.LANGUAGE_CODE);
PROCEDURE UPDATE_ROW(
X_MESSAGE_NAME VARCHAR2,
X_MESSAGE_TYPE VARCHAR2,
X_MESSAGE_LENGTH NUMBER,
X_UPDATABLE VARCHAR2,
X_MESSAGE_TEXT VARCHAR2,
X_DESCRIPTION VARCHAR2,
X_OWNER VARCHAR2
)
IS
BEGIN
--Update base Table
UPDATE CSM_NEW_MESSAGES
SET MESSAGE_TYPE = X_MESSAGE_TYPE,
MESSAGE_LENGTH = X_MESSAGE_LENGTH,
UPDATABLE = X_UPDATABLE,
LAST_UPDATED_BY = DECODE(X_OWNER,'SEED',1,0),
LAST_UPDATE_DATE = SYSDATE
WHERE MESSAGE_NAME = X_MESSAGE_NAME;
UPDATE CSM_NEW_MESSAGES_TL
SET MESSAGE_TEXT = X_MESSAGE_TEXT,
DESCRIPTION = X_DESCRIPTION,
SOURCE_LANGUAGE = userenv('LANG'),
LAST_UPDATED_BY = DECODE(X_OWNER,'SEED',1,0),
LAST_UPDATE_DATE = SYSDATE
WHERE MESSAGE_NAME = X_MESSAGE_NAME
AND userenv('LANG') in (LANGUAGE, SOURCE_LANGUAGE);
END UPDATE_ROW;
SELECT 1
FROM CSM_NEW_MESSAGES CNM
WHERE CNM.MESSAGE_NAME = b_message_name;
SELECT CSM_NEW_MESSAGES_S.NEXTVAL into X_MESSAGE_ID FROM dual;
Insert_Row(
X_MESSAGE_ID,
X_MESSAGE_NAME,
X_MESSAGE_TYPE,
X_MESSAGE_LENGTH,
X_UPDATABLE,
X_MESSAGE_TEXT,
X_DESCRIPTION,
X_OWNER );
Update_Row(
X_MESSAGE_NAME,
X_MESSAGE_TYPE,
X_MESSAGE_LENGTH,
X_UPDATABLE,
X_MESSAGE_TEXT,
X_DESCRIPTION,
X_OWNER );
SELECT 1
FROM CSM_NEW_MESSAGES CNM
WHERE CNM.MESSAGE_NAME = b_message_name;
UPDATE CSM_NEW_MESSAGES_TL SET
MESSAGE_TEXT = nvl(X_MESSAGE_TEXT, MESSAGE_TEXT),
DESCRIPTION = nvl(X_DESCRIPTION, DESCRIPTION),
LAST_UPDATE_DATE = SYSDATE,
LAST_UPDATED_BY = DECODE(X_OWNER,'SEED',1,0),
SOURCE_LANGUAGE = userenv('LANG')
WHERE MESSAGE_NAME = X_MESSAGE_NAME
AND userenv('LANG') IN (LANGUAGE, SOURCE_LANGUAGE);
PROCEDURE INSERT_ROW_PERZ (
X_MESSAGE_ID NUMBER,
X_MESSAGE_NAME VARCHAR2,
X_LEVEL_ID NUMBER,
X_LEVEL_VALUE NUMBER,
X_LANGUAGE VARCHAR2,
X_MESSAGE_TEXT VARCHAR2,
X_DESCRIPTION VARCHAR2,
X_OWNER VARCHAR2
)
IS
errmsg varchar2(4000);
INSERT INTO CSM_NEW_MESSAGES_PERZ
(MESSAGE_ID,
MESSAGE_NAME,
LEVEL_ID,
LEVEL_VALUE,
LANGUAGE,
MESSAGE_TEXT,
DESCRIPTION,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
VALUES(X_MESSAGE_ID,
X_MESSAGE_NAME,
X_LEVEL_ID,
X_LEVEL_VALUE,
X_LANGUAGE,
X_MESSAGE_TEXT,
X_DESCRIPTION,
SYSDATE,
DECODE(X_OWNER,'SEED',1,0),
SYSDATE,
DECODE(X_OWNER,'SEED',1,0)
);
END INSERT_ROW_PERZ;
PROCEDURE UPDATE_ROW_PERZ(
X_MESSAGE_NAME VARCHAR2,
X_LEVEL_ID NUMBER,
X_LEVEL_VALUE NUMBER,
X_LANGUAGE VARCHAR2,
X_MESSAGE_TEXT VARCHAR2,
X_DESCRIPTION VARCHAR2,
X_OWNER VARCHAR2
)
IS
BEGIN
--Update base Table
UPDATE CSM_NEW_MESSAGES_PERZ
SET MESSAGE_TEXT = X_MESSAGE_TEXT,
DESCRIPTION = X_DESCRIPTION,
LAST_UPDATED_BY = DECODE(X_OWNER,'SEED',1,0),
LAST_UPDATE_DATE = SYSDATE
WHERE MESSAGE_NAME = X_MESSAGE_NAME
AND LEVEL_ID = X_LEVEL_ID
AND LEVEL_VALUE = X_LEVEL_VALUE
AND LANGUAGE = X_LANGUAGE;
END UPDATE_ROW_PERZ;
SELECT 1
FROM CSM_NEW_MESSAGES_PERZ PERZ
WHERE PERZ.MESSAGE_NAME = b_message_name
AND PERZ.LEVEL_ID = b_level_id
AND PERZ.LEVEL_VALUE = b_level_value
AND PERZ.LANGUAGE = b_language;
SELECT MESSAGE_ID
FROM CSM_NEW_MESSAGES CNM
WHERE CNM.MESSAGE_NAME = b_message_name;
INSERT_ROW_PERZ(
X_MESSAGE_ID,
X_MESSAGE_NAME,
X_LEVEL_ID,
X_LEVEL_VALUE,
X_LANGUAGE,
X_MESSAGE_TEXT,
X_DESCRIPTION,
X_OWNER );
UPDATE_ROW_PERZ(
X_MESSAGE_NAME,
X_LEVEL_ID,
X_LEVEL_VALUE,
X_LANGUAGE,
X_MESSAGE_TEXT,
X_DESCRIPTION,
X_OWNER );