The following lines contain the word 'select', 'insert', 'update' or 'delete':
G_UPDATE_EVENT CONSTANT VARCHAR2(30) := 'UPDATE';
SELECT *
FROM OZF_CLAIMS_ALL
WHERE claim_id = p_id;
SELECT user_or_role_id
, arc_user_or_role_type
, admin_flag
, owner_flag
FROM ams_act_access
WHERE arc_act_access_to_object = 'CLAM'
AND act_access_to_object_id = pv_parent_claim_id
MINUS
SELECT user_or_role_id
, arc_user_or_role_type
, admin_flag
, owner_flag
FROM ams_act_access
WHERE arc_act_access_to_object = 'CLAM'
AND act_access_to_object_id = pv_child_claim_id;
OZF_CLAIM_LINE_PVT.Update_Claim_Line(
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_count => l_msg_count
,x_msg_data => l_msg_data
,p_claim_line_rec => l_claim_line
,p_mode => OZF_claim_Utility_pvt.G_AUTO_MODE
,x_object_version => l_line_obj_num
);
PROCEDURE update_child_claim (
p_claim IN child_claim_int_type
,p_line_tbl IN Simple_line_tbl_type
,x_return_status OUT NOCOPY VARCHAR2
,x_new_claim_amount OUT NOCOPY NUMBER
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_Child_Claim';
SELECT object_version_number
FROM ozf_claims_all
WHERE claim_id = p_id;
SELECT status_code
FROM ozf_claims_all
WHERE claim_id = p_id;
SELECT NVL(SUM(claim_currency_amount), 0)
/* END FIX BUG : while calculating claim amount, line_sume_amount should set to 0 if it is null.*/
FROM ozf_claim_lines_all
WHERE claim_id = p_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 => l_msg_data
,x_msg_count => l_msg_count
,p_claim => l_child_claim
,p_event => G_UPDATE_EVENT
,p_mode => OZF_claim_Utility_pvt.G_AUTO_MODE
,x_object_version_number => l_object_version_number
);
OZF_CLAIM_LINE_PVT.Update_Claim_Line(
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_count => l_msg_count
,x_msg_data => l_msg_data
,p_claim_line_rec => l_claim_line
,p_mode => OZF_claim_Utility_pvt.G_AUTO_MODE
,x_object_version => l_line_obj_num
);
END update_child_claim;
PROCEDURE update_parent_claim (
p_claim IN parent_claim_type
,p_mode IN VARCHAR2
,x_return_status OUT NOCOPY VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_Parent_Claim';
SELECT object_version_number, status_code, amount_adjusted, amount_remaining, currency_code, reason_code_id
FROM ozf_claims_all
WHERE claim_id = p_id;
ozf_utility_pvt.debug_message('start update parent');
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 => l_msg_data
,x_msg_count => l_msg_count
,p_claim => l_claim
,p_event => G_NO_CHANGE_EVENT
,p_mode => OZF_claim_Utility_pvt.G_AUTO_MODE
,x_object_version_number => l_object_version_number
);
END update_parent_claim;
SELECT amount_remaining
FROM ozf_claims_all
WHERE claim_id = p_id;
SELECT NVL(SUM(claim_currency_amount), 0)
FROM ozf_claim_lines_all
WHERE claim_id = p_id;
SELECT NVL(SUM(amount), 0)
FROM ozf_claims_all
WHERE split_from_claim_id = p_id;
SELECT claim_id
FROM ozf_claims_all
WHERE split_from_claim_id = p_id;
SELECT object_version_number
FROM ozf_claim_lines_all
WHERE claim_line_id = p_line_id;
SELECT amount_remaining
FROM ozf_claims_all
WHERE claim_id = p_id;
SELECT NVL(SUM(claim_currency_amount), 0)
FROM ozf_claim_lines_all
WHERE claim_id = p_id;
SELECT Count(claim_line_id)
FROM ozf_claim_lines_all
WHERE claim_id = p_id;
SELECT earnings_associated_flag
FROM ozf_claim_lines_all
WHERE claim_id = p_id;
SELECT *
FROM ozf_claim_lines_all
where claim_id = p_id;
ozf_utility_PVT.debug_message('delete claim line amount ' || l_claim_line.claim_line_id);
delete from ozf_claim_lines_all
where claim_line_id = l_claim_line.claim_line_id;
ozf_utility_PVT.debug_message('update parent claim amount ' ||l_claim_line.claim_line_id);
OZF_CLAIM_LINE_PVT.Update_Claim_Line(
p_api_version => 1.0
,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_line_rec => l_parent_line
,p_mode => OZF_claim_Utility_pvt.G_AUTO_MODE
,x_object_version => l_line_obj_num
);
update ozf_claim_lines_all
set claim_currency_amount = l_parent_amount_remaining - l_new_split_amount,
quantity = null
where claim_line_id = l_claim_line.claim_line_id;
SELECT claim_class
FROM ozf_claims_all
WHERE claim_id = p_claim_id;
l_line_tbl.delete;
update_parent_claim (
p_claim => l_parent_claim
,p_mode => p_mode
,x_return_status => l_return_status
);
PROCEDURE update_child_claim_tbl (
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_data OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,p_child_claim_tbl IN Child_Claim_tbl_type
,p_mode IN VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_Child_Claim_tbl';
SAVEPOINT Update_Child_Tbl_PVT;
update_child_claim (
p_claim => l_child_claim
,p_line_tbl => l_line_tbl
,x_return_status => l_return_status
,x_new_claim_amount => l_new_child_claim_amount
);
l_line_tbl.delete;
update_parent_claim (
p_claim => l_parent_claim
,p_mode => p_mode
,x_return_status => l_return_status
);
ROLLBACK TO Update_Child_Tbl_PVT;
ROLLBACK TO Update_Child_Tbl_PVT;
ROLLBACK TO Update_Child_Tbl_PVT;
END update_child_claim_tbl;