MAGDIR81 ;WOIFO/PMK - Read a DICOM image file ; 03 Jul 2013 9:12 AM
Source file <MAGDIR81.m>
| 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 |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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
|
| 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 |
| 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 |
| >> | 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* |
| 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 |