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

Package: Imaging

Routine: MAGDSTAA


Information

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

Source Information

Source file <MAGDSTAA.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Imaging 4 (LEGACY,NEWSOPDB)^MAGDSTA8  $$FINDSUID^MAGDSTAB  ($$QUERY,$$RETRIEVE)^MAGDSTAC  ($$YESNO,CONTINUE)^MAGDSTQ  
Kernel 2 $$S^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
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: 8

Package Total Caller Graph
Imaging 8 MAGD STOP AUTOMATIC PROCESSES  MAGDSTA  MAGDSTA2  MAGDSTA5  MAGDSTA7  MAGDSTAC  MAGDSTAE  MAGDSTAF  

Entry Points

Name Comments DBIA/ICR reference
LOOKUP(DFN,STUDYDATE,STUDYIEN,ACNUMB,MAGIENLIST) ; called by MAGDSTA5 and MAGDSTA7
; STUDYDATE ---- date of study
; STUDYIEN ----- RARPT1 or GMRCIEN
; ACNUMB ------- accession number
; MAGIENLIST --- array of MAGIEN pointers
; VISTAUIDFLAG - flag to indicate that an acn query failed
HEADER(CONTINUE,CLEARSCREEN) ;
QRSTATUS(TEXT) ; output query/retrieve status text
SUSPEND(HOURS) ; check date/time & request to stop
; HOURS is a 24 character string of Y's and N's indicating active times
; Assume that Saturday and Sunday are 24 hours
STOP ; stop job
STOP1(LIST) ; get list of running VistA Automatic Q/R Processes
STOP2(LIST,COUNT) ; display the jobs
STOP3(LIST,I) ; signal the process to stop by killing the "STATUS" node
STTWRITE(NAME,VALUE) ; write statistics for the run
STTREAD(NAME) ; read a statistics parameter
STTUPDT(NAME,VALUE) ; update a statistics parameter
STTINC(NAME,VALUE) ; increment a statistics parameter
STTNAME(NAME) ; get IEN for NAME
; return: -1 for an error, "" for no NAME, IEN otherwise

External References

Name Field # of Occurrence
$$S^%ZTLOAD SUSPEND+14
$$GET1^DIQ LOOKUP+65
LEGACY^MAGDSTA8 LOOKUP+29
NEWSOPDB^MAGDSTA8 LOOKUP+50
$$FINDSUID^MAGDSTAB LOOKUP+66
$$QUERY^MAGDSTAC LOOKUP+78
$$RETRIEVE^MAGDSTAC LOOKUP+99
$$YESNO^MAGDSTQ STOP+9
CONTINUE^MAGDSTQ HEADER+3, STOP+31
$$FMTE^XLFDT LOOKUP+23, HEADER+6, SUSPEND+12, SUSPEND+17, STOP2+7
$$NOW^XLFDT LOOKUP+11, HEADER+6, SUSPEND+12, SUSPEND+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: LOOKUP+20
Function Call: WRITE
  • Prompt: !,$J(STUDYIEN,8),?11,ACNUMB,?30,$P($$FMTE^XLFDT(STUDYDATE,"2Z"),"@",1)
  • Line Location: LOOKUP+23
Function Call: WRITE
  • Prompt: !
  • Condition for execution: I>1
  • Line Location: LOOKUP+28
Function Call: WRITE
  • Prompt: ?40,$J(MAGIEN,8)
  • Line Location: LOOKUP+28
Function Call: WRITE
  • Prompt: ?52,$J(SERIESCOUNT,5)
  • Line Location: LOOKUP+30
Function Call: WRITE
  • Prompt: ?55,"non-DICOM"
  • Line Location: LOOKUP+34
Function Call: WRITE
  • Prompt: ?59,$J(IMAGECOUNT,5)
  • Line Location: LOOKUP+38
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $D(MAGIENLIST)
  • Line Location: LOOKUP+52
Function Call: WRITE
  • Prompt: ?41,"NEW SOP",?52,$J(SERIESCOUNT,5),?59,$J(IMAGECOUNT,5)
  • Line Location: LOOKUP+52
Function Call: WRITE
  • Prompt: ?46,"--",?55,"--",?62,"--"
  • Line Location: LOOKUP+69
