The following lines contain the word 'select', 'insert', 'update' or 'delete':
DELETE FROM OKL_FNCTN_PRMTRS_TL T
WHERE NOT EXISTS (
SELECT NULL
FROM OKL_FNCTN_PRMTRS_B B --fixed bug 3321017 by kmotepal
WHERE B.ID = T.ID
);
UPDATE OKL_FNCTN_PRMTRS_TL T SET (
VALUE,
INSTRUCTIONS) = (SELECT
B.VALUE,
B.INSTRUCTIONS
FROM OKL_FNCTN_PRMTRS_TL B
WHERE B.ID = T.ID
AND B.LANGUAGE = T.SOURCE_LANG)
WHERE (
T.ID,
T.LANGUAGE)
IN (SELECT
SUBT.ID,
SUBT.LANGUAGE
FROM OKL_FNCTN_PRMTRS_TL SUBB, OKL_FNCTN_PRMTRS_TL SUBT
WHERE SUBB.ID = SUBT.ID
AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
AND (SUBB.VALUE <> SUBT.VALUE
OR SUBB.INSTRUCTIONS <> SUBT.INSTRUCTIONS
OR (SUBB.VALUE IS NULL AND SUBT.VALUE IS NOT NULL)
OR (SUBB.VALUE IS NOT NULL AND SUBT.VALUE IS NULL)
OR (SUBB.INSTRUCTIONS IS NULL AND SUBT.INSTRUCTIONS IS NOT NULL)
OR (SUBB.INSTRUCTIONS IS NOT NULL AND SUBT.INSTRUCTIONS IS NULL)
));
INSERT INTO OKL_FNCTN_PRMTRS_TL (
ID,
LANGUAGE,
SOURCE_LANG,
SFWT_FLAG,
VALUE,
INSTRUCTIONS,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN)
SELECT
B.ID,
L.LANGUAGE_CODE,
B.SOURCE_LANG,
B.SFWT_FLAG,
B.VALUE,
B.INSTRUCTIONS,
B.CREATED_BY,
B.CREATION_DATE,
B.LAST_UPDATED_BY,
B.LAST_UPDATE_DATE,
B.LAST_UPDATE_LOGIN
FROM OKL_FNCTN_PRMTRS_TL B, FND_LANGUAGES L
WHERE L.INSTALLED_FLAG IN ('I', 'B')
AND B.LANGUAGE = USERENV('LANG')
AND NOT EXISTS(
SELECT NULL
FROM OKL_FNCTN_PRMTRS_TL T
WHERE T.ID = B.ID
AND T.LANGUAGE = L.LANGUAGE_CODE
);
SELECT
ID,
DSF_ID,
PMR_ID,
FPR_TYPE,
OBJECT_VERSION_NUMBER,
SEQUENCE_NUMBER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN
FROM Okl_Fnctn_Prmtrs_B
WHERE okl_fnctn_prmtrs_b.id = p_id;
l_fpr_rec.LAST_UPDATED_BY,
l_fpr_rec.LAST_UPDATE_DATE,
l_fpr_rec.LAST_UPDATE_LOGIN;
SELECT
ID,
LANGUAGE,
SOURCE_LANG,
SFWT_FLAG,
VALUE,
INSTRUCTIONS,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN
FROM Okl_Fnctn_Prmtrs_Tl
WHERE okl_fnctn_prmtrs_tl.id = p_id
AND okl_fnctn_prmtrs_tl.LANGUAGE = p_language;
l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATED_BY,
l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATE_DATE,
l_okl_fnctn_prmtrs_tl_rec.LAST_UPDATE_LOGIN;
SELECT
ID,
OBJECT_VERSION_NUMBER,
SFWT_FLAG,
DSF_ID,
PMR_ID,
SEQUENCE_NUMBER,
VALUE,
INSTRUCTIONS,
FPR_TYPE,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN
FROM Okl_Fnctn_Prmtrs_V
WHERE okl_fnctn_prmtrs_v.id = p_id;
l_fprv_rec.LAST_UPDATED_BY,
l_fprv_rec.LAST_UPDATE_DATE,
l_fprv_rec.LAST_UPDATE_LOGIN;
IF (l_fprv_rec.last_updated_by = Okc_Api.G_MISS_NUM) THEN
l_fprv_rec.last_updated_by := NULL;
IF (l_fprv_rec.last_update_date = Okc_Api.G_MISS_DATE) THEN
l_fprv_rec.last_update_date := NULL;
IF (l_fprv_rec.last_update_login = Okc_Api.G_MISS_NUM) THEN
l_fprv_rec.last_update_login := NULL;
SELECT '1'
FROM OKL_DATA_SRC_FNCTNS_V
WHERE OKL_DATA_SRC_FNCTNS_V.id = p_id;
SELECT '1'
FROM OKL_DATA_SRC_FNCTNS_V
WHERE OKL_DATA_SRC_FNCTNS_V.id = p_id
AND OKL_DATA_SRC_FNCTNS_V.FNCTN_CODE = 'PLSQL';
SELECT '1'
FROM OKL_PARAMETERS_V
WHERE OKL_PARAMETERS_V.id = p_id;
SELECT '1'
FROM fnd_common_lookups
WHERE fnd_common_lookups.lookup_code = p_code
AND fnd_common_lookups.lookup_type = 'OKL_FUNCTION_PMR_TYPE';
SELECT '1'
FROM OKL_FNCTN_PRMTRS_V
WHERE dsf_id = p_rec.dsf_id
AND pmr_id = p_rec.pmr_id
AND id <> NVL(p_rec.id,-9999);
p_to.last_updated_by := p_from.last_updated_by;
p_to.last_update_date := p_from.last_update_date;
p_to.last_update_login := p_from.last_update_login;
p_to.last_updated_by := p_from.last_updated_by;
p_to.last_update_date := p_from.last_update_date;
p_to.last_update_login := p_from.last_update_login;
p_to.last_updated_by := p_from.last_updated_by;
p_to.last_update_date := p_from.last_update_date;
p_to.last_update_login := p_from.last_update_login;
p_to.last_updated_by := p_from.last_updated_by;
p_to.last_update_date := p_from.last_update_date;
p_to.last_update_login := p_from.last_update_login;
PROCEDURE insert_row(
p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_fpr_rec IN fpr_rec_type,
x_fpr_rec OUT NOCOPY fpr_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
INSERT INTO OKL_FNCTN_PRMTRS_B(
id,
dsf_id,
pmr_id,
fpr_type,
object_version_number,
sequence_number,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login)
VALUES (
l_fpr_rec.id,
l_fpr_rec.dsf_id,
l_fpr_rec.pmr_id,
l_fpr_rec.fpr_type,
l_fpr_rec.object_version_number,
l_fpr_rec.sequence_number,
l_fpr_rec.created_by,
l_fpr_rec.creation_date,
l_fpr_rec.last_updated_by,
l_fpr_rec.last_update_date,
l_fpr_rec.last_update_login);
END insert_row;
PROCEDURE insert_row(
p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type,
x_okl_fnctn_prmtrs_tl_rec OUT NOCOPY okl_fnctn_prmtrs_tl_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
SELECT *
FROM FND_LANGUAGES
WHERE INSTALLED_FLAG IN ('I', 'B');
INSERT INTO OKL_FNCTN_PRMTRS_TL(
id,
LANGUAGE,
source_lang,
sfwt_flag,
value,
instructions,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login)
VALUES (
l_okl_fnctn_prmtrs_tl_rec.id,
l_okl_fnctn_prmtrs_tl_rec.LANGUAGE,
l_okl_fnctn_prmtrs_tl_rec.source_lang,
l_okl_fnctn_prmtrs_tl_rec.sfwt_flag,
l_okl_fnctn_prmtrs_tl_rec.value,
l_okl_fnctn_prmtrs_tl_rec.instructions,
l_okl_fnctn_prmtrs_tl_rec.created_by,
l_okl_fnctn_prmtrs_tl_rec.creation_date,
l_okl_fnctn_prmtrs_tl_rec.last_updated_by,
l_okl_fnctn_prmtrs_tl_rec.last_update_date,
l_okl_fnctn_prmtrs_tl_rec.last_update_login);
END insert_row;
PROCEDURE insert_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_fprv_rec IN fprv_rec_type,
x_fprv_rec OUT NOCOPY fprv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
l_fprv_rec.LAST_UPDATE_DATE := SYSDATE;
l_fprv_rec.LAST_UPDATED_BY := Fnd_Global.USER_ID;
l_fprv_rec.LAST_UPDATE_LOGIN := Fnd_Global.LOGIN_ID;
insert_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_fpr_rec,
lx_fpr_rec
);
insert_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_okl_fnctn_prmtrs_tl_rec,
lx_okl_fnctn_prmtrs_tl_rec
);
END insert_row;
PROCEDURE insert_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_fprv_tbl IN fprv_tbl_type,
x_fprv_tbl OUT NOCOPY fprv_tbl_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
insert_row (
p_api_version => p_api_version,
p_init_msg_list => Okc_Api.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_fprv_rec => p_fprv_tbl(i),
x_fprv_rec => x_fprv_tbl(i));
END insert_row;
SELECT OBJECT_VERSION_NUMBER
FROM OKL_FNCTN_PRMTRS_B
WHERE ID = p_fpr_rec.id
AND OBJECT_VERSION_NUMBER = p_fpr_rec.object_version_number
FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
SELECT OBJECT_VERSION_NUMBER
FROM OKL_FNCTN_PRMTRS_B
WHERE ID = p_fpr_rec.id;
Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
SELECT *
FROM OKL_FNCTN_PRMTRS_TL
WHERE ID = p_okl_fnctn_prmtrs_tl_rec.id
FOR UPDATE NOWAIT;
Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
PROCEDURE update_row(
p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_fpr_rec IN fpr_rec_type,
x_fpr_rec OUT NOCOPY fpr_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
IF (x_fpr_rec.last_updated_by = Okc_Api.G_MISS_NUM)
THEN
x_fpr_rec.last_updated_by := l_fpr_rec.last_updated_by;
IF (x_fpr_rec.last_update_date = Okc_Api.G_MISS_DATE)
THEN
x_fpr_rec.last_update_date := l_fpr_rec.last_update_date;
IF (x_fpr_rec.last_update_login = Okc_Api.G_MISS_NUM)
THEN
x_fpr_rec.last_update_login := l_fpr_rec.last_update_login;
UPDATE OKL_FNCTN_PRMTRS_B
SET DSF_ID = l_def_fpr_rec.dsf_id,
PMR_ID = l_def_fpr_rec.pmr_id,
FPR_TYPE = l_def_fpr_rec.fpr_type,
OBJECT_VERSION_NUMBER = l_def_fpr_rec.object_version_number,
SEQUENCE_NUMBER = l_def_fpr_rec.sequence_number,
CREATED_BY = l_def_fpr_rec.created_by,
CREATION_DATE = l_def_fpr_rec.creation_date,
LAST_UPDATED_BY = l_def_fpr_rec.last_updated_by,
LAST_UPDATE_DATE = l_def_fpr_rec.last_update_date,
LAST_UPDATE_LOGIN = l_def_fpr_rec.last_update_login
WHERE ID = l_def_fpr_rec.id;
END update_row;
PROCEDURE update_row(
p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type,
x_okl_fnctn_prmtrs_tl_rec OUT NOCOPY okl_fnctn_prmtrs_tl_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
IF (x_okl_fnctn_prmtrs_tl_rec.last_updated_by = Okc_Api.G_MISS_NUM)
THEN
x_okl_fnctn_prmtrs_tl_rec.last_updated_by := l_okl_fnctn_prmtrs_tl_rec.last_updated_by;
IF (x_okl_fnctn_prmtrs_tl_rec.last_update_date = Okc_Api.G_MISS_DATE)
THEN
x_okl_fnctn_prmtrs_tl_rec.last_update_date := l_okl_fnctn_prmtrs_tl_rec.last_update_date;
IF (x_okl_fnctn_prmtrs_tl_rec.last_update_login = Okc_Api.G_MISS_NUM)
THEN
x_okl_fnctn_prmtrs_tl_rec.last_update_login := l_okl_fnctn_prmtrs_tl_rec.last_update_login;
UPDATE OKL_FNCTN_PRMTRS_TL
SET VALUE = ldefoklfnctnprmtrstlrec.value,
INSTRUCTIONS = ldefoklfnctnprmtrstlrec.instructions,
CREATED_BY = ldefoklfnctnprmtrstlrec.created_by,
SOURCE_LANG = ldefoklfnctnprmtrstlrec.source_lang,
CREATION_DATE = ldefoklfnctnprmtrstlrec.creation_date,
LAST_UPDATED_BY = ldefoklfnctnprmtrstlrec.last_updated_by,
LAST_UPDATE_DATE = ldefoklfnctnprmtrstlrec.last_update_date,
LAST_UPDATE_LOGIN = ldefoklfnctnprmtrstlrec.last_update_login
WHERE ID = ldefoklfnctnprmtrstlrec.id
AND USERENV('LANG') in (SOURCE_LANG, LANGUAGE);
UPDATE OKL_FNCTN_PRMTRS_TL
SET SFWT_FLAG = 'Y'
WHERE ID = ldefoklfnctnprmtrstlrec.id
AND SOURCE_LANG <> USERENV('LANG');
END update_row;
PROCEDURE update_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_fprv_rec IN fprv_rec_type,
x_fprv_rec OUT NOCOPY fprv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
l_fprv_rec.LAST_UPDATE_DATE := SYSDATE;
l_fprv_rec.LAST_UPDATED_BY := Fnd_Global.USER_ID;
l_fprv_rec.LAST_UPDATE_LOGIN := Fnd_Global.LOGIN_ID;
IF (x_fprv_rec.last_updated_by = Okc_Api.G_MISS_NUM)
THEN
x_fprv_rec.last_updated_by := l_fprv_rec.last_updated_by;
IF (x_fprv_rec.last_update_date = Okc_Api.G_MISS_DATE)
THEN
x_fprv_rec.last_update_date := l_fprv_rec.last_update_date;
IF (x_fprv_rec.last_update_login = Okc_Api.G_MISS_NUM)
THEN
x_fprv_rec.last_update_login := l_fprv_rec.last_update_login;
update_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_okl_fnctn_prmtrs_tl_rec,
lx_okl_fnctn_prmtrs_tl_rec
);
update_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_fpr_rec,
lx_fpr_rec
);
END update_row;
PROCEDURE update_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_fprv_tbl IN fprv_tbl_type,
x_fprv_tbl OUT NOCOPY fprv_tbl_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
update_row (
p_api_version => p_api_version,
p_init_msg_list => Okc_Api.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_fprv_rec => p_fprv_tbl(i),
x_fprv_rec => x_fprv_tbl(i));
END update_row;
PROCEDURE delete_row(
p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_fpr_rec IN fpr_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
DELETE FROM OKL_FNCTN_PRMTRS_B
WHERE ID = l_fpr_rec.id;
END delete_row;
PROCEDURE delete_row(
p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_okl_fnctn_prmtrs_tl_rec IN okl_fnctn_prmtrs_tl_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
DELETE FROM OKL_FNCTN_PRMTRS_TL
WHERE ID = l_okl_fnctn_prmtrs_tl_rec.id;
END delete_row;
PROCEDURE delete_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_fprv_rec IN fprv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
delete_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_okl_fnctn_prmtrs_tl_rec
);
delete_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_fpr_rec
);
END delete_row;
PROCEDURE delete_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_fprv_tbl IN fprv_tbl_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
delete_row (
p_api_version => p_api_version,
p_init_msg_list => Okc_Api.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_fprv_rec => p_fprv_tbl(i));
END delete_row;
p_last_update_date IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2) IS
f_luby NUMBER; -- entity owner in file
f_ludate DATE; -- entity update date in file
db_ludate DATE; -- entity update date in db
f_ludate := nvl(to_date(p_last_update_date, 'YYYY/MM/DD'), sysdate);
SELECT LAST_UPDATED_BY, LAST_UPDATE_DATE
INTO db_luby, db_ludate
FROM OKL_FNCTN_PRMTRS_TL
where ID = to_number(p_fprv_rec.id)
and USERENV('LANG') =language;
UPDATE OKL_FNCTN_PRMTRS_TL
SET VALUE = p_fprv_rec.value,
INSTRUCTIONS = p_fprv_rec.instructions,
LAST_UPDATE_DATE = f_ludate,
LAST_UPDATED_BY = f_luby,
LAST_UPDATE_LOGIN = 0,
SOURCE_LANG = USERENV('LANG')
WHERE ID = to_number(p_fprv_rec.id)
AND USERENV('LANG') IN (language,source_lang);
p_last_update_date IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2) IS
id NUMBER;
f_ludate DATE; -- entity update date in file
db_ludate DATE; -- entity update date in db
f_ludate := nvl(to_date(p_last_update_date, 'YYYY/MM/DD'), sysdate);
SELECT ID , LAST_UPDATED_BY, LAST_UPDATE_DATE
INTO id, db_luby, db_ludate
FROM OKL_FNCTN_PRMTRS_B
where ID = p_fprv_rec.id;
UPDATE OKL_FNCTN_PRMTRS_B
SET FPR_TYPE = p_fprv_rec.fpr_type,
OBJECT_VERSION_NUMBER = TO_NUMBER(p_fprv_rec.object_version_number),
SEQUENCE_NUMBER = TO_NUMBER(p_fprv_rec.sequence_number),
LAST_UPDATE_DATE = f_ludate,
LAST_UPDATED_BY = f_luby,
LAST_UPDATE_LOGIN = 0
WHERE ID = to_number(p_fprv_rec.id);
UPDATE OKL_FNCTN_PRMTRS_TL
SET VALUE = p_fprv_rec.value,
INSTRUCTIONS = p_fprv_rec.instructions,
LAST_UPDATE_DATE = f_ludate,
LAST_UPDATED_BY = f_luby,
LAST_UPDATE_LOGIN = 0,
SOURCE_LANG = USERENV('LANG')
WHERE ID = to_number(p_fprv_rec.id)
AND USERENV('LANG') IN (language,source_lang);
INSERT INTO OKL_FNCTN_PRMTRS_TL
(
ID,
LANGUAGE,
SOURCE_LANG,
SFWT_FLAG,
VALUE,
INSTRUCTIONS,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN
)
SELECT
TO_NUMBER(p_fprv_rec.id),
L.LANGUAGE_CODE,
userenv('LANG'),
decode(L.LANGUAGE_CODE,userenv('LANG'),'N','Y'),
p_fprv_rec.value,
p_fprv_rec.instructions,
f_luby,
f_ludate,
f_luby,
f_ludate,
0
FROM FND_LANGUAGES L
WHERE L.INSTALLED_FLAG IN ('I','B')
AND NOT EXISTS
(SELECT NULL
FROM OKL_FNCTN_PRMTRS_TL TL
WHERE TL.ID = TO_NUMBER(p_fprv_rec.id)
AND TL.LANGUAGE = L.LANGUAGE_CODE);
INSERT INTO OKL_FNCTN_PRMTRS_B
(
ID,
DSF_ID,
PMR_ID,
FPR_TYPE,
OBJECT_VERSION_NUMBER,
SEQUENCE_NUMBER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN
)
VALUES(
TO_NUMBER(p_fprv_rec.id),
TO_NUMBER(p_fprv_rec.dsf_id),
TO_NUMBER(p_fprv_rec.pmr_id),
p_fprv_rec.fpr_type,
TO_NUMBER(p_fprv_rec.object_version_number),
TO_NUMBER(p_fprv_rec.sequence_number),
f_luby,
f_ludate,
f_luby,
f_ludate,
0);
INSERT INTO OKL_FNCTN_PRMTRS_TL
(
ID,
LANGUAGE,
SOURCE_LANG,
SFWT_FLAG,
VALUE,
INSTRUCTIONS,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN
)
SELECT
TO_NUMBER(p_fprv_rec.id),
L.LANGUAGE_CODE,
userenv('LANG'),
decode(L.LANGUAGE_CODE,userenv('LANG'),'N','Y'),
p_fprv_rec.value,
p_fprv_rec.instructions,
f_luby,
f_ludate,
f_luby,
f_ludate,
0
FROM FND_LANGUAGES L
WHERE L.INSTALLED_FLAG IN ('I','B')
AND NOT EXISTS
(SELECT NULL
FROM OKL_FNCTN_PRMTRS_TL TL
WHERE TL.ID = TO_NUMBER(p_fprv_rec.id)
AND TL.LANGUAGE = L.LANGUAGE_CODE);
p_last_update_date IN VARCHAR2)IS
l_api_version CONSTANT number := 1;
p_last_update_date => p_last_update_date,
x_return_status => l_return_status);
p_last_update_date => p_last_update_date,
x_return_status => l_return_status);