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

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

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
Info |  Source |  Entry Points |  Interaction Calls