Routine: MAGJUTL4

Package	Total	Call Graph
Imaging	2	MAG^MAGGTSY2 GETS^MAGGTSYS
CPT HCPCS Codes	1	$$CPT^ICPTCOD
Kernel	1	$$EC^%ZOSV
VA FileMan	1	DT^DICRW

Package	Total	Caller Graph
Imaging	6	MAGJ CPTMATCH MAGJ MAGDATADUMP MAGJ RADSTATUSCHECK MAGJ REMOTESCREEN MAGJEX1 MAGJMN3

Entry Points

Name	Comments	DBIA/ICR reference
CPTGRP(MAGGRY,DATA)	; ; FOR INPUT cpt code, return matching cpt's based on grouping criteria: ; INPUT in DATA: CPT Code ^ Criteria ; Criteria: ; 1=Matching cpt ; 2=Body Part ; 3=Body Part & Modality ; 10=Same CPT (used to return short description only) ; Return: List of CPTs with Short Name: CPT ^ Short Name ; MAGGRY holds $NA reference to ^TMP for rpc return ; all ref's to MAGGRY use subscript indirection
CPTGRPZ	;
GETCPTS(INDEX,VALUE,AND,OUT)	; return a list of CPTIENS in OUT ; if array AND is defined, reply only values contained in AND & the index
BODPART(CPTIEN,DLM)	; return DLM-delimited list of body part values for this CPT
MDLLST(CPTIEN,DLM)	; return DLM-delimited list of modality values for this CPT
DATADUMP(MAGGRY,DATA)	;
DDMPROCS	;
DDMPRCPT(CPTFILIEN)	;
DDMPVLD8()	;
STATCHK(MAGGRY,DATA)	; ; This may also be accessed by subroutine call. <*> do not change name of EP ; Exam Status check RPC and subroutine: determine if the exam has been Tech-Verified (at least). ; Images are assumed to be verified if Exam Status is Examined, or higher status. ; ; Input in DATA: RADFN^RADTI^RACNI^RARPT ; Input is either RADFN, RADTI, and RACNI; or, RARPT only may be input in piece 4 ; Return: Code^Text ; 0 = Problem, or exam was cancelled ; 1 = Not yet verified ; 2 = Tech Verified ; 3 = Radiologist Verified ; 4 = User is a Radiology professional--always allow access
STATCHK2	;
STATCHKZ	;
REMSCRN(MAGGRY,DATA)	; ; Input in DATA: 1/0 1=show remote only; 0=show all exams ; Return: Reply^Code~msg ; Reply -- 0=Problem; 1=Success ; Code -- 4=Error; 1=ok ; msg -- display text if error
REMSCRNZ	;
RPT2DPT(RARPT,RET)	; Input RARPT. Return RET containing exam ss values for ^RADPT
ERR1
ERR3
ERR
END
ZRUMAMMO(CPT)	;
ZRUMDLST(MAGS)	;
ZRUPUNCT(IN,STRIP,REPL)	;
ZRUREVAN(RADFN,RADTI,RACNI)	;

Name	Field # of Occurrence
$$EC^%ZOSV	ERR1, ERR3
DT^DICRW	CPTGRP+23, DATADUMP+7, STATCHK+16, REMSCRN+9
$$CPT^ICPTCOD	CPTGRP+31, CPTGRP+55, DDMPVLD8+17, ZRUMAMMO+2
MAG^MAGGTSY2	DDMPROCS+8
GETS^MAGGTSYS	DDMPROCS+7

