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  | All
Print Page as PDF
Routine: MAGDSTA9

Package: Imaging

Routine: MAGDSTA9


Information

MAGDSTA9 ;WOIFO/PMK - Q/R Retrieve of DICOM images from PACS to VistA ; Aug 12, 2025@09:44:38

Source Information

Source file <MAGDSTA9.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Imaging 1 $$YESNO^MAGDSTQ  
Kernel 1 $$FMTE^XLFDT  
Registration 1 DEM^VADPT  

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

Package Total Caller Graph
Imaging 2 MAGDSTA1  MAGDSTAX  

Entry Points

Name Comments DBIA/ICR reference
VERIFY ; get the parameters for this run
DISPLAY ; get and display the parameters
DISPLAY1 ; just display the parameters - called by ^MAGDSTA1
J(X) ; right justify field name and add colon & space

External References

Name Field # of Occurrence
$$YESNO^MAGDSTQ VERIFY+9
DEM^VADPT DISPLAY1+37
$$FMTE^XLFDT DISPLAY1+43, DISPLAY1+44, DISPLAY1+47, DISPLAY1+48, DISPLAY1+53, DISPLAY1+54, DISPLAY1+57, DISPLAY1+58, DISPLAY1+68

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!?10,"F i n a l P a r a m e t e r C h e c k l i s t"
  • Line Location: VERIFY+2
Function Call: WRITE
  • Prompt: !?10,"------------------------------------------------"
  • Line Location: VERIFY+3
Function Call: WRITE
  • Prompt: " -- ",^TMP("MAG",$J,"BATCH Q/R","OPTION")," not started"
  • Line Location: VERIFY+11
Function Call: WRITE
  • Prompt: !,$$J("Imaging Service")
  • Line Location: DISPLAY1+3
Function Call: WRITE
  • Prompt: ",",!,?27
  • Line Location: DISPLAY1+12
Function Call: WRITE
  • Prompt: X
  • Line Location: DISPLAY1+14
Function Call: WRITE
  • Prompt: " -- *** Error: No Services Selected! ***"
  • Line Location: DISPLAY1+17
Function Call: WRITE
  • Prompt: IMAGINGSERVICE
  • Line Location: DISPLAY1+19
Function Call: WRITE
  • Prompt: !,$$J("Query Retrieve Mode"),OPTION
  • Line Location: DISPLAY1+20
Function Call: WRITE
  • Prompt: !,$$J("Scan Mode"),SCANMODE
  • Line Location: DISPLAY1+21
Function Call: WRITE
  • Prompt: !,$$J("Query/Retrieve Provider"),QRSCP
  • Line Location: DISPLAY1+22
Function Call: WRITE
  • Prompt: !,$$J("Study scanning order"),SORTORDER
  • Line Location: DISPLAY1+23
Function Call: WRITE
  • Prompt: !,$$J("Starting with report"),IEN
  • Line Location: DISPLAY1+27
Function Call: WRITE
  • Prompt: !,$$J("Starting with consult"),IEN
  • Line Location: DISPLAY1+30
Function Call: WRITE
  • Prompt: !,$$J("Number of studies to retrieve"),BATCHSIZE
  • Line Location: DISPLAY1+32
Function Call: WRITE
  • Prompt: !,$$J("Patient Name"),NAME
  • Line Location: DISPLAY1+39
Function Call: WRITE
  • Prompt: !,$$J("Social Security Number"),SSN
  • Line Location: DISPLAY1+40
Function Call: WRITE
  • Prompt: !,$$J("Date of Birth"),DOB
  • Line Location: DISPLAY1+41
Function Call: WRITE
  • Prompt: !,$$J("Earliest date for study"),$$FMTE^XLFDT(BEGDATE,1)
  • Line Location: DISPLAY1+43
Function Call: WRITE
  • Prompt: !,$$J("Latest date for study"),$$FMTE^XLFDT(ENDDATE,1)
  • Line Location: DISPLAY1+44
Function Call: WRITE
  • Prompt: !,$$J("Latest date for study"),$$FMTE^XLFDT(ENDDATE,1)
  • Line Location: DISPLAY1+47
Function Call: WRITE
  • Prompt: !,$$J("Earliest date for study"),$$FMTE^XLFDT(BEGDATE,1)
  • Line Location: DISPLAY1+48
Function Call: WRITE
  • Prompt: !,$$J("Earliest date for study"),$$FMTE^XLFDT(BEGDATE,1)
  • Line Location: DISPLAY1+53
Function Call: WRITE
  • Prompt: !,$$J("Latest date for study"),$$FMTE^XLFDT(ENDDATE,1)
  • Line Location: DISPLAY1+54
Function Call: WRITE
  • Prompt: !,$$J("Latest date for study"),$$FMTE^XLFDT(ENDDATE,1)
  • Line Location: DISPLAY1+57
Function Call: WRITE
  • Prompt: !,$$J("Earliest date for study"),$$FMTE^XLFDT(BEGDATE,1)
  • Line Location: DISPLAY1+58
Function Call: WRITE
  • Prompt: !,$$J("Active hours of operation"),"M12345678901N12345678901 (M=midnight, N=noon)"
  • Line Location: DISPLAY1+62
Function Call: WRITE
  • Prompt: !?27,HOURS
  • Line Location: DISPLAY1+63
Function Call: WRITE
  • Prompt: !!,$$J("Status of Previous Run"),STATUS
  • Line Location: DISPLAY1+65
