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

Package: Imaging

Routine: MAGDSTAS


Information

MAGDSTAS ;WOIFO/PMK - Q/R Retrieve of DICOM images from PACS to VistA ; Feb 15, 2022@10:52:34

Source Information

Source file <MAGDSTAS.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 2 $$FIND1^DIC  $$GET1^DIQ  
Imaging 1 ($$YESNO,CONTINUE)^MAGDSTQ  
Kernel 1 ($$FMTE,$$FMTH,$$HTE)^XLFDT  

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

Package Total Caller Graph
Imaging 4 MAGD Q/R CON RUN STATISTICS  MAGD Q/R RAD RUN STATISTICS  MAGDSTA  MAGDSTA1  

Entry Points

Name Comments DBIA/ICR reference
CON ; entry point to output consult statistics
RAD ; entry point to output radiology statistics
START(PATTERN) ; Entry point to output statistics
OPTION(MENUOPTION,S2) ; output statistics for all runs for one option/scan mode
ZEROES(ZEROIEN1,ZEROIEN2) ; output an IEN range
GETDATA(RUNNUMBER,STATS) ; accumulate the data for one run
SETONES(IEN1,IEN2) ; set 1's for scanned ien ranges
STATS(I,STATS) ; collect statistics info
DISPLAY(STATS) ; output the statistics
ONERUN(MYSERVICE) ; display the statistics for individual runs
ONERUN1(LIST,SELECT) ; display statics for a single run
ONERUN2(COUNT,LIST) ; present run selection screen(s)
ONERUN3(IBEGIN,IEND,LIST,DONE2) ; select the run number from a screen full
MAKELIST(MYSERVICE,LIST,COUNT) ; make a list of the service's runs
LASTRUN(I) ; entry point from ^MAGDSTA1 to get last parameters of the last run
NODE0(I) ; get parameters from the zero-node for one run
SERVICES(I) ; get the services for a consult run

External References

Name Field # of Occurrence
$$FIND1^DIC OPTION+14
$$GET1^DIQ OPTION+15, ONERUN1+36, NODE0+4, NODE0+6, NODE0+8, NODE0+15, SERVICES+5
$$YESNO^MAGDSTQ START+5, START+10
CONTINUE^MAGDSTQ START+12, START+31, OPTION+39, OPTION+70, ZEROES+1, DISPLAY+6, ONERUN1+45, ONERUN3+25
$$FMTE^XLFDT ONERUN1+5, ONERUN1+6, ONERUN1+16, ONERUN1+17, ONERUN1+21, ONERUN1+22, ONERUN1+29, ONERUN3+8
$$FMTH^XLFDT OPTION+6, GETDATA+4, GETDATA+5
$$HTE^XLFDT OPTION+31, OPTION+40

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The above statistics are only an estimate. If the same scans are run"
  • Line Location: START+25
Function Call: WRITE
  • Prompt: !,"multiple times, that scan's numbers will be counted more than once."
  • Line Location: START+26
Function Call: WRITE
  • Prompt: !!,"There are no statistics for ",MYSERVICE,"."
  • Line Location: START+29
Function Call: WRITE
  • Prompt: @IOF,OPTIONNAME," -- ",SCANMODE," scan"
  • Line Location: OPTION+16
Function Call: WRITE
  • Prompt: !,"The DATE scan has been run for the entire date interval from ",$$HTE^XLFDT(HDATE1)," to today."
  • Line Location: OPTION+31
Function Call: WRITE
  • Prompt: !,"The process has not been run for the following date intervals:"
  • Line Location: OPTION+34
Function Call: WRITE
  • Prompt: !
  • Line Location: OPTION+39
Function Call: WRITE
  • Prompt: ?15,$$HTE^XLFDT(HDATE1)," -- ",$$HTE^XLFDT(HDATE2)
  • Line Location: OPTION+40
Function Call: WRITE
  • Prompt: !,"The NUMBER scan has not been run for the following IEN intervals:"
  • Line Location: OPTION+46
Function Call: WRITE
  • Prompt: !
  • Line Location: OPTION+70
Function Call: WRITE
  • Prompt: !
  • Line Location: ZEROES+1
