If strRevId = "HS" Or strRevId = "MD" Or Len(strLocationID) = 0 Then

Changed to

(If strRevId = "HS" Or strRevId = "MD") And Len(strLocationID) = 0 Then

To fix saving of MD or Professional fee inside InvStockCard