I found my own answer. I'll document it so hopefully it is useful to others. I created a query and then put this code in the Batches_Inserted Sub under the ApplicationDataService:
Dim myQuery = currUserQuery(Application.User.Name)
For Each e As Employee In myQuery
Next