Public Function BlockAccount(ByVal p_BlockID As Integer, ByVal p_BlockTypeID As Integer, ByVal p_BlockTypeText As String, ByVal p_BlockTreatment As Integer, ByVal p_ANI As String, ByVal p_County As String)