The following lines contain the word 'select', 'insert', 'update' or 'delete':
DELETE FROM OKL_EXT_PAY_INVS_TL T
WHERE NOT EXISTS (
SELECT NULL
FROM OKL_EXT_PAY_INVS_ALL_B B
WHERE B.ID = T.ID
AND T.LANGUAGE = USERENV('LANG')
);
UPDATE OKL_EXT_PAY_INVS_TL T SET (
DESCRIPTION,
SOURCE,
STREAM_TYPE) = (SELECT
B.DESCRIPTION,
B.SOURCE,
B.STREAM_TYPE
FROM OKL_EXT_PAY_INVS_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_EXT_PAY_INVS_TL SUBB, OKL_EXT_PAY_INVS_TL SUBT
WHERE SUBB.ID = SUBT.ID
AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
AND (SUBB.DESCRIPTION <> SUBT.DESCRIPTION
OR SUBB.SOURCE <> SUBT.SOURCE
OR SUBB.STREAM_TYPE <> SUBT.STREAM_TYPE
OR (SUBB.DESCRIPTION IS NULL AND SUBT.DESCRIPTION IS NOT NULL)
OR (SUBB.DESCRIPTION IS NOT NULL AND SUBT.DESCRIPTION IS NULL)
OR (SUBB.SOURCE IS NULL AND SUBT.SOURCE IS NOT NULL)
OR (SUBB.SOURCE IS NOT NULL AND SUBT.SOURCE IS NULL)
OR (SUBB.STREAM_TYPE IS NULL AND SUBT.STREAM_TYPE IS NOT NULL)
OR (SUBB.STREAM_TYPE IS NOT NULL AND SUBT.STREAM_TYPE IS NULL)
));
INSERT INTO OKL_EXT_PAY_INVS_TL (
ID,
LANGUAGE,
SOURCE_LANG,
SFWT_FLAG,
DESCRIPTION,
SOURCE,
STREAM_TYPE,
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.DESCRIPTION,
B.SOURCE,
B.STREAM_TYPE,
B.CREATED_BY,
B.CREATION_DATE,
B.LAST_UPDATED_BY,
B.LAST_UPDATE_DATE,
B.LAST_UPDATE_LOGIN
FROM OKL_EXT_PAY_INVS_TL B, FND_LANGUAGES L
WHERE L.INSTALLED_FLAG IN ('I', 'B')
AND B.LANGUAGE = USERENV('LANG')
AND NOT EXISTS(
SELECT NULL
FROM OKL_EXT_PAY_INVS_TL T
WHERE T.ID = B.ID
AND T.LANGUAGE = L.LANGUAGE_CODE
);
SELECT
ID,
TRX_STATUS_CODE,
INVOICE_ID,
OBJECT_VERSION_NUMBER,
INVOICE_NUM,
INVOICE_TYPE,
INVOICE_DATE,
VENDOR_ID,
VENDOR_SITE_ID,
INVOICE_AMOUNT,
INVOICE_CURRENCY_CODE,
TERMS_ID,
WORKFLOW_FLAG,
DOC_CATEGORY_CODE,
PAYMENT_METHOD,
GL_DATE,
ACCTS_PAY_CC_ID,
PAY_ALONE_FLAG,
WAIT_VENDOR_INVOICE_YN,
PAYABLES_INVOICE_ID,
REQUEST_ID,
PROGRAM_APPLICATION_ID,
PROGRAM_ID,
PROGRAM_UPDATE_DATE,
ORG_ID,
CURRENCY_CONVERSION_TYPE,
CURRENCY_CONVERSION_RATE,
CURRENCY_CONVERSION_DATE,
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,
pay_group_lookup_code,
vendor_invoice_number,
nettable_yn,
-- 30-OCT-2006 ANSETHUR R12B - Legal Entity
legal_entity_id,
CNSLD_AP_INV_ID
FROM Okl_Ext_Pay_Invs_B
WHERE okl_ext_pay_invs_b.id = p_id;
l_xpi_rec.PROGRAM_UPDATE_DATE,
l_xpi_rec.ORG_ID,
l_xpi_rec.CURRENCY_CONVERSION_TYPE,
l_xpi_rec.CURRENCY_CONVERSION_RATE,
l_xpi_rec.CURRENCY_CONVERSION_DATE,
l_xpi_rec.ATTRIBUTE_CATEGORY,
l_xpi_rec.ATTRIBUTE1,
l_xpi_rec.ATTRIBUTE2,
l_xpi_rec.ATTRIBUTE3,
l_xpi_rec.ATTRIBUTE4,
l_xpi_rec.ATTRIBUTE5,
l_xpi_rec.ATTRIBUTE6,
l_xpi_rec.ATTRIBUTE7,
l_xpi_rec.ATTRIBUTE8,
l_xpi_rec.ATTRIBUTE9,
l_xpi_rec.ATTRIBUTE10,
l_xpi_rec.ATTRIBUTE11,
l_xpi_rec.ATTRIBUTE12,
l_xpi_rec.ATTRIBUTE13,
l_xpi_rec.ATTRIBUTE14,
l_xpi_rec.ATTRIBUTE15,
l_xpi_rec.CREATED_BY,
l_xpi_rec.CREATION_DATE,
l_xpi_rec.LAST_UPDATED_BY,
l_xpi_rec.LAST_UPDATE_DATE,
l_xpi_rec.LAST_UPDATE_LOGIN,
l_xpi_rec.pay_group_lookup_code,
l_xpi_rec.vendor_invoice_number,
l_xpi_rec.nettable_yn,
-- 30-OCT-2006 ANSETHUR R12B - Legal Entity
l_xpi_rec.legal_entity_id,
l_xpi_rec.CNSLD_AP_INV_ID;
SELECT
ID,
LANGUAGE,
SOURCE_LANG,
SFWT_FLAG,
DESCRIPTION,
SOURCE,
STREAM_TYPE,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN
FROM Okl_Ext_Pay_Invs_Tl
WHERE okl_ext_pay_invs_tl.id = p_id
AND okl_ext_pay_invs_tl.language = p_language;
l_okl_ext_pay_invs_tl_rec.LAST_UPDATED_BY,
l_okl_ext_pay_invs_tl_rec.LAST_UPDATE_DATE,
l_okl_ext_pay_invs_tl_rec.LAST_UPDATE_LOGIN;
SELECT
ID,
OBJECT_VERSION_NUMBER,
SFWT_FLAG,
TRX_STATUS_CODE,
INVOICE_ID,
INVOICE_NUM,
INVOICE_TYPE,
INVOICE_DATE,
VENDOR_ID,
VENDOR_SITE_ID,
INVOICE_AMOUNT,
INVOICE_CURRENCY_CODE,
TERMS_ID,
DESCRIPTION,
SOURCE,
WORKFLOW_FLAG,
DOC_CATEGORY_CODE,
PAYMENT_METHOD,
GL_DATE,
ACCTS_PAY_CC_ID,
PAY_ALONE_FLAG,
WAIT_VENDOR_INVOICE_YN,
STREAM_TYPE,
PAYABLES_INVOICE_ID,
CURRENCY_CONVERSION_TYPE,
CURRENCY_CONVERSION_RATE,
CURRENCY_CONVERSION_DATE,
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,
pay_group_lookup_code,
vendor_invoice_number,
nettable_yn,
-- 30-OCT-2006 ANSETHUR R12B - Legal Entity
legal_entity_id,
CNSLD_AP_INV_ID
FROM Okl_Ext_Pay_Invs_V
WHERE okl_ext_pay_invs_v.id = p_id;
l_xpiv_rec.PROGRAM_UPDATE_DATE,
l_xpiv_rec.ORG_ID,
l_xpiv_rec.CREATED_BY,
l_xpiv_rec.CREATION_DATE,
l_xpiv_rec.LAST_UPDATED_BY,
l_xpiv_rec.LAST_UPDATE_DATE,
l_xpiv_rec.LAST_UPDATE_LOGIN,
l_xpiv_rec.pay_group_lookup_code,
l_xpiv_rec.vendor_invoice_number,
l_xpiv_rec.nettable_yn,
-- 30-OCT-2006 ANSETHUR R12B - Legal Entity
l_xpiv_rec.legal_entity_id,
l_xpiv_rec.CNSLD_AP_INV_ID;
IF (l_xpiv_rec.program_update_date = OKL_API.G_MISS_DATE) THEN
l_xpiv_rec.program_update_date := NULL;
IF (l_xpiv_rec.last_updated_by = OKL_API.G_MISS_NUM) THEN
l_xpiv_rec.last_updated_by := NULL;
IF (l_xpiv_rec.last_update_date = OKL_API.G_MISS_DATE) THEN
l_xpiv_rec.last_update_date := NULL;
IF (l_xpiv_rec.last_update_login = OKL_API.G_MISS_NUM) THEN
l_xpiv_rec.last_update_login := NULL;
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 OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_xpi_rec IN xpi_rec_type,
x_xpi_rec OUT NOCOPY xpi_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
INSERT INTO OKL_EXT_PAY_INVS_B(
id,
trx_status_code,
invoice_id,
object_version_number,
invoice_num,
invoice_type,
invoice_date,
vendor_id,
vendor_site_id,
invoice_amount,
invoice_currency_code,
terms_id,
workflow_flag,
doc_category_code,
payment_method,
gl_date,
accts_pay_cc_id,
pay_alone_flag,
wait_vendor_invoice_yn,
payables_invoice_id,
request_id,
program_application_id,
program_id,
program_update_date,
org_id,
CURRENCY_CONVERSION_TYPE,
CURRENCY_CONVERSION_RATE,
CURRENCY_CONVERSION_DATE,
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,
pay_group_lookup_code,
vendor_invoice_number,
nettable_yn,
-- 30-OCT-2006 ANSETHUR R12B - Legal Entity
legal_entity_id,
CNSLD_AP_INV_ID
)
VALUES (
l_xpi_rec.id,
l_xpi_rec.trx_status_code,
l_xpi_rec.invoice_id,
l_xpi_rec.object_version_number,
l_xpi_rec.invoice_num,
l_xpi_rec.invoice_type,
l_xpi_rec.invoice_date,
l_xpi_rec.vendor_id,
l_xpi_rec.vendor_site_id,
l_xpi_rec.invoice_amount,
l_xpi_rec.invoice_currency_code,
l_xpi_rec.terms_id,
l_xpi_rec.workflow_flag,
l_xpi_rec.doc_category_code,
l_xpi_rec.payment_method,
l_xpi_rec.gl_date,
l_xpi_rec.accts_pay_cc_id,
l_xpi_rec.pay_alone_flag,
l_xpi_rec.wait_vendor_invoice_yn,
l_xpi_rec.payables_invoice_id,
l_xpi_rec.request_id,
l_xpi_rec.program_application_id,
l_xpi_rec.program_id,
l_xpi_rec.program_update_date,
l_xpi_rec.org_id,
l_xpi_rec.CURRENCY_CONVERSION_TYPE,
l_xpi_rec.CURRENCY_CONVERSION_RATE,
l_xpi_rec.CURRENCY_CONVERSION_DATE,
l_xpi_rec.attribute_category,
l_xpi_rec.attribute1,
l_xpi_rec.attribute2,
l_xpi_rec.attribute3,
l_xpi_rec.attribute4,
l_xpi_rec.attribute5,
l_xpi_rec.attribute6,
l_xpi_rec.attribute7,
l_xpi_rec.attribute8,
l_xpi_rec.attribute9,
l_xpi_rec.attribute10,
l_xpi_rec.attribute11,
l_xpi_rec.attribute12,
l_xpi_rec.attribute13,
l_xpi_rec.attribute14,
l_xpi_rec.attribute15,
l_xpi_rec.created_by,
l_xpi_rec.creation_date,
l_xpi_rec.last_updated_by,
l_xpi_rec.last_update_date,
l_xpi_rec.last_update_login,
l_xpi_rec.pay_group_lookup_code,
l_xpi_rec.vendor_invoice_number,
l_xpi_rec.nettable_yn,
-- 30-OCT-2006 ANSETHUR R12B - Legal Entity
l_xpi_rec.legal_entity_id,
l_xpi_rec.CNSLD_AP_INV_ID);
END insert_row;
PROCEDURE insert_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_okl_ext_pay_invs_tl_rec IN okl_ext_pay_invs_tl_rec_type,
x_okl_ext_pay_invs_tl_rec OUT NOCOPY okl_ext_pay_invs_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_EXT_PAY_INVS_TL(
id,
language,
source_lang,
sfwt_flag,
description,
source,
stream_type,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login)
VALUES (
l_okl_ext_pay_invs_tl_rec.id,
l_okl_ext_pay_invs_tl_rec.language,
l_okl_ext_pay_invs_tl_rec.source_lang,
l_okl_ext_pay_invs_tl_rec.sfwt_flag,
l_okl_ext_pay_invs_tl_rec.description,
l_okl_ext_pay_invs_tl_rec.source,
l_okl_ext_pay_invs_tl_rec.stream_type,
l_okl_ext_pay_invs_tl_rec.created_by,
l_okl_ext_pay_invs_tl_rec.creation_date,
l_okl_ext_pay_invs_tl_rec.last_updated_by,
l_okl_ext_pay_invs_tl_rec.last_update_date,
l_okl_ext_pay_invs_tl_rec.last_update_login);
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_xpiv_rec IN xpiv_rec_type,
x_xpiv_rec OUT NOCOPY xpiv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
l_xpiv_rec.LAST_UPDATE_DATE := l_xpiv_rec.CREATION_DATE; -- PostGen-10
l_xpiv_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_xpiv_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_xpiv_rec.request_id,
x_xpiv_rec.program_application_id,
x_xpiv_rec.program_id,
x_xpiv_rec.program_update_date
FROM dual;
insert_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_xpi_rec,
lx_xpi_rec
);
insert_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_okl_ext_pay_invs_tl_rec,
lx_okl_ext_pay_invs_tl_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_xpiv_tbl IN xpiv_tbl_type,
x_xpiv_tbl OUT NOCOPY xpiv_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 => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_xpiv_rec => p_xpiv_tbl(i),
x_xpiv_rec => x_xpiv_tbl(i));
END insert_row;
SELECT OBJECT_VERSION_NUMBER
FROM OKL_EXT_PAY_INVS_B
WHERE ID = p_xpi_rec.id
AND OBJECT_VERSION_NUMBER = p_xpi_rec.object_version_number
FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
SELECT OBJECT_VERSION_NUMBER
FROM OKL_EXT_PAY_INVS_B
WHERE ID = p_xpi_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_EXT_PAY_INVS_TL
WHERE ID = p_okl_ext_pay_invs_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 OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_xpi_rec IN xpi_rec_type,
x_xpi_rec OUT NOCOPY xpi_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
IF (x_xpi_rec.program_update_date = OKL_API.G_MISS_DATE)
THEN
x_xpi_rec.program_update_date := l_xpi_rec.program_update_date;
IF (x_xpi_rec.last_updated_by = OKL_API.G_MISS_NUM)
THEN
x_xpi_rec.last_updated_by := l_xpi_rec.last_updated_by;
IF (x_xpi_rec.last_update_date = OKL_API.G_MISS_DATE)
THEN
x_xpi_rec.last_update_date := l_xpi_rec.last_update_date;
IF (x_xpi_rec.last_update_login = OKL_API.G_MISS_NUM)
THEN
x_xpi_rec.last_update_login := l_xpi_rec.last_update_login;
UPDATE OKL_EXT_PAY_INVS_B
SET INVOICE_ID = l_def_xpi_rec.invoice_id,
TRX_STATUS_CODE = l_def_xpi_rec.trx_status_code,
OBJECT_VERSION_NUMBER = l_def_xpi_rec.object_version_number,
INVOICE_NUM = l_def_xpi_rec.invoice_num,
INVOICE_TYPE = l_def_xpi_rec.invoice_type,
INVOICE_DATE = l_def_xpi_rec.invoice_date,
VENDOR_ID = l_def_xpi_rec.vendor_id,
VENDOR_SITE_ID = l_def_xpi_rec.vendor_site_id,
INVOICE_AMOUNT = l_def_xpi_rec.invoice_amount,
INVOICE_CURRENCY_CODE = l_def_xpi_rec.invoice_currency_code,
TERMS_ID = l_def_xpi_rec.terms_id,
WORKFLOW_FLAG = l_def_xpi_rec.workflow_flag,
DOC_CATEGORY_CODE = l_def_xpi_rec.doc_category_code,
PAYMENT_METHOD = l_def_xpi_rec.payment_method,
GL_DATE = l_def_xpi_rec.gl_date,
ACCTS_PAY_CC_ID = l_def_xpi_rec.accts_pay_cc_id,
PAY_ALONE_FLAG = l_def_xpi_rec.pay_alone_flag,
WAIT_VENDOR_INVOICE_YN = l_def_xpi_rec.wait_vendor_invoice_yn,
PAYABLES_INVOICE_ID = l_def_xpi_rec.payables_invoice_id,
REQUEST_ID = l_def_xpi_rec.request_id,
PROGRAM_APPLICATION_ID = l_def_xpi_rec.program_application_id,
PROGRAM_ID = l_def_xpi_rec.program_id,
PROGRAM_UPDATE_DATE = l_def_xpi_rec.program_update_date,
ORG_ID = l_def_xpi_rec.org_id,
CURRENCY_CONVERSION_TYPE = l_def_xpi_rec.CURRENCY_CONVERSION_TYPE,
CURRENCY_CONVERSION_RATE = l_def_xpi_rec.CURRENCY_CONVERSION_RATE,
CURRENCY_CONVERSION_DATE = l_def_xpi_rec.CURRENCY_CONVERSION_DATE,
ATTRIBUTE_CATEGORY = l_def_xpi_rec.attribute_category,
ATTRIBUTE1 = l_def_xpi_rec.attribute1,
ATTRIBUTE2 = l_def_xpi_rec.attribute2,
ATTRIBUTE3 = l_def_xpi_rec.attribute3,
ATTRIBUTE4 = l_def_xpi_rec.attribute4,
ATTRIBUTE5 = l_def_xpi_rec.attribute5,
ATTRIBUTE6 = l_def_xpi_rec.attribute6,
ATTRIBUTE7 = l_def_xpi_rec.attribute7,
ATTRIBUTE8 = l_def_xpi_rec.attribute8,
ATTRIBUTE9 = l_def_xpi_rec.attribute9,
ATTRIBUTE10 = l_def_xpi_rec.attribute10,
ATTRIBUTE11 = l_def_xpi_rec.attribute11,
ATTRIBUTE12 = l_def_xpi_rec.attribute12,
ATTRIBUTE13 = l_def_xpi_rec.attribute13,
ATTRIBUTE14 = l_def_xpi_rec.attribute14,
ATTRIBUTE15 = l_def_xpi_rec.attribute15,
CREATED_BY = l_def_xpi_rec.created_by,
CREATION_DATE = l_def_xpi_rec.creation_date,
LAST_UPDATED_BY = l_def_xpi_rec.last_updated_by,
LAST_UPDATE_DATE = l_def_xpi_rec.last_update_date,
LAST_UPDATE_LOGIN = l_def_xpi_rec.last_update_login,
pay_group_lookup_code = l_def_xpi_rec.pay_group_lookup_code,
vendor_invoice_number = l_def_xpi_rec.vendor_invoice_number,
nettable_yn = l_def_xpi_rec.nettable_yn,
-- 30-OCT-2006 ANSETHUR R12B - Legal Entity
legal_entity_id = l_def_xpi_rec.legal_entity_id,
CNSLD_AP_INV_ID = l_def_xpi_rec.CNSLD_AP_INV_ID
WHERE ID = l_def_xpi_rec.id;
END update_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_okl_ext_pay_invs_tl_rec IN okl_ext_pay_invs_tl_rec_type,
x_okl_ext_pay_invs_tl_rec OUT NOCOPY okl_ext_pay_invs_tl_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
IF (x_okl_ext_pay_invs_tl_rec.last_updated_by = OKL_API.G_MISS_NUM)
THEN
x_okl_ext_pay_invs_tl_rec.last_updated_by := l_okl_ext_pay_invs_tl_rec.last_updated_by;
IF (x_okl_ext_pay_invs_tl_rec.last_update_date = OKL_API.G_MISS_DATE)
THEN
x_okl_ext_pay_invs_tl_rec.last_update_date := l_okl_ext_pay_invs_tl_rec.last_update_date;
IF (x_okl_ext_pay_invs_tl_rec.last_update_login = OKL_API.G_MISS_NUM)
THEN
x_okl_ext_pay_invs_tl_rec.last_update_login := l_okl_ext_pay_invs_tl_rec.last_update_login;
UPDATE OKL_EXT_PAY_INVS_TL
SET DESCRIPTION = ldefoklextpayinvstlrec.description,
SOURCE = ldefoklextpayinvstlrec.source,
STREAM_TYPE = ldefoklextpayinvstlrec.stream_type,
SOURCE_LANG = ldefoklextpayinvstlrec.source_lang,
CREATED_BY = ldefoklextpayinvstlrec.created_by,
CREATION_DATE = ldefoklextpayinvstlrec.creation_date,
LAST_UPDATED_BY = ldefoklextpayinvstlrec.last_updated_by,
LAST_UPDATE_DATE = ldefoklextpayinvstlrec.last_update_date,
LAST_UPDATE_LOGIN = ldefoklextpayinvstlrec.last_update_login
WHERE ID = ldefoklextpayinvstlrec.id
AND USERENV('LANG') in (SOURCE_LANG, LANGUAGE);
UPDATE OKL_EXT_PAY_INVS_TL
SET SFWT_FLAG = 'Y'
WHERE ID = ldefoklextpayinvstlrec.id
AND SOURCE_LANG <> USERENV('LANG');
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_xpiv_rec IN xpiv_rec_type,
x_xpiv_rec OUT NOCOPY xpiv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
l_xpiv_rec.LAST_UPDATE_DATE := SYSDATE;
l_xpiv_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_xpiv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
IF (x_xpiv_rec.program_update_date = OKL_API.G_MISS_DATE)
THEN
x_xpiv_rec.program_update_date := l_xpiv_rec.program_update_date;
IF (x_xpiv_rec.last_updated_by = OKL_API.G_MISS_NUM)
THEN
x_xpiv_rec.last_updated_by := l_xpiv_rec.last_updated_by;
IF (x_xpiv_rec.last_update_date = OKL_API.G_MISS_DATE)
THEN
x_xpiv_rec.last_update_date := l_xpiv_rec.last_update_date;
IF (x_xpiv_rec.last_update_login = OKL_API.G_MISS_NUM)
THEN
x_xpiv_rec.last_update_login := l_xpiv_rec.last_update_login;
SELECT
NVL(DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,Fnd_Global.CONC_REQUEST_ID),
x_xpiv_rec.request_id),
NVL(DECODE(Fnd_Global.PROG_APPL_ID, -1,NULL,Fnd_Global.PROG_APPL_ID),
x_xpiv_rec.program_application_id),
NVL(DECODE(Fnd_Global.CONC_PROGRAM_ID,-1,NULL,Fnd_Global.CONC_PROGRAM_ID),
x_xpiv_rec.program_id),
DECODE(DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,SYSDATE),
NULL,x_xpiv_rec.program_update_date,SYSDATE)
INTO
x_xpiv_rec.request_id,
x_xpiv_rec.program_application_id,
x_xpiv_rec.program_id,
x_xpiv_rec.program_update_date
FROM dual;
update_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_okl_ext_pay_invs_tl_rec,
lx_okl_ext_pay_invs_tl_rec
);
update_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_xpi_rec,
lx_xpi_rec
);
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_xpiv_tbl IN xpiv_tbl_type,
x_xpiv_tbl OUT NOCOPY xpiv_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 => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_xpiv_rec => p_xpiv_tbl(i),
x_xpiv_rec => x_xpiv_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_xpi_rec IN xpi_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
DELETE FROM OKL_EXT_PAY_INVS_B
WHERE ID = l_xpi_rec.id;
END delete_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_okl_ext_pay_invs_tl_rec IN okl_ext_pay_invs_tl_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
DELETE FROM OKL_EXT_PAY_INVS_TL
WHERE ID = l_okl_ext_pay_invs_tl_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_xpiv_rec IN xpiv_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_ext_pay_invs_tl_rec
);
delete_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_xpi_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_xpiv_tbl IN xpiv_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 => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_xpiv_rec => p_xpiv_tbl(i));
END delete_row;