RPC Name	Call Tags
MAGJ RADSTATUSCHECK	STATCHK
MAGJ CPTMATCH	CPTGRP
MAGJ REMOTESCREEN	REMSCRN
MAGJ MAGDATADUMP	DATADUMP

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("ERRTN"	ERR
^DIC(81.1 - [#81.1]	ZRUMAMMO+5
^MAG(	DDMPRCPT+11, DDMPRCPT+12, DDMPRCPT+13
^MAG(2005 - [#2005]	DDMPVLD8+29, DDMPVLD8+33
^MAG(2006.67 - [#2006.67]	CPTGRP+34, BODPART+6, MDLLST+6, DDMPVLD8+18
^RA(72 - [#72]	STATCHK+24, ZRUREVAN+11
^RADPT - [#70]	DDMPVLD8+38, STATCHK+22, ZRUREVAN+4
^RADPT("ADC"	RPT2DPT+5
^RAMIS(73.1 - [#73.1]	DDMPRCPT+14
^RARPT - [#74]	DDMPVLD8+32, DDMPVLD8+39, RPT2DPT+3
^TMP($J	CPTGRP+25, DATADUMP+8
^VA(200 - [#200]	STATCHK2+2, ZRUREVAN+17

Name	Line Occurrences
$$DDMPVLD8	DATADUMP+11
$$ZRUPUNCT	DDMPRCPT+18
@(	ERR
CPTGRP	DDMPRCPT+21, DDMPRCPT+26
CPTGRPZ	CPTGRP+29, CPTGRP+30, CPTGRP+36
DDMPRCPT	DDMPROCS+6
DDMPROCS	DATADUMP+15
ERR	ERR1
GETCPTS	CPTGRP+44, CPTGRP+47, CPTGRP+49, CPTGRP+50
REMSCRNZ	REMSCRN+11
RPT2DPT	STATCHK+20
STATCHK2	STATCHK+25
STATCHKZ	STATCHK+21, STATCHK+23
ZRUMDLST	ZRUMAMMO+9

Name	Field # of Occurrence
^(	BODPART+8, MDLLST+8, RPT2DPT+3, RPT2DPT+5
^(0	STATCHK+24

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AND	CPTGRP+14~, CPTGRP+46*, CPTGRP+47, GETCPTS~, GETCPTS+5
AND(	GETCPTS+6
CNI	RPT2DPT+2~, RPT2DPT+5, RPT2DPT+6
CPT	CPTGRP+13~, DATADUMP+6~, DDMPRCPT+6, DDMPRCPT+21, DDMPRCPT+26, DDMPVLD8+17*, ZRUMAMMO~, ZRUMAMMO+2, ZRUMAMMO+14
CPTCATIEN	ZRUMAMMO+1~, ZRUMAMMO+2*, ZRUMAMMO+5
CPTFILDAT	CPTGRP+14~, CPTGRP+31, CPTGRP+32, CPTGRP+33, CPTGRP+38
CPTFILIEN	CPTGRP+14~, CPTGRP+33, CPTGRP+35, CPTGRP+39, DATADUMP+6~, DDMPROCS+6, DDMPRCPT~, DDMPRCPT+11, DDMPVLD8+17, DDMPVLD8+18
CPTGLB	CPTGRP+14~, CPTGRP+34, CPTGRP+35, CPTGRP+41, CPTGRP+44, CPTGRP+47, CPTGRP+54, GETCPTS+3, BODPART+3~, BODPART+6 , BODPART+8, MDLLST+3~, MDLLST+6*, MDLLST+8
CPTIEN	CPTGRP+14~, CPTGRP+26, CPTGRP+35, CPTGRP+36, CPTGRP+41, CPTGRP+44, CPTGRP+47, CPTGRP+49, CPTGRP+50, CPTGRP+52 , GETCPTS+2~, GETCPTS+4, GETCPTS+6, GETCPTS+7*, GETCPTS+8, BODPART~, BODPART+1, BODPART+8, MDLLST~, MDLLST+1 , MDLLST+8
CPTIN	CPTGRP+14~, CPTGRP+26*, CPTGRP+30, CPTGRP+31, CPTGRP+38, CPTGRP+39, CPTGRP+40, CPTGRP+57
CPTMAM	ZRUMAMMO+14~*
CPTNAM	DATADUMP+6~, DDMPRCPT+6, DDMPVLD8+17*
CRIT	CPTGRP+13~, CPTGRP+26, CPTGRP+28, CPTGRP+29, CPTGRP+43, CPTGRP+45, CPTGRP+48, CPTGRP+51
CT	CPTGRP+13~, CPTGRP+24, CPTGRP+38, CPTGRP+39, CPTGRP+40, CPTGRP+56, CPTGRP+57, DATADUMP+6~, DATADUMP+15, DDMPROCS+11 , DDMPROCS+12*
DATA	CPTGRP~, CPTGRP+26, CPTGRP+29, CPTGRP+30, DATADUMP~, DATADUMP+15, DATADUMP+17, DDMPVLD8+3, DDMPVLD8+4, DDMPVLD8+5 , DDMPVLD8+9, STATCHK~, STATCHK+17, STATCHK+21, STATCHK+23, REMSCRN~, REMSCRN+10, REMSCRN+11, REMSCRN+12
DFN	RPT2DPT+2~, RPT2DPT+5, RPT2DPT+6
DIQUIET	CPTGRP+13~, CPTGRP+23, DATADUMP+6~, DATADUMP+7, STATCHK+15~, STATCHK+16, REMSCRN+9~
DLM	BODPART~, BODPART+4, BODPART+5, BODPART+8, MDLLST~, MDLLST+4, MDLLST+5, MDLLST+8
DTI	RPT2DPT+2~, RPT2DPT+5, RPT2DPT+6
DUZ	STATCHK2+2, ZRUREVAN+16, ZRUREVAN+17
ERR	ERR1~, ERR3~
EXAMSTAT	ZRUREVAN+3~, ZRUREVAN+11*, ZRUREVAN+13
EXMSTSPT	ZRUREVAN+3~, ZRUREVAN+10*, ZRUREVAN+11
FN	DDMPRCPT+3~, DDMPRCPT+11*, DDMPRCPT+12
FN1	DDMPRCPT+3~, DDMPRCPT+11*, DDMPRCPT+13
GLBREF	GETCPTS+2~, GETCPTS+3*, GETCPTS+6, GETCPTS+7
GO	DDMPVLD8+8~, DDMPVLD8+15, DDMPVLD8+16, DDMPVLD8+19
IEN	CPTGRP+14~, CPTGRP+53*, CPTGRP+54
IMGIEN	DATADUMP+6~, DDMPROCS+7, DDMPROCS+8, DDMPVLD8+26, DDMPVLD8+29, DDMPVLD8+32, DDMPVLD8+33, DDMPVLD8+39
IN	ZRUPUNCT~, ZRUPUNCT+1*, ZRUPUNCT+2
INDEX	GETCPTS~, GETCPTS+3
INDXLST	CPTGRP+14~
INVALID	DATADUMP+6~, DATADUMP+11*, DATADUMP+14, DATADUMP+17
LIN	CPTGRP+54~, CPTGRP+55*, CPTGRP+56
LIST	BODPART+3~, BODPART+8, BODPART+9, MDLLST+3~, MDLLST+8, MDLLST+9
M	DDMPROCS+7!, DDMPROCS+8!, DDMPRCPT+21!, DDMPRCPT+26!
MAGGRY	CPTGRP~, CPTGRP+25!, CPTGRP+38, CPTGRP+56, CPTGRPZ+1, DATADUMP~, DATADUMP+8!, DATADUMP+16, DATADUMP+18, STATCHK~ , STATCHKZ+2, REMSCRN~, REMSCRNZ+1, ERR1, ERR3*
>> MAGJOB("REMOTESCREEN"	REMSCRN+12*
MAGLST	CPTGRP+13~, CPTGRP+24*, CPTGRP+25
MAGMDLST	ZRUMAMMO+9, ZRUMDLST+1!
MAGMDLST(	ZRUMAMMO+10, ZRUMDLST+3*
MAGS	ZRUMAMMO+9, ZRUMDLST~, ZRUMDLST+2
MAGS(	ZRUMDLST+3
MATCHGRP	CPTGRP+14~, CPTGRP+41*, CPTGRP+49
MD0	ZRUMDLST+2~, ZRUMDLST+3*
MM	DDMPROCS+13!
MM(	DDMPRCPT+6, DDMPRCPT+7, DDMPRCPT+8, DDMPRCPT+13, DDMPRCPT+14, DDMPRCPT+18, DDMPRCPT+31
MM(0	DDMPROCS+11
MM(1	DDMPRCPT+21, DDMPRCPT+22, DDMPRCPT+23*
MM(2	DDMPRCPT+26, DDMPRCPT+27, DDMPRCPT+28*
MM(3	DDMPROCS+7*
MM(4	DDMPROCS+8*
MMX	DDMPROCS+11, DDMPROCS+12, DDMPROCS+13!, DDMPRCPT+31*
MODALITY	ZRUMAMMO+8~, ZRUMAMMO+10*
NDX	DDMPRCPT+3~, DDMPRCPT+11*, DDMPRCPT+12
NOD	CPTGRP+13~, BODPART+7, BODPART+8, MDLLST+7, MDLLST+8, DDMPRCPT+3~, DDMPRCPT+12*, DDMPRCPT+13, DDMPRCPT+14
NODLST	CPTGRP+13~
ORDER	STATCHK+14~, STATCHK+24*, STATCHK+28, STATCHK+29, STATCHK+30
OUT	GETCPTS~
OUT(	GETCPTS+6, GETCPTS+8
PARAM1	DATADUMP+6~, DDMPROCS+7, DDMPVLD8+9, DDMPVLD8+16, DDMPVLD8+17, DDMPVLD8+23
PARAM2	DATADUMP+6~, DDMPVLD8+9*, DDMPVLD8+29, DDMPVLD8+32, DDMPVLD8+36
RACNI	DDMPVLD8+8~, DDMPVLD8+36, DDMPVLD8+37, DDMPVLD8+38, STATCHK+15~, STATCHK+17, STATCHK+19, STATCHK+20*, STATCHK+22, ZRUREVAN~ , ZRUREVAN+4
RADFN	DDMPVLD8+8~, DDMPVLD8+36, DDMPVLD8+37, DDMPVLD8+38, STATCHK+15~, STATCHK+17, STATCHK+19, STATCHK+20*, STATCHK+22, ZRUREVAN~ , ZRUREVAN+4
RADNOD	ZRUREVAN+3~, ZRUREVAN+4*, ZRUREVAN+5, ZRUREVAN+8, ZRUREVAN+9, ZRUREVAN+10
RADTI	DDMPVLD8+8~, DDMPVLD8+36, DDMPVLD8+37, DDMPVLD8+38, STATCHK+15~, STATCHK+17, STATCHK+19, STATCHK+20*, STATCHK+22, ZRUREVAN~ , ZRUREVAN+4
RARPT	DDMPVLD8+8~, DDMPVLD8+32, DDMPVLD8+38, DDMPVLD8+39, STATCHK+15~, STATCHK+17*, STATCHK+20, RPT2DPT~, RPT2DPT+3
REPL	ZRUPUNCT~, ZRUPUNCT+1, ZRUPUNCT+2
REPLY	CPTGRP+13~, CPTGRP+27, CPTGRP+29, CPTGRP+30, CPTGRP+39, CPTGRP+40, CPTGRP+57, CPTGRPZ+1, DATADUMP+15, DATADUMP+17 , DATADUMP+18, DDMPROCS+3, DDMPVLD8+8, STATCHK+14~, STATCHK+18, STATCHK+21, STATCHK+23, STATCHK+29, STATCHKZ+1, STATCHKZ+2 , REMSCRN+8~, REMSCRN+11, REMSCRN+12*, REMSCRNZ+1
REQUEST	DATADUMP+6~, DDMPROCS+6, DDMPROCS+7, DDMPROCS+8, DDMPVLD8+9*, DDMPVLD8+12, DDMPVLD8+15, DDMPVLD8+23, DDMPVLD8+26
RET	CPTGRP+14~, CPTGRP+44, CPTGRP+46!, CPTGRP+47, CPTGRP+49, CPTGRP+50, RPT2DPT~, RPT2DPT+6, RPT2DPT+7
RET(	CPTGRP+49, CPTGRP+52, CPTGRP+53
RIST1	ZRUREVAN+3~, ZRUREVAN+8*, ZRUREVAN+16, ZRUREVAN+17
RIST2	ZRUREVAN+3~, ZRUREVAN+9*, ZRUREVAN+16
SS	DDMPRCPT+3~, DDMPRCPT+18*
STATUS	STATCHK+14~, STATCHK+22*, STATCHK+23, STATCHK+24
STOUT	STATCHK+14~, STATCHK+18, STATCHK+25, STATCHK+26, STATCHK+27, STATCHK+28, STATCHK+30, STATCHK2+1, STATCHK2+2, STATCHKZ+1
STRIP	ZRUPUNCT~, ZRUPUNCT+1
TCPT	CPTGRP+14~, CPTGRP+55*
U	CPTGRP+26, CPTGRP+33, CPTGRP+38, CPTGRP+39, CPTGRP+40, CPTGRP+41, CPTGRP+55, CPTGRP+57, BODPART+8, MDLLST+8 , DATADUMP+15, DDMPRCPT+14, DDMPVLD8+9, DDMPVLD8+12, DDMPVLD8+17, DDMPVLD8+32, DDMPVLD8+36, DDMPVLD8+38, STATCHK+17, STATCHK+20 , STATCHK+22, STATCHK+24, STATCHKZ+1, RPT2DPT+4, RPT2DPT+6, ZRUMAMMO+2, ZRUMAMMO+5, ZRUMDLST+3, ZRUREVAN+8, ZRUREVAN+9 , ZRUREVAN+10, ZRUREVAN+11
VALUE	GETCPTS~, GETCPTS+3
VCAT	STATCHK+14~, STATCHK+24*, STATCHK+25, STATCHK+26, STATCHK+27
X	CPTGRP+41, CPTGRP+44, CPTGRP+46, CPTGRP+47, CPTGRP+54, CPTGRP+55, GETCPTS+2~, BODPART+8, MDLLST+8, DDMPRCPT+3~ , DDMPVLD8+17, STATCHK+20, STATCHK2+2, RPT2DPT+3, RPT2DPT+4, RPT2DPT+5, ZRUMDLST+2~*, ZRUMDLST+3
XMM	DATADUMP+16!
XMM(	DDMPROCS+12*
YN	ZRUMAMMO+1~, ZRUMAMMO+2, ZRUMAMMO+5, ZRUMAMMO+9, ZRUMAMMO+10, ZRUMAMMO+14, ZRUMAMMO+15, ZRUREVAN+3~, ZRUREVAN+4, ZRUREVAN+5 , ZRUREVAN+16, ZRUREVAN+17, ZRUREVAN+19

Customize PDF page

Package: Imaging

Routine: MAGJUTL4

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Used in RPC

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: