The following lines contain the word 'select', 'insert', 'update' or 'delete':
INSERT INTO OKC_REPORT_PRM_TL (
ID,
LANGUAGE,
SOURCE_LANG,
SFWT_FLAG,
PROMPT,
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.PROMPT,
B.CREATED_BY,
B.CREATION_DATE,
B.LAST_UPDATED_BY,
B.LAST_UPDATE_DATE,
B.LAST_UPDATE_LOGIN
FROM OKC_REPORT_PRM_TL B, FND_LANGUAGES L
WHERE L.INSTALLED_FLAG IN ('I', 'B')
AND B.LANGUAGE = USERENV('LANG')
AND NOT EXISTS(
SELECT NULL
FROM OKC_REPORT_PRM_TL T
WHERE T.ID = B.ID
AND T.LANGUAGE = L.LANGUAGE_CODE
);
select '!'
from OKC_REPORT_PRM_V
where sql_id = n1 and sequence_num = n2
and id <> n3;
select '!'
from OKC_REPORT_PRM_V
where sql_id = n1 and code = c2
and id <> n3;
SELECT '!' FROM OKC_REPORT_SQL_B
WHERE ID = p FOR UPDATE OF LAST_UPDATE_DATE;
update okc_report_sql_b set LAST_UPDATE_DATE = sysdate
where id = p_sql_id;
PROCEDURE insert_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_prmv_rec IN prmv_rec_type,
x_prmv_rec OUT NOCOPY prmv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
l_prmv_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_prmv_rec.LAST_UPDATE_DATE := SYSDATE;
l_prmv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
insert into OKC_REPORT_PRM_B
(
ID
,SQL_ID
,SEQUENCE_NUM
,CODE
,TYPE
,REQUIRED_YN
,LOV_QUERY
,OBJECT_VERSION_NUMBER
,CREATED_BY
,CREATION_DATE
,LAST_UPDATED_BY
,LAST_UPDATE_DATE
,LAST_UPDATE_LOGIN
) values
(
l_prmv_rec.ID
,l_prmv_rec.SQL_ID
,l_prmv_rec.SEQUENCE_NUM
,l_prmv_rec.CODE
,l_prmv_rec.TYPE
,l_prmv_rec.REQUIRED_YN
,l_prmv_rec.LOV_QUERY
,l_prmv_rec.OBJECT_VERSION_NUMBER
,l_prmv_rec.CREATED_BY
,l_prmv_rec.CREATION_DATE
,l_prmv_rec.LAST_UPDATED_BY
,l_prmv_rec.LAST_UPDATE_DATE
,l_prmv_rec.LAST_UPDATE_LOGIN
);
INSERT INTO OKC_REPORT_PRM_TL (
ID,
LANGUAGE,
SOURCE_LANG,
SFWT_FLAG,
PROMPT,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN)
SELECT
l_prmv_rec.ID,
L.LANGUAGE_CODE,
USERENV('LANG'),
decode(L.LANGUAGE_CODE,USERENV('LANG'),'N','Y'),
l_prmv_rec.PROMPT,
l_prmv_rec.CREATED_BY,
l_prmv_rec.CREATION_DATE,
l_prmv_rec.LAST_UPDATED_BY,
l_prmv_rec.LAST_UPDATE_DATE,
l_prmv_rec.LAST_UPDATE_LOGIN
FROM FND_LANGUAGES L
WHERE L.INSTALLED_FLAG IN ('I', 'B')
;
END insert_row;
SELECT OBJECT_VERSION_NUMBER
FROM OKC_REPORT_PRM_V
WHERE ID = p_prmv_rec.id
AND OBJECT_VERSION_NUMBER =
decode(p_prmv_rec.object_version_number,NULL,OBJECT_VERSION_NUMBER,
OKC_API.G_MISS_NUM,OBJECT_VERSION_NUMBER,p_prmv_rec.object_version_number)
FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
SELECT OBJECT_VERSION_NUMBER
FROM OKC_REPORT_PRM_B
WHERE ID = p_prmv_rec.id;
OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
PROCEDURE update_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_prmv_rec IN prmv_rec_type,
x_prmv_rec OUT NOCOPY prmv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'update_row';
select
SQL_ID
,SEQUENCE_NUM
,CODE
,PROMPT
,TYPE
,REQUIRED_YN
,LOV_QUERY
,OBJECT_VERSION_NUMBER+1
,created_by
,creation_date
into
l_prmv_rec.SQL_ID
,l_prmv_rec.SEQUENCE_NUM
,l_prmv_rec.CODE
,l_prmv_rec.PROMPT
,l_prmv_rec.TYPE
,l_prmv_rec.REQUIRED_YN
,l_prmv_rec.LOV_QUERY
,l_prmv_rec.OBJECT_VERSION_NUMBER
,l_prmv_rec.created_by
,l_prmv_rec.creation_date
from OKC_REPORT_PRM_V
where ID = l_prmv_rec.ID;
l_prmv_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_prmv_rec.LAST_UPDATE_DATE := SYSDATE;
l_prmv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
UPDATE OKC_REPORT_PRM_B set
SQL_ID = l_prmv_rec.SQL_ID
,SEQUENCE_NUM = l_prmv_rec.SEQUENCE_NUM
,CODE = l_prmv_rec.CODE
,TYPE = l_prmv_rec.TYPE
,REQUIRED_YN = l_prmv_rec.REQUIRED_YN
,LOV_QUERY = l_prmv_rec.LOV_QUERY
,OBJECT_VERSION_NUMBER = l_prmv_rec.OBJECT_VERSION_NUMBER
,LAST_UPDATED_BY = l_prmv_rec.LAST_UPDATED_BY
,LAST_UPDATE_DATE = l_prmv_rec.LAST_UPDATE_DATE
,LAST_UPDATE_LOGIN = l_prmv_rec.LAST_UPDATE_LOGIN
where ID = l_prmv_rec.ID;
UPDATE OKC_REPORT_PRM_TL set
SOURCE_LANG = USERENV('LANG')
,SFWT_FLAG = decode(LANGUAGE,USERENV('LANG'),'N','Y')
,PROMPT = l_prmv_rec.PROMPT
,LAST_UPDATED_BY = l_prmv_rec.LAST_UPDATED_BY
,LAST_UPDATE_DATE = l_prmv_rec.LAST_UPDATE_DATE
,LAST_UPDATE_LOGIN = l_prmv_rec.LAST_UPDATE_LOGIN
where ID = l_prmv_rec.ID
and USERENV('LANG') in (LANGUAGE, SOURCE_LANG);
END update_row;
PROCEDURE delete_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_prmv_rec IN prmv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'delete_row';
select S.id
from okc_report_prm_v PRM, okc_report_sql_v S
where PRM.id = p and S.id = PRM.sql_id;
delete
from OKC_REPORT_PRM_B
where ID = p_prmv_rec.ID;
delete
from OKC_REPORT_PRM_TL
where ID = p_prmv_rec.ID;
END delete_row;