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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: MAGDSTA

Package: Imaging

Routine: MAGDSTA


Information

MAGDSTA ;WOIFO/PMK - Q/R Retrieve of DICOM images from PACS to VistA ; Feb 15, 2022@10:53:46

Source Information

Source file <MAGDSTA.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Imaging 5 $$HOSTNAME^MAGDFCNV  ENTRY^MAGDSTA1  STTWRITE^MAGDSTAA  MAKELIST^MAGDSTAS  ($$YESNO,CONTINUE)^MAGDSTQ  
Kernel 2 $$EC^%ZOSV  (,UNWIND)^%ZTER  

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

Package Total Caller Graph
Imaging 7 MAGD CON AUTO RETRIEVE  MAGD CON COUNT COMPARE  MAGD CON STATISTICS DELETE  MAGD RAD AUTO RETRIEVE  MAGD RAD COUNT COMPARE  MAGD RAD STATISTICS DELETE  MAGDSTA1  

Entry Points

Name Comments DBIA/ICR reference
CONRET ; retrieve missing consult images from PACS
CONCMP ; compare image counts between consult and PACS without retrieving images
RADRET ; retrieve missing radiology images from PACS
RADCMP ; compare image counts between radiology and PACS without retrieving images
NEXT(ENTRYPOINT) ; output banner and proceed to next routine
MESSAGE(MSG) ; display message
INITSTT(RUNNUMBER) ; initialize the statistics
KILLCON ; entry point to kill consult statistics runs
KILLRAD ; entry point to kill radiology statistics runs
KILL ; truncate the AUTOMATIC DICOM Q/R RUN STATS file (#2006.5443)
KILL1(I) ; delete a single entry
ERROR ; error trap for automatic processes

External References

Name Field # of Occurrence
$$EC^%ZOSV ERROR+2
^%ZTER ERROR+6
UNWIND^%ZTER ERROR+17
$$HOSTNAME^MAGDFCNV ERROR+13
ENTRY^MAGDSTA1 NEXT+11
STTWRITE^MAGDSTAA INITSTT+4
MAKELIST^MAGDSTAS KILL+2
$$YESNO^MAGDSTQ KILL+14
CONTINUE^MAGDSTQ ERROR+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: MESSAGE+3
Function Call: WRITE
  • Prompt: "*"
  • Line Location: MESSAGE+3
Function Call: WRITE
  • Prompt: !,"*** ",MSG,?WIDTH-4," ***"
  • Line Location: MESSAGE+4
Function Call: WRITE
  • Prompt: !,"*** ",MSG(I),?WIDTH-4," ***"
  • Line Location: MESSAGE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: MESSAGE+6
Function Call: WRITE
  • Prompt: "*"
  • Line Location: MESSAGE+6
Function Call: WRITE
  • Prompt: !!,"The AUTOMATIC DICOM Q/R RUN STATS for ",MYSERVICE," have already been deleted."
  • Line Location: KILL+4
Function Call: WRITE
  • Prompt: !!,"There is one entry in the AUTOMATIC DICOM Q/R RUN STATS for ",MYSERVICE,"."
  • Line Location: KILL+7
Function Call: WRITE
  • Prompt: !!,"There are "_COUNT_" entries in the AUTOMATIC DICOM Q/R RUN STATS file for ",MYSERVICE,"."
  • Line Location: KILL+11
Function Call: WRITE
  • Prompt: !!,"Cannot obtain LOCK on Q/R RETRIEVE DICOM RUN STATS Table.",!!
  • Line Location: KILL+16
Function Call: WRITE
  • Prompt: !!,"The AUTOMATIC DICOM Q/R RUN STATS file for ",MYSERVICE," has been truncated."
  • Line Location: KILL+30
Function Call: WRITE
  • Prompt: !!,"The AUTOMATIC DICOM Q/R RUN STATS file for ",MYSERVICE," has not been truncated."
  • Line Location: KILL+32
Function Call: WRITE
  • Prompt: !!,"*** ERROR: ",ERROR," ***"
  • Line Location: ERROR+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^MAGDSTT(2006.543 - [#2006.543] KILL+15, KILL+21, KILL+26*, KILL+27*, KILL+28, KILL1+2, KILL1+7!, KILL1+8!, KILL1+9!, ERROR+10*
^TMP("MAG" CONRET+1!, CONRET+2*, CONRET+3*, CONCMP+1!, CONCMP+2*, CONCMP+3*, RADRET+1!, RADRET+2*, RADRET+3*, RADCMP+1!
, RADCMP+2*, RADCMP+3*
^XTMP( ERROR+14!

Label References

Name Line Occurrences
KILL KILLCON+3, KILLRAD+3
KILL1 KILL+19
MESSAGE NEXT+6
NEXT CONRET+4, CONCMP+4, RADRET+4, RADCMP+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
COUNT KILL+1~, KILL+2, KILL+3, KILL+6, KILL+11, KILL+19, KILL1+1~
ENTRYPOINT NEXT~, NEXT+9!
ERROR ERROR+1~, ERROR+2*, ERROR+3, ERROR+4, ERROR+5
HOSTNAME ERROR+13~*, ERROR+14
I NEXT+1~, NEXT+3*, NEXT+9!, MESSAGE+1~, MESSAGE+3*, MESSAGE+5*, MESSAGE+6*, INITSTT+1~, INITSTT+3*, KILL+1~
, KILL+19*, KILL1~, KILL1+2, KILL1+7, KILL1+8, KILL1+9
IOM MESSAGE+2
J NEXT+1~, NEXT+2*, NEXT+7*, NEXT+9!, KILL+21*, KILL+23, KILL1+1~
K KILL+21*, KILL+22*, KILL+27, KILL1+1~
L KILL+21*, KILL+23*, KILL+26, KILL1+1~
LIST KILL+1~, KILL+2
LIST( KILL+19
>> MAGXTMP ERROR+12, ERROR+14
MENUOPTION NEXT+1~, NEXT+10*, NEXT+11, KILL1+1~, KILL1+5*, KILL1+9
MSG NEXT+1~, NEXT+6, NEXT+9!, MESSAGE~, MESSAGE+4
MSG( NEXT+7*, MESSAGE+5
MYSERVICE KILLCON+1~*, KILLRAD+1~*, KILL+2, KILL+4, KILL+7, KILL+11, KILL+30, KILL+32
NODE0 KILL1+1~, KILL1+2*, KILL1+3, KILL1+4, KILL1+5
PROMPT KILL+1~, KILL+8*, KILL+12*, KILL+14
RUNNUMBER INITSTT~, ERROR+9, ERROR+10
SCANMODE KILL1+1~, KILL1+4*, KILL1+9
STARTTIME KILL1+1~, KILL1+3*, KILL1+8
T INITSTT+1~, INITSTT+3*, INITSTT+4
TEXT NEXT+1~, NEXT+3*, NEXT+4, NEXT+5*, NEXT+6, NEXT+7, NEXT+9!
WIDTH MESSAGE+1~, MESSAGE+2*, MESSAGE+3, MESSAGE+4, MESSAGE+5, MESSAGE+6
X KILL+1~, KILL+14, ERROR+5*, ERROR+8*, ERROR+10
>> XQY0 NEXT+10

Marked Items

Name Field # of Occurrence
$T(@ENTRYPOINT+I NEXT+3
$T(INITSTT+I+7 INITSTT+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All