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 |
