The following lines contain the word 'select', 'insert', 'update' or 'delete':
G_UPDATE_EVENT CONSTANT VARCHAR2(30) := 'UPDATE';
PROCEDURE Update_Deduction(
P_Api_Version_Number IN NUMBER,
P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
P_Commit IN VARCHAR2 := FND_API.G_FALSE,
X_Return_Status OUT NOCOPY VARCHAR2,
X_Msg_Count OUT NOCOPY NUMBER,
X_Msg_Data OUT NOCOPY VARCHAR2,
P_deduction IN DEDUCTION_REC_TYPE,
X_Object_Version_Number OUT NOCOPY NUMBER
)
IS
l_ozf_claim_grp_rec OZF_CLAIM_GRP.DEDUCTION_REC_TYPE;
SELECT claim_id, object_version_number, custom_setup_id
FROM ozf_claims_all
WHERE root_claim_id = p_id
AND status_code NOT IN ('CLOSED', 'CANCELLED', 'REJECTED');
OZF_CLAIM_PVT.Update_claim(
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 => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_claim => l_ozf_claim_pvt_rec,
p_event => 'UPDATE',
p_mode => oZF_CLAIM_UTILITY_PVT.G_AUTO_MODE,
x_object_version_number => l_claim_obj_ver_num_tbl(idx)
);
OZF_CLAIM_GRP.Update_Deduction(
P_Api_Version_Number => P_Api_Version_Number,
P_Init_Msg_List => P_Init_Msg_List,
p_validation_level => p_validation_level,
P_Commit => P_Commit,
X_Return_Status => X_Return_Status,
X_Msg_Count => X_Msg_Count,
X_Msg_Data => X_Msg_Data,
P_deduction => l_ozf_claim_grp_rec,
X_Object_Version_Number => X_Object_Version_Number
);
End Update_Deduction;