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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: MAGDTR03

Package: Imaging

Routine: MAGDTR03


Information

MAGDTR03 ;WOIFO/PMK/NST/MKN - Read a DICOM image file ; Mar 27, 2023 12:21 PM

Source Information

Source file <MAGDTR03.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Imaging 4 $$TIULAST^MAGDGMRC  ($$FINDLIST,GETHL7B)^MAGDTR01  ($$STATUPDT,$$TIMESTMP,$$UNREAD)^MAGDTR02  NEW^MAGGNTI1  
VA FileMan 2 $$FIND1^DIC  ($$GET1,GETS)^DIQ  
Kernel 1 $$NOW^XLFDT  

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: 5

Package Total Caller Graph
Imaging 5 MAGDIR9E  MAGDTR01  MAGDTR02  MAGDTRLU  MAGNGMR  

Entry Points

Name Comments DBIA/ICR reference
ADD(OUT,GMRCIEN,EVENT,IMAGECNT) ; add an entry to the read/unread list
COMPLETE ; entry point from ^MAGDTR01 & ^MAGDTRLU for COMPLETED consults
CANCEL ; entry point from ^MAGDTR01 & ^MAGDTRLU for CANCELLED consults
FINISH ; finalize resulted or cancelled consult
EXREF(UNREAD,TIMESTMP) ; set cancellation or reading stop date/time and "E" cross-reference
REPAIR ; code to repair a defective unread list entry
TIUNOTE ; create a TIU result note, if one is not present
ISADDNDM(GMRCIEN) ; P353
; Is the current patient consult transaction (activity) an ADDENDUM?
; Return is 0 = NO or 1 = YES - last consult transaction was an ADDENDUM?

External References

