ISIJRPT2 ; ISI/JHC - ISIRAD Report Entry functions ; 10/17/2022
Source file <ISIJRPT2.m>
| 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 | ;
|
