Public Sub removePet(ID As Int)
Private mRec As Map
ProgressDialogShow("Deleting...")
'Sleep(0)
mRec.Initialize
mRec.Put("ID", ID)
Starter.sqlDB.BeginTransaction
Try
DBUtils.DeleteRecord(Starter.sqlDB, "tblPets", mRec)
mRec.Clear
mRec.Put("PetID", ID)
DBUtils.DeleteRecord(Starter.sqlDB, "tblHistoryHeader", mRec)
DBUtils.DeleteRecord(Starter.sqlDB, "tblAppointments", mRec)
DBUtils.DeleteRecord(Starter.sqlDB, "tblMedical", mRec)
DBUtils.DeleteRecord(Starter.sqlDB, "tblAlerts", mRec)
DBUtils.DeleteRecord(Starter.sqlDB, "tblWeight", mRec)
DBUtils.DeleteRecord(Starter.sqlDB, "tblAlbum", mRec)
DBUtils.DeleteRecord(Starter.sqlDB, "tblTraining", mRec)
DBUtils.DeleteRecord(Starter.sqlDB, "tblHiddenPets", mRec)
Starter.sqlDB.TransactionSuccessful
If File.Exists(File.DirInternal, ID & ".jpg") Then File.Delete(File.DirInternal, ID & ".jpg")
ProgressDialogHide
Catch
Starter.CL.CLog(LastException.Message)
Log(LastException)
ProgressDialogHide
End Try
Starter.sqlDB.EndTransaction
End Sub