Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: MAGDIR81

Package: Imaging

Routine: MAGDIR81


Information

MAGDIR81 ;WOIFO/PMK - Read a DICOM image file ; 03 Jul 2013 9:12 AM

Source Information

Source file <MAGDIR81.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Imaging 9 (ERROR,RESULT)^MAGDIR8  ($$PIDCHECK,CONLKUP,LABLKUP,RADLKUP)^MAGDIR8A  ($$DELETE,STORE)^MAGDIR8R  $$GROUP^MAGDIR9A  $$IMAGE^MAGDIR9B  $$GROUP^MAGDIR9E  $$GROUP^MAGDIR9F  ERROR^MAGDIRVE  
MOVE^MAGDLBAA  
Kernel 1 $$FMTE^XLFDT  
Master Patient Index VistA 1 ($$GETICN,GETICN)^MPIF001  
Registration 1 DEM^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Imaging 2 MAGDIR8  MAGDIR82  

Entry Points

Name Comments DBIA/ICR reference
ENTRY ; process one image
NEWIMAGE() ; processing for a new image
SAVEUID(MACHID,UID) ; record the UID of the image being processed
GETUID(MACHID) ; lookup the UID of the last image processed
MULTFRAM ; Handle additional images in a multiframe object
; Get the information from the first image for the additional ones
LOOKUP() ; lookup the patient/study using cross-reference
ERRCHECK(FUNCTION,ROUTINE,MSG) ; check the return code of the function

External References

