Saving Date Using Microsoft SQL Helper Class

Saving Date Using Microsoft SQL Helper Class
   
First Import  :-   Imports Microsoft.ApplicationBlocks.Data

Private Sub SaveData()
        Dim param(12) As SqlParameter
        param(0) = New SqlParameter("@patient_Id", sCookPatMrn)
        param(1) = New SqlParameter("@eventId", sCookPatVisit)
        param(2) = New SqlParameter("@created_User", sCookPatMrn)
        param(3) = New SqlParameter("@modified_User", sCookPatMrn)
        param(4) = New SqlParameter("@VoidedVol", Int32.Parse(txtVoided.Text))
        param(5) = New SqlParameter("@MaxRate", Int32.Parse(txtMaxRate.Text))
        param(6) = New SqlParameter("@PVR", Int32.Parse(txtPVR.Text))
        param(7) = New SqlParameter("@Sensation", Int32.Parse(txtSensation.Text))
        param(8) = New SqlParameter("@MaxCapacity", Int32.Parse(txtMaxCapacity.Text))
        param(9) = New SqlParameter("@VoidingPressureAvg", Int32.Parse(txtPressureAvg.Text))
        param(10) = New SqlParameter("@VoidingPressureIso", Int32.Parse(txtPressureISO.Text))
        param(11) = New SqlParameter("@id", SqlDbType.Int, 0, ParameterDirection.Output, False, 0, 0, "ID", DataRowVersion.Default, Nothing)
        '' param(12) = New SqlParameter("@masterGroup", "CystoProstate")
      SqlHelper.ExecuteNonQuery(dbconn, CommandType.StoredProcedure, "Put_StoreProcedure_Name", param)
        If (IsDBNull(param(11).Value) = False) Then
            _cystoInstrumId = param(11).Value
        End If

    End Sub