source $cfPath(scan)/scan_common_1.tcl