Check for either E/R pat type or Q/R pat type

I have a tclproc that I use to check for an E/R patient type.  I want to now check for either E/R or Q/R in the PV1-18 field.  Here is part of my code.  I can’t figure out how to do this.  Thanks for any help.

if [cequal $segtype PV1] {      ;# PV1?

                               set pv1tmp [split $seg $field_sep]

;# split PV1 fields.

                               set pv118 [lindex $pv1tmp 18]

;#get PV1-18

                               set pv118_0 [csubstr $pv118 0 3]

                               if [cequal $pv118_0 “E/R”]  {

                                       set disp “”

                                       set disp “CONTINUE $mh”

:q