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

Package: Imaging

Routine: MAGDTRDX


Information

MAGDTRDX ;WOIFO/PMK - Formatted dump of DICOM MWL & TeleReader dictionaries ; Mar 12, 2020@14:11:05

Source Information

Source file <MAGDTRDX.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 2 ^%ZIS  $$HTE^XLFDT  
VA FileMan 1 ($$GET1,GETS)^DIQ  

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

Package Total Caller Graph
Imaging 3 MAGDHOWE  MAGDTRLU  MAGT SETUP REPORT  

Entry Points

Name Comments DBIA/ICR reference
ENTRY ;
WORKLIST ; display the clinical specialty DICOM MWL and HL7 configuration files
TELEREAD ; display the TeleReader configuration files
W(PROMPT) ; output prompt
HEADING(MSG) ;

External References

Name Field # of Occurrence
^%ZIS WORKLIST+4, TELEREAD+6
$$GET1^DIQ WORKLIST+16, WORKLIST+17, WORKLIST+18, WORKLIST+19, WORKLIST+20, WORKLIST+21, WORKLIST+23, WORKLIST+24, WORKLIST+29, WORKLIST+30
, WORKLIST+32, WORKLIST+38, TELEREAD+14, TELEREAD+16, TELEREAD+17, TELEREAD+21, TELEREAD+22, TELEREAD+28, TELEREAD+37, TELEREAD+40
, TELEREAD+48, TELEREAD+52, TELEREAD+57, TELEREAD+62
GETS^DIQ WORKLIST+44
$$HTE^XLFDT WORKLIST+7, TELEREAD+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: WORKLIST+8
Function Call: WRITE
  • Prompt: !!?13,$S(PROC:"-- Procedure",1:" -- Consult")," --"
  • Line Location: WORKLIST+15
Function Call: WRITE
  • Prompt: !,$$W("Request Service:"),$$GET1^DIQ(123.5,SERVICE,.01)
  • Line Location: WORKLIST+16
Function Call: WRITE
  • Prompt: !,$$W("Procedure:"),$$GET1^DIQ(123.3,PROC,.01)
  • Line Location: WORKLIST+17
Function Call: WRITE
  • Prompt: !,$$W("Worklist:"),$$GET1^DIQ(2005.84,ISPECIDX,3)
  • Line Location: WORKLIST+18
Function Call: WRITE
  • Prompt: "/",$$GET1^DIQ(2005.85,IPROCIDX,3)
  • Line Location: WORKLIST+19
Function Call: WRITE
  • Prompt: " (",$$GET1^DIQ(2005.84,ISPECIDX,.01)
  • Line Location: WORKLIST+20
Function Call: WRITE
  • Prompt: "/",$$GET1^DIQ(2005.85,IPROCIDX,.01)
  • Line Location: WORKLIST+21
Function Call: WRITE
  • Prompt: ")"
  • Line Location: WORKLIST+22
Function Call: WRITE
  • Prompt: !,$$W("Acquired at:"),$$GET1^DIQ(4,DIVISION,99)," -- ",$$GET1^DIQ(4,DIVISION,.01)
  • Line Location: WORKLIST+23
Function Call: WRITE
  • Prompt: !,$$W("Remote IFC:"),ROUTE
  • Line Location: WORKLIST+26
Function Call: WRITE
  • Prompt: !,$$W("CPT Code:"),$$GET1^DIQ(81,CPTIEN,.01)
  • Line Location: WORKLIST+29
Function Call: WRITE
  • Prompt: " -- ",$$GET1^DIQ(81,CPTIEN,2)
  • Line Location: WORKLIST+30
Function Call: WRITE
  • Prompt: !,$$W("HL7 Subscriber List:"),$$GET1^DIQ(779.4,HL7SUBLIST,.01)
  • Line Location: WORKLIST+32
Function Call: WRITE
  • Prompt: !,$$W("Q/R Provider:"),QRSCP
  • Line Location: WORKLIST+33
Function Call: WRITE
  • Prompt: !,$$W("Clinic(s):")
  • Line Location: WORKLIST+36
Function Call: WRITE
  • Prompt: !,$$W("")
  • Line Location: WORKLIST+39
