Public Sub Update( _
   ByVal pICUPCode As CUPCode _
)