Routine: ISIJRPT

Package	Total	Call Graph
Imaging	2	$$CHKLOCK^MAGJLS2B ($$DAYCASE,$$DAYCASE3)^MAGJUTL6
Vendor - ISI	2	RPTSTAT^ISIJDCU1 ($$GETDATA,UNLOCKEM,UNLOCKEX,UNLOCKRP)^ISIJRPT2
Kernel	1	$$EC^%ZOSV
VA FileMan	1	DT^DICRW

Package	Total	Caller Graph
Vendor - ISI	3	ISIJ LOCK REPORT ISIJ REPORT ENTER ISIJRPT2

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	;

Name	Field # of Occurrence
$$EC^%ZOSV	ERR+1
DT^DICRW	RPTOPEN+30, RPTLOCK+23
RPTSTAT^ISIJDCU1	RPTOPEN+127
$$GETDATA^ISIJRPT2	RPTOPEN+51, RPTOPEN+75, RPTLOCK+45
UNLOCKEM^ISIJRPT2	RPTLOCKZ+2
UNLOCKEX^ISIJRPT2	RPTLOCK+64, RPTLOCK+117
UNLOCKRP^ISIJRPT2	RPTLOCK+63
$$CHKLOCK^MAGJLS2B	LOCKCHK+5
$$DAYCASE^MAGJUTL6	RPTOPEN+72
$$DAYCASE3^MAGJUTL6	RPTOPEN+74