Function Call: WRITE
  • Prompt: ?15,ZEROIEN1," to ",ZEROIEN2
  • Line Location: ZEROES+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !?10,$E(STATS(I,"NAME"),1,35),?45,$TR($J(STATS(I,"VALUE"),10)," ","_")
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPLAY+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+10
Function Call: WRITE
  • Prompt: !!,"No run statistics on file for ",MYSERVICE
  • Line Location: ONERUN+6
Function Call: WRITE
  • Prompt: !!,"Just a single run for ",MYSERVICE
  • Line Location: ONERUN+9
Function Call: WRITE
  • Prompt: !!,"No run was selected"
  • Line Location: ONERUN+19
Function Call: WRITE
  • Prompt: @IOF,"Entry #",SELECT
  • Line Location: ONERUN1+4
Function Call: WRITE
  • Prompt: ?14,"Started: ",$$FMTE^XLFDT(STARTTIME)
  • Line Location: ONERUN1+5
Function Call: WRITE
  • Prompt: ?50,"Ended: ",$$FMTE^XLFDT(RUNTIME)
  • Line Location: ONERUN1+6
Function Call: WRITE
  • Prompt: !,MYSERVICE,?14,OPTION," by ",SCANMODE
  • Line Location: ONERUN1+7
Function Call: WRITE
  • Prompt: ?50,"Status: ",STATUS
  • Line Location: ONERUN1+8
Function Call: WRITE
  • Prompt: ?50,"*** ERROR ***"
  • Line Location: ONERUN1+10
Function Call: WRITE
  • Prompt: !?14,"<< ",STATUS," >>"
  • Line Location: ONERUN1+11
Function Call: WRITE
  • Prompt: !,"PACS: ",QRSCP
  • Line Location: ONERUN1+13
Function Call: WRITE
  • Prompt: " Move Destination: ",CMOVEAET
  • Line Location: ONERUN1+14
Function Call: WRITE
  • Prompt: !,"Beginning Date: ",$$FMTE^XLFDT(BEGDATE)
  • Line Location: ONERUN1+16
Function Call: WRITE
  • Prompt: " Ending Date: ",$$FMTE^XLFDT(ENDDATE,"D")
  • Line Location: ONERUN1+17
Function Call: WRITE
  • Prompt: !,"DFN: ",DFN
  • Line Location: ONERUN1+20
Function Call: WRITE
  • Prompt: ?14,"Beginning Date: ",$$FMTE^XLFDT(BEGDATE)
  • Line Location: ONERUN1+21
Function Call: WRITE
  • Prompt: ?50,"Ending Date: ",$$FMTE^XLFDT(ENDDATE,"D")
  • Line Location: ONERUN1+22
Function Call: WRITE
  • Prompt: !,"Starting Report Number: ",STARTIEN," Batch Size: ",BATCHSIZE
  • Line Location: ONERUN1+25
Function Call: WRITE
  • Prompt: !,"Sort Order: ",SORTORDER,?43,"Hours: ",HOURS
  • Line Location: ONERUN1+27
Function Call: WRITE
  • Prompt: !,"Last Accession #: ",ACNUMB,?50,"M12345678901N12345678901"
  • Line Location: ONERUN1+28
Function Call: WRITE
  • Prompt: !,"Last Study Date: ",$$FMTE^XLFDT(STUDYDATE,"D")
  • Line Location: ONERUN1+29
Function Call: WRITE
  • Prompt: ?35,"Last DFN: ",DFN,?55,"Last Report #: ",STUDYIEN
  • Line Location: ONERUN1+30
Function Call: WRITE
  • Prompt: !,"Services: "
  • Line Location: ONERUN1+33
Function Call: WRITE
  • Prompt: ",",!?10
  • Line Location: ONERUN1+37
Function Call: WRITE
  • Prompt: SERVICENAME
  • Line Location: ONERUN1+39
Function Call: WRITE
  • Prompt: !,ISCREEN
  • Line Location: ONERUN2+9
Function Call: WRITE
  • Prompt: @IOF,"Select the number of the run"
  • Line Location: ONERUN3+4
Function Call: WRITE
  • Prompt: !,"----------------------------",!
  • Line Location: ONERUN3+5
