Check for either Q/R pat type or E/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

[Elizabeth Wilson]

Misti;

Can you use OR condition?

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

[Misti Wannamaker]

Thanks … that’s how I need it!

[Author]

Replies