The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT ID
,OBJECT_VERSION_NUMBER
,NAME
,DESCRIPTION
,DISPLAY_YN
,UPDATE_YN
,PRC_ENG_IDENT
,DEFAULT_VALUE
,ORG_ID
,CREATED_BY
,CREATION_DATE
,LAST_UPDATED_BY
,LAST_UPDATE_DATE
,LAST_UPDATE_LOGIN
,GTT_ID
FROM OKL_ST_GEN_PRC_PARAMS
WHERE OKL_ST_GEN_PRC_PARAMS.id = p_id;
,l_gtp_rec.update_yn
,l_gtp_rec.prc_eng_ident
,l_gtp_rec.default_value
,l_gtp_rec.org_id
,l_gtp_rec.created_by
,l_gtp_rec.creation_date
,l_gtp_rec.last_updated_by
,l_gtp_rec.last_update_date
,l_gtp_rec.last_update_login
,l_gtp_rec.gtt_id;
SELECT ID
,OBJECT_VERSION_NUMBER
,NAME
,DESCRIPTION
,DISPLAY_YN
,UPDATE_YN
,PRC_ENG_IDENT
,DEFAULT_VALUE
,ORG_ID
,CREATED_BY
,CREATION_DATE
,LAST_UPDATED_BY
,LAST_UPDATE_DATE
,LAST_UPDATE_LOGIN
,GTT_ID
FROM OKL_ST_GEN_PRC_PARAMS
WHERE OKL_ST_GEN_PRC_PARAMS.ID = p_id;
,l_gtpv_rec.update_yn
,l_gtpv_rec.prc_eng_ident
,l_gtpv_rec.default_value
,l_gtpv_rec.org_id
,l_gtpv_rec.created_by
,l_gtpv_rec.creation_date
,l_gtpv_rec.last_updated_by
,l_gtpv_rec.last_update_date
,l_gtpv_rec.last_update_login
,l_gtpv_rec.gtt_id;
IF ( p_gtpv_rec.display_yn = 'Y' AND ( p_gtpv_rec.update_yn NOT IN ( 'Y' , 'N' ) ) )
THEN
okl_api.SET_MESSAGE( p_app_name => g_app_name,
p_msg_name => 'OKL_DUMMY_MESSAGE',
p_token1 => 'TOKEN1',
p_token1_value => 'UPDATE_YN cannot have a value with out a value in DISPLAY_YN');
SELECT ID,
NAME PRC_PARAM_NAME
FROM OKL_ST_GEN_PRC_PARAMS gtp
WHERE UPPER(gtp.name) = upper( p_name )
AND gtp.gtt_id = p_gtt_id;
SELECT '1'
FROM OKL_ST_GEN_TEMPLATES
WHERE OKL_ST_GEN_TEMPLATES.ID = p_gtt_id;
PROCEDURE Validate_update_yn(
p_gtpv_rec IN gtpv_rec_type,
x_return_status OUT NOCOPY VARCHAR2
) IS
BEGIN
-- initialize return status
x_return_status := Okl_Api.G_RET_STS_SUCCESS;
IF p_gtpv_rec.update_yn IS NOT NULL AND p_gtpv_rec.update_yn NOT IN ( 'Y', 'N' )
AND p_gtpv_rec.update_yn <> Okl_Api.G_MISS_CHAR THEN
Okl_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'UPDATE_YN');
END Validate_update_yn;
Validate_update_yn(p_gtpv_rec, x_return_status);
IF (l_gtpv_rec.update_yn = Okl_Api.G_MISS_CHAR) THEN
l_gtpv_rec.update_yn := NULL;
IF (l_gtpv_rec.last_updated_by = Okl_Api.G_MISS_NUM) THEN
l_gtpv_rec.last_updated_by := NULL;
IF (l_gtpv_rec.last_update_date = Okl_Api.G_MISS_DATE) THEN
l_gtpv_rec.last_update_date := NULL;
IF (l_gtpv_rec.last_update_login = Okl_Api.G_MISS_NUM) THEN
l_gtpv_rec.last_update_login := NULL;
p_to.update_yn := p_from.update_yn;
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.update_yn := p_from.update_yn;
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_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_gtp_rec IN gtp_rec_type,
x_gtp_rec OUT NOCOPY gtp_rec_type ) AS
-- Local Variables within the function
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
INSERT INTO OKL_ST_GEN_PRC_PARAMS(
ID
,OBJECT_VERSION_NUMBER
,NAME
,DESCRIPTION
,DISPLAY_YN
,UPDATE_YN
,PRC_ENG_IDENT
,DEFAULT_VALUE
,ORG_ID
,CREATED_BY
,CREATION_DATE
,LAST_UPDATED_BY
,LAST_UPDATE_DATE
,LAST_UPDATE_LOGIN
,GTT_ID
)
VALUES (
l_gtp_rec.id
,l_gtp_rec.object_version_number
,l_gtp_rec.name
,l_gtp_rec.description
,l_gtp_rec.display_yn
,l_gtp_rec.update_yn
,l_gtp_rec.prc_eng_ident
,l_gtp_rec.default_value
,l_gtp_rec.org_id
,l_gtp_rec.created_by
,l_gtp_rec.creation_date
,l_gtp_rec.last_updated_by
,l_gtp_rec.last_update_date
,l_gtp_rec.last_update_login
,l_gtp_rec.gtt_id
);
END insert_row;
PROCEDURE insert_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_gtpv_rec IN gtpv_rec_type,
x_gtpv_rec OUT NOCOPY gtpv_rec_type ) IS
-- Local Variables within the function
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
l_gtpv_rec.LAST_UPDATE_DATE := SYSDATE;
l_gtpv_rec.LAST_UPDATED_BY := Fnd_Global.USER_ID;
l_gtpv_rec.LAST_UPDATE_LOGIN := Fnd_Global.LOGIN_ID;
insert_row (
p_api_version => l_api_version
,p_init_msg_list => p_init_msg_list
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
,p_gtp_rec => l_gtp_rec
,x_gtp_rec => lx_gtp_rec
);
END; -- insert_row
PROCEDURE insert_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_gtpv_tbl IN gtpv_tbl_type,
x_gtpv_tbl OUT NOCOPY gtpv_tbl_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
insert_row (
p_api_version => l_api_version,
p_init_msg_list => Okl_Api.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_gtpv_rec => p_gtpv_tbl(i),
x_gtpv_rec => x_gtpv_tbl(i));
END insert_row;
PROCEDURE update_row(
p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_gtp_rec IN gtp_rec_type,
x_gtp_rec OUT NOCOPY gtp_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'OPTS_update_row';
IF (x_gtp_rec.update_yn = Okl_Api.G_MISS_CHAR) THEN
x_gtp_rec.update_yn := l_gtp_rec.update_yn;
IF (x_gtp_rec.last_updated_by = Okl_Api.G_MISS_NUM)
THEN
x_gtp_rec.last_updated_by := l_gtp_rec.last_updated_by;
IF (x_gtp_rec.last_update_date = Okl_Api.G_MISS_DATE)
THEN
x_gtp_rec.last_update_date := l_gtp_rec.last_update_date;
IF (x_gtp_rec.last_update_login = Okl_Api.G_MISS_NUM)
THEN
x_gtp_rec.last_update_login := l_gtp_rec.last_update_login;
UPDATE OKL_ST_GEN_PRC_PARAMS
SET ID = l_def_gtp_rec.id
,OBJECT_VERSION_NUMBER = l_def_gtp_rec.object_version_number
,NAME = l_def_gtp_rec.name
,DESCRIPTION = l_def_gtp_rec.description
,DISPLAY_YN = l_def_gtp_rec.display_yn
,UPDATE_YN = l_def_gtp_rec.update_yn
,PRC_ENG_IDENT = l_def_gtp_rec.prc_eng_ident
,DEFAULT_VALUE = l_def_gtp_rec.default_value
,ORG_ID = l_def_gtp_rec.org_id
,CREATED_BY = l_def_gtp_rec.created_by
,CREATION_DATE = l_def_gtp_rec.creation_date
,LAST_UPDATED_BY = l_def_gtp_rec.last_updated_by
,LAST_UPDATE_DATE = l_def_gtp_rec.last_update_date
,LAST_UPDATE_LOGIN = l_def_gtp_rec.last_update_login
,GTT_ID = l_def_gtp_rec.gtt_id
WHERE ID = l_def_gtp_rec.id;
END update_row;
PROCEDURE update_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_gtpv_rec IN gtpv_rec_type,
x_gtpv_rec OUT NOCOPY gtpv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
l_gtpv_rec.LAST_UPDATE_DATE := SYSDATE;
l_gtpv_rec.LAST_UPDATED_BY := Fnd_Global.USER_ID;
l_gtpv_rec.LAST_UPDATE_LOGIN := Fnd_Global.LOGIN_ID;
IF (x_gtpv_rec.update_yn = Okl_Api.G_MISS_CHAR) THEN
x_gtpv_rec.update_yn := l_gtpv_rec.update_yn;
IF (x_gtpv_rec.last_updated_by = Okl_Api.G_MISS_NUM)
THEN
x_gtpv_rec.last_updated_by := l_gtpv_rec.last_updated_by;
IF (x_gtpv_rec.last_update_date = Okl_Api.G_MISS_DATE)
THEN
x_gtpv_rec.last_update_date := l_gtpv_rec.last_update_date;
IF (x_gtpv_rec.last_update_login = Okl_Api.G_MISS_NUM)
THEN
x_gtpv_rec.last_update_login := l_gtpv_rec.last_update_login;
update_row(
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_gtp_rec => l_gtp_rec,
x_gtp_rec => lx_gtp_rec
);
PROCEDURE update_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_gtpv_tbl IN gtpv_tbl_type,
x_gtpv_tbl OUT NOCOPY gtpv_tbl_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
update_row (
p_api_version => l_api_version,
p_init_msg_list => Okl_Api.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_gtpv_rec => p_gtpv_tbl(i),
x_gtpv_rec => x_gtpv_tbl(i));
END update_row;
PROCEDURE delete_row(
p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_gtp_rec IN gtp_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'OPTS_delete_row';
DELETE FROM OKL_ST_GEN_PRC_PARAMS
WHERE ID = l_gtp_rec.id;
END delete_row;
PROCEDURE delete_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_gtpv_rec IN gtpv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
delete_row(
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_gtp_rec => l_gtp_rec
);
END delete_row;
PROCEDURE delete_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_gtpv_tbl IN gtpv_tbl_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
delete_row (
p_api_version => l_api_version,
p_init_msg_list => Okl_Api.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_gtpv_rec => p_gtpv_tbl(i));
END delete_row;