If Trim(AminoRx) = "" Then 'Gentamycin.Status = 0 And Netilmicin.Status = 0 And Kanamycin.Status = 0 And Tobramycin.Status = 0 And Amikacin.Status = 0 Then
MsgBox "Please Select an Aminoglycoside Drug."
SetTopMostWindow Me.hwnd, True
Exit Sub
End If
If Option2(1).Value = False And Option2(2).Value = False And Option2(0).Value = False Then
MsgBox "Please Select a Dosing Protocol."
SetTopMostWindow Me.hwnd, True
Exit Sub
End If
If AminoVolDistribution = 0 Then 'Decreased.Status = 0 And Normal.Status = 0 And Increased.Status = 0 Then
MsgBox "Please Select a State of Hydration."
SetTopMostWindow Me.hwnd, True
Exit Sub
End If
If Trim(AminoDiseaseSev) = "" Then 'Mild.Status = 0 And Moderate.Status = 0 And Severe.Status = 0 Then
MsgBox "Please Select Disease Severity."
SetTopMostWindow Me.hwnd, True
Exit Sub
End If
If Trim(Neut) = "" Then 'NeutropeniaYes.Status = 0 And NeutropeniaNo.Status = 0 Then
MsgBox "Please Specify if Patient is Neutropenic."
SetTopMostWindow Me.hwnd, True
Exit Sub
End If
If Val(Text1.Text) = 0 Then 'InfusionTimetxt.Label = "" Then
MsgBox "Please Select Either a .5 or 1 hr Infusion time."
SetTopMostWindow Me.hwnd, True
Exit Sub
Else
t = Val(Text1.Text)
End If
SetTopMostWindow Me.hwnd, True
If Option4(0).Value = True And Option1(3).Value = False And Option1(4).Value = False Then
X = 5
GoTo NINE60
End If
If Option4(0).Value = True Then
X = 20
End If
If Option4(1).Value = True And Option1(3).Value = False And Option1(4).Value = False Then
X = 7
GoTo NINE60
End If
If Option4(1).Value = True Then
X = 25
End If
If Option4(2).Value = True And Option1(3).Value = False And Option1(4).Value = False Then
X = 8
GoTo NINE60
End If
If Option4(2).Value = True Then
X = 30
End If
NINE60:
If Option7(0).Value = True And Option1(3).Value = False And Option1(4).Value = False Then
Y = 1.5
GoTo NINE68
End If
If Option7(0).Value = True Then
Y = 8
GoTo NINE68
End If
If Option1(3).Value = True Or Option1(4).Value = True Then
Y = 5
GoTo NINE68
End If
Y = 1
NINE68:
'If Gentamycin.status = 1 Then
' KDAminog = (.00285 * crcl) + .015
'End If
'If Tobramycin.status = 1 Then
' KDAminog = (.0031 * crcl) + .01
'End If
'If Amikacin.status = 1 Then
' KDAminog = (.0024 * crcl) + .01
'End If
'w = LOG(y / x) 'LOG10(y / x)
'DIAminog = ((-1 / KDAminog) * w) + t
'w = 1 - EXP(-1 * KDAminog * DIAminog)
'z = 1 - EXP(-1 * KDAminog * t)
'MDAminog = t* x * AminoVolDistribution *KDAminog * w / z
'PE = (MDAminog / AminoVolDistribution) * z / KDAminog / w
'MDAminog = MDAminog * ABW
'w = EXP(-1 * KDAminog * (DIAminog - t))
'TR = PE * w
SetTopMostWindow Me.hwnd, False
If ActualCrCl <> 0 Then
CrCl = ActualCrCl
Else
If EstimatedCrCl <> 0 Then
CrCl = EstimatedCrCl
Else
MsgBox "Please Input Serum Creatinine and/or Urinary data for a Creatinine Clearance."
If Trim(DataInput.Creatininetxt) = "" Then
Unload Me
DataInput.Show
DataInput.SSTab1.Tab = 0
DataInput.SStab2.Tab = 2
Else
Load Renal
Renal.Show
Exit Sub
End If
End If
End If
SetTopMostWindow Me.hwnd, True
kel = 0.01 + (CrCl * 0.0024)
AminogLD = Dw * AminogLD
If Option2(0).Value = True Then
Load InitialAmino
InitialAmino.Show
Exit Sub
End If
If Option2(1).Value = True Then
Load Estimated
Estimated.Show
Exit Sub
End If
If Option2(2).Value = True Then
Load Adjust
Adjust.Show
Exit Sub
End If
End Sub
Private Sub Command1_Click()
Interpretive.Interpret.Text = "General Information for Kinetic Dosing:" & vbCrLf