Return value in sql statement

Public Function SetPatient(ByVal ConnString As String, ByVal tPatient As PatientType) As ReturnType

Dim result As New ReturnType

If tPatient Is Nothing Then

Throw New ArgumentNullException("tPatient is null")

Else

Using conn As New SqlConnection(ConnString)

Using Command As SqlCommand = conn.CreateCommand()

conn.Open()

If tPatient.patient_id = 0 Then

Command.CommandText = "INSERT INTO patients (patient_no,age,blood_group,dob,location,height,contact,marital_status,other_names,sex,sirname,weight,date_of_admision,checked,patient_type_id) VALUES (@patient_no,@age,@blood_group,@dob,@location,@height,@contact,@marital_status,@other_names,@sex,@sirname,@weight,@date_of_admision,@checked,@patient_type_id) SET @patient_id = (SELECT SCOPE_IDENTITY());INSERT INTO next_of_kin (patient_id,contact_name,contact_phone) values (@patient_id,@contact_name,@contact_phone)"

Else

Command.CommandText = "UPDATE patients set patient_no=@patient_no,age=@age,blood_group=@blood_group,dob=@dob,location=@location,height=@height,contact=@contact,marital_status=@marital_status,other_names=@other_names, sex=@sex,sirname=@sirname,weight=@weight,date_of_admision=@date_of_admision,checked=@checked,patient_type_id=@patient_type_id WHERE patient_id=@patient_id;if (select count(*) from next_of_kin where patient_id=@patient_id )>0 begin update next_of_kin set contact_name=@contact_name,contact_phone=@contact_phone WHERE patient_id=@patient_id end else begin INSERT INTO next_of_kin (patient_id,contact_name,contact_phone) values (@patient_id,@contact_name,@contact_phone) end"

End If

Dim objParameter As New SqlClient.SqlParameter("@Patient_id", SqlDbType.Int)

objParameter.Direction = ParameterDirection.InputOutput

objParameter.Value = tPatient.patient_id

Command.Parameters.Add(objParameter)

'If tPatient.patient_id = 0 Then

' Command.Parameters.Add("@patient_id", SqlDbType.Int, ParameterDirection.Input).Value = DBNull.Value

'Else

' Command.Parameters.Add("@patient_id", SqlDbType.Int, ParameterDirection.Input).Value = tPatient.patient_id

'End If

Command.Parameters.Add("@patient_no", SqlDbType.VarChar, 255, ParameterDirection.Input).Value = tPatient.patient_no

Command.Parameters.Add("@age", SqlDbType.Int, ParameterDirection.Input).Value = tPatient.age

Command.Parameters.Add("@blood_group", SqlDbType.VarChar, 255, ParameterDirection.Input).Value = tPatient.blood_group

Command.Parameters.Add("@dob", SqlDbType.Date, ParameterDirection.Input).Value = tPatient.dob

Command.Parameters.Add("@date_of_admision", SqlDbType.Date, ParameterDirection.Input).Value = tPatient.date_of_admision

Command.Parameters.Add("@location", SqlDbType.VarChar, 255, ParameterDirection.Input).Value = tPatient.location

Command.Parameters.Add("@height", SqlDbType.Int, ParameterDirection.Input).Value = tPatient.height

Command.Parameters.Add("@contact", SqlDbType.VarChar, 255, ParameterDirection.Input).Value = tPatient.contact

Command.Parameters.Add("@marital_status", SqlDbType.VarChar, 255, ParameterDirection.Input).Value = tPatient.marital_status

Command.Parameters.Add("@other_names", SqlDbType.VarChar, 255, ParameterDirection.Input).Value = tPatient.other_names

Command.Parameters.Add("@sex", SqlDbType.VarChar, 255, ParameterDirection.Input).Value = tPatient.sex

Command.Parameters.Add("@sirname", SqlDbType.VarChar, 255, ParameterDirection.Input).Value = tPatient.sirname

Command.Parameters.Add("@weight", SqlDbType.Int, ParameterDirection.Input).Value = tPatient.weight

Command.Parameters.Add("@patient_type_id", SqlDbType.Int, ParameterDirection.Input).Value = tPatient.patient_type_id

Command.Parameters.Add("@contact_name", SqlDbType.VarChar, 255, ParameterDirection.Input).Value = tPatient.contact_name

Command.Parameters.Add("@contact_phone", SqlDbType.VarChar, 255, ParameterDirection.Input).Value = tPatient.contact_phone

If tPatient.checked Then

Command.Parameters.Add("@checked", SqlDbType.Char, 1, ParameterDirection.Input).Value = "T"

Else

Command.Parameters.Add("@checked", SqlDbType.Char, 1, ParameterDirection.Input).Value = "F"

End If

'Try

result.return_code = Command.ExecuteNonQuery()

If result.return_code = 1 Then

result.return_identity_id = Command.Parameters("@Patient_id").Value

result.return_message = "Patient Process succesfull"

Else

End If

'Catch ex As Exception

' result.return_message = "PatientRegistration Status already exists"

'End Try

End Using

End Using

End If

Return result

End Function

below is converted which does not return value how can i do it