557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
|
(define (rmt:set-run-status run-id run-status area-dat #!key (msg #f))
(rmt:send-receive 'set-run-status #f (list run-id run-status msg) area-dat))
(define (rmt:update-run-event_time run-id area-dat)
(rmt:send-receive 'update-run-event_time #f (list run-id) area-dat))
(define (rmt:get-runs-by-patt keys runnamepatt targpatt offset limit area-dat)
(rmt:send-receive 'get-runs-by-patt #f (list keys runnamepatt targpatt offset limit) area-dat))
(define (rmt:find-and-mark-incomplete run-id ovr-deadtime area-dat)
(if (rmt:send-receive 'have-incompletes? run-id (list run-id ovr-deadtime) area-dat)
(rmt:send-receive 'mark-incomplete run-id (list run-id ovr-deadtime) area-dat)))
;;======================================================================
|
|
|
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
|
(define (rmt:set-run-status run-id run-status area-dat #!key (msg #f))
(rmt:send-receive 'set-run-status #f (list run-id run-status msg) area-dat))
(define (rmt:update-run-event_time run-id area-dat)
(rmt:send-receive 'update-run-event_time #f (list run-id) area-dat))
(define (rmt:get-runs-by-patt keys runnamepatt targpatt offset limit area-dat fields)
(rmt:send-receive 'get-runs-by-patt #f (list keys runnamepatt targpatt offset limit) area-dat))
(define (rmt:find-and-mark-incomplete run-id ovr-deadtime area-dat)
(if (rmt:send-receive 'have-incompletes? run-id (list run-id ovr-deadtime) area-dat)
(rmt:send-receive 'mark-incomplete run-id (list run-id ovr-deadtime) area-dat)))
;;======================================================================
|