Routine: MAGJRPT

Package	Total	Call Graph
Radiology Nuclear Medicine	5	EN3^RAO7PC3 ^RAORD5 (PHARM,RDIO)^RARTUTL SVTCOM^RAUTL11 EN2^RAUTL20
Kernel	4	^%ZIS ^%ZISC $$EC^%ZOSV ($$FMTE,$$NOW)^XLFDT
Imaging	2	$$PNAM^MAGJEX1 GETEXAM2^MAGJUTL1
Uncategorized	1	DOCTEXT^BEHOTIU
Vendor - ISI	1	(NOTE,STATUS)^ISIJNOTE

Package	Total	Caller Graph
Imaging	4	MAGJ EXAM REPORT MAGJ RADORDERDISP MAGJEX1 MAGJORD

Entry Points

Name	Comments	DBIA/ICR reference
ORD(MAGRPTY,DATA)	; Radiology Order Display ; RPC Call: MAGJ RADORDERDISP ; MAGRPTY holds indirect reference to returned data ;
ORDZ
CLEANUP(MAGRPTY)	; strip extraneous lines of dashes ; ISI new subrtn
COMMENTS(RADFN,RADTI,RACNI,MAGRPTY,DNODE,COMPLIC,MEDS,RDIOPHARM)	; add Complications & Tech Comments to output report ; Add Medications and Radiopharmaceuticals information to output ; RADFN, RADTI, & RACNI identify exam ; MAGRPTY is indirect reference wher output lines are to be stored ; DNODE holds reference for starting node for lines of output ; COMPLIC passes in complications data reference ; MEDS passes in Medications indicator ; RDIOPHARM passes in Radiopharmaceuticals reference
PHARMAS(TITLE,NODE)	; output lines of pharma data
NOTEDISP(NOTES,MAGRPTY,DNODE)	; output notes ; ISI new subrtn
TIUNOTE(RARPT,MAGRPTY,DNODE)	; FUT-70/IHS append Rad TIU Notes to report ; 1/2011--only works at IHS where TIU notes may exist for Radiology exams ; test for this by presence of DOCTEXT^BEHOTIU ; RARPT--exam pointer ; MAGRPTY--indirect reference to output file ; DNODE--starting node for lines of output
OPENDEV	;
RADRPT(MAGRPTY,DATA)	; Display rad report; 1st must pass integrity checks ; Note: adds an additional line of output for the Report Window header ; RPC is MAGJ EXAM REPORT
RPTZ
CKINTEG(REPLY,RADFN,RADTI,RACNI,RARPT,RADATA)	; check integrity between Exam, Report, and Image Group Headers ; This subroutine is used by other vrad programs
CK2
ERR	;
END	;

Name	Field # of Occurrence
^%ZIS	OPENDEV+2
^%ZISC	ORD+31
$$EC^%ZOSV	ERR+1
DOCTEXT^BEHOTIU	TIUNOTE+8, TIUNOTE+9
NOTE^ISIJNOTE	COMMENTS+14
STATUS^ISIJNOTE	COMMENTS+10
$$PNAM^MAGJEX1	CK2+2, CK2+3, CK2+4
GETEXAM2^MAGJUTL1	ORD+21, RADRPT+13
EN3^RAO7PC3	RADRPT+21
^RAORD5	ORD+29
PHARM^RARTUTL	COMMENTS+38
RDIO^RARTUTL	COMMENTS+45
SVTCOM^RAUTL11	COMMENTS+23
EN2^RAUTL20	CKINTEG+11
$$FMTE^XLFDT	RADRPT+29
$$NOW^XLFDT	RADRPT+29

