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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: MAGDSTA1

Package: Imaging

Routine: MAGDSTA1


Information

MAGDSTA1 ;WOIFO/PMK - Q/R Retrieve of DICOM images from PACS to VistA ; Jul 19, 2021@08:27:46

Source Information

Source file <MAGDSTA1.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Imaging 10 $$HOSTNAME^MAGDFCNV  INITSTT^MAGDSTA  (ACNUM,QRSCP)^MAGDSTA2  $$MAIN^MAGDSTA5  $$MAIN^MAGDSTA7  $$SERVICES^MAGDSTA8  (DISPLAY,DISPLAY1)^MAGDSTA9  LASTRUN^MAGDSTAS  
($$YESNO,CONTINUE)^MAGDSTQ  $$INITXTMP^MAGDSTQ0  
Kernel 2 ($$FMADD,$$FMTE,$$NOW)^XLFDT  EN^XUTMDEVQ  
VA FileMan 1 $$GET1^DIQ  

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

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

External References

Name Field # of Occurrence
$$GET1^DIQ TASK+6
$$HOSTNAME^MAGDFCNV ENTRY+11
INITSTT^MAGDSTA BEGIN+64
ACNUM^MAGDSTA2 ENTRY+101
QRSCP^MAGDSTA2 ENTRY+97
$$MAIN^MAGDSTA5 BEGIN+75
$$MAIN^MAGDSTA7 BEGIN+78
$$SERVICES^MAGDSTA8 ENTRY+106
DISPLAY^MAGDSTA9 TASK+8
DISPLAY1^MAGDSTA9 ENTRY+43
LASTRUN^MAGDSTAS ENTRY+42
$$YESNO^MAGDSTQ ENTRY+46, ENTRY+58, ENTRY+69, ENTRY+81
CONTINUE^MAGDSTQ BEGIN+91
$$INITXTMP^MAGDSTQ0 ENTRY+13
$$FMADD^XLFDT NEXTDATE+3
$$FMTE^XLFDT ENTRY+45, ENTRY+57, ENTRY+68, ENTRY+80, TASK+5, BEGIN+88
$$NOW^XLFDT TASK+5, BEGIN+29, BEGIN+72, BEGIN+83, BEGIN+88, NEXTDATE+2
EN^XUTMDEVQ ENTRY+161

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTRY+16
Function Call: WRITE
  • Prompt: !!,"Scan by Date, Report Number, Patient, or Accession (D, N, P, or A): "
  • Line Location: ENTRY+18
Function Call: WRITE
  • Prompt: !!,"Scan by Date, Consult Number, Patient, or Accession (D, N, P, or A): "
  • Line Location: ENTRY+21
Function Call: WRITE
  • Prompt: DEFAULT,"// "
  • Line Location: ENTRY+23
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ENTRY+24
Function Call: WRITE
  • Prompt: X
  • Line Location: ENTRY+25
Function Call: WRITE
  • Prompt: " ???",!,"Please enter ""D"", ""N"", ""P"", or ""A""."
  • Line Location: ENTRY+32
Function Call: WRITE
  • Prompt: !!?10,X,!?10
  • Line Location: ENTRY+41
Function Call: WRITE
  • Prompt: "-"
  • Line Location: ENTRY+41
Function Call: WRITE
  • Prompt: !!,"The last ",SCANMODE," scan run completed on ",$$FMTE^XLFDT(RUNTIME)
  • Line Location: ENTRY+45
Function Call: WRITE
  • Prompt: " YESNO ERROR"
  • Line Location: ENTRY+47
Function Call: WRITE
  • Prompt: !!,"THE LAST ",SCANMODE," SCAN RUN HAS NOT YET COMPLETED. The last action was on ",$$FMTE^XLFDT(RUNTIME)
  • Line Location: ENTRY+57
Function Call: WRITE
  • Prompt: " YESNO ERROR"
  • Line Location: ENTRY+59
