The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
ID,
PAT_ID,
CHR_ID,
CLE_ID,
BSL_ID,
BCL_ID,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
MODIFIED_FROM,
MODIFIED_TO,
MODIFIER_MECHANISM_TYPE_CODE,
OPERAND,
ARITHMETIC_OPERATOR,
AUTOMATIC_FLAG,
UPDATE_ALLOWED,
UPDATED_FLAG,
APPLIED_FLAG,
ON_INVOICE_FLAG,
PRICING_PHASE_ID,
CONTEXT,
PROGRAM_APPLICATION_ID,
PROGRAM_ID,
PROGRAM_UPDATE_DATE,
REQUEST_ID,
LIST_HEADER_ID,
LIST_LINE_ID,
LIST_LINE_TYPE_CODE,
CHANGE_REASON_CODE,
CHANGE_REASON_TEXT,
ESTIMATED_FLAG,
ADJUSTED_AMOUNT,
CHARGE_TYPE_CODE,
CHARGE_SUBTYPE_CODE,
RANGE_BREAK_QUANTITY,
ACCRUAL_CONVERSION_RATE,
PRICING_GROUP_SEQUENCE,
ACCRUAL_FLAG,
LIST_LINE_NO,
SOURCE_SYSTEM_CODE,
BENEFIT_QTY,
BENEFIT_UOM_CODE,
EXPIRATION_DATE,
MODIFIER_LEVEL_CODE,
PRICE_BREAK_TYPE_CODE,
SUBSTITUTION_ATTRIBUTE,
PRORATION_TYPE_CODE,
INCLUDE_ON_RETURNS_FLAG,
OBJECT_VERSION_NUMBER,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
LAST_UPDATE_LOGIN,
REBATE_TRANSACTION_TYPE_CODE
FROM Okc_Price_Adjustments
WHERE okc_price_adjustments.id = p_id;
l_pat_rec.LAST_UPDATED_BY,
l_pat_rec.LAST_UPDATE_DATE,
l_pat_rec.MODIFIED_FROM,
l_pat_rec.MODIFIED_TO,
l_pat_rec.MODIFIER_MECHANISM_TYPE_CODE,
l_pat_rec.OPERAND,
l_pat_rec.ARITHMETIC_OPERATOR,
l_pat_rec.AUTOMATIC_FLAG,
l_pat_rec.UPDATE_ALLOWED,
l_pat_rec.UPDATED_FLAG,
l_pat_rec.APPLIED_FLAG,
l_pat_rec.ON_INVOICE_FLAG,
l_pat_rec.PRICING_PHASE_ID,
l_pat_rec.CONTEXT,
l_pat_rec.PROGRAM_APPLICATION_ID,
l_pat_rec.PROGRAM_ID,
l_pat_rec.PROGRAM_UPDATE_DATE,
l_pat_rec.REQUEST_ID,
l_pat_rec.LIST_HEADER_ID,
l_pat_rec.LIST_LINE_ID,
l_pat_rec.LIST_LINE_TYPE_CODE,
l_pat_rec.CHANGE_REASON_CODE,
l_pat_rec.CHANGE_REASON_TEXT,
l_pat_rec.ESTIMATED_FLAG,
l_pat_rec.ADJUSTED_AMOUNT,
l_pat_rec.CHARGE_TYPE_CODE,
l_pat_rec.CHARGE_SUBTYPE_CODE,
l_pat_rec.RANGE_BREAK_QUANTITY,
l_pat_rec.ACCRUAL_CONVERSION_RATE,
l_pat_rec.PRICING_GROUP_SEQUENCE,
l_pat_rec.ACCRUAL_FLAG,
l_pat_rec.LIST_LINE_NO,
l_pat_rec.SOURCE_SYSTEM_CODE,
l_pat_rec.BENEFIT_QTY,
l_pat_rec.BENEFIT_UOM_CODE,
l_pat_rec.EXPIRATION_DATE,
l_pat_rec.MODIFIER_LEVEL_CODE,
l_pat_rec.PRICE_BREAK_TYPE_CODE,
l_pat_rec.SUBSTITUTION_ATTRIBUTE,
l_pat_rec.PRORATION_TYPE_CODE,
l_pat_rec.INCLUDE_ON_RETURNS_FLAG,
l_pat_rec.OBJECT_VERSION_NUMBER,
l_pat_rec.ATTRIBUTE1,
l_pat_rec.ATTRIBUTE2,
l_pat_rec.ATTRIBUTE3,
l_pat_rec.ATTRIBUTE4,
l_pat_rec.ATTRIBUTE5,
l_pat_rec.ATTRIBUTE6,
l_pat_rec.ATTRIBUTE7,
l_pat_rec.ATTRIBUTE8,
l_pat_rec.ATTRIBUTE9,
l_pat_rec.ATTRIBUTE10,
l_pat_rec.ATTRIBUTE11,
l_pat_rec.ATTRIBUTE12,
l_pat_rec.ATTRIBUTE13,
l_pat_rec.ATTRIBUTE14,
l_pat_rec.ATTRIBUTE15,
l_pat_rec.LAST_UPDATE_LOGIN,
l_pat_rec.REBATE_TRANSACTION_TYPE_CODE;
SELECT
ID,
PAT_ID,
CHR_ID,
CLE_ID,
BSL_ID,
BCL_ID,
MODIFIED_FROM,
MODIFIED_TO,
MODIFIER_MECHANISM_TYPE_CODE,
OPERAND,
ARITHMETIC_OPERATOR,
AUTOMATIC_FLAG,
UPDATE_ALLOWED,
UPDATED_FLAG,
APPLIED_FLAG,
ON_INVOICE_FLAG,
PRICING_PHASE_ID,
CONTEXT,
PROGRAM_APPLICATION_ID,
PROGRAM_ID,
PROGRAM_UPDATE_DATE,
REQUEST_ID,
LIST_HEADER_ID,
LIST_LINE_ID,
LIST_LINE_TYPE_CODE,
CHANGE_REASON_CODE,
CHANGE_REASON_TEXT,
ESTIMATED_FLAG,
ADJUSTED_AMOUNT,
CHARGE_TYPE_CODE,
CHARGE_SUBTYPE_CODE,
RANGE_BREAK_QUANTITY,
ACCRUAL_CONVERSION_RATE,
PRICING_GROUP_SEQUENCE,
ACCRUAL_FLAG,
LIST_LINE_NO,
SOURCE_SYSTEM_CODE,
BENEFIT_QTY,
BENEFIT_UOM_CODE,
EXPIRATION_DATE,
MODIFIER_LEVEL_CODE,
PRICE_BREAK_TYPE_CODE,
SUBSTITUTION_ATTRIBUTE,
PRORATION_TYPE_CODE,
INCLUDE_ON_RETURNS_FLAG,
OBJECT_VERSION_NUMBER,
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,
REBATE_TRANSACTION_TYPE_CODE
FROM Okc_Price_Adjustments_V
WHERE okc_price_adjustments_v.id = p_id;
l_patv_rec.UPDATE_ALLOWED,
l_patv_rec.UPDATED_FLAG,
l_patv_rec.APPLIED_FLAG,
l_patv_rec.ON_INVOICE_FLAG,
l_patv_rec.PRICING_PHASE_ID,
l_patv_rec.CONTEXT,
l_patv_rec.PROGRAM_APPLICATION_ID,
l_patv_rec.PROGRAM_ID,
l_patv_rec.PROGRAM_UPDATE_DATE,
l_patv_rec.REQUEST_ID,
l_patv_rec.LIST_HEADER_ID,
l_patv_rec.LIST_LINE_ID,
l_patv_rec.LIST_LINE_TYPE_CODE,
l_patv_rec.CHANGE_REASON_CODE,
l_patv_rec.CHANGE_REASON_TEXT,
l_patv_rec.ESTIMATED_FLAG,
l_patv_rec.ADJUSTED_AMOUNT,
l_patv_rec.CHARGE_TYPE_CODE,
l_patv_rec.CHARGE_SUBTYPE_CODE,
l_patv_rec.RANGE_BREAK_QUANTITY,
l_patv_rec.ACCRUAL_CONVERSION_RATE,
l_patv_rec.PRICING_GROUP_SEQUENCE,
l_patv_rec.ACCRUAL_FLAG,
l_patv_rec.LIST_LINE_NO,
l_patv_rec.SOURCE_SYSTEM_CODE,
l_patv_rec.BENEFIT_QTY,
l_patv_rec.BENEFIT_UOM_CODE,
l_patv_rec.EXPIRATION_DATE,
l_patv_rec.MODIFIER_LEVEL_CODE,
l_patv_rec.PRICE_BREAK_TYPE_CODE,
l_patv_rec.SUBSTITUTION_ATTRIBUTE,
l_patv_rec.PRORATION_TYPE_CODE,
l_patv_rec.INCLUDE_ON_RETURNS_FLAG,
l_patv_rec.OBJECT_VERSION_NUMBER,
l_patv_rec.ATTRIBUTE1,
l_patv_rec.ATTRIBUTE2,
l_patv_rec.ATTRIBUTE3,
l_patv_rec.ATTRIBUTE4,
l_patv_rec.ATTRIBUTE5,
l_patv_rec.ATTRIBUTE6,
l_patv_rec.ATTRIBUTE7,
l_patv_rec.ATTRIBUTE8,
l_patv_rec.ATTRIBUTE9,
l_patv_rec.ATTRIBUTE10,
l_patv_rec.ATTRIBUTE11,
l_patv_rec.ATTRIBUTE12,
l_patv_rec.ATTRIBUTE13,
l_patv_rec.ATTRIBUTE14,
l_patv_rec.ATTRIBUTE15,
l_patv_rec.CREATED_BY,
l_patv_rec.CREATION_DATE,
l_patv_rec.LAST_UPDATED_BY,
l_patv_rec.LAST_UPDATE_DATE,
l_patv_rec.LAST_UPDATE_LOGIN,
l_patv_rec.REBATE_TRANSACTION_TYPE_CODE;
IF (l_patv_rec.update_allowed = OKC_API.G_MISS_CHAR) THEN
l_patv_rec.update_allowed := NULL;
IF (l_patv_rec.updated_flag = OKC_API.G_MISS_CHAR) THEN
l_patv_rec.updated_flag := NULL;
IF(l_patv_rec.program_update_date = OKC_API.G_MISS_DATE) THEN
l_patv_rec.program_update_date := NULL;
IF (l_patv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
l_patv_rec.last_updated_by := NULL;
IF (l_patv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
l_patv_rec.last_update_date := NULL;
IF (l_patv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
l_patv_rec.last_update_login := NULL;
select 'x'
from QP_LIST_HEADERS_B
where LIST_HEADER_ID = p_patv_rec.list_header_id;
select 'x'
from QP_LIST_LINES
where LIST_LINE_ID = p_patv_rec.list_line_id;
PROCEDURE validate_update_allowed(
p_patv_rec IN patv_rec_type,
x_return_status OUT NOCOPY VARCHAR2) IS
l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
okc_debug.log('2300: Entered validate_update_allowed', 2);
IF p_patv_rec.update_allowed NOT IN ('Y', 'N')
THEN
OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'update_allowed');
okc_debug.log('2400: Leaving validate_update_allowed', 2);
okc_debug.log('2500: Exiting validate_update_allowed:G_EXCEPTION_HALT_VALIDATION Exception', 2);
okc_debug.log('2600: Exiting validate_update_allowed:OTHERS Exception', 2);
END validate_update_allowed;
PROCEDURE validate_updated_flag(
p_patv_rec IN patv_rec_type,
x_return_status OUT NOCOPY VARCHAR2) IS
l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
okc_debug.log('2700: Entered validate_updated_flag', 2);
IF p_patv_rec.updated_flag NOT IN ('Y', 'N')
THEN
OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'updated_flag');
okc_debug.log('2800: Leaving validate_updated_flag', 2);
okc_debug.log('2900: Exiting validate_updated_flag:G_EXCEPTION_HALT_VALIDATION Exception', 2);
okc_debug.log('3000: Exiting validate_updated_flag:OTHERS Exception', 2);
END validate_updated_flag;
select 'x'
from OKC_K_HEADERS_B
where id = p_patv_rec.chr_id;
VALIDATE_update_allowed(p_patv_rec, l_return_status);
VALIDATE_updated_flag(p_patv_rec, l_return_status);
SELECT
'x'
FROM Okc_Price_Adjustments_V
WHERE okc_price_adjustments_v.id = p_id;
SELECT
'x'
FROM Okc_K_Headers_B
WHERE okc_k_headers_b.id = p_id;
SELECT
'x'
FROM Okc_K_Lines_B
WHERE okc_k_lines_b.id = p_id;
not required during insertion of okc_price_adjustments.
Moreover, these are already validated during initial phase
of Main billing.As per discussion with Umesh.
CURSOR oks_bslv_pk_csr (p_id IN NUMBER) IS
SELECT
'x'
FROM Oks_Bill_Sub_Lines_V
WHERE oks_bill_sub_lines_v.id = p_id;
SELECT
'x'
FROM Oks_Bill_Cont_Lines_V
WHERE oks_bill_cont_lines_v.id = p_id;
not required during insertion of okc_price_adjustments.
Moreover, these are already validated during initial phase
of Main billing.As per discussion with Umesh.
IF (p_patv_rec.BSL_ID IS NOT NULL)
THEN
OPEN oks_bslv_pk_csr(p_patv_rec.BSL_ID);
p_to.last_updated_by := p_from.last_updated_by;
p_to.last_update_date := p_from.last_update_date;
p_to.update_allowed := p_from.update_allowed;
p_to.updated_flag := p_from.updated_flag;
p_to.program_update_date:= p_from.program_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.update_allowed := p_from.update_allowed;
p_to.updated_flag := p_from.updated_flag;
p_to.program_update_date:= p_from.program_update_date;
p_to.last_update_login := p_from.last_update_login;
PROCEDURE insert_row(
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_pat_rec IN pat_rec_type,
x_pat_rec OUT NOCOPY pat_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'ADJUSTMENTS_insert_row';
okc_debug.log('6300: Entered insert_row', 2);
INSERT INTO OKC_PRICE_ADJUSTMENTS(
id,
pat_id,
chr_id,
cle_id,
bsl_id,
bcl_id,
created_by,
creation_date,
last_updated_by,
last_update_date,
modified_from,
modified_to,
modifier_mechanism_type_code,
operand,
arithmetic_operator,
automatic_flag,
update_allowed,
updated_flag,
applied_flag,
on_invoice_flag,
pricing_phase_id,
context,
program_application_id,
program_id,
program_update_date,
request_id,
list_header_id,
list_line_id,
list_line_type_code,
change_reason_code,
change_reason_text,
estimated_flag,
adjusted_amount,
charge_type_code,
charge_subtype_code,
range_break_quantity,
accrual_conversion_rate,
pricing_group_sequence,
accrual_flag,
list_line_no,
source_system_code,
benefit_qty,
benefit_uom_code,
expiration_date,
modifier_level_code,
price_break_type_code,
substitution_attribute,
proration_type_code,
include_on_returns_flag,
object_version_number,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
last_update_login,
rebate_transaction_type_code)
VALUES (
l_pat_rec.id,
l_pat_rec.pat_id,
l_pat_rec.chr_id,
l_pat_rec.cle_id,
l_pat_rec.bsl_id,
l_pat_rec.bcl_id,
l_pat_rec.created_by,
l_pat_rec.creation_date,
l_pat_rec.last_updated_by,
l_pat_rec.last_update_date,
l_pat_rec.modified_from,
l_pat_rec.modified_to,
l_pat_rec.modifier_mechanism_type_code,
l_pat_rec.operand,
l_pat_rec.arithmetic_operator,
l_pat_rec.automatic_flag,
l_pat_rec.update_allowed,
l_pat_rec.updated_flag,
l_pat_rec.applied_flag,
l_pat_rec.on_invoice_flag,
l_pat_rec.pricing_phase_id,
l_pat_rec.context,
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),
decode(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),
l_pat_rec.list_header_id,
l_pat_rec.list_line_id,
l_pat_rec.list_line_type_code,
l_pat_rec.change_reason_code,
l_pat_rec.change_reason_text,
l_pat_rec.estimated_flag,
l_pat_rec.adjusted_amount,
l_pat_rec.charge_type_code,
l_pat_rec.charge_subtype_code,
l_pat_rec.range_break_quantity,
l_pat_rec.accrual_conversion_rate,
l_pat_rec.pricing_group_sequence,
l_pat_rec.accrual_flag,
l_pat_rec.list_line_no,
l_pat_rec.source_system_code,
l_pat_rec.benefit_qty,
l_pat_rec.benefit_uom_code,
l_pat_rec.expiration_date,
l_pat_rec.modifier_level_code,
l_pat_rec.price_break_type_code,
l_pat_rec.substitution_attribute,
l_pat_rec.proration_type_code,
l_pat_rec.include_on_returns_flag,
l_pat_rec.object_version_number,
l_pat_rec.attribute1,
l_pat_rec.attribute2,
l_pat_rec.attribute3,
l_pat_rec.attribute4,
l_pat_rec.attribute5,
l_pat_rec.attribute6,
l_pat_rec.attribute7,
l_pat_rec.attribute8,
l_pat_rec.attribute9,
l_pat_rec.attribute10,
l_pat_rec.attribute11,
l_pat_rec.attribute12,
l_pat_rec.attribute13,
l_pat_rec.attribute14,
l_pat_rec.attribute15,
l_pat_rec.last_update_login,
l_pat_rec.rebate_transaction_type_code);
okc_debug.log('6400: Exiting insert_row', 2);
okc_debug.log('6500: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('6600: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('6700: Exiting insert_row:OTHERS Exception', 2);
END insert_row;
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_patv_rec IN patv_rec_type,
x_patv_rec OUT NOCOPY patv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
l_patv_rec.LAST_UPDATE_DATE := l_patv_rec.CREATION_DATE;
l_patv_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_patv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
okc_debug.log('7000: Entered insert_row', 2);
insert_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_pat_rec,
lx_pat_rec
);
okc_debug.log('7100: Exiting insert_row', 2);
okc_debug.log('7200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('7300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('7400: Exiting insert_row:OTHERS Exception', 2);
END insert_row;
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_patv_tbl IN patv_tbl_type,
x_patv_tbl OUT NOCOPY patv_tbl_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
okc_debug.log('7500: Entered insert_row', 2);
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_patv_rec => p_patv_tbl(i),
x_patv_rec => x_patv_tbl(i));
okc_debug.log('7600: Exiting insert_row', 2);
okc_debug.log('7700: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('7800: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('7900: Exiting insert_row:OTHERS Exception', 2);
END insert_row;
SELECT OBJECT_VERSION_NUMBER
FROM OKC_PRICE_ADJUSTMENTS
WHERE ID = p_pat_rec.id
AND OBJECT_VERSION_NUMBER = p_pat_rec.object_version_number
FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
SELECT OBJECT_VERSION_NUMBER
FROM OKC_PRICE_ADJUSTMENTS
WHERE ID = p_pat_rec.id;
OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
PROCEDURE update_row(
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_pat_rec IN pat_rec_type,
x_pat_rec OUT NOCOPY pat_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'ADJUSTMENTS_update_row';
IF (x_pat_rec.last_updated_by = OKC_API.G_MISS_NUM)
THEN
x_pat_rec.last_updated_by := l_pat_rec.last_updated_by;
IF (x_pat_rec.last_update_date = OKC_API.G_MISS_DATE)
THEN
x_pat_rec.last_update_date := l_pat_rec.last_update_date;
IF (x_pat_rec.update_allowed = OKC_API.G_MISS_CHAR)
THEN
x_pat_rec.update_allowed := l_pat_rec.update_allowed;
IF (x_pat_rec.updated_flag = OKC_API.G_MISS_CHAR)
THEN
x_pat_rec.updated_flag := l_pat_rec.updated_flag;
IF (x_pat_rec.program_update_date = OKC_API.G_MISS_DATE)
THEN
x_pat_rec.program_update_date := l_pat_rec.program_update_date;
IF (x_pat_rec.last_update_login = OKC_API.G_MISS_NUM)
THEN
x_pat_rec.last_update_login := l_pat_rec.last_update_login;
okc_debug.log('10000: Entered update_row', 2);
UPDATE OKC_PRICE_ADJUSTMENTS
SET --PAT_ID = l_def_pat_rec.pat_id,
--CHR_ID = l_def_pat_rec.chr_id,
--CLE_ID = l_def_pat_rec.cle_id,
BSL_ID = l_def_pat_rec.bsl_id,
BCL_ID = l_def_pat_rec.bcl_id,
--CREATED_BY = l_def_pat_rec.created_by,
--CREATION_DATE = l_def_pat_rec.creation_date,
LAST_UPDATED_BY = l_def_pat_rec.last_updated_by,
LAST_UPDATE_DATE = l_def_pat_rec.last_update_date,
MODIFIED_FROM = l_def_pat_rec.modified_from,
MODIFIED_TO = l_def_pat_rec.modified_to,
MODIFIER_MECHANISM_TYPE_CODE = l_def_pat_rec.modifier_mechanism_type_code,
OPERAND = l_def_pat_rec.operand,
ARITHMETIC_OPERATOR = l_def_pat_rec.arithmetic_operator,
AUTOMATIC_FLAG = l_def_pat_rec.automatic_flag,
UPDATE_ALLOWED = l_def_pat_rec.update_allowed,
UPDATED_FLAG = l_def_pat_rec.updated_flag,
APPLIED_FLAG = l_def_pat_rec.applied_flag,
ON_INVOICE_FLAG = l_def_pat_rec.on_invoice_flag,
PRICING_PHASE_ID = l_def_pat_rec.pricing_phase_id,
CONTEXT = l_def_pat_rec.context,
REQUEST_ID = NVL(decode(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),l_def_pat_rec.request_id),
PROGRAM_APPLICATION_ID = NVL(decode(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),l_def_pat_rec.program_application_id),
PROGRAM_ID = NVL(decode(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),l_def_pat_rec.program_id),
PROGRAM_UPDATE_DATE = decode(decode(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),NULL,l_def_pat_rec.program_update_date,SYSDATE),
LIST_HEADER_ID = l_def_pat_rec.list_header_id,
LIST_LINE_ID = l_def_pat_rec.list_line_id,
LIST_LINE_TYPE_CODE = l_def_pat_rec.list_line_type_code,
CHANGE_REASON_CODE = l_def_pat_rec.change_reason_code,
CHANGE_REASON_TEXT = l_def_pat_rec.change_reason_text,
ESTIMATED_FLAG = l_def_pat_rec.estimated_flag,
ADJUSTED_AMOUNT = l_def_pat_rec.adjusted_amount,
CHARGE_TYPE_CODE = l_def_pat_rec.charge_type_code,
CHARGE_SUBTYPE_CODE = l_def_pat_rec.charge_subtype_code,
RANGE_BREAK_QUANTITY = l_def_pat_rec.range_break_quantity,
ACCRUAL_CONVERSION_RATE = l_def_pat_rec.accrual_conversion_rate,
PRICING_GROUP_SEQUENCE = l_def_pat_rec.pricing_group_sequence,
ACCRUAL_FLAG = l_def_pat_rec.accrual_flag,
LIST_LINE_NO = l_def_pat_rec.list_line_no,
SOURCE_SYSTEM_CODE = l_def_pat_rec.source_system_code,
BENEFIT_QTY = l_def_pat_rec.benefit_qty,
BENEFIT_UOM_CODE = l_def_pat_rec.benefit_uom_code,
EXPIRATION_DATE = l_def_pat_rec.expiration_date,
MODIFIER_LEVEL_CODE = l_def_pat_rec.modifier_level_code,
PRICE_BREAK_TYPE_CODE = l_def_pat_rec.price_break_type_code,
SUBSTITUTION_ATTRIBUTE = l_def_pat_rec.substitution_attribute,
PRORATION_TYPE_CODE = l_def_pat_rec.proration_type_code,
INCLUDE_ON_RETURNS_FLAG = l_def_pat_rec.include_on_returns_flag,
OBJECT_VERSION_NUMBER = l_def_pat_rec.object_version_number,
ATTRIBUTE1 = l_def_pat_rec.attribute1,
ATTRIBUTE2 = l_def_pat_rec.attribute2,
ATTRIBUTE3 = l_def_pat_rec.attribute3,
ATTRIBUTE4 = l_def_pat_rec.attribute4,
ATTRIBUTE5 = l_def_pat_rec.attribute5,
ATTRIBUTE6 = l_def_pat_rec.attribute6,
ATTRIBUTE7 = l_def_pat_rec.attribute7,
ATTRIBUTE8 = l_def_pat_rec.attribute8,
ATTRIBUTE9 = l_def_pat_rec.attribute9,
ATTRIBUTE10 = l_def_pat_rec.attribute10,
ATTRIBUTE11 = l_def_pat_rec.attribute11,
ATTRIBUTE12 = l_def_pat_rec.attribute12,
ATTRIBUTE13 = l_def_pat_rec.attribute13,
ATTRIBUTE14 = l_def_pat_rec.attribute14,
ATTRIBUTE15 = l_def_pat_rec.attribute15,
LAST_UPDATE_LOGIN = l_def_pat_rec.last_update_login,
REBATE_TRANSACTION_TYPE_CODE = l_def_pat_rec.rebate_transaction_type_code
WHERE ID = l_def_pat_rec.id;
okc_debug.log('10100: Exiting update_row', 2);
okc_debug.log('10200: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('10300: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('10400: Exiting update_row:OTHERS Exception', 2);
END update_row;
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_patv_rec IN patv_rec_type,
x_patv_rec OUT NOCOPY patv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
l_patv_rec.LAST_UPDATE_DATE := SYSDATE;
l_patv_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_patv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
IF (x_patv_rec.update_allowed = OKC_API.G_MISS_CHAR)
THEN
x_patv_rec.update_allowed := l_patv_rec.update_allowed;
IF (x_patv_rec.updated_flag = OKC_API.G_MISS_CHAR)
THEN
x_patv_rec.updated_flag := l_patv_rec.updated_flag;
IF (x_patv_rec.program_update_date = OKC_API.G_MISS_DATE)
THEN
x_patv_rec.program_update_date := l_patv_rec.program_update_date;
IF (x_patv_rec.last_updated_by = OKC_API.G_MISS_NUM)
THEN
x_patv_rec.last_updated_by := l_patv_rec.last_updated_by;
IF (x_patv_rec.last_update_date = OKC_API.G_MISS_DATE)
THEN
x_patv_rec.last_update_date := l_patv_rec.last_update_date;
IF (x_patv_rec.last_update_login = OKC_API.G_MISS_NUM)
THEN
x_patv_rec.last_update_login := l_patv_rec.last_update_login;
okc_debug.log('10650: Exiting update_row', 2);
okc_debug.log('10800: Entered update_row', 2);
update_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_pat_rec,
lx_pat_rec
);
okc_debug.log('10900: Exiting update_row', 2);
okc_debug.log('11000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('11100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('11200: Exiting update_row:OTHERS Exception', 2);
END update_row;
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_patv_tbl IN patv_tbl_type,
x_patv_tbl OUT NOCOPY patv_tbl_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
okc_debug.log('11300: Entered update_row', 2);
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_patv_rec => p_patv_tbl(i),
x_patv_rec => x_patv_tbl(i));
okc_debug.log('11400: Exiting update_row', 2);
okc_debug.log('11500: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('11600: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('11700: Exiting update_row:OTHERS Exception', 2);
END update_row;
PROCEDURE delete_row(
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_pat_rec IN pat_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'ADJUSTMENTS_delete_row';
okc_debug.log('11800: Entered delete_row', 2);
DELETE FROM OKC_PRICE_ADJUSTMENTS
WHERE ID = l_pat_rec.id;
okc_debug.log('11900: Exiting delete_row', 2);
okc_debug.log('12000: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('12100: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('12200: Exiting delete_row:OTHERS Exception', 2);
END delete_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_patv_rec IN patv_rec_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
okc_debug.log('12300: Entered delete_row', 2);
delete_row(
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_pat_rec
);
okc_debug.log('12400: Exiting delete_row', 2);
okc_debug.log('12500: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('12600: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('12700: Exiting delete_row:OTHERS Exception', 2);
END delete_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_patv_tbl IN patv_tbl_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
okc_debug.log('12800: Entered delete_row', 2);
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_patv_rec => p_patv_tbl(i));
okc_debug.log('12900: Exiting delete_row', 2);
okc_debug.log('13000: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
okc_debug.log('13100: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
okc_debug.log('13200: Exiting delete_row:OTHERS Exception', 2);
END delete_row;
PROCEDURE INSERT_ROW_UPG(x_return_status OUT NOCOPY VARCHAR2,p_patv_tbl patv_tbl_type) IS
l_tabsize NUMBER := p_patv_tbl.COUNT;
in_update_allowed OKC_DATATYPES.Var3TabTyp;
in_updated_flag OKC_DATATYPES.Var3TabTyp;
in_program_update_date OKC_DATATYPES.DateTabTyp;
in_last_updated_by OKC_DATATYPES.NumberTabTyp;
in_last_update_date OKC_DATATYPES.DateTabTyp;
in_last_update_login OKC_DATATYPES.NumberTabTyp;
okc_debug.log('13300: Entered INSERT_ROW_UPG', 2);
in_update_allowed (j) := p_patv_tbl(i).update_allowed;
in_updated_flag (j) := p_patv_tbl(i).updated_flag;
in_program_update_date (j) := p_patv_tbl(i).program_update_date;
in_last_updated_by (j) := p_patv_tbl(i).last_updated_by;
in_last_update_date (j) := p_patv_tbl(i).last_update_date;
in_last_update_login (j) := p_patv_tbl(i).last_update_login;
INSERT
INTO OKC_PRICE_ADJUSTMENTS
(
id,
pat_id,
chr_id,
cle_id,
bsl_id,
bcl_id,
created_by,
creation_date,
last_updated_by,
last_update_date,
modified_from,
modified_to,
modifier_mechanism_type_code,
operand,
arithmetic_operator,
automatic_flag,
update_allowed,
updated_flag,
applied_flag,
on_invoice_flag,
pricing_phase_id,
context,
program_application_id,
program_id,
program_update_date,
request_id,
list_header_id,
list_line_id,
list_line_type_code,
change_reason_code,
change_reason_text,
estimated_flag,
adjusted_amount,
charge_type_code,
charge_subtype_code,
range_break_quantity,
accrual_conversion_rate,
pricing_group_sequence,
accrual_flag,
list_line_no,
source_system_code,
benefit_qty,
benefit_uom_code,
expiration_date,
modifier_level_code,
price_break_type_code,
substitution_attribute,
proration_type_code,
include_on_returns_flag,
object_version_number,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
last_update_login,
rebate_transaction_type_code
)
VALUES (
in_id(i),
in_pat_id(i),
in_chr_id(i),
in_cle_id(i),
in_bsl_id(i),
in_bcl_id(i),
in_created_by(i),
in_creation_date(i),
in_last_updated_by(i),
in_last_update_date(i),
in_modified_from(i),
in_modified_to(i),
in_mod_mech_type_code(i),
in_operand(i),
in_arithmetic_operator(i),
in_automatic_flag(i),
in_update_allowed(i),
in_updated_flag(i),
in_applied_flag(i),
in_on_invoice_flag(i),
in_pricing_phase_id(i),
in_context(i),
in_program_application_id(i),
in_program_id(i),
in_program_update_date(i),
in_request_id(i),
in_list_header_id(i),
in_list_line_id(i),
in_list_line_type_code(i),
in_change_reason_code(i),
in_change_reason_text(i),
in_estimated_flag(i),
in_adjusted_amount(i),
in_charge_type_code(i),
in_charge_subtype_code(i),
in_range_break_quantity(i),
in_accrual_conversion_rate(i),
in_pricing_group_sequence(i),
in_accrual_flag(i),
in_list_line_no(i),
in_source_system_code(i),
in_benefit_qty(i),
in_benefit_uom_code(i),
in_expiration_date(i),
in_modifier_level_code(i),
in_price_break_type_code(i),
in_substitution_attribute(i),
in_proration_type_code(i),
in_include_on_returns_flag(i),
in_object_version_number(i),
in_attribute1(i),
in_attribute2(i),
in_attribute3(i),
in_attribute4(i),
in_attribute5(i),
in_attribute6(i),
in_attribute7(i),
in_attribute8(i),
in_attribute9(i),
in_attribute10(i),
in_attribute11(i),
in_attribute12(i),
in_attribute13(i),
in_attribute14(i),
in_attribute15(i),
in_last_update_login(i),
in_rebate_transaction_type_cod(i));
okc_debug.log('13400: Exiting INSERT_ROW_UPG', 2);
END INSERT_ROW_UPG;
INSERT INTO okc_price_adjustments_h
(
id,
pat_id,
chr_id,
cle_id,
bsl_id,
bcl_id,
created_by,
creation_date,
last_updated_by,
last_update_date,
modified_from,
modified_to,
modifier_mechanism_type_code,
operand,
arithmetic_operator,
automatic_flag,
update_allowed,
updated_flag,
applied_flag,
on_invoice_flag,
pricing_phase_id,
context,
program_application_id,
program_id,
program_update_date,
request_id,
list_header_id,
list_line_id,
list_line_type_code,
change_reason_code,
change_reason_text,
estimated_flag,
adjusted_amount,
charge_type_code,
charge_subtype_code,
range_break_quantity,
accrual_conversion_rate,
pricing_group_sequence,
accrual_flag,
list_line_no,
source_system_code,
benefit_qty,
benefit_uom_code,
expiration_date,
modifier_level_code,
price_break_type_code,
substitution_attribute,
proration_type_code,
include_on_returns_flag,
object_version_number,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
last_update_login,
rebate_transaction_type_code,
major_version
)
SELECT
id,
pat_id,
chr_id,
cle_id,
bsl_id,
bcl_id,
created_by,
creation_date,
last_updated_by,
last_update_date,
modified_from,
modified_to,
modifier_mechanism_type_code,
operand,
arithmetic_operator,
automatic_flag,
update_allowed,
updated_flag,
applied_flag,
on_invoice_flag,
pricing_phase_id,
context,
program_application_id,
program_id,
program_update_date,
request_id,
list_header_id,
list_line_id,
list_line_type_code,
change_reason_code,
change_reason_text,
estimated_flag,
adjusted_amount,
charge_type_code,
charge_subtype_code,
range_break_quantity,
accrual_conversion_rate,
pricing_group_sequence,
accrual_flag,
list_line_no,
source_system_code,
benefit_qty,
benefit_uom_code,
expiration_date,
modifier_level_code,
price_break_type_code,
substitution_attribute,
proration_type_code,
include_on_returns_flag,
object_version_number,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
last_update_login,
rebate_transaction_type_code,
p_major_version
FROM okc_price_adjustments
WHERE chr_id = p_chr_id;
INSERT INTO okc_price_adjustments
(
id,
pat_id,
chr_id,
cle_id,
bsl_id,
bcl_id,
created_by,
creation_date,
last_updated_by,
last_update_date,
modified_from,
modified_to,
modifier_mechanism_type_code,
operand,
arithmetic_operator,
automatic_flag,
update_allowed,
updated_flag,
applied_flag,
on_invoice_flag,
pricing_phase_id,
context,
program_application_id,
program_id,
program_update_date,
request_id,
list_header_id,
list_line_id,
list_line_type_code,
change_reason_code,
change_reason_text,
estimated_flag,
adjusted_amount,
charge_type_code,
charge_subtype_code,
range_break_quantity,
accrual_conversion_rate,
pricing_group_sequence,
accrual_flag,
list_line_no,
source_system_code,
benefit_qty,
benefit_uom_code,
expiration_date,
modifier_level_code,
price_break_type_code,
substitution_attribute,
proration_type_code,
include_on_returns_flag,
object_version_number,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
last_update_login,
rebate_transaction_type_code)
SELECT
id,
pat_id,
chr_id,
cle_id,
bsl_id,
bcl_id,
created_by,
creation_date,
last_updated_by,
last_update_date,
modified_from,
modified_to,
modifier_mechanism_type_code,
operand,
arithmetic_operator,
automatic_flag,
update_allowed,
updated_flag,
applied_flag,
on_invoice_flag,
pricing_phase_id,
context,
program_application_id,
program_id,
program_update_date,
request_id,
list_header_id,
list_line_id,
list_line_type_code,
change_reason_code,
change_reason_text,
estimated_flag,
adjusted_amount,
charge_type_code,
charge_subtype_code,
range_break_quantity,
accrual_conversion_rate,
pricing_group_sequence,
accrual_flag,
list_line_no,
source_system_code,
benefit_qty,
benefit_uom_code,
expiration_date,
modifier_level_code,
price_break_type_code,
substitution_attribute,
proration_type_code,
include_on_returns_flag,
object_version_number,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
last_update_login,
rebate_transaction_type_code
FROM okc_price_adjustments_h
WHERE chr_id = p_chr_id
AND major_version = p_major_version;