RPC Name	Call Tags
MAGJ RADORDERDISP	ORD
MAGJ EXAM REPORT	RADRPT

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("ERRTN"	ERR+2
^MAG(2005 - [#2005]	CKINTEG+17, CKINTEG+18
^RA(78.1 - [#78.1]	COMMENTS+20
^RADPT - [#70]	ORD+16, COMMENTS+22
^RAO(75.1 - [#75.1]	ORD+17
^RARPT - [#74]	CKINTEG+6, CKINTEG+15, CKINTEG+16
^TMP($J	ORD+4, ORD+22, ORD+37!, COMMENTS+23!, COMMENTS+31!, COMMENTS+34!, COMMENTS+42!, COMMENTS+50!, PHARMAS+2, PHARMAS+6 , RADRPT+6, RADRPT+14, RADRPT+22, RADRPT+24, RADRPT+25, RADRPT+27, RPTZ+2!
^VA(200 - [#200]	COMMENTS+18

Name	Line Occurrences
@(	ERR+2
CK2	CKINTEG+5, CKINTEG+15
CKINTEG	ORD+27, RADRPT+19
CLEANUP	ORD+33
COMMENTS	ORD+34, RADRPT+23
NOTEDISP	COMMENTS+15
OPENDEV	ORD+10
ORDZ	ORD+11, ORD+15, ORD+18, ORD+27
PHARMAS	COMMENTS+39, COMMENTS+46
RPTZ	RADRPT+11, RADRPT+20, RADRPT+22
TIUNOTE	ORD+35, RADRPT+30

Name	Field # of Occurrence
^(	CLEANUP+2, CKINTEG+16
^("RAE2"	ORD+37!
^("RAE3"	RPTZ+2!
^(2	ORD+22, RADRPT+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	OPENDEV+1~, OPENDEV+2*
ACN	CKINTEG+10~
CKACN	CKINTEG+3~, CKINTEG+6*, CKINTEG+9, CKINTEG+13, CKINTEG+14
CKDFN	CKINTEG+3~, CKINTEG+6*, CKINTEG+7
COMPLIC	ORD+7~, ORD+23, ORD+34, COMMENTS~, COMMENTS+20, COMMENTS+21, RADRPT+8~, RADRPT+15, RADRPT+23
CT	COMMENTS+9~, COMMENTS+12, COMMENTS+13, COMMENTS+20, COMMENTS+22, COMMENTS+30, COMMENTS+48, COMMENTS+49, PHARMAS+3, PHARMAS+4 , PHARMAS+5, PHARMAS+7, TIUNOTE+7~, TIUNOTE+11, TIUNOTE+13
DATA	ORD~, ORD+12, ORD+13, RADRPT~, RADRPT+10
DFN	ORD+7~
DNODE	COMMENTS~, COMMENTS+12, COMMENTS+13, COMMENTS+20, COMMENTS+22, COMMENTS+30, COMMENTS+48, COMMENTS+49, PHARMAS+3, PHARMAS+4 , PHARMAS+5, PHARMAS+7, NOTEDISP~, NOTEDISP+2, NOTEDISP+3, NOTEDISP+4, NOTEDISP+9, TIUNOTE~, TIUNOTE+8, TIUNOTE+12 , TIUNOTE+13, RADRPT+8~, RADRPT+24, RADRPT+26, RADRPT+27, RADRPT+28, RADRPT+29
DUZ	COMMENTS+18
HDR	ORD+7~, ORD+22, ORD+25, ORD+26, ORD+32, RADRPT+8~, RADRPT+14, RADRPT+17, RADRPT+18, RPTZ+1
HI	COMMENTS+26~, COMMENTS+27*
HIT	CLEANUP+1~, CLEANUP+3, CLEANUP+4*
I	ORD+25, CLEANUP+1~, CLEANUP+2, CLEANUP+3, COMMENTS+27, COMMENTS+28, COMMENTS+29, RADRPT+17, RADRPT+24, RADRPT+25* , RADRPT+27, CKINTEG+12~, CKINTEG+13*
IEN	CKINTEG+3~, CKINTEG+15, CKINTEG+16
IO	ORD+31, OPENDEV+4
IO(0	ORD+31
IOP	OPENDEV+1~, OPENDEV+2*
IP	NOTEDISP+1~, NOTEDISP+5*
LINE	PHARMAS+1~, PHARMAS+6*, PHARMAS+7
LINE1	COMMENTS+26~, COMMENTS+28
MAGCNI	RADRPT+8~, RADRPT+10*, RADRPT+11, RADRPT+12, RADRPT+13, RADRPT+19, RADRPT+21, RADRPT+23, RADRPT+24, RADRPT+25 , RADRPT+27
MAGDFN	RADRPT+8~, RADRPT+10*, RADRPT+11, RADRPT+12, RADRPT+13, RADRPT+19, RADRPT+21, RADRPT+23, RADRPT+24, RADRPT+25 , RADRPT+27
MAGDTI	RADRPT+8~, RADRPT+10*, RADRPT+11, RADRPT+12, RADRPT+13, RADRPT+19, RADRPT+21, RADRPT+23
MAGIEN	CKINTEG+3~, CKINTEG+16*, CKINTEG+17, CKINTEG+18
>> MAGJOB("USER"	COMMENTS+17
MAGPRC	RADRPT+8~, RADRPT+24*, RADRPT+25, RADRPT+27
MAGPSET	CKINTEG+10~, CKINTEG+11
MAGPSET(	CKINTEG+13
MAGRET	ORD+7~, ORD+21, RADRPT+8~, RADRPT+13
MAGRPTY	ORD~, ORD+4, ORD+28, ORD+30, ORD+32, ORD+33, ORD+34, ORD+35, ORDZ, CLEANUP~ , CLEANUP+2, CLEANUP+3, COMMENTS~, COMMENTS+12, COMMENTS+13, COMMENTS+15, COMMENTS+20, COMMENTS+22, COMMENTS+30, COMMENTS+48 , COMMENTS+49, PHARMAS+3, PHARMAS+4, PHARMAS+5, PHARMAS+7, NOTEDISP~, NOTEDISP+2, NOTEDISP+3, NOTEDISP+4, NOTEDISP+9 , TIUNOTE~, TIUNOTE+8, TIUNOTE+12, TIUNOTE+13, RADRPT~, RADRPT+6*, RADRPT+23, RADRPT+27, RADRPT+28, RADRPT+29 , RADRPT+30, RPTZ, RPTZ+1, ERR+1
MEDS	ORD+8~, ORD+24, ORD+34, COMMENTS~, COMMENTS+32, COMMENTS+47, RADRPT+9~, RADRPT+16, RADRPT+23
MIXEDUP	CKINTEG+3~, CKINTEG+4, CKINTEG+5, CKINTEG+7, CKINTEG+14, CKINTEG+15, CKINTEG+16, CKINTEG+17, CKINTEG+18*, CK2 , CK2+1, CK2+2, CK2+3, CK2+4, CK2+5, CK2+6, CK2+8, CK2+9, CK2+12, CK2+13 , CK2+14
NODE	PHARMAS~, PHARMAS+2, PHARMAS+6*
NOTE	NOTEDISP+1~, NOTEDISP+6, NOTEDISP+7, NOTEDISP+8*
NOTES	COMMENTS+9~, COMMENTS+14, COMMENTS+15, COMMENTS+16, NOTEDISP~, NOTEDISP+5
NOTESTAT	COMMENTS+9~, COMMENTS+10, COMMENTS+11
OK	CKINTEG+10~, CKINTEG+13, CKINTEG+14
POP	ORD+7~, ORD+11, OPENDEV+3
QTMP	COMMENTS+9~, COMMENTS+24, COMMENTS+25, COMMENTS+26, TIUNOTE+7~, TIUNOTE+11, TIUNOTE+13
RAACNT	COMMENTS+33~, COMMENTS+37, COMMENTS+41~, COMMENTS+44
RACNI	ORD+6~, ORD+12, ORD+14, ORD+15, ORD+16, ORD+21, ORD+27, ORD+28, ORD+30, ORD+34 , COMMENTS~, COMMENTS+10, COMMENTS+14, COMMENTS+22, COMMENTS+23, COMMENTS+35, CKINTEG~
RADATA	ORD+22, ORD+25, ORD+27, RADRPT+8~, RADRPT+14, RADRPT+17, RADRPT+19, CKINTEG~, CKINTEG+8, CKINTEG+9 , CKINTEG+14
RADFN	ORD+6~, ORD+12*, ORD+14, ORD+15, ORD+16, ORD+21, ORD+27, ORD+34, COMMENTS~, COMMENTS+10 , COMMENTS+14, COMMENTS+22, COMMENTS+23, COMMENTS+35, CKINTEG~, CKINTEG+7, CKINTEG+17, CK2+3, CK2+4
RADTI	ORD+6~, ORD+12, ORD+14, ORD+15, ORD+16, ORD+21, ORD+27, ORD+28, ORD+30, ORD+34 , COMMENTS~, COMMENTS+10, COMMENTS+14, COMMENTS+22, COMMENTS+23, COMMENTS+35, CKINTEG~
RAOIFN	ORD+6~, ORD+16*, ORD+17
RAPGE	ORD+6~, ORD+29*
RAPRTSET	CKINTEG+10~, CKINTEG+11*
RARPT	ORD+6~, ORD+13, ORD+15, ORD+27, ORD+35, COMMENTS+14, TIUNOTE~, TIUNOTE+8, TIUNOTE+9, RADRPT+8~ , RADRPT+10, RADRPT+19, RADRPT+30, CKINTEG~, CKINTEG+5, CKINTEG+6, CKINTEG+15, CKINTEG+16, CKINTEG+18, CK2+7 , CK2+10
RAUTOE	COMMENTS+33~, COMMENTS+36, COMMENTS+41~, COMMENTS+43
RAX	ORD+6~, ORD+29*
RDIOPHARM	ORD+8~, ORD+24, ORD+34, COMMENTS~, COMMENTS+40, COMMENTS+45, COMMENTS+47, RADRPT+9~, RADRPT+16, RADRPT+23
REF	COMMENTS+33~, COMMENTS+35*, COMMENTS+38
REPLY	ORD+7~, ORD+9, ORD+11, ORD+15, ORD+18, ORD+27, ORD+36, ORDZ, RADRPT+8~, RADRPT+12* , RADRPT+19, RADRPT+20, RADRPT+22, RADRPT+31, RPTZ, CKINTEG~, CKINTEG+4, CK2+3, CK2+4, CK2+7* , CK2+11, CK2+16
REQONLY	ORD+7~, ORD+13*, ORD+27
T	ORD+26, COMMENTS+9~, COMMENTS+11, COMMENTS+12, RADRPT+18, CKINTEG+12~, CKINTEG+13, CK2+6~, CK2+7, CK2+9~ , CK2+10, CK2+13~, CK2+14*, CK2+15
TEXT	TIUNOTE+7~, TIUNOTE+10
TITLE	PHARMAS~, PHARMAS+4
TMPDATA	ORD+7~, ORD+28*, ORD+30
TXT	COMMENTS+26~, COMMENTS+28*, COMMENTS+30
U	ORD+12, ORD+13, ORD+16, ORD+23, ORD+24, ORD+25, ORD+26, COMMENTS+11, COMMENTS+14, COMMENTS+20 , COMMENTS+22, RADRPT+10, RADRPT+15, RADRPT+16, RADRPT+17, RADRPT+18, CKINTEG+6, CKINTEG+7, CKINTEG+9, CKINTEG+13 , CKINTEG+14, CKINTEG+17, CKINTEG+18, CK2+2, CK2+6, CK2+9, CK2+13, CK2+14
X	CLEANUP+1~, CLEANUP+2, CLEANUP+3, COMMENTS+21, COMMENTS+22, NOTEDISP+1~, NOTEDISP+5, NOTEDISP+6, NOTEDISP+8, NOTEDISP+9 , RADRPT+8~, CKINTEG+3~, CKINTEG+6, CKINTEG+17, CKINTEG+18, CK2+2, CK2+3, CK2+4, CK2+10, CK2+11 , CK2+13, CK2+15, CK2+16
XX	ORD+7~, ORD+22, ORD+23, ORD+24, ORD+26, COMMENTS+9~, COMMENTS+26, COMMENTS+27, COMMENTS+28, COMMENTS+29* , TIUNOTE+7~, TIUNOTE+13, RADRPT+14, RADRPT+15, RADRPT+16, RADRPT+18

Customize PDF page

Package: Imaging

Routine: MAGJRPT

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Used in RPC

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items