The following lines contain the word 'select', 'insert', 'update' or 'delete':
l_pvt_claim_rec.last_update_date:=l_claim_rec.last_update_date;
l_pvt_claim_rec.last_updated_by:=l_claim_rec.last_updated_by;
l_pvt_claim_rec.last_update_login:=l_claim_rec.last_update_login;
l_pvt_claim_rec.program_update_date:=l_claim_rec.program_update_date;
l_pvt_claim_line_tbl(i).last_update_date := l_claim_line_tbl(i).last_update_date;
l_pvt_claim_line_tbl(i).last_updated_by := l_claim_line_tbl(i).last_updated_by ;
l_pvt_claim_line_tbl(i).last_update_login := l_claim_line_tbl(i).last_update_login;
l_pvt_claim_line_tbl(i).program_update_date := l_claim_line_tbl(i).program_update_date ;
l_pvt_claim_line_tbl(i).update_from_tbl_flag := l_claim_line_tbl(i).update_from_tbl_flag;
PROCEDURE Update_Claim(
p_api_version_number 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_claim_rec IN claim_rec_type,
p_claim_line_tbl IN claim_line_tbl_type,
x_object_version_number OUT NOCOPY NUMBER
)
IS
L_API_NAME CONSTANT VARCHAR2(30) := 'Update_Claim';
SELECT source_object_class
FROM ozf_claims_all
WHERE claim_id = p_claim_id;
SAVEPOINT SAVE_UPDATE_CLAIM_PUB;
l_pvt_claim_rec.last_update_date:=l_claim_rec.last_update_date;
l_pvt_claim_rec.last_updated_by:=l_claim_rec.last_updated_by;
l_pvt_claim_rec.last_update_login:=l_claim_rec.last_update_login;
l_pvt_claim_rec.program_update_date:=l_claim_rec.program_update_date;
OZF_Claim_PVT.Update_Claim(
p_api_version => p_api_version_number,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
P_Validation_Level => p_Validation_Level,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_claim => l_pvt_claim_rec,
p_event => 'UPDATE',
p_mode => OZF_claim_Utility_pvt.G_AUTO_MODE,
x_object_version_number => x_object_version_number );
OZF_UTILITY_PVT.DEBUG_MESSAGE('RETURN STATUS FOR UPDATE CLAIM =>'||X_RETURN_STATUS);
Update_Claim_Line_Tbl(
p_api_version => p_api_version_number
,p_init_msg_list => FND_API.G_FALSE
,p_commit => FND_API.G_FALSE
,P_Validation_Level => p_Validation_Level
,x_return_status => x_return_status
,x_msg_data => x_msg_data
,x_msg_count => x_msg_count
,p_claim_line_tbl => l_claim_line_tbl
,p_change_object_version => FND_API.g_false
,x_error_index => x_error_index);
OZF_UTILITY_PVT.DEBUG_MESSAGE('Return Status for Update claim line =>'||x_return_status);
ROLLBACK TO SAVE_UPDATE_CLAIM_PUB;
ROLLBACK TO SAVE_UPDATE_CLAIM_PUB;
ROLLBACK TO SAVE_UPDATE_CLAIM_PUB;
ROLLBACK TO SAVE_UPDATE_CLAIM_PUB;
End Update_Claim;
PROCEDURE Update_Claim_Line_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_claim_line_tbl IN claim_line_tbl_type
,p_change_object_version IN VARCHAR2 := FND_API.g_false
,x_error_index OUT NOCOPY NUMBER
)
IS
L_API_NAME CONSTANT VARCHAR2(30) := 'Update_Claim_Line';
SAVEPOINT Update_Claim_Line_Tbl;
IF l_claim_line_tbl(i).last_update_date is null then
l_pvt_claim_line_tbl(i).last_update_date := FND_API.G_MISS_DATE;
l_pvt_claim_line_tbl(i).last_update_date :=l_claim_line_tbl(i).last_update_date;
IF l_claim_line_tbl(i).last_updated_by is null then
l_pvt_claim_line_tbl(i).last_updated_by := FND_API.G_MISS_NUM;
l_pvt_claim_line_tbl(i).last_updated_by :=l_claim_line_tbl(i).last_updated_by;
IF l_claim_line_tbl(i).last_update_login is null then
l_pvt_claim_line_tbl(i).last_update_login := FND_API.G_MISS_NUM;
l_pvt_claim_line_tbl(i).last_update_login :=l_claim_line_tbl(i).last_update_login;
IF l_claim_line_tbl(i).program_update_date is null then
l_pvt_claim_line_tbl(i).program_update_date := FND_API.G_MISS_DATE;
l_pvt_claim_line_tbl(i).program_update_date :=l_claim_line_tbl(i).program_update_date;
IF l_claim_line_tbl(i).update_from_tbl_flag is null then
l_pvt_claim_line_tbl(i).update_from_tbl_flag := FND_API.G_MISS_CHAR;
l_pvt_claim_line_tbl(i).update_from_tbl_flag :=l_claim_line_tbl(i).update_from_tbl_flag;
Ozf_Claim_Line_Pvt.Update_Claim_line_Tbl(
p_api_version => p_api_version
,p_init_msg_list => FND_API.G_FALSE
,p_commit => FND_API.G_FALSE
,P_Validation_Level => p_Validation_Level
,x_return_status => x_return_status
,x_msg_data => x_msg_data
,x_msg_count => x_msg_count
,p_claim_line_tbl => l_pvt_claim_line_tbl
,p_change_object_version => FND_API.g_false
,x_error_index => l_error_index );
OZF_UTILITY_PVT.DEBUG_MESSAGE('sTATUS FOR Update claim line =>'||x_return_status);
ROLLBACK TO Update_Claim_Line_Tbl;
ROLLBACK TO Update_Claim_Line_Tbl;
ROLLBACK TO Update_Claim_Line_Tbl;
ROLLBACK TO Update_Claim_Line_Tbl;
End Update_Claim_Line_tbl;
/*End of Update Claim Line*/
---------------------------------------------------------------------
-- PROCEDURE
-- delete_claim
--
-- PURPOSE
-- This procedure deletes claim record when Claim_Id and Object Version Number are provided.
--
-- PARAMETERS
--
-- x_msg_count
-- x_object_version_number
-- x_return_status
-- p_claim_id
-- p_object_version_number
-- NOTES
---------------------------------------------------------------------
PROCEDURE Delete_Claim(
p_api_version_number 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_claim_id IN NUMBER,
p_object_version_number IN NUMBER
)
IS
L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_Claim';
SAVEPOINT DELETE_Claim_PUB;
OZF_Claim_PVT.Delete_Claim(
p_api_version_number => p_api_version_number,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
p_object_id => l_claim_id,
p_object_version_number => l_object_version_number,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
OZF_UTILITY_PVT.DEBUG_MESSAGE('RETURN STATUS FOR DELETE_CLAIM =>'||X_RETURN_STATUS);
ROLLBACK TO DELETE_Claim_PUB;
ROLLBACK TO DELETE_Claim_PUB;
ROLLBACK TO DELETE_Claim_PUB;
ROLLBACK TO DELETE_Claim_PUB;
End Delete_Claim;
PROCEDURE Delete_Claim_Line_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_claim_line_tbl IN claim_line_tbl_type
,p_change_object_version IN VARCHAR2 := FND_API.g_false
,x_error_index OUT NOCOPY NUMBER)
IS
L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_Claim_Line';
SAVEPOINT DELETE_Claim_Line_PUB;
OZF_Claim_Line_PVT.Delete_Claim_Line_Tbl(
p_api_version => p_api_version
,p_init_msg_list => FND_API.G_FALSE
,p_commit => FND_API.G_FALSE
,P_Validation_Level => p_Validation_Level
,x_return_status => x_return_status
,x_msg_data => x_msg_data
,x_msg_count => x_msg_count
,p_claim_line_tbl => l_pvt_claim_line_tbl
,p_change_object_version => FND_API.g_false
,x_error_index => l_error_index);
OZF_UTILITY_PVT.DEBUG_MESSAGE('RETURN STATUS FOR DELETE_CLAIM_Line_Tbl =>'||X_RETURN_STATUS);
ROLLBACK TO DELETE_Claim_Line_PUB;
ROLLBACK TO DELETE_Claim_Line_PUB;
ROLLBACK TO DELETE_Claim_Line_PUB;
ROLLBACK TO DELETE_Claim_PUB;
End Delete_Claim_Line_Tbl;
/* End of Delete claim line*/
---------------------------------------------------------------------
-- PROCEDURE
-- asso_accruals_to_claim
--
-- PURPOSE
-- This procedure associates accruals based on the given fund
-- utilization criteria.
--
-- PARAMETERS
-- p_api_version
-- p_init_msg_list
-- p_commit
-- p_validation_level
-- p_claim_id
-- p_funds_util_flt
-- x_return_status
-- x_msg_count
-- x_msg_data
-- NOTES
---------------------------------------------------------------------
PROCEDURE Asso_Accruals_To_Claim(
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_claim_id IN NUMBER
,p_funds_util_flt IN funds_util_flt_type
)
IS
l_api_version CONSTANT NUMBER := 1.0;
l_funds_util_flt.select_cust_children_flag := p_funds_util_flt.select_cust_children_flag;
l_funds_util_flt.select_cust_children_flag := p_funds_util_flt.select_cust_children_flag;
l_funds_util_flt.select_cust_children_flag := p_funds_util_flt.select_cust_children_flag;