Function Call: WRITE
  • Prompt: !!,"THE LAST ",SCANMODE," SCAN RUN HAS NOT YET BEGUN. 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 ABNORMALLY TERMINATED: ",STATUS
  • Line Location: ENTRY+79
Function Call: WRITE
  • Prompt: !,"The last action was on ",$$FMTE^XLFDT(RUNTIME)
  • Line Location: ENTRY+80
Function Call: WRITE
  • Prompt: " YESNO ERROR"
  • Line Location: ENTRY+82
Function Call: WRITE
  • Prompt: " -- Exiting"
  • Line Location: ENTRY+98
Function Call: WRITE
  • Prompt: !,"Exiting"
  • Line Location: ENTRY+110
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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" BEGIN+5
^MAGDSTT(2006.543 - [#2006.543] ENTRY+38, BEGIN+20, BEGIN+23, BEGIN+25, BEGIN+27*, BEGIN+50*, BEGIN+55*, BEGIN+56*, BEGIN+58*, BEGIN+60*
BEGIN+61*, BEGIN+62, BEGIN+84*, BEGIN+86*
^TMP("MAG" ENTRY+8, ENTRY+9, ENTRY+15, ENTRY+35*, ENTRY+52!, ENTRY+64!, ENTRY+75!, ENTRY+87!, ENTRY+93, ENTRY+94*
, ENTRY+98, ENTRY+107!, ENTRY+108*, TASKINIT+1, BEGIN+7, BEGIN+8, BEGIN+9, BEGIN+10, BEGIN+11, BEGIN+12
BEGIN+13, BEGIN+14, BEGIN+15, BEGIN+16, BEGIN+17, BEGIN+18, BEGIN+66*, BEGIN+90!, COPYPARM+2*, COPYPARM+3*
, COPYPARM+4*, COPYPARM+5*, COPYPARM+7*, COPYPARM+15*, COPYPARM+16*, COPYPARM+17*, COPYPARM+20*, COPYPARM+21*, COPYPARM+22*, COPYPARM+27*
, COPYPARM+28*, COPYPARM+32*, COPYPARM+34*, COPYPARM+35*, COPYPARM+38*, COPYPARM+39*, COPYPARM+44*
^XTMP( BEGIN+70*, BEGIN+71*, BEGIN+72*, BEGIN+89!

Label References

Name Line Occurrences
$$DIRECTON BEGIN+68, COPYPARM+9
$$NEXTDATE COPYPARM+15, COPYPARM+20, COPYPARM+34, COPYPARM+38
@( ENTRY+140
COPYPARM ENTRY+49, ENTRY+61, ENTRY+72, ENTRY+84
TASKINIT ENTRY+146

Naked Globals

Name Field # of Occurrence
^("IMAGING SERVICE" BEGIN+70*
^("OPTION" BEGIN+71*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS ENTRY+152~, ENTRY+161
ACNUMB ENTRY+1~, BEGIN+1~
BATCHSIZE ENTRY+1~, BEGIN+1~, BEGIN+11*, BEGIN+40, COPYPARM+28
BEGDATE ENTRY+1~, BEGIN+1~, BEGIN+13*, BEGIN+37, COPYPARM+20
CONSULTSERVICES ENTRY+3~, ENTRY+106, ENTRY+108, COPYPARM+44
CONSULTSERVICES( BEGIN+53
DATE NEXTDATE~, NEXTDATE+3
DEFAULT ENTRY+3~, ENTRY+15*, ENTRY+23, ENTRY+25
DFN ENTRY+1~, BEGIN+1~, BEGIN+18*, BEGIN+43, COPYPARM+32
DIRECTION BEGIN+3~, BEGIN+68*, COPYPARM+1~, COPYPARM+9*, COPYPARM+15, COPYPARM+20, COPYPARM+27, COPYPARM+34, COPYPARM+38, NEXTDATE~
, NEXTDATE+3
DONE ENTRY+3~
DTIME ENTRY+24
DUZ TASK+6, BEGIN+48
ENDDATE ENTRY+1~, BEGIN+1~, BEGIN+14*, BEGIN+38, COPYPARM+15
ERROR ENTRY+3~, ENTRY+46*, ENTRY+47, ENTRY+58*, ENTRY+59, ENTRY+69*, ENTRY+70, ENTRY+81*, ENTRY+82
HOSTNAME ENTRY+1~, ENTRY+11*, BEGIN+70, BEGIN+71, BEGIN+72, BEGIN+89
HOURS ENTRY+1~, BEGIN+1~, BEGIN+16*, BEGIN+42, COPYPARM+5
I ENTRY+3~, ENTRY+41*, ENTRY+138*, ENTRY+140, ENTRY+141*, ENTRY+142*, TASK+2~, TASK+3*, TASK+4*, BEGIN+3~
BEGIN+52*, BEGIN+53*, BEGIN+55, BEGIN+56, COPYPARM+1~
IMAGINGSERVICE ENTRY+1~, ENTRY+9*, ENTRY+17, ENTRY+105, ENTRY+114, TASKINIT+10, BEGIN+1~, BEGIN+8*, BEGIN+31, BEGIN+51
BEGIN+70, BEGIN+74
J BEGIN+3~, BEGIN+52*, BEGIN+54*, BEGIN+55, BEGIN+56, BEGIN+58
K BEGIN+3~
L BEGIN+3~
LASTRUN ENTRY+3~, ENTRY+38*, ENTRY+39, ENTRY+42
MAGIOM ENTRY+2~, TASKINIT+3*, TASKINIT+7*, BEGIN+5
MAGXTMP ENTRY+2~, ENTRY+13*, BEGIN+70, BEGIN+71, BEGIN+72, BEGIN+89
MENUOPTION ENTRY~, ENTRY+38, BEGIN+49, BEGIN+61
NEXTDATE NEXTDATE+1~, NEXTDATE+3*, NEXTDATE+4*, NEXTDATE+5
NORMALRUN COPYPARM~, COPYPARM+15, COPYPARM+20
NOW NEXTDATE+1~, NEXTDATE+2*, NEXTDATE+4
OK ENTRY+3~, ENTRY+16*, ENTRY+24*, ENTRY+26*, ENTRY+27*, ENTRY+28*, ENTRY+29*, ENTRY+30*, ENTRY+31*, ENTRY+34
OPTION ENTRY+1~, ENTRY+8*, BEGIN+1~, BEGIN+7*, BEGIN+33, BEGIN+71
PICK ENTRY+53!
QRSCP ENTRY+1~, BEGIN+1~, BEGIN+17*, BEGIN+36, COPYPARM+2, COPYPARM+7
QRSTACK ENTRY+1~, ENTRY+10*
QUESTION ENTRY+3~, ENTRY+113*, ENTRY+115*, ENTRY+118*, ENTRY+120*, ENTRY+121, ENTRY+122, ENTRY+125*, ENTRY+126, ENTRY+127
, ENTRY+130*, ENTRY+131, ENTRY+132
QUESTION( ENTRY+138, ENTRY+140
QUESTION("ASCENDING" ENTRY+121*, ENTRY+126*, ENTRY+131*, ENTRY+135
QUESTION("DESCENDING" ENTRY+122*, ENTRY+127*, ENTRY+132*
QUESTION("NONE" ENTRY+135*
QUIT ENTRY+3~, ENTRY+138*, ENTRY+139*, ENTRY+141, ENTRY+142, ENTRY+144
RUNNUMBER BEGIN+3~, BEGIN+25*, BEGIN+50, BEGIN+55, BEGIN+56, BEGIN+58, BEGIN+60, BEGIN+61, BEGIN+64, BEGIN+66
BEGIN+84, BEGIN+86
RUNTIME ENTRY+2~, ENTRY+45, ENTRY+57, ENTRY+68, ENTRY+80, BEGIN+1~, BEGIN+29*, BEGIN+32, BEGIN+83*, BEGIN+84
SCANMODE ENTRY+2~, ENTRY+28*, ENTRY+29*, ENTRY+30*, ENTRY+31*, ENTRY+35, ENTRY+38, ENTRY+40, ENTRY+45, ENTRY+46
, ENTRY+57, ENTRY+58, ENTRY+68, ENTRY+69, ENTRY+79, ENTRY+81, ENTRY+100, ENTRY+112, ENTRY+124, ENTRY+129
BEGIN+2~, BEGIN+9*, BEGIN+35, BEGIN+61, BEGIN+71, COPYPARM+3, COPYPARM+12, COPYPARM+25
SERVICES ENTRY+3~
SORTORDER ENTRY+2~, ENTRY+137*, ENTRY+138, ENTRY+140, BEGIN+2~, BEGIN+10*, BEGIN+15*, BEGIN+41, BEGIN+68, DIRECTON~
, DIRECTON+3, COPYPARM+4, COPYPARM+9, COPYPARM+14, COPYPARM+33
STARTIEN ENTRY+2~, BEGIN+2~, BEGIN+12*, BEGIN+39
STARTTIME ENTRY+2~, BEGIN+2~, BEGIN+29*, BEGIN+30, BEGIN+60
STATUS ENTRY+2~, ENTRY+44, ENTRY+56, ENTRY+67, ENTRY+79, BEGIN+2~
STOP BEGIN+3~, BEGIN+75*, BEGIN+78*, BEGIN+85
STUDYDATE ENTRY+2~, BEGIN+2~, COPYPARM+16, COPYPARM+21, COPYPARM+34, COPYPARM+38
STUDYIEN ENTRY+2~, BEGIN+2~, COPYPARM+27
X ENTRY+3~, ENTRY+24*, ENTRY+25*, ENTRY+26, ENTRY+27, ENTRY+28, ENTRY+29, ENTRY+30, ENTRY+31, ENTRY+40*
, ENTRY+41, ENTRY+46, ENTRY+48, ENTRY+58, ENTRY+60, ENTRY+69, ENTRY+71, ENTRY+81, ENTRY+83, ENTRY+104*
, ENTRY+106*, ENTRY+110, BEGIN+5*, BEGIN+23*, BEGIN+24*, BEGIN+25*, BEGIN+26*, BEGIN+27, BEGIN+29*, BEGIN+30*
BEGIN+31*, BEGIN+32*, BEGIN+33*, BEGIN+34*, BEGIN+35*, BEGIN+36*, BEGIN+37*, BEGIN+38*, BEGIN+39*, BEGIN+40*
BEGIN+41*, BEGIN+42*, BEGIN+43*, BEGIN+48*, BEGIN+49*, BEGIN+50, BEGIN+85*, BEGIN+86, BEGIN+87
ZTDESC ENTRY+3~, ENTRY+161, TASKINIT+4*, TASKINIT+8*, TASKINIT+10*, TASK+3, TASK+4
ZTSAVE ENTRY+152~, ENTRY+161
ZTSAVE("CONSULTSERVICES(" ENTRY+160*
ZTSAVE("HOSTNAME" ENTRY+153*
ZTSAVE("MAGIOM" ENTRY+154*
ZTSAVE("MAGXTMP" ENTRY+155*
ZTSAVE("MENUOPTION" ENTRY+156*
ZTSAVE("QRSTACK" ENTRY+159*
ZTSAVE("^TMP( ""MAG"", $J, ""BATCH Q/R"", " , ENTRY+157*, ""MAG"", $J, ""Q/R PARAM"", " , ENTRY+158*

Marked Items

Name Field # of Occurrence
$T( ENTRY+161
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All