Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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) ;

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call