MAGJLS2B ;WIRMFO/JHC - VistARad RPC calls ; 10/17/2022
Source file <MAGJLS2B.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PARAMS(X) | ; Init some vars used for Exam Lists
|
|
| SETVARS(LSTID) | ;output control variables
|
|
| LSTVAR(LSTID) | ; build output columns string
|
|
| SRTVAR(LSTID) | ; build sort-vars string in SORTSS
; indirection used to ref string at list output (see LSTOUT) |
|
| SELVAR(LSTID) | ; build selection logic executes in DIS array
|
|
| CHKLOCK(RARPT,DAYCASE) | ; return ini of locking user & truth flag for locking user = logon user
|
|
| SHOWPLAC(X) | ; return list of places to show: all defined places NOT equal to user's logon place
|
|
| LSTOUT(MAGGRY,LSTID,MAGLST,LSTAGE,WRNMSG) | ; Build output list, w/ sort & selection
; Input: LSTID=List def'n ; MAGLST=Indirect global ref for input records; all reads use subscript indirection ; the nodes in @MAGLST contain: ; ; Node 1 corresponds to IENs 1:17 from Data Elements dic: ; Acn# ^ Ex LOCK ^ PtName ^ Pt_ID ^ Priority ^ Proc ^ Img Date/Time ^ Status ^ # Images ^ Online? ; Img Loc'n ^ Remote Ind. ^ Images Exist? ^ Img Date/Time-sortable ^ Mdl ^ Status/Internal ^ ImgTypABB ; Node 2-- IEN's 18:28 from Data Elements dic: ; REQLOCAbb ^ REQLOCNm ^ Interp Rad'ists ^ Last4 SSN ^ Division ^ Site ^ Rist Is Me? ^ ProcMod ^ REQLOCTyp ^ CPT ; WARD ; Node 2 then appends 3 pipe-delim pieces that are passed through from list compiler (See svmag2a^magjls3) |
|
| LSTOUTZ | ||
| RISTISME(X) | ; calculate truth value for Interpreting Rist = Logon Rist
; input zero to 2 DUZ values Rist1~Rist2 ; output Y or N for truth value |
|
| UPDR | ; Add Newly Interp exams to Recent; called from magjls2
|
|
| UPDRZ | ||
| END | ;
|
