The following lines contain the word 'select', 'insert', 'update' or 'delete':
G_CHILD_RECORD_EXISTS CONSTANT VARCHAR2(200) := 'OKE_CANNOT_DELETE_MASTER';
SELECT TYPE_CLASS_CODE
INTO l_type_class_code
FROM OKE_K_TYPES_B
WHERE K_TYPE_CODE=P_TYPE_CODE;
SELECT 'x'
FROM OKE_PROGRAMS
WHERE PROGRAM_ID = p_chr_rec.PROGRAM_ID
AND SYSDATE BETWEEN START_DATE
AND NVL(END_DATE+1 , SYSDATE )
;
SELECT 'x'
FROM OKE_K_HEADERS
WHERE K_HEADER_ID = p_chr_rec.BOA_ID;
SELECT 'x'
FROM PA_PROJECTS_ALL
WHERE PROJECT_ID = p_chr_rec.PROJECT_ID;
SELECT 'x' FROM OKE_PRIORITY_CODES_VL
WHERE PRIORITY_CODE = p_chr_rec.priority_code;
SELECT 'x'
FROM FND_LOOKUP_VALUES_VL
WHERE VIEW_APPLICATION_ID = 777 AND LOOKUP_TYPE = 'PRODUCT_LINE'
AND NVL(ENABLED_FLAG , 'Y') = 'Y'
AND LOOKUP_CODE = p_chr_rec.PRODUCT_LINE_CODE
AND SYSDATE BETWEEN NVL(START_DATE_ACTIVE , SYSDATE - 1)
AND NVL(END_DATE_ACTIVE , SYSDATE + 1);
SELECT 'x'
FROM FND_TERRITORIES_VL
WHERE TERRITORY_CODE = p_chr_rec.COUNTRY_OF_ORIGIN_CODE;
SELECT AUTHORING_ORG_ID,BUY_OR_SELL
FROM OKC_K_HEADERS_B
WHERE ID = p_chr_rec.K_HEADER_ID;
SELECT 'x'
FROM OKE_TAX_CODES_V
WHERE ( ORG_ID IS NULL OR ORG_ID = l_org )
AND BUY_OR_SELL = l_intent
AND SYSDATE BETWEEN NVL( START_DATE , SYSDATE - 1 )
AND NVL( END_DATE , SYSDATE + 1 )
AND ENABLED_FLAG = 'Y'
AND TAX_CODE = p_chr_rec.VAT_CODE;
SELECT 'x' FROM OKE_K_TYPES_B
WHERE K_TYPE_CODE = p_chr_rec.k_type_code;
SELECT start_date from okc_k_headers_b
WHERE id = p_chr_rec.k_header_id;
SELECT contract_number
FROM okc_k_headers_b
WHERE ID = C_CHR_ID;
PROCEDURE UPDATE_DO(P_BOA_ID IN NUMBER)
IS
L_K_NUMBER_DISP VARCHAR2(120);
SELECT k_header_id
FROM oke_k_headers
WHERE boa_id=P_BOA_ID
FOR UPDATE NOWAIT;
UPDATE oke_k_headers
SET k_number_disp= L_K_NUMBER_DISP
WHERE CURRENT OF c_do;
END UPDATE_DO;
SELECT
K_HEADER_ID,
PROGRAM_ID,
PROJECT_ID,
BOA_ID,
K_TYPE_CODE,
PRIORITY_CODE,
PRIME_K_ALIAS,
PRIME_K_NUMBER,
AUTHORIZE_DATE,
AUTHORIZING_REASON,
AWARD_CANCEL_DATE,
AWARD_DATE,
DATE_DEFINITIZED,
DATE_ISSUED,
DATE_NEGOTIATED,
DATE_RECEIVED,
DATE_SIGN_BY_CONTRACTOR,
DATE_SIGN_BY_CUSTOMER,
FAA_APPROVE_DATE,
FAA_REJECT_DATE,
BOOKED_FLAG,
OPEN_FLAG,
CFE_FLAG,
VAT_CODE,
COUNTRY_OF_ORIGIN_CODE,
EXPORT_FLAG,
HUMAN_SUBJECT_FLAG,
CQA_FLAG,
INTERIM_RPT_REQ_FLAG,
NO_COMPETITION_AUTHORIZE,
PENALTY_CLAUSE_FLAG,
PRODUCT_LINE_CODE,
REPORTING_FLAG,
SB_PLAN_REQ_FLAG,
SB_REPORT_FLAG,
NTE_AMOUNT,
NTE_WARNING_FLAG,
BILL_WITHOUT_DEF_FLAG,
CAS_FLAG,
CLASSIFIED_FLAG,
CLIENT_APPROVE_REQ_FLAG,
COST_OF_MONEY,
DCAA_AUDIT_REQ_FLAG,
COST_SHARE_FLAG,
OH_RATES_FINAL_FLAG,
PROGRESS_PAYMENT_FLAG,
PROGRESS_PAYMENT_LIQ_RATE,
PROGRESS_PAYMENT_RATE,
ALTERNATE_LIQUIDATION_RATE,
PROP_DELIVERY_LOCATION,
PROP_DUE_DATE_TIME,
PROP_DUE_TIME,
PROP_EXPIRE_DATE,
COPIES_REQUIRED,
SIC_CODE,
TECH_DATA_WH_RATE,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
FINANCIAL_CTRL_VERIFIED_FLAG,
DEFINITIZED_FLAG,
COST_OF_SALE_RATE,
LINE_VALUE_TOTAL,
UNDEF_LINE_VALUE_TOTAL,
-- END_DATE,
OWNING_ORGANIZATION_ID,
DEFAULT_TASK_ID
FROM OKE_K_HEADERS
WHERE K_HEADER_ID = p_id;
l_chr_rec.LAST_UPDATED_BY,
l_chr_rec.LAST_UPDATE_LOGIN,
l_chr_rec.LAST_UPDATE_DATE,
l_chr_rec.FINANCIAL_CTRL_VERIFIED_FLAG,
l_chr_rec.DEFINITIZED_FLAG,
l_chr_rec.COST_OF_SALE_RATE,
l_chr_rec.LINE_VALUE_TOTAL,
l_chr_rec.UNDEF_LINE_VALUE_TOTAL,
-- l_chr_rec.END_DATE,
l_chr_rec.OWNING_ORGANIZATION_ID,
l_chr_rec.DEFAULT_TASK_ID;
IF (x_chr_rec.LAST_UPDATED_BY = OKE_API.G_MISS_NUM) THEN
x_chr_rec.LAST_UPDATED_BY := NULL;
IF (x_chr_rec.LAST_UPDATE_DATE = OKE_API.G_MISS_DATE) THEN
x_chr_rec.LAST_UPDATE_DATE := NULL;
IF (x_chr_rec.LAST_UPDATE_LOGIN = OKE_API.G_MISS_NUM) THEN
x_chr_rec.LAST_UPDATE_LOGIN := NULL;
PROCEDURE insert_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_chr_rec IN chr_rec_type,
x_chr_rec OUT NOCOPY chr_rec_type)IS
l_api_version CONSTANT NUMBER :=1;
l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
l_chr_rec.LAST_UPDATE_DATE := SYSDATE;
l_chr_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_chr_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
INSERT INTO OKE_K_HEADERS(
K_HEADER_ID,
PROGRAM_ID,
PROJECT_ID,
BOA_ID,
K_NUMBER_DISP,
K_TYPE_CODE,
PRIORITY_CODE,
PRIME_K_ALIAS,
PRIME_K_NUMBER,
AUTHORIZE_DATE,
AUTHORIZING_REASON,
AWARD_CANCEL_DATE,
AWARD_DATE,
DATE_DEFINITIZED,
DATE_ISSUED,
DATE_NEGOTIATED,
DATE_RECEIVED,
DATE_SIGN_BY_CONTRACTOR,
DATE_SIGN_BY_CUSTOMER,
FAA_APPROVE_DATE,
FAA_REJECT_DATE,
BOOKED_FLAG,
OPEN_FLAG,
CFE_FLAG,
VAT_CODE,
COUNTRY_OF_ORIGIN_CODE,
EXPORT_FLAG,
HUMAN_SUBJECT_FLAG,
CQA_FLAG,
INTERIM_RPT_REQ_FLAG,
NO_COMPETITION_AUTHORIZE,
PENALTY_CLAUSE_FLAG,
PRODUCT_LINE_CODE,
REPORTING_FLAG,
SB_PLAN_REQ_FLAG,
SB_REPORT_FLAG,
NTE_AMOUNT,
NTE_WARNING_FLAG,
BILL_WITHOUT_DEF_FLAG,
CAS_FLAG,
CLASSIFIED_FLAG,
CLIENT_APPROVE_REQ_FLAG,
COST_OF_MONEY,
DCAA_AUDIT_REQ_FLAG,
COST_SHARE_FLAG,
OH_RATES_FINAL_FLAG,
PROGRESS_PAYMENT_FLAG,
PROGRESS_PAYMENT_LIQ_RATE,
PROGRESS_PAYMENT_RATE,
ALTERNATE_LIQUIDATION_RATE,
PROP_DELIVERY_LOCATION,
PROP_DUE_DATE_TIME,
PROP_DUE_TIME,
PROP_EXPIRE_DATE,
COPIES_REQUIRED,
SIC_CODE,
TECH_DATA_WH_RATE,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
FINANCIAL_CTRL_VERIFIED_FLAG,
DEFINITIZED_FLAG,
COST_OF_SALE_RATE,
LINE_VALUE_TOTAL,
UNDEF_LINE_VALUE_TOTAL,
-- END_DATE,
OWNING_ORGANIZATION_ID,
DEFAULT_TASK_ID
)
VALUES(
l_def_chr_rec.K_HEADER_ID,
l_def_chr_rec.PROGRAM_ID,
l_def_chr_rec.PROJECT_ID,
l_def_chr_rec.BOA_ID,
l_k_number_disp,
l_def_chr_rec.K_TYPE_CODE,
l_def_chr_rec.PRIORITY_CODE,
l_def_chr_rec.PRIME_K_ALIAS,
l_def_chr_rec.PRIME_K_NUMBER,
l_def_chr_rec.AUTHORIZE_DATE,
l_def_chr_rec.AUTHORIZING_REASON,
l_def_chr_rec.AWARD_CANCEL_DATE,
l_def_chr_rec.AWARD_DATE,
l_def_chr_rec.DATE_DEFINITIZED,
l_def_chr_rec.DATE_ISSUED,
l_def_chr_rec.DATE_NEGOTIATED,
l_def_chr_rec.DATE_RECEIVED,
l_def_chr_rec.DATE_SIGN_BY_CONTRACTOR,
l_def_chr_rec.DATE_SIGN_BY_CUSTOMER,
l_def_chr_rec.FAA_APPROVE_DATE,
l_def_chr_rec.FAA_REJECT_DATE,
l_def_chr_rec.BOOKED_FLAG,
l_def_chr_rec.OPEN_FLAG,
l_def_chr_rec.CFE_FLAG,
l_def_chr_rec.VAT_CODE,
l_def_chr_rec.COUNTRY_OF_ORIGIN_CODE,
l_def_chr_rec.EXPORT_FLAG,
l_def_chr_rec.HUMAN_SUBJECT_FLAG,
l_def_chr_rec.CQA_FLAG,
l_def_chr_rec.INTERIM_RPT_REQ_FLAG,
l_def_chr_rec.NO_COMPETITION_AUTHORIZE,
l_def_chr_rec.PENALTY_CLAUSE_FLAG,
l_def_chr_rec.PRODUCT_LINE_CODE,
l_def_chr_rec.REPORTING_FLAG,
l_def_chr_rec.SB_PLAN_REQ_FLAG,
l_def_chr_rec.SB_REPORT_FLAG,
l_def_chr_rec.NTE_AMOUNT,
l_def_chr_rec.NTE_WARNING_FLAG,
l_def_chr_rec.BILL_WITHOUT_DEF_FLAG,
l_def_chr_rec.CAS_FLAG,
l_def_chr_rec.CLASSIFIED_FLAG,
l_def_chr_rec.CLIENT_APPROVE_REQ_FLAG,
l_def_chr_rec.COST_OF_MONEY,
l_def_chr_rec.DCAA_AUDIT_REQ_FLAG,
l_def_chr_rec.COST_SHARE_FLAG,
l_def_chr_rec.OH_RATES_FINAL_FLAG,
l_def_chr_rec.PROGRESS_PAYMENT_FLAG,
l_def_chr_rec.PROGRESS_PAYMENT_LIQ_RATE,
l_def_chr_rec.PROGRESS_PAYMENT_RATE,
l_def_chr_rec.ALTERNATE_LIQUIDATION_RATE,
l_def_chr_rec.PROP_DELIVERY_LOCATION,
l_def_chr_rec.PROP_DUE_DATE_TIME,
l_def_chr_rec.PROP_DUE_TIME,
l_def_chr_rec.PROP_EXPIRE_DATE,
l_def_chr_rec.COPIES_REQUIRED,
l_def_chr_rec.SIC_CODE,
l_def_chr_rec.TECH_DATA_WH_RATE,
l_def_chr_rec.CREATED_BY,
l_def_chr_rec.CREATION_DATE,
l_def_chr_rec.LAST_UPDATED_BY,
l_def_chr_rec.LAST_UPDATE_LOGIN,
l_def_chr_rec.LAST_UPDATE_DATE,
l_def_chr_rec.FINANCIAL_CTRL_VERIFIED_FLAG,
l_def_chr_rec.DEFINITIZED_FLAG,
l_def_chr_rec.COST_OF_SALE_RATE,
l_def_chr_rec.LINE_VALUE_TOTAL,
l_def_chr_rec.UNDEF_LINE_VALUE_TOTAL,
-- l_def_chr_rec.END_DATE,
l_def_chr_rec.OWNING_ORGANIZATION_ID,
l_def_chr_rec.DEFAULT_TASK_ID);
END insert_row;
PROCEDURE insert_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_chr_tbl IN chr_tbl_type,
x_chr_tbl OUT NOCOPY chr_tbl_type) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'TBL_insert_row';
insert_row(
p_api_version =>p_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_chr_rec =>l_chr_rec,
x_chr_rec =>x_chr_tbl(i));
END insert_row;
PROCEDURE update_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_chr_rec IN chr_rec_type,
x_chr_rec OUT NOCOPY chr_rec_type)IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
select k_number_disp into l_k_number
from oke_k_headers
where k_header_id=P_HEADER_ID;
IF (x_chr_rec.LAST_UPDATE_LOGIN = OKE_API.G_MISS_NUM) THEN
x_chr_rec.LAST_UPDATE_LOGIN := l_chr_rec.LAST_UPDATE_LOGIN;
l_chr_rec.LAST_UPDATE_DATE := SYSDATE;
l_chr_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
l_chr_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
UPDATE OKE_K_HEADERS
SET PROGRAM_ID = l_def_chr_rec.PROGRAM_ID,
PROJECT_ID = l_def_chr_rec.PROJECT_ID,
BOA_ID = l_def_chr_rec.BOA_ID,
K_NUMBER_DISP = l_k_number_disp,
K_TYPE_CODE = l_def_chr_rec.K_TYPE_CODE,
PRIORITY_CODE = l_def_chr_rec.PRIORITY_CODE,
PRIME_K_ALIAS = l_def_chr_rec.PRIME_K_ALIAS,
PRIME_K_NUMBER = l_def_chr_rec.PRIME_K_NUMBER,
AUTHORIZE_DATE = l_def_chr_rec.AUTHORIZE_DATE,
AUTHORIZING_REASON = l_def_chr_rec.AUTHORIZING_REASON,
AWARD_CANCEL_DATE = l_def_chr_rec.AWARD_CANCEL_DATE,
AWARD_DATE = l_def_chr_rec.AWARD_DATE,
DATE_DEFINITIZED = l_def_chr_rec.DATE_DEFINITIZED,
DATE_ISSUED = l_def_chr_rec.DATE_ISSUED,
DATE_NEGOTIATED = l_def_chr_rec.DATE_NEGOTIATED,
DATE_RECEIVED = l_def_chr_rec.DATE_RECEIVED,
DATE_SIGN_BY_CONTRACTOR = l_def_chr_rec.DATE_SIGN_BY_CONTRACTOR,
DATE_SIGN_BY_CUSTOMER = l_def_chr_rec.DATE_SIGN_BY_CUSTOMER,
FAA_APPROVE_DATE = l_def_chr_rec.FAA_APPROVE_DATE,
FAA_REJECT_DATE = l_def_chr_rec.FAA_REJECT_DATE,
BOOKED_FLAG = l_def_chr_rec.BOOKED_FLAG,
OPEN_FLAG = l_def_chr_rec.OPEN_FLAG,
CFE_FLAG = l_def_chr_rec.CFE_FLAG,
VAT_CODE = l_def_chr_rec.VAT_CODE,
COUNTRY_OF_ORIGIN_CODE = l_def_chr_rec.COUNTRY_OF_ORIGIN_CODE,
EXPORT_FLAG = l_def_chr_rec.EXPORT_FLAG,
HUMAN_SUBJECT_FLAG = l_def_chr_rec.HUMAN_SUBJECT_FLAG,
CQA_FLAG = l_def_chr_rec.CQA_FLAG,
INTERIM_RPT_REQ_FLAG = l_def_chr_rec.INTERIM_RPT_REQ_FLAG,
NO_COMPETITION_AUTHORIZE = l_def_chr_rec.NO_COMPETITION_AUTHORIZE,
PENALTY_CLAUSE_FLAG = l_def_chr_rec.PENALTY_CLAUSE_FLAG,
PRODUCT_LINE_CODE = l_def_chr_rec.PRODUCT_LINE_CODE,
REPORTING_FLAG = l_def_chr_rec.REPORTING_FLAG,
SB_PLAN_REQ_FLAG = l_def_chr_rec.SB_PLAN_REQ_FLAG,
SB_REPORT_FLAG = l_def_chr_rec.SB_REPORT_FLAG,
NTE_AMOUNT = l_def_chr_rec.NTE_AMOUNT,
NTE_WARNING_FLAG = l_def_chr_rec.NTE_WARNING_FLAG,
BILL_WITHOUT_DEF_FLAG = l_def_chr_rec.BILL_WITHOUT_DEF_FLAG,
CAS_FLAG = l_def_chr_rec.CAS_FLAG,
CLASSIFIED_FLAG = l_def_chr_rec.CLASSIFIED_FLAG,
CLIENT_APPROVE_REQ_FLAG = l_def_chr_rec.CLIENT_APPROVE_REQ_FLAG,
COST_OF_MONEY = l_def_chr_rec.COST_OF_MONEY,
DCAA_AUDIT_REQ_FLAG = l_def_chr_rec.DCAA_AUDIT_REQ_FLAG,
COST_SHARE_FLAG = l_def_chr_rec.COST_SHARE_FLAG,
OH_RATES_FINAL_FLAG = l_def_chr_rec.OH_RATES_FINAL_FLAG,
PROGRESS_PAYMENT_FLAG = l_def_chr_rec.PROGRESS_PAYMENT_FLAG,
PROGRESS_PAYMENT_LIQ_RATE = l_def_chr_rec.PROGRESS_PAYMENT_LIQ_RATE,
PROGRESS_PAYMENT_RATE = l_def_chr_rec.PROGRESS_PAYMENT_RATE,
ALTERNATE_LIQUIDATION_RATE = l_def_chr_rec.ALTERNATE_LIQUIDATION_RATE,
PROP_DELIVERY_LOCATION = l_def_chr_rec.PROP_DELIVERY_LOCATION,
PROP_DUE_DATE_TIME = l_def_chr_rec.PROP_DUE_DATE_TIME,
PROP_DUE_TIME = l_def_chr_rec.PROP_DUE_TIME,
PROP_EXPIRE_DATE = l_def_chr_rec.PROP_EXPIRE_DATE,
COPIES_REQUIRED = l_def_chr_rec.COPIES_REQUIRED,
SIC_CODE = l_def_chr_rec.SIC_CODE,
TECH_DATA_WH_RATE = l_def_chr_rec.TECH_DATA_WH_RATE,
FINANCIAL_CTRL_VERIFIED_FLAG = l_def_chr_rec.FINANCIAL_CTRL_VERIFIED_FLAG,
DEFINITIZED_FLAG = l_def_chr_rec.DEFINITIZED_FLAG,
COST_OF_SALE_RATE = l_def_chr_rec.COST_OF_SALE_RATE,
LINE_VALUE_TOTAL = l_def_chr_rec.LINE_VALUE_TOTAL,
UNDEF_LINE_VALUE_TOTAL = l_def_chr_rec.UNDEF_LINE_VALUE_TOTAL,
-- END_DATE = l_def_chr_rec.END_DATE,
OWNING_ORGANIZATION_ID = l_def_chr_rec.OWNING_ORGANIZATION_ID,
DEFAULT_TASK_ID = l_def_chr_rec.DEFAULT_TASK_ID
WHERE K_HEADER_ID = l_def_chr_rec.K_HEADER_ID;
update_do(x_chr_rec.k_header_id);
END update_row;
PROCEDURE update_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_chr_tbl IN chr_tbl_type,
x_chr_tbl OUT NOCOPY chr_tbl_type)IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'TBL_update_row';
update_row(
p_api_version =>p_api_version,
p_init_msg_list =>OKE_API.G_FALSE,
x_return_status =>x_return_status,
x_msg_count =>x_msg_count,
x_msg_data =>x_msg_data,
p_chr_rec =>p_chr_tbl(i),
x_chr_rec =>x_chr_tbl(i));
END update_row;
PROCEDURE delete_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_chr_rec IN chr_rec_type)IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
DELETE FROM OKE_K_HEADERS
WHERE K_HEADER_ID = l_chr_rec.K_HEADER_ID;
END delete_row;
PROCEDURE delete_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_chr_tbl IN chr_tbl_type)IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'TBL_delete_row';
SELECT COUNT(1)
FROM OKE_K_HEADERS
WHERE OKE_K_HEADERS.K_HEADER_ID = p_chr_tbl(i).K_HEADER_ID;
delete_row(
p_api_version =>p_api_version,
p_init_msg_list =>OKE_API.G_FALSE,
x_return_status =>x_return_status,
x_msg_count =>x_msg_count,
x_msg_data =>x_msg_data,
p_chr_rec =>p_chr_tbl(i));
END delete_row;