Copied in-situ modifications from ics1-quokka.

site_ansto/instrument/config/scan/scan_common_1.tcl

@@ -76,6 +76,15 @@ proc ::scan::hmm_scan_collect {sobj uobj point} {
       clientput "Monitor $bmn [SplitReply [$bmon getcounts]]"
     }
 }
+proc ::scan::hmscanend_event {} {
+  ::scan::runscan_cmd -set feedback status IDLE
+}
+publish ::scan::hmscanend_event user
+
+proc ::scan::bmonscanend_event {} {
+  ::scan::hdb_bmonscan -set feedback status IDLE
+}
+publish ::scan::bmonscanend_event user
 
 proc ::scan::ic_initialize {} {
   if [ catch {
@@ -117,6 +126,8 @@ proc ::scan::ic_initialize {} {
       savetype text=save,nosave
       force  boolean 
     }]
+    scriptcallback connect hmscan   SCANEND ::scan::hmscanend_event
+    scriptcallback connect bmonscan SCANEND ::scan::bmonscanend_event
   } message ] {
     if {$::errorCode=="NONE"} {return $message}
     return -code error $message