string match

set matched 0
foreach pattern { “*Procedure*” “*Left*” } {
 if { [string match $pattern [lindex $xlateInVals 0]] } {
   set matched 1
 }
}
set xlateOutVals [list $matched]

set xlateOutVals [regexp {Procedure|Left} [lindex $xlateInVals 0]]

set debug 0
for { set x 0 } { $x < [llength $xlateInVals] } { incr x } {
  if { $debug } { puts "list item($x):[lindex $xlateInVals $x]" }
  set item [lindex $xlateInVals $x]
  set item [string map {
  "Patient:" "\H\Patient:\N\"
  "Age/DOB:" "\H\Age/DOB:\N\"
  "Mailing Address:" "\H\Mailing Address:\N\"
  "Age:" "\H\Age:\N\"
  "Sex:" "\H\Sex:\N\"
  "City:" "\H\City:\N\"
  "State:" "\H\State:\N\"
  "Zip:" "\H\Zip:\N\"
  "Home Ph:" "\H\Home Ph:\N\"
  "Arrival:" "\H\Arrival:\N\"
  "Time Left ED:" "\H\Time Left ED:\N\"
  "RN Disposition:" "\H\RN Disposition:\N\"
  "CC / Curr Imp:" "\H\CC / Curr Imp:\N\"
  "Current Medications" "\H\Current Medications\N\"
  "Medication            Dose   Route     Frequency  Last Dose  RN Comments" "\H\Medication            Dose   Route     Frequency  Last Dose  RN Comments\N\"
  "Allergies" "\H\Allergies\N\"
  "Allergic Substance       Reaction       Severity            User Name" "\H\Allergic Substance       Reaction       Severity            User Name\N\"
  "Vital Signs" "\H\Vital Signs\N\"
  "Sys  Dia  PulsRespSAT O2 DelTemp (Route Pain SComment     Taken at  User Name" "\H\Sys  Dia  PulsRespSAT O2 DelTemp (Route Pain SComment     Taken at  User Name\N\"
  "RN Eval:" "\H\RN Eval:\N\"
  "RN Dispo:" "\H\RN Dispo:\N\"
  "Res/PA/NP:" "\H\Res/PA/NP:\N\"
  "EMS/PMD" "\H\EMS/PMD\N\"
  "Dx/Instr" "\H\Dx/Instr\N\"
  "RN/Triage" "\H\RN/Triage\N\"
  "RN Notes:" "\H\RN Notes:\N\"
  "Last Entry:" "\H\Last Entry:\N\"
  "HPI:" "\H\HPI:\N\"
  "PMH:" "\H\PMH:\N\"
  "Surgeries:" "\H\Surgeries:\N\"
  "TRIAGE DATA:" "\H\TRIAGE DATA:\N\"
  "Last Tetanus:" "\H\Last Tetanus:\N\"
  "LMP:" "\H\LMP:\N\"
  "PREHOSPITAL CARE:" "\H\PREHOSPITAL CARE:\N\"
  "SAFETY SCREENING:" "\H\SAFETY SCREENING:\N\"
  "CODE STATUS:" "\H\CODE STATUS:\N\"
  "HISTORY OF:" "\H\HISTORY OF:\N\"
  "Nurse Note:" "\H\Nurse Note:\N\"
  "hpi:" "\H\hpi:\N\"
  "GENERAL MEDICINE PHYSICAL EXAM:" "\H\GENERAL MEDICINE PHYSICAL EXAM:\N\"
  "MENTAL STATUS:" "\H\MENTAL STATUS:\N\"
  "EYES:" "\H\EYES:\N\"
  "THROAT:" "\H\THROAT:\N\"
  "NECK:" "\H\NECK:\N\"
  "CHEST WALL:" "\H\CHEST WALL:\N\"
  "HEART:" "\H\HEART:\N\"
  "LUNGS:" "\H\LUNGS:\N\"
  "ABDOMEN:" "\H\ABDOMEN:\N\"
  "GU:" "\H\GU:\N\"
  "EXTREMITIES:" "\H\EXTREMITIES:\N\"
  "SKIN:" "\H\SKIN:\N\"
  "GENERAL APPEARANCE:" "\H\GENERAL APPEARANCE:\N\"
  "Transferred from:" "\H\Transferred from:\N\"
  "HPI:" "\H\HPI:\N\"
  "Associated Symptoms:" "\H\Associated Symptoms:\N\"
  "Symptoms worsened by:" "\H\Symptoms worsened by:\N\"
  "Symptoms improved with:" "\H\Symptoms improved with:\N\"
  "History obtained from:" "\H\History obtained from:\N\"
  "ROS:" "\H\ROS:\N\"
  "LMP:" "\H\LMP:\N\"
  "PMH:" "\H\PMH:\N\"
  "Surgeries:" "\H\Surgeries:\N\"
  "FH:" "\H\FH:\N\"
  "SH:" "\H\SH:\N\"
  "PHYSICAL EXAM:" "\H\PHYSICAL EXAM:\N\"
  "VITAL SIGNS:" "\H\VITAL SIGNS:\N\"
  "GENERAL APPEARANCE:" "\H\GENERAL APPEARANCE:\N\"
  "MENTAL STATUS:" "\H\MENTAL STATUS:\N\"
  "NEURO:" "\H\NEURO:\N\"
  "HEAD:" "\H\HEAD:\N\"
  "EYES:" "\H\EYES:\N\"
  "NOSE:" "\H\NOSE:\N\"
  "MOUTH:" "\H\MOUTH:\N\"
  "THROAT:" "\H\THROAT:\N\"
  "NECK:" "\H\NECK:\N\"
  "CHEST WALL:" "\H\CHEST WALL:\N\"
  "LUNGS:" "\H\LUNGS:\N\"
  "HEART:" "\H\HEART:\N\"
  "ABDOMEN:" "\H\ABDOMEN:\N\"
  "GENITOURINARY:" "\H\GENITOURINARY:\N\"
  "BACK:" "\H\BACK:\N\"
  "RECTAL:" "\H\RECTAL:\N\"
  "EXTREMITIES:" "\H\EXTREMITIES:\N\"
  "SKIN:" "\H\SKIN:\N\"
  "DIFFERENTIAL DX:" "\H\DIFFERENTIAL DX:\N\"
  "ABDOMEN(adult) Dx:" "\H\ABDOMEN(adult) Dx:\N\"
  "CLINICAL DECSION TOOLS:" "\H\CLINICAL DECSION TOOLS:\N\"
  "RESULTS REVIEWED:" "\H\RESULTS REVIEWED:\N\"
  "ED COURSE:" "\H\ED COURSE:\N\"
  "MLP Supervision:" "\H\MLP Supervision:\N\"
  "PROCEDURE:" "\H\PROCEDURE:\N\"
  "DISPOSITION:" "\H\DISPOSITION:\N\"
  "CRITICAL CARE TIME:" "\H\CRITICAL CARE TIME:\N\"
  "MD Sgntr:" "\H\MD Sgntr:\N\"
  "RN Sgntr:" "\H\RN Sgntr:\N\"
  } $item]
  set xlateOutVals [lreplace $xlateOutVals $x $x $item]
}

set debug 0
for { set x 0 } { $x < [llength $xlateInVals] } { incr x } {
   if { $debug } { puts "list item($x):[lindex $xlateInVals $x]" }
   set item [lindex $xlateInVals $x]
   set patterns {
       {^(.*:)$}
       {^(w+/[w/]*w)$}
       {(Medication +Dose +Route +Frequency +Last Dose +RN Comments)}
   }
   foreach pat $patterns {
       if { [regsub — $pat $item {\H\1\N\} item] } {
           break
       }
   }
   set xlateOutVals [lreplace $xlateOutVals $x $x $item]
}