The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT claim_id
, claim_number
, amount
FROM ozf_claims_all
WHERE claim_id = cv_claim_id;
SELECT ln.claim_line_id
, ut.object_type
, ut.object_id
FROM ozf_funds_utilized_all_b ut
, ozf_claim_lines_util_all lu
, ozf_claim_lines_all ln
WHERE ln.claim_id = cv_claim_id
AND ln.claim_line_id = lu.claim_line_id
AND lu.utilization_id = ut.utilization_id
AND ut.object_type = 'ORDER';
UPDATE ozf_claim_lines_all
SET source_object_class = l_source_object_class,
source_object_id = l_source_object_id,
object_version_number = object_version_number + 1
WHERE claim_line_id = l_claim_line_id;
PROCEDURE Update_Claim(
p_api_version_number IN NUMBER,
p_init_msg_list IN VARCHAR2,
p_validation_level IN NUMBER,
p_commit IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_claim_id IN NUMBER,
p_status_code IN VARCHAR2,
p_comments IN VARCHAR2,
p_note_type IN VARCHAR2,
p_note_detail IN VARCHAR2
)
IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2(30) := 'Update_Claim';
SELECT lookup_code
FROM ozf_lookups
WHERE lookup_type = 'OZF_CLAIM_STATUS';
SELECT object_version_number
, org_id
FROM ozf_claims_all
WHERE claim_id = cv_claim_id;
SAVEPOINT Update_Partner_Claim;
OZF_Utility_PVT.debug_message('1. Update Claim');
UPDATE ozf_claims_all
SET status_code = 'APPROVED'
, user_status_id = OZF_UTILITY_PVT.get_default_user_status('OZF_CLAIM_STATUS', 'APPROVED')
WHERE claim_id = p_claim_id;
OZF_claim_PVT.Update_Claim (
p_api_version => 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_data => x_msg_data
,x_msg_count => x_msg_count
,p_claim => l_claim_pvt_rec
,p_event => 'UPDATE'
,p_mode => OZF_Claim_Utility_PVT.G_AUTO_MODE
,x_object_version_number => l_dummy_number
);
,p_last_updated_by => FND_GLOBAL.user_id
,x_jtf_note_id => l_x_note_id
,p_note_type => p_note_type
,p_last_update_date => SYSDATE
,p_creation_date => SYSDATE
);
ROLLBACK TO Update_Partner_Claim;
ROLLBACK TO Update_Partner_Claim;
ROLLBACK TO Update_Partner_Claim;
End Update_Claim;