Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Used in RPC
Print Page as PDF
Routine: ISIJRPT

Package: Vendor - ISI

Routine: ISIJRPT


Information

ISIJRPT ; ISI/JHC - ISIRAD Report Entry functions ; 10/17/2022

Source Information

Source file <ISIJRPT.m>

Entry Points

Name Comments DBIA/ICR reference
ERR ;
RPTOPEN(MAGGRY,PARAMS) ;
; PARAMS: TXID ^ CASEID [ | CASEID-2 | etc. ] -- (one or more Cases accepted for input)
; TXID: 0: View only; 1: EDIT report; 2: AMEND report
; CASEID: RADFN ^ RADTI ^ RACNI ^ RARPT ("normal" identifier for VistARad)
; Reply message:
; # Lines to follow (0-n) ^ Reply Code ~ Reply display text
; Reply Code- 0-Normal; 3-Abnormal; 4-Error
; Exams List:
; Text | Case ID | "Active" flag ^ DX Code flag ^ Required elements flag ^ Case # ^ CPT ^ Procedure
; Report data follows (for Amend pathway & Edit Draft pathways):
; *REPORT Start for REPORT
; (1:N lines of text follow)
; *REPORT_END End
; *IMPRESSION Start
; (1:N lines of text follow)
; *IMPRESSION_END end
; *DXCODE Start
; Code ^ Text (1:N lines of follow)
; *DXCODE_END end
RPTOPENZ ;
ONELINE(EXAM,REQFLAGS) ; Format output lines--details at rpc entry point
RPTLOCK(MAGGRY,PARAMS) ; Lock or UNlock exams
; Locks done here are solely for exams in status "I" or "C"
; PARAMS: TXID ^ CASEID [ | CASEID-2 | etc. ] -- (one or more Cases accepted for LOCK)
; TXID: 1: Lock (1 or more OK); 0: Unlock (UNLOCK only one at a time)
; 11: Lock (1 or more OK); 10: Unlock ( ditto )
; * 11 & 10 apply only to Status Code "R" exams
; CASEID: RADFN ^ RADTI ^ RACNI ^ RARPT ("normal" identifier for VistARad)
; Reply message:
; Reply Code ~ Reply display text
; Reply Code: 0-Normal; 3-Abnormal; 4-Error
; Note re TXID=11--this locks exams of vistarad category "R", which normally
; have no images when initiating the report, and therefore no RARPT entry yet
; the pre-processing detects this state, and calls ^raric to create it
RPTLOCKZ ;
LOCKRPT(RARPT,LOCKED) ; for input rarpt, return success/fail for lock attempt
LOCKEX(CASEID,RASTCAT,LOCKED) ; for input caseid, return success/fail for lock attempt
; 1) Lock the Exam level--this will persist for the report entry session (protects Tech field update)
; Return: Lock successful 0/1
LOCKCHK(CASEID,RASTCAT,DAYCASE) ; does current user have a lock?
; Return: 1=Locked by me; nil=not locked; INI[:R] or Text=Locked/Reserved by other
READYINT(IMGTYP) ; "Ready for Interpretation" feature enabled? -- P106 enhancement
; --> If is enabled for input Type of Imaging, returns field # & data value to stuff into Exam Record
; current (perhaps only) user is RTT: called by ISIRAD03
;
END ;

Used in RPC

RPC Name Call Tags
ISIJ REPORT ENTER RPTOPEN
ISIJ LOCK REPORT RPTLOCK
Info |  Source |  Entry Points |  Used in RPC