RPC Name	Call Tags
ISIJ REPORT ENTER	RPTOPEN
ISIJ LOCK REPORT	RPTLOCK

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("ERRTN"	ERR+2
^MAG(2006.69 - [#2006.69]	READYINT+6
^RADPT - [#70]	RPTOPEN+31, RPTLOCK+24, LOCKEX+8
^RARPT - [#74]	LOCKRPT+4, LOCKCHK+9, LOCKCHK+10
^TMP("RAD LOCKS"	LOCKRPT+6*, LOCKCHK+11
^TMP($J	RPTOPEN+29, RPTLOCK+22

Name	Line Occurrences
$$LOCKCHK	RPTOPEN+86, RPTLOCK+62, RPTLOCK+102
$$ONELINE	RPTOPEN+119, RPTOPEN+123
@(	ERR+2
LOCKEX	RPTLOCK+111
LOCKRPT	RPTLOCK+114
RPTLOCKZ	RPTLOCK+25, RPTLOCK+27, RPTLOCK+29, RPTLOCK+31, RPTLOCK+36, RPTLOCK+42, RPTLOCK+51, RPTLOCK+77, RPTLOCK+81, RPTLOCK+92 , RPTLOCK+94, RPTLOCK+99, RPTLOCK+107
RPTOPENZ	RPTOPEN+32, RPTOPEN+37, RPTOPEN+41, RPTOPEN+46, RPTOPEN+79, RPTOPEN+105, RPTOPEN+126

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTIVE	RPTOPEN+24~, RPTOPEN+94, RPTOPEN+95, RPTOPEN+96, RPTOPEN+97, RPTOPEN+98, RPTOPEN+100, ONELINE+2~, ONELINE+4, ONELINE+6 , ONELINE+7*, ONELINE+10, ONELINE+12, ONELINE+14, RPTLOCK+16~
CASEID	RPTOPEN+22~, RPTOPEN+41, RPTOPEN+42, RPTOPEN+43, RPTOPEN+50, RPTOPEN+51, RPTOPEN+52, RPTOPEN+80, RPTOPEN+86, RPTOPEN+101 , RPTLOCK+14~, RPTLOCK+36, RPTLOCK+37, RPTLOCK+38, RPTLOCK+42, RPTLOCK+43, RPTLOCK+45, RPTLOCK+47, RPTLOCK+48, RPTLOCK+52 , RPTLOCK+62, RPTLOCK+64, RPTLOCK+100, RPTLOCK+102, RPTLOCK+108, RPTLOCK+111, RPTLOCK+117, LOCKEX~, LOCKEX+7, LOCKCHK~ , LOCKCHK+3
CREATRPT	RPTLOCK+18~, RPTLOCK+43, RPTLOCK+44, RPTLOCK+45, RPTLOCK+48
CT	RPTOPEN+111~, RPTLOCK+17~
CT(	RPTOPEN+113, RPTLOCK+83
CT(1	RPTOPEN+114, RPTLOCK+84
DAYCASE	RPTOPEN+22~, RPTOPEN+69, RPTOPEN+73, RPTOPEN+81, RPTOPEN+86, RPTLOCK+14~, RPTLOCK+55, RPTLOCK+62, RPTLOCK+101, RPTLOCK+102 , LOCKCHK~, LOCKCHK+5
DIQUIET	RPTOPEN+30~, RPTLOCK+23~
DUZ	LOCKRPT+6, LOCKCHK+11
EDITFLAG	RPTOPEN+24~, RPTOPEN+94, RPTOPEN+95, RPTOPEN+96, RPTOPEN+97, RPTOPEN+98, RPTOPEN+100, RPTOPEN+101, ONELINE+2~, ONELINE+4 , ONELINE+13, RPTLOCK+16~
ERR	ERR+1~*
EXAM	ONELINE~, ONELINE+4, ONELINE+5, ONELINE+10
EXAMS	RPTOPEN+24~, RPTLOCK+16~
EXAMS(	RPTOPEN+43, RPTOPEN+50, RPTOPEN+51, RPTOPEN+52, RPTOPEN+60, RPTOPEN+61!, RPTOPEN+66, RPTOPEN+67, RPTOPEN+68, RPTOPEN+70 , RPTOPEN+75, RPTOPEN+79, RPTOPEN+80, RPTOPEN+100, RPTOPEN+112, RPTOPEN+113, RPTOPEN+118, RPTOPEN+119, RPTOPEN+120, RPTOPEN+123 , RPTLOCK+38, RPTLOCK+42, RPTLOCK+47, RPTLOCK+48, RPTLOCK+71, RPTLOCK+72!, RPTLOCK+81, RPTLOCK+82, RPTLOCK+99, RPTLOCK+100 , RPTLOCK+101, RPTLOCK+107, RPTLOCK+108, RPTLOCK+110, RPTLOCK+115
EXAMS(1	RPTOPEN+40, RPTLOCK+35, RPTLOCK+52, RPTLOCK+55
FIELD	READYINT+4~, READYINT+10*, READYINT+11, READYINT+12
FILE	READYINT+4~, READYINT+9*, READYINT+10
GETRPT	RPTOPEN+25~, RPTOPEN+78, RPTOPEN+101, RPTOPEN+126, RPTOPEN+127, RPTLOCK+17~
>> I	RPTOPEN+73, RPTOPEN+106, RPTOPEN+107
ICT	RPTOPEN+25~, RPTOPEN+121*, RPTOPEN+122, RPTOPEN+123, RPTLOCK+17~
IEXAM	RPTOPEN+24~, RPTOPEN+41, RPTOPEN+43, RPTOPEN+44, RPTOPEN+50, RPTOPEN+51, RPTOPEN+52, RPTOPEN+60, RPTOPEN+61, RPTOPEN+62 , RPTOPEN+65, RPTOPEN+66, RPTOPEN+67, RPTOPEN+68, RPTOPEN+70, RPTOPEN+75, RPTOPEN+78, RPTOPEN+79, RPTOPEN+80, RPTOPEN+100 , RPTOPEN+111, RPTOPEN+112, RPTOPEN+113, RPTOPEN+117, RPTOPEN+118, RPTOPEN+119, RPTOPEN+120, RPTOPEN+123, RPTLOCK+16~, RPTLOCK+36 , RPTLOCK+38, RPTLOCK+39, RPTLOCK+42, RPTLOCK+47, RPTLOCK+48, RPTLOCK+71, RPTLOCK+72, RPTLOCK+73, RPTLOCK+80, RPTLOCK+81 , RPTLOCK+82, RPTLOCK+98, RPTLOCK+99, RPTLOCK+100, RPTLOCK+101, RPTLOCK+106, RPTLOCK+107, RPTLOCK+108, RPTLOCK+110, RPTLOCK+115
IMGTYP	READYINT~, READYINT+7
LINE	ONELINE+1~, ONELINE+6, ONELINE+8, ONELINE+9, ONELINE+11, ONELINE+12, ONELINE+13, ONELINE+14*, ONELINE+15
LINECT	RPTOPEN+25~, RPTOPEN+26, RPTOPEN+119, RPTOPEN+122, RPTOPEN+123, RPTOPEN+127, RPTOPEN+129, RPTOPEN+130, RPTOPENZ+1, RPTLOCK+17~
LOCKED	RPTLOCK+17~, RPTLOCK+114, RPTLOCK+115, LOCKRPT~, LOCKRPT+1, LOCKRPT+7, LOCKEX~, LOCKEX+4, LOCKEX+6, LOCKEX+9* , LOCKEX+10*
LOCKEDEX	RPTLOCK+18~, RPTLOCK+109, RPTLOCK+111, RPTLOCK+112
LOCKSTAT	RPTOPEN+84~, RPTOPEN+85, RPTOPEN+86, RPTOPEN+87, RPTOPEN+89, RPTOPEN+90
LTYPE	RPTOPEN+84~, RPTOPEN+85*, RPTOPEN+89, RPTOPEN+90
MAGGRY	ERR+1, RPTOPEN~, RPTOPEN+29, RPTOPENZ+1, RPTOPENZ+2, RPTLOCK~, RPTLOCK+22, RPTLOCKZ+3
>> MAGJOB("USER"	RPTOPEN+36, RPTLOCK+76, LOCKRPT+6
MAGLST	RPTOPEN+22~, RPTOPEN+29, RPTLOCK+14~, RPTLOCK+22
NEXAMS	RPTOPEN+24~, RPTOPEN+44, RPTOPEN+46, RPTOPEN+50, RPTOPEN+59, RPTOPEN+60, RPTOPEN+61, RPTOPEN+105, RPTLOCK+16~, RPTLOCK+39* , RPTLOCK+42, RPTLOCK+70, RPTLOCK+71, RPTLOCK+72*
NLOCKS	RPTLOCK+16~, RPTLOCK+20, RPTLOCK+115, RPTLOCK+119, RPTLOCKZ+2
OK	LOCKCHK+2~, LOCKCHK+3, LOCKCHK+6, LOCKCHK+7, LOCKCHK+11, LOCKCHK+12, LOCKCHK+13, LOCKCHK+14
OUT	RPTOPEN+25~, RPTOPEN+130*, RPTOPENZ+1, RPTLOCK+17~
OUT(	RPTOPEN+119, RPTOPEN+122, RPTOPEN+123*
PARAMS	RPTOPEN~, RPTOPEN+28, RPTOPEN+32, RPTOPEN+37, RPTOPEN+40, RPTOPEN+41, RPTOPEN+42, RPTOPEN+47, RPTOPEN+93, RPTOPEN+99 , RPTOPEN+107, RPTOPEN+108, RPTOPEN+114, RPTOPEN+129, RPTLOCK~, RPTLOCK+21, RPTLOCK+25, RPTLOCK+27, RPTLOCK+30, RPTLOCK+31 , RPTLOCK+35, RPTLOCK+36, RPTLOCK+37, RPTLOCK+54, RPTLOCK+58, RPTLOCK+61, RPTLOCK+66, RPTLOCK+77, RPTLOCK+84, RPTLOCK+86 , RPTLOCK+88, RPTLOCK+90, RPTLOCK+93, RPTLOCK+95, RPTLOCK+103
PIPE	RPTOPEN+22~, RPTOPEN+27, RPTOPEN+40, RPTOPEN+41, RPTOPEN+50, RPTOPEN+51, RPTOPEN+52, RPTOPEN+60, RPTOPEN+70, RPTOPEN+80 , RPTOPEN+100, RPTOPEN+113, RPTOPEN+122, ONELINE+4, ONELINE+5, ONELINE+10, ONELINE+11, RPTLOCK+14~, RPTLOCK+19, RPTLOCK+30 , RPTLOCK+35, RPTLOCK+36, RPTLOCK+42, RPTLOCK+47, RPTLOCK+48, RPTLOCK+52, RPTLOCK+55, RPTLOCK+71, RPTLOCK+82, RPTLOCK+100 , RPTLOCK+101, RPTLOCK+108, RPTLOCK+110, RPTLOCK+115
PSETCT	RPTOPEN+24~, RPTOPEN+67, RPTOPEN+75, RPTOPEN+120*, RPTOPEN+121, RPTLOCK+16~
PSETS	RPTOPEN+24~, RPTOPEN+72*, RPTOPEN+73, RPTLOCK+16~
PSETS(	RPTOPEN+61, RPTOPEN+62, RPTLOCK+72, RPTLOCK+73
RACNI	RPTOPEN+23~, RPTOPEN+28, RPTOPEN+31, RPTOPEN+71, RPTOPEN+72, RPTLOCK+15~, RPTLOCK+21, RPTLOCK+24, LOCKEX+3~, LOCKEX+7 , LOCKEX+8
RADFN	RPTOPEN+23~, RPTOPEN+28, RPTOPEN+31, RPTOPEN+42, RPTOPEN+71, RPTOPEN+72, RPTLOCK+15~, RPTLOCK+21, RPTLOCK+24, RPTLOCK+37 , LOCKEX+3~, LOCKEX+7, LOCKEX+8
RADTI	RPTOPEN+23~, RPTOPEN+28, RPTOPEN+31, RPTOPEN+71, RPTOPEN+72, RPTLOCK+15~, RPTLOCK+21, RPTLOCK+24, LOCKEX+3~, LOCKEX+7 , LOCKEX+8
RARPT	RPTOPEN+23~, RPTLOCK+15~, RPTLOCK+43, RPTLOCK+44, RPTLOCK+52, RPTLOCK+53, RPTLOCK+63, RPTLOCK+108, RPTLOCK+114, LOCKRPT~ , LOCKRPT+2, LOCKRPT+4, LOCKRPT+6, LOCKCHK+2~, LOCKCHK+3, LOCKCHK+5, LOCKCHK+9, LOCKCHK+10, LOCKCHK+11
RASTCAT	RPTOPEN+23~, RPTOPEN+81, RPTOPEN+85, RPTOPEN+86, RPTOPEN+87, RPTOPEN+92, RPTOPEN+93, RPTOPEN+94, RPTOPEN+95, RPTOPEN+96 , RPTOPEN+97, RPTOPEN+98, RPTOPEN+99, RPTOPEN+106, RPTLOCK+15~, RPTLOCK+55, RPTLOCK+56, RPTLOCK+59, RPTLOCK+62, RPTLOCK+65 , RPTLOCK+66, RPTLOCK+82, RPTLOCK+85, RPTLOCK+87, RPTLOCK+90, RPTLOCK+91, RPTLOCK+101, RPTLOCK+102, RPTLOCK+103, RPTLOCK+110 , RPTLOCK+111, LOCKEX~, LOCKEX+5, LOCKCHK~, LOCKCHK+4, LOCKCHK+8
RASTORD	RPTOPEN+23~, RPTLOCK+15~
RCODE	RPTLOCK+18~, RPTLOCK+28*, RPTLOCK+64, RPTLOCK+109, RPTLOCK+117, RPTLOCKZ+2
REPLY	RPTOPEN+22~, RPTOPEN+26, RPTOPEN+32, RPTOPEN+37, RPTOPEN+41, RPTOPEN+42, RPTOPEN+46, RPTOPEN+47, RPTOPEN+79, RPTOPEN+83 , RPTOPEN+89, RPTOPEN+90, RPTOPEN+93, RPTOPEN+99, RPTOPEN+105, RPTOPEN+107, RPTOPEN+108, RPTOPEN+110, RPTOPEN+112, RPTOPEN+114 , RPTOPEN+126, RPTOPEN+128, RPTOPEN+129, RPTOPENZ+1, RPTOPENZ+2, RPTLOCK+14~, RPTLOCK+20, RPTLOCK+25, RPTLOCK+27, RPTLOCK+29 , RPTLOCK+31, RPTLOCK+36, RPTLOCK+37, RPTLOCK+42, RPTLOCK+46, RPTLOCK+54, RPTLOCK+56, RPTLOCK+58, RPTLOCK+59, RPTLOCK+61* , RPTLOCK+65, RPTLOCK+66, RPTLOCK+77, RPTLOCK+81, RPTLOCK+84, RPTLOCK+86, RPTLOCK+87, RPTLOCK+88, RPTLOCK+89, RPTLOCK+90* , RPTLOCK+93, RPTLOCK+95, RPTLOCK+99, RPTLOCK+103, RPTLOCK+107, RPTLOCK+113, RPTLOCK+118, RPTLOCK+119, RPTLOCKZ+1, RPTLOCKZ+3 , READYINT+4~, READYINT+5, READYINT+11, READYINT+12*, READYINT+13
REQFLAGS	RPTOPEN+23~, RPTOPEN+26, RPTOPEN+102, RPTOPEN+119, ONELINE~, ONELINE+3*, ONELINE+13
REQFLG	RPTOPEN+23~, RPTOPEN+81*, RPTOPEN+102
RPTSTAT	RPTOPEN+25~, RPTOPEN+81, RPTOPEN+96, RPTOPEN+113, RPTLOCK+17~, RPTLOCK+82*, RPTLOCK+83
STATCT	RPTOPEN+25~, RPTLOCK+17~
STATCT(	RPTOPEN+92, RPTOPEN+106, RPTLOCK+91
STATCT("C"	RPTOPEN+108, RPTLOCK+92
STATCT("E"	RPTOPEN+109
STATCT("I"	RPTOPEN+110, RPTLOCK+92, RPTLOCK+94
STATCT("R"	RPTLOCK+92, RPTLOCK+94
T	RPTOPEN+60, RPTOPEN+61, RPTOPEN+62, RPTOPEN+68, RPTOPEN+69, RPTOPEN+70, RPTOPEN+71, RPTOPEN+73, RPTOPEN+74, RPTOPEN+113* , ONELINE+1~, ONELINE+4, ONELINE+9, ONELINE+10, ONELINE+11, RPTLOCK+48, RPTLOCK+71, RPTLOCK+72, RPTLOCK+73, RPTLOCK+83 , RPTLOCK+102*, RPTLOCK+103
TXID	RPTOPEN+22~, RPTOPEN+28, RPTOPEN+35, RPTOPEN+47, RPTOPEN+86, RPTOPEN+87, RPTOPEN+94, RPTOPEN+95, RPTOPEN+96, RPTOPEN+97 , RPTOPEN+98, RPTOPEN+99, RPTLOCK+14~, RPTLOCK+21, RPTLOCK+26, RPTLOCK+28, RPTLOCK+29, RPTLOCK+44, RPTLOCK+51, RPTLOCK+57 , RPTLOCK+60, RPTLOCK+88, RPTLOCK+89
TXTYPE	RPTOPEN+25~, RPTOPEN+26, RPTOPEN+94, RPTOPEN+95, RPTOPEN+96, RPTOPEN+97, RPTOPEN+98, RPTOPENZ+1
U	RPTOPEN+28, RPTOPEN+40, RPTOPEN+69, RPTOPEN+71, RPTOPEN+73, RPTOPEN+81, RPTOPEN+100, RPTOPEN+113, RPTOPEN+122, RPTOPEN+128 , RPTOPENZ+1, ONELINE+4, ONELINE+8, ONELINE+9, ONELINE+12, ONELINE+13, ONELINE+14, RPTLOCK+21, RPTLOCK+35, RPTLOCK+43 , RPTLOCK+46, RPTLOCK+48, RPTLOCK+52, RPTLOCK+55, RPTLOCK+82, RPTLOCK+101, RPTLOCK+108, RPTLOCK+110, RPTLOCK+115, LOCKRPT+6 , LOCKEX+6, LOCKEX+7, LOCKEX+10, LOCKCHK+3, LOCKCHK+6, LOCKCHK+7, READYINT+6, READYINT+8, READYINT+12
VALUE	READYINT+4~, READYINT+9*, READYINT+11, READYINT+12
X	RPTOPEN+60, RPTOPEN+74, RPTOPEN+75, RPTOPEN+80, RPTOPEN+81, ONELINE+1~, ONELINE+5, ONELINE+8, ONELINE+9, ONELINE+14 , RPTLOCK+30, RPTLOCK+45, RPTLOCK+46, RPTLOCK+47, RPTLOCK+55, RPTLOCK+71, RPTLOCK+82, RPTLOCK+101, RPTLOCK+110, LOCKCHK+5* , LOCKCHK+6, LOCKCHK+7, READYINT+4~, READYINT+6, READYINT+7, READYINT+8, READYINT+9
ZJ	RPTOPEN+127~, RPTOPEN+130
ZJ(0	RPTOPEN+128, RPTOPEN+129, RPTOPEN+130!

Customize PDF page

Package: Vendor - ISI

Routine: ISIJRPT

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Used in RPC

Global Variables Directly Accessed

Label References

Local Variables

Legend: