Routine: MAGJUTL1

Package	Total	Call Graph
Radiology Nuclear Medicine	3	EN1^RAO7PC1 SETDATA^RAO7PC1A D^RAUTL
VA FileMan	2	DT^DICRW EN^DIQ1
CPT HCPCS Codes	1	$$MOD^ICPTMOD
Imaging	1	$$USERINF^MAGJUTL3
Registration	1	PID^VADPT6
Vendor - ISI	1	$$UJOCHECK^ISIJUTL9

Package	Total	Caller Graph
Imaging	15	MAGJEX1 MAGJEX2 MAGJLS3 MAGJLS3A MAGJLS4 MAGJLST1 MAGJMN1 MAGJORD MAGJPRF1 MAGJRPT MAGJRT MAGJUPD1 MAGJUTL3 MAGNPCHE MAGNUTL2
Vendor - ISI	5	ISIJFAV ISIJLS1 ISIJLS2 ISIJNOTE ISIJRPT2

Name	Comments	DBIA/ICR reference
GETEXAM3(DFN,BEGDT,ENDT,MAGRACNT,MAGRET,MORE,LIMEXAMS)	; Get data for all exams for a ; pt within a date range ; limit to LIMEXAMS entries--note, only PREFETCH & Auto-route Priors use this ; Input: ; DFN -- Patient DFN ; BEGDT -- Opt, earliest date desired ; ENDT -- Opt, latest date desired ; MAGRACNT -- Opt, pass by ref to init counter to ref return data in ^TMP (see GETEXSET) ; MORE -- Opt, If True, check for additional exams for pt ; LIMEXAMS -- Opt, limit # exams to return ; Return: ; MAGRACNT -- highest counter for return data ; MAGRET -- 1/0: exam was/not found ; MORE -- more exams exist for pt on & B4 this date ; ^TMP -- data returned (see GETEXSET)
MORE1
GETEXAM2(DFN,DTI,CNI,MAGRACNT,MAGRET)	; Fetch data for one exam
GETEXSET(RADFN,EXID,MAGRET)	; ; Used by GETEXAM* subroutines above to set up rad data for vrad ; Input: ; RADFN -- Pt DFN ; EXID --- RADTI_"-"_RACNI, pointers to Rad exam ; Output: ; MAGRET- 1/0: an exam was/was not filed ; ^TMP($J,"MAGRAEX",MAGRACNT)=Data String (see code at end) ; MAGRACNT described in above subroutines
RIST(RIST1,RIST2)	; return Interp Radiologist info
IMGSIT(DIV,DFLT)	; Return Imaging Site code for input Division ; From 2006.1: IEN ^ Site Code ^ Parent_DIV
TRIM(X)	; Trim trailing spaces from X
END

