The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row
(p_commit IN VARCHAR2,
p_called_by_form IN VARCHAR2,
p_risk_phrase_code IN VARCHAR2,
p_language IN VARCHAR2,
p_source_language IN VARCHAR2,
p_risk_description IN VARCHAR2,
p_created_by IN NUMBER,
p_creation_date IN DATE,
p_last_updated_by IN NUMBER,
p_last_update_date IN DATE,
p_last_update_login IN NUMBER,
x_rowid OUT NOCOPY VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_oracle_error OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2)
IS
/* Alpha Variables */
L_RETURN_STATUS VARCHAR2(1) := 'S';
SAVEPOINT Insert_Row;
INSERT INTO gr_risk_phrases_tl
(risk_phrase_code,
language,
source_lang,
risk_description,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login)
VALUES
(p_risk_phrase_code,
p_language,
p_source_language,
p_risk_description,
p_created_by,
p_creation_date,
p_last_updated_by,
p_last_update_date,
p_last_update_login);
/* Now get the row id of the inserted record */
Check_Primary_Key
(p_risk_phrase_code,
p_language,
'F',
l_rowid,
l_key_exists);
ROLLBACK TO SAVEPOINT Insert_Row;
ROLLBACK TO SAVEPOINT Insert_Row;
ROLLBACK TO SAVEPOINT Insert_Row;
'GR_NO_RECORD_INSERTED');
ROLLBACK TO SAVEPOINT Insert_Row;
END Insert_Row;
PROCEDURE Update_Row
(p_commit IN VARCHAR2,
p_called_by_form IN VARCHAR2,
p_rowid IN VARCHAR2,
p_risk_phrase_code IN VARCHAR2,
p_language IN VARCHAR2,
p_source_language IN VARCHAR2,
p_risk_description IN VARCHAR2,
p_created_by IN NUMBER,
p_creation_date IN DATE,
p_last_updated_by IN NUMBER,
p_last_update_date IN DATE,
p_last_update_login IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_oracle_error OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2)
IS
/* Alpha Variables */
L_RETURN_STATUS VARCHAR2(1) := 'S';
SAVEPOINT Update_Row;
UPDATE gr_risk_phrases_tl
SET risk_phrase_code = p_risk_phrase_code,
language = p_language,
source_lang = p_source_language,
risk_description = p_risk_description,
created_by = p_created_by,
creation_date = p_creation_date,
last_updated_by = p_last_updated_by,
last_update_date = p_last_update_date,
last_update_login = p_last_update_login
WHERE rowid = p_rowid;
ROLLBACK TO SAVEPOINT Update_Row;
ROLLBACK TO SAVEPOINT Update_Row;
'GR_NO_RECORD_INSERTED');
ROLLBACK TO SAVEPOINT Update_Row;
END Update_Row;
L_LAST_UPDATE_DATE DATE;
L_LAST_UPDATED_BY NUMBER;
L_LAST_UPDATE_LOGIN NUMBER;
SELECT rpt.risk_description,
rpt.created_by,
rpt.creation_date,
rpt.last_updated_by,
rpt.last_update_date,
rpt.last_update_login
FROM gr_risk_phrases_tl rpt
WHERE rpt.risk_phrase_code = p_risk_phrase_code
AND rpt.language = l_language;
SELECT lng.language_code
FROM fnd_languages lng
WHERE lng.installed_flag IN ('I', 'B');
delete from GR_RISK_PHRASES_TL T
where not exists
(select NULL
from GR_RISK_PHRASES_B B
where B.RISK_PHRASE_CODE = T.RISK_PHRASE_CODE
);
update gr_risk_phrases_tl t set (
risk_description ) =
( select
B.RISK_DESCRIPTION
from GR_RISK_PHRASES_TL B
where B.RISK_PHRASE_CODE = T.RISK_PHRASE_CODE
and B.LANGUAGE = T.SOURCE_LANG)
where (
T.RISK_PHRASE_CODE,
T.LANGUAGE
) in (select
SUBT.RISK_PHRASE_CODE,
SUBT.LANGUAGE
from GR_RISK_PHRASES_TL SUBB, GR_RISK_PHRASES_TL SUBT
where SUBB.RISK_PHRASE_CODE = SUBT.RISK_PHRASE_CODE
and SUBB.LANGUAGE = SUBT.SOURCE_LANG
and (SUBB.RISK_DESCRIPTION <> SUBT.RISK_DESCRIPTION
or (SUBB.RISK_DESCRIPTION is null and SUBT.RISK_DESCRIPTION is not null)
or (SUBB.RISK_DESCRIPTION is not null and SUBT.RISK_DESCRIPTION is null)
));
l_last_updated_by := PhraseDesc.last_updated_by;
l_last_update_date := PhraseDesc.last_update_date;
l_last_update_login := PhraseDesc.last_update_login;
** insert it and go on to the next.
*/
OPEN c_get_installed_languages;
INSERT INTO gr_risk_phrases_tl
(risk_phrase_code,
language,
source_lang,
risk_description,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login)
VALUES
(p_risk_phrase_code,
l_language,
p_language,
l_base_desc,
l_created_by,
l_creation_date,
l_last_updated_by,
l_last_update_date,
l_last_update_login);
p_last_updated_by IN NUMBER,
p_last_update_date IN DATE,
p_last_update_login IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_oracle_error OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2)
IS
/* Alpha Variables */
L_RETURN_STATUS VARCHAR2(1) := 'S';
SELECT last_update_date
FROM gr_risk_phrases_tl
WHERE rowid = p_rowid
FOR UPDATE NOWAIT;
IF LockRiskRcd.last_update_date <> p_last_update_date THEN
RAISE RECORD_CHANGED_ERROR;
PROCEDURE Delete_Row
(p_commit IN VARCHAR2,
p_called_by_form IN VARCHAR2,
p_rowid IN VARCHAR2,
p_risk_phrase_code IN VARCHAR2,
p_language IN VARCHAR2,
p_source_language IN VARCHAR2,
p_risk_description IN VARCHAR2,
p_created_by IN NUMBER,
p_creation_date IN DATE,
p_last_updated_by IN NUMBER,
p_last_update_date IN DATE,
p_last_update_login IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_oracle_error OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2)
IS
/* Alpha Variables */
L_RETURN_STATUS VARCHAR2(1) := 'S';
SAVEPOINT Delete_Row;
DELETE FROM gr_risk_phrases_tl
WHERE rowid = p_rowid;
ROLLBACK TO SAVEPOINT Delete_Row;
ROLLBACK TO SAVEPOINT Delete_Row;
ROLLBACK TO SAVEPOINT Delete_Row;
END Delete_Row;
PROCEDURE Delete_Rows
(p_commit IN VARCHAR2,
p_called_by_form IN VARCHAR2,
p_risk_phrase_code IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_oracle_error OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2)
IS
/* Alpha Variables */
L_RETURN_STATUS VARCHAR2(1) := 'S';
SAVEPOINT Delete_Rows;
DELETE FROM gr_risk_phrases_tl
WHERE risk_phrase_code = p_risk_phrase_code;
ROLLBACK TO SAVEPOINT Delete_Rows;
END Delete_Rows;
SELECT lng.language_code
FROM fnd_languages lng
WHERE lng.language_code = l_language_code;
SELECT lng.installed_flag
FROM fnd_languages lng
WHERE lng.language_code = p_language
AND lng.installed_flag IN ('B', 'I');
SELECT rpt.rowid
FROM gr_risk_phrases_tl rpt
WHERE rpt.risk_phrase_code = p_risk_phrase_code
AND rpt.language = p_language;
UPDATE GR_RISK_PHRASES_TL SET
RISK_DESCRIPTION = X_RISK_DESCRIPTION,
SOURCE_LANG = USERENV('LANG'),
LAST_UPDATE_DATE = sysdate,
LAST_UPDATED_BY = 0,
LAST_UPDATE_LOGIN = 0
WHERE (RISK_PHRASE_CODE = X_RISK_PHRASE_CODE)
AND (USERENV('LANG') IN (LANGUAGE, SOURCE_LANG));
UPDATE GR_RISK_PHRASES_TL SET
RISK_DESCRIPTION = X_RISK_DESCRIPTION,
SOURCE_LANG = USERENV('LANG'),
LAST_UPDATE_DATE = sysdate,
LAST_UPDATED_BY = Decode(X_OWNER, 'SEED', 1, 0),
LAST_UPDATE_LOGIN = 0
WHERE (RISK_PHRASE_CODE = X_RISK_PHRASE_CODE)
AND (USERENV('LANG') IN (LANGUAGE, SOURCE_LANG));
SELECT rowid
FROM GR_RISK_PHRASES_TL
WHERE (RISK_PHRASE_CODE = X_RISK_PHRASE_CODE)
AND (LANGUAGE = X_LANGUAGE);
GR_RISK_PHRASES_TL_PKG.UPDATE_ROW(
P_COMMIT => 'T'
,P_CALLED_BY_FORM => 'F'
,P_ROWID => l_row_id
,P_RISK_PHRASE_CODE => X_RISK_PHRASE_CODE
,P_LANGUAGE => X_LANGUAGE
,P_SOURCE_LANGUAGE => X_SOURCE_LANG
,P_RISK_DESCRIPTION => X_RISK_DESCRIPTION
,P_CREATED_BY => l_user_id
,P_CREATION_DATE => sysdate
,P_LAST_UPDATED_BY => l_user_id
,P_LAST_UPDATE_DATE => sysdate
,P_LAST_UPDATE_LOGIN => 0
,X_RETURN_STATUS => l_return_status
,X_ORACLE_ERROR => l_oracle_error
,X_MSG_DATA => l_msg_data);
GR_RISK_PHRASES_TL_PKG.INSERT_ROW(
P_COMMIT => 'T'
,P_CALLED_BY_FORM => 'F'
,P_RISK_PHRASE_CODE => X_RISK_PHRASE_CODE
,P_LANGUAGE => X_LANGUAGE
,P_SOURCE_LANGUAGE => X_SOURCE_LANG
,P_RISK_DESCRIPTION => X_RISK_DESCRIPTION
,P_CREATED_BY => l_user_id
,P_CREATION_DATE => sysdate
,P_LAST_UPDATED_BY => l_user_id
,P_LAST_UPDATE_DATE => sysdate
,P_LAST_UPDATE_LOGIN => 0
,X_ROWID => l_row_id
,X_RETURN_STATUS => l_return_status
,X_ORACLE_ERROR => l_oracle_error
,X_MSG_DATA => l_msg_data);
SELECT rowid
FROM GR_RISK_PHRASES_TL
WHERE (RISK_PHRASE_CODE = X_RISK_PHRASE_CODE)
AND USERENV('LANG') in (LANGUAGE,SOURCE_LANG);
select sysdate into l_sysdate from dual;
UPDATE GR_RISK_PHRASES_TL SET
RISK_DESCRIPTION = X_RISK_DESCRIPTION,
SOURCE_LANG = USERENV('LANG'),
LAST_UPDATE_DATE = l_sysdate,
LAST_UPDATED_BY = l_user_id,
LAST_UPDATE_LOGIN = 0
WHERE (RISK_PHRASE_CODE = X_RISK_PHRASE_CODE)
AND (USERENV('LANG') IN (LANGUAGE, SOURCE_LANG));
insert into GR_RISK_PHRASES_TL (
RISK_PHRASE_CODE,
RISK_DESCRIPTION,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
LANGUAGE,
SOURCE_LANG
) select
X_RISK_PHRASE_CODE,
X_RISK_DESCRIPTION,
l_user_id,
l_sysdate,
l_user_id,
l_sysdate,
0,
L.LANGUAGE_CODE,
userenv('LANG')
from FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and not exists
(select NULL
from GR_RISK_PHRASES_TL T
where T.RISK_PHRASE_CODE = X_RISK_PHRASE_CODE
and T.LANGUAGE = L.LANGUAGE_CODE);
delete from GR_RISK_PHRASES_TL T
where not exists
(select NULL
from GR_RISK_PHRASES_B B
where B.RISK_PHRASE_CODE = T.RISK_PHRASE_CODE
);
update GR_RISK_PHRASES_TL T set (
RISK_DESCRIPTION
) = (select
B.RISK_DESCRIPTION
from GR_RISK_PHRASES_TL B
where B.RISK_PHRASE_CODE = T.RISK_PHRASE_CODE
and B.LANGUAGE = T.SOURCE_LANG)
where (
T.RISK_PHRASE_CODE,
T.LANGUAGE
) in (select
SUBT.RISK_PHRASE_CODE,
SUBT.LANGUAGE
from GR_RISK_PHRASES_TL SUBB, GR_RISK_PHRASES_TL SUBT
where SUBB.RISK_PHRASE_CODE = SUBT.RISK_PHRASE_CODE
and SUBB.LANGUAGE = SUBT.SOURCE_LANG
and (SUBB.RISK_DESCRIPTION <> SUBT.RISK_DESCRIPTION
));
insert into GR_RISK_PHRASES_TL (
RISK_PHRASE_CODE,
RISK_DESCRIPTION,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
LANGUAGE,
SOURCE_LANG
) select
B.RISK_PHRASE_CODE,
B.RISK_DESCRIPTION,
B.CREATED_BY,
B.CREATION_DATE,
B.LAST_UPDATED_BY,
B.LAST_UPDATE_DATE,
B.LAST_UPDATE_LOGIN,
L.LANGUAGE_CODE,
B.SOURCE_LANG
from GR_RISK_PHRASES_TL B, FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and B.LANGUAGE = userenv('LANG')
and not exists
(select NULL
from GR_RISK_PHRASES_TL T
where T.RISK_PHRASE_CODE = B.RISK_PHRASE_CODE
and T.LANGUAGE = L.LANGUAGE_CODE);