Function Call: WRITE
  • Prompt: ?67,$J(SERIESCOUNT,5),?74,$J(IMAGECOUNT,5)
  • Line Location: LOOKUP+85
Function Call: WRITE
  • Prompt: !," (Query with Accession Number failed, but worked with VistA Study Instance UID)"
  • Line Location: LOOKUP+90
Function Call: WRITE
  • Prompt: ?70,"--",?77,"--"
  • Line Location: LOOKUP+94
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($$NOW^XLFDT,1),?55,"VistA",?71,"PACS"
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !,"Report #",?11,"Accession Number",?32,"Date",?40,"Group #",?51,"Series Images",?66,"Series Images"
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: ?82,"Retrieve Status"
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !,"--------",?11,"----------------",?30,"--------",?40,"--------",?51,"------ ------",?66,"------ ------"
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: ?82,"-------- ------"
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>82
  • Line Location: QRSTATUS+2
Function Call: WRITE
  • Prompt: ?82,TEXT
  • Line Location: QRSTATUS+2
Function Call: WRITE
  • Prompt: !!,"User requested VistA Automatic Q/R Processing to stop at ",$$FMTE^XLFDT($$NOW^XLFDT,1)
  • Line Location: SUSPEND+12
Function Call: WRITE
  • Prompt: !!,"User requested task to stop at ",$$FMTE^XLFDT($$NOW^XLFDT,1)
  • Line Location: SUSPEND+17
Function Call: WRITE
  • Prompt: !!,"Waiting for time to start "
  • Line Location: SUSPEND+22
Function Call: WRITE
  • Prompt: $E("-\|/",TICKER),$C(8)
  • Line Location: SUSPEND+25
Function Call: WRITE
  • Prompt: !!,"No VistA Automatic Q/R Processes appear to be running."
  • Line Location: STOP+4
Function Call: WRITE
  • Prompt: " YESNO ERROR"
  • Line Location: STOP+10
Function Call: WRITE
  • Prompt: !!,"Enter 1-",COUNT," to stop a procss: "
  • Line Location: STOP+17
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: STOP+18
Function Call: WRITE
  • Prompt: " -- nothing selected"
  • Line Location: STOP+19
Function Call: WRITE
  • Prompt: " ???"
  • Line Location: STOP+26
Function Call: WRITE
  • Prompt: !
  • Line Location: STOP2+4
Function Call: WRITE
  • Prompt: $J(I,2),")"
  • Condition for execution: COUNT>1
  • Line Location: STOP2+4
Function Call: WRITE
  • Prompt: ?4,^XTMP(MAGXTMP,"AUTO Q/R",HOSTNAME,JOB,"IMAGING SERVICE")
  • Line Location: STOP2+5
Function Call: WRITE
  • Prompt: ?20,^XTMP(MAGXTMP,"AUTO Q/R",HOSTNAME,JOB,"OPTION")
  • Line Location: STOP2+6
Function Call: WRITE
  • Prompt: ?50,"Started: ",$$FMTE^XLFDT(^XTMP(MAGXTMP,"AUTO Q/R",HOSTNAME,JOB,"START TIME"),"2MP")
  • Line Location: STOP2+7
Function Call: WRITE
  • Prompt: !!,"VistA Automatic Q/R Processing will stop soon."
  • Line Location: STOP3+4
Function Call: WRITE
  • Prompt: !,"*** ERROR in STTREAD^",$T(+0)," ***"
  • Line Location: STTREAD+4
