The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Update_ExecutionDetails(
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_EXE_UPDATE_rec IN OUT NOCOPY DPP_EXE_UPDATE_REC_TYPE
,p_status_Update_tbl IN OUT NOCOPY dpp_status_Update_tbl_type
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_ExecutionDetails';
l_module CONSTANT VARCHAR2(100) := 'dpp.plsql.DPP_EXECUTIONDETAILS_PVT.UPDATE_EXECUTIONDETAILS';
l_exe_update_rec DPP_EXECUTIONDETAILS_PVT.DPP_EXE_UPDATE_REC_TYPE := p_EXE_UPDATE_rec;
l_status_Update_tbl DPP_EXECUTIONDETAILS_PVT.dpp_status_Update_tbl_type := p_status_Update_tbl;
l_update_count NUMBER;
SAVEPOINT Update_ExecutionDetails_PVT;
l_exe_update_rec.execution_status := UPPER(l_exe_update_rec.execution_status);
SELECT process_code
INTO l_process_code
FROM dpp_execution_details
WHERE execution_detail_id = l_exe_update_rec.execution_detail_id;
DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_EXCEPTION, l_module, 'Invalid Execution Detail ID: ' || l_exe_update_rec.execution_detail_id);
UPDATE DPP_EXECUTION_DETAILS
SET execution_end_date = sysdate
,execution_status = DECODE(execution_status,'WARNING', execution_status, l_exe_update_rec.execution_status)
,last_update_date = sysdate
,last_updated_by = l_exe_update_rec.Last_Updated_By
,provider_process_id = l_exe_update_rec.Provider_Process_Id
,provider_process_instance_id = l_exe_update_rec.Provider_Process_Instance_id
,output_xml = DECODE(execution_status,'WARNING',NVL(output_xml, XMLType(l_exe_update_rec.Output_XML)),XMLType(l_exe_update_rec.Output_XML))
,object_version_number = object_version_number + 1
WHERE transaction_header_id = l_exe_update_rec.transaction_header_id
AND execution_detail_id = l_exe_update_rec.Execution_Detail_ID;
l_update_count := SQL%ROWCOUNT;
DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Invalid Execution Detail ID: ' || l_exe_update_rec.Execution_Detail_ID);
FOR i IN l_status_Update_tbl.FIRST..l_status_Update_tbl.LAST
LOOP
IF l_process_code = 'UPDTPO' THEN
UPDATE dpp_transaction_lines_all
SET UPDATE_PURCHASING_DOCS = l_status_Update_tbl(i).Update_Status
,object_version_number = object_version_number + 1
,last_update_date = sysdate
,last_updated_by = l_exe_update_rec.Last_Updated_By
WHERE transaction_header_id = l_EXE_UPDATE_rec.Transaction_Header_ID
AND transaction_line_id = l_status_Update_tbl(i).transaction_line_id;
UPDATE dpp_transaction_lines_all
SET NOTIFY_PURCHASING_DOCS = l_status_Update_tbl(i).Update_Status
,object_version_number = object_version_number + 1
,last_update_date = sysdate
,last_updated_by = l_exe_update_rec.Last_Updated_By
WHERE transaction_header_id = l_EXE_UPDATE_rec.Transaction_Header_ID
AND transaction_line_id = l_status_Update_tbl(i).transaction_line_id;
UPDATE dpp_transaction_lines_all
SET UPDATE_INVENTORY_COSTING = l_status_Update_tbl(i).Update_Status
,object_version_number = object_version_number + 1
,last_update_date = sysdate
,last_updated_by = l_exe_update_rec.Last_Updated_By
WHERE transaction_header_id = l_EXE_UPDATE_rec.Transaction_Header_ID
AND transaction_line_id = l_status_Update_tbl(i).transaction_line_id;
UPDATE dpp_transaction_lines_all
SET UPDATE_ITEM_LIST_PRICE = l_status_Update_tbl(i).Update_Status
,object_version_number = object_version_number + 1
,last_update_date = sysdate
,last_updated_by = l_exe_update_rec.Last_Updated_By
WHERE transaction_header_id = l_EXE_UPDATE_rec.Transaction_Header_ID
AND transaction_line_id = l_status_Update_tbl(i).transaction_line_id;
UPDATE dpp_transaction_lines_all
SET NOTIFY_INBOUND_PRICELIST = l_status_Update_tbl(i).Update_Status
,object_version_number = object_version_number + 1
,last_update_date = sysdate
,last_updated_by = l_exe_update_rec.Last_Updated_By
WHERE transaction_header_id = l_EXE_UPDATE_rec.Transaction_Header_ID
AND transaction_line_id = l_status_Update_tbl(i).transaction_line_id;
UPDATE dpp_transaction_lines_all
SET NOTIFY_OUTBOUND_PRICELIST = l_status_Update_tbl(i).Update_Status
,object_version_number = object_version_number + 1
,last_update_date = sysdate
,last_updated_by = l_exe_update_rec.Last_Updated_By
WHERE transaction_header_id = l_EXE_UPDATE_rec.Transaction_Header_ID
AND transaction_line_id = l_status_Update_tbl(i).transaction_line_id;
UPDATE dpp_transaction_lines_all
SET supp_dist_claim_status = l_status_Update_tbl(i).Update_Status
,object_version_number = object_version_number + 1
,last_update_date = sysdate
,last_updated_by = l_exe_update_rec.Last_Updated_By
WHERE transaction_header_id = l_EXE_UPDATE_rec.Transaction_Header_ID
AND transaction_line_id = l_status_Update_tbl(i).transaction_line_id;
UPDATE DPP_customer_claims_all
SET supplier_claim_created = l_status_Update_tbl(i).Update_Status
,object_version_number = object_version_number + 1
,last_update_date = sysdate
,last_updated_by = l_exe_update_rec.Last_Updated_By
WHERE transaction_header_id = l_EXE_UPDATE_rec.Transaction_Header_ID
AND customer_inv_line_id = l_status_Update_tbl(i).transaction_line_id;
UPDATE DPP_customer_claims_all
SET customer_claim_created = l_status_Update_tbl(i).Update_Status
,object_version_number = object_version_number + 1
,last_update_date = sysdate
,last_updated_by = l_exe_update_rec.Last_Updated_By
WHERE transaction_header_id = l_EXE_UPDATE_rec.Transaction_Header_ID
AND customer_inv_line_id = l_status_Update_tbl(i).transaction_line_id;
UPDATE dpp_transaction_lines_all
SET NOTIFY_PROMOTIONS_PRICELIST = l_status_Update_tbl(i).Update_Status
,object_version_number = object_version_number + 1
,last_update_date = sysdate
,last_updated_by = l_exe_update_rec.Last_Updated_By
WHERE transaction_header_id = l_EXE_UPDATE_rec.Transaction_Header_ID
AND transaction_line_id = l_status_Update_tbl(i).transaction_line_id;
ROLLBACK TO Update_ExecutionDetails_PVT;
ROLLBACK TO Update_ExecutionDetails_PVT;
ROLLBACK TO Update_ExecutionDetails_PVT;
fnd_message.set_token('ROUTINE', 'DPP_EXECUTIONDETAILS_PVT.Update_ExecutionDetails');
END Update_ExecutionDetails;
PROCEDURE Update_ESB_InstanceID(
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_execution_detail_id IN NUMBER
,p_esb_instance_id IN VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_ESB_InstanceID';
l_module CONSTANT VARCHAR2(100) := 'dpp.plsql.DPP_EXECUTIONDETAILS_PVT.UPDATE_ESB_INSTANCEID';
l_update_count NUMBER;
SAVEPOINT Update_ESB_InstanceID_PVT;
UPDATE dpp_execution_details
SET last_update_date = sysdate,
last_updated_by = fnd_global.user_id,
esb_instance_id = p_esb_instance_id,
object_version_number = object_version_number + 1
WHERE execution_detail_id = p_execution_detail_id;
l_update_count := SQL%ROWCOUNT;
ROLLBACK TO Update_ESB_InstanceID_PVT;
ROLLBACK TO Update_ESB_InstanceID_PVT;
ROLLBACK TO Update_ESB_InstanceID_PVT;
fnd_message.set_token('ROUTINE', 'DPP_EXECUTIONDETAILS_PVT.Update_ESB_InstanceID');
END Update_ESB_InstanceID;