Function Call: WRITE
  • Prompt: !,$J(I,3),") ",$$FMTE^XLFDT(STARTTIME,"2MPZ")
  • Line Location: ONERUN3+8
Function Call: WRITE
  • Prompt: ?24,OPTION," by ",SCANMODE
  • Line Location: ONERUN3+9
Function Call: WRITE
  • Prompt: ?60,$S(STATUS?1"ERROR: ".E:"*** ERROR ***",1:STATUS)
  • Line Location: ONERUN3+10
Function Call: WRITE
  • Prompt: !!,"Please enter 1-",IEND," to select the run, ""^"" to exit: "
  • Line Location: ONERUN3+14
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ONERUN3+15
Function Call: WRITE
  • Prompt: " ???"
  • Line Location: ONERUN3+23
Function Call: WRITE
  • Prompt: !,"Please enter the number of the run to display the statistics"
  • Line Location: ONERUN3+24
Routine Call
  • DIC
  • Line Location:
    • OPTION+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123.5 - [#123.5] GET1^DIQ
^DIC(19 - [#19] FIND1^DIC,  GET1^DIQ
^MAGDSTT(2006.543 - [#2006.543] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^MAGDSTT(2006.543 - [#2006.543] START+17, START+20, OPTION+21, STATS+3, STATS+4, ONERUN1+34, ONERUN1+35, MAKELIST+6, NODE0+2, SERVICES+3
, SERVICES+4
^TMP("MAG" START+15!, START+32!, OPTION+8*, OPTION+30, OPTION+36, OPTION+38, OPTION+50, OPTION+54, GETDATA+6!, SETONES+5
, SETONES+7*, SETONES+9*, NODE0+24*

Label References

Name Line Occurrences
$$ONERUN2 ONERUN+17
$$ONERUN3 ONERUN2+10
DISPLAY OPTION+27, ONERUN1+44
GETDATA OPTION+22
MAKELIST ONERUN+4
NODE0 GETDATA+1, ONERUN1+3, ONERUN3+7, MAKELIST+7, LASTRUN+1
ONERUN START+7
ONERUN1 ONERUN+11, ONERUN+23
OPTION START+21
SERVICES LASTRUN+2
SETONES GETDATA+9
START CON+4, RAD+4
STATS GETDATA+11, ONERUN1+43
ZEROES OPTION+63, OPTION+68

Naked Globals

Name Field # of Occurrence
^( SETONES+5*
^("NUMBER" START+15!, START+32!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACNUMB START+1~, ONERUN1+28, MAKELIST+1~, NODE0+20*
BATCHSIZE START+1~, ONERUN1+25, MAKELIST+1~, NODE0+14*
BEGDATE START+1~, GETDATA+4, ONERUN1+16, ONERUN1+21, MAKELIST+1~, NODE0+11*
CMOVEAET START+1~, ONERUN1+14, MAKELIST+1~, NODE0+10*
>> CONSULTSERVICES( SERVICES+5*
COUNT ONERUN+1~, ONERUN+4, ONERUN+6, ONERUN+8, ONERUN+17, ONERUN2~, ONERUN2+3, ONERUN2+8, MAKELIST~, MAKELIST+5*
, MAKELIST+8*
DFN START+1~, ONERUN1+20, ONERUN1+30, MAKELIST+1~, NODE0+17*, NODE0+24
DONE1 ONERUN+14~, ONERUN+15*, ONERUN+16, ONERUN+20*
DONE2 ONERUN2+1~, ONERUN2+2*, ONERUN2+4, ONERUN2+5, ONERUN2+10, ONERUN3~, ONERUN3+3, ONERUN3+16*, ONERUN3+19*
DONE3 ONERUN3+1~, ONERUN3+2*, ONERUN3+3, ONERUN3+21*
DTIME ONERUN3+15
ENDDATE START+1~, GETDATA+5, ONERUN1+17, ONERUN1+22, MAKELIST+1~, NODE0+12*
FIRSTTIME ONERUN+14~, ONERUN+15*, ONERUN+19, ONERUN+22*
HDATE1 OPTION+1~, OPTION+6*, OPTION+8, OPTION+31, OPTION+35*, OPTION+36*, OPTION+37, OPTION+38, OPTION+40, OPTION+41*
, GETDATA+3~, GETDATA+4*, GETDATA+6
HDATE2 OPTION+1~, OPTION+7*, OPTION+8, OPTION+38*, OPTION+40, OPTION+41, GETDATA+3~, GETDATA+5*, GETDATA+6
HOURS START+1~, ONERUN1+27, MAKELIST+1~, NODE0+16*
I OPTION+1~, OPTION+8*, OPTION+55*, OPTION+56, OPTION+57, OPTION+58, OPTION+61, GETDATA+3~, GETDATA+6*, SETONES+1~
, STATS~, STATS+3, STATS+4, DISPLAY+1~, DISPLAY+3*, DISPLAY+4, ONERUN1+32*, ONERUN1+34*, ONERUN1+35, ONERUN1+38
, ONERUN3+1~, ONERUN3+6*, ONERUN3+7, ONERUN3+8, LASTRUN~, LASTRUN+1, LASTRUN+2, NODE0~, NODE0+2, NODE0+4
, NODE0+6, NODE0+8, NODE0+15, SERVICES~, SERVICES+3, SERVICES+4
IBEGIN ONERUN2+1~, ONERUN2+6*, ONERUN2+10, ONERUN3~, ONERUN3+6
IEN SETONES+1~, SETONES+3*, SETONES+4, SETONES+6, SERVICES+1~, SERVICES+4*, SERVICES+5
IEN1 SETONES~, SETONES+3
IEN2 SETONES~, SETONES+3
IEND ONERUN2+1~, ONERUN2+7*, ONERUN2+8*, ONERUN2+10, ONERUN3~, ONERUN3+6, ONERUN3+14, ONERUN3+17
IMAGINGSERVICE START+1~, ONERUN1+31, MAKELIST+1~, MAKELIST+7, NODE0+4*
INCREMENT ONERUN2+1~, ONERUN2+2*, ONERUN2+3, ONERUN2+6, ONERUN2+7
IOF OPTION+16, DISPLAY+7, ONERUN1+4, ONERUN3+4
IOM ONERUN1+37
IOSL OPTION+39, ZEROES+1, DISPLAY+5, ONERUN2+2
ISCREEN ONERUN2+1~, ONERUN2+5*, ONERUN2+6, ONERUN2+7, ONERUN2+9
ISTATS STATS+1~, STATS+6*, STATS+7, STATS+8*, STATS+9, STATS+11, STATS+12
J STATS+1~, STATS+2*, STATS+3*, STATS+4, SERVICES+1~, SERVICES+2*, SERVICES+3*, SERVICES+4
LIST ONERUN+1~, ONERUN+4, ONERUN+11, ONERUN+17, ONERUN+23, ONERUN1~, ONERUN2~, ONERUN2+10, ONERUN3~, MAKELIST~
LIST( ONERUN1+2, ONERUN3+7, MAKELIST+8*
MAXLENGTH OPTION+1~, OPTION+20*, ONERUN+1~, ONERUN1+42*
MENUOPTION START+3~, START+16*, START+17*, START+18, START+20, START+21, OPTION~, OPTION+14, OPTION+21, MAKELIST+2~
, NODE0+22*
MOD100 OPTION+48*, OPTION+49*, OPTION+50, OPTION+51, OPTION+52, OPTION+54, OPTION+57, OPTION+58, OPTION+61, SETONES+1~
, SETONES+4*, SETONES+5, SETONES+6, SETONES+7, SETONES+9
MYSERVICE CON+2~*, RAD+2~*, START+5, START+7, START+10, START+29, ONERUN~, ONERUN+4, ONERUN+6, ONERUN+9
, ONERUN1+7, MAKELIST~, MAKELIST+7
NAME STATS+1~, STATS+5*, STATS+6, STATS+9, STATS+11
NSCREENS ONERUN2+1~, ONERUN2+3*, ONERUN2+5
OPTION START+1~, ONERUN1+7, ONERUN3+9, MAKELIST+2~, NODE0+6*
OPTIONIEN OPTION+1~, OPTION+14*, OPTION+15
OPTIONNAME OPTION+1~, OPTION+15*, OPTION+16
PATTERN CON+1~*, CON+4, RAD+1~*, RAD+4, START~, START+18
QRSCP START+1~, ONERUN1+13, MAKELIST+2~, NODE0+9*
REMAINDER SETONES+1~, SETONES+6*, SETONES+7
RETURN ONERUN3+1~, ONERUN3+2*, ONERUN3+16*, ONERUN3+18*, ONERUN3+28
RUNNUMBER OPTION+1~, OPTION+20*, OPTION+21*, OPTION+22, GETDATA~, GETDATA+1, GETDATA+11, ONERUN+1~, ONERUN1+2*, ONERUN1+3
, ONERUN1+34, ONERUN1+35, ONERUN1+43, ONERUN3+1~, ONERUN3+7*, MAKELIST+2~, MAKELIST+5*, MAKELIST+6*, MAKELIST+7, MAKELIST+8
RUNTIME START+2~, ONERUN1+6, MAKELIST+2~, NODE0+5*
S2 START+3~, START+19*, START+20*, START+21, START+24, OPTION~, OPTION+3, OPTION+21
SCANMODE START+2~, OPTION+3*, OPTION+5, OPTION+10, OPTION+16, OPTION+29, OPTION+45, GETDATA+2, GETDATA+8, ONERUN1+7
, ONERUN1+15, ONERUN1+19, ONERUN1+24, ONERUN3+9, MAKELIST+2~, NODE0+8*
SELECT ONERUN+1~, ONERUN+10*, ONERUN+17*, ONERUN+18, ONERUN+23, ONERUN1~, ONERUN1+2, ONERUN1+4, ONERUN2+1~, ONERUN2+10*
, ONERUN2+13
>> SERVICE ONERUN1+35*, ONERUN1+36
>> SERVICENAME ONERUN1+36*, ONERUN1+37, ONERUN1+39
SORTORDER START+2~, ONERUN1+27, MAKELIST+2~, NODE0+15*
STARTIEN START+2~, GETDATA+9, ONERUN1+25, MAKELIST+2~, NODE0+13*
STARTTIME START+2~, ONERUN1+5, ONERUN3+8, MAKELIST+3~, NODE0+3*
STATS OPTION+1~, OPTION+20*, OPTION+22, OPTION+27, GETDATA~, GETDATA+11, STATS~, STATS+8*, DISPLAY~, DISPLAY+3
, ONERUN+1~, ONERUN1+1~, ONERUN1+42*, ONERUN1+43, ONERUN1+44
STATS( STATS+11*, STATS+12*, DISPLAY+4
STATS("XREF" STATS+6, STATS+9*
STATUS START+2~, ONERUN1+8, ONERUN1+11, ONERUN3+10, MAKELIST+3~, NODE0+7*
STUDYDATE START+2~, ONERUN1+29, MAKELIST+3~, NODE0+18*
STUDYIEN START+2~, GETDATA+9, ONERUN1+30, MAKELIST+3~, NODE0+19*
>> USERDUZ NODE0+21*
VALUE STATS+1~, STATS+5*, STATS+12
X START+3~, START+5, START+6, START+10, START+11, OPTION+54*, OPTION+56, STATS+1~, STATS+4*, STATS+5
, ONERUN3+1~, ONERUN3+15*, ONERUN3+16, ONERUN3+17, ONERUN3+18, ONERUN3+21, ONERUN3+23, NODE0+1~, NODE0+2*, NODE0+3
, NODE0+5, NODE0+7, NODE0+9, NODE0+10, NODE0+11, NODE0+12, NODE0+13, NODE0+14, NODE0+16, NODE0+17
, NODE0+18, NODE0+19, NODE0+20, NODE0+21, NODE0+22
ZEROIEN1 OPTION+47*, OPTION+51*, OPTION+57*, OPTION+61, OPTION+62, OPTION+63, OPTION+64*, OPTION+68, ZEROES~, ZEROES+2
ZEROIEN2 OPTION+47*, OPTION+52*, OPTION+58*, OPTION+61*, OPTION+63, OPTION+68, ZEROES~, ZEROES+2
ZEROS SETONES+1~, SETONES+2*, SETONES+5
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  | All