Routine: MAGGTRP1

Package	Total	Caller Graph
Imaging	2	MAGGRADREPORT MAGGTRPT

Entry Points

Name	Comments	DBIA/ICR reference
RAD(MAGRPTY,RARPT)	;RPC [MAGGRADREPORT] Call to retrun a Radiology report ; MAGRPTY is the return array ; RARPT is the Radiology Report IEN i.e. ^RARPT(RARPT
BUILD(RARPT)	;Call to generate the Radiology Report ; This call is called be various Imaging routines to get the Rad Report ; This call assumes the device is already open. ; New the variables that'll be defined in the call to RASET^RAUTL2
OPENDEV	;
ERRA	;
GRPDESC(MAGIEN)	; PRINT LONG DESC OF IMAGE GROUP and ALL children in Group
GETDESC(MAGIEN)	;
RPT2DPT(RARPT,RET)	; For input RARPT, return string RET containing case ; subscript values for accessing ^RADPT ; Stole this code from john, don't tell him. ; * This subroutine may be called by other routines of the Radiology ; Imaging Workstation programs

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$G(^TMP($J,"RAE3",RADFN,RACNI,MAGPRC,I)) Line Location: BUILD+30
Function Call: WRITE	Prompt: MAGDASH Line Location: GRPDESC+11
Function Call: WRITE	Prompt: MAGHD_" ID# "_MAGIEN,! Line Location: GETDESC+5
Function Call: WRITE	Prompt: MAGHD_" : "_$P(^MAG(2005,MAGIEN,2),U,4),! Line Location: GETDESC+8
Function Call: WRITE	Prompt: MAGHD_" Long Description: ",! Line Location: GETDESC+9
Function Call: WRITE	Prompt: ! Line Location: GETDESC+14
Routine Call	%ZIS Line Location: OPENDEV+3
Routine Call	DIC Line Location: BUILD+15

RPC Name	Call Tags
MAGGRADREPORT	RAD

FileNo	Call Tags
^RARPT - [#74]	FIND1^DIC

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("ERRTN"	ERRA+2
^%ZOSF("TRAP"	BUILD+11
^MAG(2005 - [#2005]	GRPDESC+7, GRPDESC+8, GRPDESC+9, GETDESC+3, GETDESC+6, GETDESC+8, GETDESC+11, GETDESC+12
^RADPT("ADC"	RPT2DPT+9
^RARPT - [#74]	BUILD+24, RPT2DPT+7
^TMP("MAGQIRP1"	BUILD+23, BUILD+24
^TMP($J	BUILD+26, BUILD+28, BUILD+29, BUILD+30, OPENDEV+1
^UTILITY($J	GRPDESC+4!

Name	Field # of Occurrence
^(	RPT2DPT+7, RPT2DPT+9

Name	Field # of Occurrence
>> %ZIS	OPENDEV+3*
CNI	RPT2DPT+6~, RPT2DPT+9, RPT2DPT+10
DFN	RPT2DPT+6~, RPT2DPT+9, RPT2DPT+10
DIWF	GETDESC+2~, GETDESC+7*
DIWL	GETDESC+2~, GETDESC+7*
DIWR	GETDESC+2~, GETDESC+7*
DTI	RPT2DPT+6~, RPT2DPT+9, RPT2DPT+10
ERRRES	RAD+3~, RAD+4, RAD+8, RAD+9*, RAD+11
I	BUILD+9~, BUILD+29*, BUILD+30
IO	RAD+10, OPENDEV+5
IO(0	RAD+10
>> IOP	OPENDEV+3*
MAGCIEN	GRPDESC+2~, GRPDESC+6, GRPDESC+7, GRPDESC+8
MAGDASH	GRPDESC+2~, GRPDESC+3*, GRPDESC+11
MAGHD	GETDESC+2~, GETDESC+3, GETDESC+4, GETDESC+5, GETDESC+8, GETDESC+9
MAGI	GETDESC+2~, GETDESC+10, GETDESC+11, GETDESC+12
MAGIEN	GRPDESC~, GRPDESC+5, GRPDESC+7, GRPDESC+8, GETDESC~, GETDESC+3, GETDESC+5, GETDESC+6, GETDESC+8, GETDESC+11 , GETDESC+12
MAGJ	GRPDESC+2~, GRPDESC+8*, GRPDESC+9, GRPDESC+10
MAGPRC	BUILD+9~, BUILD+28*, BUILD+29, BUILD+30
MAGRPTY	RAD~, RAD+7, RAD+11, BUILD+12, BUILD+13, BUILD+15, BUILD+27, BUILD+33, OPENDEV+1*, OPENDEV+2 , OPENDEV+4, ERRA+1
>> POP	RAD+5, OPENDEV+4
RACN	BUILD+4~
RACNI	BUILD+4~, BUILD+23, BUILD+25, BUILD+28, BUILD+29, BUILD+30
RADATE	BUILD+4~
RADFN	BUILD+4~, BUILD+23, BUILD+25, BUILD+28, BUILD+29, BUILD+30
RADTE	BUILD+4~
RADTI	BUILD+4~, BUILD+23, BUILD+25
RARPT	RAD~, RAD+6, BUILD~, BUILD+12, BUILD+13, BUILD+15, BUILD+17, BUILD+24, RPT2DPT~, RPT2DPT+7
RET	RPT2DPT~, RPT2DPT+10, RPT2DPT+11
RPTRES	RAD+3~, RAD+7*, RAD+8, RAD+9
U	GETDESC+8, RPT2DPT+8, RPT2DPT+10
X	BUILD+9~, BUILD+11, GETDESC+2~, GETDESC+12, RPT2DPT+7, RPT2DPT+8, RPT2DPT+9*
XINF	BUILD+9~
Y	BUILD+9~, BUILD+17*