Name	Field # of Occurrence
DT^DICRW	GETEXAM3+16
EN^DIQ1	GETEXSET+74, GETEXSET+76
$$MOD^ICPTMOD	GETEXSET+49
$$UJOCHECK^ISIJUTL9	GETEXSET+30
$$USERINF^MAGJUTL3	GETEXSET+33, RIST+5, RIST+6
EN1^RAO7PC1	GETEXAM3+23, MORE1+2
SETDATA^RAO7PC1A	GETEXAM2+22
D^RAUTL	GETEXSET+78
PID^VADPT6	GETEXSET+87

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	GETEXSET+86
^MAG(2006.1 - [#2006.1]	IMGSIT+3, IMGSIT+4, IMGSIT+6
^RA(72 - [#72]	MORE1+1, GETEXSET+85
^RADPT - [#70]	MORE1, MORE1+5, GETEXSET+24, GETEXSET+31, GETEXSET+42, GETEXSET+48, GETEXSET+66, GETEXSET+68
^RAMIS(71.2 - [#71.2]	GETEXSET+43
^RARPT - [#74]	GETEXSET+35
^SC - [#44]	GETEXSET+72
^TMP($J	GETEXAM3+23!, GETEXAM3+25, GETEXAM3+28!, GETEXAM3+32, MORE1+3, MORE1+4!, GETEXAM2+22!, GETEXAM2+26!, GETEXSET+20, GETEXSET+90! , GETEXSET+91, GETEXSET+92, GETEXSET+93*
^VA(200 - [#200]	GETEXSET+67

Name	Line Occurrences
$$IMGSIT	GETEXSET+92
$$RIST	GETEXSET+77
$$TRIM	GETEXSET+43, GETEXSET+49
GETEXSET	GETEXAM3+27, GETEXAM2+24
MORE1	MORE1+5

Name	Field # of Occurrence
^(	MORE1, GETEXSET+42, GETEXSET+48, GETEXSET+66, IMGSIT+3
^("CMOD"	GETEXSET+24
^("COMP"	GETEXSET+24
^("M"	GETEXSET+24
^("RX"	GETEXSET+24
^("TC"	GETEXSET+24
^(0	GETEXSET+86

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ASIGDUZ	GETEXSET+15~, GETEXSET+29, GETEXSET+32, GETEXSET+33, GETEXSET+93
ASIGINI	GETEXSET+15~, GETEXSET+29, GETEXSET+33, GETEXSET+93
ASIGNOTE	GETEXSET+15~, GETEXSET+29, GETEXSET+32, GETEXSET+93
BEGDT	GETEXAM3~, GETEXAM3+18, GETEXAM3+21, GETEXAM3+22, GETEXAM3+23, GETEXAM3+31
CNI	GETEXAM3+30~, GETEXAM3+31, GETEXAM3+32, MORE1, MORE1+5, GETEXAM2~, GETEXAM2+24
COMPLIC	GETEXSET+12~, GETEXSET+24, GETEXSET+25, GETEXSET+92
CPTMOD	GETEXSET+13~, GETEXSET+24*, GETEXSET+46
CT	GETEXSET+38~, GETEXSET+39, GETEXSET+45, GETEXSET+51*, GETEXSET+53
DA	GETEXSET+69!, GETEXSET+74!, GETEXSET+76!
DAYCASE	GETEXSET+12~, GETEXSET+82, GETEXSET+83, GETEXSET+91
DFLT	IMGSIT~, IMGSIT+4
DFN	GETEXAM3~, GETEXAM3+22, GETEXAM3+23, GETEXAM3+25, GETEXAM3+27, MORE1, MORE1+2, MORE1+3, MORE1+5, GETEXAM2~ , GETEXAM2+17, GETEXAM2+24, GETEXSET+87*
DIC	GETEXSET+69!, GETEXSET+74!, GETEXSET+76!
DIQ	GETEXSET+69!, GETEXSET+74!, GETEXSET+76!
DIQUIET	GETEXAM3+16~*
DIV	IMGSIT~, IMGSIT+2, IMGSIT+3
DR	GETEXSET+69!, GETEXSET+74!, GETEXSET+76!
DT	GETEXAM3+16, GETEXAM3+18
DTCHK	GETEXAM3+30~, MORE1+2*
DTI	GETEXAM3+30~, GETEXAM3+31, GETEXAM3+32, MORE1, MORE1+2, MORE1+5*, MORE1+6, GETEXAM2~, GETEXAM2+17, GETEXAM2+24
ENDT	GETEXAM3~, GETEXAM3+18, GETEXAM3+21, GETEXAM3+22, GETEXAM3+23
EX1	GETEXAM3+24~, GETEXAM3+26, GETEXAM3+27
EX2	GETEXAM3+24~, GETEXAM3+26, GETEXAM3+27
EXID	GETEXAM3+24~, GETEXAM3+25, GETEXSET~, GETEXSET+17, GETEXSET+20
FAVKWD1	GETEXSET+15~, GETEXSET+28*, GETEXSET+93
FAVKWD2	GETEXSET+15~, GETEXSET+28*, GETEXSET+93
FAVNOTE	GETEXSET+15~, GETEXSET+28*, GETEXSET+93
>> I	GETEXSET+53, TRIM+2, TRIM+3
IEN	GETEXSET+38~, GETEXSET+41, GETEXSET+42, GETEXSET+47, GETEXSET+48, GETEXSET+65, GETEXSET+66, IMGSIT+3~, IMGSIT+4, IMGSIT+6
IMTYPABB	GETEXSET+11~, GETEXSET+81*, GETEXSET+91
LIMEXAMS	GETEXAM3~, GETEXAM3+17*, GETEXAM3+23
LONGACN	GETEXSET+13~, GETEXSET+26*, GETEXSET+83
LRFLAG	GETEXSET+13~, GETEXSET+52, GETEXSET+60, GETEXSET+61, GETEXSET+62, GETEXSET+92
MAGRACNT	GETEXAM3~, GETEXAM3+20, GETEXAM3+32, GETEXAM2~, GETEXAM2+21, GETEXSET+89*, GETEXSET+90, GETEXSET+91, GETEXSET+92, GETEXSET+93
MAGRET	GETEXAM3~, GETEXAM3+20, GETEXAM3+25, GETEXAM3+31, GETEXAM2~, GETEXAM2+23, GETEXAM2+25, GETEXSET~, GETEXSET+17, GETEXSET+94
MEDS	GETEXSET+14~, GETEXSET+24*, GETEXSET+92
MODS	GETEXSET+38~
MODS(	GETEXSET+45, GETEXSET+51, GETEXSET+53
MODTXT	GETEXSET+13~, GETEXSET+52, GETEXSET+58, GETEXSET+59*, GETEXSET+92
MORE	GETEXAM3~, GETEXAM3+19, GETEXAM3+20, MORE1, MORE1+3, MORE1+5, MORE1+6*
MORECHK	GETEXAM3+19~*, GETEXAM3+29
PROCMOD	GETEXSET+11~, GETEXSET+24*, GETEXSET+40
PTAGE	GETEXSET+15~, GETEXSET+86*, GETEXSET+93
PTDOB	GETEXSET+15~, GETEXSET+86*, GETEXSET+93
PTSEX	GETEXSET+15~, GETEXSET+86*, GETEXSET+93
RABNOR	GETEXAM2+19~
RABNORMR	GETEXAM2+20~
RACN	GETEXSET+10~, GETEXSET+80*, GETEXSET+82, GETEXSET+91
RACNI	GETEXSET+10~, GETEXSET+17*, GETEXSET+18, GETEXSET+24, GETEXSET+31, GETEXSET+42, GETEXSET+48, GETEXSET+66, GETEXSET+91
RACNT	GETEXAM2+16~, GETEXAM2+17*, GETEXAM2+23
RACPT	GETEXAM2+20~, GETEXSET+11~, GETEXSET+81*, GETEXSET+91
RACSE	GETEXAM2+19~
RADATA	GETEXSET+10~, GETEXSET+20*, GETEXSET+21, GETEXSET+22, GETEXSET+23, GETEXSET+80, GETEXSET+81
RADATE	GETEXSET+10~, GETEXSET+78*, GETEXSET+91
RADFN	GETEXAM2+16~, GETEXAM2+17*, GETEXSET~, GETEXSET+20, GETEXSET+24, GETEXSET+31, GETEXSET+42, GETEXSET+48, GETEXSET+66, GETEXSET+68 , GETEXSET+86, GETEXSET+87, GETEXSET+91
RADIAG	GETEXAM2+19~
RADIV	GETEXSET+13~, GETEXSET+19, GETEXSET+68, GETEXSET+92
RADTE	GETEXSET+10~, GETEXSET+78*, GETEXSET+82, GETEXSET+91
RADTI	GETEXSET+10~, GETEXSET+17*, GETEXSET+18, GETEXSET+24, GETEXSET+31, GETEXSET+42, GETEXSET+48, GETEXSET+66, GETEXSET+68, GETEXSET+78 , GETEXSET+91
RADTPRT	GETEXSET+10~, GETEXSET+78, GETEXSET+79, GETEXSET+91
RAELOC	GETEXSET+10~, GETEXSET+80*, GETEXSET+91
RAEXN	GETEXAM2+16~, GETEXAM2+17*
RAIBDT	GETEXAM2+16~, GETEXAM2+17*
RANME	GETEXSET+10~, GETEXSET+86*, GETEXSET+91
RANO	GETEXAM2+19~
RAPRC	GETEXAM2+19~, GETEXSET+11~, GETEXSET+80*, GETEXSET+91
RAREX	GETEXAM2+19~
RARPT	GETEXAM2+19~, GETEXSET+11~, GETEXSET+22*, GETEXSET+34, GETEXSET+35, GETEXSET+91
RARPTST	GETEXAM2+19~
RASSN	GETEXSET+11~, GETEXSET+87*, GETEXSET+91
RAST	GETEXSET+11~, GETEXSET+25*, GETEXSET+85, GETEXSET+91
RASTCAT	GETEXSET+13~, GETEXSET+84, GETEXSET+85, GETEXSET+92
RASTNM	GETEXAM2+19~, GETEXSET+11~, GETEXSET+23*, GETEXSET+84
RASTORD	GETEXSET+11~, GETEXSET+23*, GETEXSET+91
RASTP	GETEXSET+11~, GETEXSET+84*, GETEXSET+91
RAXAM	GETEXAM2+19~
RAXID	GETEXAM2+19~
RAXIT	GETEXAM2+16~, GETEXAM2+17*
RDIOPHARM	GETEXSET+14~, GETEXSET+26*, GETEXSET+92
REQLOC	GETEXSET+12~, GETEXSET+25*, GETEXSET+70, GETEXSET+72, GETEXSET+74, GETEXSET+75
REQLOCA	GETEXSET+12~, GETEXSET+70, GETEXSET+72, GETEXSET+73*, GETEXSET+92
REQLOCN	GETEXSET+12~, GETEXSET+70, GETEXSET+72, GETEXSET+73, GETEXSET+92
REQLOCT	GETEXSET+12~, GETEXSET+70, GETEXSET+75, GETEXSET+92
REQLOCT(44	GETEXSET+75
REQWARD	GETEXSET+13~, GETEXSET+26, GETEXSET+76, GETEXSET+92
REQWARD(42	GETEXSET+76
RIST	GETEXSET+12~, GETEXSET+77, GETEXSET+92, RIST+2~, RIST+3, RIST+5, RIST+7, RIST+8*, RIST+9
RIST1	GETEXSET+12~, GETEXSET+25, GETEXSET+77, RIST~, RIST+1, RIST+4, RIST+5
RIST2	GETEXSET+12~, GETEXSET+25, GETEXSET+77, RIST~, RIST+1, RIST+4, RIST+6*, RIST+7, RIST+8
RISTISME	GETEXSET+13~, GETEXSET+77, GETEXSET+92, RIST+2~, RIST+3, RIST+5, RIST+6, RIST+9
RPTSTS	GETEXSET+16~, GETEXSET+34, GETEXSET+36, GETEXSET+93
STS	GETEXAM3+30~, MORE1*, MORE1+1
T	GETEXSET+55, GETEXSET+56, GETEXSET+57, GETEXSET+58, GETEXSET+60, GETEXSET+61, GETEXSET+65~, GETEXSET+67
T(	GETEXSET+66*, GETEXSET+67
TECH	GETEXSET+13~, GETEXSET+24, GETEXSET+63, GETEXSET+65, GETEXSET+67, GETEXSET+92
TMP	GETEXAM3+24~
TMP(	GETEXAM3+25*, GETEXAM3+27
TT	GETEXSET+38~, GETEXSET+52!
TT(	GETEXSET+58*
TT(1	GETEXSET+55
TT(2	GETEXSET+56
TT(3	GETEXSET+57
U	GETEXAM3+32, MORE1, MORE1+1, GETEXSET+22, GETEXSET+23, GETEXSET+25, GETEXSET+26, GETEXSET+32, GETEXSET+35, GETEXSET+42 , GETEXSET+43, GETEXSET+48, GETEXSET+49, GETEXSET+66, GETEXSET+67, GETEXSET+68, GETEXSET+72, GETEXSET+77, GETEXSET+80, GETEXSET+81 , GETEXSET+85, GETEXSET+86, GETEXSET+91, GETEXSET+92, GETEXSET+93, RIST+9, IMGSIT+6
>> VA("BID"	GETEXSET+88!
>> VA("PID"	GETEXSET+87, GETEXSET+88!
VAERR	GETEXSET+87, GETEXSET+88!
X	GETEXAM3+21, GETEXAM3+32, GETEXAM2+24, GETEXAM2+25, GETEXSET+23, GETEXSET+24, GETEXSET+25, GETEXSET+26, GETEXSET+31, GETEXSET+32 , GETEXSET+35, GETEXSET+36, GETEXSET+42, GETEXSET+43, GETEXSET+44, GETEXSET+45, GETEXSET+48, GETEXSET+49, GETEXSET+50, GETEXSET+51 , GETEXSET+53, GETEXSET+55, GETEXSET+56, GETEXSET+57, GETEXSET+58, GETEXSET+59, GETEXSET+66, GETEXSET+67, GETEXSET+72, GETEXSET+77* , IMGSIT+5, IMGSIT+6, IMGSIT+7, TRIM~, TRIM+1, TRIM+2, TRIM+3, TRIM+4, TRIM+5
>> Y	GETEXSET+78*

Customize PDF page

Package: Imaging

Routine: MAGJUTL1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 20

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: