@@ -58,10 +58,11 @@
     get-target
     ;; register-run
     get-tests-tags
     get-test-times
     get-tests-for-run
+    get-tests-for-run-state-status
     get-test-id
     get-tests-for-runs-mindata
     get-tests-for-run-mindata
     get-run-name-from-id
     get-runs
@@ -80,11 +81,11 @@
     tasks-get-last
     testmeta-get-record
     have-incompletes?
     ;; synchash-get
     get-changed-record-ids
-		get-run-record-ids 
+    get-run-record-ids 
     get-not-completed-cnt))
 
 (define api:write-queries
   '(
     get-keys-write ;; dummy "write" query to force server start
@@ -98,11 +99,11 @@
     delete-test-records
     delete-old-deleted-test-records
     test-set-state-status
     test-set-top-process-pid
     set-state-status-and-roll-up-items
-     
+    
     update-pass-fail-counts
     top-test-set-per-pf-counts ;; (db:top-test-set-per-pf-counts (db:get-db *db* 5) 5 "runfirst")
 
     ;; RUNS
     register-run
@@ -122,10 +123,11 @@
     ;; MISC
     sync-inmem->db
     drop-all-triggers
     create-all-triggers
     update-tesdata-on-repilcate-db 
+
     ;; TESTMETA
     testmeta-add-record
     testmeta-update-field
 
     ;; TASKS
@@ -233,10 +235,11 @@
                    ((sync-inmem->db)               (let ((run-id (car params)))
                                                      (db:sync-touched dbstruct run-id force-sync: #t)))
                    ((mark-incomplete)              (apply db:find-and-mark-incomplete dbstruct params))
                    ((create-all-triggers)          (db:create-all-triggers dbstruct))
                    ((drop-all-triggers)            (db:drop-all-triggers dbstruct)) 
+
                    ;; TESTMETA
                    ((testmeta-add-record)       (apply db:testmeta-add-record dbstruct params))
                    ((testmeta-update-field)     (apply db:testmeta-update-field dbstruct params))
                    ((get-tests-tags)            (db:get-tests-tags dbstruct))
 
@@ -248,11 +251,11 @@
 		   ;; NO SYNC DB
 		   ((no-sync-set)               (apply db:no-sync-set         *no-sync-db* params))
 		   ((no-sync-get/default)       (apply db:no-sync-get/default *no-sync-db* params))
 		   ((no-sync-del!)              (apply db:no-sync-del!        *no-sync-db* params))
 		   ((no-sync-get-lock)          (apply db:no-sync-get-lock    *no-sync-db* params))
-		 
+		   
                    ;; ARCHIVES
                    ;; ((archive-get-allocations)   
                    ((archive-register-disk)     (apply db:archive-register-disk dbstruct params))
                    ((archive-register-block-name)(apply db:archive-register-block-name dbstruct params))
                    ;; ((archive-allocate-testsuite/area-to-block)(apply db:archive-allocate-testsuite/area-to-block dbstruct block-id testsuite-name areakey))
@@ -299,10 +302,11 @@
                    ((get-run-state)                (apply db:get-run-state dbstruct params))
                    ((set-run-status)               (apply db:set-run-status dbstruct params))
                    ((set-run-state-status)  			 (apply db:set-run-state-status dbstruct params))
                    ((update-tesdata-on-repilcate-db) (apply db:update-tesdata-on-repilcate-db  dbstruct params)) 
                    ((get-tests-for-run)            (apply db:get-tests-for-run dbstruct params))
+                   ((get-tests-for-run-state-status) (apply db:get-tests-for-run-state-status dbstruct params))
                    ((get-test-id)                  (apply db:get-test-id dbstruct params))
                    ((get-tests-for-run-mindata)    (apply db:get-tests-for-run-mindata dbstruct params))
                    ;; ((get-tests-for-runs-mindata)   (apply db:get-tests-for-runs-mindata dbstruct params))
                    ((get-runs)                     (apply db:get-runs dbstruct params))
                    ((simple-get-runs)              (apply db:simple-get-runs dbstruct params))