Patient:isMalePatient()

This new function is required by die.lua:action_die_start for hell
deaths because female patients can't go to hell.