Function Call: WRITE
  • Prompt: CLINNAME," "
  • Line Location: WORKLIST+40
Function Call: WRITE
  • Prompt: !,$$W("Associated Stop Code:"),X(123.5688,I,.01,"E")
  • Line Location: WORKLIST+47
Function Call: WRITE
  • Prompt: !,"Warning: No Associated Stop Codes are defined for this Request Service."
  • Line Location: WORKLIST+51
Function Call: WRITE
  • Prompt: !," Use CONSULT ASSOCIATED STOP CODE menu option to define them."
  • Line Location: WORKLIST+52
Function Call: WRITE
  • Prompt: !!
  • Line Location: TELEREAD+8
Function Call: WRITE
  • Prompt: !!,$$W("Request Service:"),$$GET1^DIQ(123.5,SERVICE,.01)
  • Line Location: TELEREAD+14
Function Call: WRITE
  • Prompt: ?63,"*** DICOM MWL ***"
  • Line Location: TELEREAD+15
Function Call: WRITE
  • Prompt: !,$$W("Procedure:"),$$GET1^DIQ(123.3,PROC,.01)
  • Line Location: TELEREAD+16
Function Call: WRITE
  • Prompt: !,$$W("Remote IFC:"),ROUTE
  • Line Location: TELEREAD+19
Function Call: WRITE
  • Prompt: !,$$W(" Unread List:"),$$GET1^DIQ(2005.84,ISPECIDX,.01)
  • Line Location: TELEREAD+21
Function Call: WRITE
  • Prompt: " -- ",$$GET1^DIQ(2005.85,IPROCIDX,.01)
  • Line Location: TELEREAD+22
Function Call: WRITE
  • Prompt: !,$$W("Trigger:")
  • Line Location: TELEREAD+23
Function Call: WRITE
  • Prompt: "Create/update with every acquired image"
  • Line Location: TELEREAD+24
Function Call: WRITE
  • Prompt: "Create when request is ordered"
  • Line Location: TELEREAD+25
Function Call: WRITE
  • Prompt: "Create when consult is forwarded"
  • Line Location: TELEREAD+26
