I have the following code
if {$type == “support”} {
set result [eval “SCRLibraryEDM_support::WriteEDMHeader” {$doctype $foldertype $foldername $filename $facname $acctno $servdate $mrn $docdescrip $processed}]
echo “<$result>”
}
[/code.
but would rather do something like this:
[code]
set result [eval SCRLibraryEDM_$type::WriteEDMHeader {$doctype $foldertype $foldername $filename $facname $acctno $servdate $mrn $docdescrip $processed}]
[/code
But when I do that I get a tcl error saying “type::WriteEDMHeader” is not a valid variable. Why is the substitution not working here? Can someone provide me some hints as to the correct syntax?
Thanks,
Jerry[/code][code]
if {$type == “support”} {
set result [eval “SCRLibraryEDM_support::WriteEDMHeader” {$doctype $foldertype $foldername $filename $facname $acctno $servdate $mrn $docdescrip $processed}]
echo “<$result>“
}
[/code.
but would rather do something like this:
[code]
set result [eval SCRLibraryEDM_$type::WriteEDMHeader {$doctype $foldertype $foldername $filename $facname $acctno $servdate $mrn $docdescrip $processed}]
[/code
But when I do that I get a tcl error saying “type::WriteEDMHeader” is not a valid variable. Why is the substitution not working here? Can someone provide me some hints as to the correct syntax?
Thanks,
Jerry[/code]