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

Package: Imaging

Routine: MAGDSTA1


Information

MAGDSTA1 ;WOIFO/PMK - Q/R Retrieve of DICOM images from PACS to VistA ; Mar 08, 2022@07:55:07

Source Information

Source file <MAGDSTA1.m>

Entry Points

Name Comments DBIA/ICR reference
ENTRY(MENUOPTION) ; Entry point from main menu
TASKINIT ; initialize MAGIOM and ZTDESC
TASK ; entry point for a tasked job
BEGIN ; entry point for running the image compare or retrieve process
DIRECTON(SORTORDER) ; return the direction for $order
; 1 = normal order
; -1 = reverse order
COPYPARM(NORMALRUN) ; copy last run's parameters for the next run
NEXTDATE(DATE,DIRECTION) ; get the next date, but not in the future

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** Use the PARM option to set Check Study Division switch ***"
  • Line Location: ENTRY+13
Function Call: WRITE
  • Prompt: !!,"*** User's Division is not defined ***"
  • Line Location: ENTRY+18
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTRY+25
Function Call: WRITE
  • Prompt: !!,"Scan by Date, Report Number, Patient, or Accession (D, N, P, or A): "
  • Line Location: ENTRY+27
Function Call: WRITE
  • Prompt: !!,"Scan by Date, Consult Number, Patient, or Accession (D, N, P, or A): "
  • Line Location: ENTRY+30
Function Call: WRITE
  • Prompt: DEFAULT,"// "
  • Line Location: ENTRY+32
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ENTRY+33
Function Call: WRITE
  • Prompt: X
  • Line Location: ENTRY+34
Function Call: WRITE
  • Prompt: " ???",!,"Please enter ""D"", ""N"", ""P"", or ""A""."
  • Line Location: ENTRY+41
Function Call: WRITE
  • Prompt: !!?10,X,!?10
  • Line Location: ENTRY+50
Function Call: WRITE
  • Prompt: "-"
  • Line Location: ENTRY+50
Function Call: WRITE
  • Prompt: !!,"The last ",SCANMODE," scan run completed on ",$$FMTE^XLFDT(RUNTIME)
  • Line Location: ENTRY+54
Function Call: WRITE
  • Prompt: " YESNO ERROR"
  • Line Location: ENTRY+56
Function Call: WRITE
  • Prompt: !!,"THE LAST ",SCANMODE," SCAN RUN HAS NOT YET COMPLETED. The last action was on ",$$FMTE^XLFDT(RUNTIME)
  • Line Location: ENTRY+66
Function Call: WRITE
  • Prompt: " YESNO ERROR"
  • Line Location: ENTRY+68
Function Call: WRITE
  • Prompt: !!,"THE LAST ",SCANMODE," SCAN RUN HAS NOT YET BEGUN. The last action was on ",$$FMTE^XLFDT(RUNTIME)
  • Line Location: ENTRY+77
Function Call: WRITE
  • Prompt: " YESNO ERROR"
  • Line Location: ENTRY+79
Function Call: WRITE
  • Prompt: !!,"THE LAST ",SCANMODE," SCAN RUN ABNORMALLY TERMINATED: ",STATUS
  • Line Location: ENTRY+88
Function Call: WRITE
  • Prompt: !,"The last action was on ",$$FMTE^XLFDT(RUNTIME)
  • Line Location: ENTRY+89
Function Call: WRITE
  • Prompt: " YESNO ERROR"
  • Line Location: ENTRY+91
Function Call: WRITE
  • Prompt: " -- Exiting"
  • Line Location: ENTRY+107
Function Call: WRITE
  • Prompt: !,"Exiting"
  • Line Location: ENTRY+119
Function Call: WRITE
  • Prompt: !!,"Recommend report output of 132 columns",!!
  • Line Location: TASKINIT+2
Function Call: WRITE
  • Prompt: $E(ZTDESC,I)," "
  • Line Location: TASK+3
Function Call: WRITE
  • Prompt: !,"-"
  • Line Location: TASK+4
Function Call: WRITE
  • Prompt: "--"
  • Line Location: TASK+4
Function Call: WRITE
  • Prompt: !,"Started on ",$$FMTE^XLFDT($$NOW^XLFDT,1)
  • Line Location: TASK+5
Function Call: WRITE
  • Prompt: " by ",$$GET1^DIQ(200,DUZ,.01,"E")," (DUZ: ",DUZ,")"
  • Line Location: TASK+6
Function Call: WRITE
  • Prompt: " Job Number: ",$J
  • Line Location: TASK+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: TASK+9
Function Call: WRITE
  • Prompt: !!,"Cannot obtain LOCK on Q/R RETRIEVE DICOM RUN STATISTICS Table.",!!
  • Line Location: BEGIN+21
Function Call: WRITE
  • Prompt: !!,"RUN ",X
  • Line Location: BEGIN+87
Function Call: WRITE
  • Prompt: " at ",$$FMTE^XLFDT($$NOW^XLFDT,1)
  • Line Location: BEGIN+88

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call