Routine: MAGVIMRA

Information

MAGVIMRA ;WOIFO/MAT,DWM,DAC - VISA Importer RA Utilities ; Dec 31, 2019@07:47:15

Package	Total	Call Graph
Imaging	1	RADLOC^MAGVIMRA
Kernel	1	$$DT^XLFDT
M XML Parser	1	($$SYMENC,$$XMLHDR)^MXMLUTL
Radiology Nuclear Medicine	1	($$ANYDX,ALERT)^RARTE7
VA FileMan	1	$$GET1^DIQ

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 5

Package	Total	Caller Graph
Imaging	5	MAGV GET RAD DX CODES MAGV GET RAD IMAGING LOCATIONS MAGV GET RAD STD RPTS MAGVIM05 MAGVIMRA

Entry Points

Name	Comments	DBIA/ICR reference
ALERT(RADFN,RADTI,RACNI,RAFIRST)	;
C()
GETRADSR(OUT)	;
GETRADDX(OUT)	; P252 DAC - Modified to exclude inactive RAD DX codes
GETRADLC(OUT)	;
RADDX(TAG1,IEN)	;
RADLOC(TAG1,IEN)	;
RADSR(TAG1,IEN)	;
STRING(TAG,STRING)	;
WPTXT(TAG,FILE,FIELD,IEN)	;
XMTAG(TAG,END)	;

External References

Name	Field # of Occurrence
$$GET1^DIQ	GETRADDX+12, GETRADLC+12, RADDX+4, RADDX+6, RADLOC+4, RADLOC+6, RADSR+3, WPTXT+6
RADLOC^MAGVIMRA	GETRADLC+13
$$SYMENC^MXMLUTL	STRING+4, WPTXT+11
$$XMLHDR^MXMLUTL	GETRADSR+4, GETRADDX+4, GETRADLC+4
$$ANYDX^RARTE7	ALERT+3
ALERT^RARTE7	ALERT+5
$$DT^XLFDT	GETRADLC+13

RPC Name	Call Tags
MAGV GET RAD DX CODES	GETRADDX
MAGV GET RAD IMAGING LOCATIONS	GETRADLC
MAGV GET RAD STD RPTS	GETRADSR

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RA(	GETRADSR+11, GETRADDX+11, GETRADLC+11
^RADPT - [#70]	ALERT+4

Label References

Name	Line Occurrences
$$C	GETRADSR+6, GETRADSR+13, GETRADDX+6, GETRADDX+16, GETRADLC+6, GETRADLC+16, RADDX+1, RADDX+3, RADDX+5, RADDX+7 , RADDX+9, RADLOC+1, RADLOC+3, RADLOC+5, RADLOC+7, RADLOC+9, RADSR+1, RADSR+2, RADSR+4, RADSR+10 , WPTXT+1, WPTXT+11, WPTXT+12
$$STRING	RADDX+3, RADDX+5, RADDX+7, RADLOC+3, RADLOC+5, RADLOC+7, RADSR+2, RADSR+4
$$XMTAG	GETRADSR+6, GETRADSR+13, GETRADDX+6, GETRADDX+16, GETRADLC+6, GETRADLC+16, RADDX+1, RADDX+9, RADLOC+1, RADLOC+9 , RADSR+1, RADSR+10, STRING+2, STRING+5, WPTXT+1, WPTXT+12
RADDX	GETRADDX+13
RADSR	GETRADSR+11
WPTXT	RADSR+7, RADSR+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
C	C, C+1, GETRADSR+2~, GETRADSR+4, GETRADDX+2~, GETRADDX+4, GETRADLC+2~, GETRADLC+4
END	XMTAG~, XMTAG+2
FIELD	WPTXT~, WPTXT+6
FILE	GETRADSR+1~, GETRADSR+11, GETRADDX+1~, GETRADDX+11, GETRADDX+12, GETRADLC+1~*, GETRADLC+11, GETRADLC+12, RADDX+4, RADDX+6 , RADLOC+4, RADLOC+6, RADSR+3, RADSR+7, RADSR+8, WPTXT~, WPTXT+6
IEN	GETRADSR+10~, GETRADSR+11, GETRADDX+10~, GETRADDX+11, GETRADDX+12, GETRADDX+13, GETRADLC+10~, GETRADLC+11*, GETRADLC+12, GETRADLC+13 , RADDX~, RADDX+3, RADDX+4, RADDX+6, RADDX+7, RADLOC~, RADLOC+3, RADLOC+4, RADLOC+6, RADSR~ , RADSR+2, RADSR+3, RADSR+7, RADSR+8, WPTXT~, WPTXT+6
INACTIVE	GETRADLC+10~, GETRADLC+12*, GETRADLC+13
ITEM	STRING+1~, STRING+2, STRING+4, STRING+5, STRING+6, WPTXT+5~, WPTXT+6
NDX	WPTXT+9~, WPTXT+10, WPTXT+11
OUT	GETRADSR~, GETRADDX~, GETRADLC~, XMTAG+1, XMTAG+2, XMTAG+3, XMTAG+4, XMTAG+5
OUT(	GETRADSR+4, GETRADSR+6, GETRADSR+13, GETRADDX+4, GETRADDX+6, GETRADDX+16, GETRADLC+4, GETRADLC+6, GETRADLC+16, RADDX+1 , RADDX+3, RADDX+5, RADDX+7, RADDX+9, RADLOC+1, RADLOC+3, RADLOC+5, RADLOC+7, RADLOC+9, RADSR+1 , RADSR+2, RADSR+4, RADSR+10, WPTXT+1, WPTXT+11, WPTXT+12
RAA1	ALERT+1~
RAA2	ALERT+1~, ALERT+3
RAAB	ALERT+6!
RACNI	ALERT~, ALERT+4
RADFN	ALERT~, ALERT+4
RADTI	ALERT~, ALERT+4
RAFIRST	ALERT~
RANY1	ALERT+1~, ALERT+2*
RANY2	ALERT+1~, ALERT+3*
RARPT	ALERT+1~, ALERT+4*
STRING	RADDX+2~, RADDX+4, RADDX+5, RADDX+6, RADLOC+2~, RADLOC+4, RADLOC+5, RADLOC+6, RADLOC+7, RADSR+3* , RADSR+4, STRING~, STRING+4
TAG	STRING~, STRING+2, STRING+5, WPTXT~, WPTXT+1, WPTXT+12, XMTAG~, XMTAG+3
TAG0	GETRADSR+5~, GETRADSR+6, GETRADSR+13, GETRADDX+5~, GETRADDX+6, GETRADDX+16, GETRADLC+5~*, GETRADLC+6, GETRADLC+16
TAG1	GETRADSR+9~, GETRADSR+11, GETRADDX+9~, GETRADDX+13, GETRADLC+9~*, GETRADLC+13, RADDX~, RADDX+1, RADDX+9, RADLOC~ , RADLOC+1, RADLOC+9, RADSR~, RADSR+1, RADSR+10
TXTERR	WPTXT+4!
TXTWP	WPTXT+4!
TXTWP(	WPTXT+11

Customize PDF page

Package: Imaging