The following lines contain the word 'select', 'insert', 'update' or 'delete':
INSERT INTO OKC_REPORT_TAG_TL (
ID,
LANGUAGE,
SOURCE_LANG,
SFWT_FLAG,
MEANING,
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.MEANING,
B.CREATED_BY,
B.CREATION_DATE,
B.LAST_UPDATED_BY,
B.LAST_UPDATE_DATE,
B.LAST_UPDATE_LOGIN
FROM OKC_REPORT_TAG_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_TAG_TL T
WHERE T.ID = B.ID
AND T.LANGUAGE = L.LANGUAGE_CODE
);
select '!'
from OKC_REPORT_TAG_V
where xsl_id = n1 and code = c2
and id <> n3;
select '!'
from OKC_REPORT_TAG_V
where xsl_id = n1 and meaning = c2
and id <> n3;
SELECT '!' FROM OKC_REPORT_XSL_B
WHERE ID = p FOR UPDATE OF LAST_UPDATE_DATE;
update okc_report_xsl_b set LAST_UPDATE_DATE = sysdate
where id = p_xsl_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_tagv_rec IN tagv_rec_type,
x_tagv_rec OUT NOCOPY tagv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
l_tagv_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_tagv_rec.LAST_UPDATE_DATE := SYSDATE;
l_tagv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
insert into OKC_REPORT_TAG_B
(
ID
,XSL_ID
,CODE
,ENABLED_FLAG
,OBJECT_VERSION_NUMBER
,CREATED_BY
,CREATION_DATE
,LAST_UPDATED_BY
,LAST_UPDATE_DATE
,LAST_UPDATE_LOGIN
) values
(
l_tagv_rec.ID
,l_tagv_rec.XSL_ID
,l_tagv_rec.CODE
,l_tagv_rec.ENABLED_FLAG
,l_tagv_rec.OBJECT_VERSION_NUMBER
,l_tagv_rec.CREATED_BY
,l_tagv_rec.CREATION_DATE
,l_tagv_rec.LAST_UPDATED_BY
,l_tagv_rec.LAST_UPDATE_DATE
,l_tagv_rec.LAST_UPDATE_LOGIN
);
INSERT INTO OKC_REPORT_TAG_TL (
ID,
LANGUAGE,
SOURCE_LANG,
SFWT_FLAG,
MEANING,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN)
SELECT
l_tagv_rec.ID,
L.LANGUAGE_CODE,
USERENV('LANG'),
decode(L.LANGUAGE_CODE,USERENV('LANG'),'N','Y'),
l_tagv_rec.MEANING,
l_tagv_rec.CREATED_BY,
l_tagv_rec.CREATION_DATE,
l_tagv_rec.LAST_UPDATED_BY,
l_tagv_rec.LAST_UPDATE_DATE,
l_tagv_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_TAG_V
WHERE ID = p_tagv_rec.id
AND OBJECT_VERSION_NUMBER =
decode(p_tagv_rec.object_version_number,NULL,OBJECT_VERSION_NUMBER,
OKC_API.G_MISS_NUM,OBJECT_VERSION_NUMBER,p_tagv_rec.object_version_number)
FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
SELECT OBJECT_VERSION_NUMBER
FROM OKC_REPORT_TAG_B
WHERE ID = p_tagv_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_tagv_rec IN tagv_rec_type,
x_tagv_rec OUT NOCOPY tagv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'update_row';
select
XSL_ID
,CODE
,MEANING
,ENABLED_FLAG
,OBJECT_VERSION_NUMBER+1
,created_by
,creation_date
into
l_tagv_rec.XSL_ID
,l_tagv_rec.CODE
,l_tagv_rec.MEANING
,l_tagv_rec.ENABLED_FLAG
,l_tagv_rec.OBJECT_VERSION_NUMBER
,l_tagv_rec.created_by
,l_tagv_rec.creation_date
from OKC_REPORT_TAG_V
where ID = l_tagv_rec.ID;
l_tagv_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_tagv_rec.LAST_UPDATE_DATE := SYSDATE;
l_tagv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
UPDATE OKC_REPORT_TAG_B set
XSL_ID = l_tagv_rec.XSL_ID
,CODE = l_tagv_rec.CODE
,ENABLED_FLAG = l_tagv_rec.ENABLED_FLAG
,OBJECT_VERSION_NUMBER = l_tagv_rec.OBJECT_VERSION_NUMBER
,LAST_UPDATED_BY = l_tagv_rec.LAST_UPDATED_BY
,LAST_UPDATE_DATE = l_tagv_rec.LAST_UPDATE_DATE
,LAST_UPDATE_LOGIN = l_tagv_rec.LAST_UPDATE_LOGIN
where ID = l_tagv_rec.ID;
UPDATE OKC_REPORT_TAG_TL set
SOURCE_LANG = USERENV('LANG')
,SFWT_FLAG = decode(LANGUAGE,USERENV('LANG'),'N','Y')
,MEANING = l_tagv_rec.MEANING
,LAST_UPDATED_BY = l_tagv_rec.LAST_UPDATED_BY
,LAST_UPDATE_DATE = l_tagv_rec.LAST_UPDATE_DATE
,LAST_UPDATE_LOGIN = l_tagv_rec.LAST_UPDATE_LOGIN
where ID = l_tagv_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_tagv_rec IN tagv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'delete_row';
select S.id
from okc_report_tag_v TAG, okc_report_xsl_v S
where TAG.id = p and S.id = TAG.xsl_id;
delete
from OKC_REPORT_TAG_B
where ID = p_tagv_rec.ID;
delete
from OKC_REPORT_TAG_TL
where ID = p_tagv_rec.ID;
END delete_row;