The following lines contain the word 'select', 'insert', 'update' or 'delete':
DELETE FROM OKL_BLLNG_CHRG_HDRS_TL T
WHERE NOT EXISTS (
SELECT NULL
FROM OKL_BLNG_CHRG_HDRS_ALL_B B --fixed bug 3321017 by kmotepal
WHERE B.ID = T.ID
);
UPDATE OKL_BLLNG_CHRG_HDRS_TL T SET (
NAME,
ORIGIN,
DESTINATION) = (SELECT
B.NAME,
B.ORIGIN,
B.DESTINATION
FROM OKL_BLLNG_CHRG_HDRS_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_BLLNG_CHRG_HDRS_TL SUBB, OKL_BLLNG_CHRG_HDRS_TL SUBT
WHERE SUBB.ID = SUBT.ID
AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
AND (SUBB.NAME <> SUBT.NAME
OR SUBB.ORIGIN <> SUBT.ORIGIN
OR SUBB.DESTINATION <> SUBT.DESTINATION
OR (SUBB.ORIGIN IS NULL AND SUBT.ORIGIN IS NOT NULL)
OR (SUBB.ORIGIN IS NOT NULL AND SUBT.ORIGIN IS NULL)
OR (SUBB.DESTINATION IS NULL AND SUBT.DESTINATION IS NOT NULL)
OR (SUBB.DESTINATION IS NOT NULL AND SUBT.DESTINATION IS NULL)
));
INSERT INTO OKL_BLLNG_CHRG_HDRS_TL (
ID,
LANGUAGE,
SOURCE_LANG,
SFWT_FLAG,
NAME,
ORIGIN,
DESTINATION,
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.NAME,
B.ORIGIN,
B.DESTINATION,
B.CREATED_BY,
B.CREATION_DATE,
B.LAST_UPDATED_BY,
B.LAST_UPDATE_DATE,
B.LAST_UPDATE_LOGIN
FROM OKL_BLLNG_CHRG_HDRS_TL B, FND_LANGUAGES L
WHERE L.INSTALLED_FLAG IN ('I', 'B')
AND B.LANGUAGE = USERENV('LANG')
AND NOT EXISTS(
SELECT NULL
FROM OKL_BLLNG_CHRG_HDRS_TL T
WHERE T.ID = B.ID
AND T.LANGUAGE = L.LANGUAGE_CODE
);
SELECT
ID,
SEQUENCE_NUMBER,
DATE_TRANSMISSION,
OBJECT_VERSION_NUMBER,
REQUEST_ID,
PROGRAM_APPLICATION_ID,
PROGRAM_ID,
PROGRAM_UPDATE_DATE,
ORG_ID,
TRX_STATUS_CODE,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN
FROM Okl_Bllng_Chrg_Hdrs_B
WHERE okl_bllng_chrg_hdrs_b.id = p_id;
l_bgh_rec.PROGRAM_UPDATE_DATE,
l_bgh_rec.ORG_ID,
l_bgh_rec.TRX_STATUS_CODE,
l_bgh_rec.ATTRIBUTE_CATEGORY,
l_bgh_rec.ATTRIBUTE1,
l_bgh_rec.ATTRIBUTE2,
l_bgh_rec.ATTRIBUTE3,
l_bgh_rec.ATTRIBUTE4,
l_bgh_rec.ATTRIBUTE5,
l_bgh_rec.ATTRIBUTE6,
l_bgh_rec.ATTRIBUTE7,
l_bgh_rec.ATTRIBUTE8,
l_bgh_rec.ATTRIBUTE9,
l_bgh_rec.ATTRIBUTE10,
l_bgh_rec.ATTRIBUTE11,
l_bgh_rec.ATTRIBUTE12,
l_bgh_rec.ATTRIBUTE13,
l_bgh_rec.ATTRIBUTE14,
l_bgh_rec.ATTRIBUTE15,
l_bgh_rec.CREATED_BY,
l_bgh_rec.CREATION_DATE,
l_bgh_rec.LAST_UPDATED_BY,
l_bgh_rec.LAST_UPDATE_DATE,
l_bgh_rec.LAST_UPDATE_LOGIN;
SELECT
ID,
Okl_Bllng_Chrg_Hdrs_Tl.LANGUAGE,
SOURCE_LANG,
SFWT_FLAG,
NAME,
ORIGIN,
DESTINATION,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN
FROM Okl_Bllng_Chrg_Hdrs_Tl
WHERE okl_bllng_chrg_hdrs_tl.id = p_id
AND okl_bllng_chrg_hdrs_tl.LANGUAGE = p_language;
l_okl_bllng_chrg_hdrs_tl_rec.LAST_UPDATED_BY,
l_okl_bllng_chrg_hdrs_tl_rec.LAST_UPDATE_DATE,
l_okl_bllng_chrg_hdrs_tl_rec.LAST_UPDATE_LOGIN;
SELECT
ID,
OBJECT_VERSION_NUMBER,
SFWT_FLAG,
NAME,
SEQUENCE_NUMBER,
DATE_TRANSMISSION,
ORIGIN,
DESTINATION,
TRX_STATUS_CODE,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
REQUEST_ID,
PROGRAM_APPLICATION_ID,
PROGRAM_ID,
PROGRAM_UPDATE_DATE,
ORG_ID,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN
FROM Okl_Bllng_Chrg_Hdrs_V
WHERE okl_bllng_chrg_hdrs_v.id = p_id;
l_bghv_rec.PROGRAM_UPDATE_DATE,
l_bghv_rec.ORG_ID,
l_bghv_rec.CREATED_BY,
l_bghv_rec.CREATION_DATE,
l_bghv_rec.LAST_UPDATED_BY,
l_bghv_rec.LAST_UPDATE_DATE,
l_bghv_rec.LAST_UPDATE_LOGIN;
IF (l_bghv_rec.program_update_date = Okl_Api.G_MISS_DATE) THEN
l_bghv_rec.program_update_date := NULL;
IF (l_bghv_rec.last_updated_by = Okl_Api.G_MISS_NUM) THEN
l_bghv_rec.last_updated_by := NULL;
IF (l_bghv_rec.last_update_date = Okl_Api.G_MISS_DATE) THEN
l_bghv_rec.last_update_date := NULL;
IF (l_bghv_rec.last_update_login = Okl_Api.G_MISS_NUM) THEN
l_bghv_rec.last_update_login := NULL;
SELECT 'x'
FROM okl_bllng_chrg_hdrs_v
WHERE name = p_bghv_rec.name
AND sequence_number = p_bghv_rec.sequence_number
AND id <> NVL (p_bghv_rec.id, -99999);
p_to.program_update_date := p_from.program_update_date;
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.program_update_date := p_from.program_update_date;
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_bgh_rec IN bgh_rec_type,
x_bgh_rec OUT NOCOPY bgh_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
INSERT INTO OKL_BLLNG_CHRG_HDRS_B(
id,
sequence_number,
date_transmission,
object_version_number,
request_id,
program_application_id,
program_id,
program_update_date,
org_id,
trx_status_code,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login)
VALUES (
l_bgh_rec.id,
l_bgh_rec.sequence_number,
l_bgh_rec.date_transmission,
l_bgh_rec.object_version_number,
l_bgh_rec.request_id,
l_bgh_rec.program_application_id,
l_bgh_rec.program_id,
l_bgh_rec.program_update_date,
l_bgh_rec.org_id,
l_bgh_rec.trx_status_code,
l_bgh_rec.attribute_category,
l_bgh_rec.attribute1,
l_bgh_rec.attribute2,
l_bgh_rec.attribute3,
l_bgh_rec.attribute4,
l_bgh_rec.attribute5,
l_bgh_rec.attribute6,
l_bgh_rec.attribute7,
l_bgh_rec.attribute8,
l_bgh_rec.attribute9,
l_bgh_rec.attribute10,
l_bgh_rec.attribute11,
l_bgh_rec.attribute12,
l_bgh_rec.attribute13,
l_bgh_rec.attribute14,
l_bgh_rec.attribute15,
l_bgh_rec.created_by,
l_bgh_rec.creation_date,
l_bgh_rec.last_updated_by,
l_bgh_rec.last_update_date,
l_bgh_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_bllng_chrg_hdrs_tl_rec IN OklBllngChrgHdrsTlRecType,
x_okl_bllng_chrg_hdrs_tl_rec OUT NOCOPY OklBllngChrgHdrsTlRecType) 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_BLLNG_CHRG_HDRS_TL(
id,
LANGUAGE,
source_lang,
sfwt_flag,
name,
origin,
destination,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login)
VALUES (
l_okl_bllng_chrg_hdrs_tl_rec.id,
l_okl_bllng_chrg_hdrs_tl_rec.LANGUAGE,
l_okl_bllng_chrg_hdrs_tl_rec.source_lang,
l_okl_bllng_chrg_hdrs_tl_rec.sfwt_flag,
l_okl_bllng_chrg_hdrs_tl_rec.name,
l_okl_bllng_chrg_hdrs_tl_rec.origin,
l_okl_bllng_chrg_hdrs_tl_rec.destination,
l_okl_bllng_chrg_hdrs_tl_rec.created_by,
l_okl_bllng_chrg_hdrs_tl_rec.creation_date,
l_okl_bllng_chrg_hdrs_tl_rec.last_updated_by,
l_okl_bllng_chrg_hdrs_tl_rec.last_update_date,
l_okl_bllng_chrg_hdrs_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_bghv_rec IN bghv_rec_type,
x_bghv_rec OUT NOCOPY bghv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
l_bghv_rec.LAST_UPDATE_DATE := l_bghv_rec.CREATION_DATE;
l_bghv_rec.LAST_UPDATED_BY := Fnd_Global.USER_ID;
l_bghv_rec.LAST_UPDATE_LOGIN := Fnd_Global.LOGIN_ID;
SELECT
DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,Fnd_Global.CONC_REQUEST_ID),
DECODE(Fnd_Global.PROG_APPL_ID, -1,NULL,Fnd_Global.PROG_APPL_ID),
DECODE(Fnd_Global.CONC_PROGRAM_ID,-1,NULL,Fnd_Global.CONC_PROGRAM_ID),
DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,SYSDATE)
INTO
x_bghv_rec.request_id,
x_bghv_rec.program_application_id,
x_bghv_rec.program_id,
x_bghv_rec.program_update_date
FROM dual;
insert_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_bgh_rec,
lx_bgh_rec
);
insert_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_okl_bllng_chrg_hdrs_tl_rec,
lx_okl_bllng_chrg_hdrs_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_bghv_tbl IN bghv_tbl_type,
x_bghv_tbl OUT NOCOPY bghv_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_bghv_rec => p_bghv_tbl(i),
x_bghv_rec => x_bghv_tbl(i));
END insert_row;
SELECT OBJECT_VERSION_NUMBER
FROM OKL_BLLNG_CHRG_HDRS_B
WHERE ID = p_bgh_rec.id
AND OBJECT_VERSION_NUMBER = p_bgh_rec.object_version_number
FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
SELECT OBJECT_VERSION_NUMBER
FROM OKL_BLLNG_CHRG_HDRS_B
WHERE ID = p_bgh_rec.id;
Okl_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
Okl_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
SELECT *
FROM OKL_BLLNG_CHRG_HDRS_TL
WHERE ID = p_okl_bllng_chrg_hdrs_tl_rec.id
FOR UPDATE NOWAIT;
Okl_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_bgh_rec IN bgh_rec_type,
x_bgh_rec OUT NOCOPY bgh_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
IF (x_bgh_rec.program_update_date = Okl_Api.G_MISS_DATE)
THEN
x_bgh_rec.program_update_date := l_bgh_rec.program_update_date;
IF (x_bgh_rec.last_updated_by = Okl_Api.G_MISS_NUM)
THEN
x_bgh_rec.last_updated_by := l_bgh_rec.last_updated_by;
IF (x_bgh_rec.last_update_date = Okl_Api.G_MISS_DATE)
THEN
x_bgh_rec.last_update_date := l_bgh_rec.last_update_date;
IF (x_bgh_rec.last_update_login = Okl_Api.G_MISS_NUM)
THEN
x_bgh_rec.last_update_login := l_bgh_rec.last_update_login;
UPDATE OKL_BLLNG_CHRG_HDRS_B
SET SEQUENCE_NUMBER = l_def_bgh_rec.sequence_number,
DATE_TRANSMISSION = l_def_bgh_rec.date_transmission,
OBJECT_VERSION_NUMBER = l_def_bgh_rec.object_version_number,
REQUEST_ID = l_def_bgh_rec.request_id,
PROGRAM_APPLICATION_ID = l_def_bgh_rec.program_application_id,
PROGRAM_ID = l_def_bgh_rec.program_id,
PROGRAM_UPDATE_DATE = l_def_bgh_rec.program_update_date,
ORG_ID = l_def_bgh_rec.org_id,
TRX_STATUS_CODE = l_def_bgh_rec.trx_status_code,
ATTRIBUTE_CATEGORY = l_def_bgh_rec.attribute_category,
ATTRIBUTE1 = l_def_bgh_rec.attribute1,
ATTRIBUTE2 = l_def_bgh_rec.attribute2,
ATTRIBUTE3 = l_def_bgh_rec.attribute3,
ATTRIBUTE4 = l_def_bgh_rec.attribute4,
ATTRIBUTE5 = l_def_bgh_rec.attribute5,
ATTRIBUTE6 = l_def_bgh_rec.attribute6,
ATTRIBUTE7 = l_def_bgh_rec.attribute7,
ATTRIBUTE8 = l_def_bgh_rec.attribute8,
ATTRIBUTE9 = l_def_bgh_rec.attribute9,
ATTRIBUTE10 = l_def_bgh_rec.attribute10,
ATTRIBUTE11 = l_def_bgh_rec.attribute11,
ATTRIBUTE12 = l_def_bgh_rec.attribute12,
ATTRIBUTE13 = l_def_bgh_rec.attribute13,
ATTRIBUTE14 = l_def_bgh_rec.attribute14,
ATTRIBUTE15 = l_def_bgh_rec.attribute15,
CREATED_BY = l_def_bgh_rec.created_by,
CREATION_DATE = l_def_bgh_rec.creation_date,
LAST_UPDATED_BY = l_def_bgh_rec.last_updated_by,
LAST_UPDATE_DATE = l_def_bgh_rec.last_update_date,
LAST_UPDATE_LOGIN = l_def_bgh_rec.last_update_login
WHERE ID = l_def_bgh_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_bllng_chrg_hdrs_tl_rec IN OklBllngChrgHdrsTlRecType,
x_okl_bllng_chrg_hdrs_tl_rec OUT NOCOPY OklBllngChrgHdrsTlRecType) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
IF (x_okl_bllng_chrg_hdrs_tl_rec.last_updated_by = Okl_Api.G_MISS_NUM)
THEN
x_okl_bllng_chrg_hdrs_tl_rec.last_updated_by := l_okl_bllng_chrg_hdrs_tl_rec.last_updated_by;
IF (x_okl_bllng_chrg_hdrs_tl_rec.last_update_date = Okl_Api.G_MISS_DATE)
THEN
x_okl_bllng_chrg_hdrs_tl_rec.last_update_date := l_okl_bllng_chrg_hdrs_tl_rec.last_update_date;
IF (x_okl_bllng_chrg_hdrs_tl_rec.last_update_login = Okl_Api.G_MISS_NUM)
THEN
x_okl_bllng_chrg_hdrs_tl_rec.last_update_login := l_okl_bllng_chrg_hdrs_tl_rec.last_update_login;
UPDATE OKL_BLLNG_CHRG_HDRS_TL
SET NAME = ldefoklbllngchrghdrstlrec.name,
ORIGIN = ldefoklbllngchrghdrstlrec.origin,
DESTINATION = ldefoklbllngchrghdrstlrec.destination,
CREATED_BY = ldefoklbllngchrghdrstlrec.created_by,
CREATION_DATE = ldefoklbllngchrghdrstlrec.creation_date,
LAST_UPDATED_BY = ldefoklbllngchrghdrstlrec.last_updated_by,
LAST_UPDATE_DATE = ldefoklbllngchrghdrstlrec.last_update_date,
LAST_UPDATE_LOGIN = ldefoklbllngchrghdrstlrec.last_update_login
WHERE ID = ldefoklbllngchrghdrstlrec.id
--AND SOURCE_LANG = USERENV('LANG');
UPDATE OKL_BLLNG_CHRG_HDRS_TL
SET SFWT_FLAG = 'Y'
WHERE ID = ldefoklbllngchrghdrstlrec.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_bghv_rec IN bghv_rec_type,
x_bghv_rec OUT NOCOPY bghv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
l_bghv_rec.LAST_UPDATE_DATE := SYSDATE;
l_bghv_rec.LAST_UPDATED_BY := Fnd_Global.USER_ID;
l_bghv_rec.LAST_UPDATE_LOGIN := Fnd_Global.LOGIN_ID;
IF (x_bghv_rec.program_update_date = Okl_Api.G_MISS_DATE)
THEN
x_bghv_rec.program_update_date := l_bghv_rec.program_update_date;
IF (x_bghv_rec.last_updated_by = Okl_Api.G_MISS_NUM)
THEN
x_bghv_rec.last_updated_by := l_bghv_rec.last_updated_by;
IF (x_bghv_rec.last_update_date = Okl_Api.G_MISS_DATE)
THEN
x_bghv_rec.last_update_date := l_bghv_rec.last_update_date;
IF (x_bghv_rec.last_update_login = Okl_Api.G_MISS_NUM)
THEN
x_bghv_rec.last_update_login := l_bghv_rec.last_update_login;
SELECT
NVL(DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,Fnd_Global.CONC_REQUEST_ID),
x_bghv_rec.request_id),
NVL(DECODE(Fnd_Global.PROG_APPL_ID, -1,NULL,Fnd_Global.PROG_APPL_ID),
x_bghv_rec.program_application_id),
NVL(DECODE(Fnd_Global.CONC_PROGRAM_ID,-1,NULL,Fnd_Global.CONC_PROGRAM_ID),
x_bghv_rec.program_id),
DECODE(DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,SYSDATE),
NULL,x_bghv_rec.program_update_date,SYSDATE)
INTO
x_bghv_rec.request_id,
x_bghv_rec.program_application_id,
x_bghv_rec.program_id,
x_bghv_rec.program_update_date
FROM dual;
update_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_okl_bllng_chrg_hdrs_tl_rec,
lx_okl_bllng_chrg_hdrs_tl_rec
);
update_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_bgh_rec,
lx_bgh_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_bghv_tbl IN bghv_tbl_type,
x_bghv_tbl OUT NOCOPY bghv_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_bghv_rec => p_bghv_tbl(i),
x_bghv_rec => x_bghv_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_bgh_rec IN bgh_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
DELETE FROM OKL_BLLNG_CHRG_HDRS_B
WHERE ID = l_bgh_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_bllng_chrg_hdrs_tl_rec IN OklBllngChrgHdrsTlRecType) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
DELETE FROM OKL_BLLNG_CHRG_HDRS_TL
WHERE ID = l_okl_bllng_chrg_hdrs_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_bghv_rec IN bghv_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_bllng_chrg_hdrs_tl_rec
);
delete_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_bgh_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_bghv_tbl IN bghv_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_bghv_rec => p_bghv_tbl(i));
END delete_row;