The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Update_Executiondetails(p_status IN VARCHAR2
,p_txn_hdr_rec IN dpp_txn_hdr_rec_type
,p_output_xml IN CLOB
,p_api_name IN VARCHAR2
)
IS
PRAGMA AUTONOMOUS_TRANSACTION;
UPDATE DPP_EXECUTION_DETAILS
SET EXECUTION_END_DATE = sysdate,
OUTPUT_XML = XMLTYPE(p_output_xml),
EXECUTION_STATUS = p_status,
LAST_UPDATED_BY = p_txn_hdr_rec.Last_Updated_By,
LAST_UPDATE_DATE = sysdate,
PROVIDER_PROCESS_ID = p_txn_hdr_rec.Provider_Process_Id,
PROVIDER_PROCESS_INSTANCE_ID = p_txn_hdr_rec.Provider_Process_Instance_id,
OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER +1
WHERE EXECUTION_DETAIL_ID = p_txn_hdr_rec.Execution_Detail_ID
AND transaction_header_id = p_txn_hdr_rec.Transaction_Header_ID;
IF p_status = 'WARNING' AND p_api_name = 'Update_Claims' THEN
UPDATE dpp_transaction_claims_all
SET approved_by_supplier = 'N',
OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER +1,
last_updated_by = p_txn_hdr_rec.LAST_UPDATED_BY,
last_update_date = sysdate,
last_update_login = p_txn_hdr_rec.LAST_UPDATED_BY
WHERE claim_id = p_txn_hdr_rec.claim_id
AND transaction_header_id = p_txn_hdr_rec.Transaction_Header_ID;
END Update_Executiondetails;
SELECT SUM(DPP_UTILITY_PVT.CurrRound(claim_line_amount, p_currency_code)) amount
FROM DPP_CUSTOMER_CLAIMS_GT
where claim_line_amount > 0;
SELECT SUM(DPP_UTILITY_PVT.CurrRound(ABS(claim_line_amount), p_currency_code)) amount
FROM DPP_CUSTOMER_CLAIMS_GT
where claim_line_amount < 0;
SELECT claim_id
FROM DPP_CUSTOMER_CLAIMS_GT
WHERE Transaction_Line_ID = p_line_id;
SELECT SUM(Claim_Line_Amount) amount,
Currency
FROM DPP_CUSTOMER_CLAIMS_GT
GROUP BY Currency;
SELECT transaction_line_id,
CUST_ACCOUNT_ID,
claim_line_amount,
inventory_item_id,
claim_quantity,
item_description,
uom
FROM DPP_CUSTOMER_CLAIMS_GT
WHERE currency = p_currency;
SELECT SUM(Claim_Line_Amount) amount,
Currency,
customer_id,
cust_account_id
FROM DPP_CUSTOMER_CLAIMS_GT
GROUP BY Currency,
customer_id,
cust_account_id;
SELECT transaction_line_id,
customer_id,
claim_line_amount,
inventory_item_id,
claim_quantity,
item_description,
uom
FROM DPP_CUSTOMER_CLAIMS_GT
WHERE currency = p_currency
AND customer_id = p_customer_id
AND cust_account_id = p_cust_account_id;
SELECT DISTINCT concatenated_segments item_number,
description
FROM mtl_system_items_kfv
WHERE inventory_item_id = p_item_id;
SELECT claim_number
FROM ozf_claims_all
WHERE claim_id = p_claim_id;
SELECT account_name,
party_id
FROM hz_cust_accounts
WHERE cust_account_id = p_cust_account_id;
SELECT pre_approval_flag,
cust_account_id,
settlement_method_supplier_inc,
settlement_method_supplier_dec,
settlement_method_customer
INTO l_approval_flag,
l_cust_account_id,
l_settlement_method_supp_inc,
l_settlement_method_supp_dec,
l_settlement_method_customer
FROM ozf_supp_trd_prfls_all
WHERE supplier_id = l_txn_hdr_rec.Vendor_ID
AND supplier_site_id = l_txn_hdr_rec.Vendor_site_ID
AND org_id = l_txn_hdr_rec.org_id;
DELETE FROM DPP_CUSTOMER_CLAIMS_GT;
Insert into DPP_CUSTOMER_CLAIMS_GT(Transaction_Line_ID,
Inventory_Item_Id,
cust_account_id,
Claim_Line_Amount,
Currency,
Claim_Quantity,
UOM,
claim_id)
values(l_txn_line_tbl(i).Transaction_Line_ID,
l_txn_line_tbl(i).Inventory_Item_Id,
l_txn_line_tbl(i).cust_account_id,
l_txn_line_tbl(i).Claim_Line_Amount,
l_txn_line_tbl(i).Currency,
l_txn_line_tbl(i).Claim_Quantity,
l_txn_line_tbl(i).UOM,
null
);
UPDATE DPP_CUSTOMER_CLAIMS_GT
SET item_number = get_item_number_rec.item_number,
item_description = get_item_number_rec.description
WHERE transaction_line_id = l_txn_line_tbl(i).transaction_line_id;
DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_EXCEPTION, l_module, 'Unable to Update the column item_number in DPP_CUSTOMER_CLAIMS_GT Table');
UPDATE DPP_CUSTOMER_CLAIMS_GT
SET customer_name = get_customer_dtl_rec.account_name,
customer_id = get_customer_dtl_rec.party_id
WHERE cust_account_id = l_txn_line_tbl(i).cust_account_id;
DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_EXCEPTION, l_module, 'Unable to Update the column customer_name in DPP_CUSTOMER_CLAIMS_GT Table');
l_claim_line_pub_tbl.delete();
SELECT DISTINCT description
INTO l_item_description
FROM mtl_system_items_kfv
WHERE inventory_item_id = l_txn_line_tbl(i).Inventory_Item_Id;
UPDATE DPP_CUSTOMER_CLAIMS_GT
SET reason_for_failure = nvl(substr(l_msg_data,1,4000),'Error while Creating Claim in Trade Management');
DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update DPP_CUSTOMER_CLAIMS_GT Table');
INSERT INTO dpp_transaction_claims_all(CLAIM_ID,
TRANSACTION_HEADER_ID,
OBJECT_VERSION_NUMBER,
CLAIM_TYPE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
ORG_ID,
APPROVED_BY_SUPPLIER)
VALUES(to_char(l_x_claim_id),
l_txn_hdr_rec.transaction_header_id,
1,
l_claim_type,
sysdate,
l_txn_hdr_rec.LAST_UPDATED_BY,
sysdate,
l_txn_hdr_rec.LAST_UPDATED_BY,
l_txn_hdr_rec.LAST_UPDATED_BY,
to_char(l_txn_hdr_rec.ORG_ID),
l_approved_by_supplier);
UPDATE DPP_CUSTOMER_CLAIMS_GT
SET claim_id = l_x_claim_id,
claim_number = l_claim_number
where claim_line_amount < 0;
UPDATE DPP_CUSTOMER_CLAIMS_GT
SET claim_id = l_x_claim_id,
claim_number = l_claim_number
where claim_line_amount > 0;
DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column claim_id in DPP_CUSTOMER_CLAIMS_GT Table');
UPDATE DPP_TRANSACTION_LINES_ALL
SET supp_dist_claim_id = to_char(get_claim_id_rec.claim_id),
supp_dist_claim_status = 'Y',
OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER +1,
last_updated_by = l_txn_hdr_rec.LAST_UPDATED_BY,
last_update_date = sysdate,
last_update_login = l_txn_hdr_rec.LAST_UPDATED_BY
WHERE transaction_line_id = l_txn_line_tbl(i).transaction_line_id;
DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column supp_dist_claim_id in DPP_TRANSACTION_LINES_ALL Table');
l_claim_line_pub_tbl.delete();
SELECT Object_version_number
INTO l_object_version_number
FROM ozf_claims
WHERE claim_id = l_x_claim_id;
OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
,p_init_msg_list => FND_API.G_FALSE
,p_commit => FND_API.G_FALSE
,p_validation_level => FND_API.G_VALID_LEVEL_FULL
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
,p_claim_rec => l_claim_pub_rec
,p_claim_line_tbl => l_claim_line_pub_tbl
,x_object_version_number => l_object_version_number
);
dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'return status for OZF Update_Claims =>'||l_return_status);
dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, substr(('Message data for OZF Update_Claims =>'||l_msg_data),1,4000));
UPDATE DPP_CUSTOMER_CLAIMS_GT
SET claim_id = null,
claim_number = null;
DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update DPP_CUSTOMER_CLAIMS_GT Table');
l_claim_line_pub_tbl.delete();
UPDATE DPP_CUSTOMER_CLAIMS_GT
SET reason_for_failure = nvl(substr(l_msg_data,1,4000),'Error while Creating Claim in Trade Management')
WHERE currency = grpby_currency_rec.Currency;
DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column claim_id in DPP_CUSTOMER_CLAIMS_GT Table');
SELECT Object_version_number
INTO l_object_version_number
FROM ozf_claims
WHERE claim_id = l_x_claim_id;
OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
,p_init_msg_list => FND_API.G_FALSE
,p_commit => FND_API.G_FALSE
,p_validation_level => FND_API.G_VALID_LEVEL_FULL
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
,p_claim_rec => l_claim_pub_rec
,p_claim_line_tbl => l_claim_line_pub_tbl_updt
,x_object_version_number => l_object_version_number
);
dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'return status for Update_Claims =>'||l_return_status);
dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, substr(('Message data for OZF Update_Claims =>'||l_msg_data),1,4000));
INSERT INTO dpp_transaction_claims_all(CLAIM_ID,
TRANSACTION_HEADER_ID,
OBJECT_VERSION_NUMBER,
CLAIM_TYPE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
ORG_ID,
APPROVED_BY_SUPPLIER)
VALUES(to_char(l_x_claim_id),
l_txn_hdr_rec.transaction_header_id,
1,
l_txn_hdr_rec.claim_type_flag,
sysdate,
l_txn_hdr_rec.LAST_UPDATED_BY,
sysdate,
l_txn_hdr_rec.LAST_UPDATED_BY,
l_txn_hdr_rec.LAST_UPDATED_BY,
to_char(l_txn_hdr_rec.ORG_ID),
'Y');
UPDATE DPP_CUSTOMER_CLAIMS_GT
SET claim_id = l_x_claim_id,
claim_number = l_claim_number
WHERE currency = grpby_currency_rec.Currency;
DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column claim_id in DPP_CUSTOMER_CLAIMS_GT Table');
END IF; --Update claim call success
UPDATE DPP_CUSTOMER_CLAIMS_ALL
SET SUPP_CUST_CLAIM_ID = to_char(get_claim_id_rec.claim_id),
supplier_claim_created = 'Y',
OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER +1,
last_updated_by = l_txn_hdr_rec.LAST_UPDATED_BY,
last_update_date = sysdate,
last_update_login = l_txn_hdr_rec.LAST_UPDATED_BY
WHERE CUSTOMER_INV_LINE_ID = l_txn_line_tbl(i).transaction_line_id;
DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column SUPP_CUST_CLAIM_ID in DPP_CUSTOMER_CLAIMS_ALL Table');
UPDATE DPP_CUSTOMER_CLAIMS_ALL
SET supplier_claim_created = 'N',
OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER +1,
last_updated_by = l_txn_hdr_rec.LAST_UPDATED_BY,
last_update_date = sysdate,
last_update_login = l_txn_hdr_rec.LAST_UPDATED_BY
WHERE CUSTOMER_INV_LINE_ID = l_txn_line_tbl(i).transaction_line_id;
DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column supplier_claim_created in DPP_CUSTOMER_CLAIMS_ALL Table');
l_claim_line_pub_tbl.delete();
UPDATE DPP_CUSTOMER_CLAIMS_GT
SET reason_for_failure = nvl(substr(l_msg_data,1,4000),'Error while Creating Claim in Trade Management')
WHERE currency = grpby_cur_cust_rec.Currency
AND customer_id = grpby_cur_cust_rec.customer_id
AND cust_account_id = grpby_cur_cust_rec.cust_account_id;
DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column claim_id in DPP_CUSTOMER_CLAIMS_GT Table');
SELECT Object_version_number
INTO l_object_version_number
FROM ozf_claims
WHERE claim_id = l_x_claim_id;
OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
,p_init_msg_list => FND_API.G_FALSE
,p_commit => FND_API.G_FALSE
,p_validation_level => FND_API.G_VALID_LEVEL_FULL
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
,p_claim_rec => l_claim_pub_rec
,p_claim_line_tbl => l_claim_line_pub_tbl_updt
,x_object_version_number => l_object_version_number
);
dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'return status for Update_Claims =>'||l_return_status);
dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, substr(('Message Data for OZF Update_Claims =>'||l_msg_data),1,4000));
INSERT INTO dpp_transaction_claims_all(CLAIM_ID,
TRANSACTION_HEADER_ID,
OBJECT_VERSION_NUMBER,
CLAIM_TYPE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
ORG_ID,
APPROVED_BY_SUPPLIER)
VALUES(to_char(l_x_claim_id),
l_txn_hdr_rec.transaction_header_id,
1,
l_txn_hdr_rec.claim_type_flag,
sysdate,
l_txn_hdr_rec.LAST_UPDATED_BY,
sysdate,
l_txn_hdr_rec.LAST_UPDATED_BY,
l_txn_hdr_rec.LAST_UPDATED_BY,
to_char(l_txn_hdr_rec.ORG_ID),
'Y');
UPDATE DPP_CUSTOMER_CLAIMS_GT
SET claim_id = l_x_claim_id,
claim_number = l_claim_number,
reason_for_failure = nvl(substr(l_msg_data,1,4000),'Error while Updating Claim in Trade Management')
WHERE currency = grpby_cur_cust_rec.Currency
AND customer_id = grpby_cur_cust_rec.customer_id
AND cust_account_id = grpby_cur_cust_rec.cust_account_id;
DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column claim_id in DPP_CUSTOMER_CLAIMS_GT Table');
UPDATE DPP_CUSTOMER_CLAIMS_ALL
SET CUSTOMER_CLAIM_ID = to_char(get_claim_id_rec.claim_id),
customer_claim_created = 'Y',
OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER +1,
last_updated_by = l_txn_hdr_rec.LAST_UPDATED_BY,
last_update_date = sysdate,
last_update_login = l_txn_hdr_rec.LAST_UPDATED_BY
WHERE CUSTOMER_INV_LINE_ID = l_txn_line_tbl(i).transaction_line_id;
DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column CUSTOMER_CLAIM_ID in DPP_CUSTOMER_CLAIMS_ALL Table');
UPDATE DPP_CUSTOMER_CLAIMS_ALL
SET customer_claim_created = 'N',
OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER +1,
last_updated_by = l_txn_hdr_rec.LAST_UPDATED_BY,
last_update_date = sysdate,
last_update_login = l_txn_hdr_rec.LAST_UPDATED_BY
WHERE CUSTOMER_INV_LINE_ID = l_txn_line_tbl(i).transaction_line_id;
DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column customer_claim_created in DPP_CUSTOMER_CLAIMS_ALL Table');
l_queryCtx := dbms_xmlquery.newContext('SELECT '||l_transaction_number||'Txnnumber,
CURSOR (SELECT DISTINCT claim_number claimnumber
FROM DPP_CUSTOMER_CLAIMS_GT) TRANSACTION
FROM dual');
l_queryCtx := dbms_xmlquery.newContext('SELECT '||l_transaction_number||'Txnnumber,
CURSOR(SELECT claim_number claimnumber,
customer_name customername,
currency,
item_number itemnumber ,
reason_for_failure reason
FROM DPP_CUSTOMER_CLAIMS_GT) transaction FROM dual');
Update_Executiondetails(l_status,
l_txn_hdr_rec,
l_output_xml,
l_api_name
);
/*--Update the execution details table
UPDATE DPP_EXECUTION_DETAILS
SET EXECUTION_END_DATE = sysdate,
OUTPUT_XML = XMLTYPE(l_output_xml),
EXECUTION_STATUS = l_status,
LAST_UPDATED_BY = l_txn_hdr_rec.Last_Updated_By,
LAST_UPDATE_DATE = sysdate,
PROVIDER_PROCESS_ID = l_txn_hdr_rec.Provider_Process_Id,
PROVIDER_PROCESS_INSTANCE_ID = l_txn_hdr_rec.Provider_Process_Instance_id,
OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER +1
WHERE EXECUTION_DETAIL_ID = l_txn_hdr_rec.Execution_Detail_ID
AND transaction_header_id = l_txn_hdr_rec.Transaction_Header_ID;
DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update DPP_EXECUTION_DETAILS Table');
PROCEDURE Update_Claims(
p_api_version IN NUMBER
,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
,p_commit IN VARCHAR2 := FND_API.G_FALSE
,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
,p_txn_hdr_rec IN OUT NOCOPY dpp_txn_hdr_rec_type
,p_txn_line_tbl IN OUT NOCOPY dpp_txn_line_tbl_type
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_Claims';
l_module CONSTANT VARCHAR2(100) := 'dpp.plsql.DPP_CLAIMS_PVT.UPDATE_CLAIMS';
SAVEPOINT Update_Claims_PVT;
DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Claim Id to be updated : ' || l_txn_hdr_rec.claim_id);
SELECT Object_version_number,
cust_account_id
INTO l_object_version_number,
l_cust_account_id
FROM ozf_claims_all
WHERE claim_id = l_txn_hdr_rec.claim_id;
l_claim_line_pub_tbl.delete();
SELECT claim_line_id,
line_number,
set_of_books_id,
valid_flag,
object_version_number
INTO l_claim_line_id,
l_claim_line_number,
l_set_of_books_id,
l_valid_flag,
L_CLAIM_LINE_OBJ_VER
FROM ozf_claim_lines_all
WHERE claim_id = l_txn_hdr_rec.claim_id
AND item_id = l_txn_line_tbl(i).Inventory_Item_Id;
OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
,p_init_msg_list => FND_API.G_FALSE
,p_commit => FND_API.G_False
,p_validation_level => FND_API.G_VALID_LEVEL_FULL
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
,p_claim_rec => l_claim_pub_rec
,p_claim_line_tbl => l_claim_line_pub_tbl
,x_object_version_number => l_object_version_number
);
dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'return status for Update_Claims =>'||l_return_status);
dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, substr(('Message Data for OZF Update_Claims =>'||l_msg_data),1,4000));
dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'return status for Update_Claims =>'||l_return_status);
dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the claim to OPEN status');
l_claim_line_pub_tbl.delete();
SELECT Object_version_number
INTO l_object_version_number
FROM ozf_claims
WHERE claim_id = l_txn_hdr_rec.claim_id;
OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
,p_init_msg_list => FND_API.G_FALSE
,p_commit => FND_API.G_FALSE
,p_validation_level => FND_API.G_VALID_LEVEL_FULL
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
,p_claim_rec => l_claim_pub_rec
,p_claim_line_tbl => l_claim_line_pub_tbl
,x_object_version_number => l_object_version_number
);
dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'return status for Update_Claims =>'||l_return_status);
dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, substr(('Message data for OZF Update_Claims =>'||l_msg_data),1,4000));
l_queryCtx := dbms_xmlquery.newContext('SELECT '||l_transaction_number||'txnnumber,
claim_number claimnumber,'
||l_reason||'reason
FROM ozf_claims_all
WHERE claim_id = '||l_txn_hdr_rec.claim_id);
Update_Executiondetails(l_status,
l_txn_hdr_rec,
l_output_xml,
l_api_name
);
ROLLBACK TO UPDATE_CLAIMS_PVT;
ROLLBACK TO UPDATE_CLAIMS_PVT;
ROLLBACK TO UPDATE_CLAIMS_PVT;
ROLLBACK TO UPDATE_CLAIMS_PVT;
END Update_Claims;