TCL ERROR

We are using an old PROC that a past employee created in an 5.3 Windows Environment. I have attached the complete .tcl proc.

We are not able to find out what is causing the error on the new system. We have been asked to modify so that it states

set newLabType “CH^HOLTER MONITOR REPORT”

In the proper area of the .tcl.

Without modifying the proc we are getting this error in the new linux/cl 5.7 environment.

xlt :xlat:ERR /0:softmed_xlate:05/26/2011 11:23:36] Tcl error:

msgId = message0

proc = ‘stringFindEkgPf’

args = ”

result = ‘extra switch pattern with no body, this may be due to a comment incorrectly placed outside of a switch body – see the “switch” documentation’

errorInfo: ‘

extra switch pattern with no body, this may be due to a comment incorrectly placed outside of a switch body – see the “switch” documentation

   while executing

“switch -glob — $labType {

“EK^EK” {

set newLabType “EKG^Interpretation”

set newSeg1 “OBX|1|ST|EKG Interp^EKG Interp||”

set newSeg2 “OBX|…”

   (“run” arm line 31)

   invoked from within

“switch -exact — $mode {

start {

#Preform Special Init Functions

}

run {

#Get Args and put them in variables

keylget args MSGID m…”

   (procedure “stringFindEkgPf” line 3)

   invoked from within

“stringFindEkgPf {MSGID message0} {CONTEXT xlt_post} {ARGS {}} {MODE run} {VERSION 3.0}”‘