Function Call: WRITE
  • Prompt: !,"NAME """,NAME,""" is not defined in"
  • Line Location: STTREAD+5
Function Call: WRITE
  • Prompt: " ^MAGDSTT(2006.543,",RUNNUMBER,")."
  • Line Location: STTREAD+6
Function Call: WRITE
  • Prompt: !,"*** ERROR in STTNAME^",$T(+0)
  • Line Location: STTNAME+5
Function Call: WRITE
  • Prompt: " NAME is null or undefined ***"
  • Line Location: STTNAME+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^MAGDSTT(2006.543 - [#2006.543] LOOKUP+12*, LOOKUP+13*, LOOKUP+14*, LOOKUP+15*, LOOKUP+16*, LOOKUP+17*, STTWRITE+5, STTWRITE+6*, STTWRITE+7*, STTWRITE+8*
, STTREAD+8, STTUPDT+5*, STTINC+5, STTNAME+9
^TMP("MAG" LOOKUP+25!, LOOKUP+75, LOOKUP+98, LOOKUP+104!, HEADER+8, HEADER+12
^XTMP( SUSPEND+10, STOP1+4, STOP1+6, STOP1+8, STOP2+5, STOP2+6, STOP2+7, STOP3+3!

Label References

Name Line Occurrences
$$STOP1 STOP+2
$$STTNAME STTWRITE+3, STTREAD+2, STTUPDT+3, STTINC+3
$$SUSPEND LOOKUP+19
HEADER LOOKUP+20, QRSTATUS+1
STOP2 STOP+7
STOP3 STOP+12, STOP+22
STTINC LOOKUP+10, LOOKUP+39, LOOKUP+40, LOOKUP+41, LOOKUP+53, LOOKUP+54, LOOKUP+55, LOOKUP+70, LOOKUP+86, LOOKUP+87
, LOOKUP+88, LOOKUP+95
STTUPDT STTWRITE+4
STTWRITE STTUPDT+4, STTINC+4

Naked Globals

Name Field # of Occurrence
^("Q/R QUERY" LOOKUP+104!
^("UIDS" LOOKUP+104!
^(0 STTINC+5*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACNUMB LOOKUP~, LOOKUP+17, LOOKUP+23, LOOKUP+50, LOOKUP+66
CLEARSCREEN HEADER~, HEADER+2*, HEADER+4
CONTINUE HEADER~, HEADER+1*, HEADER+3
COUNT STOP+1~, STOP+2*, STOP+3, STOP+7, STOP+8, STOP+17, STOP+21, STOP1+1~, STOP1+2*, STOP1+9*
, STOP1+10, STOP1+14, STOP2~, STOP2+2, STOP2+4
DFN LOOKUP~, LOOKUP+14, LOOKUP+65
DONE SUSPEND+3~, SUSPEND+7*, SUSPEND+9, SUSPEND+11*, SUSPEND+15*, SUSPEND+20*, SUSPEND+29, STOP+1~, STOP+16*, STOP+20*
, STOP+23*
DTIME STOP+18
ERROR LOOKUP+7~, LOOKUP+66*, LOOKUP+78*, LOOKUP+99*, STOP+9*, STOP+10
EXAMDATE LOOKUP+7~
FIRSTTIME SUSPEND+3~, SUSPEND+7*, SUSPEND+22*
HOSTNAME SUSPEND+10, STOP1+1~, STOP1+5*, STOP1+6*, STOP1+8, STOP1+10, STOP2+1~, STOP2+3*, STOP2+5, STOP2+6
, STOP2+7, STOP3+1~, STOP3+2*, STOP3+3
HOURS LOOKUP+19, SUSPEND~, SUSPEND+8*, SUSPEND+19
I LOOKUP+7~, LOOKUP+27*, LOOKUP+28, LOOKUP+74*, LOOKUP+76*, STOP1+1~, STOP2+1~, STOP2+2*, STOP2+3, STOP2+4
, STOP3~, STOP3+2
IEN STTWRITE+1~, STTWRITE+3*, STTWRITE+4, STTWRITE+5*, STTWRITE+6, STTWRITE+7, STTWRITE+8, STTREAD+1~, STTREAD+2*, STTREAD+3
, STTREAD+8, STTUPDT+1~, STTUPDT+3*, STTUPDT+4, STTUPDT+5, STTINC+1~, STTINC+3*, STTINC+4, STTINC+5, STTNAME+2~
, STTNAME+9*, STTNAME+10
IMAGECOUNT LOOKUP+7~, LOOKUP+29, LOOKUP+32, LOOKUP+38, LOOKUP+41, LOOKUP+46, LOOKUP+50, LOOKUP+51, LOOKUP+52, LOOKUP+55
, LOOKUP+60, LOOKUP+66, LOOKUP+78, LOOKUP+83, LOOKUP+85, LOOKUP+88
>> IMAGES LOOKUP+22*
IOF HEADER+4
IOSL LOOKUP+20, QRSTATUS+1
IOST SUSPEND+25
JOB STOP1+1~, STOP1+7*, STOP1+8*, STOP1+10, STOP2+1~, STOP2+3*, STOP2+5, STOP2+6, STOP2+7, STOP3+1~
, STOP3+2*, STOP3+3
LIST STOP+1~, STOP+2, STOP+7, STOP+12, STOP+22, STOP1~, STOP2~, STOP3~
LIST( STOP1+10*, STOP2+3, STOP3+2
MAGGLIST LOOKUP+7~
MAGIEN LOOKUP+7~, LOOKUP+26*, LOOKUP+27*, LOOKUP+28, LOOKUP+29
MAGIENLIST LOOKUP~, LOOKUP+52
MAGIENLIST( LOOKUP+27
MAGXTMP SUSPEND+10, STOP1+1~, STOP1+3*, STOP1+4*, STOP1+6, STOP1+8, STOP1+10, STOP2+1~, STOP2+3*, STOP2+5
, STOP2+6, STOP2+7, STOP3+1~, STOP3+2*, STOP3+3
NAME STTWRITE~, STTWRITE+3, STTWRITE+4, STTWRITE+6, STTWRITE+7, STTREAD~, STTREAD+2, STTREAD+5, STTUPDT~, STTUPDT+3
, STTUPDT+4, STTINC~, STTINC+3, STTINC+4, STTNAME~, STTNAME+3*, STTNAME+4, STTNAME+9
NONDICOM LOOKUP+7~, LOOKUP+22*, LOOKUP+35*, LOOKUP+69
PACS LOOKUP+8~
PACS("IMAGE C OUNT" , LOOKUP+83*
PACS("SERIES COUNT" , LOOKUP+83*
PACSSTUDYUID LOOKUP+8~, LOOKUP+62!, LOOKUP+66, LOOKUP+72, LOOKUP+78, LOOKUP+99
PACSSTUDYUID( LOOKUP+76*
PACSSTUDYUID(1 LOOKUP+79
>> RUNNUMBER LOOKUP+12, LOOKUP+13, LOOKUP+14, LOOKUP+15, LOOKUP+16, LOOKUP+17, STTWRITE+5, STTWRITE+6, STTWRITE+7, STTWRITE+8
, STTREAD+6, STTREAD+8, STTUPDT+5, STTINC+5, STTNAME+9
RUNTIME LOOKUP+8~, LOOKUP+11*, LOOKUP+12
>> SCANMODE SUSPEND+5
SERIESCOUNT LOOKUP+8~, LOOKUP+29, LOOKUP+30, LOOKUP+40, LOOKUP+45, LOOKUP+50, LOOKUP+52, LOOKUP+54, LOOKUP+59, LOOKUP+66
, LOOKUP+78, LOOKUP+83, LOOKUP+84, LOOKUP+85, LOOKUP+87
SSN LOOKUP+7~, LOOKUP+65*, LOOKUP+66
STUDYDATE LOOKUP~, LOOKUP+15, LOOKUP+23
STUDYIEN LOOKUP~, LOOKUP+16, LOOKUP+23
TEXT QRSTATUS~, QRSTATUS+2
TICKER SUSPEND+3~, SUSPEND+7*, SUSPEND+24*, SUSPEND+25
VALUE STTWRITE~, STTWRITE+2*, STTWRITE+4, STTWRITE+6, STTUPDT~, STTUPDT+2*, STTUPDT+4, STTUPDT+5, STTINC~, STTINC+2*
, STTINC+4, STTINC+5
VISTA LOOKUP+8~
VISTA("IMAGE COUNT" , LOOKUP+46*, LOOKUP+60*, LOOKUP+68
VISTA("SERIES COUNT" , LOOKUP+45*, LOOKUP+59*
VISTASTUDYUID LOOKUP+8~, LOOKUP+74*, LOOKUP+75*, LOOKUP+76
>> VISTAUIDFLAG LOOKUP+63*, LOOKUP+79*, LOOKUP+89
X LOOKUP+8~, SUSPEND+3~, SUSPEND+19*, SUSPEND+20, STOP+1~, STOP+9, STOP+11, STOP+18*, STOP+19, STOP+20
, STOP+21, STOP+22
>> ZTDESC SUSPEND+14
>> ZTSTOP SUSPEND+16*

Marked Items

Name Field # of Occurrence
$T( STTREAD+4, STTNAME+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 |  Marked Items  | All