Name Field # of Occurrence
ERROR^MAGDIR8 ENTRY+61, ENTRY+78, NEWIMAGE+14
RESULT^MAGDIR8 ENTRY+39, ENTRY+86
$$PIDCHECK^MAGDIR8A NEWIMAGE+34
CONLKUP^MAGDIR8A LOOKUP+6, LOOKUP+14, LOOKUP+30
LABLKUP^MAGDIR8A LOOKUP+9, LOOKUP+19, LOOKUP+25
RADLKUP^MAGDIR8A LOOKUP+4, LOOKUP+16, LOOKUP+27
$$DELETE^MAGDIR8R NEWIMAGE+64
STORE^MAGDIR8R NEWIMAGE+45
$$GROUP^MAGDIR9A NEWIMAGE+50
$$IMAGE^MAGDIR9B ENTRY+76
$$GROUP^MAGDIR9E NEWIMAGE+53
$$GROUP^MAGDIR9F NEWIMAGE+56
ERROR^MAGDIRVE NEWIMAGE+61, LOOKUP+38
MOVE^MAGDLBAA NEWIMAGE+42
$$GETICN^MPIF001 ENTRY+84
GETICN^MPIF001 ENTRY+84
DEM^VADPT MULTFRAM+32
$$FMTE^XLFDT NEWIMAGE+23

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^MAG(2005 - [#2005] ENTRY+50, NEWIMAGE+22, NEWIMAGE+24, MULTFRAM+5, MULTFRAM+6, MULTFRAM+7
^MAG(2005.83 - [#2005.83] ENTRY+53
^MAG(2006.532 - [#2006.532] MULTFRAM+26
^MAGD(2006.5715 - [#2006.5715] SAVEUID+2, SAVEUID+3, SAVEUID+4, SAVEUID+5, SAVEUID+9*, SAVEUID+10*, SAVEUID+11*, SAVEUID+12, SAVEUID+14*, GETUID+2
, GETUID+3

Label References

Name Line Occurrences
$$ERRCHECK ENTRY+76, NEWIMAGE+50, NEWIMAGE+53, NEWIMAGE+56
$$GETUID NEWIMAGE+7
$$LOOKUP NEWIMAGE+32
$$NEWIMAGE ENTRY+59
MULTFRAM ENTRY+56
SAVEUID NEWIMAGE+29

Naked Globals

Name Field # of Occurrence
^(1 MULTFRAM+5
^(100 MULTFRAM+6
^(2 MULTFRAM+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACNUMB ENTRY+22~, ENTRY+30*, LOOKUP+2*
ARG2 ENTRY+22~, ENTRY+41*, ENTRY+42, ENTRY+43, ENTRY+44, ENTRY+45, ENTRY+46, ENTRY+47
>> ARGS ENTRY+26, ENTRY+27, ENTRY+28, ENTRY+29, ENTRY+30, ENTRY+31, ENTRY+32, ENTRY+33, ENTRY+34, ENTRY+35
ENTRY+36
CASENUMB ENTRY+22~, ENTRY+30*, LOOKUP+2
CASETEXT NEWIMAGE+36~, NEWIMAGE+40*
COLUMNS NEWIMAGE+36~, NEWIMAGE+40*
D0 SAVEUID+1~, SAVEUID+2*, SAVEUID+4*, SAVEUID+7, SAVEUID+10, SAVEUID+11, SAVEUID+14, GETUID+1~, GETUID+2*, GETUID+3
>> DATETIME MULTFRAM+12*
>> DCMPID MULTFRAM+9*
DFN ENTRY+84, MULTFRAM+10*, LOOKUP+1!, LOOKUP+5, LOOKUP+7, LOOKUP+10, LOOKUP+15, LOOKUP+17, LOOKUP+20, LOOKUP+26
, LOOKUP+28, LOOKUP+31
DIQUIET MULTFRAM+3~, MULTFRAM+32*
EMAIL ENTRY+22~, ENTRY+36*
ERRCODE ENTRY+58, ENTRY+59*, ENTRY+60, ENTRY+61, ENTRY+76*, ENTRY+77, ENTRY+78, NEWIMAGE+32*, NEWIMAGE+49, NEWIMAGE+50*
, NEWIMAGE+52, NEWIMAGE+53*, NEWIMAGE+55, NEWIMAGE+56*, ERRCHECK+1~, ERRCHECK+2*, ERRCHECK+3, ERRCHECK+8
ERRORMSG NEWIMAGE+1~, NEWIMAGE+4, NEWIMAGE+15*, NEWIMAGE+20*
FILEDATA ENTRY+2~
FILEDATA("ABSTRACT" ENTRY+74*
FILEDATA("ACQ UISITION DEVICE" , MULTFRAM+24*
FILEDATA("EXTENSION" ENTRY+68*, ENTRY+72*
FILEDATA("MODALITY" MULTFRAM+13*
FILEDATA("OBJ ECT TYPE" , ENTRY+67*, ENTRY+71*
FILEDATA("PACKAGE" MULTFRAM+19*
FILEDATA("PAR ENT FILE PTR" , MULTFRAM+16*, ENT FILE" , MULTFRAM+14*, ENT IEN" , MULTFRAM+15*
FILEDATA("PROC/EVENT" MULTFRAM+22*
FILEDATA("RAD PROC PTR" , MULTFRAM+18*,  REPORT" , MULTFRAM+17*
FILEDATA("SOP CLASS POINTER" , MULTFRAM+27*
FILEDATA("SPEC/SUBSPEC" MULTFRAM+23*
FILEDATA("TYPE" ENTRY+53*, MULTFRAM+21*
FIRSTDCM ENTRY+3~
FROMPATH ENTRY+22~, ENTRY+28*, NEWIMAGE+12, NEWIMAGE+18
FUNCTION ERRCHECK~, ERRCHECK+2
GMRCIEN ENTRY+4~
I ENTRY+20~, ENTRY+83*, NEWIMAGE+5~, NEWIMAGE+6*, NEWIMAGE+12*, NEWIMAGE+13*, NEWIMAGE+18*, NEWIMAGE+19*, NEWIMAGE+24*, NEWIMAGE+25*
, NEWIMAGE+26*, ERRCHECK+4~, ERRCHECK+5*, ERRCHECK+6*
IMAGEUID ENTRY+22~, ENTRY+43*, ENTRY+50, NEWIMAGE+7, NEWIMAGE+26, NEWIMAGE+29, NEWIMAGE+64
IMAGNAME ENTRY+22~, ENTRY+33*
IMAGNUMB ENTRY+22~, ENTRY+34*
IMGSVC ENTRY+22~, ENTRY+27*, NEWIMAGE+49, NEWIMAGE+52, NEWIMAGE+55, NEWIMAGE+60, LOOKUP+3, LOOKUP+7*, LOOKUP+10*, LOOKUP+13
, LOOKUP+17*, LOOKUP+20*, LOOKUP+24, LOOKUP+28*, LOOKUP+31*, LOOKUP+37
IMPORTER ENTRY+5~, ENTRY+32*, NEWIMAGE+41, NEWIMAGE+64
INAME MULTFRAM+3~, MULTFRAM+8*, MULTFRAM+9
INSTLOC ENTRY+23~, ENTRY+35*
INSTNAME ENTRY+23~, ENTRY+28*
>> IREQUEST ENTRY+37*, ENTRY+41
LASTDCM ENTRY+6~
LASTIMG ENTRY+23~, ENTRY+44*
LOCATION ENTRY+23~, ENTRY+26*
LRDFN ENTRY+7~
LRI ENTRY+8~
LRSS ENTRY+9~
MACHID ENTRY+23~, ENTRY+27*, NEWIMAGE+7, NEWIMAGE+29, NEWIMAGE+64, SAVEUID~, SAVEUID+2, SAVEUID+10, SAVEUID+11, GETUID~
, GETUID+2
MAG0 ENTRY+20~, MULTFRAM+3~, MULTFRAM+5*, MULTFRAM+8, MULTFRAM+10, MULTFRAM+11
MAG1 ENTRY+20~, MULTFRAM+5*
MAG100 MULTFRAM+3~, MULTFRAM+6*, MULTFRAM+24
MAG2 ENTRY+20~, MULTFRAM+5*, MULTFRAM+12, MULTFRAM+14, MULTFRAM+15, MULTFRAM+16, MULTFRAM+28
MAG40 MULTFRAM+3~, MULTFRAM+6*, MULTFRAM+19, MULTFRAM+21, MULTFRAM+22, MULTFRAM+23
MAGGP ENTRY+11~, MULTFRAM+11*
MAGIEN ENTRY+12~, ENTRY+50*, ENTRY+55, NEWIMAGE+4, NEWIMAGE+13, NEWIMAGE+19, NEWIMAGE+22, NEWIMAGE+24, MULTFRAM+5, MULTFRAM+6
MULTFRAM+7
MAGPACS MULTFRAM+3~, MULTFRAM+7*, MULTFRAM+17, MULTFRAM+18
MEDATA ENTRY+1~
MEDIA ENTRY+10~, ENTRY+47*
MFGR ENTRY+23~, ENTRY+45*, NEWIMAGE+36~, NEWIMAGE+40*
MIDCM ENTRY+13~
MODALITY ENTRY+23~, ENTRY+32*, MULTFRAM+13
MODEL ENTRY+23~, ENTRY+45*, NEWIMAGE+36~, NEWIMAGE+40*
MODIEN NEWIMAGE+36~, NEWIMAGE+40*
MODPARMS ENTRY+23~, ENTRY+33*, ENTRY+66
MSG ENTRY+61, ENTRY+76, ENTRY+78, NEWIMAGE+6!, NEWIMAGE+14, NEWIMAGE+38!, NEWIMAGE+50, NEWIMAGE+53, NEWIMAGE+56, NEWIMAGE+59!
, NEWIMAGE+61, LOOKUP+36!, LOOKUP+38, ERRCHECK~
MSG( NEWIMAGE+12*, NEWIMAGE+13*, NEWIMAGE+18*, NEWIMAGE+19*, NEWIMAGE+24*, NEWIMAGE+25*, NEWIMAGE+26*, ERRCHECK+6*
MSG("" ERRCHECK+5
MSG(1 NEWIMAGE+39*, NEWIMAGE+60*, LOOKUP+37*
MULTFRAM ENTRY+24~, ENTRY+35*, ENTRY+55
OFFSET NEWIMAGE+36~, NEWIMAGE+40*
OLDPATH ENTRY+14~, ENTRY+47*, NEWIMAGE+64
>> OPCODE ENTRY+37*, ENTRY+38, ENTRY+39
ORIGINDX ENTRY+15~, ENTRY+46*
PID ENTRY+24~, ENTRY+29*
PIDCHECK NEWIMAGE+2~, NEWIMAGE+34*, NEWIMAGE+35, NEWIMAGE+39
PNAMEDCM ENTRY+24~, ENTRY+29*
PNAMEVAH ENTRY+16~, MULTFRAM+9*
PROCDESC ENTRY+17~, MULTFRAM+28*, MULTFRAM+30*
QUIT ENTRY+20~
RADATA ENTRY+18~
>> REQUEST( ENTRY+37, ENTRY+41
>> RETURN ENTRY+81
ROUTINE ERRCHECK~, ERRCHECK+6
ROUTRULE ENTRY+24~, ENTRY+44*
ROWS NEWIMAGE+36~, NEWIMAGE+40*
SERIEUID ENTRY+24~, ENTRY+42*
SERINUMB ENTRY+24~, ENTRY+34*
SOPCLASP MULTFRAM+4~, MULTFRAM+26*, MULTFRAM+27
SOPCLASS ENTRY+24~, ENTRY+43*, MULTFRAM+26
STAMP ENTRY+24~, ENTRY+46*
STATUS ENTRY+24~, ENTRY+26*
STUDYDAT ENTRY+25~, ENTRY+31*
STUDYTIM ENTRY+25~, ENTRY+31*
STUDYUID ENTRY+25~, ENTRY+42*
SYSTITLE ENTRY+25~, ENTRY+36*
UID SAVEUID~, SAVEUID+14
VADM ENTRY+19~
VADM( ENTRY+83
X ENTRY+20~, ENTRY+81*, ENTRY+83*, ENTRY+84*, ENTRY+85*, ENTRY+86, NEWIMAGE+5~, NEWIMAGE+22*, NEWIMAGE+23*, NEWIMAGE+25
, SAVEUID+1~, SAVEUID+5*, SAVEUID+6*, SAVEUID+7*, SAVEUID+8*, SAVEUID+9

Marked Items

Name Field # of Occurrence
$T( ENTRY+61, ENTRY+78, NEWIMAGE+14, NEWIMAGE+61, LOOKUP+38
$T(GETICN^MPIF001 ENTRY+84
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All