ISIJRPT2 ; ISI/JHC - ISIRAD Report Entry functions ; 10/17/2022
Source file <ISIJRPT2.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETDATA(CASEID,PRINTSET,SETRARPT) | ;
; PRINTSET--flag: 1=printset; not all data needed for these exams ; SETRARPT--flag: 1=Create/set RARPT if not in CaseId--is normal to occur when Locking Category "R" exams ; Return (in RET): ; PrtSetCase# ^ 9.1PROC ^ 12.1DAYCASE ^ 14.1RASTNAM ^ 17.1CPT; ; ^ 8.2MODIF ^ 11.2RASTCAT ^ RPT STATUS ^ DXCODE-IMPRESSION_FLAGS ; Or, RET = -1 ^ message text --> If error detected |
|
| REQFLAGS(ABB) | ; Calculate DxCode_Required and Impression_Required truth values
; input is Type of Imaging Abbreviation (Rad file 79.2) ; --> use this to find the file 72 truth values needed ; 11: both required ; 10: DxCode required ; 1: Impression required ; 0: neither required |
|
| UNLOCKEM(RCODE,NLOCKS) | ; unlock everything because unable to lock all of them
|
|
| UNLOCKRP(RARPT) | ; unlock this exam
|
|
| UNLOCKEX(CASEID) | ; Unlock EXAM level for Category "R" exams
|
|
| REMLOCK | ; Remove dangling exam locks; this is run only at Logon
; If a recorded lock is found that a new job (logon) can M-Lock ; then that is a dangling lock that must be removed |
|
| END | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RA(72 - [#72] | REQFLAGS+12, REQFLAGS+13 |
| ^RA(79.2 - [#79.2] | REQFLAGS+10, REQFLAGS+11 |
| ^RADPT - [#70] | GETDATA+14, GETDATA+17, GETDATA+22, UNLOCKEX+3, UNLOCKEX+4 |
| ^RARPT - [#74] | GETDATA+39, UNLOCKRP+1 |
| ^TMP("RAD LOCKS" | UNLOCKRP+2!, REMLOCK+13! |
| ^TMP($J | GETDATA+32, GETDATA+33! |
| Name | Line Occurrences |
|---|---|
| $$REQFLAGS | GETDATA+44 |
| UNLOCKEX | UNLOCKEM+6, UNLOCKEM+8 |
| UNLOCKRP | UNLOCKEM+6, REMLOCK+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ABB | REQFLAGS~, REQFLAGS+9, REQFLAGS+10 |
| CASEID | GETDATA~, GETDATA+10, GETDATA+19*, GETDATA+34*, UNLOCKEM+1~, UNLOCKEM+4*, UNLOCKEM+6, UNLOCKEM+8, UNLOCKEX~, UNLOCKEX+2 , REMLOCK+3~, REMLOCK+7*, REMLOCK+8 |
| DAYCASE | REMLOCK+3~, REMLOCK+7*, REMLOCK+8 |
| DUZ | UNLOCKRP+2 |
| ERROR | GETDATA+7~, GETDATA+11*, GETDATA+15*, GETDATA+21*, GETDATA+23 |
| >> EXAMS( | UNLOCKEM+3, UNLOCKEM+4, UNLOCKEM+5 |
| I | GETDATA+8~, GETDATA+32*, GETDATA+37*, REQFLAGS+7~, REQFLAGS+14* |
| ICT | GETDATA+8~, GETDATA+26*, GETDATA+30, GETDATA+37*, GETDATA+40*, GETDATA+45* |
| IEXAM | UNLOCKEM+1~, UNLOCKEM+2*, UNLOCKEM+3*, UNLOCKEM+4, UNLOCKEM+5 |
| ILEV | GETDATA+8~, GETDATA+36*, GETDATA+37 |
| IMGTYP | REQFLAGS+7~, REQFLAGS+11*, REQFLAGS+12 |
| JOB | REMLOCK+3~, REMLOCK+10*, REMLOCK+13 |
| LDUZ | REMLOCK+3~, REMLOCK+10*, REMLOCK+13 |
| LOCKED | REMLOCK+3~, REMLOCK+11, REMLOCK+12 |
| MELOCK | REMLOCK+3~, REMLOCK+8*, REMLOCK+9 |
| N | GETDATA+8~, GETDATA+37* |
| NLOCKS | UNLOCKEM~, UNLOCKEM+6 |
| >> PIPE | UNLOCKEM+4, UNLOCKEM+5 |
| PRINTSET | GETDATA~, GETDATA+25*, GETDATA+27, GETDATA+39 |
| PSET | GETDATA+8~, GETDATA+28 |
| PSET( | GETDATA+30 |
| PSET(0 | GETDATA+30 |
| QSTART | REMLOCK+3~, REMLOCK+4*, REMLOCK+5 |
| QVAR | REMLOCK+3~, REMLOCK+4*, REMLOCK+5*, REMLOCK+6, REMLOCK+10 |
| RACN | GETDATA+7~, GETDATA+17* |
| RACNI | GETDATA+7~, GETDATA+10*, GETDATA+17, GETDATA+31, UNLOCKEX+1~, UNLOCKEX+2*, UNLOCKEX+3 |
| RADAT | GETDATA+8~ |
| RADAT( | GETDATA+32*, GETDATA+37 |
| RADAT(1 | GETDATA+34, GETDATA+43, GETDATA+44 |
| RADFN | GETDATA+7~, GETDATA+10*, GETDATA+14, GETDATA+17, GETDATA+22, GETDATA+31, UNLOCKEX+1~, UNLOCKEX+2*, UNLOCKEX+3, UNLOCKEX+4 |
| RADTE | GETDATA+7~, GETDATA+16* |
| RADTI | GETDATA+7~, GETDATA+10*, GETDATA+14, GETDATA+16, GETDATA+17, GETDATA+22, GETDATA+31, UNLOCKEX+1~, UNLOCKEX+2*, UNLOCKEX+3 , UNLOCKEX+4 |
| RAPRTSET | GETDATA+8~, GETDATA+29 |
| RARPT | GETDATA+7~, GETDATA+10*, GETDATA+12, GETDATA+19, GETDATA+34*, GETDATA+39, UNLOCKEM+1~, UNLOCKEM+4*, UNLOCKEM+6, UNLOCKRP~ , UNLOCKRP+1, UNLOCKRP+2, REMLOCK+3~, REMLOCK+6*, REMLOCK+7, REMLOCK+11, REMLOCK+13, REMLOCK+14 |
| RAST | REQFLAGS+7~, REQFLAGS+12*, REQFLAGS+13 |
| RASTCAT | REMLOCK+3~, REMLOCK+7*, REMLOCK+8 |
| RASTORD | GETDATA+8~, GETDATA+43* |
| RCODE | UNLOCKEM~, UNLOCKEM+6, UNLOCKEM+7 |
| RET | GETDATA+7~, GETDATA+23*, GETDATA+26*, GETDATA+30*, GETDATA+37*, GETDATA+40*, GETDATA+41, GETDATA+42*, GETDATA+43*, GETDATA+45* , GETDATA+46, REQFLAGS+7~, REQFLAGS+8*, REQFLAGS+14*, REQFLAGS+15 |
| RPTSTAT | GETDATA+7~, GETDATA+38*, GETDATA+39*, GETDATA+40 |
| SETRARPT | GETDATA~, GETDATA+9*, GETDATA+12 |
| T | GETDATA+8~, GETDATA+30*, GETDATA+37*, GETDATA+41*, GETDATA+42, GETDATA+43, REQFLAGS+7~, REQFLAGS+10*, REQFLAGS+11, REQFLAGS+13* , REQFLAGS+14 |
| U | GETDATA+10, GETDATA+17, GETDATA+19, GETDATA+26, GETDATA+30, GETDATA+34, GETDATA+37, GETDATA+39, GETDATA+40, GETDATA+41 , GETDATA+42, GETDATA+43, GETDATA+44, GETDATA+45, REQFLAGS+11, REQFLAGS+14, UNLOCKEM+4, UNLOCKEM+8, UNLOCKEX+2 |
| V | GETDATA+8~ |
| V( | GETDATA+37 |
| V(1 | GETDATA+35* |
| V(2 | GETDATA+35* |
| X | GETDATA+31, GETDATA+39*, GETDATA+44*, GETDATA+45, REQFLAGS+7~, REQFLAGS+11*, UNLOCKEM+1~, UNLOCKEM+5*, UNLOCKEM+6, UNLOCKEM+8 |