Function Call: WRITE
  • Prompt: "Unknown trigger value: """,TRIGGER,""""
  • Line Location: TELEREAD+27
Function Call: WRITE
  • Prompt: !,$$W("Note for IFC:"),$$GET1^DIQ(8925.1,TIUNOTE,.01)
  • Line Location: TELEREAD+28
Function Call: WRITE
  • Prompt: !!
  • Line Location: TELEREAD+32
Function Call: WRITE
  • Prompt: !!,$$W("Acquisition:"),$$GET1^DIQ(4,ACQSITE,.01)
  • Line Location: TELEREAD+37
Function Call: WRITE
  • Prompt: ?50,$S(STATUS:"Active",1:"Inactive")
  • Line Location: TELEREAD+38
Function Call: WRITE
  • Prompt: ?60,"Lock Time: ",LOCKTIME," min."
  • Line Location: TELEREAD+39
Function Call: WRITE
  • Prompt: !,$$W("Primary Site:"),$$GET1^DIQ(4,PRIMARY,.01)
  • Line Location: TELEREAD+40
Function Call: WRITE
  • Prompt: !!
  • Line Location: TELEREAD+44
Function Call: WRITE
  • Prompt: !!,$$W("TeleReader:"),$$GET1^DIQ(200,X,.01)
  • Line Location: TELEREAD+48
Function Call: WRITE
  • Prompt: !!,$$W("Acquisition:"),$$GET1^DIQ(4,ACQSITE,.01)
  • Line Location: TELEREAD+52
Function Call: WRITE
  • Prompt: ?50,$S(STATUS:"Active",1:"Inactive")
  • Line Location: TELEREAD+53
Function Call: WRITE
  • Prompt: !,$$W(" Unread List:"),$$GET1^DIQ(2005.84,ISPECIDX,.01)
  • Line Location: TELEREAD+57
Function Call: WRITE
  • Prompt: ?50,$S(STATUS:"Active",1:"Inactive")
  • Line Location: TELEREAD+58
Function Call: WRITE
  • Prompt: !,$$W(""),$$GET1^DIQ(2005.85,IPROCIDX,.01)
  • Line Location: TELEREAD+62
Function Call: WRITE
  • Prompt: ?50,$S(STATUS:"Active",1:"Inactive")
  • Line Location: TELEREAD+63
Function Call: WRITE
  • Prompt: ?65,"User: ",$S(USERPREF:"Active",1:"Inactive")
  • Line Location: TELEREAD+64
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","*"),!
  • Line Location: TELEREAD+69
Function Call: WRITE
  • Prompt: !!,"End of Report",!
  • Line Location: TELEREAD+70
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","*")
  • Line Location: HEADING+2
Function Call: WRITE
  • Prompt: !,"*** ",MSG,?76," ***"
  • Line Location: HEADING+3
Function Call: WRITE
  • Prompt: !,"*** ",MSG(I),?76," ***"
  • Line Location: HEADING+4
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","*")
  • Line Location: HEADING+5
Routine Call
  • %ZIS
  • Line Location:
    • WORKLIST+4
    • TELEREAD+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123.3 - [#123.3] GET1^DIQ
^GMR(123.5 - [#123.5] GET1^DIQ,  GETS^DIQ
^VA(200 - [#200] GET1^DIQ
^MAG(2005.84 - [#2005.84] GET1^DIQ
^MAG(2005.85 - [#2005.85] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^SC - [#44] GET1^DIQ
^HLD(779.4 - [#779.4] GET1^DIQ
^ICPT - [#81] GET1^DIQ
^TIU(8925.1 - [#8925.1] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^MAG(2006.5831 - [#2006.5831] WORKLIST+9, WORKLIST+10, WORKLIST+35, WORKLIST+37, TELEREAD+15
^MAG(2006.5841 - [#2006.5841] TELEREAD+9, TELEREAD+10
^MAG(2006.5842 - [#2006.5842] TELEREAD+33, TELEREAD+34
^MAG(2006.5843 - [#2006.5843] TELEREAD+45, TELEREAD+46, TELEREAD+49, TELEREAD+50, TELEREAD+54, TELEREAD+55, TELEREAD+59, TELEREAD+60

Label References

Name Line Occurrences
$$W WORKLIST+16, WORKLIST+17, WORKLIST+18, WORKLIST+23, WORKLIST+26, WORKLIST+29, WORKLIST+32, WORKLIST+33, WORKLIST+36, WORKLIST+39
, WORKLIST+47, TELEREAD+14, TELEREAD+16, TELEREAD+19, TELEREAD+21, TELEREAD+23, TELEREAD+28, TELEREAD+37, TELEREAD+40, TELEREAD+48
, TELEREAD+52, TELEREAD+57, TELEREAD+62
HEADING WORKLIST+8, TELEREAD+8, TELEREAD+32, TELEREAD+44
TELEREAD ENTRY+1
WORKLIST ENTRY+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACQSITE WORKLIST+1~, TELEREAD+1~, TELEREAD+35*, TELEREAD+37, TELEREAD+51*, TELEREAD+52
CLINNAME WORKLIST+1~, WORKLIST+38*, WORKLIST+39, WORKLIST+40, TELEREAD+1~
CLINPTR WORKLIST+1~, WORKLIST+34*, WORKLIST+36, WORKLIST+37*, WORKLIST+38, TELEREAD+1~
CPTCODE TELEREAD+1~
CPTIEN WORKLIST+1~, WORKLIST+13*, WORKLIST+28, WORKLIST+29, WORKLIST+30
D0 WORKLIST+1~, WORKLIST+9*, WORKLIST+10, WORKLIST+35, WORKLIST+37, TELEREAD+1~, TELEREAD+9*, TELEREAD+10, TELEREAD+33*, TELEREAD+34
, TELEREAD+45*, TELEREAD+46, TELEREAD+47, TELEREAD+49, TELEREAD+50, TELEREAD+54, TELEREAD+55, TELEREAD+59, TELEREAD+60
D1 WORKLIST+1~, WORKLIST+35*, WORKLIST+37, TELEREAD+1~, TELEREAD+49*, TELEREAD+50, TELEREAD+54, TELEREAD+55, TELEREAD+59, TELEREAD+60
D2 WORKLIST+1~, TELEREAD+1~, TELEREAD+54*, TELEREAD+55, TELEREAD+59, TELEREAD+60
D3 WORKLIST+1~, TELEREAD+1~, TELEREAD+59*, TELEREAD+60
DIVISION WORKLIST+1~, WORKLIST+12*, WORKLIST+23, TELEREAD+1~, TELEREAD+12*
HL7SUBLIST WORKLIST+1~, WORKLIST+13*, WORKLIST+32, TELEREAD+1~
I WORKLIST+2~, WORKLIST+46*, WORKLIST+47, HEADING+1~, HEADING+4*
IO WORKLIST+5, WORKLIST+54, TELEREAD+6, TELEREAD+7, TELEREAD+71
IPROCIDX WORKLIST+2~, WORKLIST+12*, WORKLIST+19, WORKLIST+21, TELEREAD+2~, TELEREAD+12*, TELEREAD+22, TELEREAD+61*, TELEREAD+62
ISPECIDX WORKLIST+2~, WORKLIST+11*, WORKLIST+18, WORKLIST+20, TELEREAD+2~, TELEREAD+11*, TELEREAD+21, TELEREAD+56*, TELEREAD+57
LOCKTIME WORKLIST+2~, TELEREAD+2~, TELEREAD+36*, TELEREAD+39
MSG WORKLIST+2~, WORKLIST+8, TELEREAD+2~, TELEREAD+8, TELEREAD+32, TELEREAD+44, HEADING~, HEADING+3
MSG( HEADING+4
MSG(1 WORKLIST+6*, TELEREAD+4*
MSG(2 WORKLIST+7*, TELEREAD+5*, TELEREAD+31*, TELEREAD+43*
MSG(3 WORKLIST+6*, TELEREAD+4*
POP WORKLIST+2~, WORKLIST+4, TELEREAD+2~, TELEREAD+6
PRIMARY WORKLIST+2~, TELEREAD+2~, TELEREAD+35*, TELEREAD+40
PROC WORKLIST+2~, WORKLIST+11*, WORKLIST+15, WORKLIST+17, TELEREAD+2~, TELEREAD+11*, TELEREAD+16
PROMPT W~, W+1
QRSCP WORKLIST+2~, WORKLIST+14*, WORKLIST+33
ROUTE WORKLIST+2~, WORKLIST+24*, WORKLIST+25, WORKLIST+26, TELEREAD+2~, TELEREAD+17*, TELEREAD+18, TELEREAD+19
SERVICE WORKLIST+3~, WORKLIST+11*, WORKLIST+16, WORKLIST+24, WORKLIST+44, TELEREAD+2~, TELEREAD+11*, TELEREAD+14, TELEREAD+15, TELEREAD+17
STATUS WORKLIST+3~, TELEREAD+2~, TELEREAD+36*, TELEREAD+38, TELEREAD+51*, TELEREAD+53, TELEREAD+56*, TELEREAD+58, TELEREAD+61*, TELEREAD+63
TIUNOTE WORKLIST+3~, TELEREAD+3~, TELEREAD+13*, TELEREAD+28
TRIGGER WORKLIST+3~, TELEREAD+3~, TELEREAD+13*, TELEREAD+24, TELEREAD+25, TELEREAD+26, TELEREAD+27
USERPREF WORKLIST+3~, TELEREAD+3~, TELEREAD+61*, TELEREAD+64
X WORKLIST+3~, WORKLIST+10*, WORKLIST+11, WORKLIST+12, WORKLIST+13, WORKLIST+14, WORKLIST+44!, TELEREAD+3~, TELEREAD+10*, TELEREAD+11
, TELEREAD+12, TELEREAD+13, TELEREAD+34*, TELEREAD+35, TELEREAD+36, TELEREAD+46*, TELEREAD+48
X( WORKLIST+45, WORKLIST+46, WORKLIST+47
X1 WORKLIST+3~, TELEREAD+3~, TELEREAD+50*, TELEREAD+51
X2 WORKLIST+3~, TELEREAD+3~, TELEREAD+55*, TELEREAD+56
X3 WORKLIST+3~, TELEREAD+3~, TELEREAD+60*, TELEREAD+61
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All