Name Field # of Occurrence
$$FIND1^DIC FINISH+16, REPAIR+26
$$GET1^DIQ ADD+23, ADD+24, FINISH+17, FINISH+27, FINISH+28, REPAIR+2, REPAIR+7, REPAIR+15, REPAIR+16, REPAIR+18
REPAIR+19, REPAIR+24, REPAIR+27, TIUNOTE+11
GETS^DIQ ISADDNDM+5
$$TIULAST^MAGDGMRC COMPLETE+8
$$FINDLIST^MAGDTR01 ADD+14, TIUNOTE+4
GETHL7B^MAGDTR01 FINISH+10
$$STATUPDT^MAGDTR02 COMPLETE+3, CANCEL+3
$$TIMESTMP^MAGDTR02 ADD+36, ADD+47
$$UNREAD^MAGDTR02 ADD+17, COMPLETE+2, CANCEL+2, TIUNOTE+5
NEW^MAGGNTI1 TIUNOTE+12
$$NOW^XLFDT REPAIR+33

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123 - [#123] GET1^DIQ,  GETS^DIQ
123.02 GET1^DIQ
^VA(200 - [#200] FIND1^DIC,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^MAG(2006.5839 - [#2006.5839] COMPLETE+7
^MAG(2006.5849 - [#2006.5849] ADD+28, ADD+29, ADD+30, ADD+31, ADD+33*, ADD+34*, ADD+35, ADD+37*, ADD+38*, ADD+42*
, ADD+43*, ADD+44, ADD+52, ADD+55, ADD+60*, ADD+61, CANCEL+6*, FINISH+13, FINISH+20*, FINISH+30*
, EXREF+4, EXREF+6*, EXREF+7*, REPAIR+32*, REPAIR+33*, TIUNOTE+9

Label References

Name Line Occurrences
$$ISADDNDM FINISH+6
EXREF FINISH+33, REPAIR+34
FINISH COMPLETE+5, CANCEL+7
REPAIR FINISH+4
TIUNOTE COMPLETE+10

Naked Globals

Name Field # of Occurrence
^(0 ADD+52*, ADD+55*, ADD+61*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACQSITE ADD+1~, ADD+14, ADD+20, ADD+34, ADD+43, EXREF+1~, EXREF+5*, EXREF+7, REPAIR+20, REPAIR+21
ACTIVITY REPAIR+1~, REPAIR+5, REPAIR+7*, REPAIR+8, REPAIR+9, REPAIR+10
ADDNDM FINISH+1~, FINISH+6*, FINISH+11, FINISH+26, FINISH+33
DUZ FINISH+27, FINISH+28, FINISH+29, TIUNOTE+1~, TIUNOTE+9*, TIUNOTE+12
DUZ(0 TIUNOTE+10*
DUZ(2 FINISH+29, TIUNOTE+10*
DUZACQ FINISH+1~, FINISH+16*, FINISH+17, FINISH+19, REPAIR+1~, REPAIR+16*, REPAIR+17, REPAIR+18, REPAIR+19, REPAIR+21
REPAIR+26*, REPAIR+27, REPAIR+29
EVENT ADD~, ADD+13, ADD+18
FULLNAME FINISH+1~, FINISH+10, FINISH+14, FINISH+16, FINISH+19, FINISH+27*, FINISH+29, REPAIR+1~, REPAIR+18*, REPAIR+21
REPAIR+24*, REPAIR+26, REPAIR+29
GMRCIEN ADD~, ADD+14, ADD+17, ADD+23, ADD+24, ADD+34, ADD+38, COMPLETE+2, COMPLETE+7, COMPLETE+8
CANCEL+2, FINISH+6, REPAIR+2, REPAIR+6, REPAIR+12, TIUNOTE+4, TIUNOTE+5, TIUNOTE+11, TIUNOTE+12, ISADDNDM~
, ISADDNDM+5
HIT REPAIR+1~, REPAIR+5*, REPAIR+8*, REPAIR+9*, REPAIR+10*, REPAIR+12
>> HLNEXT FINISH+9, TIUNOTE+3
I REPAIR+1~, REPAIR+5*, REPAIR+6, REPAIR+12
IFCIEN ADD+2~, ADD+24*, ADD+41, ADD+53
IFCSITE ADD+3~, ADD+23*, ADD+41, ADD+50, REPAIR+1~, REPAIR+2*, REPAIR+23, REPAIR+29
IMAGECNT ADD~, ADD+15*, ADD+59, ADD+61
INITIALS FINISH+1~, FINISH+17*, FINISH+19, FINISH+28*, FINISH+29, REPAIR+1~, REPAIR+19*, REPAIR+21, REPAIR+27*, REPAIR+29
IPROCIDX ADD+5~, ADD+14, ADD+20, ADD+34, ADD+43
ISPECIDX ADD+4~, ADD+14, ADD+20, ADD+34, ADD+43
LISTDATA EXREF+2~, EXREF+4*, EXREF+5
LOCATION COMPLETE+1~, FINISH+10, FINISH+19, REPAIR+1~, REPAIR+20*, TIUNOTE+10
LOCKNAME FINISH+1~, FINISH+13*, FINISH+14
MAGCOMPF ISADDNDM+4~
MAGDFN TIUNOTE+2~, TIUNOTE+11*, TIUNOTE+12
MAGIENS ISADDNDM+4~, ISADDNDM+6*, ISADDNDM+7, ISADDNDM+8
MAGOUT ISADDNDM+4~
MAGOUT( ISADDNDM+6, ISADDNDM+8
MAGPTR COMPLETE+1~, COMPLETE+7*, COMPLETE+8
MAGTEXT TIUNOTE+2~, TIUNOTE+12
MAGTEXT(1 TIUNOTE+6*
MAGTEXT(2 TIUNOTE+7*
MAGTEXT(3 TIUNOTE+8*
MAGTITLE TIUNOTE+2~, TIUNOTE+4, TIUNOTE+12
>> MODE FINISH+4
OUT ADD~, ADD+12*, ADD+64*
STATUS ADD+6~, ADD+41*, ADD+42, ADD+43
SUBFILE REPAIR+1~, REPAIR+6*, REPAIR+7, REPAIR+12*, REPAIR+15, REPAIR+16, REPAIR+24
TIMESTMP ADD+7~, ADD+36*, ADD+37, ADD+47*, ADD+52, ADD+55, ADD+60, COMPLETE+1~, COMPLETE+3*, COMPLETE+4
CANCEL+1~, CANCEL+3*, CANCEL+4, FINISH+33, EXREF~, EXREF+3, EXREF+6, EXREF+7, REPAIR+1~, REPAIR+15*
REPAIR+34
TRIGGER ADD+8~, ADD+14, ADD+18
UNREAD ADD+9~, ADD+17*, ADD+18, ADD+20, ADD+26, ADD+29*, ADD+30, ADD+32, ADD+34, ADD+36
, ADD+37, ADD+38, ADD+42, ADD+43, ADD+44, ADD+47, ADD+52, ADD+55, ADD+60, ADD+61
, ADD+64, COMPLETE+1~, COMPLETE+2*, COMPLETE+3, CANCEL+1~, CANCEL+2*, CANCEL+3, CANCEL+6, FINISH+13, FINISH+20
FINISH+30, FINISH+33, EXREF~, EXREF+3, EXREF+4, EXREF+6, EXREF+7, REPAIR+32, REPAIR+33, REPAIR+34
TIUNOTE+2~, TIUNOTE+5*, TIUNOTE+9
X ADD+10~, ADD+27~, ADD+31*, ADD+32*, ADD+33, FINISH+1~, FINISH+19*, FINISH+20, FINISH+29*, FINISH+30
REPAIR+21*, REPAIR+29*, REPAIR+31*, REPAIR+32
XECUTE TIUNOTE+2~
ZZ TIUNOTE+2~, TIUNOTE+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All