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 23, 2023@08:45:36

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** Use the PARM option to set Check Study Division switch ***"
  • Line Location: ENTRY+15
Function Call: WRITE
  • Prompt: !!,"*** User's Division is not defined ***"
  • Line Location: ENTRY+20
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTRY+27
Function Call: WRITE
  • Prompt: !!,"Scan by Date, Report Number, Patient, or Accession (D, N, P, or A): "
  • Line Location: ENTRY+29
Function Call: WRITE
  • Prompt: !!,"Scan by Date, Consult Number, Patient, or Accession (D, N, P, or A): "
  • Line Location: ENTRY+32
Function Call: WRITE
  • Prompt: DEFAULT,"// "
  • Line Location: ENTRY+34
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ENTRY+35
Function Call: WRITE
  • Prompt: X
  • Line Location: ENTRY+36
Function Call: WRITE
  • Prompt: " ???",!,"Please enter ""D"", ""N"", ""P"", or ""A""."
  • Line Location: ENTRY+43
Function Call: WRITE
  • Prompt: !!?10,X,!?10
  • Line Location: ENTRY+52
Function Call: WRITE
  • Prompt: "-"
  • Line Location: ENTRY+52
Function Call: WRITE
  • Prompt: !!,"The last ",SCANMODE," scan run completed on ",$$FMTE^XLFDT(RUNTIME)
  • Line Location: ENTRY+56
Function Call: WRITE
  • Prompt: " YESNO ERROR"
  • Line Location: ENTRY+58
Function Call: WRITE
  • Prompt: !!,"THE LAST ",SCANMODE," SCAN RUN HAS NOT YET COMPLETED. The last action was on ",$$FMTE^XLFDT(RUNTIME)
  • Line Location: ENTRY+68
Function Call: WRITE
  • Prompt: " YESNO ERROR"
  • Line Location: ENTRY+70
Function Call: WRITE
  • Prompt: !!,"THE LAST ",SCANMODE," SCAN RUN HAS NOT YET BEGUN. The last action was on ",$$FMTE^XLFDT(RUNTIME)
  • Line Location: ENTRY+79
Function Call: WRITE
  • Prompt: " YESNO ERROR"
  • Line Location: ENTRY+81
Function Call: WRITE
  • Prompt: !!,"THE LAST ",SCANMODE," SCAN RUN ABNORMALLY TERMINATED: ",STATUS
  • Line Location: ENTRY+90
Function Call: WRITE
  • Prompt: !,"The last action was on ",$$FMTE^XLFDT(RUNTIME)
  • Line Location: ENTRY+91
Function Call: WRITE
  • Prompt: " YESNO ERROR"
  • Line Location: ENTRY+93
Function Call: WRITE
  • Prompt: " -- Exiting"
  • Line Location: ENTRY+109
Function Call: WRITE
  • Prompt: !,"Exiting"
  • Line Location: ENTRY+123
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: !!,X,!!
  • Line Location: BEGIN+55
Function Call: WRITE
  • Prompt: !!,Y
  • Line Location: BEGIN+127

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