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

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call