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

[Misti Wannamaker]

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

Topic

[Ryan Spires]

if [cequal $segtype PV1] {

[Misti Wannamaker]

Thanks so much for your help.  I was coding it sort of like that but didn’t have the right ‘|’ or ‘(‘ …

It has been driving me nuts all morning.  Thanks!!!!

[Author]

Replies