MAGJLS2 ;WIRMFO/JHC - Rad. Workstation RPC calls ; 10/17/2022
Source file <MAGJLS2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
BKGERR | ||
ERR1 | ||
ERR | ||
ACTIVE(MAGGRY,DATA) | ; EP--get Active (Unread/Recent/Pend) Exam Lists
; MAGGRY holds $NA ref to ^TMP where return msg is assembled ; all refs to MAGGRY use SS indirection ; If not use bkgnd, compile in foregnd |
|
ACTIVEZ | ||
FOREGND | ; compile in foregnd
|
|
HISTORY | ; compile History list
|
|
BKREQU | ; UNREAD exams from bkgnd
|
|
BKREQR | ; Recent Exams from bkgnd
|
|
BKOUT(LSTNM) | ; output list from the bkgnd process
|
|
BKREQA(DATA) | ; ALL Active from Bkgnd
; Copy compiles of Unread & Recent to a scratch global, & call lstout |
|
BKGND | ; EP for background compile of UNREAD exams
|
|
BKGND2 | ; EP--bkgnd compile RECENT
|
|
BKGNDA | ||
BKLOOP | ; Loop & compile "master" UNREAD List only
|
|
BKGNDZ | ||
NEWINT | ; Add exams newly Interp since Recent Compile started to Recent List
; 1st, get list of candidates: |
|
LSTCOMP(COMPFAIL) | ; Compile new list; subrtn used by Active and Bkgnd tags
|
|
LSTCOMZ | ||
CURLIST(LSTNAM,WAIT) | ; return cur. list & age in secs
; RET = Current_List_Num ^ age ^ Problem_Current_List_Num ; Current_List_Num -- Nil means brand new; value means this is most current ; piece 3 populated if excessive time has elapsed, indicating potential problem |
|
CURLISZ | ||
DELTA(X,Y) | ; calc # secs bet 2 $h values; dflt 2nd value = now
; useful limit is one day |
|
END | ;
|
RPC Name | Call Tags |
---|---|
MAGJ RADACTIVEEXAMS | ACTIVE |