Function Call: WRITE
  • Prompt: !,$$J("Last Study Date"),$$FMTE^XLFDT(STUDYDATE)
  • Line Location: DISPLAY1+68
Function Call: WRITE
  • Prompt: !,$$J("Accession Number"),ACNUMB
  • Line Location: DISPLAY1+71
Function Call: WRITE
  • Prompt: !,$$J("Last Report Number"),STUDYIEN
  • Line Location: DISPLAY1+74
Function Call: WRITE
  • Prompt: !,$$J("Report Date"),$P(OUTPUTREPORT,"^",1)
  • Line Location: DISPLAY1+77
Function Call: WRITE
  • Prompt: !,$$J("Report #"),$P(OUTPUTREPORT,"^",2)
  • Line Location: DISPLAY1+78

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("MAG" VERIFY+5, VERIFY+11, DISPLAY+6, DISPLAY+7, DISPLAY+8, DISPLAY+9, DISPLAY+10, DISPLAY+11, DISPLAY+12, DISPLAY+13
, DISPLAY+14, DISPLAY+15, DISPLAY1+25, DISPLAY1+36

Label References

Name Line Occurrences
$$J DISPLAY1+3, DISPLAY1+20, DISPLAY1+21, DISPLAY1+22, DISPLAY1+23, DISPLAY1+27, DISPLAY1+30, DISPLAY1+32, DISPLAY1+39, DISPLAY1+40
, DISPLAY1+41, DISPLAY1+43, DISPLAY1+44, DISPLAY1+47, DISPLAY1+48, DISPLAY1+53, DISPLAY1+54, DISPLAY1+57, DISPLAY1+58, DISPLAY1+62
, DISPLAY1+65, DISPLAY1+68, DISPLAY1+71, DISPLAY1+74, DISPLAY1+77, DISPLAY1+78
DISPLAY VERIFY+4
DISPLAY1 DISPLAY+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACNUMB DISPLAY+4~, DISPLAY1+70, DISPLAY1+71
BATCHSIZE DISPLAY+1~, DISPLAY+13*, DISPLAY1+32
BEGDATE DISPLAY+1~, DISPLAY+11*, DISPLAY1+43, DISPLAY1+48, DISPLAY1+53, DISPLAY1+58
CONSULTSERVICES DISPLAY+1~, DISPLAY+7*
CONSULTSERVICES( DISPLAY1+6, DISPLAY1+7
DFN DISPLAY+1~, DISPLAY1+36*
DILOCKTM DISPLAY+1~
DISYS DISPLAY+1~
DOB DISPLAY+1~, DISPLAY1+38*, DISPLAY1+41
ENDDATE DISPLAY+1~, DISPLAY+12*, DISPLAY1+44, DISPLAY1+47, DISPLAY1+54, DISPLAY1+57
HOURS DISPLAY+1~, DISPLAY+14*, DISPLAY1+63
I DISPLAY1+1~, DISPLAY1+5*, DISPLAY1+6*, DISPLAY1+7, DISPLAY1+10*, DISPLAY1+11, DISPLAY1+13, DISPLAY1+35~
>> IEN DISPLAY1+25*, DISPLAY1+27, DISPLAY1+30
IMAGINGSERVICE DISPLAY+2~, DISPLAY+6*, DISPLAY1+4, DISPLAY1+19, DISPLAY1+26
IOM DISPLAY1+12
J DISPLAY1+1~, DISPLAY1+5*, DISPLAY1+7*, DISPLAY1+9, DISPLAY1+10
LIST DISPLAY1+1~
LIST( DISPLAY1+7*, DISPLAY1+11
NAME DISPLAY+2~, DISPLAY1+38*, DISPLAY1+39
OPTION DISPLAY+2~, DISPLAY+9*, DISPLAY1+20
>> OUTPUTREPORT DISPLAY1+76, DISPLAY1+77, DISPLAY1+78
PROMPT VERIFY+1~, VERIFY+6*, VERIFY+8*, VERIFY+9
QRSCP DISPLAY+2~, DISPLAY+8*, DISPLAY1+22
>> QUIT VERIFY+9*, VERIFY+10*, VERIFY+11*
SCANMODE DISPLAY+2~, DISPLAY+15*, DISPLAY1+21, DISPLAY1+24, DISPLAY1+34
SERVICE DISPLAY+2~
SORTORDER DISPLAY+2~, DISPLAY+10*, DISPLAY1+23, DISPLAY1+42, DISPLAY1+52
SSN DISPLAY+2~, DISPLAY1+38*, DISPLAY1+40
STATUS DISPLAY+4~, DISPLAY1+64, DISPLAY1+65
STUDYDATE DISPLAY+4~, DISPLAY1+67, DISPLAY1+68
STUDYIEN DISPLAY+4~, DISPLAY1+73, DISPLAY1+74
VA DISPLAY1+2~
VADM DISPLAY1+2~
VADM(1 DISPLAY1+38
VADM(2 DISPLAY1+38
VADM(3 DISPLAY1+38
VAERR DISPLAY1+2~
VAICN DISPLAY1+2~
VAIN DISPLAY1+2~
VAINFO DISPLAY1+2~
VAPA DISPLAY1+2~
X VERIFY+1~, VERIFY+9, VERIFY+10, DISPLAY1+2~, DISPLAY1+11*, DISPLAY1+12, DISPLAY1+14, J~, J+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All