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

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

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